From e23177f7b5961e92d1da72692985a024c8b965a6 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Fri, 9 Apr 1999 11:48:19 +0200
Subject: [PATCH] better trace of included file (kind-of ad hoc)
Rev: tutorial/Sgml.pmod:1.11
---
tutorial/Sgml.pmod | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/tutorial/Sgml.pmod b/tutorial/Sgml.pmod
index 4cf97b4b2a..270cecfa14 100644
--- a/tutorial/Sgml.pmod
+++ b/tutorial/Sgml.pmod
@@ -22,6 +22,19 @@ class Tag
if(f->open(file,"r"))
{
string *x=f->read(pos-1)/"\n";
+ string f;
+ int i=0,l;
+
+ foreach (reverse(x),string s)
+ if (sscanf(s,"<!-- %s line %d -->",f,l))
+ return
+ sprintf("line %d col %d in file %s "
+ "/ generated from %s line %d (start line %d)",
+ sizeof(x)+1,strlen(x[-1])+1,file,
+ f,l+i,l);
+ else
+ if (i++ > 50) break;
+
return sprintf("line %d col %d in file %s",sizeof(x)+1,strlen(x[-1])+1,file);
}
}
--
GitLab