GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-19 09:49:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

moved obsolete files; updated umlaut help

Browse Source
This commit is contained in:
aarne
2005-12-22 17:27:00 +00:00
parent 8e2d67bfba
commit eda7b07087
18 changed files with 45 additions and 603 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
doc/gf-history.html
View File

@@ -14,7 +14,23 @@ Changes in functionality since May 17, 2005, release of GF Version 2.2
<p>
20/12 (AR) Support for full disjunctive patterns (<tt>P | Q</tt>) i.e.
<hr>
22/12 <b>Release of GF 2.4</b>.
<p>
21/12 (AR) It now works to parse escaped string literals from command
line, and also string literals with spaces:
<pre>
gf examples/tram0/TramEng.gf
> p -lexer=literals "I want to go to \"Gustaf Adolfs torg\" ;"
QInput (GoTo (DestNamed "Gustaf Adolfs torg"))
</pre>
<p>
20/12 (AR) Support for full disjunctive patterns (<tt>P|Q</tt>) i.e.
not just on top level.
<p>
@@ -258,6 +274,7 @@ statistics of gfc compilation result. To be extended with new information.
The most important stats now are the top-40 sized definitions.
<p>
<hr>
1/7 <b>Release of GF 2.3</b>.

47
index.html
View File

@@ -1,5 +1,5 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html><head><title>GF Version 2.3+</title></head>
<html><head><title>GF Version 2.4</title></head>
<body bgcolor="#ffffff" text="#000000">
@@ -9,9 +9,9 @@
<h1>Grammatical Framework</h1>
<h2>Version 2.3</h2>
<h2>Version 2.4</h2>
July 1, 2005.
December 22, 2005.
</center>
@@ -20,17 +20,24 @@ July 1, 2005.
</p><h2>News</h2>
<i>December 21, 2005</i>. Forthcoming very soon: GF 2.4. Some highlights:
<i>December 22, 2005</i>. GF 2.4 released. Some highlights:
<ul>
<li> Speech input.
<li> Transfer modules.
<li> Probabilistic grammars.
</ul>
See <a href="doc/gf-history.html">GF history</a> for more details. Also see the
<a href="doc/tutorial/gf-tutorial2.html">New Tutorial</a>, now up to date for version 2.4.
See <a href="doc/gf-history.html">GF history</a> for more details.
Download from
<a href=
"http://sourceforge.net/project/showfiles.php?group_id=132285">SourceForge</a>.
Also see the <a href="doc/tutorial/gf-tutorial2.html">New Tutorial</a>,
now up to date for version 2.4.
<p>
<font size="1">
<i>December 9, 2005</i>.
<a href="http://www.cs.chalmers.se/~peb/software.html">
MCFG/GF library for Prolog</a>, by
@@ -39,12 +46,12 @@ This means that you can use GF grammars as parts of
Prolog programs (in the same way as in Java and Haskell
before).
<p>
<br>
<i>December 8, 2005</i>.
A structured <a href="doc/index.html">Documentation page</a> on GF.
<p>
<br>
<i>December 1, 2005</i>.
Publicly accessible
@@ -52,7 +59,7 @@ Publicly accessible
Darcs repository</a>
for latest sources and documents. The snapshots are no longer updated.
<p>
<br>
<i>September 22, 2005</i>.
<a href="http://www.cs.chalmers.se/~bringert/gf/downloads/snapshots/">
@@ -65,7 +72,7 @@ Use the
<a href="http://www.cs.chalmers.se/Cs/Research/Language-technology/darcs/GF/doc/darcs.html">
Darcs repository</a> instead!
<p>
<br>
<i>July 1, 2005</i>. GF 2.3 released.
Download from
@@ -73,22 +80,20 @@ Download from
The <a href="doc/gf-history.html">GF history</a> lists changes.
The source package on SourceForge also contains a new GUI and some new grammars.
<p>
<font size="2">
<br>
<i>June 3, 2005</i>. Started a page on
<a href="doc/gf-history.html">history of changes</a>.
These changes will appear soon in releases.
<p>
<br>
<i>May 17, 2005</i>. Version 2.2 released. See
<a href="doc/gf2.2-highlights.html">highlights</a>.
Download from
<a href="http://sourceforge.net/project/showfiles.php?group_id=132285">SourceForge</a>.
<p>
<br>
<i>May 12, 2005</i>. GF now has a mailing list, to which you can register
<a href="https://lists.sourceforge.net/lists/listinfo/gf-tools-users">here</a>.
@@ -98,7 +103,7 @@ href="https://sourceforge.net/projects/gf-tools">
https://sourceforge.net/projects/gf-tools</a>,
but this page does not yet have much content.
<p>
<br>
<i>May 9, 2005</i>.
PhD Thesis by
@@ -106,7 +111,7 @@ PhD Thesis by
<a href="http://www.cs.chalmers.se/~krijo/thesis/thesisA4.pdf">
Formal and Informal Software Specifications</a>.
<p>
<br>
<i>March 15, 2005</i>.
@@ -120,7 +125,7 @@ GF grammars that can be used as parts of Java programs. And a
href="http://www.cs.chalmers.se/~bringert/misc/tramdemo.avi">demo film</a>
of a multimodal dialogue system built with embedded grammars.
<p>
<br>
<i>November 9, 2004</i>.
@@ -129,7 +134,7 @@ PhD Thesis by
<a href="http://www.cs.chalmers.se/~peb/pubs/p04-PhD-thesis.pdf">
Expressivity and Complexity of the Grammatical Framework</a>.
<p>
<br>
<i>November 8, 2004</i>. GF 2.1 released.
Here are the <a
@@ -186,7 +191,7 @@ different formats, including the ubiquitous BNF and EBNF formats.
The <a href="doc/gf-compiler.png">GF compilation chart</a> gives a
summary of the supported input and output formats (the nodes in ellipses).
<p>
<br>
For instance, if you want to create a finite-state automaton
in the HTK SLF format (to use for speech recognition), all you have to do
@@ -383,6 +388,6 @@ Or just get the sources and start hacking.
Last modified by
<a href="http://www.cs.chalmers.se/%7Eaarne">
Aarne Ranta</a>,
December 1, 2005.
December 22, 2005.
</body></html>

