Browse files

[cleanup] open: remove Base in passes

  • Loading branch information...
1 parent a9f8d34 commit 7de9048d9bf0a1cf554c7369f749c177b6f7d6bf Raja committed Jun 28, 2011
View
1 passes/surfaceAstDependencies.mli
@@ -19,7 +19,6 @@
@author Rudy Sicard
**)
-open Base
val reorder_toplevel :
?roots:(Ident.t list) ->
View
1 passes/surfaceAstPasses.ml
@@ -16,7 +16,6 @@
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
(* rebel open *)
-open Base
open SurfaceAst
open SurfaceAstHelper
open OpaEnv
View
10 passes/surfaceAstRenaming.ml
@@ -55,10 +55,14 @@
*)
+(* depends *)
+module List = BaseList
+module Format = BaseFormat
+module String = BaseString
+
(* HACK : please, clean-up in opa lang *)
module Parser_utils = OpaParserUtils
-open Base
open SurfaceAst
open SurfaceAstHelper
@@ -439,7 +443,7 @@ let check_for_toplevel_duplicates val_map type_map =
let origins = List.filter_map
(function
| (OpenedIdent (_,ident,(_ :: _ as path)),_) ->
- Some (String.concat_map "." identity (Ident.original_name ident :: path))
+ Some (String.concat_map "." Base.identity (Ident.original_name ident :: path))
| _ ->
None
) l in
@@ -536,7 +540,7 @@ let get_tuple_n num = IntMap.find_opt num !tuples
let get_tuple_size name =
match String.slice '_' name with
| ["tuple"; s] ->
- ( match int_of_string_opt s with
+ ( match Base.int_of_string_opt s with
| None -> None
| Some n -> if n >= 0 then Some n else None
)
View
1 passes/surfaceAstTrx.ml
@@ -22,7 +22,6 @@
(* HACK : please, clean-up in opa lang *)
module Parser_utils = OpaParserUtils
-open Base
open Trx_ast
open SurfaceAst
open SurfaceAstHelper
View
5 passes/surfaceAstXmlPattern.ml
@@ -19,10 +19,13 @@
*)
+(* depends *)
+module List = BaseList
+
+
(* HACK : please, clean-up in opa lang *)
module Parser_utils = OpaParserUtils
-open Base
open SurfaceAst
module C = SurfaceAstCons.StringCons
module I = Opacapi

0 comments on commit 7de9048

Please sign in to comment.