extended dialogue example

This commit is contained in:
aarne
2006-05-16 20:44:33 +00:00
parent 5082ebd0f4
commit 29d04d8a90
16 changed files with 369 additions and 34 deletions

View File

@@ -0,0 +1,13 @@
interface AuxDialogue = open Lang in {
oper
defN : N -> NP = \n ->
DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN n) ;
mkMove : Str -> Phr = \s -> {s = variants {
s ;
s ++ please_Voc.s
} ;
lock_Phr = <>
} ;
}