refactoring: helena sources are now in a dedicated directory

[helm.git] / helm / software / lambda-delta / automath / autProcess.ml

diff --git a/helm/software/lambda-delta/automath/autProcess.ml b/helm/software/lambda-delta/automath/autProcess.ml
deleted file mode 100644 (file)
index 405952f..0000000
--- a/helm/software/lambda-delta/automath/autProcess.ml
+++ /dev/null
@@ -1,77 +0,0 @@
-(*
-    ||M||  This file is part of HELM, an Hypertextual, Electronic        
-    ||A||  Library of Mathematics, developed at the Computer Science     
-    ||T||  Department, University of Bologna, Italy.                     
-    ||I||                                                                
-    ||T||  HELM is free software; you can redistribute it and/or         
-    ||A||  modify it under the terms of the GNU General Public License   
-    \   /  version 2 or (at your option) any later version.              
-     \ /   This software is distributed as is, NO WARRANTY.              
-      V_______________________________________________________________ *)
-
-module A = Aut
-
-type status = {
-   opening  : bool; (* just opened section *)
-   reopening: bool; (* just reopened section *)
-   closing  : bool; (* just closed section *)
-   explicit : bool; (* just found explicit context *)
-   block    : bool; (* just found block opener *)
-   iao      : int;  (* implicit context after opening section *)
-   iar      : int;  (* implicit context after reopening section *)
-   iac      : int;  (* implicit context after closing section *)
-   iag      : int   (* implicit context after global statement *)
-}
-
-(* internal functions *******************************************************)
-
-let orc_reset f st =
-   f {st with opening = false; reopening = false; closing = false}
-
-let orc_count f st =
-   let st = if st.opening then {st with iao = succ st.iao} else st in
-   let st = if st.reopening then {st with iar = succ st.iar} else st in
-   let st = if st.closing then {st with iac = succ st.iac} else st in
-   f st
-
-let exp_count f st =
-   let st = 
-      if st.explicit || st.block then st else {st with iag = succ st.iag} 
-   in
-   f st
-
-let proc_section f st = function
-   | Some (true, _)  -> f {st with opening = true} 
-   | Some (false, _) -> f {st with reopening = true} 
-   | None            -> f {st with closing = true}
-
-let proc_context f st =
-   orc_reset f {st with explicit = true}
-
-let proc_block f st =
-   orc_count (orc_reset f) {st with explicit = false; block = true}
-
-let proc_global f st =
-   let f st = 
-      orc_count (orc_reset f) {st with explicit = false; block = false}
-   in
-   exp_count f st
-
-let proc_command f st command = match command with
-   | A.Section section -> proc_section f st section command
-   | A.Context _       -> proc_context f st command  
-   | A.Block _         -> proc_block f st command
-   | A.Decl _          -> proc_global f st command
-   | A.Def _           -> proc_global f st command
-   
-(* interface functions ******************************************************)
-
-let initial_status () = {
-   opening = false; reopening = false; closing = false; 
-   explicit = false; block = false;
-   iao = 0; iar = 0; iac = 0; iag = 0
-}
-
-let process_command = proc_command
-
-let get_counters f st = f st.iao st.iar st.iac st.iag