changed names of resource-1.3; added a note on homepage on release

old-examples/travel/Essential.gf

@@ -0,0 +1,30 @@
+-- the essential phrases from Lone Planet Thai Phrasebook
+
+abstract Essential = {
+
+cat 
+  Phrase ;
+  Number ;
+
+fun
+  Hello           : Phrase ;
+  Goodbye         : Phrase ;
+  Please          : Phrase ;
+  ThankYou        : Phrase ;
+  YoureWelcome    : Phrase ;
+  Yes             : Phrase ;
+  No              : Phrase ;
+  ExcuseAttention : Phrase ;
+  ExcuseGetPast   : Phrase ;
+  Sorry           : Phrase ;
+  IUnderstand     : Phrase ;
+  IDontUnderstand : Phrase ;
+  Help            : Phrase ;
+  WhereAreToilets : Phrase ;
+
+  
+  SayNumber : Number -> Phrase ;
+
+  One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten : Number ;
+
+}

old-examples/travel/EssentialThai.gf

@@ -0,0 +1,44 @@
+--# -path=.:prelude:resource-1.0/thai
+
+-- the essential phrases from Lone Planet Thai Phrasebook
+
+concrete EssentialThai of Essential = open Prelude, StringsTha in {
+
+flags unlexer=concat ; 
+startcat=Phrase ;
+
+lincat 
+  Phrase = SS ;
+  Number = SS ;
+
+lin
+  Hello           = ss (sawat_s ++ dii_s) ;
+  Goodbye         = ss (laa_s ++ koon_s) ;
+  Please          = ss (khoo_s) ;
+  ThankYou        = ss (khoop_s ++ khun_s) ;
+  YoureWelcome    = ss (yin_s ++ dii_s) ;
+  Yes             = ss (chay_s) ;
+  No              = ss (may_s) ;
+  ExcuseAttention = ss (khoo_s ++ thoot_s) ;
+  ExcuseGetPast   = ss (khoo_s ++ aphai_s) ;
+  Sorry           = ss (khoo_s ++ thoot_s) ;
+  IUnderstand     = ss (phom_s ++ khow_s ++ jai_s) ;
+  IDontUnderstand = ss (phom_s ++ may_s ++ khow_s ++ jai_s) ;
+  Help            = ss (chuay_s ++ duay_s) ;
+  WhereAreToilets = ss (hoog_s ++ nam_s ++ yuu_s ++ thii_s ++ nai_s) ;
+
+  
+  SayNumber n = n ;
+
+  One = ss (nvg_s) ; 
+  Two = ss (soog_s) ; 
+  Three = ss (saam_s) ; 
+  Four = ss (sii_s) ; 
+  Five = ss (haa_s) ; 
+  Six = ss (hok_s) ; 
+  Seven = ss (cet_s) ; 
+  Eight = ss (peet_s) ; 
+  Nine = ss (kaaw_s) ; 
+  Ten = ss (sip_s) ;
+
+}

old-examples/travel/Travel.gf

@@ -0,0 +1,54 @@
+abstract Travel = {
+
+  flags startcat=Phrase ;
+
+  cat
+    Phrase ;
+
+    Greeting ;
+    Order ; 
+    Question ;
+    Sentence ;
+
+    Object ;
+    Kind ;
+    Quality ;
+    Number ;
+
+    Speaker ;
+    Hearer ;
+    Gender ;
+    Quantity ;
+
+  fun
+    PGreeting : Greeting -> Speaker -> Hearer -> Phrase ;
+    POrder    : Order    -> Speaker -> Hearer -> Phrase ;
+    PQuestion : Question -> Speaker -> Hearer -> Phrase ;
+    PSentence : Sentence -> Speaker -> Hearer -> Phrase ;
+
+    MkSpeaker : Gender -> Quantity -> Speaker ;
+    MkHearer  : Gender -> Quantity -> Hearer ;
+
+    Male, Female : Gender ;
+    Single, Many : Quantity ;
+
+    Hello : Greeting ;
+    Thanks : Greeting ;
+
+    IWant : Object -> Order ;
+    
+    DoYouHave : Kind -> Question ;
+    IsIt : Object -> Quality -> Sentence ;
+
+    ItIs : Object -> Quality -> Sentence ;
+    
+    Indef : Kind -> Object ;
+    This  : Kind -> Object ;
+    NumberObjects : Number -> Kind -> Object ;
+
+    One, Two, Five, Ten : Number ;
+
+    Mango : Kind ;
+    Green : Quality ;
+
+}

