From 972ad49a4f44e0c6fa2fa98e4d46d2ecc6b7e318 Mon Sep 17 00:00:00 2001
From: ValKmjolnir <lhk101lhk101@qq.com>
Date: Mon, 5 Sep 2022 00:41:36 +0800
Subject: [PATCH] :zap: improve error output info generated by codegen.

---
 nasal_ast.h     | 10 ++++--
 nasal_codegen.h | 23 ++++++------
 nasal_err.h     | 18 +++++++---
 nasal_import.h  | 10 +++---
 nasal_parse.h   | 94 +++++++++++++++++++++++++------------------------
 5 files changed, 88 insertions(+), 67 deletions(-)

diff --git a/nasal_ast.h b/nasal_ast.h
index c114d89..e533727 100644
--- a/nasal_ast.h
+++ b/nasal_ast.h
@@ -129,12 +129,13 @@ class nasal_ast
 {
 private:
     u32 _line;
+    u32 _column;
     u32 _type;
     f64 _num;
     string _str;
     std::vector<nasal_ast> _child;
 public:
-    nasal_ast(const u32 l=0,const u32 t=ast_null):_line(l),_type(t),_num(0){}
+    nasal_ast(const u32 l,const u32 c,const u32 t):_line(l),_column(c),_type(t),_num(0){}
     nasal_ast(const nasal_ast&);
     nasal_ast(nasal_ast&&);
     void tree();
@@ -155,6 +156,7 @@ public:
     void set_num(const f64 n){_num=n;}
 
     inline u32 line() const {return _line;}
+    inline u32 col()  const {return _column;}
     inline u32 type() const {return _type;}
     inline f64 num()  const {return _num;}
     inline const string& str() const {return _str;}
@@ -166,6 +168,7 @@ nasal_ast::nasal_ast(const nasal_ast& tmp):
     _str(tmp._str),_child(tmp._child)
 {
     _line=tmp._line;
+    _column=tmp._column;
     _type=tmp._type;
     _num =tmp._num;
 }
@@ -173,6 +176,7 @@ nasal_ast::nasal_ast(const nasal_ast& tmp):
 nasal_ast::nasal_ast(nasal_ast&& tmp)
 {
     _line=tmp._line;
+    _column=tmp._column;
     _type=tmp._type;
     _num =tmp._num;
     _str.swap(tmp._str);
@@ -182,6 +186,7 @@ nasal_ast::nasal_ast(nasal_ast&& tmp)
 nasal_ast& nasal_ast::operator=(const nasal_ast& tmp)
 {
     _line=tmp._line;
+    _column=tmp._column;
     _type=tmp._type;
     _num=tmp._num;
     _str=tmp._str;
@@ -192,6 +197,7 @@ nasal_ast& nasal_ast::operator=(const nasal_ast& tmp)
 nasal_ast& nasal_ast::operator=(nasal_ast&& tmp)
 {
     _line=tmp._line;
+    _column=tmp._column;
     _type=tmp._type;
     _num=tmp._num;
     _str.swap(tmp._str);
@@ -201,7 +207,7 @@ nasal_ast& nasal_ast::operator=(nasal_ast&& tmp)
 
 void nasal_ast::clear()
 {
-    _line=0;
+    _line=_column=0;
     _num=0;
     _str="";
     _type=ast_null;
diff --git a/nasal_codegen.h b/nasal_codegen.h
index 81ae647..595ba22 100644
--- a/nasal_codegen.h
+++ b/nasal_codegen.h
@@ -209,7 +209,7 @@ private:
     std::stack<u32> fbstk;
     std::stack<u32> festk;
     
-    void die(const string&,const u32);
+    void die(const string&,const u32,const u32);
     void regist_num(const f64);
     void regist_str(const string&);
     void find_symbol(const nasal_ast&);
@@ -260,10 +260,13 @@ public:
     const std::vector<opcode>& codes() const {return code;}
 };
 
-void nasal_codegen::die(const string& info,const u32 line)
+void nasal_codegen::die(const string& info,const u32 line,const u32 col)
 {
     nerr.load(file[fileindex]);
-    nerr.err("code",line,info);
+    if(col)
+        nerr.err("code",line,col,info);
+    else
+        nerr.err("code",line,info);
 }
 
 void nasal_codegen::regist_num(const f64 num)
@@ -409,7 +412,7 @@ void nasal_codegen::func_gen(const nasal_ast& ast)
     {
         const string& str=tmp.str();
         if(str=="me")
-            die("\"me\" should not be a parameter",tmp.line());
+            die("\"me\" should not be a parameter",tmp.line(),tmp.col());
         regist_str(str);
         switch(tmp.type())
         {
@@ -436,7 +439,7 @@ void nasal_codegen::func_gen(const nasal_ast& ast)
     in_iterloop.pop();
     code[lsize].num=local.back().size();
     if(local.back().size()>=STACK_DEPTH)
-        die("too many local variants: "+std::to_string(local.back().size()),block.line());
+        die("too many local variants: "+std::to_string(local.back().size()),block.line(),0);
     local.pop_back();
 
     if(!block.size() || block.child().back().type()!=ast_ret)
@@ -472,7 +475,7 @@ void nasal_codegen::call_id(const nasal_ast& ast)
         {
             gen(op_callb,i,ast.line());
             if(local.empty())
-                die("should warp native functions in local scope",ast.line());
+                die("should warp native functions in local scope",ast.line(),ast.col());
             return;
         }
     i32 index;
@@ -491,7 +494,7 @@ void nasal_codegen::call_id(const nasal_ast& ast)
         gen(op_callg,index,ast.line());
         return;
     }
-    die("undefined symbol \""+str+"\"",ast.line());
+    die("undefined symbol \""+str+"\"",ast.line(),ast.col());
 }
 
 void nasal_codegen::call_hash(const nasal_ast& ast)
@@ -588,7 +591,7 @@ void nasal_codegen::mcall_id(const nasal_ast& ast)
     for(u32 i=0;builtin[i].name;++i)
         if(builtin[i].name==str)
         {
-            die("cannot modify native function",ast.line());
+            die("cannot modify native function",ast.line(),ast.col());
             return;
         }
     i32 index;
@@ -607,7 +610,7 @@ void nasal_codegen::mcall_id(const nasal_ast& ast)
         gen(op_mcallg,index,ast.line());
         return;
     }
-    die("undefined symbol \""+str+"\"",ast.line());
+    die("undefined symbol \""+str+"\"",ast.line(),ast.col());
 }
 
 void nasal_codegen::mcall_vec(const nasal_ast& ast)
@@ -1235,7 +1238,7 @@ void nasal_codegen::compile(const nasal_parse& parse,const nasal_import& import)
     block_gen(parse.ast()); // generate main block
     gen(op_exit,0,0);
     if(global.size()>=STACK_DEPTH)
-        die("too many global variants: "+std::to_string(global.size()),0);
+        die("too many global variants: "+std::to_string(global.size()),0,0);
     nerr.chkerr();
 }
 
diff --git a/nasal_err.h b/nasal_err.h
index b59020c..2b11d03 100644
--- a/nasal_err.h
+++ b/nasal_err.h
@@ -123,8 +123,13 @@ public:
         std::cerr<<bold_red<<stage<<": "
                  <<bold_white<<info<<reset<<"\n"
                  <<bold_cyan<<" --> "<<reset
-                 <<bold_orange<<file<<":"<<line<<":"<<column<<"\n"
-                 <<bold_cyan<<ident<<" | "<<reset<<"\n"
+                 <<bold_orange<<file<<":"<<line<<":"<<column<<"\n";
+        if(!line)
+        {
+            std::cerr<<"\n";
+            return;
+        }
+        std::cerr<<bold_cyan<<ident<<" | "<<reset<<"\n"
                  <<bold_cyan<<line<<" | "<<reset<<code<<"\n"
                  <<bold_cyan<<ident<<" | "<<reset;
         for(i32 i=0;i<(i32)column-1;++i)
@@ -138,8 +143,13 @@ public:
         std::cerr<<bold_red<<stage<<": "
                  <<bold_white<<info<<reset<<"\n"
                  <<bold_cyan<<" --> "<<reset
-                 <<bold_orange<<file<<":"<<line<<"\n"
-                 <<bold_cyan<<ident<<" | "<<reset<<"\n"
+                 <<bold_orange<<file<<":"<<line<<"\n";
+        if(!line)
+        {
+            std::cerr<<"\n";
+            return;
+        }
+        std::cerr<<bold_cyan<<ident<<" | "<<reset<<"\n"
                  <<bold_cyan<<line<<" | "<<reset<<res[line-1]<<"\n"
                  <<bold_cyan<<ident<<" | "<<reset<<"\n\n";
     }
