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
Cloogle
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
Cloogle
Commits
c9d23906
Verified
Commit
c9d23906
authored
May 26, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixes for modules without dcl
parent
db826a73
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
Cloogle/DB/Factory.icl
Cloogle/DB/Factory.icl
+8
-8
No files found.
Cloogle/DB/Factory.icl
View file @
c9d23906
...
...
@@ -379,7 +379,7 @@ findModules root item base w
#!
(
fps
,
w
)
=
readDirectory
fullpath
w
|
isError
fps
=
([],
w
)
#!
(
Ok
fps
)
=
fps
#!
mods
=
map
makeEntry
$
filter
included
$
filter
isIclModule
fps
#!
mods
=
[
makeEntry
fn
(
isMember
(
replaceSubString
".icl"
".dcl"
fn
)
fps
)
\\
fn
<-
fps
|
isIclModule
fn
&&
included
fn
]
#!
(
moremodss
,
w
)
=
mapSt
(
findModules
root
item
o
((+++)
basedot
))
(
filter
isDirectory
fps
)
w
=
(
removeDupBy
(\
m
->
'
CDB
'.
getName
m
.
me_loc
)
(
mods
++
flatten
moremodss
),
w
)
where
...
...
@@ -392,9 +392,9 @@ where
(</?>)
p
""
=
p
(</?>)
p1
p2
=
p1
</>
p2
makeEntry
::
String
->
'
CDB
'.
ModuleEntry
makeEntry
fn
=
{
me_loc
=
location
item
.
IndexItem
.
name
modname
(
path
</?>
fn
)
(
Just
1
)
(
Just
1
)
modname
makeEntry
::
!
String
!
Bool
->
'
CDB
'.
ModuleEntry
makeEntry
fn
has_dcl
=
{
me_loc
=
location
item
.
IndexItem
.
name
modname
(
path
</?>
fn
)
(
if
has_dcl
(
Just
1
)
Nothing
)
(
Just
1
)
modname
,
me_is_core
=
match
item
.
pattern_core
(
path
</?>
fn
)
,
me_is_app
=
match
item
.
pattern_app
(
path
</?>
fn
)
,
me_documentation
=
Nothing
...
...
@@ -468,11 +468,11 @@ findModuleContents :: !Bool !String !*World
)
findModuleContents
include_locals
path
w
#!
(
dcl
,
dcl_symbols
,
w
)
=
readModule
False
w
#!
(
dcl
,
modname
)
=
case
dcl
of
Left
_
->
([],
""
)
Right
dcl
->
(
dcl
.
mod_defs
,
dcl
.
mod_ident
.
id_name
)
#!
dcl
=
case
dcl
of
Left
_
->
[];
Right
dcl
->
dcl
.
mod_defs
#!
(
icl
,
icl_symbols
,
w
)
=
readModule
True
w
#!
icl
=
case
icl
of
Left
_
->
[];
Right
icl
->
icl
.
mod_defs
#!
(
icl
,
modname
)
=
case
icl
of
Left
_
->
([],
""
)
Right
icl
->
(
icl
.
mod_defs
,
icl
.
mod_ident
.
id_name
)
#!
imports
=
'S'
.
fromList
[
i
.
import_module
.
id_name
\\
PD_Import
is
<-
dcl
++
icl
,
i
<-
is
]
#!
contents
=:(
functions
,
rules
,
generics
,
typedefs
,
clss
,
insts
,
derivs
,
clsderivs
)
=
(
combine
cmpLocFst3
joinLocFstIds
pd_typespecs
dcl
dcl_symbols
icl
icl_symbols
...
...
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