# HG changeset patch
# User haftmann
# Date 1168366136 -3600
# Node ID ce84c9887e2dd012c82b101c9eda199b143c0271
# Parent  ce5daf09ebfe476e617a9c401247dc0393192f9f
named preprocessors

diff -r ce5daf09ebfe -r ce84c9887e2d doc-src/IsarAdvanced/Codegen/Thy/Codegen.thy
--- a/doc-src/IsarAdvanced/Codegen/Thy/Codegen.thy	Tue Jan 09 18:13:55 2007 +0100
+++ b/doc-src/IsarAdvanced/Codegen/Thy/Codegen.thy	Tue Jan 09 19:08:56 2007 +0100
@@ -1171,10 +1171,12 @@
   @{index_ML CodegenData.add_funcl: "CodegenConsts.const * thm list Susp.T -> theory -> theory"} \\
   @{index_ML CodegenData.add_inline: "thm -> theory -> theory"} \\
   @{index_ML CodegenData.del_inline: "thm -> theory -> theory"} \\
-  @{index_ML CodegenData.add_inline_proc: "(theory -> cterm list -> thm list)
+  @{index_ML CodegenData.add_inline_proc: "string * (theory -> cterm list -> thm list)
     -> theory -> theory"} \\
-  @{index_ML CodegenData.add_preproc: "(theory -> thm list -> thm list)
+  @{index_ML CodegenData.del_inline_proc: "string -> theory -> theory"} \\
+  @{index_ML CodegenData.add_preproc: "string * (theory -> thm list -> thm list)
     -> theory -> theory"} \\
+  @{index_ML CodegenData.del_preproc: "string -> theory -> theory"} \\
   @{index_ML CodegenData.add_datatype: "string * (((string * sort) list * (string * typ list) list)
     * thm list Susp.T) -> theory -> theory"} \\
   @{index_ML CodegenData.del_datatype: "string -> theory -> theory"} \\
@@ -1201,19 +1203,25 @@
   \item @{ML CodegenData.del_inline}~@{text "thm"}~@{text "thy"} remove
      inlining theorem @{text thm} from executable content, if present.
 
-  \item @{ML CodegenData.add_inline_proc}~@{text "f"}~@{text "thy"} adds
-     inline procedure @{text f} to executable content;
+  \item @{ML CodegenData.add_inline_proc}~@{text "(name, f)"}~@{text "thy"} adds
+     inline procedure @{text f} (named @{text name}) to executable content;
      @{text f} is a computation of rewrite rules dependent on
      the current theory context and the list of all arguments
      and right hand sides of the function equations belonging
      to a certain function definition.
 
-  \item @{ML CodegenData.add_preproc}~@{text "f"}~@{text "thy"} adds
-     generic preprocessor @{text f} to executable content;
+  \item @{ML CodegenData.del_inline_proc}~@{text "name"}~@{text "thy"} removes
+     inline procedure named @{text name} from executable content.
+
+  \item @{ML CodegenData.add_preproc}~@{text "(name, f)"}~@{text "thy"} adds
+     generic preprocessor @{text f} (named @{text name}) to executable content;
      @{text f} is a transformation of the function equations belonging
      to a certain function definition, depending on the
      current theory context.
 
+  \item @{ML CodegenData.del_prepproc}~@{text "name"}~@{text "thy"} removes
+     generic preprcoessor named @{text name} from executable content.
+
   \item @{ML CodegenData.add_datatype}~@{text "(name, (spec, cert))"}~@{text "thy"} adds
      a datatype to executable content, with type constructor
      @{text name} and specification @{text spec}; @{text spec} is
diff -r ce5daf09ebfe -r ce84c9887e2d src/HOL/Integ/NatBin.thy
--- a/src/HOL/Integ/NatBin.thy	Tue Jan 09 18:13:55 2007 +0100
+++ b/src/HOL/Integ/NatBin.thy	Tue Jan 09 19:08:56 2007 +0100
@@ -819,7 +819,7 @@
 *}
 
 setup {*
-  CodegenData.add_inline_proc NumeralNat.elim_number_of_nat
+  CodegenData.add_inline_proc ("elim_number_of_nat", NumeralNat.elim_number_of_nat)
 *}
 
 subsection {* legacy ML bindings *}
diff -r ce5daf09ebfe -r ce84c9887e2d src/HOL/Library/EfficientNat.thy
--- a/src/HOL/Library/EfficientNat.thy	Tue Jan 09 18:13:55 2007 +0100
+++ b/src/HOL/Library/EfficientNat.thy	Tue Jan 09 19:08:56 2007 +0100
@@ -330,8 +330,9 @@
 setup {*
   Codegen.add_preprocessor eqn_suc_preproc
   #> Codegen.add_preprocessor clause_suc_preproc
-  #> CodegenData.add_preproc (lift_obj_eq eqn_suc_preproc)
-  #> CodegenData.add_preproc (lift_obj_eq clause_suc_preproc)
+  #> CodegenData.del_inline_proc "elim_number_of_nat"
+  #> CodegenData.add_preproc ("eqn_Suc", lift_obj_eq eqn_suc_preproc)
+  #> CodegenData.add_preproc ("clause_Suc", lift_obj_eq clause_suc_preproc)
 *}
 (*>*)