Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
e48f58ca
Commit
e48f58ca
authored
Feb 21, 2003
by
Diederik van Arkel
Browse files
remove dead code
parent
38e21d38
Changes
2
Hide whitespace changes
Inline
Side-by-side
Pm/PmEnvironment.icl
View file @
e48f58ca
...
...
@@ -101,20 +101,15 @@ saveEnvironments envpath targets env
where
saveEnvironments
::
!
String
[.
Target
]
*
a
->
*(
Maybe
.[{#
Char
}],*
a
)
|
FileSystem
a
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 ((MakeFullPathname envpath target.target_name)+++".env") FWriteText env
|
not
opened
=
(
Just
[
"Fatal open environments..."
],
env
)
#!
options
=
WEO
targets
// #! options = WEO [target]
#!
file
=
WriteOptionsFile
EnvFileVersion
options
file
#
(
closed
,
env
)
=
fclose
file
env
|
not
closed
=
(
Just
[
"Fatal close environments..."
],
env
)
=
(
Nothing
,
env
)
// = saveEnvironments envpath targets env
/* Variant die in dir zoekt naar alle *.env bestanden?
* Eerst beginnen met targets in leesbare variant weg te schrijven...
...
...
Pm/PmParse.icl
View file @
e48f58ca
...
...
@@ -10,8 +10,7 @@ import UtilNewlinesFile
//import StdDebug
trace_n
_
g
:==
g
//from dodebug import trace_n`, instance toString (a,b), instance toString (a,b,c), instance toString (a,b,c,d)
//trace_n :== trace_n`
//from dodebug import trace_n`
instance
toString
Symbol
where
...
...
@@ -314,7 +313,6 @@ FindDefinitionInText imp imports cleanid text files
//FindIdentifiersInInput :: !Bool !String !(List String) !Symbol !Input -> (!Input, !List String, !IdentifierPositionList);
FindIdentifiersInInput
imp
cleanid
imports
sym
=:{
repr
}
input
positions
|
trace_n
(
"FIII"
,
input
.
linenr
,
input
.
charnr
,
sym
)
False
=
undef
|
repr
==
FromSymID
&&
imp
#
(
input
,
sym
,
imports
,
positions
)
=
FindFrom
imports
input
positions
=
FindIdentifiersInInput
imp
cleanid
imports
sym
input
positions
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment