mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
42
old-examples/dialogue/DialogueProlog.gf
Normal file
42
old-examples/dialogue/DialogueProlog.gf
Normal file
@@ -0,0 +1,42 @@
|
||||
--# -path=.:prelude
|
||||
|
||||
concrete DialogueProlog of Dialogue = open ResProlog, Prelude in {
|
||||
|
||||
flags lexer=codelit ; unlexer=code ;
|
||||
|
||||
lincat
|
||||
Move = SS ;
|
||||
Action = SS ;
|
||||
Proposition = SS ;
|
||||
Question = SS ;
|
||||
Kind = SS ;
|
||||
Object = SS ;
|
||||
Oper0 = SS ;
|
||||
Oper1 = {s, x : Str} ;
|
||||
Oper2 = {s, x, y : Str} ;
|
||||
|
||||
lin
|
||||
MRequest a = a ;
|
||||
MConfirm a = a ; --- ??
|
||||
MAnswer a = a ; --- ??
|
||||
MIssue a = ss (bracket (app1 "ask" a.s)) ; --- ??
|
||||
|
||||
MYes = ss (bracket (app1 "answer" "yes")) ;
|
||||
MNo = ss (bracket (app1 "answer" "no")) ;
|
||||
MObject _ ob = ss (bracket (apps "answer" ob).s) ;
|
||||
|
||||
QKind k = ss (app2 "q" "X" (app1 k.s "X")) ;
|
||||
|
||||
AOper0 op = ss (bracket (request op.s)) ;
|
||||
AOper1 _ op x = ss (req_ans op.s op.x x.s) ;
|
||||
AOper2 _ _ op x y =
|
||||
ss (bracket (request op.s ++ "," ++
|
||||
answer (app1 op.x x.s) ++ "," ++ answer (app1 op.y y.s))) ;
|
||||
|
||||
OAll = apps "all" ;
|
||||
OIndef = apps "indef" ;
|
||||
ODef = apps "def" ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user