|
definition:
|
concatAll :: [StandardToken] -> String
concatAll [] = ""
concatAll (t1:tks) = getCode t1 ++ (concatAllHelper
(getIdentPos t1)
(containsDSL t1)
tks)
where
concatAllHelper :: Pos -> Bool -> [StandardToken] -> String
concatAllHelper _ _ [] = ""
concatAllHelper op b (t:toks) =
let s = getCode t
p = getIdentPos t
-- if generated dsl code was processed before
in if b
then
let lnDiff = lnDifference op p
in
-- if the first word of s was in a newline after the dsl
if (null s)
then genLines lnDiff ++ concatAllHelper p (containsDSL t) toks
else
if (head s == '\n')
then (genLines lnDiff ++ s
++ concatAllHelper p (containsDSL t) toks)
-- If the first word of s was in the last line of the dsl.
else
let (headLine,restOfCurry) = splitByLine s
in
headLine ++ genLines lnDiff ++ restOfCurry
++ concatAllHelper p (containsDSL t) toks
else (s ++ concatAllHelper p (containsDSL t) toks)
|
|
demand:
|
argument 1
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--- Concatenates the result of the translation process, inserting newlines
--- and offsets if necessary
--- @param tks - A list of StandardTokens containing the results
--- @result - The resulting program code
|
|
failfree:
|
_
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{({[]}) |-> {[]} || ({:}) |-> _}
|
|
name:
|
concatAll
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
[CPP.ICode.ParseTypes.StandardToken] -> String
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|