mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
punctuation added to NDTrans
This commit is contained in:
@@ -65312,4 +65312,7 @@ perfect_Chunk 5.751177721092363e-4
|
||||
perfect_neg_Chunk 5.751177721092363e-4
|
||||
past_perfect_Chunk 5.751177721092363e-4
|
||||
past_perfect_neg_Chunk 5.751177721092363e-4
|
||||
|
||||
SFullstop 0.9
|
||||
SQuestmark 0.06
|
||||
SExclmark 0.01
|
||||
SUnmarked 0.03
|
||||
|
||||
@@ -8,9 +8,18 @@ abstract NDTrans =
|
||||
,Chunk
|
||||
** {
|
||||
flags
|
||||
startcat=Phr;
|
||||
startcat = TransUnit ;
|
||||
-- heuristic_search_factor=0.60;
|
||||
-- meta_prob=1.0e-5;
|
||||
-- meta_token_prob=1.1965149246222233e-9;
|
||||
|
||||
cat
|
||||
TransUnit ;
|
||||
|
||||
fun
|
||||
SFullstop : Phr -> TransUnit ;
|
||||
SQuestmark : Phr -> TransUnit ;
|
||||
SExclmark : Phr -> TransUnit ;
|
||||
SUnmarked : Phr -> TransUnit ;
|
||||
|
||||
}
|
||||
|
||||
@@ -11,5 +11,13 @@ concrete NDTransChi of NDTrans =
|
||||
flags
|
||||
literal=Symb ;
|
||||
|
||||
lincat
|
||||
TransUnit = {s : Str} ;
|
||||
|
||||
lin
|
||||
SFullstop p = {s = p.s ++ fullstop_s} ;
|
||||
SQuestmark p = {s = p.s ++ questmark_s} ;
|
||||
SExclmark p = {s = p.s ++ exclmark_s} ;
|
||||
SUnmarked p = {s = p.s} ;
|
||||
}
|
||||
|
||||
|
||||
@@ -11,4 +11,13 @@ concrete NDTransEng of NDTrans =
|
||||
flags
|
||||
literal=Symb ;
|
||||
|
||||
lincat
|
||||
TransUnit = {s : Str} ;
|
||||
|
||||
lin
|
||||
SFullstop p = {s = p.s ++ "."} ;
|
||||
SQuestmark p = {s = p.s ++ "?"} ;
|
||||
SExclmark p = {s = p.s ++ "!"} ;
|
||||
SUnmarked p = {s = p.s} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -12,5 +12,14 @@ concrete NDTransFin of NDTrans =
|
||||
flags
|
||||
literal=Symb ;
|
||||
|
||||
lincat
|
||||
TransUnit = {s : Str} ;
|
||||
|
||||
lin
|
||||
SFullstop p = {s = p.s ++ "."} ;
|
||||
SQuestmark p = {s = p.s ++ "?"} ;
|
||||
SExclmark p = {s = p.s ++ "!"} ;
|
||||
SUnmarked p = {s = p.s} ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -11,5 +11,14 @@ concrete NDTransSwe of NDTrans =
|
||||
flags
|
||||
literal=Symb ;
|
||||
|
||||
lincat
|
||||
TransUnit = {s : Str} ;
|
||||
|
||||
lin
|
||||
SFullstop p = {s = p.s ++ "."} ;
|
||||
SQuestmark p = {s = p.s ++ "?"} ;
|
||||
SExclmark p = {s = p.s ++ "!"} ;
|
||||
SUnmarked p = {s = p.s} ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user