/usr/lib/ocaml/gdome2/gdomeInit.ml is in libgdome2-ocaml-dev 0.2.6-6.2+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | (* This file is part of GMetaDOM
* a generic bind package for the Document Object Model API.
* Copyright (C) 2001-2002 Luca Padovani <luca.padovani@cs.unibo.it>
* 2002 Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* For more information, please visit the project home page
* http://gmetadom.sourceforge.net
* or send an email to <luca.padovani@cs.unibo.it>
*)
exception DOMException of (GdomeDOMExceptionT.t * string)
exception DOMImplException of string
exception DOMCastException of string
let _ =
Callback.register_exception "DOMException" (DOMException (GdomeDOMExceptionT.NO_ERR,"any string"))
;;
let _ =
Callback.register_exception "DOMImplException" (DOMImplException ("any string"))
;;
let _ =
Callback.register_exception "DOMCastException" (DOMCastException ("any string"))
;;
|