diff --git a/nasal_import.h b/nasal_import.h
index dd23db5..da25ba9 100644
--- a/nasal_import.h
+++ b/nasal_import.h
@@ -159,7 +159,7 @@ nasal_ast nasal_import::fimpt(nasal_ast& node)
     // avoid infinite loading loop
     filename=findf(filename);
     if(!filename.length() || exist(filename))
-        return {0,ast_root};
+        return {0,0,ast_root};
     
     // start importing...
     lex.scan(filename);
@@ -175,11 +175,11 @@ nasal_ast nasal_import::libimpt()
     nasal_parse par(nerr);
     string filename=findf("lib.nas");
     if(!filename.length())
-        return {0,ast_root};
+        return {0,0,ast_root};
 
     // avoid infinite loading loop
     if(exist(filename))
-        return {0,ast_root};
+        return {0,0,ast_root};
     
     // start importing...
     lex.scan(filename);
@@ -191,7 +191,7 @@ nasal_ast nasal_import::libimpt()
 
 nasal_ast nasal_import::load(nasal_ast& root,u16 fileindex)
 {
-    nasal_ast new_root(0,ast_root);
+    nasal_ast new_root(0,0,ast_root);
     if(!lib_loaded)
     {
         linker(new_root,libimpt());
@@ -205,7 +205,7 @@ nasal_ast nasal_import::load(nasal_ast& root,u16 fileindex)
             break;
     }
     // add root to the back of new_root
-    nasal_ast file_head(0,ast_file);
+    nasal_ast file_head(0,0,ast_file);
     file_head.set_num(fileindex);
     new_root.add(std::move(file_head));
     linker(new_root,std::move(root));
diff --git a/nasal_parse.h b/nasal_parse.h
index 16dc80e..4be6ab3 100644
--- a/nasal_parse.h
+++ b/nasal_parse.h
@@ -100,7 +100,9 @@ private:
     nasal_ast break_expr();
     nasal_ast ret_expr();
 public:
-    nasal_parse(nasal_err& e):ptr(0),in_func(0),in_loop(0),tokens(nullptr),nerr(e){}
+    nasal_parse(nasal_err& e):
+        ptr(0),in_func(0),in_loop(0),
+        tokens(nullptr),root(0,0,ast_root),nerr(e){}
     void print(){root.tree();}
     void compile(const nasal_lexer&);
     nasal_ast& ast(){return root;}
@@ -111,7 +113,7 @@ void nasal_parse::compile(const nasal_lexer& lexer)
     tokens=lexer.result().data();
     ptr=in_func=in_loop=0;
 
-    root={1,ast_root};
+    root={0,0,ast_root};
     while(tokens[ptr].type!=tok_eof)
     {
         root.add(expr());
@@ -255,29 +257,29 @@ void nasal_parse::check_memory_reachable(const nasal_ast& node)
 }
 nasal_ast nasal_parse::null()
 {
-    return {tokens[ptr].line,ast_null};
+    return {tokens[ptr].line,tokens[ptr].col,ast_null};
 }
 nasal_ast nasal_parse::nil()
 {
-    return {tokens[ptr].line,ast_nil};
+    return {tokens[ptr].line,tokens[ptr].col,ast_nil};
 }
 nasal_ast nasal_parse::num()
 {
-    nasal_ast node(tokens[ptr].line,ast_num);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_num);
     node.set_num(str2num(tokens[ptr].str.c_str()));
     match(tok_num);
     return node;
 }
 nasal_ast nasal_parse::str()
 {
-    nasal_ast node(tokens[ptr].line,ast_str);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_str);
     node.set_str(tokens[ptr].str);
     match(tok_str);
     return node;
 }
 nasal_ast nasal_parse::id()
 {
-    nasal_ast node(tokens[ptr].line,ast_id);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_id);
     node.set_str(tokens[ptr].str);
     match(tok_id);
     return node;
