GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

interface for shallow parsing + basic lexicon

Browse Source
This commit is contained in:
aarne
2005-02-01 15:43:47 +00:00
parent d1035f4e18
commit 1df951b93d
21 changed files with 1489 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lib/resource/scandinavian/SyntaxScand.gf
View File

@@ -690,19 +690,18 @@ oper
-- Even prepositional phrases can be both
-- ("att han i alla fall skulle komma").
Adverb : Type = SS ** {isPost : Bool} ;
Adverb : Type = SS ;
PrepPhrase : Type = Adverb ;
advPre : Str -> Adverb = \alltid -> ss alltid ** {isPost = False} ;
advPost : Str -> Adverb = \bra -> ss bra ** {isPost = True} ;
advPre : Str -> Adverb = ss ;
advPost : Str -> Adverb = ss ;
adVerbPhrase : VerbGroup -> Adverb -> VerbGroup = \spelar, bra ->
let {postp = bra.isPost} in
adVerbPhrase : VerbGroup -> Adverb -> VerbGroup = \spelar, ofta ->
{
--- this unfortunately generates VP#2 ::= VP#2
s = spelar.s ;
s2 = \\b => (if_then_else Str postp [] bra.s) ++ spelar.s2 ! b ;
s3 = \\sf,g,n,p => spelar.s3 ! sf ! g ! n ! p ++ (if_then_else Str postp bra.s [])
s2 = \\b => ofta.s ++ spelar.s2 ! b ;
s3 = \\sf,g,n,p => spelar.s3 ! sf ! g ! n ! p
} ;
advAdjPhrase : SS -> AdjPhrase -> AdjPhrase = \mycket, dyr ->
@@ -1163,6 +1162,13 @@ oper
ss (I.s ! n ++ "!") ;
--2 Sentence adverbials
--
-- Sentence adverbs is the largest class and open for
-- e.g. prepositional phrases.
advClause : Clause -> Adverb -> Clause = \yousing,well ->
{s = \\b,c => yousing.s ! b ! c ++ well.s} ;
--
-- This class covers adverbials such as "annars", "därför", which are prefixed
-- to a sentence to form a phrase.