examples/dialogue/AuxDialogue.gf


1
2
3
4
5
6
7
8
9
10
11
12
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 = <>
      } ;

}