9
lib/resource/abstract/Test.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../../prelude
abstract Test =
Rules,
Clause,
Structural [and_Conj,i_NP,he_NP, if_Subj, in_Prep,want_VV,which8one_IDet],
Minimal
** {
} ;

37
lib/resource/abstract/TestResource.gf
View File

@@ -1,37 +0,0 @@
abstract TestResource =
Rules,
---- Verbphrase,
Clause,
Structural ** {
-- a random sample of lexicon to test resource grammar with
fun
Big, Happy, Small, Old, Young : ADeg ;
American, Finnish : A ;
Married : A2 ;
Man, Woman, Car, House, Light, Bar, Bottle, Wine : N ;
Walk, Run : V ;
Send, Wait, Love, Drink, SwitchOn, SwitchOff : V2 ;
Give, Prefer : V3 ;
Say, Prove : VS ;
Mother, Uncle : N2 ;
Connection : N3 ;
Well, Always : Adv ;
John, Mary : PN ;
AlreadyAdv, NowAdv : Adv ; -- already, now
Paint : V2A ;
Green : ADeg ;
Beg : V2V ;
Promise : V2V ;
Try : VV ;
Wonder : VQ ;
Ask : V2Q ;
Tell : V2S ;
Look : VA ;
Important : A2S ;
Probable : AS ;
Easy : A2V ;
Rain : V0 ;
} ;

76
lib/resource/danish/TestResourceDan.gf
View File

