diff --git a/src/libmaincil.ml b/src/libmaincil.ml
deleted file mode 100644
index fca642b93..000000000
--- a/src/libmaincil.ml
+++ /dev/null
@@ -1,106 +0,0 @@
-(*
-
-   Copyright (c) 2001-2002,
-    George C. Necula    <necula@cs.berkeley.edu>
-    Scott McPeak        <smcpeak@cs.berkeley.edu>
-    Wes Weimer          <weimer@cs.berkeley.edu>
-   All rights reserved.
-
-   Redistribution and use in source and binary forms, with or without
-   modification, are permitted provided that the following conditions are
-   met:
-
-   1. Redistributions of source code must retain the above copyright
-   notice, this list of conditions and the following disclaimer.
-
-   2. Redistributions in binary form must reproduce the above copyright
-   notice, this list of conditions and the following disclaimer in the
-   documentation and/or other materials provided with the distribution.
-
-   3. The names of the contributors may not be used to endorse or promote
-   products derived from this software without specific prior written
-   permission.
-
-   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-   IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-   TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-   PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
-   OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-   PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
- *)
-
-(* libmaincil *)
-(* this is a replacement for maincil.ml, for the case when we're
-   creating a C-callable library (libcil.o); all it does is register
-   a couple of functions and initialize CIL *)
-
-
-module E = Errormsg
-
-open Cil
-
-
-(* print a Cil 'file' to stdout *)
-let unparseToStdout (cil : file) : unit =
-begin
-  dumpFile defaultCilPrinter stdout cil.fileName cil
-end;;
-
-(* a visitor to unroll all types - may need to do some magic to keep attributes *)
-class unrollVisitorClass = object (self)
-  inherit nopCilVisitor
-
-  (* variable declaration *)
-  method! vvdec (vi : varinfo) : varinfo visitAction =
-    begin
-      vi.vtype <- unrollTypeDeep vi.vtype;
-      (*ignore (E.log "varinfo for %s in file '%s' line %d byte %d\n" vi.vname vi.vdecl.file vi.vdecl.line vi.vdecl.byte);*)
-      SkipChildren
-    end
-
-  (* global: need to unroll fields of compinfo *)
-  method! vglob (g : global) : global list visitAction =
-    begin
-      match g with
-          GCompTag(ci, loc) ->
-            let doFieldinfo (fi : fieldinfo) : unit =
-              fi.ftype <- unrollTypeDeep fi.ftype
-            in begin
-                ignore(Util.list_map doFieldinfo ci.cfields);
-                (*ChangeTo [g]*)
-                SkipChildren
-              end
-        | _ -> DoChildren
-    end
-end;;
-
-
-let unrollVisitor = new unrollVisitorClass;;
-
-(* open and parse a C file into a Cil 'file', unroll all typedefs *)
-let parseOneFile (fname: string) : file =
-  let ast : file = Frontc.parse fname () in
-    begin
-      visitCilFile unrollVisitor ast;
-      ast
-    end
-;;
-
-let getDummyTypes () : typ * typ =
-  ( TPtr(TVoid [], []), TInt(IInt, []) )
-;;
-
-(* register some functions - these may be called from C code *)
-Callback.register "cil_parse" parseOneFile;
-Callback.register "cil_unparse" unparseToStdout;
-(* Callback.register "unroll_type_deep" unrollTypeDeep; *)
-Callback.register "get_dummy_types" getDummyTypes;
-
-(* initialize CIL *)
-initCIL ();