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
75ecc6fa
Verified
Commit
75ecc6fa
authored
Jul 01, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Really resolve clean-cloogle/cloogle.org#188 for the specific case of usages
parent
367c9e4d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
1 deletion
+6
-1
Cloogle/DB.icl
Cloogle/DB.icl
+6
-1
No files found.
Cloogle/DB.icl
View file @
75ecc6fa
...
...
@@ -453,7 +453,7 @@ filterUsages :: ![String] !*CloogleDB -> *CloogleDB
filterUsages
names
wrap
=:{
db
,
name_map
}
// For each name, the corresponding entries
#
idxss
=
map
(
fromMaybe
[]
o
flip
get
name_map
)
names
#
db
=
'
DB
'.
searchIndices
Intersect
(
sort
[(
i
,[(
ExactResult
,
1
)])
\\
is
<-
idxss
,
i
<-
is
])
db
#
db
=
'
DB
'.
searchIndices
Intersect
(
sort
[(
i
,[(
ExactResult
,
1
)])
\\
is
<-
idxss
,
i
<-
is
])
db
// For all lists of entries, the corresponding usages
#
(
entriess
,
db
)
=
mapSt
'
DB
'.
getIndices
idxss
db
#
usagess
=
map
(
foldr
mergeUnion
[]
o
map
\
e
->
getUsages
e
.
value
)
entriess
...
...
@@ -461,6 +461,11 @@ filterUsages names wrap=:{db,name_map}
#
usages
=
case
usagess
of
[]
->
[]
us
->
foldr1
mergeIntersect
us
#
(
es
,
db
)
=
'
DB
'.
getIndices
usages
db
#
usages
=
[(
case
e
of
FunctionEntry
{
fe_typedef
=
Just
i
}
->
i
FunctionEntry
{
fe_class
=
Just
i
}
->
i
_
->
u
)
\\
u
<-
usages
&
{
value
=
e
}
<-
es
]
#
db
=
'
DB
'.
searchIndices
AddExcluded
[(
u
,[])
\\
u
<-
usages
]
db
=
{
wrap
&
db
=
db
}
where
...
...
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