AskUser EnArticle ParaMeter

Calling by parameter

When a search-loop is trying to find a German noun, such as the direct object of a query in AskUser, it makes sense to call DeArticle from the same nested depth of the search which is using each ParaMeter to find the German noun. When the search reveals the case and number of the noun being found, these parameters can be passed along with a call to DeArticle. Since a "LEAVE" statement terminates the loop, there will not be mulitple calls to DeArticle resulting in a kind of stuttering in German.

Code from German DeKi.txt

: DeArticle ( select "EIN" or "DER" before a noun; 3feb2013 ) \ CR ." DeArt: subjnum indefartcon defartcon = " \ test 3mar2013 \ subjnum @ . indefartcon @ . defartcon @ . \ test; 3mar2013 indefmust @ 1 = IF \ if required to say "A(N)"; 20oct2011 midway @ t @ DO \ search backwards in time; 20oct2011 I 0 de{ @ 101 = IF \ 101=A found? 8nov2012 I 8 de{ @ aud ! \ save auditory recall-vector LEAVE \ one instance is enough; 20oct2011 THEN \ end of test for "101=A" engram; 8nov2012 -1 +LOOP \ end of backwards loop; 20oct2011 SpeechAct \ pronounce the requred article; 20oct2011 0 indefmust ! \ reset for safety; 20oct2011 EXIT \ abandon rest of DeArticle; 20oct2011; 17nov2012 THEN \ end of test for a required "A(N); 20oct2011 nphrpos @ 7 = NOT IF quobjnum @ 1 = IF \ 4feb2012 1 nphrnum ! \ 4feb2012 1 indefartcon ! \ 4feb2012 \ 0 quobjnum ! \ reset after use; 4feb2012 \ 0 quobjnum ! \ Commenting out on 4mar2013 THEN \ 4feb2012 nphrnum @ 1 = IF motjuste @ ghost @ = IF \ 0 indefartcon ! \ do not say "A"; 15oct2011 1 defartcon ! \ say "THE"; 15oct2011 THEN \ motjuste @ ghost @ = NOT IF subjnum @ 1 = IF \ if singular subject; 13sep2011 verbpsi @ 800 = IF \ AM or IS; 10nov0212 1 indefartcon ! \ indefinite article; 13sep2011 THEN \ end of test for "AM" or "IS"; 13sep2011 THEN \ 13sep2011 indefartcon @ 1 = IF \ from WHAT-query; 16apr2011 0 defartcon ! \ avoid "A THE"; 6oct2011 anset @ 0 = IF ( If no vowel is next ) midway @ t @ DO I 0 de{ @ 101 = IF \ 101=A? 8nov2012 I 8 de{ @ aud ! \ 10nov2012 LEAVE THEN -1 +LOOP THEN ( End of test for absence of a vowel ) anset @ 0 > IF ( If anset-flag is positive ) midway @ t @ DO I 0 de{ @ 102 = IF \ 102=AN? 8nov2012 I 8 de{ @ aud ! \ 10nov2012 LEAVE THEN -1 +LOOP THEN ( End of test for a vowel coming next ) 1 numflag ! \ With "A" assume singular number. SpeechAct 0 indefartcon ! \ Reset; 16apr2011 THEN \ End of test for positive indefartcon; 16apr2011 0 indefartcon ! \ Reset for safety; 6oct2011 THEN motjuste @ ghost @ = IF defartcon @ 1 = IF \ from WH0-query; 16apr2011 midway @ t @ DO I 0 de{ @ 117 = IF \ If 117=THE found; 10nov2012 I 2 de{ @ quobjnum @ = IF \ number? 4mar2013 I 4 de{ @ dbacon @ = IF \ acc. dba? 4mar2013 I 8 de{ @ aud ! \ auditory engram 4mar2012 THEN \ end of dba-test; 4mar2013 LEAVE \ one engram suffices; 5mar2013 THEN \ end of number-test; 4mar2012 THEN -1 +LOOP SpeechAct 0 defartcon ! \ Reset; 16apr2011 THEN \ End of test for positive defartcon; 16apr2011 THEN THEN THEN dirobj @ 1 = IF motjuste @ ghost ! THEN ( http://thebeez.home.xs4all.nl/4tH ) 0 whoflag ! \ call DeArticle only once; 17nov2012 ; ( http://code.google.com/p/mindforth/wiki/EnArticle )