@@ -1,76 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceDan of TestResource = RulesDan, ClauseDan, StructuralDan **
open Prelude, MorphoDan, SyntaxDan in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
optimize=values ;
-- a random sample from the lexicon
lin
Big = mkAdjective "stor" "stort" "store" "større" "størst" ;
Small = mkAdjective "lille" "lille" "små" "mindre" "mindst" ;
Old = mkAdjective "gammel" "gammelt" "gamle" "ældre" "ældst" ;
Young = mkAdjective "ung" "ungt" "unge" "yngre" "yngst" ;
American = extAdjective (aRod "amerikansk") ;
Finnish = extAdjective (aRod "finsk") ;
Happy = aRod "lykkelig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun (mkSubstantive "mand" "manden" "mænd" "mænden" ** {h1 = Utr}) ;
Bar = extCommNoun (nBil "bar") ; ---- ?
Bottle = extCommNoun (nUge "flaske") ;
Woman = extCommNoun (nUge "kvinde") ;
Car = extCommNoun (nBil "bil") ;
House = extCommNoun (nHus "hus") ;
Light = extCommNoun (nHus "lys") ;
Wine = extCommNoun (nHus "vin") ; ---- ?
Walk = mkVerb "gå" "går" "gås" "gik" "gået" "gå" ** {s1 = []} ;
Run = mkVerb "springe" "springer" "springes" "sprang" "sprunget" "spring" ** {s1 = []} ;
Drink = extTransVerb (mkVerb "drikke" "drikker" "drikkes" "drak" "drukket" "drikk" ** {s1 = []}) [] ;
Love = extTransVerb (vNopart (vHusk "ælsk")) [] ;
Send = extTransVerb (vNopart (vSpis "send")) [] ; ---- ?
Wait = extTransVerb (vNopart (vSpis "vent")) "på" ;
Give = extTransVerb (vNopart (mkVerb "give" "giver" "gives" "gav" "givet" "giv")) [] ** {s3 = "til"} ;
Prefer = extTransVerb (vNopart (vSpis "foretrækk")) [] ** {s3 = "for"} ;
Say = vNopart (mkVerb "sige" "siger" "siges" "sagde" "sagt" "sig") ;
Prove = vNopart (vSpis "bevis") ;
SwitchOn = mkDirectVerb (vHusk "lukk" ** {s1 = "op"}) ;
SwitchOff = mkDirectVerb (vHusk "slukk" ** {s1 = []}) ;
Mother = mkFun (extCommNoun (mkSubstantive "moder" "moderen" "mødre"
"mødrene" ** {h1 = Utr})) "til" ; ---- ?
Uncle = mkFun (extCommNoun (mkSubstantive "onkel" "onkelen" "onkler" "onklene" ** {h1 = Utr})) "til" ; ---- ?
Connection = mkFun (extCommNoun (nUge "forbindelse")) "fra" ** {s3 = "til"} ;
Always = advPre "altid" ;
Well = advPost "godt" ;
John = mkProperName "Johan" NUtr ;
Mary = mkProperName "Maria" NUtr ;
--- next
AlreadyAdv = advPre "allerede" ;
NowAdv = advPre "nu" ;
Paint = extTransVerb (vNopart (vHusk "mål")) [] ;
Green = mkAdjective "grøn" "grønt" "grøne" "grønnere" "grønnest" ;
Beg = extTransVerb (mkVerb "bede" "beder" "bedes" "bad" "bedt" "bed") [] ** {s3 = "at"} ;
Promise = extTransVerb (vNopart (vSpis "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vHusk "undr")) [] ;
Ask = extTransVerb (mkVerb "spørge" "spørger""spørges""spurgte""spurgt""spørg") [] ;
Tell = extTransVerb (mkVerb "fortælle" "fortæller" "fortælles"
"fortalte" "fortalt" "fortæll") [] ;
Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "set" "sedd") []
; ---- ut
Try = extTransVerb (vNopart (vSpis "forsøg")) [] ** {isAux = False} ;
Important = extAdjective (aAbstrakt "viktig") ** {s2 = "for"} ;
Probable = extAdjective (aAbstrakt "sandsynlig") ;
Easy = extAdjective (aRod "let") ** {s2 = "for"} ;
Rain = extTransVerb (vNopart (vHusk "regn")) [] ;
} ;

9
lib/resource/english/TestEng.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../abstract:../../prelude
concrete TestEng of Test =
RulesEng,
ClauseEng,
StructuralEng,
MinimalEng
** {
} ;

70
lib/resource/english/TestResourceEng.gf
View File

