GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added command ps -stringop, with stringop being (un)lexer defined in Lexing

Browse Source
This commit is contained in:
aarne
2008-06-12 14:36:03 +00:00
parent e969ea61af
commit e783a894bf
3 changed files with 89 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src-3.0/GF/Command/Abstract.hs
View File

@@ -46,3 +46,8 @@ valOpts flag def opts = case lookup flag flags of
isOpt :: String -> [Option] -> Bool
isOpt o opts = elem o [x | OOpt x <- opts]
prOpt :: Option -> String
prOpt (OOpt i) = i ----