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

cc output as pipable string

Browse Source
This commit is contained in:
aarne
2007-02-24 09:16:30 +00:00
parent 67470b29cc
commit 5c7bd4c5c7
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-1.0/german/ParadigmsGer.gf
View File

@@ -155,7 +155,7 @@ oper
-- - 2p sg imperative, -- - 2p sg imperative,
-- - 1/3p sg imperfect indicative, -- - 1/3p sg imperfect indicative,
-- - 1/3p sg imperfect subjunctive (because this uncommon form can have umlaut) -- - 1/3p sg imperfect subjunctive (because this uncommon form can have umlaut)
-- - the perfect participle -- - the perfect participle
-- --
-- --
mkV : (x1,_,_,_,_,x6 : Str) -> V ; -- geben, gibt, gib, gab, gäbe, gegeben mkV : (x1,_,_,_,_,x6 : Str) -> V ; -- geben, gibt, gib, gab, gäbe, gegeben

4
src/GF/Shell.hs
View File

@@ -380,11 +380,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
maybe (I.identC "?") id $ -- meaningful if no opers in t maybe (I.identC "?") id $ -- meaningful if no opers in t
maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res
getOptVal opts useResource -- flag -res=m getOptVal opts useResource -- flag -res=m
justOutput opts (putStrLn (err id (prin . stripTerm) ( returnArg (AString (err id (prin . stripTerm) (
string2srcTerm src m t >>= string2srcTerm src m t >>=
Ch.justCheckLTerm src >>= Ch.justCheckLTerm src >>=
Co.computeConcrete src))) sa Co.computeConcrete src))) sa
--- Co.computeConcreteRec src))) sa --- Co.computeConcreteRec src)) sa
CShowOpers t -> do CShowOpers t -> do
m <- return $ m <- return $
maybe (I.identC "?") id $ -- meaningful if no opers in t maybe (I.identC "?") id $ -- meaningful if no opers in t