boost/build
2
0
Fork 0
mirror of https://github.com/boostorg/build.git synced 2026-02-16 01:12:13 +00:00
Code Issues Projects Releases Wiki Activity

The 'path.exists' rule is now native.

Browse Source 
[SVN r21201]
This commit is contained in:
Vladimir Prus
2003-12-10 08:27:21 +00:00
parent d205f1b942
commit b03372ac97
11 changed files with 71 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
historic/jam/src/build.bat
View File

@@ -319,7 +319,7 @@ set BJAM_SOURCES=%BJAM_SOURCES% hdrmacro.c headers.c jam.c jambase.c jamgram.c l
set BJAM_SOURCES=%BJAM_SOURCES% newstr.c option.c parse.c pathunix.c pathvms.c regexp.c
set BJAM_SOURCES=%BJAM_SOURCES% rules.c scan.c search.c subst.c timestamp.c variable.c modules.c
set BJAM_SOURCES=%BJAM_SOURCES% strings.c filesys.c builtins.c pwd.c class.c w32_getreg.c native.c
set BJAM_SOURCES=%BJAM_SOURCES% modules/set.c
set BJAM_SOURCES=%BJAM_SOURCES% modules/set.c modules/path.c
@echo ON
rd /S /Q bootstrap.%BOOST_JAM_TOOLSET%

3
historic/jam/src/build.jam
View File

@@ -275,7 +275,8 @@ jam.source =
option.c parse.c regexp.c rules.c
scan.c search.c subst.c
timestamp.c variable.c modules.c strings.c filesys.c
builtins.c pwd.c class.c native.c modules/set.c
builtins.c pwd.c class.c native.c modules/set.c
modules/path.c
;
if $(NT)
{

3
historic/jam/src/build.sh
View File

@@ -191,7 +191,8 @@ BJAM_SOURCES="\
hdrmacro.c headers.c jam.c jambase.c jamgram.c lists.c make.c make1.c\
newstr.c option.c parse.c pathunix.c pathvms.c regexp.c\
rules.c scan.c search.c subst.c timestamp.c variable.c modules.c\
strings.c filesys.c builtins.c pwd.c class.c native.c modules/set.c"
strings.c filesys.c builtins.c pwd.c class.c native.c modules/set.c\
modules/path.c"
echo_run rm -rf bootstrap.$BOOST_JAM_TOOLSET
echo_run mkdir bootstrap.$BOOST_JAM_TOOLSET

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

@@ -273,6 +273,7 @@ load_builtins()
/* Initialize builtin modules */
init_set();
init_path();
}
/*

29
historic/jam/src/modules/path.c Normal file
View File

@@ -0,0 +1,29 @@
#include "../native.h"
#include "../timestamp.h"
#include "../newstr.h"
LIST *path_exists( PARSE *parse, FRAME *frame )
{
LIST* l = lol_get( frame->args, 0 );
time_t time;
timestamp(l->string, &time);
if (time != 0)
{
return list_new(0, newstr("true"));
}
else
{
return L0;
}
}
void init_path()
{
{
char* args[] = { "location", 0 };
declare_native_rule("path", "exists", args, path_exists);
}
}

2
jam_src/build.bat
View File

@@ -319,7 +319,7 @@ set BJAM_SOURCES=%BJAM_SOURCES% hdrmacro.c headers.c jam.c jambase.c jamgram.c l
set BJAM_SOURCES=%BJAM_SOURCES% newstr.c option.c parse.c pathunix.c pathvms.c regexp.c
set BJAM_SOURCES=%BJAM_SOURCES% rules.c scan.c search.c subst.c timestamp.c variable.c modules.c
set BJAM_SOURCES=%BJAM_SOURCES% strings.c filesys.c builtins.c pwd.c class.c w32_getreg.c native.c
set BJAM_SOURCES=%BJAM_SOURCES% modules/set.c
set BJAM_SOURCES=%BJAM_SOURCES% modules/set.c modules/path.c
@echo ON
rd /S /Q bootstrap.%BOOST_JAM_TOOLSET%

3
jam_src/build.jam
View File

@@ -275,7 +275,8 @@ jam.source =
option.c parse.c regexp.c rules.c
scan.c search.c subst.c
timestamp.c variable.c modules.c strings.c filesys.c
builtins.c pwd.c class.c native.c modules/set.c
builtins.c pwd.c class.c native.c modules/set.c
modules/path.c
;
if $(NT)
{

3
jam_src/build.sh
View File

@@ -191,7 +191,8 @@ BJAM_SOURCES="\
hdrmacro.c headers.c jam.c jambase.c jamgram.c lists.c make.c make1.c\
newstr.c option.c parse.c pathunix.c pathvms.c regexp.c\
rules.c scan.c search.c subst.c timestamp.c variable.c modules.c\
strings.c filesys.c builtins.c pwd.c class.c native.c modules/set.c"
strings.c filesys.c builtins.c pwd.c class.c native.c modules/set.c\
modules/path.c"
echo_run rm -rf bootstrap.$BOOST_JAM_TOOLSET
echo_run mkdir bootstrap.$BOOST_JAM_TOOLSET

1
jam_src/builtins.c
View File

@@ -273,6 +273,7 @@ load_builtins()
/* Initialize builtin modules */
init_set();
init_path();
}
/*

29
jam_src/modules/path.c Normal file
View File

@@ -0,0 +1,29 @@
#include "../native.h"
#include "../timestamp.h"
#include "../newstr.h"
LIST *path_exists( PARSE *parse, FRAME *frame )
{
LIST* l = lol_get( frame->args, 0 );
time_t time;
timestamp(l->string, &time);
if (time != 0)
{
return list_new(0, newstr("true"));
}
else
{
return L0;
}
}
void init_path()
{
{
char* args[] = { "location", 0 };
declare_native_rule("path", "exists", args, path_exists);
}
}

1
v2/util/path.jam
View File

@@ -202,6 +202,7 @@ rule exists ( file )
{
return [ path.glob $(file:D) : $(file:D=) ] ;
}
NATIVE_RULE path : exists ;