From 0de2a4a8f8ecac80d483e78a43ad6c80c88853f8 Mon Sep 17 00:00:00 2001
From: Art Yerkes <ayerkes@speakeasy.net>
Date: Sun, 23 Nov 2003 12:25:26 +0000
Subject: [PATCH] Added `` for C enums.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5373 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/ocaml/swigp4.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SWIG/Lib/ocaml/swigp4.ml b/SWIG/Lib/ocaml/swigp4.ml
index 5a63eed2a..ab29e6f9b 100644
--- a/SWIG/Lib/ocaml/swigp4.ml
+++ b/SWIG/Lib/ocaml/swigp4.ml
@@ -109,6 +109,8 @@ EXTEND
     | "'" ; e = expr -> c_ify e loc
     | c = expr ; "as" ; id = LIDENT -> <:expr< $lid:"get_" ^ id$ $c$ >>
     | c = expr ; "to" ; id = LIDENT -> <:expr< $uid:"C_" ^ id$ $c$ >>
+    | "`" ; "`" ; l = LIDENT -> <:expr< C_enum `$lid:l$ >>
+    | "`" ; "`" ; u = UIDENT -> <:expr< C_enum `$uid:u$ >>
     | f = expr ; "'" ; "(" ; args = LIST0 (expr LEVEL "simple") SEP "," ; ")" -> 
 	<:expr< $f$ ($mk_list args loc c_ify$) >>
     ] ] ;