andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Better XML output for variables section.

Browse Source
This commit is contained in:
ccremers 2005-09-08 13:30:00 +00:00
parent 01a45f87d2
commit 5c0c5d3333
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/xmlout.c
View File

@ -327,10 +327,21 @@ xmlTermType (const Term t)
t->subst = NULL; t->subst = NULL;
} }
xmlindent++;
xmlPrint("<term>");
xmlindent++;
xmlIndentPrint (); xmlIndentPrint ();
xmlTermPrint (t); xmlTermPrint (t);
printf ("\n"); printf ("\n");
xmlindent--;
xmlPrint("</term>");
xmlPrint("<type>");
xmlindent++;
xmlTermlistPrint (t->stype); xmlTermlistPrint (t->stype);
xmlindent--;
xmlPrint("</type>");
xmlindent--;
if (realTermVariable (t)) if (realTermVariable (t))
{ {
@ -356,10 +367,15 @@ xmlVariable (const System sys, const Term variable, const int run)
} }
printf ("\" run=\"%i\">\n", run); printf ("\" run=\"%i\">\n", run);
xmlindent++; xmlindent++;
xmlPrint ("<name>");
xmlTermType (variable); xmlTermType (variable);
xmlPrint ("</name>");
if (variable->subst != NULL) if (variable->subst != NULL)
{ {
xmlPrint ("<substitution>");
xmlTermType (deVar (variable)); xmlTermType (deVar (variable));
xmlPrint ("</substitution>");
} }
xmlindent--; xmlindent--;
xmlPrint ("</variable>"); xmlPrint ("</variable>");