suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected the C++ compilation commands, and gave the header a different extension

Browse Source
This commit is contained in:
Neil Brown 2009-04-08 16:45:08 +00:00
parent cc4720832b
commit ae61b22355
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Main.hs
View File

@ -270,14 +270,15 @@ compileFull inputFile moutputFile
("-", Nothing) -> dieReport (Nothing, "Must specify an output file when using full-compile mode")
(file, _) -> return file
let extension = case csBackend optsPS of
BackendC -> ".tock.c"
BackendCPPCSP -> ".tock.cpp"
_ -> ""
let (cExtension, hExtension)
= case csBackend optsPS of
BackendC -> (".tock.c", ".tock.h")
BackendCPPCSP -> (".tock.cpp", ".tock.hpp")
_ -> ("", "")
-- Translate input file to C/C++
let cFile = outputFile ++ extension
hFile = outputFile ++ ".tock.h"
let cFile = outputFile ++ cExtension
hFile = outputFile ++ hExtension
iFile = outputFile ++ ".tock.inc"
lift $ modify $ \cs -> cs { csOutputIncFile = Just iFile }
lift $ withOutputFile cFile $ \hb ->
@ -324,9 +325,14 @@ compileFull inputFile moutputFile
-- For C++, just compile the source file directly into a binary
BackendCPPCSP ->
exec $ cxxCommand cFile outputFile
(csCompilerFlags optsPS ++ " " ++ csCompilerLinkFlags optsPS)
do cs <- lift getCompState
if csHasMain optsPS
then let otherOFiles = [usedFile ++ ".tock.o"
| usedFile <- Set.toList $ csUsedFiles cs]
in exec $ cxxCommand cFile outputFile
(concat (intersperse " " otherOFiles) ++ " " ++ csCompilerFlags optsPS ++ " " ++ csCompilerLinkFlags optsPS)
else exec $ cxxCommand cFile (outputFile ++ ".tock.o")
("-c " ++ csCompilerFlags optsPS)
_ -> dieReport (Nothing, "Cannot use specified backend: "
++ show (csBackend optsPS)
++ " with full-compile mode")