@@ -293,7 +295,7 @@ nasal_ast nasal_parse::vec()
         tok_func,tok_var,tok_lcurve,
         tok_lbrace,tok_lbracket,tok_null
     };
-    nasal_ast node(tokens[ptr].line,ast_vec);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_vec);
     match(tok_lbracket);
     while(tokens[ptr].type!=tok_rbracket)
     {
@@ -310,7 +312,7 @@ nasal_ast nasal_parse::vec()
 }
 nasal_ast nasal_parse::hash()
 {
-    nasal_ast node(tokens[ptr].line,ast_hash);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_hash);
     match(tok_lbrace);
     while(tokens[ptr].type!=tok_rbrace)
     {
@@ -327,7 +329,7 @@ nasal_ast nasal_parse::hash()
 }
 nasal_ast nasal_parse::pair()
 {
-    nasal_ast node(tokens[ptr].line,ast_pair);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_pair);
     if(tokens[ptr].type==tok_id)
         node.add(id());
     else if(tokens[ptr].type==tok_str)
@@ -341,7 +343,7 @@ nasal_ast nasal_parse::pair()
 nasal_ast nasal_parse::func()
 {
     ++in_func;
-    nasal_ast node(tokens[ptr].line,ast_func);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_func);
     match(tok_func);
     if(tokens[ptr].type==tok_lcurve)
         node.add(args());
