| definition: |
getFrontendCall :: FrontendTarget -> FrontendParams -> String -> IO String
getFrontendCall target params modpath = do
parsecurry <- callParseCurry
let tgts = nub (target : targets params)
return $ unwords $ [parsecurry] ++ map showFrontendTarget tgts ++
[showFrontendParams, cppParams, takeFileName modpath]
where
callParseCurry = do
path <- maybe (getLoadPathForModule modpath)
(\p -> return (nub (takeDirectory modpath : p)))
(fullPath params)
return $ quote (frontendPath params) ++
concatMap ((" -i" ++) . quote) path
quote s = '"' : s ++ "\""
showFrontendTarget FCY = "--flat"
showFrontendTarget TFCY = "--typed-flat"
showFrontendTarget TAFCY = "--type-annotated-flat --flat" -- due to f.e.bug
showFrontendTarget FINT = "--flat"
showFrontendTarget ACY = "--acy"
showFrontendTarget UACY = "--uacy"
showFrontendTarget HTML = "--html"
showFrontendTarget CY = "--parse-only"
showFrontendTarget TOKS = "--tokens"
showFrontendTarget AST = "--ast"
showFrontendTarget SAST = "--short-ast"
showFrontendTarget COMMS = "--comments"
showFrontendParams = unwords
[ "-o ", outdir params
, if quiet params then runQuiet else ""
, if extended params then "--extended" else ""
, if cpp params then "--cpp" else ""
, if overlapWarn params then "" else "--no-overlap-warn"
, maybe "" ("--htmldir="++) (htmldir params)
, specials params
, if withNewtypeDesugar && target `elem` [FCY,TFCY,TAFCY,FINT]
then "-Odesugar-newtypes" -- remove newtypes by front end
else ""
]
runQuiet = "--no-verb --no-warn --no-overlap-warn"
cppParams = intercalate " " $ map showDefinition (definitions params)
showDefinition (s, v) = "-D" ++ s ++ "=" ++ show v
withNewtypeDesugar =
curryCompiler == "pakcs" && curryCompilerMajorVersion <= 3 &&
curryCompilerMinorVersion < 4
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
--- Returns the system command invoked to call the front end of the --- Curry compiler where various parameters can be set. --- @param target - the kind of target file to be generated --- @param params - parameters for the front end --- @param modpath - the name of the main module possibly prefixed with a --- directory where this module resides |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_,_) |-> _}
|
| name: |
getFrontendCall |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
FrontendTarget -> FrontendParams -> String -> Prelude.IO String |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |