added ocaml keywords

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5547 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Lib/allkw.swg

@@ -22,6 +22,7 @@
 %include "php4/php4kw.swg"
 %include "pike/pikekw.swg"
 %include "python/pythonkw.swg"
+%include "ocaml/ocamlkw.swg"
 %include "ruby/rubykw.swg"
 %include "tcl/tcl8kw.swg"
 

SWIG/Lib/ocaml/ocaml.swg

@@ -590,3 +590,8 @@ extern "C" {
 }
 #endif
 #undef value
+
+
+/* ocaml keywords */
+/* please test and activate */
+//%include "ocamlkw.swg"

SWIG/Lib/ocaml/ocamlkw.swg

@@ -0,0 +1,64 @@
+#ifndef __ocaml_ocamlkw_swg__
+#define __ocaml_ocamlkw_swg__
+
+/* Warnings for Ocaml keywords */
+#define OCAMLKW(x) %namewarn("314:" #x " is a ocaml keyword")  #x
+
+/*
+  from
+  http://caml.inria.fr/ocaml/htmlman/manual044.html
+*/
+
+
+OCAMLKW(and);
+OCAMLKW(as);
+OCAMLKW(assert);
+OCAMLKW(begin);
+OCAMLKW(class);
+OCAMLKW(constraint);
+OCAMLKW(do);
+OCAMLKW(done);
+OCAMLKW(downto);
+OCAMLKW(else);
+OCAMLKW(end);
+OCAMLKW(exception);
+OCAMLKW(external);
+OCAMLKW(false);
+OCAMLKW(for);
+OCAMLKW(fun);
+OCAMLKW(function);
+OCAMLKW(functor);
+OCAMLKW(if);
+OCAMLKW(in);
+OCAMLKW(include);
+OCAMLKW(inherit);
+OCAMLKW(initializer);
+OCAMLKW(lazy);
+OCAMLKW(let);
+OCAMLKW(match);
+OCAMLKW(method);
+OCAMLKW(module);
+OCAMLKW(mutable);
+OCAMLKW(new);
+OCAMLKW(object);
+OCAMLKW(of);
+OCAMLKW(open);
+OCAMLKW(or);
+OCAMLKW(private);
+OCAMLKW(rec);
+OCAMLKW(sig);
+OCAMLKW(struct);
+OCAMLKW(then);
+OCAMLKW(to);
+OCAMLKW(true);
+OCAMLKW(try);
+OCAMLKW(type);
+OCAMLKW(val);
+OCAMLKW(virtual);
+OCAMLKW(when);
+OCAMLKW(while);
+OCAMLKW(with);
+
+#undef OCAMLKW
+
+#endif //__ocaml_ocamlkw_swg__