boost/build
2
0
Fork 0
mirror of https://github.com/boostorg/build.git synced 2026-02-20 14:42:14 +00:00
Code Issues Projects Releases Wiki Activity

Added MATCH rule

Browse Source 
[SVN r13314]
This commit is contained in:
Dave Abrahams
2002-03-30 12:53:50 +00:00
parent d5dba9ad5b
commit 0e7c3854bf
4 changed files with 116 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
historic/jam/src/builtins.c
View File

@@ -12,6 +12,7 @@
# include "rules.h"
# include "filesys.h"
# include "newstr.h"
# include "regexp.h"
# include "frames.h"
# include "hash.h"
# include "strings.h"
@@ -101,6 +102,10 @@ load_builtins()
bind_builtin( "LEAVES" ,
builtin_flags, T_FLAG_LEAVES, 0 ) );
duplicate_rule( "Match" ,
bind_builtin( "MATCH" ,
builtin_match, 0, 0 ) );
duplicate_rule( "NoCare" ,
bind_builtin( "NOCARE" ,
builtin_flags, T_FLAG_NOCARE, 0 ) );
@@ -307,6 +312,58 @@ builtin_glob(
return globbing.results;
}
/*
* builtin_match() - MATCH rule, regexp matching
*/
LIST *
builtin_match(
PARSE *parse,
FRAME *frame )
{
LIST *l = lol_get( frame->args, 0 );
LIST *r = lol_get( frame->args, 1 );
LIST *result = 0;
regexp *re;
/* No pattern or string? No results. */
if( !l || !r )
return L0;
/* Just use first arg of each list. */
re = regcomp( l->string );
if( regexec( re, r->string ) )
{
int i, top;
string buf[1];
string_new(buf);
/* Find highest parameter */
for( top = NSUBEXP; top-- > 1; )
if( re->startp[top] != re->endp[top] )
break;
/* And add all parameters up to highest onto list. */
/* Must have parameters to have results! */
for( i = 1; i <= top; i++ )
{
string_append_range( buf, re->startp[i], re->endp[i] );
result = list_new( result, newstr( buf->value ) );
}
string_free( buf );
}
free( (char *)re );
return result;
}
LIST *
builtin_hdrmacro(
PARSE *parse,

1
historic/jam/src/builtins.h
View File

@@ -21,6 +21,7 @@ LIST *builtin_exit( PARSE *parse, FRAME *args );
LIST *builtin_flags( PARSE *parse, FRAME *args );
LIST *builtin_glob( PARSE *parse, FRAME *args );
LIST *builtin_subst( PARSE *parse, FRAME *args );
LIST *builtin_match( PARSE *parse, FRAME *args );
LIST *builtin_hdrmacro( PARSE *parse, FRAME *args );
LIST *builtin_rulenames( PARSE *parse, FRAME *args );
LIST *builtin_import( PARSE *parse, FRAME *args );

57
jam_src/builtins.c
View File

@@ -12,6 +12,7 @@
# include "rules.h"
# include "filesys.h"
# include "newstr.h"
# include "regexp.h"
# include "frames.h"
# include "hash.h"
# include "strings.h"
@@ -101,6 +102,10 @@ load_builtins()
bind_builtin( "LEAVES" ,
builtin_flags, T_FLAG_LEAVES, 0 ) );
duplicate_rule( "Match" ,
bind_builtin( "MATCH" ,
builtin_match, 0, 0 ) );
duplicate_rule( "NoCare" ,
bind_builtin( "NOCARE" ,
builtin_flags, T_FLAG_NOCARE, 0 ) );
@@ -307,6 +312,58 @@ builtin_glob(
return globbing.results;
}
/*
* builtin_match() - MATCH rule, regexp matching
*/
LIST *
builtin_match(
PARSE *parse,
FRAME *frame )
{
LIST *l = lol_get( frame->args, 0 );
LIST *r = lol_get( frame->args, 1 );
LIST *result = 0;
regexp *re;
/* No pattern or string? No results. */
if( !l || !r )
return L0;
/* Just use first arg of each list. */
re = regcomp( l->string );
if( regexec( re, r->string ) )
{
int i, top;
string buf[1];
string_new(buf);
/* Find highest parameter */
for( top = NSUBEXP; top-- > 1; )
if( re->startp[top] != re->endp[top] )
break;
/* And add all parameters up to highest onto list. */
/* Must have parameters to have results! */
for( i = 1; i <= top; i++ )
{
string_append_range( buf, re->startp[i], re->endp[i] );
result = list_new( result, newstr( buf->value ) );
}
string_free( buf );
}
free( (char *)re );
return result;
}
LIST *
builtin_hdrmacro(
PARSE *parse,

1
jam_src/builtins.h
View File

@@ -21,6 +21,7 @@ LIST *builtin_exit( PARSE *parse, FRAME *args );
LIST *builtin_flags( PARSE *parse, FRAME *args );
LIST *builtin_glob( PARSE *parse, FRAME *args );
LIST *builtin_subst( PARSE *parse, FRAME *args );
LIST *builtin_match( PARSE *parse, FRAME *args );
LIST *builtin_hdrmacro( PARSE *parse, FRAME *args );
LIST *builtin_rulenames( PARSE *parse, FRAME *args );
LIST *builtin_import( PARSE *parse, FRAME *args );