diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-19 11:11:49 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-19 11:11:49 -0400 |
| commit | 98651ecbb17fce5630300f0050f323d7d023cf6b (patch) | |
| tree | 5cf42093ed52dc9ce839e2373f166057aba6b6e4 /src/cjr_print.sml | |
| parent | 85eef6345dc591887e783b73b6f5c337ab5703c3 (diff) | |
Simple generation of persistent paths
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index fdd02a3b..ee464917 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1998,7 +1998,13 @@ fun p_file env (ds, ps) = newline, newline, validate, - newline] + newline, + if List.exists (fn (DDatabase _, _) => true | _ => false) ds then + box [] + else + box [newline, + string "void uw_db_init(uw_context ctx) { };", + newline]] end fun p_sql env (ds, _) = |