old-examples/travel/TravelTha.gf

@@ -0,0 +1,73 @@
+--# -path=.:prelude
+
+concrete TravelTha of Travel = open Prelude in {
+
+  flags coding=utf8 ;
+
+-- this file is processed by
+--  GF.Text.Thai.thaiFile "../examples/travel/TravelTha.gf" 
+      (Just "../examples/travel/TravelThai.gf")
+--  GF.Text.Thai.thaiPronFile "../examples/travel/TravelTha.gf" 
+      (Just "../examples/travel/TravelThaiPron.gf")
+-- to produce target Thai script and pronunciation files.
+
+  lincat
+    Phrase,
+
+    Greeting,
+    Order,
+    Question,
+    Sentence,
+    Object = SS ;
+
+    Kind = {s,c : Str} ; -- c is classifier
+
+    Quality,
+    Number,
+
+    Speaker,
+    Hearer,
+    Gender,
+    Quantity = SS ;
+
+  lin
+    PGreeting g s h = ss (g.s ++ s.s ++ h.s) ;
+    POrder    g s h = ss (g.s ++ s.s ++ h.s) ;
+    PQuestion g s h = ss (g.s ++ s.s ++ h.s) ;
+    PSentence g s h = ss (g.s ++ s.s ++ h.s) ;
+
+    MkSpeaker = cc2 ;
+    MkHearer _ _ = ss [] ;
+
+    Male = ss "k2ra.b" ;
+    Female = ss "k2T1a." ;
+
+    Single, Many = ss [] ;
+
+    Hello = ss ["swas di:"] ;
+    Thanks = ss ["k1Ob k2un'"] ;
+
+    IWant = prefixSS "eOa:" ;
+    
+    DoYouHave = postfixSS ["mi: a&hm"] ;
+    IsIt x q = ss (x.s ++ q.s ++ "a&hm") ;
+
+    ItIs = cc2 ;
+    
+    Indef k = ss (k.s ++ k.c ++ "nvT1g") ;
+    This  k = ss (k.s ++ k.c ++ "ni:T2") ;
+
+    NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
+
+    One  = ss "nvT1g" ;
+    Two  = ss "sOg" ;
+    Five = ss "ha:" ;
+    Ten  = ss "sib" ;
+
+    Mango = cls ["ma. mT1wg"] "lu:k" ;
+    Green = ss ["si: ek1i:yw"] ;
+
+  oper
+    cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
+
+}

old-examples/travel/TravelThai.gf

