Commit 9a89def5 authored by ross's avatar ross
Browse files

[project @ 2005-01-27 12:38:49 by ross]

turn -Dfoo into
	#define foo 1
(like C compilers do) instead of
	#define foo
parent d1a59a92
{-# OPTIONS -fffi -cpp #-} {-# OPTIONS -fffi -cpp #-}
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- $Id: Main.hs,v 1.67 2005/01/24 00:36:03 ross Exp $ -- $Id: Main.hs,v 1.68 2005/01/27 12:38:49 ross Exp $
-- --
-- Program for converting .hsc files to .hs files, by converting the -- Program for converting .hsc files to .hs files, by converting the
-- file into a C program which is run to generate the Haskell source. -- file into a C program which is run to generate the Haskell source.
...@@ -660,7 +660,7 @@ onlyOne what = die ("Only one "++what++" may be specified\n") ...@@ -660,7 +660,7 @@ onlyOne what = die ("Only one "++what++" may be specified\n")
outFlagHeaderCProg :: Flag -> String outFlagHeaderCProg :: Flag -> String
outFlagHeaderCProg (Template t) = "#include \""++t++"\"\n" outFlagHeaderCProg (Template t) = "#include \""++t++"\"\n"
outFlagHeaderCProg (Include f) = "#include "++f++"\n" outFlagHeaderCProg (Include f) = "#include "++f++"\n"
outFlagHeaderCProg (Define n Nothing) = "#define "++n++"\n" outFlagHeaderCProg (Define n Nothing) = "#define "++n++" 1\n"
outFlagHeaderCProg (Define n (Just v)) = "#define "++n++" "++v++"\n" outFlagHeaderCProg (Define n (Just v)) = "#define "++n++" "++v++"\n"
outFlagHeaderCProg _ = "" outFlagHeaderCProg _ = ""
...@@ -762,7 +762,7 @@ outEnum arg = ...@@ -762,7 +762,7 @@ outEnum arg =
outFlagH :: Flag -> String outFlagH :: Flag -> String
outFlagH (Include f) = "#include "++f++"\n" outFlagH (Include f) = "#include "++f++"\n"
outFlagH (Define n Nothing) = "#define "++n++"\n" outFlagH (Define n Nothing) = "#define "++n++" 1\n"
outFlagH (Define n (Just v)) = "#define "++n++" "++v++"\n" outFlagH (Define n (Just v)) = "#define "++n++" "++v++"\n"
outFlagH _ = "" outFlagH _ = ""
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment