Skip to content

GitLab

Cloogle
Cloogle
Verified Commit 7c5e0a80 authored by Camil Staps's avatar Camil Staps 🚀
Browse files
Options

Implement function usages

parent 7bd21048
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 282 additions and 276 deletions
AllIdents.dcl deleted 100644 → 0
View file @ 7bd21048
definition module AllIdents
from StdClass import class Eq
from StdList import isMember, removeDup
from StdOverloaded import class ==
from syntax import :: ParsedDefinition
class AllIdents t
where
// allIdents` :: t -> [String]
// allIdents :: t -> [String]
// allIdents x :== removeDup (allIdents` x)
definedIdents` :: t -> [String]
definedIdents :: t -> [String]
definedIdents x :== removeDup (definedIdents` x)
globalIdents` :: t -> [String]
globalIdents :: t -> [String] | AllIdents t
globalIdents x :== removeDup (globalIdents` x)
instance AllIdents [t] | AllIdents t
instance AllIdents ParsedDefinition
AllIdents.icl deleted 100644 → 0
View file @ 7bd21048
implementation module AllIdents
from Data.List import concatMap
import syntax
instance AllIdents [t] | AllIdents t
where
globalIdents` xs = concatMap globalIdents` xs
definedIdents` xs = concatMap definedIdents` xs
instance AllIdents ParsedDefinition
where
globalIdents` pd = case pd of
PD_Function _ id _ args rhs _ -> [i \\ i <- globalIdents rhs ++ globalIdents | not (isMember i [id.id_name:globalIdents args])]
PD_NodeDef _ e rhs -> [i \\ i <- globalIdents rhs | not (isMember i (globalIdents e))]
PD_Type ptd -> abort "AllIdents PD_Type\n"
PD_TypeSpec _ _ _ _ _ -> []
//PD_TypeSpec Position Ident Priority (Optional SymbolType) FunSpecials
//PD_Class ClassDef [ParsedDefinition]
//PD_Instance ParsedInstanceAndMembers
//PD_Instances [ParsedInstanceAndMembers]
//PD_Import [ParsedImport]
//PD_ImportedObjects [ImportedObject]
//PD_ForeignExport !Ident !{#Char} !Int !Bool /* if stdcall */
//PD_Generic GenericDef
//PD_GenericCase GenericCaseDef Ident
//PD_Derive [GenericCaseDef]
//PD_Documentation DocType String
//PD_Erroneous
_ -> abort "AllIdents ParsedDefinition\n"
definedIdents` pd = case pd of
PD_Function _ id _ _ _ _ -> [id.id_name]
PD_NodeDef _ e _ -> globalIdents` e
PD_TypeSpec _ _ _ _ _ -> []
// TODO
instance AllIdents ParsedExpr
where
globalIdents` pe = case pe of
PE_List pes -> globalIdents` pes
PE_Ident id -> [id.id_name]
PE_Basic _ -> []
PE_Bound e -> []
PE_Lambda _ args rhs _ -> [i \\ i <- globalIdents rhs | not (isMember i (globalIdents args))]
PE_Tuple es -> globalIdents` es
PE_Record init _ fields -> globalIdents` init ++ globalIdents` [f.bind_src \\ f <- fields]
//(PE_Record !ParsedExpr !OptionalRecordName ![FieldAssignment]
PE_ArrayPattern _ -> abort "AllIdents PE_ArrayPattern"
//(PE_ArrayPattern ![ElemAssignment]
PE_UpdateComprehension _ _ _ _ -> abort "AllIdents PE_UpdateComprehension"
//(PE_UpdateComprehension !ParsedExpr !ParsedExpr !ParsedExpr ![Qualifier]
PE_ArrayDenot _ _ -> abort "AllIdents PE_ArrayDenot"
//(PE_ArrayDenot !ArrayKind ![ParsedExpr]
PE_Selection _ e s -> globalIdents` e ++ globalIdents` s
PE_Update _ _ _ -> abort "AllIdents PE_Update"
//(PE_Update !ParsedExpr [ParsedSelection] ParsedExpr
PE_Case _ pe alts -> globalIdents` pe ++ globalIdents` alts
PE_If _ b t e -> globalIdents` [b,t,e]
//(PE_If !Ident !ParsedExpr !ParsedExpr !ParsedExpr
PE_Let locals e -> globalIdents` locals ++ globalIdents` e
PE_ListCompr _ _ e qs -> [i \\ i <- globalIdents e ++ globalIdents qs | not (isMember i (definedIdents qs))]
PE_ArrayCompr _ e qs -> [i \\ i <- globalIdents e ++ globalIdents qs | not (isMember i (definedIdents qs))]
//(PE_ArrayCompr !ArrayKind !ParsedExpr ![Qualifier]
PE_Sequ s -> globalIdents` s
PE_WildCard -> []
PE_Matches _ _ _ _ -> abort "AllIdents PE_Matches"
//(PE_Matches !Ident /*expr*/!ParsedExpr /*pattern*/!ParsedExpr !Position
//(PE_QualifiedIdent !Ident !String
PE_ABC_Code _ _ -> []
PE_Any_Code _ _ _ -> []
//(PE_DynamicPattern !ParsedExpr !DynamicType
//(PE_Dynamic !ParsedExpr !(Optional DynamicType)
//(PE_Generic !Ident !TypeKind /* AA: For generics, kind indexed identifier */
//(PE_TypeSignature !ArrayKind !ParsedExpr
PE_Empty -> []
_ -> abort "AllIdents ParsedExpr\n"
definedIdents` pe = case pe of
(PE_List pes) -> []
(PE_Ident id) -> []
(PE_Basic _) -> []
(PE_Bound e) -> [e.bind_dst.id_name:globalIdents` e.bind_src]
(PE_Lambda _ _ _ _) -> []
(PE_Tuple _) -> []
(PE_Record _ _ _) -> []
(PE_ArrayPattern _) -> abort "AllIdents PE_ArrayPattern"
//(PE_ArrayPattern ![ElemAssignment]
(PE_UpdateComprehension _ _ _ _) -> abort "AllIdents PE_UpdateComprehension"
//(PE_UpdateComprehension !ParsedExpr !ParsedExpr !ParsedExpr ![Qualifier]
(PE_ArrayDenot _ _) -> abort "AllIdents PE_ArrayDenot"
//(PE_ArrayDenot !ArrayKind ![ParsedExpr]
(PE_Selection _ _ _) -> abort "AllIdents PE_Selection"
//(PE_Selection !ParsedSelectorKind !ParsedExpr ![ParsedSelection]
(PE_Update _ _ _) -> abort "AllIdents PE_Update"
//(PE_Update !ParsedExpr [ParsedSelection] ParsedExpr
(PE_Case _ pe alts) -> globalIdents` pe ++ globalIdents` alts
(PE_If _ b t e) -> globalIdents` [b,t,e]
//(PE_If !Ident !ParsedExpr !ParsedExpr !ParsedExpr
(PE_Let locals e) -> globalIdents` locals ++ globalIdents` e
(PE_ListCompr _ _ e qs) -> [i \\ i <- globalIdents e | not (isMember i (globalIdents qs))]
//(PE_ArrayCompr !ArrayKind !ParsedExpr ![Qualifier]
//(PE_Sequ Sequence
PE_WildCard -> []
//(PE_Matches !Ident /*expr*/!ParsedExpr /*pattern*/!ParsedExpr !Position
//(PE_QualifiedIdent !Ident !String
//(PE_ABC_Code ![String] !Bool
//(PE_Any_Code !(CodeBinding Ident) !(CodeBinding Ident) ![String]
//(PE_DynamicPattern !ParsedExpr !DynamicType
//(PE_Dynamic !ParsedExpr !(Optional DynamicType)
//(PE_Generic !Ident !TypeKind /* AA: For generics, kind indexed identifier */
//(PE_TypeSignature !ArrayKind !ParsedExpr
PE_Empty -> []
_ -> abort "AllIdents ParsedExpr\n"
instance AllIdents (Optional a) | AllIdents a
where
globalIdents` No = []
globalIdents` (Yes x) = globalIdents` x
definedIdents` No = []
definedIdents` (Yes x) = definedIdents` x
instance AllIdents Rhs
where
globalIdents` rhs = [i \\ i <- globalIdents rhs.rhs_alts ++ globalIdents rhs.rhs_locals | not (isMember i (definedIdents rhs.rhs_locals))]
definedIdents` _ = []
instance AllIdents LocalDefs
where
globalIdents` (LocalParsedDefs defs) = globalIdents` defs
globalIdents` _ = abort "AllIdents LocalDefs\n"
definedIdents` (LocalParsedDefs defs) = definedIdents` defs
definedIdents` _ = abort "definedIdents` LocalDefs\n"
instance AllIdents OptGuardedAlts
where
globalIdents` (UnGuardedExpr e) = globalIdents` e
globalIdents` (GuardedAlts es oth) = globalIdents` es ++ globalIdents` oth
definedIdents` _ = []
instance AllIdents ExprWithLocalDefs
where
globalIdents` e = [i \\ i <- globalIdents e.ewl_expr | not (isMember i (globalIdents e.ewl_locals))]
definedIdents` _ = []
// NOTE ewl_nodes?
instance AllIdents GuardedExpr
where
globalIdents` e = globalIdents` e.alt_guard ++ globalIdents` e.alt_expr
definedIdents` _ = []
// NOTE alt_nodes?
instance AllIdents CaseAlt
where
globalIdents` a = [i \\ i <- globalIdents a.calt_rhs | not (isMember i (globalIdents a.calt_pattern))]
definedIdents` _ = []
instance AllIdents Qualifier
where
globalIdents` q = globalIdents` q.qual_generators ++ globalIdents` q.qual_let_defs ++ globalIdents` q.qual_filter
definedIdents` q = definedIdents` q.qual_generators
instance AllIdents Generator
where
globalIdents` g = globalIdents` g.gen_expr
definedIdents` g = definedIdents` g.gen_pattern
instance AllIdents Sequence
where
globalIdents` s = case s of
SQ_FromThen _ a b -> globalIdents` [a,b]
SQ_FromThenTo _ a b c -> globalIdents` [a,b]
SQ_From _ a -> globalIdents` a
SQ_FromTo _ a b -> globalIdents` [a,b]
definedIdents` _ = []
instance AllIdents ParsedSelection
where
globalIdents` ps = case ps of
PS_Record id _ -> [id.id_name]
PS_QualifiedRecord _ s _ -> [s]
PS_Array e -> globalIdents` e
PS_Erroneous -> []
definedIdents` _ = []
import StdMisc
CleanPrettyPrint @ 25b5f828
Subproject commit 1a9e842bb4c58ec4ff270b843d878f3fce8e0c22
Subproject commit 25b5f828ddb77a10482ba69b5f35f34c45779cc8
CleanTypeUnifier @ d052c6fb
Subproject commit c68334f3df6257e0a17259974a0ec25278981d0c
Subproject commit d052c6fb6fcbff6316f913892f310ce476e5bf0b
CloogleDBFactory.dcl
View file @ 7c5e0a80
......@@ -4,6 +4,8 @@ definition module CloogleDBFactory
* Functions to populate a database using the Clean compiler frontend
*/
from Data.Set import :: Set
import CloogleDB
:: TemporaryDB
......@@ -69,15 +71,15 @@ indexModule :: !Bool !String !Module !Library
* - The module
*/
findModuleContents :: !Bool !String !*World
-> *( ![(LocationInModule, FunctionEntry, [String])]
, ![(LocationInModule, FunctionEntry, [String])]
, ![(LocationInModule, FunctionEntry, [String])]
-> *( ![(LocationInModule, FunctionEntry, Set String)]
, ![(LocationInModule, FunctionEntry, Set String)]
, ![(LocationInModule, FunctionEntry, Set String)]
, ![(LocationInModule, TypeDefEntry)]
, ![(LocationInModule, ClassEntry, [(String, FunctionEntry, [String])])]
, ![(LocationInModule, ClassEntry, [(String, FunctionEntry, Set String)])]
, ![(Name, [(Type, String)], LocationInModule)]
, ![(Name, [(Type, String, LocationInModule)])]
, ![(Name, Type, String, LocationInModule)]
, !(Name, ModuleEntry, [String])
, !(Name, ModuleEntry, Set String)
, !*World
)
......
CloogleDBFactory.icl
View file @ 7c5e0a80
This diff is collapsed.
DB.dcl
View file @ 7c5e0a80
......@@ -73,7 +73,7 @@ getEntries :: *(DB v ak a) -> *([(v, Map ak a)], *DB v ak a)
/**
* An in-place map over all entries (also the excluded ones).
*/
mapInPlace :: (v -> v) *(DB v ak a) -> *(DB v ak a)
mapInPlace :: (Int v -> v) *(DB v ak a) -> *(DB v ak a)
/**
* Linear search for entries. The search function returns whether the entry
......
DB.icl
View file @ 7c5e0a80
......@@ -7,7 +7,7 @@ import StdInt
import StdString
import StdTuple
from Data.Func import $
from Data.Func import $, hyperstrict
import Data.Functor
import Data.Map
import Data.Maybe
......@@ -23,7 +23,7 @@ instance == Index where == (Index a) (Index b) = a == b
instance < Index where < (Index a) (Index b) = a < b
newDB :: [v] -> *DB v ak a
newDB vs = DB {{value=v,included=True,annotations=newMap} \\ v <- vs}
newDB vs = DB {{value=hyperstrict v,included=True,annotations=newMap} \\ v <- vs}
saveDB :: *(DB v ak a) *File -> *(*DB v ak a, *File) | JSONEncode{|*|} v
saveDB (DB db) f
......@@ -98,15 +98,17 @@ where
# (r,es) = collect (i-1) es
= (if e.included [(e.value,e.annotations):r] r, es)
mapInPlace :: (v -> v) *(DB v ak a) -> *(DB v ak a)
mapInPlace :: (Int v -> v) *(DB v ak a) -> *(DB v ak a)
mapInPlace f (DB db)
# (s,db) = usize db
= DB (upd (s-1) db)
= DB (upd 0 s db)
where
upd -1 es = es
upd i es
# (e,es) = es![i]
= upd (i-1) {es & [i]={e & value=f e.value}}
//upd :: !Int !Int !*{!Entry v ak a} -> *{!Entry v ak a}
upd i s es
| i == s = es
#! (e,es) = es![i]
#! e & value = hyperstrict $ f i e.value
= upd (i+1) s {es & [i]=e}
search :: !SearchMode (v -> (Bool, [(ak, a)])) *(DB v ak a) -> *DB v ak a | ==, < ak
search mode f (DB db)
......
Idents.dcl 0 → 100644
View file @ 7c5e0a80
definition module Idents
from StdClass import class Eq
from StdList import isMember, removeDup
from StdOverloaded import class ==
from Data.Set import :: Set
from syntax import :: ParsedDefinition
:: Idents =
{ locals :: Set String
, globals :: Set String
}
:: IdentContext
= ICExpression
| ICPattern
class idents t :: IdentContext t -> Idents
instance idents [t] | idents t
instance idents ParsedDefinition
Idents.icl 0 → 100644
View file @ 7c5e0a80
implementation module Idents
from Data.List import concatMap
from Data.Set import :: Set, newSet, union, unions, difference, fromList
import syntax
removeLocalGlobals :: Idents -> Idents
removeLocalGlobals ids = {ids & globals=difference ids.globals ids.locals}
noLocals :: Idents -> Idents
noLocals ids = {ids & locals=newSet}
instance zero Idents
where
zero =
{ locals = newSet
, globals = newSet
}
instance + Idents
where
+ a b = removeLocalGlobals
{ locals = union a.locals b.locals
, globals = union a.globals b.globals
}
instance idents [t] | idents t
where
idents c xs = removeLocalGlobals
{ locals = unions [x.locals \\ x <- xids]
, globals = unions [x.globals \\ x <- xids]
}
where xids = map (idents c) xs
instance idents (Optional a) | idents a
where
idents _ No = zero
idents c (Yes x) = idents c x
instance idents String
where
idents ICExpression s = {zero & globals=fromList [s]}
idents ICPattern s = {zero & locals= fromList [s]}
instance idents Ident where idents c id = idents c id.id_name
instance idents ParsedDefinition
where
idents c pd = case pd of
PD_Function _ id _ args rhs _ ->
idents ICPattern id +
noLocals (idents ICPattern args + idents ICExpression rhs)
PD_NodeDef _ e rhs -> idents ICPattern e + idents ICExpression rhs
PD_Type _ -> abort "idents PD_Type\n"
// PD_Type ptd -> abort "idents PD_Type\n"
PD_TypeSpec _ _ _ _ _ -> zero
PD_Class _ _ -> abort "idents PD_Class\n"
// PD_Class ClassDef [ParsedDefinition]
PD_Instance _ -> abort "idents PD_Instance\n"
// PD_Instance ParsedInstanceAndMembers
// PD_Instances [ParsedInstanceAndMembers]
// PD_Import [ParsedImport]
// PD_ImportedObjects [ImportedObject]
// PD_ForeignExport !Ident !{#Char} !Int !Bool /* if stdcall */
// PD_Generic GenericDef
// PD_GenericCase GenericCaseDef Ident
// PD_Derive [GenericCaseDef]
// PD_Documentation DocType String
// PD_Erroneous
instance idents ParsedExpr
where
idents c pe = case pe of
PE_List pes -> idents c pes
PE_Ident id -> idents c id
PE_Basic b -> idents c b
PE_Bound _ -> zero
PE_Lambda _ args rhs _ -> noLocals (idents ICPattern args + idents ICExpression rhs)
PE_Tuple es -> idents c es
PE_Record init _ fields -> idents c init + idents c [f.bind_src \\ f <- fields]
PE_ArrayPattern _ -> abort "idents PE_ArrayPattern\n"
//(PE_ArrayPattern ![ElemAssignment]
PE_UpdateComprehension base (PE_Update _ sels new) _ qs -> noLocals (idents ICExpression [base,new] + idents ICExpression sels + idents ICPattern qs)
PE_ArrayDenot _ es -> idents c es
PE_Selection _ e s -> idents c e + idents c s
PE_Update b s e -> idents c b + idents c s + idents c e
PE_Case _ pe alts -> idents c pe + idents c alts
PE_If _ b t e -> idents c [b,t,e] + idents c "if"
PE_Let locals e -> noLocals (idents ICPattern locals + idents ICExpression e)
PE_ListCompr _ _ e qs -> noLocals (idents ICPattern qs + idents ICExpression e)
PE_ArrayCompr _ e qs -> noLocals (idents ICPattern qs + idents ICExpression e)
PE_Sequ s -> idents c s
PE_WildCard -> zero
PE_Matches _ e p _ -> idents ICPattern e + idents ICPattern p
PE_QualifiedIdent _ s -> idents c s
PE_ABC_Code _ _ -> zero
PE_Any_Code _ _ _ -> zero
PE_DynamicPattern pe _ -> idents c pe
PE_Dynamic pe _ -> idents c pe + idents c "dynamic"
PE_Generic id _ -> idents c id
//(PE_TypeSignature !ArrayKind !ParsedExpr
PE_Empty -> zero
_ -> abort "idents ParsedExpr\n"
instance idents BasicValue
where
idents _ b = case b of
BVB b -> idents ICExpression (toString b)
_ -> zero
instance idents Rhs
where
idents ICExpression rhs = noLocals (idents ICExpression rhs.rhs_alts + idents ICPattern rhs.rhs_locals)
instance idents LocalDefs
where
idents c (LocalParsedDefs defs) = idents c defs
idents _ _ = abort "idents LocalDefs\n"
instance idents OptGuardedAlts
where
idents ICExpression alts = case alts of
UnGuardedExpr e -> idents ICExpression e
GuardedAlts es oth -> idents ICExpression es + idents ICExpression oth
instance idents ExprWithLocalDefs
where
idents ICExpression e = noLocals (idents ICExpression e.ewl_locals + idents ICExpression e.ewl_expr)
// NOTE ewl_nodes?
instance idents GuardedExpr
where
idents ICExpression e = idents ICExpression e.alt_guard + idents ICExpression e.alt_expr
// NOTE alt_nodes?
instance idents CaseAlt
where
idents ICExpression a = noLocals (idents ICPattern a.calt_pattern + idents ICExpression a.calt_rhs)
instance idents Qualifier
where
idents ICPattern q =
idents ICPattern q.qual_generators +
idents ICPattern q.qual_let_defs +
idents ICExpression q.qual_filter
instance idents Generator
where
idents ICPattern g = idents ICPattern g.gen_pattern + idents ICExpression g.gen_expr
instance idents Sequence
where
idents ICExpression s = case s of
SQ_FromThen _ a b -> idents ICExpression [a,b]
SQ_FromThenTo _ a b c -> idents ICExpression [a,b]
SQ_From _ a -> idents ICExpression a
SQ_FromTo _ a b -> idents ICExpression [a,b]
instance idents ParsedSelection
where
idents c ps = case ps of
PS_Record id _ -> idents c id
PS_QualifiedRecord _ s _ -> idents c s
PS_Array e -> idents c e
PS_Erroneous -> zero
//import StdMisc
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment