Commit e48f58ca authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

remove dead code

parent 38e21d38
...@@ -101,20 +101,15 @@ saveEnvironments envpath targets env ...@@ -101,20 +101,15 @@ saveEnvironments envpath targets env
where where
saveEnvironments :: !String [.Target] *a -> *(Maybe .[{#Char}],*a) | FileSystem a saveEnvironments :: !String [.Target] *a -> *(Maybe .[{#Char}],*a) | FileSystem a
saveEnvironments envpath targets env saveEnvironments envpath targets env
// saveEnvironments envpath [] env = (Nothing,env)
// saveEnvironments envpath [target:targets] env
# (opened, file, env) = fopen envpath FWriteText env # (opened, file, env) = fopen envpath FWriteText env
// # (opened, file, env) = fopen ((MakeFullPathname envpath target.target_name)+++".env") FWriteText env
| not opened | not opened
= (Just ["Fatal open environments..."],env) = (Just ["Fatal open environments..."],env)
#! options = WEO targets #! options = WEO targets
// #! options = WEO [target]
#! file = WriteOptionsFile EnvFileVersion options file #! file = WriteOptionsFile EnvFileVersion options file
# (closed,env) = fclose file env # (closed,env) = fclose file env
| not closed | not closed
= (Just ["Fatal close environments..."],env) = (Just ["Fatal close environments..."],env)
= (Nothing,env) = (Nothing,env)
// = saveEnvironments envpath targets env
/* Variant die in dir zoekt naar alle *.env bestanden? /* Variant die in dir zoekt naar alle *.env bestanden?
* Eerst beginnen met targets in leesbare variant weg te schrijven... * Eerst beginnen met targets in leesbare variant weg te schrijven...
......
...@@ -10,8 +10,7 @@ import UtilNewlinesFile ...@@ -10,8 +10,7 @@ import UtilNewlinesFile
//import StdDebug //import StdDebug
trace_n _ g :== g trace_n _ g :== g
//from dodebug import trace_n`, instance toString (a,b), instance toString (a,b,c), instance toString (a,b,c,d) //from dodebug import trace_n`
//trace_n :== trace_n`
instance toString Symbol instance toString Symbol
where where
...@@ -314,7 +313,6 @@ FindDefinitionInText imp imports cleanid text files ...@@ -314,7 +313,6 @@ FindDefinitionInText imp imports cleanid text files
//FindIdentifiersInInput :: !Bool !String !(List String) !Symbol !Input -> (!Input, !List String, !IdentifierPositionList); //FindIdentifiersInInput :: !Bool !String !(List String) !Symbol !Input -> (!Input, !List String, !IdentifierPositionList);
FindIdentifiersInInput imp cleanid imports sym=:{repr} input positions FindIdentifiersInInput imp cleanid imports sym=:{repr} input positions
| trace_n ("FIII",input.linenr,input.charnr,sym) False = undef
| repr==FromSymID && imp | repr==FromSymID && imp
# (input,sym,imports,positions) = FindFrom imports input positions # (input,sym,imports,positions) = FindFrom imports input positions
= FindIdentifiersInInput imp cleanid imports sym input positions = FindIdentifiersInInput imp cleanid imports sym input positions
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment