160 { |
160 { |
161 val theories = info.theories.map(x => (x._2, x._3)) |
161 val theories = info.theories.map(x => (x._2, x._3)) |
162 import XML.Encode._ |
162 import XML.Encode._ |
163 pair(list(pair(string, int)), pair(list(properties), pair(bool, pair(bool, |
163 pair(list(pair(string, int)), pair(list(properties), pair(bool, pair(bool, |
164 pair(Path.encode, pair(list(pair(Path.encode, Path.encode)), pair(string, |
164 pair(Path.encode, pair(list(pair(Path.encode, Path.encode)), pair(string, |
165 pair(string, pair(string, pair(string, |
165 pair(string, pair(string, pair(string, pair(Path.encode, |
166 list(pair(Options.encode, list(Path.encode)))))))))))))( |
166 list(pair(Options.encode, list(Path.encode))))))))))))))( |
167 (Symbol.codes, (command_timings, (do_output, (verbose, |
167 (Symbol.codes, (command_timings, (do_output, (verbose, |
168 (store.browser_info, (info.document_files, (File.standard_path(graph_file), |
168 (store.browser_info, (info.document_files, (File.standard_path(graph_file), |
169 (parent, (info.chapter, (name, |
169 (parent, (info.chapter, (name, (Path.current, |
170 theories))))))))))) |
170 theories)))))))))))) |
171 })) |
171 })) |
172 |
172 |
173 val eval = |
173 val eval = |
174 "Command_Line.tool0 (fn () => (" + |
174 "Command_Line.tool0 (fn () => (" + |
175 "Build.build " + ML_Syntax.print_string0(File.standard_path(args_file)) + |
175 "Build.build " + ML_Syntax.print_string0(File.standard_path(args_file)) + |