summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesJpn.gf
diff options
context:
space:
mode:
authorJohn J. Camilleri <john@digitalgrammars.com>2018-07-04 10:09:58 +0200
committerJohn J. Camilleri <john@digitalgrammars.com>2018-07-04 10:09:58 +0200
commitc6f4edaea5f1074ba682fac5d711016f0136998f (patch)
treebb49b8bac2e3cafd3c1f997115bf5bb841554eab /examples/phrasebook/SentencesJpn.gf
parent00476ae38687fb7d33081130822cbd4e8f34cfd3 (diff)
Remove examples directory; these now live in gf-contrib
All changes have been reflected in the gf-contrib repository: https://github.com/GrammaticalFramework/gf-contrib Now, for WebSetup to build the example grammars, one must have gf-contrib cloned in the same top-level directory as GF. When this isn't the case, WebSetup displays a notice without failing.
Diffstat (limited to 'examples/phrasebook/SentencesJpn.gf')
-rw-r--r--examples/phrasebook/SentencesJpn.gf62
1 files changed, 0 insertions, 62 deletions
diff --git a/examples/phrasebook/SentencesJpn.gf b/examples/phrasebook/SentencesJpn.gf
deleted file mode 100644
index 4fdaf5fb5..000000000
--- a/examples/phrasebook/SentencesJpn.gf
+++ /dev/null
@@ -1,62 +0,0 @@
-concrete SentencesJpn of Sentences = NumeralJpn **
- SentencesI - [
- VDrink,VEat,VRead,VWait,VWrite,
- phrasePlease, mkSentence, mkPhrase,
- NameNN,
- PSentence, PQuestion, GObjectPlease,
- ACitizen, Citizenship, CitiNat, Nationality, NPNationality, mkNPNationality, PropCit, PCitizenship
- ]
-with
- (Syntax = SyntaxJpn),
--- (Symbolic = SymbolicJpn),
- (Lexicon = LexiconJpn) ** open SyntaxJpn, ParadigmsJpn in {
-
-flags coding = utf8 ;
-
-lincat
-
- Citizenship = NPCitizenship ;
- Nationality = NPNationality ;
-
-lin
- VDrink = v2toVP drink_V2 ;
- VEat = v2toVP eat_V2 ;
- VRead = v2toVP read_V2 ;
- VWait = v2toVP wait_V2 ;
- VWrite = v2toVP write_V2 ;
-
- NameNN = mkNP (mkPN "NN") ;
-
- PSentence s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '.'
- PQuestion s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '?'
-
- GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_Voc) | lin Text (mkPhr (mkUtt o)) ;
-
- ACitizen p n = mkCl p.name n.citizenship ;
-
- CitiNat n = {prop = n.prop ; citizenship = n.citizenship} ;
-
- PropCit c = c.prop ;
-
- PCitizenship x = mkPhrase (mkUtt x.citizenship) ;
-
-oper
- v2toVP : V2 -> VP = \v2 -> mkVP <lin V (v2 ** {needSubject = True}) : V> ;
-
- phrasePlease : Utt -> Text = \u -> lin Text (mkPhr u) | lin Text (mkPhr noPConj u please_Voc) ;
-
- mkPhrase : Utt -> Text = \u -> lin Text (mkPhr u) ; -- no punctuation
- mkSentence : Utt -> Text = \t -> lin Text (postfixSS "." (mkPhr t) | (mkPhr t)) ; -- optional .
-
- NPCitizenship : Type = {prop : A ; citizenship : NP} ;
-
- NPNationality : Type = NPCitizenship ** {lang : NP ; country : NP} ;
-
- mkNPNationality : NP -> NP -> A -> NP -> NPNationality = \la,co,pro,ci ->
- {lang = la ;
- country = co ;
- prop = pro ;
- citizenship = ci
- } ;
-
-}