Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
d5610819
Commit
d5610819
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
partial haskell frontend support
parent
590805fa
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
51 additions
and
4 deletions
+51
-4
Ide/projwin.icl
Ide/projwin.icl
+51
-4
No files found.
Ide/projwin.icl
View file @
d5610819
...
@@ -538,16 +538,63 @@ where
...
@@ -538,16 +538,63 @@ where
=
makenice
u
s
r
=
makenice
u
s
r
where
where
f
mod
=
if
shift
f
mod
=
if
shift
(
OpenModule
(
MakeDefPathname
mod
)
emptySelection
)
(
open_def
mod
)
//(
OpenModule (MakeDefPathname mod) emptySelection)
(
OpenModule
(
MakeImpPathname
mod
)
emptySelection
)
(
open_imp
mod
)
//(
OpenModule (MakeImpPathname mod) emptySelection)
f`
mod
=
if
shift
f`
mod
=
if
shift
(
OpenModule
(
MakeImpPathname
mod
)
emptySelection
)
(
open_imp
mod
)
//(
OpenModule (MakeImpPathname mod) emptySelection)
(
OpenModule
(
MakeDefPathname
mod
)
emptySelection
)
(
open_def
mod
)
//(
OpenModule (MakeDefPathname mod) emptySelection)
isUnfoldedDir
d
Nil
=
False
isUnfoldedDir
d
Nil
=
False
isUnfoldedDir
d
((
u
,
d`
):!
ds
)
isUnfoldedDir
d
((
u
,
d`
):!
ds
)
|
d
==
d`
=
u
|
d
==
d`
=
u
=
isUnfoldedDir
d
ds
=
isUnfoldedDir
d
ds
open_def
mod
ps
#
defpath
=
MakeDefPathname
mod
// # (exists,ps) = accFiles (FExists defpath) ps
#
(
exists
,
ps
)
=
exists_module
defpath
ps
|
exists
=
OpenModule
defpath
emptySelection
ps
#
lhspath
=
RemoveSuffix
mod
+++
".lhs"
// # (exists,ps) = accFiles (FExists lhspath) ps
#
(
exists
,
ps
)
=
exists_module
lhspath
ps
|
exists
=
OpenModule
lhspath
emptySelection
ps
#
hspath
=
RemoveSuffix
mod
+++
".hs"
// # (exists,ps) = accFiles (FExists hspath) ps
#
(
exists
,
ps
)
=
exists_module
hspath
ps
|
exists
=
OpenModule
hspath
emptySelection
ps
=
OpenModule
defpath
emptySelection
ps
open_imp
mod
ps
#
defpath
=
MakeImpPathname
mod
// # (exists,ps) = accFiles (FExists defpath) ps
#
(
exists
,
ps
)
=
exists_module
defpath
ps
|
exists
=
OpenModule
defpath
emptySelection
ps
#
lhspath
=
RemoveSuffix
mod
+++
".lhs"
// # (exists,ps) = accFiles (FExists lhspath) ps
#
(
exists
,
ps
)
=
exists_module
lhspath
ps
|
exists
=
OpenModule
lhspath
emptySelection
ps
#
hspath
=
RemoveSuffix
mod
+++
".hs"
// # (exists,ps) = accFiles (FExists hspath) ps
#
(
exists
,
ps
)
=
exists_module
hspath
ps
|
exists
=
OpenModule
hspath
emptySelection
ps
=
OpenModule
defpath
emptySelection
ps
exists_module
pathname
ps
#
(
syspaths
,
ps
)
=
getCurrentPaths
ps
#
(
prj
,
ps
)
=
getProject
ps
#
prjpaths
=
PR_GetPaths
prj
#
srcpaths
=
AppendLists
prjpaths
syspaths
#
srcpaths
=
case
IsABCPathname
pathname
of
True
->
Map
MakeSystemPathname
srcpaths
_
->
srcpaths
#
((
ok
,
fullpath
),
ps
)
=
accFiles
(
SearchDisk
False
pathname
srcpaths
)
ps
=
(
ok
,
ps
)
// pm_set: set main module
// pm_set: set main module
pm_set
::
!*(
PSt
*
General
)
->
*
PSt
*
General
pm_set
::
!*(
PSt
*
General
)
->
*
PSt
*
General
pm_set
ps
pm_set
ps
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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