[cppia] Allow generating full debug source paths

Author: tobil4sk

src-json/define.json

@@ -43,6 +43,11 @@
 		"define": "cppia",
 		"doc": "Generate cpp instruction assembly."
 	},
+	{
+		"name": "CppiaAbsoluteSourcePaths",
+		"define": "cppia.absolute-source-paths",
+		"doc": "Embed absolute paths to source files for debugging."
+	},
 	{
 		"name": "NoCppiaAst",
 		"define": "nocppiaast",

src/generators/cpp/gen/cppCppia.ml

@@ -521,6 +521,7 @@ class script_writer ctx filename asciiOut =
     val fileTable = Hashtbl.create 0
     val identBuffer = Buffer.create 0
     val cppiaAst = not (Gctx.defined ctx.ctx_common Define.NoCppiaAst)
+    val absoluteSourcePaths = Gctx.defined ctx.ctx_common Define.CppiaAbsoluteSourcePaths
 
     method stringId name =
       try Hashtbl.find identTable name
@@ -785,8 +786,12 @@ class script_writer ctx filename asciiOut =
 
     method wpos p =
       if debug then
+        let filepath = if absoluteSourcePaths then
+          Path.get_full_path p.pfile
+        else p.pfile
+        in
         this#write
-          (this#fileText p.pfile ^ "\t"
+          (this#fileText filepath ^ "\t"
           ^ string_of_int (Lexer.get_error_line p)
           ^ indent)