Commit 3cad8eaf authored by Camil Staps's avatar Camil Staps 🚀

Adapt builddb for new finaliseDB

parent 5fda4588
Subproject commit 33751e14a6a4d25b273506980258ce694789af4a
Subproject commit eceab130bfa7c4eb1d52ae5f4e85427ca13ea97a
......@@ -12,6 +12,7 @@ import StdTuple
import Data.Either
from Data.Func import $, mapSt
import Data.Functor
import Data.List
import Data.Maybe
import System.CommandLine
from Text import class Text(concat,startsWith), instance Text String
......@@ -89,7 +90,7 @@ Start w
# (modss, w) = mapSt (flip (uncurry $ findModules cli.exclude cli.root) "") cli.libs w
# mods = flatten modss
#! (db, w) = loop cli.root mods newTemporaryDb w
#! db = finaliseDb db
#! db = finaliseDb builtins db
//#! db = putFunctions builtin_functions db
//#! db = putClasses builtin_classes db
//#! db = putTypes builtin_types db
......@@ -114,6 +115,13 @@ where
#! db = eval_all_nodes db
= loop root list db w
builtins =
map FunctionEntry builtin_functions ++
map ClassEntry builtin_classes ++
map TypeDefEntry builtin_types ++
map FunctionEntry (concatMap constructor_functions builtin_types) ++
map FunctionEntry (concatMap record_functions builtin_types)
eval_all_nodes :: !.a -> .a // From GraphCopy
eval_all_nodes g = code {
push_a 0
......
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