exec flagsHEADmaster

1 files changed, 17 insertions, 1 deletions

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)