| definition: |
startBrowser :: String -> IO ()
startBrowser modname = do
initializeAnalysisSystem
putStr "Please be patient, reading all interfaces..."
helptxt <- readFileInBrowserDir readmeFile
mods <- getImportedInterfaces modname
putStrLn "done"
let mainmod = progName (progOfIFFP (snd (head mods)))
trees = [Leaf mainmod
(mainmod,map (moduleImports . progOfIFFP . snd) mods)]
stateref <- newIORef (GS trees modname mods
[] ("",OtherText,"") False Nothing)
runInitGUI title
(browserGUI stateref rmod rtxt (trees2strings trees))
(\gp -> setValue rtxt helptxt gp >> setValue rmod "0" gp >>
return [])
where rmod,rtxt free
|
| demand: |
no demanded arguments |
| deterministic: |
possibly non-deterministic operation |
| indeterministic: |
might be indeterministic |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> _}
|
| name: |
startBrowser |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
String -> Prelude.IO () |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |