added TryX modules for trying out resource API

This commit is contained in:
aarne
2007-10-09 08:58:48 +00:00
parent 67420e3c9d
commit 85ad81743e
19 changed files with 70 additions and 33 deletions

View File

@@ -59,8 +59,9 @@ alltenses:
$(GFCC) api/Syntax???.gf $(GFCC) api/Syntax???.gf
cp -p api/Constructors*.gfc api/Constructors*.gfr ../alltenses cp -p api/Constructors*.gfc api/Constructors*.gfr ../alltenses
cp -p api/Syntax*.gfc api/Syntax*.gfr ../alltenses cp -p api/Syntax*.gfc api/Syntax*.gfr ../alltenses
$(GFCC) api/Try???.gf
$(GFCC) -path=alltenses:prelude:api:api/toplevel api/toplevel/OverLangEng.gf $(GFCC) -path=alltenses:prelude:api:api/toplevel api/toplevel/OverLangEng.gf
mv api/toplevel/Over*.gfc ../alltenses mv api/toplevel/Over*.gfc api/Try*.gf? ../alltenses
langs: langs:
echo "s ;; pm | wf langs.gfcm" | $(GFCA) -path=present:prelude ../present/Lang???.gfc $(RTSS) echo "s ;; pm | wf langs.gfcm" | $(GFCA) -path=present:prelude ../present/Lang???.gfc $(RTSS)
@@ -101,8 +102,9 @@ present: chmod
$(GFCCP) -path=api:present:prelude api/Syntax???.gf $(GFCCP) -path=api:present:prelude api/Syntax???.gf
mv api/Constructors*.gfc api/Constructors*.gfr ../present mv api/Constructors*.gfc api/Constructors*.gfr ../present
mv api/Syntax*.gfc api/Syntax*.gfr ../present mv api/Syntax*.gfc api/Syntax*.gfr ../present
$(GFCCP) -path=api:present:prelude api/Try???.gf
$(GFCCP) -path=present:prelude:api:api/toplevel api/toplevel/OverLangEng.gf $(GFCCP) -path=present:prelude:api:api/toplevel api/toplevel/OverLangEng.gf
mv api/toplevel/Over*.gfc ../present mv api/toplevel/Over*.gfc api/Try???.gf? ../present
mathematical: mathematical:

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryDan = SyntaxDan, LexiconDan, ParadigmsDan - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryEng = SyntaxEng, LexiconEng, ParadigmsEng - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryFre = SyntaxFre, LexiconFre, ParadigmsFre - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryGer = SyntaxGer, LexiconGer, ParadigmsGer - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryIta = SyntaxIta, LexiconIta, ParadigmsIta - [mkAdv,in_Prep] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryNor = SyntaxNor, LexiconNor, ParadigmsNor - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TryRus = SyntaxRus, LexiconRus, ParadigmsRus - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TrySpa = SyntaxSpa, LexiconSpa, ParadigmsSpa - [mkAdv] ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource TrySwe = SyntaxSwe, LexiconSwe, ParadigmsSwe - [mkAdv] ;

View File

@@ -271,12 +271,12 @@ oper
mkAV : A -> AV ; mkAV : A -> AV ;
mkA2V : A -> Prep -> A2V ; mkA2V : A -> Prep -> A2V ;
-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated -- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated
-- just as synonyms of $V2$, and the second argument is given -- just as synonyms of $V2$, and the second argument is given
-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. -- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$.
-- $V0$ is just $V$. -- $V0$ is just $V$.
V0, V2S, V2V, V2A, V2Q : Type ; V0, V2S, V2V, V2Q : Type ;
AS, A2S, AV, A2V : Type ; AS, A2S, AV, A2V : Type ;
--. --.
@@ -443,7 +443,7 @@ oper
mkA2V v p = mkA2 v p ** {lock_A = <>} ; mkA2V v p = mkA2 v p ** {lock_A = <>} ;
V0 : Type = V ; V0 : Type = V ;
V2S, V2V, V2Q, V2A : Type = V2 ; V2S, V2V, V2Q : Type = V2 ;
AS, A2S, AV : Type = A ; AS, A2S, AV : Type = A ;
A2V : Type = A2 ; A2V : Type = A2 ;

View File