@@ -353,14 +355,14 @@ nasal_ast nasal_parse::func()
 }
 nasal_ast nasal_parse::args()
 {
-    nasal_ast node(tokens[ptr].line,ast_args);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_args);
     match(tok_lcurve);
     while(tokens[ptr].type!=tok_rcurve)
     {
         nasal_ast tmp=id();
         if(tokens[ptr].type==tok_eq || tokens[ptr].type==tok_ellipsis)
         {
-            nasal_ast special_arg(tokens[ptr].line,ast_null);
+            nasal_ast special_arg(tokens[ptr].line,tokens[ptr].col,ast_null);
             if(tokens[ptr].type==tok_eq)
             {
                 match(tok_eq);
@@ -468,7 +470,7 @@ nasal_ast nasal_parse::expr()
             ++ptr;
             break;
     }
-    return {tokens[ptr].line,ast_null};
+    return {tokens[ptr].line,tokens[ptr].col,ast_null};
 }
 nasal_ast nasal_parse::exprs()
 {
@@ -477,7 +479,7 @@ nasal_ast nasal_parse::exprs()
         die(error_line,"expected expression block");
         return null();
     }
-    nasal_ast node(tokens[ptr].line,ast_block);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_block);
     if(tokens[ptr].type==tok_lbrace)
     {
         match(tok_lbrace);
@@ -506,7 +508,7 @@ nasal_ast nasal_parse::calc()
     if(tokens[ptr].type==tok_quesmark)
     {
         // trinocular calculation
-        nasal_ast tmp(tokens[ptr].line,ast_trino);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,ast_trino);
         match(tok_quesmark);
         tmp.add(std::move(node));
         tmp.add(calc());
@@ -518,7 +520,7 @@ nasal_ast nasal_parse::calc()
     {
         check_memory_reachable(node);
         // tok_eq~tok_lnkeq is 37 to 42,ast_equal~ast_lnkeq is 21~26
-        nasal_ast tmp(tokens[ptr].line,tokens[ptr].type-tok_eq+ast_equal);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,tokens[ptr].type-tok_eq+ast_equal);
         tmp.add(std::move(node));
         match(tokens[ptr].type);
         tmp.add(calc());
@@ -531,7 +533,7 @@ nasal_ast nasal_parse::or_expr()
     nasal_ast node=and_expr();
     while(tokens[ptr].type==tok_or)
     {
-        nasal_ast tmp(tokens[ptr].line,ast_or);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,ast_or);
         tmp.add(std::move(node));
         match(tok_or);
         tmp.add(and_expr());
@@ -544,7 +546,7 @@ nasal_ast nasal_parse::and_expr()
     nasal_ast node=cmp_expr();
     while(tokens[ptr].type==tok_and)
     {
-        nasal_ast tmp(tokens[ptr].line,ast_and);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,ast_and);
         tmp.add(std::move(node));
         match(tok_and);
         tmp.add(cmp_expr());
@@ -558,7 +560,7 @@ nasal_ast nasal_parse::cmp_expr()
     while(tok_cmpeq<=tokens[ptr].type && tokens[ptr].type<=tok_geq)
     {
         // tok_cmpeq~tok_geq is 43~48,ast_cmpeq~ast_geq is 27~32
-        nasal_ast tmp(tokens[ptr].line,tokens[ptr].type-tok_cmpeq+ast_cmpeq);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,tokens[ptr].type-tok_cmpeq+ast_cmpeq);
         tmp.add(std::move(node));
         match(tokens[ptr].type);
         tmp.add(additive_expr());
@@ -571,7 +573,7 @@ nasal_ast nasal_parse::additive_expr()
     nasal_ast node=multive_expr();
     while(tokens[ptr].type==tok_add || tokens[ptr].type==tok_sub || tokens[ptr].type==tok_link)
     {
-        nasal_ast tmp(tokens[ptr].line,ast_null);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,ast_null);
         switch(tokens[ptr].type)
         {
             case tok_add:  tmp.set_type(ast_add);  break;
@@ -590,7 +592,7 @@ nasal_ast nasal_parse::multive_expr()
     nasal_ast node=(tokens[ptr].type==tok_sub || tokens[ptr].type==tok_not)?unary():scalar();
     while(tokens[ptr].type==tok_mult || tokens[ptr].type==tok_div)
     {
-        nasal_ast tmp(tokens[ptr].line,tokens[ptr].type-tok_mult+ast_mult);
+        nasal_ast tmp(tokens[ptr].line,tokens[ptr].col,tokens[ptr].type-tok_mult+ast_mult);
         tmp.add(std::move(node));
         match(tokens[ptr].type);
         tmp.add((tokens[ptr].type==tok_sub || tokens[ptr].type==tok_not)?unary():scalar());
@@ -600,7 +602,7 @@ nasal_ast nasal_parse::multive_expr()
 }
 nasal_ast nasal_parse::unary()
 {
-    nasal_ast node(tokens[ptr].line,ast_null);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_null);
     switch(tokens[ptr].type)
     {
         case tok_sub:node.set_type(ast_neg);match(tok_sub);break;
@@ -611,7 +613,7 @@ nasal_ast nasal_parse::unary()
 }
 nasal_ast nasal_parse::scalar()
 {
-    nasal_ast node(tokens[ptr].line,ast_null);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_null);
     if(tokens[ptr].type==tok_nil) {node=nil();match(tok_nil);}
     else if(tokens[ptr].type==tok_num) node=num();
     else if(tokens[ptr].type==tok_str) node=str();
@@ -642,7 +644,7 @@ nasal_ast nasal_parse::scalar()
     if(is_call(tokens[ptr].type) && !(tokens[ptr].type==tok_lcurve && tokens[ptr+1].type==tok_var))
     {
         nasal_ast tmp=std::move(node);
-        node={tokens[ptr].line,ast_call};
+        node={tokens[ptr].line,tokens[ptr].col,ast_call};
         node.add(std::move(tmp));
         while(is_call(tokens[ptr].type))
             node.add(call_scalar());
@@ -658,11 +660,11 @@ nasal_ast nasal_parse::call_scalar()
         case tok_dot:      return callh(); break;
     }
     // should never run this expression
-    return {tokens[ptr].line,ast_nil};
+    return {tokens[ptr].line,tokens[ptr].col,ast_nil};
 }
 nasal_ast nasal_parse::callh()
 {
-    nasal_ast node(tokens[ptr].line,ast_callh);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_callh);
     match(tok_dot);
     node.set_str(tokens[ptr].str);
     match(tok_id,"expected hashmap key"); // get key
@@ -680,7 +682,7 @@ nasal_ast nasal_parse::callv()
         tok_lbrace,tok_lbracket,tok_colon,
         tok_null
     };
