equal
deleted
inserted
replaced
62 |
62 |
63 |
63 |
64 (* thy database *) |
64 (* thy database *) |
65 |
65 |
66 type deps = |
66 type deps = |
67 {master: (Path.T * File.ident), (*master dependencies for thy file*) |
67 {master: (Path.T * Thy_Load.file_ident), (*master dependencies for thy file*) |
68 imports: string list}; (*source specification of imports (partially qualified)*) |
68 imports: string list}; (*source specification of imports (partially qualified)*) |
69 |
69 |
70 fun make_deps master imports : deps = {master = master, imports = imports}; |
70 fun make_deps master imports : deps = {master = master, imports = imports}; |
71 |
71 |
72 fun master_dir (d: deps option) = the_default Path.current (Option.map (Path.dir o #1 o #master) d); |
72 fun master_dir (d: deps option) = the_default Path.current (Option.map (Path.dir o #1 o #master) d); |
73 fun base_name s = Path.implode (Path.base (Path.explode s)); |
73 fun base_name s = Path.implode (Path.base (Path.explode s)); |