Minor renaming

.gitea/workflows/build_composer.yaml

@@ -0,0 +1,29 @@
+
+name: Publish PHP Package
+
+on:
+  push:
+    tags:
+      - 'v*'
+
+jobs:
+  docker:
+    runs-on: ubuntu-latest
+
+    steps:
+    - uses: actions/checkout@v3
+
+    - name: Get tag name
+      run: echo "TAG=${GITHUB_REF#refs/*/}" >> $GITHUB_ENV
+
+    - name: zip and send
+      run: |
+        ls -la
+        apt-get update -y
+        apt-get install -y zip
+        cd ../
+        zip -r ${{ gitea.event.repository.name }}.zip ${{ gitea.event.repository.name }} -x '*.git*'
+        curl -v \
+        --user composer-pbl:${{ secrets.COMPOSER_PSWD }} \
+        --upload-file ${{ gitea.event.repository.name }}.zip \
+        https://git.bit5.ru/api/packages/bit/composer?version=${{ env.TAG }}      

.gitignore

@@ -0,0 +1 @@
+tags

bhl.inc.php

@@ -12,202 +12,139 @@ task('bhl_clean_cache', function()
   bhl_clean_cache();
 });
 
-task('bhl_callstack', ['alias' => 'bhc'], function(array $args)
+class BhlProj
 {
-  global $GAME_ROOT;
+  public static ?BhlProj $active = null;
 
-  if(count($args) < 1)
+  public string $file_path;
+  public array $inc_dirs = array();
+  public array $src_dirs = array();
+  public array $defines = array();
+  public array $bindings_sources;
+  public array $postproc_sources;
+  public string $postproc_dll;
+  public string $bindings_dll;
+  public string $result_file;
+  public string $error_file;
+  public string $tmp_dir;
+  public int $max_threads;
+  public bool $deterministic;
+
+  function getIncPath() : array
   {
-    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]);
-});
-
-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_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;
-}
-
-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;
+    if($this->inc_dirs)
+      return $this->inc_dirs;
+    return $this->src_dirs;
   }
 }
 
-function bhl_proj_file()
+function bhl_proj_file() : string
 {
-  return config_base_dir() . '/bhl.proj';
+  return get('BHL_PROJ_FILE');
 }
 
-function bhl_proj()
+function bhl_proj_load(string $proj_file) : BhlProj
 {
-  global $GAME_ROOT;
+  $arr = json_decode(ensure_read($proj_file), true);
+  if(!$arr)
+    throw new Exception("Bad bhl project file: $proj_file");
 
-  static $proj;
-  if(!$proj)
+  $proj = new BhlProj();
+  foreach($arr as $k => $v) 
+    $proj->{$k} = $v;
+
+  //NOTE: adding path to the file for further convenience
+  $proj->file_path = $proj_file; 
+
+  foreach($proj->inc_dirs as $k => $v)
+    $proj->inc_dirs[$k] = _bhl_make_abs_path($proj_file, $v);
+
+  foreach($proj->src_dirs as $k => $v)
+    $proj->src_dirs[$k] = _bhl_make_abs_path($proj_file, $v);
+
+  foreach($proj->bindings_sources as $k => $v)
+    $proj->bindings_sources[$k] = _bhl_make_abs_path($proj_file, $v);
+  $proj->bindings_dll = _bhl_make_abs_path($proj_file, $proj->bindings_dll);
+
+  if(isset($proj->postproc_sources))
   {
-    $proj_file = bhl_proj_file();
-    $proj = json_decode(ensure_read($proj_file));
-    if(!$proj)
-      throw new Exception("Bad bhl project file: $proj_file");
-
-    foreach($proj->src_dirs as $k => $v)
-      $proj->src_dirs[$k] = _bhl_make_abs_path($proj_file, $v);
-
-    foreach($proj->bindings_sources as $k => $v)
-      $proj->bindings_sources[$k] = _bhl_make_abs_path($proj_file, $v);
-    $proj->bindings_dll= _bhl_make_abs_path($proj_file, $proj->bindings_dll);
-
     foreach($proj->postproc_sources as $k => $v)
       $proj->postproc_sources[$k] = _bhl_make_abs_path($proj_file, $v);
-    $proj->postproc_dll= _bhl_make_abs_path($proj_file, $proj->postproc_dll);
-
-    $proj->result_file = _bhl_make_abs_path($proj_file, $proj->result_file);
-    $proj->error_file = _bhl_make_abs_path($proj_file, $proj->error_file);
-    $proj->tmp_dir = _bhl_make_abs_path($proj_file, $proj->tmp_dir);
   }
+
+  if(isset($proj->postproc_dll))
+    $proj->postproc_dll = _bhl_make_abs_path($proj_file, $proj->postproc_dll);
+
+  $proj->result_file = _bhl_make_abs_path($proj_file, $proj->result_file);
+  $proj->error_file = _bhl_make_abs_path($proj_file, $proj->error_file);
+  $proj->tmp_dir = _bhl_make_abs_path($proj_file, $proj->tmp_dir);
+
   return $proj;
 }
 
