msyds/gf-rgl
1
0 Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fixed many things in ParseChi

Browse Source
This commit is contained in:
aarne committed 2013-09-27 03:45:02 +00:00
1 parent a6f6c12b01
commit 20742c6f3c
7 files changed
+47 -13
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/chinese/ResChi.gf
+2
View File
@@ -65,6 +65,8 @@ resource ResChi = ParamX ** open Prelude in {
bword : Str -> Str -> Str = \x,y -> x ++ y ; -- change to x + y to treat words as single tokens
word : Str -> Str = \s -> case s of {
x@? + y@? + z@? + u@? + v@? + w@? => bword x (bword y (bword z (bword u (bword v w)))) ;
x@? + y@? + z@? + u@? + v@? => bword x (bword y (bword z (bword u v))) ;
x@? + y@? + z@? + u@? => bword x (bword y (bword z u)) ;
x@? + y@? + z@? => bword x (bword y z) ;
x@? + y@? => bword x y ;