Commit c30863d2 authored by Camil Staps's avatar Camil Staps 🚀

Adapt to new Cloogle

parent 3cad8eaf
...@@ -3,7 +3,7 @@ definition module Builtins ...@@ -3,7 +3,7 @@ definition module Builtins
from CloogleDB import :: FunctionEntry, :: ClassEntry, :: TypeDefEntry, from CloogleDB import :: FunctionEntry, :: ClassEntry, :: TypeDefEntry,
:: SyntaxEntry :: SyntaxEntry
builtin_functions :: [(FunctionEntry)] builtin_functions :: [FunctionEntry]
builtin_classes :: [(ClassEntry)] builtin_classes :: [ClassEntry]
builtin_types :: [(TypeDefEntry)] builtin_types :: [TypeDefEntry]
builtin_syntax :: [([String], SyntaxEntry)] builtin_syntax :: [SyntaxEntry]
This diff is collapsed.
Subproject commit eceab130bfa7c4eb1d52ae5f4e85427ca13ea97a Subproject commit 86c43ef1a52c2ff3c2fe4dd0533c57a2077cdbe5
...@@ -91,11 +91,6 @@ Start w ...@@ -91,11 +91,6 @@ Start w
# mods = flatten modss # mods = flatten modss
#! (db, w) = loop cli.root mods newTemporaryDb w #! (db, w) = loop cli.root mods newTemporaryDb w
#! db = finaliseDb builtins db #! db = finaliseDb builtins db
//#! db = putFunctions builtin_functions db
//#! db = putClasses builtin_classes db
//#! db = putTypes builtin_types db
//#! db = putFunctions [(setName n loc, f)\\ (loc,t) <- builtin_types, (n, f) <- constructor_functions t ++ record_functions t] db
//#! db = putSyntaxElems builtin_syntax db
#! db = syncDB 2 db #! db = syncDB 2 db
#! (ok1,w) = (True,w) // TODO fclose (printStats db stderr) w #! (ok1,w) = (True,w) // TODO fclose (printStats db stderr) w
#! (db,f) = saveDB db f #! (db,f) = saveDB db f
...@@ -120,7 +115,8 @@ where ...@@ -120,7 +115,8 @@ where
map ClassEntry builtin_classes ++ map ClassEntry builtin_classes ++
map TypeDefEntry builtin_types ++ map TypeDefEntry builtin_types ++
map FunctionEntry (concatMap constructor_functions builtin_types) ++ map FunctionEntry (concatMap constructor_functions builtin_types) ++
map FunctionEntry (concatMap record_functions builtin_types) map FunctionEntry (concatMap record_functions builtin_types) ++
map SyntaxEntry builtin_syntax
eval_all_nodes :: !.a -> .a // From GraphCopy eval_all_nodes :: !.a -> .a // From GraphCopy
eval_all_nodes g = code { eval_all_nodes g = code {
......
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