-function _bhl_make_abs_path($proj_file, $path)
+function bhl_proj_set_active(BhlProj $proj) : ?BhlProj
 {
-  if($path[0] == '.')
+  $prev = BhlProj::$active;
+  BhlProj::$active = $proj;
+  return $prev;
+}
+
+function bhl_proj() : BhlProj
+{
+  if(BhlProj::$active == null)
+  {
+    $proj = bhl_proj_load(bhl_proj_file());
+    BhlProj::$active = $proj;
+  }
+  return BhlProj::$active;
+}
+
+function _bhl_make_abs_path(string $proj_file, string $path) : string
+{
+  if($path && $path[0] == '.')
     return dirname($proj_file) . '/' . $path;
   else
     return $path;
 }
 
-function bhl_result_file()
+function bhl_result_file() : string
 {
-  global $GAME_ROOT;
   return bhl_proj()->result_file;
 }
 
-function bhl_dir()
+function bhl_dir() : string
 {
   global $GAME_ROOT;
   return "$GAME_ROOT/composer/vendor/bit/bhl";
 }
 
-function bhl_shell($cmd, &$ret_var, &$ret_out)
+function bhl_shell(string $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);
-  }
+  shell_try(bhl_dir()."/bhl $cmd", $ret_var, $ret_out);
 }
 
