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
8afa931c
Commit
8afa931c
authored
Apr 01, 2008
by
John van Groningen
Browse files
remove unused field 'date' of record 'ModInfo'
parent
8fc17ac4
Changes
4
Hide whitespace changes
Inline
Side-by-side
Pm/PmFiles.icl
View file @
8afa931c
...
...
@@ -134,7 +134,6 @@ ModInfoAndNameTable =
,
SimpleOption
"DclOpen"
(\
a
->
a
.
info
.
defopen
)
(\
v
a
->{
a
&
info
.
defopen
=
v
})
,
GroupedOption
"Icl"
EditWdOptionsTable
(\
a
->
a
.
info
.
impeo
)
(\
v
a
->{
a
&
info
.
impeo
=
v
})
,
SimpleOption
"IclOpen"
(\
a
->
a
.
info
.
impopen
)
(\
v
a
->{
a
&
info
.
impopen
=
v
})
,
SimpleOption
"LastModified"
(\
a
->
a
.
info
.
date
)
(\
v
a
->{
a
&
info
.
date
=
v
})
,
ListOption
"NeededObjFiles"
ObjectFile
""
(\
a
->
a
.
info
.
abcLinkInfo
.
linkObjFileNames
)
(\
v
a
->{
a
&
info
.
abcLinkInfo
.
linkObjFileNames
=
v
})
,
ListOption
"NeededLibraries"
Library
""
(\
a
->
a
.
info
.
abcLinkInfo
.
linkLibraryNames
)
...
...
@@ -160,7 +159,6 @@ where
impeo
=
{
eo
=
DefaultEditOptions
,
pos_size
=
NoWindowPosAndSize
},
defopen
=
False
,
impopen
=
False
,
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}
}
DefaultEditOptions
::
EditOptions
;
DefaultEditOptions
=
...
...
Pm/PmProject.icl
View file @
8afa931c
...
...
@@ -115,7 +115,6 @@ PR_NewProject main_module_file_name eo compilerOptions cgo ao prjpaths linkOptio
,
compilerOptions
=
compilerOptions
,
defopen
=
False
,
impopen
=
True
,
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}
}
,
src
=
True
...
...
@@ -194,7 +193,6 @@ where
impeo
=
impeo
,
defopen
=
False
,
impopen
=
False
,
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}
},
src
=
True
,
abc
=
True
}
...
...
@@ -213,14 +211,8 @@ PR_ClearDependencies project=:{inflist=Nil}
PR_ClearDependencies
project
=:{
inflist
=
il
=:(
root
:!
rest
)}
=
{
project
&
saved
=
False
,
inflist
=
root`
:!
Nil
,
built
=
False
}
where
root`
=
{
InfListItem
|
root
&
info
=
{
root
.
InfListItem
.
info
&
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}}}
root`
=
{
InfListItem
|
root
&
info
.
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}}
PR_SetRoot
::
!
String
!
EditWdOptions
!
CompilerOptions
!
Project
->
Project
;
PR_SetRoot
root
eo
co
project
=:{
inflist
=
Nil
}
=
project
;
...
...
@@ -235,7 +227,6 @@ PR_SetRoot newroot eo compilerOptions project=:{prjpaths}
compilerOptions
=
compilerOptions
,
defopen
=
False
,
/* nonsense, we don't know this! */
impopen
=
True
,
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}
},
src
=
True
,
abc
=
True
...
...
@@ -374,7 +365,7 @@ PR_SetPaths def defs new project=:{Project | built,inflist=infl=:((root=:{InfLis
SetDcl_and_Icl_and_ABCModified
::
!
InfListItem
->
(!
InfListItem
,!
Bool
);
SetDcl_and_Icl_and_ABCModified
itm
=:{
InfListItem
|
info
=
minfo
=:{
dir
}}
|
unchanged
=
({
itm
&
src
=
False
},
True
);
=
({
itm
&
info
=
{
minfo
&
dir
=
""
,
date
=
NoDate
},
src
=
False
},
False
);
=
({
itm
&
info
=
{
minfo
&
dir
=
""
},
src
=
False
},
False
);
where
unchanged
=
StringOccurs
dir
defs
||
StringOccurs
dir
prjpaths1
;
...
...
@@ -675,7 +666,6 @@ where
,
impeo
=
{
eo
=
DefaultEditOptions
,
pos_size
=
NoWindowPosAndSize
}
,
defopen
=
False
,
impopen
=
False
,
date
=
NoDate
,
abcLinkInfo
=
{
linkObjFileNames
=
Nil
,
linkLibraryNames
=
Nil
}
}
where
...
...
Pm/PmTypes.dcl
View file @
8afa931c
...
...
@@ -151,7 +151,6 @@ instance fromString Output
,
impeo
::
!
EditWdOptions
// implementation module edit options
,
defopen
::
!
Bool
// definition module is open
,
impopen
::
!
Bool
// implementation module is open
,
date
::
!
DATE
// ???
,
abcLinkInfo
::
!
ABCLinkInfo
// found dependant libs and objs
}
...
...
Pm/PmTypes.icl
View file @
8afa931c
...
...
@@ -3,7 +3,7 @@ implementation module PmTypes
// The types for the Project Manager
import
StdBool
,
StdInt
import
UtilStrictLists
,
UtilDate
import
UtilStrictLists
from
UtilNewlinesFile
import
::
NewlineConvention
(..)
import
PmCompilerOptions
from
StdPathname
import
::
Pathname
...
...
@@ -111,7 +111,6 @@ where
,
impeo
::
!
EditWdOptions
// edit options imp module
,
defopen
::
!
Bool
// dcl open?
,
impopen
::
!
Bool
// icl open?
,
date
::
!
DATE
// last scan date of file???
,
abcLinkInfo
::
!
ABCLinkInfo
}
...
...
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