Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[enhance] passes: add stub plugin compilation pass.

  • Loading branch information...
commit 0b57adec06d389a51aaadba3f0372cd36edc0e8e 1 parent 8ffb435
@arthuraa arthuraa authored
View
2  compiler/opa/main.ml
@@ -73,6 +73,8 @@ let () =
|+> ("DbEngineImportation", S3.pass_DbEngineImportation)
+ |+> ("PluginCompilation", S3.pass_PluginCompilation)
+
|+> ("BslLoading", S3.pass_BslLoading)
|+> ("ConvertStructure", S3.pass_ConvertStructure)
View
19 compiler/opa/pass_PluginCompilation.ml
@@ -0,0 +1,19 @@
+(*
+ Copyright © 2011, 2012 MLstate
+
+ This file is part of Opa.
+
+ Opa is free software: you can redistribute it and/or modify it under the
+ terms of the GNU Affero General Public License, version 3, as published by
+ the Free Software Foundation.
+
+ Opa is distributed in the hope that it will be useful, but WITHOUT ANY
+ WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
+ more details.
+
+ You should have received a copy of the GNU Affero General Public License
+ along with Opa. If not, see <http://www.gnu.org/licenses/>.
+*)
+
+let process () = ()
View
19 compiler/opa/pass_PluginCompilation.mli
@@ -0,0 +1,19 @@
+(*
+ Copyright © 2011, 2012 MLstate
+
+ This file is part of Opa.
+
+ Opa is free software: you can redistribute it and/or modify it under the
+ terms of the GNU Affero General Public License, version 3, as published by
+ the Free Software Foundation.
+
+ Opa is distributed in the hope that it will be useful, but WITHOUT ANY
+ WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
+ more details.
+
+ You should have received a copy of the GNU Affero General Public License
+ along with Opa. If not, see <http://www.gnu.org/licenses/>.
+*)
+
+val process : unit -> unit
View
7 compiler/opa/s3Passes.ml
@@ -552,6 +552,13 @@ let pass_DbEngineImportation =
e
)
+let pass_PluginCompilation =
+ PassHandler.make_pass
+ (fun e ->
+ let _ = Pass_PluginCompilation.process () in
+ e
+ )
+
let pass_BslLoading =
PassHandler.make_pass
(fun e ->
View
6 compiler/opa/s3Passes.mli
@@ -123,6 +123,12 @@ val pass_DbEngineImportation :
, 'parsed_code)
opa_pass
+val pass_PluginCompilation :
+ ((((SurfaceAst.nonuid, SurfaceAst.parsing_directive)
+ SurfaceAst.code_elt) ObjectFiles.parsed_code) as 'parsed_code
+ , 'parsed_code)
+ opa_pass
+
val pass_BslLoading :
((((SurfaceAst.nonuid, SurfaceAst.parsing_directive)
SurfaceAst.code_elt) ObjectFiles.parsed_code) as 'parsed_code
Please sign in to comment.
Something went wrong with that request. Please try again.