-    nasal_ast node(tokens[ptr].line,ast_callv);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_callv);
     match(tok_lbracket);
     while(tokens[ptr].type!=tok_rbracket)
     {
@@ -706,7 +708,7 @@ nasal_ast nasal_parse::callf()
         tok_func,tok_var,tok_lcurve,
         tok_lbrace,tok_lbracket,tok_null
     };
-    nasal_ast node(tokens[ptr].line,ast_callf);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_callf);
     bool special_call=check_special_call();
     match(tok_lcurve);
     while(tokens[ptr].type!=tok_rcurve)
@@ -727,7 +729,7 @@ nasal_ast nasal_parse::subvec()
     nasal_ast node=tokens[ptr].type==tok_colon?nil():calc();
     if(tokens[ptr].type==tok_colon)
     {
-        nasal_ast tmp(node.line(),ast_subvec);
+        nasal_ast tmp(node.line(),node.col(),ast_subvec);
         match(tok_colon);
         tmp.add(std::move(node));
         tmp.add((tokens[ptr].type==tok_comma || tokens[ptr].type==tok_rbracket)?nil():calc());
@@ -737,7 +739,7 @@ nasal_ast nasal_parse::subvec()
 }
 nasal_ast nasal_parse::definition()
 {
-    nasal_ast node(tokens[ptr].line,ast_def);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_def);
     if(tokens[ptr].type==tok_var)
     {
         match(tok_var);
@@ -778,7 +780,7 @@ nasal_ast nasal_parse::outcurve_def()
 }
 nasal_ast nasal_parse::multi_id()
 {
-    nasal_ast node(tokens[ptr].line,ast_multi_id);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_multi_id);
     while(tokens[ptr].type!=tok_eof)
     {
         node.add(id());
@@ -805,7 +807,7 @@ nasal_ast nasal_parse::multi_scalar(bool check_call_memory)
         tok_func,tok_var,tok_lcurve,
         tok_lbrace,tok_lbracket,tok_null
     };
