mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 18:48:37 -06:00
refactoring to make it easier to add new conjuncts
This commit is contained in:
@@ -827,11 +827,8 @@ resource ResBul = ParamX ** open Prelude, Predef in {
|
||||
GPl => "òåçè"
|
||||
} ;
|
||||
|
||||
linCoord : Ints 4 => Str ;
|
||||
linCoord = table {0 => "è"; 1=>"èëè"; 2=>"íèòî"; 3=>"íî"; 4=>"âìåñòî"} ;
|
||||
|
||||
linCoordSep : Str -> Bool => Ints 4 => Str ;
|
||||
linCoordSep s = table {True => linCoord; False=> \\_ => s} ;
|
||||
linCoord : Str -> Ints 4 => Str ;
|
||||
linCoord comma = table {0 => "è"; 1=>"èëè"; 2=>"íèòî"; 3=>comma; 4=>[]} ;
|
||||
|
||||
hyphen : Str = SOFT_BIND ++ "-" ++ SOFT_BIND ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user