diff options
Diffstat (limited to 'examples/computer/ComputerFin.gf')
| -rw-r--r-- | examples/computer/ComputerFin.gf | 153 |
1 files changed, 0 insertions, 153 deletions
diff --git a/examples/computer/ComputerFin.gf b/examples/computer/ComputerFin.gf deleted file mode 100644 index 01d6fdbd1..000000000 --- a/examples/computer/ComputerFin.gf +++ /dev/null @@ -1,153 +0,0 @@ ---# -path=.:alltenses - -concrete ComputerFin of Computer = DatorFin, NumeralFin, GrammarFin [ - --- used to be the "mini" resource of GF book, chapter 9, but now larger - --- cat - S, -- sentence - Cl, -- clause - NP, -- noun phrase - VP, -- verb phrase - AP, -- adjectival phrase - CN, -- common noun - Det, -- determiner - N, -- noun - A, -- adjective - V, -- verb (one-place, intransitive) - V2, -- two-place verb (two-place, transitive or prepositional) - AdA, -- ad-adjective - Tense, -- tense - Pol, -- polarity - Conj, -- conjunction - - Pron, -- pronoun - Numeral, - --- fun - UseCl , -- Tense -> Pol -> Cl -> S, - PredVP , -- NP -> VP -> Cl, ---- ComplV2, -- V2 -> NP -> VP, - DetCN , -- Det -> CN -> NP, - UsePron, ---- ModCN , -- AP -> CN -> CN, - ---- CompAP , -- AP -> VP, - AdAP , -- AdA -> AP -> AP, - ---- ConjS , -- Conj -> S -> S -> S, ---- ConjAP , -- Conj -> AP -> AP -> AP, ---- ConjNP , -- Conj -> NP -> NP -> NP, - - UseV , -- V -> VP, - UseN , -- N -> CN, - PositA, -- A -> AP, - ---- a_Det, the_Det, - every_Det, -- Det, ---- this_Det, these_Det, -- Det, ---- that_Det, those_Det, -- Det, - i_Pron, youSg_Pron, he_Pron, she_Pron, we_Pron, youPl_Pron, they_Pron, -- NP, - very_AdA, -- AdA, - - TTAnt, -- Tense -> Ant -> Temp ; - PPos, PNeg, -- Pol, - TPres, TPast, TFut, TCond, -- Tense, - STense, SCond, SFut, SPast, SPres, -- scand tense - ASimul, AAnter, - - and_Conj, or_Conj, -- Conj, - --- extension of the mini grammar - --- cat - Text, -- text (with punctuation) e.g. "Who knows it?" - Utt, -- utterance (sentence or question) e.g. "does she walk" - QS, -- question (fixed tense) e.g. "who doesn't walk" - QCl, -- question clause (variable tense) e.g. "who walks" - ClSlash, -- clause missing noun phrase e.g. "she walks with" - Adv, -- adverb e.g. "here" - Prep, -- preposition (and/or case) e.g. "with" - VS, -- sentence-complement verb e.g. "know" - VQ, -- question-complement verb e.g. "wonder" - VV, -- verb-phrase-complement verb e.g. "want" - IP, -- interrogative pronoun e.g. "who" - PN, -- proper name e.g. "John" - Subj, -- subjunction e.g. "because" - IAdv, -- interrogative adverb e.g. "why" - - ListAP, - ListNP, - ListS, - Temp, - Comp, - Ant, - - Imp, Bool, True, False, Voc, - --- fun - - UttS , -- S -> Utt, - UttQS, -- QS -> Utt, - - UseQCl, -- Tense -> Pol -> QCl -> QS, - - QuestCl , -- Cl -> QCl, -- does she walk - QuestVP , -- IP -> VP -> QCl, -- who walks - QuestSlash, -- IP -> ClSlash -> QCl, -- who does she walk with - QuestIAdv , -- IAdv -> Cl -> QCl, -- why does she walk - - SubjCl, -- Cl -> Subj -> S -> Cl, -- she walks because we run - - PrepNP , -- Prep -> NP -> Adv, -- in the house - - ComplVS, -- VS -> S -> VP, -- know that she walks - ComplVQ, -- VQ -> QS -> VP, -- wonder who walks - ComplVV, -- VV -> VP -> VP, -- want to walk - ---- SlashV2 , -- NP -> V2 -> ClSlash, -- she loves ---- SlashPrep, -- Cl -> Prep -> ClSlash, -- she walks with - - AdvVP, -- VP -> Adv -> VP, -- walk in the city - - UsePN, -- PN -> NP, -- John ---- AdvNP, -- NP -> Adv -> NP, -- the man in the city - - whoSg_IP , -- IP, - here_Adv, -- Adv, - by_Prep, in_Prep, of_Prep, with_Prep, -- Prep, - can_VV, must_VV, want_VV, -- VV, - although_Subj, because_Subj, when_Subj, if_Subj, -- Subj, - when_IAdv, where_IAdv, why_IAdv-- IAdv, - -] ** open SyntaxFin, (S = SyntaxFin) in { - --- functions with different type - -lin - TextS s = mkText (lin S s) ; - TextQS qs = mkText (lin QS qs) ; - TextImp vp = mkText (mkImp (lin VP vp)) ; - - ComplV2 v np = mkVP v np ; - ModCN ap cn = lin CN (mkCN <lin AP ap : AP> <lin CN cn : CN>) ; - CompAP ap = mkVP (lin AP ap) ; - ConjS co x y = mkS (lin Conj co) (lin S x) (lin S y) ; - ConjAP co x y = mkAP co x y ; - ConjNP co x y = mkNP co x y ; - a_Det = mkDet a_Quant ; - the_Det = mkDet the_Quant ; - aPl_Det = mkDet a_Quant plNum ; - thePl_Det = mkDet the_Quant plNum ; - this_Det = S.this_Det ; - these_Det = S.these_Det ; - that_Det = S.that_Det ; - those_Det = S.those_Det ; - possDet p = S.mkDet <p : Pron> ; - numeralDet n = S.mkDet <n : Numeral> ; - SubjS subj a b = mkS (S.mkAdv <subj : Subj> <a : S>) b ; - CompAdv p pp = mkVP (S.mkAdv <p : Prep> <pp : NP>) ; - SlashV2 np v2 = mkClSlash np v2 ; - SlashPrep cl p = mkClSlash (lin Cl cl) <p : Prep> ; - AdvCN cn p pp = mkCN <lin CN cn : CN> (mkAdv <p : Prep> <pp : NP>) ; -} |