413 lines
8.9 KiB
PHP
413 lines
8.9 KiB
PHP
<?php
|
|
namespace taskman;
|
|
use Exception;
|
|
|
|
task('bhl_clean', function()
|
|
{
|
|
bhl_clean();
|
|
});
|
|
|
|
task('bhl_clean_cache', function()
|
|
{
|
|
bhl_clean_cache();
|
|
});
|
|
|
|
function bhl_build_dll($mcs_bin)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$dll_file = get("UNITY_ASSETS_DIR")."/Plugins/game_bhl.dll";
|
|
|
|
bhl_shell_ensure("build_back_dll $mcs_bin $dll_file " . (is_dev() ? '-debug' : ''));
|
|
|
|
return $dll_file;
|
|
}
|
|
|
|
task('bhl_try', function($args = [])
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$all_files = array($args[0]);
|
|
|
|
$bhl_inc_dir = config_base_dir();
|
|
$res_file = "$GAME_ROOT/build/bhl.try";
|
|
|
|
bhl_run_ex(
|
|
$bhl_inc_dir,
|
|
$all_files,
|
|
$res_file,
|
|
false/*not debug*/,
|
|
true/*force*/
|
|
);
|
|
});
|
|
|
|
task('bhl_callstack', ['alias' => 'bhc'], function(array $args)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
if(count($args) < 1)
|
|
{
|
|
echo "Usage: ./gamectl bhl_callstack \"<callstack>\"";
|
|
return;
|
|
}
|
|
|
|
$items = explode("\n", $args[0]);
|
|
|
|
foreach($items as $item)
|
|
{
|
|
$item = trim($item);
|
|
if(!$item)
|
|
continue;
|
|
|
|
if(preg_match('~(\d+)\s+\(\)\s+\(at (\d+):(\d+)\)~', $item, $m))
|
|
{
|
|
$func_hash = (int)$m[1];
|
|
$file_hash = (int)$m[2];
|
|
$line_num = (int)$m[3];
|
|
|
|
$func_name = key(bhl_find_name_hash($func_hash));
|
|
|
|
$file_name = bhl_find_module($file_hash);
|
|
if(!$file_name)
|
|
$file_name = "?";
|
|
else
|
|
$file_name = normalize_path($file_name, true);
|
|
|
|
echo ($func_name ? $func_name : $func_hash) . "() in $file_name@$line_num \n";
|
|
}
|
|
}
|
|
});
|
|
|
|
task('bhl_callstack_file', function(array $args)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
if(count($args) < 1)
|
|
{
|
|
echo "Usage: ./gamectl bhl_callstack_file \"<path_to_callstack_file>\"";
|
|
return;
|
|
}
|
|
|
|
$callstack = ensure_read($args[0]);
|
|
run('bhl_callstack', [$callstack]);
|
|
});
|
|
|
|
function bhl_find_name_hash($hash)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$result = array();
|
|
|
|
$files = scan_files_rec(array(config_base_dir()), array('bhl'));
|
|
foreach($files as $file)
|
|
{
|
|
$cont = file_get_contents($file);
|
|
if(preg_match_all('/(\w+)/', $cont, $ms))
|
|
{
|
|
foreach($ms[1] as $name)
|
|
{
|
|
$name = trim($name, '"');
|
|
$var_hash = crc32($name) & 0xFFFFFFF;
|
|
if($var_hash === $hash)
|
|
{
|
|
if(!isset($result[$name]))
|
|
$result[$name] = array();
|
|
$result[$name][$file] = true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
task('bhl_find_module', function(array $args)
|
|
{
|
|
if(count($args) < 1)
|
|
{
|
|
echo "Usage: ./gamectl bhl_find_module <mod_id>";
|
|
return;
|
|
}
|
|
|
|
$mod_id = (int)$args[0];
|
|
$bhl_file = bhl_find_module($mod_id);
|
|
if($bhl_file)
|
|
echo "Found '$bhl_file'\n";
|
|
});
|
|
|
|
function bhl_find_module($mod_id)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$files = scan_files_rec(array(config_base_dir()), array('.bhl'));
|
|
|
|
$conf_dir = normalize_path(config_base_dir(), true);
|
|
|
|
foreach($files as $bhl_file)
|
|
{
|
|
$module_path = str_replace($conf_dir, '', $bhl_file);
|
|
$module_path = ltrim(substr($module_path, 0, strlen($module_path)-4), '/');
|
|
if(crc32($module_path) === $mod_id)
|
|
return $bhl_file;
|
|
}
|
|
}
|
|
|
|
function bhl_result_file()
|
|
{
|
|
global $GAME_ROOT;
|
|
return "$GAME_ROOT/build/ext_config/bhl.bytes";
|
|
}
|
|
|
|
function bhl_dir()
|
|
{
|
|
global $GAME_ROOT;
|
|
return "$GAME_ROOT/composer/vendor/bit/bhl";
|
|
}
|
|
|
|
function bhl_shell($cmd, &$ret_var, &$ret_out)
|
|
{
|
|
$prev_path = mono_try_override_path();
|
|
|
|
try
|
|
{
|
|
shell_try(bhl_dir()."/bhl $cmd", $ret_var, $ret_out);
|
|
}
|
|
finally
|
|
{
|
|
mono_try_restore_path($prev_path);
|
|
}
|
|
}
|
|
|
|
function bhl_shell_ensure($cmd)
|
|
{
|
|
bhl_shell($cmd, $ret_var, $ret_out);
|
|
if($ret_var !== 0)
|
|
throw new Exception("Error executing shell cmd: $ret_var");
|
|
}
|
|
|
|
function bhl_run($debug = true, $force = false, $check_deps = true, $exit_on_err = true)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$bhl_inc_dir = config_base_dir();
|
|
|
|
$all_files = scan_files_rec(array(config_base_dir()), array('.bhl'));
|
|
$res_file = bhl_result_file();
|
|
|
|
_bhl_shuffle_files($all_files);
|
|
|
|
$res_file = bhl_result_file();
|
|
$res = bhl_run_ex($bhl_inc_dir, $all_files, $res_file, $debug, $force, $check_deps, $exit_on_err);
|
|
|
|
return $res;
|
|
}
|
|
|
|
function _bhl_shuffle_files(&$files)
|
|
{
|
|
shuffle($files);
|
|
}
|
|
|
|
function bhl_run_ex($bhl_inc_dir, array $bhl_files, $result_file, $debug = true, $force = false, $check_deps = true, $exit_on_err = true)
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
ensure_mkdir("$GAME_ROOT/build");
|
|
|
|
$post_proc_file = "$GAME_ROOT/build/bhl.post.".crc32($result_file);
|
|
$err_file = "$GAME_ROOT/build/bhl.error";
|
|
ensure_rm($err_file);
|
|
|
|
$user_sources = array(
|
|
get("UNITY_ASSETS_DIR")."/Scripts/bhl/register.cs",
|
|
get("UNITY_ASSETS_DIR")."/Scripts/bhl/autobind.cs"
|
|
);
|
|
|
|
$postproc_sources = array(
|
|
get("UNITY_ASSETS_DIR")."/Scripts/bhl/postproc.cs",
|
|
);
|
|
|
|
$bhl_deps = $bhl_files;
|
|
$bhl_deps = array_merge($bhl_deps, $user_sources);
|
|
$bhl_deps = array_merge($bhl_deps, $postproc_sources);
|
|
$bhl_deps = array_merge($bhl_deps, scan_files_rec(array(bhl_dir()), array(".cs")));
|
|
|
|
if($force || need_to_regen($result_file, $bhl_deps) || need_to_regen($post_proc_file, $bhl_deps))
|
|
{
|
|
$bhl_file_list = "$GAME_ROOT/build/bhl/file_list.tmp";
|
|
ensure_write($bhl_file_list, implode("\n", $bhl_files));
|
|
|
|
putenv("POSTPROC_PROJ_ROOT=$GAME_ROOT");
|
|
putenv("POSTPROC_RESULT=$post_proc_file");
|
|
if($force)
|
|
putenv("POSTPROC_FORCE=1");
|
|
|
|
$bhl_dir = bhl_dir();
|
|
|
|
bhl_shell("compile " .
|
|
"--user-sources=".implode(",",$user_sources)." --postproc-sources=".implode(",",$postproc_sources)." " .
|
|
"--dir=$bhl_inc_dir --files=$bhl_file_list --result=$result_file " .
|
|
"--tmp-dir=$GAME_ROOT/build/bhl/ " .
|
|
"--error=$GAME_ROOT/build/bhl.error " .
|
|
"--deterministic " .
|
|
"--threads=" . (is_win() ? 1 : 4) . " " .
|
|
($debug ? " -d" : "") . " " .
|
|
($force ? " -C" : "") . " ".
|
|
(!$check_deps ? " -N" : "") . " ",
|
|
$ret_var, $ret_out
|
|
);
|
|
|
|
if($ret_var != 0)
|
|
{
|
|
bhl_handle_error_result($ret_out, $err_file, $exit_on_err);
|
|
if(!$exit_on_err)
|
|
return false;
|
|
}
|
|
else
|
|
echo "BHL BUNDLE: total " . kb_len(filesize($result_file)) . "\n";
|
|
}
|
|
|
|
@touch($result_file);
|
|
@touch($post_proc_file);
|
|
$res = bhl_ast_post_proc($result_file, $post_proc_file);
|
|
|
|
return $res;
|
|
}
|
|
|
|
function bhl_handle_error_result(array $ret_out, $err_file, $exit = true)
|
|
{
|
|
if(!is_file($err_file))
|
|
{
|
|
stderr("Something went wrong: " . (is_array($ret_out) ? implode("\n", $ret_out) : "????"));
|
|
if($exit)
|
|
exit(1);
|
|
}
|
|
|
|
$err = file_get_contents($err_file);
|
|
$jerr = json_decode($err);
|
|
if(!$jerr)
|
|
{
|
|
stderr("Something went wrong, bhl error is in invalid format: $err");
|
|
if($exit)
|
|
exit(1);
|
|
}
|
|
$file = $jerr->file;
|
|
|
|
stderr("BHL ERROR: \n" .
|
|
$jerr->error .
|
|
" \nin '$file', line {$jerr->line}\n");
|
|
stderr(bhl_show_position($jerr->line, $jerr->column, file($file)) . "\n");
|
|
if($exit)
|
|
exit(1);
|
|
}
|
|
|
|
class BhlAstProcResult
|
|
{
|
|
var $res_file;
|
|
var $func2assets_deep = array();
|
|
var $func2refs_deep = array();
|
|
}
|
|
|
|
function bhl_ast_post_proc($res_file, $post_proc_file)
|
|
{
|
|
$res = new BhlAstProcResult();
|
|
$res->res_file = $res_file;
|
|
$data = config_msgpack_unpack(ensure_read($post_proc_file));
|
|
if(!$data)
|
|
return $res;
|
|
|
|
$func2assets = $data[0];
|
|
foreach($func2assets as $item)
|
|
{
|
|
list($func1, $func2, $assets) = $item;
|
|
$func = ($func2 << 31) | $func1;
|
|
$res->func2assets_deep[$func] = array_flip($assets);
|
|
}
|
|
|
|
$func2crefs = $data[1];
|
|
foreach($func2crefs as $item)
|
|
{
|
|
list($func1, $func2, $crefs) = $item;
|
|
$func = ($func2 << 31) | $func1;
|
|
$res->func2refs_deep[$func] = array_flip($crefs);
|
|
}
|
|
|
|
return $res;
|
|
}
|
|
|
|
function bhl_clean()
|
|
{
|
|
global $GAME_ROOT;
|
|
|
|
$files = scan_files_rec(array(config_base_dir()), array('js', 'gen.bhl'));
|
|
foreach($files as $file)
|
|
{
|
|
$is_conf = strpos($file, '.gen.bhl') === false;
|
|
|
|
if($is_conf)
|
|
{
|
|
//skipping .def.js files
|
|
if(strpos($file, '.def.js') !== false)
|
|
continue;
|
|
@touch($file);
|
|
}
|
|
else if(!$is_conf)
|
|
{
|
|
ensure_rm($file);
|
|
}
|
|
}
|
|
|
|
bhl_clean_cache();
|
|
|
|
bhl_shell_ensure("clean");
|
|
}
|
|
|
|
function bhl_clean_cache()
|
|
{
|
|
global $GAME_ROOT;
|
|
ensure_rm("$GAME_ROOT/build/bhl/");
|
|
}
|
|
|
|
function bhl_show_position($line, $row, array $lines)
|
|
{
|
|
if($line < count($lines))
|
|
{
|
|
$txt = $lines[$line-1];
|
|
$c = str_repeat('-', $row);
|
|
return "{$txt}{$c}^";
|
|
}
|
|
//weird special case
|
|
else if($line-1 == count($lines))
|
|
{
|
|
$txt = $lines[count($lines)-1];
|
|
$c = str_repeat('-', $row);
|
|
return "{$txt}{$c}^";
|
|
}
|
|
else
|
|
return "???";
|
|
}
|
|
|
|
function bhl_get_past_input($c, $in, $context_chars)
|
|
{
|
|
$past = substr($in, 0, $c+1);
|
|
return (strlen($past) > $context_chars ? '...' : '') . substr($past, -$context_chars);
|
|
}
|
|
|
|
function bhl_get_upcoming_input($c, $in, $context_chars)
|
|
{
|
|
$next = substr($in, $c+1);
|
|
return substr($next, 0, $context_chars) . (strlen($next) > $context_chars ? '...' : '');
|
|
}
|
|
|
|
function bhl_line_row_to_pos($file, $line, $row)
|
|
{
|
|
$pos = 0;
|
|
$lines = file($file);
|
|
//something went wrong
|
|
if(count($lines) < $line)
|
|
return null;
|
|
for($i=0;$i<($line-1);++$i)
|
|
$pos += strlen($lines[$i]);
|
|
$pos += $row;
|
|
return $pos;
|
|
}
|