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

Support gfc-nofud

Browse Source
This commit is contained in:
aarne
2003-10-06 08:57:16 +00:00
parent 7aa7a3cf19
commit 53e2307bbf
3 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/UseGrammar/Parsing.hs
View File

@@ -43,9 +43,9 @@ parseStringC opts0 sg cat s
| oElem newParser opts0 = do | oElem newParser opts0 = do
let pm = maybe "" id $ getOptVal opts0 useParser -- -parser=pm let pm = maybe "" id $ getOptVal opts0 useParser -- -parser=pm
gr = grammar sg gr = grammar sg
ps <- checkErr $ N.newParser pm gr (cfCat2Cat cat) s ct = cfCat2Cat cat
checkWarn $ unlines ps ts <- checkErr $ N.newParser pm gr (cfCat2Cat cat) s
return [] mapM (checkErr . (annotate gr)) ts
| otherwise = do | otherwise = do
let opts = unionOptions opts0 $ stateOptions sg let opts = unionOptions opts0 $ stateOptions sg

5
src/Makefile
View File

@@ -2,11 +2,16 @@ GHMAKE=ghc
GHCFLAGS=-package lang -package util GHCFLAGS=-package lang -package util
GHCFUDFLAG=-package Fudgets GHCFUDFLAG=-package Fudgets
GHCINCLUDE=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc -iparsing GHCINCLUDE=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc -iparsing
GHCINCLUDENOFUD=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc-nofud -iparsing
all: all:
make today ; make ghc make today ; make ghc
ghc: ghc:
$(GHMAKE) $(GHCFLAGS) $(GHCINCLUDE) $(GHCFUDFLAG) --make GF.hs -o gf2+ ; strip gf2+ ; mv gf2+ ../bin/ $(GHMAKE) $(GHCFLAGS) $(GHCINCLUDE) $(GHCFUDFLAG) --make GF.hs -o gf2+ ; strip gf2+ ; mv gf2+ ../bin/
nofud:
$(GHMAKE) $(GHCFLAGS) $(GHCINCLUDENOFUD) --make GF.hs -o gf2n ; strip gf2n
nofud-links:
cd for-ghc-nofud ; rm *.hs ; ln -s ../for-ghc/Arch.hs ; ln -s ../for-hugs/ArchEdit.hs ; cd ..
batch: batch:
$(GHMAKE) $(GHCFLAGS) $(GHCINCLUDE) --make GF2.hs -o gf2 ; strip gf2 $(GHMAKE) $(GHCFLAGS) $(GHCINCLUDE) --make GF2.hs -o gf2 ; strip gf2
api: api:

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Mon Oct 6 10:50:56 CEST 2003" module Today where today = "Mon Oct 6 11:34:26 CEST 2003"