From 5766d566a8477cd8d651eb51cd6fb2359a976be5 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Dec 2005 16:28:45 +0000 Subject: multimodal for Swedish --- examples/tram/README | 15 --------------- examples/tram/Tram.gf | 33 --------------------------------- examples/tram/TramEng.gf | 5 ----- examples/tram/TramFre.gf | 5 ----- examples/tram/TramI.gf | 44 -------------------------------------------- examples/tram/TramSwe.gf | 5 ----- examples/tram0/README | 15 +++++++++++++++ examples/tram0/Tram.gf | 33 +++++++++++++++++++++++++++++++++ examples/tram0/TramEng.gf | 5 +++++ examples/tram0/TramFre.gf | 5 +++++ examples/tram0/TramI.gf | 44 ++++++++++++++++++++++++++++++++++++++++++++ examples/tram0/TramSwe.gf | 5 +++++ 12 files changed, 107 insertions(+), 107 deletions(-) delete mode 100644 examples/tram/README delete mode 100644 examples/tram/Tram.gf delete mode 100644 examples/tram/TramEng.gf delete mode 100644 examples/tram/TramFre.gf delete mode 100644 examples/tram/TramI.gf delete mode 100644 examples/tram/TramSwe.gf create mode 100644 examples/tram0/README create mode 100644 examples/tram0/Tram.gf create mode 100644 examples/tram0/TramEng.gf create mode 100644 examples/tram0/TramFre.gf create mode 100644 examples/tram0/TramI.gf create mode 100644 examples/tram0/TramSwe.gf (limited to 'examples') diff --git a/examples/tram/README b/examples/tram/README deleted file mode 100644 index 552b160f3..000000000 --- a/examples/tram/README +++ /dev/null @@ -1,15 +0,0 @@ -Björn Bringert's tram grammars (user side, without place names) -implemented as an example of lib/resource/abstract/Multimodal. - -For documentation of the original system, see - - http://www.cs.chalmers.se/~bringert/gf/tramdemo.html - -To try, do in gf - - i -src TramEng.gf - gr | l -tr | p - -Clicks appear as coordinates on the right of the semicolon. - -AR 7/11/2005. diff --git a/examples/tram/Tram.gf b/examples/tram/Tram.gf deleted file mode 100644 index bcd9f7b7c..000000000 --- a/examples/tram/Tram.gf +++ /dev/null @@ -1,33 +0,0 @@ -abstract Tram = { - -cat - Dep ; -- from here, from Angered - Dest ; -- to here, to Angered - Query ; -- message sent to the dialogue manager: sequentialized - Input ; -- user input: parallel text and clicks - Click ; -- map clicks - -fun - QInput : Input -> Query ; -- sequentialize user input - -fun - GoFromTo : Dep -> Dest -> Input ; -- user input "want to go from a to b" - GoToFrom : Dest -> Dep -> Input ; -- user input "want to go to a from b" - ComeFrom : Dep -> Input ; -- user input "want to come from x (to where I am now) - GoTo : Dest -> Input ; -- user input "want to go to x (from where I am now) - - DepClick : Click -> Dep ; -- "from here" with click - DestClick : Click -> Dest ; -- "to here" with click - DepHere : Dep ; -- "from here" indexical - DestHere : Dest ; -- "to here" indexical - DepNamed : String -> Dep ; -- from a place name - DestNamed : String -> Dest ; -- to a place name - - CCoord : Int -> Int -> Click ; - ---- the syntax of here (prep + adverb, not prep + np) prevent these --- Place ; -- any way to identify a place: name, click, or indexical "here" --- PClick : Click -> Place ; -- click associated with a "here" --- PHere : Place ; -- indexical "here", without a click - -} diff --git a/examples/tram/TramEng.gf b/examples/tram/TramEng.gf deleted file mode 100644 index 58a7bd8de..000000000 --- a/examples/tram/TramEng.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:resource/abstract:resource/english:prelude - -concrete TramEng of Tram = TramI with - (Multimodal = MultimodalEng), - (Math = MathEng) ; diff --git a/examples/tram/TramFre.gf b/examples/tram/TramFre.gf deleted file mode 100644 index 4d6909640..000000000 --- a/examples/tram/TramFre.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:resource/abstract:resource/french:resource/romance:prelude - -concrete TramFre of Tram = TramI with - (Multimodal = MultimodalFre), - (Math = MathFre) ; diff --git a/examples/tram/TramI.gf b/examples/tram/TramI.gf deleted file mode 100644 index 384cdbf3b..000000000 --- a/examples/tram/TramI.gf +++ /dev/null @@ -1,44 +0,0 @@ -incomplete concrete TramI of Tram = open Multimodal, Math in { - -flags startcat=Query ; lexer=textlit ; - -lincat - Dep, Dest = DAdv ; - Query = Phr ; -- top level, plain string - Input = MS ; -- two parallel sequences (text and clicks) - Click = Point ; - -lin - QInput i = SentMS PPos i ; - - GoFromTo x y = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x (ConsDAdv y BaseDAdv)) ; - - GoToFrom x y = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x (ConsDAdv y BaseDAdv)) ; - - ComeFrom x = - ModDemV want_VV come_V (DemNP i_NP) - (ConsDAdv x BaseDAdv) ; - - GoTo x = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x BaseDAdv) ; - - DepClick c = here7from_DAdv c ; - DestClick c = here7to_DAdv c ; - DepHere = DemAdv here7from_Adv ; - DestHere = DemAdv here7to_Adv ; - DepNamed s = PrepDNP from_Prep (DemNP (UsePN (SymbPN s))) ; - DestNamed s = PrepDNP to_Prep (DemNP (UsePN (SymbPN s))) ; - - CCoord x y = {s5 = "(" ++ x.s ++ "," ++ y.s ++ ")" ; lock_Point = <>} ; - --- Place = DNP ; -- name + click - not possible for "here" --- PClick c = this_DNP c ; --- PHere = DemNP this_NP ; --- PNamed s = DemNP (UsePN (SymbPN s)) ; - -} diff --git a/examples/tram/TramSwe.gf b/examples/tram/TramSwe.gf deleted file mode 100644 index 6875fafa2..000000000 --- a/examples/tram/TramSwe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:resource/abstract:resource/swedish:resource/scandinavian:prelude - -concrete TramSwe of Tram = TramI with - (Multimodal = MultimodalSwe), - (Math = MathSwe) ; diff --git a/examples/tram0/README b/examples/tram0/README new file mode 100644 index 000000000..552b160f3 --- /dev/null +++ b/examples/tram0/README @@ -0,0 +1,15 @@ +Björn Bringert's tram grammars (user side, without place names) +implemented as an example of lib/resource/abstract/Multimodal. + +For documentation of the original system, see + + http://www.cs.chalmers.se/~bringert/gf/tramdemo.html + +To try, do in gf + + i -src TramEng.gf + gr | l -tr | p + +Clicks appear as coordinates on the right of the semicolon. + +AR 7/11/2005. diff --git a/examples/tram0/Tram.gf b/examples/tram0/Tram.gf new file mode 100644 index 000000000..bcd9f7b7c --- /dev/null +++ b/examples/tram0/Tram.gf @@ -0,0 +1,33 @@ +abstract Tram = { + +cat + Dep ; -- from here, from Angered + Dest ; -- to here, to Angered + Query ; -- message sent to the dialogue manager: sequentialized + Input ; -- user input: parallel text and clicks + Click ; -- map clicks + +fun + QInput : Input -> Query ; -- sequentialize user input + +fun + GoFromTo : Dep -> Dest -> Input ; -- user input "want to go from a to b" + GoToFrom : Dest -> Dep -> Input ; -- user input "want to go to a from b" + ComeFrom : Dep -> Input ; -- user input "want to come from x (to where I am now) + GoTo : Dest -> Input ; -- user input "want to go to x (from where I am now) + + DepClick : Click -> Dep ; -- "from here" with click + DestClick : Click -> Dest ; -- "to here" with click + DepHere : Dep ; -- "from here" indexical + DestHere : Dest ; -- "to here" indexical + DepNamed : String -> Dep ; -- from a place name + DestNamed : String -> Dest ; -- to a place name + + CCoord : Int -> Int -> Click ; + +--- the syntax of here (prep + adverb, not prep + np) prevent these +-- Place ; -- any way to identify a place: name, click, or indexical "here" +-- PClick : Click -> Place ; -- click associated with a "here" +-- PHere : Place ; -- indexical "here", without a click + +} diff --git a/examples/tram0/TramEng.gf b/examples/tram0/TramEng.gf new file mode 100644 index 000000000..58a7bd8de --- /dev/null +++ b/examples/tram0/TramEng.gf @@ -0,0 +1,5 @@ +--# -path=.:resource/abstract:resource/english:prelude + +concrete TramEng of Tram = TramI with + (Multimodal = MultimodalEng), + (Math = MathEng) ; diff --git a/examples/tram0/TramFre.gf b/examples/tram0/TramFre.gf new file mode 100644 index 000000000..4d6909640 --- /dev/null +++ b/examples/tram0/TramFre.gf @@ -0,0 +1,5 @@ +--# -path=.:resource/abstract:resource/french:resource/romance:prelude + +concrete TramFre of Tram = TramI with + (Multimodal = MultimodalFre), + (Math = MathFre) ; diff --git a/examples/tram0/TramI.gf b/examples/tram0/TramI.gf new file mode 100644 index 000000000..384cdbf3b --- /dev/null +++ b/examples/tram0/TramI.gf @@ -0,0 +1,44 @@ +incomplete concrete TramI of Tram = open Multimodal, Math in { + +flags startcat=Query ; lexer=textlit ; + +lincat + Dep, Dest = DAdv ; + Query = Phr ; -- top level, plain string + Input = MS ; -- two parallel sequences (text and clicks) + Click = Point ; + +lin + QInput i = SentMS PPos i ; + + GoFromTo x y = + ModDemV want_VV go_V (DemNP i_NP) + (ConsDAdv x (ConsDAdv y BaseDAdv)) ; + + GoToFrom x y = + ModDemV want_VV go_V (DemNP i_NP) + (ConsDAdv x (ConsDAdv y BaseDAdv)) ; + + ComeFrom x = + ModDemV want_VV come_V (DemNP i_NP) + (ConsDAdv x BaseDAdv) ; + + GoTo x = + ModDemV want_VV go_V (DemNP i_NP) + (ConsDAdv x BaseDAdv) ; + + DepClick c = here7from_DAdv c ; + DestClick c = here7to_DAdv c ; + DepHere = DemAdv here7from_Adv ; + DestHere = DemAdv here7to_Adv ; + DepNamed s = PrepDNP from_Prep (DemNP (UsePN (SymbPN s))) ; + DestNamed s = PrepDNP to_Prep (DemNP (UsePN (SymbPN s))) ; + + CCoord x y = {s5 = "(" ++ x.s ++ "," ++ y.s ++ ")" ; lock_Point = <>} ; + +-- Place = DNP ; -- name + click - not possible for "here" +-- PClick c = this_DNP c ; +-- PHere = DemNP this_NP ; +-- PNamed s = DemNP (UsePN (SymbPN s)) ; + +} diff --git a/examples/tram0/TramSwe.gf b/examples/tram0/TramSwe.gf new file mode 100644 index 000000000..6875fafa2 --- /dev/null +++ b/examples/tram0/TramSwe.gf @@ -0,0 +1,5 @@ +--# -path=.:resource/abstract:resource/swedish:resource/scandinavian:prelude + +concrete TramSwe of Tram = TramI with + (Multimodal = MultimodalSwe), + (Math = MathSwe) ; -- cgit v1.2.3