@@ -10,6 +10,11 @@ To try out inflection paradigms:
> i -path=alltenses:prelude -retain alltenses/ParadigmsGer.gfr > i -path=alltenses:prelude -retain alltenses/ParadigmsGer.gfr
> cc mkN "Farbe" > cc mkN "Farbe"
``` ```
To try out overloaded syntax, test lexicon, and inflection paradigms:
```
> i -path=alltenses:prelude -retain alltenses/TryGer.gfr
> cc mkCl (mkNP this_QuantSg (mkN "Farbe")) (mkA "dunkel")
```
To look for a syntax tree in the overload API by parsing: To look for a syntax tree in the overload API by parsing:
``` ```
> i -path=alltenses:prelude alltenses/OverLangEng.gfc > i -path=alltenses:prelude alltenses/OverLangEng.gfc

View File

@@ -3786,7 +3786,7 @@ source <A HREF="../italian/ParadigmsIta.gf"><CODE>http://www.cs.chalmers.se/~aar
<TD><CODE>Number</CODE></TD> <TD><CODE>Number</CODE></TD>
</TR> </TR>
<TR> <TR>
<TD><CODE>Prep</CODE></TD> <TD><CODE>--Prep</CODE></TD>
<TD><CODE>Type</CODE></TD> <TD><CODE>Type</CODE></TD>
</TR> </TR>
<TR> <TR>
@@ -4505,10 +4505,6 @@ source <A HREF="../spanish/ParadigmsSpa.gf"><CODE>http://www.cs.chalmers.se/~aar
<TD><CODE>Number</CODE></TD> <TD><CODE>Number</CODE></TD>
</TR> </TR>
<TR> <TR>
<TD><CODE>Prep</CODE></TD>
<TD><CODE>Type</CODE></TD>
</TR>
<TR>
<TD><CODE>accusative</CODE></TD> <TD><CODE>accusative</CODE></TD>
<TD><CODE>Prep</CODE></TD> <TD><CODE>Prep</CODE></TD>
</TR> </TR>
@@ -4964,6 +4960,13 @@ To try out inflection paradigms:
&gt; cc mkN "Farbe" &gt; cc mkN "Farbe"
</PRE> </PRE>
<P> <P>
To try out overloaded syntax, test lexicon, and inflection paradigms:
</P>
<PRE>
&gt; i -path=alltenses:prelude -retain alltenses/TryGer.gfr
&gt; cc mkCl (mkNP this_QuantSg (mkN "Farbe")) (mkA "dunkel")
</PRE>
<P>
To look for a syntax tree in the overload API by parsing: To look for a syntax tree in the overload API by parsing:
</P> </P>
<PRE> <PRE>

View File

