src/Tools/Code/code_target.ML
changeset 38928 0e6f54c9d201
parent 38927 544f4702d621
child 38929 d9ac9dee764d
equal deleted inserted replaced
38927:544f4702d621 38928:0e6f54c9d201
   103 
   103 
   104 type serializer = Token.T list (*arguments*) -> {
   104 type serializer = Token.T list (*arguments*) -> {
   105     labelled_name: string -> string,
   105     labelled_name: string -> string,
   106     reserved_syms: string list,
   106     reserved_syms: string list,
   107     includes: (string * Pretty.T) list,
   107     includes: (string * Pretty.T) list,
   108     single_module: bool,
       
   109     module_alias: string -> string option,
   108     module_alias: string -> string option,
   110     class_syntax: string -> string option,
   109     class_syntax: string -> string option,
   111     tyco_syntax: string -> Code_Printer.tyco_syntax option,
   110     tyco_syntax: string -> Code_Printer.tyco_syntax option,
   112     const_syntax: string -> Code_Printer.activated_const_syntax option,
   111     const_syntax: string -> Code_Printer.activated_const_syntax option,
   113     program: Code_Thingol.program,
   112     program: Code_Thingol.program,
   312   in
   311   in
   313     serializer args {
   312     serializer args {
   314       labelled_name = Code_Thingol.labelled_name thy proto_program,
   313       labelled_name = Code_Thingol.labelled_name thy proto_program,
   315       reserved_syms = reserved,
   314       reserved_syms = reserved,
   316       includes = includes,
   315       includes = includes,
   317       single_module = is_some module_name,
       
   318       module_alias = if is_some module_name then K module_name else Symtab.lookup module_alias,
   316       module_alias = if is_some module_name then K module_name else Symtab.lookup module_alias,
   319       class_syntax = Symtab.lookup class_syntax,
   317       class_syntax = Symtab.lookup class_syntax,
   320       tyco_syntax = Symtab.lookup tyco_syntax,
   318       tyco_syntax = Symtab.lookup tyco_syntax,
   321       const_syntax = Symtab.lookup const_syntax,
   319       const_syntax = Symtab.lookup const_syntax,
   322       program = program,
   320       program = program,