CurryInfo: currypp-3.2.0 / CPP.ICode.TransICode.concatAll

 
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)

 argument 1

 deterministic operation

 
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

 _

 referentially transparent operation

 no fixity defined

 {({[]}) |-> {[]} || ({:}) |-> _}

 concatAll

 no precedence defined

 _

 [CPP.ICode.ParseTypes.StandardToken] -> String

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term