This commit was generated by cvs2svn to compensate for changes in r4,

which included commits to RCS files with non-trunk default branches.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

library/regexp.yap

@@ -0,0 +1,72 @@
+/*************************************************************************
+*									 *
+*	 YAP Prolog 							 *
+*									 *
+*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
+*									 *
+* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
+*									 *
+**************************************************************************
+*									 *
+* File:		regexp.yap						 *
+* Last rev:	3/22/2000						 *
+* mods:									 *
+* comments:	Support for Regular Expressions	in YAP			 *
+*									 *
+*************************************************************************/
+
+:- module(regexp, [
+	regexp/3,
+	regexp/4
+          ]).
+
+:- load_foreign_files([regexp,regcomp,regfree,regerror,regexec], [], init_regexp).
+
+regexp(RegExp, String, Opts) :-
+	length(RegExp, LRE),
+	length(String, LS),
+	check_opts(Opts,0,IOpts,regexp(RegExp, String, Opts)),
+	check_regexp(RegExp,LRE,String,LS,IOpts).
+
+regexp(RegExp, String, Opts, OUT) :-
+	length(RegExp, LRE),
+	length(String, LS),
+	check_out(OUT,0,Count,regexp(RegExp, String, Opts, OUT)),
+	check_opts(Opts,0,IOpts,regexp(RegExp, String, Opts, OUT)),
+	check_regexp(RegExp,LRE,String,LS,IOpts,OUT,Count).
+
+%
+% OUT must be bound to a list of unbound variables.
+% Check this and count how many.
+%
+check_out(V,_,_,G) :- var(V), !,
+	throw(error(instantiation_error,G)).
+check_out([],I,I,_) :- !.
+check_out([V|L],I0,IF,G) :- !,
+	(nonvar(V) -> throw(error(type_error(variable,V),G)) ; true),
+	I is I0+1,
+	check_out(L,I,IF,G).
+check_out(OUT,_,_,G) :-
+	throw(error(type_error(variable,OUT),G)).
+
+%
+% Option processing
+%
+check_opts(V,_,_,G) :- var(V), !,
+	throw(error(instantiation_error,G)).
+check_opts([],I,I,_) :- !.
+check_opts([A|L],I0,IF,G) :- !,
+	process_opt(A,I1,G),
+	I is I0+I1,
+	check_opts(L,I,IF,G).
+check_opts(Opts,_,_,G) :-
+	throw(error(type_error(variable,Opts),G)).
+
+process_opt(V,I,G) :- var(V), !,
+	throw(error(instantiation_error,G)).
+process_opt(nocase,1,_) :- !.
+process_opt(indices,2,_) :- !.
+process_opt(I,_,G) :-
+	throw(error(domain_error(flag_value,regexp_options+I),G)).
+
+