@@ -1,70 +0,0 @@
--# -path=.:../abstract:../../prelude
concrete TestResourceEng of TestResource = RulesEng, ClauseEng, StructuralEng **
open Prelude, SyntaxEng, OldParadigmsEng in {
flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = adjDegrIrreg "big" "bigger" "biggest";
Happy = adjDegrReg "happy" ;
Small = adjDegrReg "small" ;
Old = adjDegrReg "old" ;
Young = adjDegrReg "young" ;
American = regAdjective "American" ;
Finnish = regAdjective "Finnish" ;
Married = regAdjective "married" ** {s2 = "to"} ;
Man = cnHum (mkNoun "man" "men" "man's" "men's") ;
Woman = cnHum (mkNoun "woman" "women" "woman's" "women's") ;
Car = cnNoHum (nounReg "car") ;
House = cnNoHum (nounReg "house") ;
Light = cnNoHum (nounReg "light") ;
Bar = cnNoHum (nounReg "bar") ;
Bottle = cnNoHum (nounReg "bottle") ;
Wine = cnNoHum (nounReg "wine") ;
Walk = verbNoPart (regVerbP3 "walk") ;
Run = verbNoPart (mkVerb "run" "ran" "run") ;
Say = verbNoPart (mkVerb "say" "said" "said") ;
Prove = verbNoPart (verbP3e "prove") ;
Send = mkTransVerbDir (verbNoPart (mkVerb "send" "sent" "sent")) ;
Love = mkTransVerbDir (verbNoPart (verbP3e "love")) ;
Wait = mkTransVerb (verbNoPart (regVerbP3 "wait")) "for" ;
Drink = mkTransVerbDir (verbNoPart (mkVerb "drink" "drank" "drunk")) ;
Give = mkDitransVerb (verbNoPart (mkVerb "give" "gave" "given")) [] [] ;
Prefer = mkDitransVerb
(verbNoPart (mkVerb "prefer" "preferred" "preferred")) [] "to" ;
Mother = funOfReg "mother" human ;
Uncle = funOfReg "uncle" human ;
Connection = cnNoHum (nounReg "connection") ** {s2 = "from" ; s3 = "to"} ;
Always = ss "always" ;
Well = ss "well" ;
SwitchOn = mkTransVerbPart (verbP3s "switch") "on" ;
SwitchOff = mkTransVerbPart (verbP3s "switch") "off" ;
John = nameReg "John" Masc ;
Mary = nameReg "Mary" Fem ;
--- next
AlreadyAdv = ss "already" ;
NowAdv = ss "now" ;
Paint = mkTransVerbDir (verbNoPart (regVerbP3 "paint")) ;
Green = adjDegrReg "green" ;
Beg = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ** {s4 = "to"} ;
Promise = mkTransVerbDir (verbNoPart (verbP3e "promise")) ** {s4 = "to"} ;
Wonder = verbNoPart (regVerbP3 "wonder") ;
Ask = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ;
Tell = mkTransVerbDir (verbNoPart (mkVerb "tell" "told" "told")) ;
Look = verbNoPart (regVerbP3 "look") ;
Try = mkTransVerbDir (verbNoPart (verbP3y "tr")) ** {isAux = False} ;
Important = regAdjective "important" ** {s2 = "for"} ;
Probable = regAdjective "probable" ; ---- reg
Easy = regAdjective "easy" ** {s2 = "for"} ;
Rain = verbNoPart (regVerbP3 "rain") ;
} ;

52
lib/resource/french/TestResourceFre.gf
View File