@@ -0,0 +1,71 @@
+--# -path=.:prelude
+
+concrete TravelThai of Travel = open Prelude in {
+
+  flags coding=utf8 ;
+
+-- this file is processed by
+--  GF.Text.Thai.thaiFile "À€À€เÀ€à¸°à¸¡à¸›à¸¥à¹€À€à¸•à¸£à¸°à¸¶à¹€À€À€ระึเลÀ€à¸«à¸±à¸‡à¸<C3A0>" (Just TGT)
+--  GF.Text.Thai.thaiPronFile "À€À€เÀ€à¸°à¸¡à¸›à¸¥à¹€À€à¸•à¸£à¸°à¸¶à¹€À€À€ระึเลÀ€à¸«à¸±à¸‡à¸<C3A0>" (Just TGT)
+-- to produce target Thai script and pronunciation files.
+
+  lincat
+    Phrase,
+
+    Greeting,
+    Order,
+    Question,
+    Sentence,
+    Object = SS ;
+
+    Kind = {s,c : Str} ; -- c is classifier
+
+    Quality,
+    Number,
+
+    Speaker,
+    Hearer,
+    Gender,
+    Quantity = SS ;
+
+  lin
+    PGreeting g s h = ss (g.s ++ s.s ++ h.s) ;
+    POrder    g s h = ss (g.s ++ s.s ++ h.s) ;
+    PQuestion g s h = ss (g.s ++ s.s ++ h.s) ;
+    PSentence g s h = ss (g.s ++ s.s ++ h.s) ;
+
+    MkSpeaker = cc2 ;
+    MkHearer _ _ = ss [] ;
+
+    Male = ss "คระบ" ;
+    Female = ss "ค่ะ" ;
+
+    Single, Many = ss [] ;
+
+    Hello = ss ["สวัสดี"] ;
+    Thanks = ss ["ขอบคุณ"] ;
+
+    IWant = prefixSS "เอา" ;
+    
+    DoYouHave = postfixSS ["มีไหม"] ;
+    IsIt x q = ss (x.s ++ q.s ++ "ไหม") ;
+
+    ItIs = cc2 ;
+    
+    Indef k = ss (k.s ++ k.c ++ "นึ่ง") ;
+    This  k = ss (k.s ++ k.c ++ "นี้") ;
+
+    NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
+
+    One  = ss "นึ่ง" ;
+    Two  = ss "สอง" ;
+    Five = ss "หา" ;
+    Ten  = ss "สิบ" ;
+
+    Mango = cls ["มะม่วง"] "ลูà¸<C3A0>" ;
+    Green = ss ["สีเขียว"] ;
+
+  oper
+    cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
+
+}

old-examples/travel/TravelThaiPron.gf

@@ -0,0 +1,71 @@
+--# -path=.:prelude
+
+concrete TravelThaiPron of Travel = open Prelude in {
+
+  flags coding=utf8 ;
+
+-- this file is processed by
+--  GF.Text.Thai.thaiFile "m^eaeaveaveapltrrlhg-" (Just TGT)
+--  GF.Text.Thai.thaiPronFile "m^eaeaveaveapltrrlhg-" (Just TGT)
+-- to produce target Thai script and pronunciation files.
+
+  lincat
+    Phrase,
+
+    Greeting,
+    Order,
+    Question,
+    Sentence,
+    Object = SS ;
+
+    Kind = {s,c : Str} ; -- c is classifier
+
+    Quality,
+    Number,
+
+    Speaker,
+    Hearer,
+    Gender,
+    Quantity = SS ;
+
+  lin
+    PGreeting g s h = ss (g.s ++ s.s ++ h.s) ;
+    POrder    g s h = ss (g.s ++ s.s ++ h.s) ;
+    PQuestion g s h = ss (g.s ++ s.s ++ h.s) ;
+    PSentence g s h = ss (g.s ++ s.s ++ h.s) ;
+
+    MkSpeaker = cc2 ;
+    MkHearer _ _ = ss [] ;
+
+    Male = ss "khr'ap" ;
+    Female = ss "kh^a" ;
+
+    Single, Many = ss [] ;
+
+    Hello = ss ["s`awt d-ii"] ;
+    Thanks = ss ["kh`Op kh-un"] ;
+
+    IWant = prefixSS "O-eaa" ;
+    
+    DoYouHave = postfixSS ["m-ii m~ay"] ;
+    IsIt x q = ss (x.s ++ q.s ++ "m~ay") ;
+
+    ItIs = cc2 ;
+    
+    Indef k = ss (k.s ++ k.c ++ "n^vg") ;
+    This  k = ss (k.s ++ k.c ++ "n~ii") ;
+
+    NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
+
+    One  = ss "n^vg" ;
+    Two  = ss "s~Og" ;
+    Five = ss "h~aa" ;
+    Ten  = ss "s`ip" ;
+
+    Mango = cls ["m'a m^owg"] "l^uuk" ;
+    Green = ss ["s~ii kh`eiiyw"] ;
+
+  oper
+    cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
+
+}