mirror of
https://github.com/boostorg/build.git
synced 2026-02-15 13:02:11 +00:00
33 lines
675 B
C
33 lines
675 B
C
/* Copyright Vladimir Prus 2003. Distributed under the Boost */
|
|
/* Software License, Version 1.0. (See accompanying */
|
|
/* file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt) */
|
|
|
|
#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);
|
|
}
|
|
|
|
}
|