From d87d4ad3a6d2ec2804cb7b20128fecb6d9df4e6e Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 25 Jan 2018 00:30:24 +0000
Subject: Add simple conditional processing and file include

Can now use C-style include declarations to include files within other sail files. This is done in such a way that all the location information is preserved in error messages. As an example:

$include "aarch64/prelude.sail"
$define SYM
$ifndef SYM
$include <../util.sail>
$endif

would include the file aarch64/prelude.sail relative to the file where the include is contained. It then defines a symbol SYM and includes another file if it is not defined. The <../util.sail> include will be accessed relative to $SAIL_DIR/lib, so $SAIL_DIR/lib/../util.sail in this case.

This can be used with the standard C trick of

$ifndef ONCE
$define ONCE
val f : unit -> unit
$endif

so no matter how many sail files include the above file, the valspec for f will only appear once.

Currently we just have $include, $define, $ifdef and $ifndef (with $else and $endif). We're using $ rather than # because # is already used in internal identifiers, although this could be switched.
---
 src/initial_check.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/initial_check.ml')

diff --git a/src/initial_check.ml b/src/initial_check.ml
index 87adb290..16df4648 100644
--- a/src/initial_check.ml
+++ b/src/initial_check.ml
@@ -826,9 +826,11 @@ let to_ast_def (names, k_env, def_ord) partial_defs def : def_progress envs_out
   | Parse_ast.DEF_reg_dec(dec) ->
     let d = to_ast_dec envs dec in
     ((Finished(DEF_reg_dec(d))),envs),partial_defs
+  | Parse_ast.DEF_pragma (_, _, l) ->
+     typ_error l "Encountered preprocessor directive in initial check" None None None
   | Parse_ast.DEF_internal_mutrec _ ->
      (* Should never occur because of remove_mutrec *)
-    typ_error Parse_ast.Unknown "Internal mutual block found when processing scattered defs" None None None
+     typ_error Parse_ast.Unknown "Internal mutual block found when processing scattered defs" None None None
   | Parse_ast.DEF_scattered(Parse_ast.SD_aux(sd,l)) ->
     (match sd with
     | Parse_ast.SD_scattered_function(rec_opt, tannot_opt, effects_opt, id) ->
-- 
cgit v1.2.3