-    nasal_ast node(tokens[ptr].line,ast_multi_scalar);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_multi_scalar);
     match(tok_lcurve);
     while(tokens[ptr].type!=tok_rcurve)
     {
@@ -824,7 +826,7 @@ nasal_ast nasal_parse::multi_scalar(bool check_call_memory)
 }
 nasal_ast nasal_parse::multi_assgin()
 {
-    nasal_ast node(tokens[ptr].line,ast_multi_assign);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_multi_assign);
     node.add(multi_scalar(true));
     match(tok_eq);
     if(tokens[ptr].type==tok_eof)
@@ -844,7 +846,7 @@ nasal_ast nasal_parse::multi_assgin()
 nasal_ast nasal_parse::loop()
 {
     ++in_loop;
-    nasal_ast node;
+    nasal_ast node(0,0,ast_null);
     switch(tokens[ptr].type)
     {
         case tok_while:   node=while_loop(); break;
@@ -857,7 +859,7 @@ nasal_ast nasal_parse::loop()
 }
 nasal_ast nasal_parse::while_loop()
 {
-    nasal_ast node(tokens[ptr].line,ast_while);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_while);
     match(tok_while);
     match(tok_lcurve);
     node.add(calc());
@@ -867,7 +869,7 @@ nasal_ast nasal_parse::while_loop()
 }
 nasal_ast nasal_parse::for_loop()
 {
-    nasal_ast node(tokens[ptr].line,ast_for);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_for);
     match(tok_for);
     match(tok_lcurve);
     // first expression
