- Added '--concrete' switch to fill in to pick readable names for

variables.
This commit is contained in:
ccremers
2005-11-12 21:13:00 +00:00
parent 1527773ae2
commit 76666404b0
9 changed files with 246 additions and 26 deletions

View File

@@ -26,6 +26,7 @@
* Externally defined
*/
extern Protocol INTRUDER; // from arachne.c
extern Term TERM_Data; // from specialterm.c
/*
* Global/static stuff.
@@ -328,19 +329,19 @@ xmlTermType (const Term t)
}
xmlindent++;
xmlPrint("<term>");
xmlPrint ("<term>");
xmlindent++;
xmlIndentPrint ();
xmlTermPrint (t);
printf ("\n");
xmlindent--;
xmlPrint("</term>");
xmlPrint ("</term>");
xmlPrint("<type>");
xmlPrint ("<type>");
xmlindent++;
xmlTermlistPrint (t->stype);
xmlindent--;
xmlPrint("</type>");
xmlPrint ("</type>");
xmlindent--;
if (realTermVariable (t))
@@ -373,9 +374,9 @@ xmlVariable (const System sys, const Term variable, const int run)
xmlPrint ("</name>");
if (variable->subst != NULL)
{
xmlPrint ("<substitution>");
xmlPrint ("<substitution>");
xmlTermType (deVar (variable));
xmlPrint ("</substitution>");
xmlPrint ("</substitution>");
}
xmlindent--;
xmlPrint ("</variable>");
@@ -902,7 +903,6 @@ xmlOutRuns (const System sys)
}
}
/*
* -----------------------------------------------------------------------------------
* Publicly available functions