338 handle Option => error ("Unknown statement name: " ^ labelled_name name); |
338 handle Option => error ("Unknown statement name: " ^ labelled_name name); |
339 in (deresolver, (the_module_name, sca_program)) end; |
339 in (deresolver, (the_module_name, sca_program)) end; |
340 |
340 |
341 fun serialize_scala raw_module_name labelled_name |
341 fun serialize_scala raw_module_name labelled_name |
342 raw_reserved includes raw_module_alias |
342 raw_reserved includes raw_module_alias |
343 _ syntax_tyco syntax_const (code_of_pretty, code_writeln) program cs destination = |
343 _ syntax_tyco syntax_const (code_of_pretty, code_writeln) program stmt_names destination = |
344 let |
344 let |
345 val stmt_names = Code_Target.stmt_names_of_destination destination; |
345 val presentation_stmt_names = Code_Target.stmt_names_of_destination destination; |
346 val module_name = if null stmt_names then raw_module_name else SOME "Code"; |
346 val module_name = if null presentation_stmt_names then raw_module_name else SOME "Code"; |
347 val reserved = fold (insert (op =) o fst) includes raw_reserved; |
347 val reserved = fold (insert (op =) o fst) includes raw_reserved; |
348 val (deresolver, (the_module_name, sca_program)) = scala_program_of_program labelled_name |
348 val (deresolver, (the_module_name, sca_program)) = scala_program_of_program labelled_name |
349 module_name reserved raw_module_alias program; |
349 module_name reserved raw_module_alias program; |
350 val reserved = make_vars reserved; |
350 val reserved = make_vars reserved; |
351 fun args_num c = case Graph.get_node program c |
351 fun args_num c = case Graph.get_node program c |