@@ -903,7 +905,7 @@ nasal_ast nasal_parse::for_loop()
 }
 nasal_ast nasal_parse::forei_loop()
 {
-    nasal_ast node(tokens[ptr].line,ast_null);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_null);
     switch(tokens[ptr].type)
     {
         case tok_forindex:node.set_type(ast_forindex);match(tok_forindex);break;
@@ -925,7 +927,7 @@ nasal_ast nasal_parse::forei_loop()
 }
 nasal_ast nasal_parse::iter_gen()
 {
-    nasal_ast node(tokens[ptr].line,ast_null);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_null);
     if(tokens[ptr].type==tok_var)
     {
         match(tok_var);
@@ -944,8 +946,8 @@ nasal_ast nasal_parse::iter_gen()
 }
 nasal_ast nasal_parse::conditional()
 {
-    nasal_ast node(tokens[ptr].line,ast_conditional);
-    nasal_ast ifnode(tokens[ptr].line,ast_if);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_conditional);
+    nasal_ast ifnode(tokens[ptr].line,tokens[ptr].col,ast_if);
     match(tok_if);
     match(tok_lcurve);
     ifnode.add(calc());
@@ -954,7 +956,7 @@ nasal_ast nasal_parse::conditional()
     node.add(std::move(ifnode));
     while(tokens[ptr].type==tok_elsif)
     {
-        nasal_ast elsifnode(tokens[ptr].line,ast_elsif);
+        nasal_ast elsifnode(tokens[ptr].line,tokens[ptr].col,ast_elsif);
         match(tok_elsif);
         match(tok_lcurve);
         elsifnode.add(calc());
@@ -964,7 +966,7 @@ nasal_ast nasal_parse::conditional()
     }
     if(tokens[ptr].type==tok_else)
     {
-        nasal_ast elsenode(tokens[ptr].line,ast_else);
+        nasal_ast elsenode(tokens[ptr].line,tokens[ptr].col,ast_else);
         match(tok_else);
         elsenode.add(exprs());
         node.add(std::move(elsenode));
@@ -973,19 +975,19 @@ nasal_ast nasal_parse::conditional()
 }
 nasal_ast nasal_parse::continue_expr()
 {
-    nasal_ast node(tokens[ptr].line,ast_continue);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_continue);
     match(tok_continue);
     return node;
 }
 nasal_ast nasal_parse::break_expr()
 {
-    nasal_ast node(tokens[ptr].line,ast_break);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_break);
     match(tok_break);
     return node;
 }
 nasal_ast nasal_parse::ret_expr()
 {
-    nasal_ast node(tokens[ptr].line,ast_ret);
+    nasal_ast node(tokens[ptr].line,tokens[ptr].col,ast_ret);
     match(tok_ret);
     u32 type=tokens[ptr].type;
     if(type==tok_nil || type==tok_num ||