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

questions and transfer in shell state

Browse Source
This commit is contained in:
aarne
2005-11-25 17:40:51 +00:00
parent dbe8e61acc
commit fe1fdf3afd
6 changed files with 59 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Shell/PShell.hs
View File

@@ -119,6 +119,7 @@ pCommand ws = case ws of
"gt" : t -> aTerm CGenerateTrees t
"pt" : s -> aTerm CPutTerm s
"wt" : f : s -> aTerm (CWrapTerm (pzIdent f)) s
"at" : f : s -> aTerm (CApplyTransfer (pmIdent f)) s
"ma" : s -> aString CMorphoAnalyse s
"tt" : s -> aString CTestTokenizer s
"cc" : s -> aUnit $ CComputeConcrete $ unwords s
@@ -175,4 +176,7 @@ pCommand ws = case ws of
aTermLi c ss = (c [], [ASTrm $ unwords ss])
---- (c forms, [ASTrms [term]]) where
---- (forms,term) = ([], s2t (unwords ss)) ---- string2formsAndTerm (unwords ss)
---- (forms,term) = ([], s2t (unwords ss)) ----string2formsAndTerm(unwords ss)
pmIdent m = case span (/='.') m of
(k,_:f) -> (Just (pzIdent k), pzIdent f)
_ -> (Nothing,pzIdent m)