210 lines
3.4 KiB
PHP
210 lines
3.4 KiB
PHP
<?php
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_DATE($proc, $spec)
|
|
{
|
|
$stamp = strtotime($spec);
|
|
if($stamp === false)
|
|
throw new Exception("Bad date: $spec");
|
|
return $stamp;
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_INTERVAL($proc, $spec)
|
|
{
|
|
$in = DateInterval::createFromDateString($spec);
|
|
if(!$in)
|
|
throw new Exception("Bad time interval: $spec");
|
|
|
|
$sec = ($in->y * 365 * 24 * 60 * 60) +
|
|
($in->m * 30 * 24 * 60 * 60) +
|
|
($in->d * 24 * 60 * 60) +
|
|
($in->h * 60 * 60) +
|
|
($in->i * 60) +
|
|
$in->s;
|
|
if($sec <= 0)
|
|
throw new Exception("Bad resulting interval in seconds '$sec' for spec '$spec'");
|
|
return $sec;
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_WEEK_DATE($proc, $spec)
|
|
{
|
|
$parts = explode(" ", $spec);
|
|
$dow_str = $parts[0];
|
|
$time_str = $parts[1];
|
|
|
|
$day = 0;
|
|
switch ($dow_str) {
|
|
case 'MONDAY':
|
|
$day = 0;
|
|
break;
|
|
case 'TUESDAY':
|
|
$day = 1;
|
|
break;
|
|
case 'WEDNESDAY':
|
|
$day = 2;
|
|
break;
|
|
case 'THURSDAY':
|
|
$day = 3;
|
|
break;
|
|
case 'FRIDAY':
|
|
$day = 4;
|
|
break;
|
|
case 'SATURDAY':
|
|
$day = 5;
|
|
break;
|
|
case 'SUNDAY':
|
|
$day = 6;
|
|
break;
|
|
default:
|
|
throw new Exception("Bad day of week: $spec");
|
|
break;
|
|
}
|
|
|
|
$stamp = strtotime($time_str);
|
|
if($stamp === false)
|
|
throw new Exception("Bad time: $spec");
|
|
|
|
$stamp += $day * 24 * 60 * 60;
|
|
|
|
return $stamp;
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_ENUM_OR($proc)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$args = func_get_args();
|
|
array_shift($args);
|
|
|
|
$class = array_shift($args);
|
|
|
|
$opts = 0;
|
|
for($i=0;$i<sizeof($args);++$i)
|
|
{
|
|
$opts |= constant("$class::" . $args[$i]);
|
|
}
|
|
return $opts;
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_PRINTF($proc)
|
|
{
|
|
$args = func_get_args();
|
|
array_shift($args);
|
|
|
|
return '"'.call_user_func_array("sprintf", $args).'"';
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_FMT($proc)
|
|
{
|
|
$args = func_get_args();
|
|
array_shift($args);
|
|
|
|
$res = array();
|
|
foreach($args as $arg)
|
|
$res[] = $arg;
|
|
|
|
if(preg_match_all('~\{(\d+)[^\}]*\}~', $res[0], $matches))
|
|
{
|
|
$indices = $matches[1];
|
|
if(count($indices) != (count($res)-1))
|
|
throw new Exception("Too few args for: '{$res[0]}'");
|
|
sort($indices);
|
|
$indices = array_unique($indices);
|
|
$prev = -1;
|
|
foreach($indices as $idx)
|
|
{
|
|
$idx = 1*$idx;
|
|
if(($idx - $prev) > 1)
|
|
throw new Exception("Format indices gap: '{$res[0]}'");
|
|
$prev = $idx;
|
|
}
|
|
}
|
|
|
|
return $res;
|
|
}
|
|
|
|
/**
|
|
* @raw_args
|
|
*/
|
|
function macro_Q($proc, $value)
|
|
{
|
|
if(strpos(ltrim($value), '[') === 0)
|
|
return $value;
|
|
else
|
|
return "\"$value\"";
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_SELF_CONF_ID($jsm)
|
|
{
|
|
$file = $jsm->getRootFile();
|
|
$proto_id = 0;
|
|
$alias = "";
|
|
if(!\taskman\config_get_header($file, $proto_id, $alias))
|
|
$proto_id = \taskman\config_get_id($file);
|
|
return $proto_id;
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_SELF_SHORT_NAME($jsm)
|
|
{
|
|
$file = $jsm->getRootFile();
|
|
return str_replace(".conf.js", "", basename($file));
|
|
}
|
|
|
|
/**
|
|
* @global @raw_args
|
|
*/
|
|
function macro_BOOL($jsm, $expr)
|
|
{
|
|
$res = jsm_eval_string_value($jsm, $expr);
|
|
|
|
return $res == 0 ? "false" : "true";
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_IS_DEV($jsm)
|
|
{
|
|
return taskman_propor("GAME_IS_DEV", 0);
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_VCLASS($proc, $class)
|
|
{
|
|
return '"vclass__" : ' . constant("$class::CLASS_ID");
|
|
}
|
|
|
|
/**
|
|
* @global
|
|
*/
|
|
function macro_ITEM($proc, $proto_id, $amount)
|
|
{
|
|
return array('proto_id' => $proto_id, 'amount' => $amount);
|
|
}
|
|
|