extended dialogue example

This commit is contained in:
aarne
2006-05-16 20:44:33 +00:00
parent 800f6ee7e2
commit 8e5078084f
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 = <>
} ;
}