Commit 6ed69c0b9b8392b043628d7467c179401ebce9de

Thomas de Grivel 2024-08-03T19:01:59

revert changes for __DIR__ and __FILE__

diff --git a/libkc3/buf_parse.c b/libkc3/buf_parse.c
index 9d116e0..823fd36 100644
--- a/libkc3/buf_parse.c
+++ b/libkc3/buf_parse.c
@@ -3874,44 +3874,11 @@ sw buf_parse_tag_fn (s_buf *buf, s_tag *dest)
 sw buf_parse_tag_ident (s_buf *buf, s_tag *dest)
 {
   sw r;
-  const s_tag *tag;
-  s_tag tmp = {0};
   assert(buf);
   assert(dest);
-  tmp.type = TAG_IDENT;
-  r = buf_parse_ident(buf, &tmp.data.ident);
-  if (r <= 0)
-    return r;
-  if (! tmp.data.ident.module ||
-      tmp.data.ident.module == &g_sym_KC3) {
-    if (tmp.data.ident.sym == &g_sym___DIR__ ||
-        tmp.data.ident.sym == &g_sym___FILE__) {
-      if (true) {
-        err_write_1("buf_parse_tag_ident: ");
-        err_inspect_ident(&tmp.data.ident);
-        err_write_1("\n");
-      }
-      tag = frame_get(&g_kc3_env.global_frame, tmp.data.ident.sym);
-      if (! tag) {
-        err_write_1("buf_parse_tag_ident: frame_get: ");
-        err_inspect_sym(&tmp.data.ident.sym);
-        err_puts(" not found in global_frame");
-        assert(! "buf_parse_tag_ident: frame_get");
-        return -1;
-      }
-      if (! tag_init_copy(&tmp, tag)) {
-        err_puts("buf_parse_tag_ident: tag_init_copy");
-        assert(! "buf_parse_tag_ident: tag_init_copy");
-        return -1;
-      }
-      if (true) {
-        err_write_1("buf_parse_tag_ident: ");
-        err_inspect_tag(&tmp);
-        err_write_1("\n");
-      }
-    }
-  }
-  *dest = tmp;
+  r = buf_parse_ident(buf, &dest->data.ident);
+  if (r > 0)
+    dest->type = TAG_IDENT;
   return r;
 }
 
diff --git a/libkc3/env.c b/libkc3/env.c
index 0a76c46..89c6da5 100644
--- a/libkc3/env.c
+++ b/libkc3/env.c
@@ -2194,7 +2194,7 @@ bool env_load (s_env *env, const s_str *path)
   if (! file_dirname(path, &file_dir->data.str))
     goto ko;
   tag_init_str(file_path, NULL, path->size, path->ptr.pchar);
-  if (true) {
+  if (false) {
     err_write_1("env_load: __DIR__ = ");
     err_inspect_tag(file_dir);
     err_write_1("\n");