-function bhl_shell_ensure($cmd)
+function bhl_shell_ensure(string $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, $exit_on_err = true)
+function bhl_scan_files() : array
+{
+  return scan_files_rec(bhl_proj()->src_dirs, array('.bhl'));
+}
+
+function bhl_run(bool $debug = true, bool $force = false, bool $exit_on_err = true)
 {
   global $GAME_ROOT;
 
-  $result_file = bhl_proj()->result_file;
+  $bhl_proj = bhl_proj();
+  $result_file = $bhl_proj->result_file;
 
-  if($force || need_to_regen($result_file, scan_files_rec(bhl_proj()->src_dirs, array('.bhl'))))
+  if($force || need_to_regen($result_file, bhl_scan_files()))
   {
-    bhl_shell("compile -p " . bhl_proj_file() . " " .
+    bhl_shell("compile -p " . $bhl_proj->file_path . " " .
       ($debug ? " -d" : "") . " " .
       ($force || !getor("BHL_USE_CACHE", true) ? " -C" : ""),
       $ret_var, $ret_out
@@ -215,22 +152,20 @@ function bhl_run($debug = true, $force = false, $exit_on_err = true)
 
     if($ret_var != 0)
     {
-      bhl_handle_error_result($ret_out, $err_file, $exit_on_err);
+      bhl_handle_error_result($ret_out, $bhl_proj->error_file, $exit_on_err);
       if(!$exit_on_err)
         return false;
     }
-    else
-      echo "BHL BUNDLE: total " . kb_len(filesize($result_file)) . "\n"; 
+    else if($debug)
+      echo "BHL BUNDLE: total " . kb_len(filesize($result_file)) . ", CRC " . hexdec(hash_file('CRC32', $result_file, false)) . "\n"; 
   }
-
-  @touch($result_file);
 }
 
-function bhl_handle_error_result(array $ret_out, $err_file, $exit = true)
+function bhl_handle_error_result(array $ret_out, string $err_file, bool $exit = true)
 {
   if(!is_file($err_file))
   {
-    stderr("Something went wrong: " . (is_array($ret_out) ? implode("\n", $ret_out) : "????"));
+    stderr("Something went wrong: " . implode("\n", $ret_out));
     if($exit)
       exit(1);
   }
@@ -263,38 +198,16 @@ function bhl_handle_error_result(array $ret_out, $err_file, $exit = true)
 
 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");
+  bhl_shell("clean", $ret, $out);
 }
 
 function bhl_clean_cache()
 {
-  global $GAME_ROOT;
-  ensure_rm("$GAME_ROOT/build/bhl/");
+  ensure_rm(bhl_proj()->tmp_dir);
 }
 
-function bhl_show_position($line, $row, array $lines)
+function bhl_show_position(int $line, int $row, array $lines) : string
 {
   if($line > 0 && $line <= count($lines))
   {
@@ -314,7 +227,7 @@ function bhl_show_position($line, $row, array $lines)
     return "??? @($line:$row)";
 }
 
-function bhl_line_row_to_pos($file, $line, $row)
+function bhl_line_row_to_pos(string $file, int $line, int $row) : ?int
 {
   $pos = 0;
   $lines = file($file);
@@ -326,3 +239,127 @@ function bhl_line_row_to_pos($file, $line, $row)
   $pos += $row;
   return $pos;
 }
+
+function bhl_map_module_to_file(string $module) : ?string
+{
+  $bhl_proj = bhl_proj();
+  foreach($bhl_proj->getIncPath() as $dir)
+  {
+    $tmp = $dir.'/'.$module.'.bhl';
+    if(file_exists($tmp))
+      return $tmp;
+  }
+  return null;
+}
+
+function bhl_validate_func_ref(string $module_file, string $func_full_name, array $signature)
+{
+  if(sizeof($signature) == 0)
+    throw new Exception("Signature is invalid");
+
+  $name_items = explode('.', $func_full_name);
+  $func = array_pop($name_items);
+  $namespace = implode('.', $name_items);
+
+  $module_src = file_get_contents($module_file);
+  $module_src = _bhl_remove_comments($module_src);
+
+  if(!$module_src)
+    throw new Exception("Bad module file '{$module_file}'");
+
+  $ns_chunks = _bhl_split_by_namespaces($module_src);
+
+  $module_chunks = array();
+  if($namespace)
+  {
+    if(!isset($ns_chunks[$namespace]))
+      throw new Exception("No namespace '$namespace' found in '$module_file'");
+
+    foreach($ns_chunks[$namespace] as $ns_src)
+      $module_chunks[] = $ns_src;
+  }
+  else
+  {
+    if(!isset($ns_chunks['']))
+      throw new Exception("No global namespace found in '$module_file'");
+
+    foreach($ns_chunks[''] as $ns_src)
+      $module_chunks[] = $ns_src;
+  }
+
+  $signature_pattern = '';
+  $signature_pattern .= '~func\s+';
+  if($signature[0] !== 'void')
+  {
+    $signature_pattern .= preg_quote($signature[0]);
+    $signature_pattern .= '\s+';
+  }
+  $signature_pattern .= $func;
+  $signature_pattern .= '\s*\(';
+  array_shift($signature);
+  foreach($signature as $type)
+  {
+    $signature_pattern .= '\s*';
+    $signature_pattern .= preg_quote($type);
+    $signature_pattern .= '\s*\S+';
+    $signature_pattern .= '\s*,';
+  }
+  $signature_pattern = rtrim($signature_pattern, '\s*,');
+  $signature_pattern .= '\s*\)';
+  $signature_pattern .= '~';
+
+  foreach($module_chunks as $module_chunk_src)
+  {
+    if(preg_match($signature_pattern, $module_chunk_src))
+      return;
+  }
+
+  throw new Exception("Func '$func_full_name(".implode(',', $signature).")' not found in '$module_file'");
+}
+
+function _bhl_remove_comments(string $txt) : string
+{
+  //block comments
+  if(strpos($txt, '/*') !== false)
+  {
+    $regex = '~/\*.*?\*/~s';
+    $txt = preg_replace_callback(
+      $regex, 
+      //preserve the new lines for better error reporting
+      function($m) { return str_repeat("\n", substr_count($m[0], "\n")); },
+      $txt);
+  }
+  //line comments
+  $txt = preg_replace("~\s*(?<!:)//.*~", "\n", $txt);
+  return $txt;
+}
+
+function _bhl_split_by_namespaces(string $src) : array
+{
+  $nss = array();
+
+  $chunks = preg_split('~^\s*(namespace\s+[^\{]+){~m', $src, -1, PREG_SPLIT_DELIM_CAPTURE|PREG_SPLIT_NO_EMPTY);
+
+  for($i=0;$i<count($chunks);)
+  {
+    $chunk = $chunks[$i];
+    if(strpos(ltrim($chunk), 'namespace ') === 0)
+    {
+      $ns = trim(substr(ltrim($chunk), 9));
+      $body = $chunks[$i+1];
+      if(!isset($nss[$ns]))
+        $nss[$ns] = array();
+      $nss[$ns][] = $body;
+      $i+=2;
+    }
+    else
+    {
+      if(!isset($nss['']))
+        $nss[''] = array();
+      $nss[''][] = $chunk;
+      ++$i;
+    }
+  }
+
+  return $nss;
+}

bhl_flt.inc.php

@@ -0,0 +1,26 @@
+<?php
+namespace metagen_php;
+use Exception;
+
+function flt_bhl_ref($val, $name, $data, $str_args)
+{
+  if(!$val)
+    return $val;
+
+  if(!isset($val['module']))
+    throw new Exception("Missing 'module'");
+
+  $module_file = \taskman\bhl_map_module_to_file($val['module']);
+  if(!$module_file)
+    throw new Exception("Module not found '{$val['module']}");
+
+  if(!isset($val['fn']))
+    throw new Exception("Missing 'fn'");
+
+  $args = explode(",", $str_args);
+
+  \taskman\bhl_validate_func_ref($module_file, $val['fn'], $args);
+
+  return $val;
+}
+

bhl_macro.inc.php

@@ -0,0 +1,47 @@
+<?php
+
+/**
+ * @global
+ */
+function macro_BHL_REF($proc, $module, $func, $signature_json = '')
+{
+  //check if it's a relative path
+  if($module[0] == '.')
+  {
+    $abs_module = \taskman\normalize_path(dirname($proc->getRootFile()) . '/' . $module);
+    $mapped = false;
+
+    $bhl_proj = \taskman\bhl_proj();
+    $inc_path = $bhl_proj->getIncPath();
+
+    foreach($inc_path as $dir)
+    {
+      $rel_module = str_replace(\taskman\normalize_path($dir), '', $abs_module);
+      if($rel_module != $abs_module)
+      {
+        $mapped = true;
+        $rel_module = str_replace('\\', '/', $rel_module);
+        $module = "/" . $rel_module;
+        break;
+      }
+    }
+    if(!$mapped)
+      throw new Exception("Could not map relative module: $module");
+  }
+
+  $module_file = \taskman\bhl_map_module_to_file($module);
+  if(!$module_file)
+    throw new Exception("Module not found '{$module}'");
+
+  //validate signature only if it's explicitely passed
+  if($signature_json)
+  {
+    $signature = json_decode($signature_json, false);
+    if(!is_array($signature))
+      throw new Exception("Signature is invalid '$module'");
+    \taskman\bhl_validate_func_ref($module_file, $func, $signature);
+  }
+
+  return array('module' => ltrim($module, '/'), 'fn' => $func);
+}
+

composer.json

@@ -4,8 +4,5 @@
     "homepage": "https://git.bit5.ru/composer/taskman_bhl",
     "require": {
         "php": ">=7.4"
-    },
-    "autoload": {
-        "classmap": ["bhl.inc.php"]
     }
 }