.gitea/workflows/build_composer.yaml

@@ -1,29 +0,0 @@
-
-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 }}      

bhl.inc.php

@@ -12,94 +12,46 @@ task('bhl_clean_cache', function()
   bhl_clean_cache();
 });
 
-class BhlProj
+task('bhl_make_upm_package', function() {
-{
+  bhl_make_upm_package();
-  public static ?BhlProj $active = null;
+});
 
-  public string $file_path;
+function bhl_proj_file()
-  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
-  {
-    if($this->inc_dirs)
-      return $this->inc_dirs;
-    return $this->src_dirs;
-  }
-}
-
-function bhl_proj_file() : string
 {
   return get('BHL_PROJ_FILE');
 }
 
-function bhl_proj_load(string $proj_file) : BhlProj
+function bhl_proj()
 {
-  $arr = json_decode(ensure_read($proj_file), true);
+  global $GAME_ROOT;
-  if(!$arr)
-    throw new Exception("Bad bhl project file: $proj_file");
 
-  $proj = new BhlProj();
+  static $proj;
-  foreach($arr as $k => $v) 
+  if(!$proj)
-    $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_proj_set_active(BhlProj $proj) : ?BhlProj
+function _bhl_make_abs_path($proj_file, $path)
-{
-  $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;
@@ -107,44 +59,53 @@ function _bhl_make_abs_path(string $proj_file, string $path) : string
     return $path;
 }
 
-function bhl_result_file() : string
+function bhl_result_file()
 {
+  global $GAME_ROOT;
   return bhl_proj()->result_file;
 }
 
-function bhl_dir() : string
+function bhl_dir()
 {
   global $GAME_ROOT;
   return "$GAME_ROOT/composer/vendor/bit/bhl";
 }
 
-function bhl_shell(string $cmd, &$ret_var, &$ret_out)
+function bhl_shell($cmd, &$ret_var, &$ret_out)
 {
-  shell_try(bhl_dir()."/bhl $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(string $cmd)
+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_scan_files() : array
+function bhl_scan_files()
 {
   return scan_files_rec(bhl_proj()->src_dirs, array('.bhl'));
 }
 
-function bhl_run(bool $debug = true, bool $force = false, bool $exit_on_err = true)
+function bhl_run($debug = true, $force = false, $exit_on_err = true)
 {
   global $GAME_ROOT;
 
-  $bhl_proj = bhl_proj();
+  $result_file = bhl_proj()->result_file;
-  $result_file = $bhl_proj->result_file;
 
   if($force || need_to_regen($result_file, bhl_scan_files()))
   {
-    bhl_shell("compile -p " . $bhl_proj->file_path . " " .
+    bhl_shell("compile -p " . bhl_proj_file() . " " .
       ($debug ? " -d" : "") . " " .
       ($force || !getor("BHL_USE_CACHE", true) ? " -C" : ""),
       $ret_var, $ret_out
@@ -152,16 +113,18 @@ function bhl_run(bool $debug = true, bool $force = false, bool $exit_on_err = tr
 
     if($ret_var != 0)
     {
-      bhl_handle_error_result($ret_out, $bhl_proj->error_file, $exit_on_err);
+      bhl_handle_error_result($ret_out, bhl_proj()->error_file, $exit_on_err);
       if(!$exit_on_err)
         return false;
     }
-    else if($debug)
+    else
-      echo "BHL BUNDLE: total " . kb_len(filesize($result_file)) . ", CRC " . hexdec(hash_file('CRC32', $result_file, false)) . "\n"; 
+      echo "BHL BUNDLE: total " . kb_len(filesize($result_file)) . "\n"; 
   }
+
+  @touch($result_file);
 }
 
-function bhl_handle_error_result(array $ret_out, string $err_file, bool $exit = true)
+function bhl_handle_error_result(array $ret_out, $err_file, $exit = true)
 {
   if(!is_file($err_file))
   {
@@ -199,7 +162,7 @@ function bhl_handle_error_result(array $ret_out, string $err_file, bool $exit =
 function bhl_clean()
 {
   bhl_clean_cache();
-  bhl_shell("clean", $ret, $out);
+  bhl_shell_ensure("clean");
 }
 
 function bhl_clean_cache()
@@ -207,7 +170,7 @@ function bhl_clean_cache()
   ensure_rm(bhl_proj()->tmp_dir);
 }
 
-function bhl_show_position(int $line, int $row, array $lines) : string
+function bhl_show_position($line, $row, array $lines)
 {
   if($line > 0 && $line <= count($lines))
   {
@@ -227,7 +190,7 @@ function bhl_show_position(int $line, int $row, array $lines) : string
     return "??? @($line:$row)";
 }
 
-function bhl_line_row_to_pos(string $file, int $line, int $row) : ?int
+function bhl_line_row_to_pos($file, $line, $row)
 {
   $pos = 0;
   $lines = file($file);
@@ -240,10 +203,9 @@ function bhl_line_row_to_pos(string $file, int $line, int $row) : ?int
   return $pos;
 }
 
-function bhl_map_module_to_file(string $module) : ?string
+function bhl_map_module_to_file($module)
 {
-  $bhl_proj = bhl_proj();
+  foreach(bhl_proj()->src_dirs as $dir)
-  foreach($bhl_proj->getIncPath() as $dir)
   {
     $tmp = $dir.'/'.$module.'.bhl';
     if(file_exists($tmp))
@@ -252,41 +214,16 @@ function bhl_map_module_to_file(string $module) : ?string
   return null;
 }
 
-function bhl_validate_func_ref(string $module_file, string $func_full_name, array $signature)
+function bhl_validate_func_ref($module_file, $func, 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')
@@ -308,58 +245,64 @@ function bhl_validate_func_ref(string $module_file, string $func_full_name, arra
   $signature_pattern .= '\s*\)';
   $signature_pattern .= '~';
 
-  foreach($module_chunks as $module_chunk_src)
+  if(!preg_match($signature_pattern, $module_src))
-  {
+    throw new Exception("Func '$func' signature '".implode(',', $signature)."' not found in module '$module_file'");
-    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
+function bhl_upm_path()
 {
-  //block comments
+  global $GAME_ROOT;
-  if(strpos($txt, '/*') !== false)
+  $pkg_dir = get("UNITY_ASSETS_DIR") . '/../Packages/bhl';
-  {
+  return $pkg_dir;
-    $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
+function bhl_clean_upm_package()
 {
-  $nss = array();
+  ensure_rm(bhl_upm_path() . '/Runtime/code/');
+}
 
-  $chunks = preg_split('~^\s*(namespace\s+[^\{]+){~m', $src, -1, PREG_SPLIT_DELIM_CAPTURE|PREG_SPLIT_NO_EMPTY);
+function bhl_make_upm_package()
+{
+  global $GAME_ROOT;
 
-  for($i=0;$i<count($chunks);)
+  $pkg_dir = bhl_upm_path();
+  ensure_mkdir($pkg_dir);
+
+  $srcs = array();
+  $lines = file(bhl_dir() . '/bhl.cs');
+  $started = false;
+  foreach($lines as $line)
   {
-    $chunk = $chunks[$i];
+    if(!$started && strpos($line, 'static readonly string[] VM_SRC = new string[] {') !== false)
-    if(strpos(ltrim($chunk), 'namespace ') === 0)
     {
-      $ns = trim(substr(ltrim($chunk), 9));
+      $started = true;
-      $body = $chunks[$i+1];
+      continue;
-      if(!isset($nss[$ns]))
-        $nss[$ns] = array();
-      $nss[$ns][] = $body;
-      $i+=2;
     }
-    else
+    else if($started && strpos($line, '};') !== false) 
+      break;
+    else if($started)
     {
-      if(!isset($nss['']))
+      $mask = trim($line);
-        $nss[''] = array();
+      $mask = str_replace('$"{BHL_ROOT}/', '', $mask);
-      $nss[''][] = $chunk;
+      $mask = str_replace('",', '', $mask);
-      ++$i;
+      $srcs = array_merge($srcs, glob(bhl_dir() . '/' . $mask));
     }
   }
 
-  return $nss;
+  $trgs = array();
+  $changed = false;
+  foreach($srcs as $src)
+  {
+    $trg = $pkg_dir . '/Runtime/code/' . str_replace(bhl_dir(), '', $src);
+    if(!is_file($trg) || file_get_contents($src) != file_get_contents($trg))
+      $changed = true;
+    $trgs[$src] = $trg;
+  }
+
+  if($changed)
+  {
+    bhl_clean_upm_package();
+    foreach($trgs as $src => $trg)
+      ensure_copy($src, $trg);
+  }
 }

bhl_flt.inc.php

@@ -2,7 +2,7 @@
 namespace metagen_php;
 use Exception;
 
-function flt_bhl_ref($val, $name, $data, $str_args)
+function flt_bhl_ref($val, $name, $struct, $str_args)
 {
   if(!$val)
     return $val;

bhl_macro.inc.php

@@ -5,16 +5,11 @@
  */
 function macro_BHL_REF($proc, $module, $func, $signature_json = '')
 {
-  //check if it's a relative path
+  if($module[0] !== '/')
-  if($module[0] == '.')
   {
     $abs_module = \taskman\normalize_path(dirname($proc->getRootFile()) . '/' . $module);
     $mapped = false;
-
+    foreach(\taskman\bhl_proj()->src_dirs as $dir)
-    $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)