| definition: |
readProgAndStore :: IORef GuiState -> (String -> IO ()) -> String -> IO Prog
readProgAndStore gs prt mod = do
(GS ts mm mods fs ct flag fana) <- readIORef gs
loadpath <- getMainLoadPath gs
prog <- readFlatCurryFileInLoadPath prt mod loadpath
writeIORef gs (GS ts mm (update mod prog mods) fs ct flag fana)
return prog
where
update _ _ [] = []
update nm pr ((n,p):ms) = if n==nm then (n,FP pr):ms
else (n,p) : update nm pr ms
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- read a FlatCurry program and store if not already done |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_,_) |-> _}
|
| name: |
readProgAndStore |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Data.IORef.IORef GuiState -> (String -> Prelude.IO ()) -> String -> Prelude.IO FlatCurry.Types.Prog |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |