diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-16 18:48:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-16 18:48:46 +0000 |
| commit | 5082ebd0f4a0c4ba04aab54d05290e6141e44129 (patch) | |
| tree | 56ff9778acad14e39f424e759b7c3d6d7925395e /examples/dialogue/ResGodis.gf | |
| parent | ecf429c593b7b986b02429f653f313c4e3875821 (diff) | |
renamed Godis to Prolog ; added Fin
Diffstat (limited to 'examples/dialogue/ResGodis.gf')
| -rw-r--r-- | examples/dialogue/ResGodis.gf | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/examples/dialogue/ResGodis.gf b/examples/dialogue/ResGodis.gf deleted file mode 100644 index f6d998d1b..000000000 --- a/examples/dialogue/ResGodis.gf +++ /dev/null @@ -1,18 +0,0 @@ -resource ResGodis = open Prelude in { - - oper - bracket : Str -> Str = \s -> "[" ++ s ++ "]" ; - - app1 : Str -> Str -> Str = \f,x -> f ++ paren x ; - - apps : Str -> SS -> SS = \f,x -> ss (app1 f x.s) ; - - request : Str -> Str = app1 "request" ; - answer : Str -> Str = app1 "answer" ; - - req_ans : Str -> Str -> Str -> Str = \f,t,k -> - bracket (request f ++ "," ++ answer (app1 t k)) ; - -} - --- [request(add_event), answer(event_to_store(meeting))] |