@@ -258,12 +258,12 @@ mkV2 : overload {
mkAV : A -> AV ; mkAV : A -> AV ;
mkA2V : A -> Prep -> A2V ; mkA2V : A -> Prep -> A2V ;
-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated -- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated
-- just as synonyms of $V2$, and the second argument is given -- just as synonyms of $V2$, and the second argument is given
-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. -- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$.
-- $V0$ is just $V$. -- $V0$ is just $V$.
V0, V2S, V2V, V2A, V2Q : Type ; V0, V2S, V2V, V2Q : Type ;
AS, A2S, AV, A2V : Type ; AS, A2S, AV, A2V : Type ;
@@ -438,7 +438,7 @@ mkV2 : overload {
mkVV v = v ** {isAux = False ; lock_VV = <>} ; mkVV v = v ** {isAux = False ; lock_VV = <>} ;
V0 : Type = V ; V0 : Type = V ;
V2S, V2V, V2Q, V2A : Type = V2 ; V2S, V2V, V2Q : Type = V2 ;
AS, A2S, AV : Type = A ; AS, A2S, AV : Type = A ;
A2V : Type = A2 ; A2V : Type = A2 ;

View File

@@ -58,7 +58,7 @@ oper
-- amalgamate with the following word (the 'genitive' "di" and the -- amalgamate with the following word (the 'genitive' "di" and the
-- 'dative' "a"). -- 'dative' "a").
Prep : Type ; --Prep : Type ;
accusative : Prep ; accusative : Prep ;
genitive : Prep ; genitive : Prep ;
@@ -291,16 +291,16 @@ oper
singular = Sg ; singular = Sg ;
plural = Pl ; plural = Pl ;
Prep = Compl ; --Prep = Compl ;
accusative = complAcc ; accusative = complAcc ;
genitive = complGen ; genitive = complGen ;
dative = complDat ; dative = complDat ;
mkPrep p = {s = p ; c = Acc ; isDir = False} ; mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ;
con_Prep = {s = [] ; c = CPrep P_con ; isDir = False} ; con_Prep = {s = [] ; c = CPrep P_con ; isDir = False ; lock_Prep = <>} ;
da_Prep = {s = [] ; c = CPrep P_da ; isDir = False} ; da_Prep = {s = [] ; c = CPrep P_da ; isDir = False ; lock_Prep = <>} ;
in_Prep = {s = [] ; c = CPrep P_in ; isDir = False} ; in_Prep = {s = [] ; c = CPrep P_in ; isDir = False ; lock_Prep = <>} ;
su_Prep = {s = [] ; c = CPrep P_su ; isDir = False} ; su_Prep = {s = [] ; c = CPrep P_su ; isDir = False ; lock_Prep = <>} ;
mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ; mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;
regN x = mkNomReg x ** {lock_N = <>} ; regN x = mkNomReg x ** {lock_N = <>} ;

View File

@@ -259,12 +259,12 @@ oper
mkAV : A -> AV ; mkAV : A -> AV ;
mkA2V : A -> Prep -> A2V ; mkA2V : A -> Prep -> A2V ;
-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated -- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated
-- just as synonyms of $V2$, and the second argument is given -- just as synonyms of $V2$, and the second argument is given
-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. -- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$.
-- $V0$ is just $V$. -- $V0$ is just $V$.
V0, V2S, V2V, V2A, V2Q : Type ; V0, V2S, V2V, V2Q : Type ;
AS, A2S, AV, A2V : Type ; AS, A2S, AV, A2V : Type ;
@@ -429,7 +429,7 @@ oper
mkA2V v p = mkA2 v p ** {lock_A = <>} ; mkA2V v p = mkA2 v p ** {lock_A = <>} ;
V0 : Type = V ; V0 : Type = V ;
V2S, V2V, V2Q, V2A : Type = V2 ; V2S, V2V, V2Q : Type = V2 ;
AS, A2S, AV : Type = A ; AS, A2S, AV : Type = A ;
A2V : Type = A2 ; A2V : Type = A2 ;

View File

@@ -57,8 +57,6 @@ oper
-- amalgamate with the following word (the 'genitive' "de" and the -- amalgamate with the following word (the 'genitive' "de" and the
-- 'dative' "a"). -- 'dative' "a").
Prep : Type ;
accusative : Prep ; accusative : Prep ;
genitive : Prep ; genitive : Prep ;
dative : Prep ; dative : Prep ;
@@ -293,11 +291,10 @@ oper
singular = Sg ; singular = Sg ;
plural = Pl ; plural = Pl ;
Prep = Compl ; accusative = complAcc ** {lock_Prep = <>} ;
accusative = complAcc ; genitive = complGen ** {lock_Prep = <>} ;
genitive = complGen ; dative = complDat ** {lock_Prep = <>} ;
dative = complDat ; mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ;
mkPrep p = {s = p ; c = Acc ; isDir = False} ;
mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ; mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;

View File

@@ -283,12 +283,12 @@ oper
mkAV : A -> AV ; mkAV : A -> AV ;
mkA2V : A -> Prep -> A2V ; mkA2V : A -> Prep -> A2V ;
-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated -- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated
-- just as synonyms of $V2$, and the second argument is given -- just as synonyms of $V2$, and the second argument is given
-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. -- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$.
-- $V0$ is just $V$. -- $V0$ is just $V$.
V0, V2S, V2V, V2A, V2Q : Type ; V0, V2S, V2V, V2Q : Type ;
AS, A2S, AV, A2V : Type ; AS, A2S, AV, A2V : Type ;
--. --.
@@ -596,7 +596,7 @@ oper
mkV2A v p = mmkV2 v p ** {lock_V2A = <>} ; mkV2A v p = mmkV2 v p ** {lock_V2A = <>} ;
V0 : Type = V ; V0 : Type = V ;
V2S, V2V, V2Q, V2A : Type = V2 ; V2S, V2V, V2Q : Type = V2 ;
AS, A2S, AV : Type = A ; AS, A2S, AV : Type = A ;
A2V : Type = A2 ; A2V : Type = A2 ;