@@ -1,52 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestResourceFre of TestResource =
RulesFre,
ClauseFre,
StructuralFre
**
open Prelude, TypesFre, MorphoFre, SyntaxFre in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
optimize=all ;
lin
Big = mkAdjDegrReg "grand" adjPre ;
American = mkAdjective (adjGrand "américain") adjPost ;
Finnish = mkAdjective (adjGrand "finlandais") adjPost ;
Married = mkAdjCompl (adjJoli "marié") adjPost (complementCas dative) ;
Small = mkAdjDegrReg "petit" adjPre ;
Old = mkAdjDegrLong (mkAdj "vieux" "vieux" "vieille" "vieillement") adjPre ;
Young = mkAdjDegrLong (adjJeune "jeune") adjPre ;
Happy = mkAdjDegrLong (adjHeureux "heureux") adjPre ;
Wine = mkCNomReg "vin" Masc ;
Bar = mkCNomReg "bar" Masc ;
Man = mkCNomReg "homme" Masc ;
Woman = mkCNomReg "femme" Fem ;
Car = mkCNomReg "voiture" Fem ;
Light = mkCNomReg "lumière" Fem ;
House = mkCNomReg "maison" Fem ;
Bottle = mkCNomReg "bouteille" Fem ;
Walk = verbPres (conj1aimer "marcher") AHabere ;
Run = verbPres (conj3courir "courir") AHabere ;
Send = mkTransVerbDir (verbPres (conj1envoyer "envoyer") AHabere) ;
Love = mkTransVerbDir (verbPres (conj1aimer "aimer") AHabere) ;
Drink = mkTransVerbDir (verbPres (conj3boire "boire") AHabere) ;
Wait = mkTransVerbDir (verbPres (conj3rendre "attendre") AHabere) ;
Give = mkDitransVerb (verbPres (conj1aimer "donner") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (conj1céder "préférer") AHabere) [] accusative [] dative ;
Say = verbSent (verbPres (conj3dire "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (conj1aimer "démontrer") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (conj1aimer "allumer") AHabere) ;
SwitchOff = mkTransVerbDir (verbPres (conj3peindre "éteindre") AHabere) ;
Mother = funDe (mkCNomReg "mère" Fem) ;
Uncle = funDe (mkCNomReg "oncle" Masc) ;
Connection = mkCNomReg "connection" Fem **
{s2 = [] ; c = genitive ; s3 = [] ; c3 = dative} ;
Well = ss "bien" ;
Always = ss "toujours" ;
John = mkProperName "Jean" Masc ;
Mary = mkProperName "Marie" Fem ;
}

4
lib/resource/french/TestVerbesAbs.gf
View File

@@ -1,4 +0,0 @@
abstract TestVerbesAbs = TestResource, VerbesAbs ** {
fun UseVN : VN -> V ;
fun UseVN2 : VN2 -> V2 ;
}

9
lib/resource/french/TestVerbesFre.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestVerbesFre of TestVerbesAbs =
TestResourceFre, VerbesFre ** open TypesFre in {
lin UseVN ve = verbPres ve.s ve.aux ;
lin UseVN2 ve = verbPres ve.s ve.aux ** {s2 = [] ; c = ve.c} ;
}

9
lib/resource/french/TestVerbsFre.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../romance:../oldabstract:../abstract:../../prelude
concrete TestVerbsFre of TestVerbsFreAbs =
TestResourceFre, VerbsFre ** open TypesFre in {
lin UseVN ve = verbPres ve.s ve.aux ;
lin UseVN2 ve = verbPres ve.s ve.aux ** {s2 = [] ; c = ve.c} ;
}

4
lib/resource/french/TestVerbsFreAbs.gf
View File

@@ -1,4 +0,0 @@
abstract TestVerbsFreAbs = TestResource, VerbsFreAbs ** {
fun UseVN : VN -> V ;
fun UseVN2 : VN2 -> V2 ;
}

48
lib/resource/italian/TestResourceIta.gf
View File

@@ -1,48 +0,0 @@
--# -path=.:../romance:../oldabstract:../abstract:../../prelude
concrete TestResourceIta of TestResource =
RulesIta, StructuralIta ** open Prelude, TypesIta, MorphoIta, SyntaxIta in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lin
Big = mkAdjDegrTale "grande" adjPre ;
Small = mkAdjDegrSolo "piccolo" adjPre ;
Old = mkAdjDegrLong (mkAdj "vecchio" "vecchia" "vecchi" "vecchie" "vecchiamente")
adjPre ;
Young = mkAdjDegrTale "giovane" adjPre ;
Happy = mkAdjDegrTale "felice" adjPost ;
American = mkAdjective (adjSolo "americano") adjPost ;
Finnish = mkAdjective (adjTale "finlandese") adjPost ;
Married = mkAdjCompl (adjSolo "sposato") adjPost {s2 = [] ; c = dative} ;
Man = mkCNom (numForms "uomo" "uomini") Masc ;
Woman = mkCNom (nomRana "donna") Fem ;
Car = mkCNom (nomRana "macchina") Fem ;
Light = mkCNom (nomSale "luce") Fem ;
House = mkCNom (nomRana "casa") Fem ;
Wine = mkCNom (nomVino "vino") Masc ;
Bottle = mkCNom (nomRana "bottiglia") Fem ;
Bar = mkCNom (nomTram "bar") Masc ;
Walk = verbPres (amare_7 "camminare") AHabere ;
Run = (verbPres (correre_41 "correre") AHabere) ;
Send = mkTransVerbDir (verbPres (amare_7 "mandare") AHabere) ;
Love = mkTransVerbDir (verbPres (amare_7 "amare") AHabere) ;
Wait = mkTransVerbCas (verbPres (amare_7 "aspettare") AHabere) dative ;
Drink = mkTransVerbDir (verbPres (bere_29 "bere") AHabere) ;
Give = mkDitransVerb (verbPres (dare_17 "dare") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (finire_103 "preferire") AHabere) [] accusative [] dative ;
Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (amare_7 "dimostrare") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (amare_7 "allumare") AHabere) ;
SwitchOff = mkTransVerbDir (verbPres (spegnere_89 "spegnere") AHabere) ;
Mother = funGen (mkCNom (nomSale "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "zio") Masc) ;
Connection = mkCNom (nomSale "connessione") Fem **
{s2 = [] ; c = CPrep P_da ; s3 = [] ; c3 = dative} ;
Well = ss "bene" ;
Always = ss "sempre" ;
John = mkProperName "Giovanni" Masc ;
Mary = mkProperName "Maria" Fem ;
}

74
lib/resource/norwegian/TestResourceNor.gf
View File

@@ -1,74 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceNor of TestResource = RulesNor, ClauseNor, StructuralNor **
open Prelude, MorphoNor, SyntaxNor in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = mkAdjective "stor" "stort" "store" "større" "størst" ;
Small = mkAdjective "liten" "litet" "små" "mindre" "minst" ; ---- ?
Old = mkAdjective "gammel" "gammelt" "gamle" "eldre" "eldst" ;
Young = mkAdjective "ung" "ungt" "unge" "yngre" "yngst" ;
American = extAdjective (aAbstrakt "amerikansk") ;
Finnish = extAdjective (aAbstrakt "finsk") ;
Happy = aAbstrakt "heldig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun (mkSubstantive "mann" "mannen" "menn" "mennen" ** {h1 = masc}) ;
Bar = extCommNoun (nBil "bar") ; ---- ?
Bottle = extCommNoun (nUke "flaske") ;
Woman = extCommNoun (nUke "kvinne") ;
Car = extCommNoun (nBil "bil") ;
House = extCommNoun (nHus "hus") ;
Light = extCommNoun (nHus "lys") ;
Wine = extCommNoun (nHus "vin") ; ---- ?
Walk = mkVerb "gå" "går" "gås" "gikk" "gått" "gå" ** {s1 = []} ;
Run = mkVerb "springe" "springer" "springes" "sprang" "sprunget" "spring" ** {s1 = []} ;
Drink = extTransVerb (mkVerb "drikke" "drikker" "drikkes" "drakk" "drukket" "drikk" ** {s1 = []}) [] ;
Love = extTransVerb (vNopart (vHusk "elsk")) [] ;
Send = extTransVerb (vNopart (vSpis "send")) [] ; ---- ?
Wait = extTransVerb (vNopart (vSpis "vent")) "på" ;
Give = extTransVerb (vNopart (mkVerb "gi" "gir" "gives" "gav" "givet" "gi")) [] ** {s3 = "til"} ; ---- ?
Prefer = extTransVerb (vNopart (vSpis "foretrekk")) [] ** {s3 = "for"} ;
Say = vNopart (mkVerb "si" "sier" "sies" "sa" "sagt" "sig") ; ---- ?
Prove = vNopart (vSpis "bevis") ;
SwitchOn = mkDirectVerb (vHusk "lukk" ** {s1 = "opp"}) ;
SwitchOff = mkDirectVerb (vHusk "slukk" ** {s1 = []}) ;
Mother = mkFun (extCommNoun (mkSubstantive "mor" "moderen" "mødre" "mødrene" ** {h1 = fem})) "til" ; ---- ?
Uncle = mkFun (extCommNoun (mkSubstantive "onkel" "onkelen" "onkler" "onklene" ** {h1 = masc})) "til" ; ---- ?
Connection = mkFun (extCommNoun (nUke "forbindelse")) "fra" ** {s3 = "til"} ;
Always = advPre "altid" ;
Well = advPost "godt" ;
John = mkProperName "Johan" (NUtr Masc) ;
Mary = mkProperName "Maria" (NUtr NoMasc) ;
--- next
AlreadyAdv = advPre "allerede" ;
NowAdv = advPre "nå" ;
Paint = extTransVerb (vNopart (vHusk "mål")) [] ;
Green = mkAdjective "grønn" "grønt" "grøne" "grønnere" "grønnest" ;
Beg = extTransVerb (mkVerb "be" "ber" "bes" "bad" "bedt" "be") [] ** {s3 = "at"} ;
Promise = extTransVerb (vNopart (vSpis "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vHusk "undr")) [] ;
Ask = extTransVerb (mkVerb "spørre" "spør""spørs""spurde""spurt""spør") [] ;
Tell = extTransVerb (mkVerb "fortelle" "forteller" "fortelles"
"fortalte" "fortalt" "fortell") [] ;
Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "sett" "sedd") []
; ---- ut
Try = extTransVerb (vNopart (vSpis "forsøk")) [] ** {isAux = False} ;
Important = extAdjective (aAbstrakt "viktig") ** {s2 = "for"} ;
Probable = extAdjective (aAbstrakt "sannsynlig") ;
Easy = extAdjective (aRod "grei") ** {s2 = "for"} ;
Rain = extTransVerb (vNopart (vHusk "regn")) [] ;
} ;

53
lib/resource/russian/TestResourceRus.gf
View File

@@ -1,53 +0,0 @@
-- use this path to read the grammar from the same directory
--# -path=.:../abstract:../../prelude
concrete TestResourceRus of TestResource = RulesRus, StructuralRus ** open SyntaxRus in {
flags
coding=utf8 ;
startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = bolshoj ;
Small = malenkij ;
Old = staruj ;
Young = molodoj ;
Connection = (noun2CommNounPhrase (doroga) )** {s2 = "из" ; c = Gen; s3 = "в"; c2=Acc} ;
American = ij_EndK_G_KH_Decl "американск" ; -- adj1Malenkij from Paradigms
Finnish = ij_EndK_G_KH_Decl "финск" ; -- adj1Malenkij from Paradigms
Married = adjInvar "замужем" ** {s2 = "за"; c = Inst} ; -- adjinvar from Paradigms
Give = mkDitransVerb verbDavat Acc Dat;
Prefer = mkDitransVerb verbPredpochitat Acc Dat ;
Bar = bar ;
Bottle = butyulka ;
Wine = vino ;
Drink = mkDirectVerb verbPit ;
Happy = schastlivyuj ;
Man = muzhchina ;
Woman = zhenchina ;
Car = mashina ;
House = dom ;
Level = uroven ;
Light = svet ;
Walk = verbGulyat ;
Run = verbBegat ;
Love = mkDirectVerb verbLubit ;
Send = mkDirectVerb verbOtpravlyat ;
Wait = mkDirectVerb verbZhdat ;
Say = verbGovorit ; --- works in present tense...
Prove = verbDokazuvat ;
SwitchOn = mkDirectVerb verbVkluchat ;
SwitchOff = mkDirectVerb verbVukluchat ;
Mother = funGen mama ;
Uncle = funGen dyadya ;
Always = vsegda ;
Well = chorosho ;
John = mkProperNameMasc "Иван" Animate ;
Mary = mkProperNameFem "Маш" Animate ;
};

48
lib/resource/spanish/TestResourceSpa.gf
View File

@@ -1,48 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestResourceSpa of TestResource =
RulesSpa, ClauseSpa, StructuralSpa ** open Prelude, TypesSpa,
MorphoSpa, BeschSpa, SyntaxSpa in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lin
Big = mkAdjDegrUtil "grande" "grandes"adjPre ;
Small = mkAdjDegrSolo "pequeño" adjPre ;
Old = mkAdjDegrSolo "viejo" adjPre ;
Young = mkAdjDegrUtil "joven" "jovenes"adjPre ;
Happy = mkAdjDegrUtil "feliz" "felices" adjPost ;
American = mkAdjective (adjSolo "americano") adjPost ;
Finnish = mkAdjective (adjUtil "finlandes" "finlandeses") adjPost ;
Married = mkAdjCompl (adjSolo "casado") adjPost {s2 = "con" ; c = accusative} ;
Man = mkCNom (nomVino "hombre") Masc ;
Woman = mkCNom (nomPilar "mujer") Fem ;
Car = mkCNom (nomVino "coche") Masc ;
Light = mkCNom (numForms "luz" "luces") Fem ;
House = mkCNom (nomVino "casa") Fem ;
Wine = mkCNom (nomVino "vino") Masc ;
Bottle = mkCNom (nomVino "botella") Fem ;
Bar = mkCNom (nomTram "bar") Masc ;
Walk = verbPres (cortar_5 "pasear") AHabere ;
---- Run = (verbPres (correre_41 "correre") AHabere) ;
Send = mkTransVerbDir (verbPres (cortar_5 "mandar") AHabere) ;
Love = mkTransVerbDir (verbPres (cortar_5 "amar") AHabere) ;
Wait = mkTransVerbCas (verbPres (cortar_5 "esperar") AHabere) dative ;
---- Drink = mkTransVerbDir (verbPres (bere_29 "bere") AHabere) ;
---- Give = mkDitransVerb (verbPres (dare_17 "dare") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (vivir_7 "preferir") AHabere) [] accusative [] dative ;
---- Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (cortar_5 "demonstrar") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (deber_6 "enciender") AHabere) ; ----
SwitchOff = mkTransVerbDir (verbPres (cortar_5 "apagar") AHabere) ;
Mother = funGen (mkCNom (nomVino "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "tío") Masc) ;
Connection = mkCNom (nomPilar "connexión") Fem **
{s2 = [] ; c = CPrep P_de ; s3 = [] ; c3 = dative} ;
Well = ss "bien" ;
Always = ss "siempre" ;
John = mkProperName "Juan" Masc ;
Mary = mkProperName "Maria" Fem ;
}

77
lib/resource/swedish/TestResourceSwe.gf
View File

@@ -1,77 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceSwe of TestResource =
RulesSwe,
ClauseSwe,
StructuralSwe
**
open Prelude, MorphoSwe, SyntaxSwe in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = stor_25 ;
Small = liten_1146 ;
Old = gammal_16 ;
Young = ung_29 ;
American = extAdjective (aFin "amerikansk") ;
Finnish = extAdjective (aFin "finsk") ;
Happy = aFin "lycklig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun man_1144 ;
Bar = extCommNoun (sSak "bar") ;
Bottle = extCommNoun (sApa "flask") ;
Woman = extCommNoun (sApa "kvinn") ;
Car = extCommNoun (sBil "bil") ;
House = extCommNoun (sHus "hus") ;
Light = extCommNoun (sHus "ljus") ;
Wine = extCommNoun (sParti "vin") ;
Walk = vNopart (mkVerb "gå" "går" "gå" "gick" "gått" "gången") ;
Run = vNopart (vFinna "spring" "sprang" "sprung") ;
Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ;
Love = extTransVerb (vNopart (vTala "älsk")) [] ;
Send = extTransVerb (vNopart (vTala "skick")) [] ;
Wait = extTransVerb (vNopart (vTala "vänt")) "på" ;
Give = extTransVerb (vNopart (mkVerb "ge" "ger" "ge" "gav" "givit" "given")) [] ** {s3 = "till"} ;
Prefer = extTransVerb (vNopart (vFinna "föredrag" "föredrog" "föredrag")) [] **
{s3 = "framför"} ; --- föredra
Say = vNopart (mkVerb "säga" "säger" "säg" "sade" "sagt" "sagd") ;
Prove = vNopart (vTala "bevis") ;
SwitchOn = mkDirectVerb (vFinna "sätt" "satte" "satt" ** {s1 = "på"}) ;
SwitchOff = mkDirectVerb (vLeka "stäng" ** {s1 = "av"}) ;
Mother = mkFun (extCommNoun mor_1) "till" ;
Uncle = mkFun (extCommNoun farbror_8) "till" ;
Connection = mkFun (extCommNoun (sVarelse "förbindelse")) "från" **
{s3 = "till"} ;
Always = advPre "alltid" ;
Well = advPost "bra" ;
John = mkProperName "Johan" (NUtr Masc) ;
Mary = mkProperName "Maria" (NUtr NoMasc) ;
--- next
AlreadyAdv = advPre "redan" ;
NowAdv = advPre "nu" ;
Paint = extTransVerb (vNopart (vTala "mål")) [] ;
Green = aFin "grön" ;
Beg = extTransVerb (mkVerbPart "be" "ber" "be" "bad" "bett" "bedd" []) [] ** {s3 = "att"} ;
Promise = extTransVerb (vNopart (vTala "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vTala "undr")) [] ;
Ask = extTransVerb (vNopart (vTala "fråg")) [] ;
Tell = extTransVerb (vNopart (vTala "berätt")) [] ;
Look = extTransVerb (mkVerbPart "se" "ser" "se" "såg" "sett" "sedd" "ut") [] ;
Try = extTransVerb (vNopart (vLeka "försök")) [] ** {isAux=False} ;
Important = extAdjective (aFin "viktig") ** {s2 = "för"} ;
Probable = extAdjective (aFin "sannolik") ;
Easy = extAdjective (aAbstrakt "lätt") ** {s2 = "för"} ;
Rain = extTransVerb (vNopart (vTala "regn")) [] ;
} ;

3
src/GF.hs
View File

@@ -112,8 +112,7 @@ helpMsg = unlines [
welcomeMsg =
"Welcome to " ++ authorMsg ++++
"If the letters ä (a-umlaut) and ö (u-umlaut) look strange" ++
"\nin the above message, try 'h -coding'." ++
"If ä and ö (umlaut letters) look strange, see 'h -coding'." ++
"\n\nType 'h' for help, and 'h [Command] for more detailed help."
authorMsg = unlines [