From 5daf973fa5ba6fdbf2b4a65f4aed6513e337be8e Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 23 Jun 2016 09:29:58 +0200
Subject: exec flags

---
 Regex.dcl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'Regex.dcl')

diff --git a/Regex.dcl b/Regex.dcl
index f13fc68..4c6e53c 100644
--- a/Regex.dcl
+++ b/Regex.dcl
@@ -2,6 +2,7 @@ definition module Regex
 
 from Data.Maybe import ::Maybe
 from StdOverloaded import class toString, class fromString, class zero
+from StdInt import <<
 
 :: Regex
 
@@ -22,4 +23,19 @@ instance fromString (Maybe Regex)
 freeRegex :: !Regex -> String
 
 // Nothing on error; otherwise True iff match
-match :: !Regex !String -> Maybe Bool
+match :: !Regex !Flags !String -> Maybe Bool
+
+///////////////////////////////////////////////////////////////////////////////
+///                                 regex.h                                 ///
+///////////////////////////////////////////////////////////////////////////////
+
+/* POSIX `cflags' bits (i.e., information for regcomp = toRegex).  */
+REG_EXTENDED :== 1
+REG_ICASE :== REG_EXTENDED << 1
+REG_NEWLINE :== REG_ICASE << 1
+REG_NOSUB :== REG_NEWLINE << 1
+
+/* POSIX `eflags' bits (i.e., information for regexec = match).  */
+REG_NOTBOL :== 1
+REG_NOTEOL :== (REG_NOTBOL << 1)
+REG_STARTEND :== (REG_NOTEOL << 2)
-- 
cgit v1.2.3