forked from GitHub/gf-core
32 lines
501 B
Plaintext
32 lines
501 B
Plaintext
-- File name system.Prolog.gf
|
|
|
|
include
|
|
general.Abs.gf ;
|
|
../icm100.Prolog.gf ;
|
|
|
|
|
|
pattern
|
|
greet = "greet" ;
|
|
quit = "quit" ;
|
|
|
|
lin
|
|
ask q = {s = app "ask" q.s} ;
|
|
|
|
lin
|
|
---Language
|
|
change_language = {s = "change_language"} ;
|
|
language_alt = {s = "[" ++ "language" ++ "(" ++ "X" ++ ")" ++ "]" } ; -- hack!
|
|
|
|
---Actions
|
|
pattern
|
|
actionQ = "action" ;
|
|
|
|
lin
|
|
whQuestion f = {s = "X" ++ "^" ++ app f.s "X"} ;
|
|
altQuestion a1 a2 = {s = a1.s ++ a2.s};
|
|
|
|
--- Issue
|
|
issue i = {s = app "issue" i.s} ;
|
|
|
|
pattern
|
|
nil = "[]" ; |