src/Tools/Code/code_scala.ML
changeset 36535 0195ef994077
parent 35228 ac2cab4583f4
child 37224 f4d3c929c526
equal deleted inserted replaced
36534:0090b04432f7 36535:0195ef994077
   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