diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2018-07-04 10:09:58 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2018-07-04 10:09:58 +0200 |
| commit | c6f4edaea5f1074ba682fac5d711016f0136998f (patch) | |
| tree | bb49b8bac2e3cafd3c1f997115bf5bb841554eab /examples/phrasebook/SentencesChi.gf | |
| parent | 00476ae38687fb7d33081130822cbd4e8f34cfd3 (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/SentencesChi.gf')
| -rw-r--r-- | examples/phrasebook/SentencesChi.gf | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/examples/phrasebook/SentencesChi.gf b/examples/phrasebook/SentencesChi.gf deleted file mode 100644 index 7ca72eb56..000000000 --- a/examples/phrasebook/SentencesChi.gf +++ /dev/null @@ -1,62 +0,0 @@ -concrete SentencesChi of Sentences = NumeralChi ** SentencesI - [QWhereModVerbPhrase, APlace,ThePlace, PropCit, CitiNat, ACitizen, Nationality, CitizenShip, ByTransp, GObjectPlease, AKnowPerson, QDoHave , QWhereDoVerbPhrase, SHaveNo, AHaveCurr] - with - (Syntax = SyntaxChi), - (Symbolic = SymbolicChi), - (Lexicon = LexiconChi) ** open SyntaxChi, (P = ParadigmsChi) in { - -flags coding=utf8 ; -lincat - Citizenship = N ; - Nationality = {lang : NP ; country : NP; prop : A }; -lin - ThePlace kind = - let name : NP = lin NP (Syntax.mkNP theSg_Det kind.name) in { - name = lin NP name ; - at = mkAdv kind.at (lin NP name) ; - to = mkAdv kind.to (lin NP name) - } ; - APlace kind = - let name : NP = lin NP (Syntax.mkNP aSg_Det kind.name) in { - name = lin NP name ; - at = mkAdv kind.at (lin NP name) ; - to = mkAdv kind.to (lin NP name) - } ; - - ACitizen p n = mkCl p.name (lin N {s = n.s ++ "人" } ) ; -- to get 俄罗斯人, not 俄罗斯(人)的 ; - CitiNat n = n.prop ; -- lin A { s = n.prop.s ++ "人" ; lock_A = <> ; monoSyl = False} ; - - PropCit c = lin A { s = c.s ; lock_A = <>; monoSyl = True } ; - - ByTransp t = t.by ; - - QWhereModVerbPhrase m p vp = mkQS (mkQCl zai_where_IAdv (mkCl p.name (mkVP m vp))) ; - - GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_shang_Voc) | lin Text (mkUtt o) ; - - AKnowPerson p q = mkCl p.name (P.mkV2 "认识") q.name ; - - - QDoHave p obj = mkQS (mkQCl (mkCl p.name have_V2 obj)) ; - - QWhereDoVerbPhrase p vp = mkQS (mkQCl qu_where_IAdv (mkCl p.name vp)) ; - - SHaveNo p k = mkS negativePol (mkCl p.name have_V2 (mkNP k)) ; - - AHaveCurr p curr = mkCl p.name have_V2 (mkNP curr) ; - - MCan = can_VV ; - MWant = want_VV ; - MMust = must_VV ; - - - oper - qu_where_IAdv = mkIAdvL "去哪里" ; - zai_where_IAdv = mkIAdvL "在哪里" ; - where_m_IAdv : VV -> SS = \m -> mkIAdvL m.s ; -- ( "想在哪里" ) ; - - have_or_not_V2 = P.mkV2 (P.mkV "有没有" "了" "着" "在" "过" "没") ; - - please_shang_Voc : SS = ss "请上" ; - - -} |
