src/Pure/Thy/thy_info.ML
changeset 40741 17d6293a1e26
parent 40132 7ee65dbffa31
child 41536 47fef6afe756
equal deleted inserted replaced
40740:6bff052e4f48 40741:17d6293a1e26
    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));