From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 21 Nov 2002 11:01:24 +0000 (+0000)
Subject: <h:Object> is now repeated every time a MainHypothesis (with its depth) is
X-Git-Tag: V_0_0_5~16
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=d525bb7d236d69d10f280e8c97f4fb529197bc22;p=helm.git

<h:Object> is now repeated every time a MainHypothesis (with its depth) is
printed. The RDF file gets a bit bigger, but lexical analysing it becomes
much easier.
---

diff --git a/helm/metadata/create_V7_mowgli/METADATA/sthandler.c b/helm/metadata/create_V7_mowgli/METADATA/sthandler.c
index e26569fcd..0f32e07c1 100644
--- a/helm/metadata/create_V7_mowgli/METADATA/sthandler.c
+++ b/helm/metadata/create_V7_mowgli/METADATA/sthandler.c
@@ -243,37 +243,37 @@ print_mainhyp(about,outrel,outsort,uri,l)
     curr = l;
     if (!strcmp(uri,"Rel"))
       {
-        fprintf(outrel,"\t<h:Object rdf:about=\"");
-        fprintf(outrel,"%s",about);
-        fprintf(outrel,"\">\n");
         /* scan the list */
         while (curr != NULL)
 	  {
+            fprintf(outrel,"\t<h:Object rdf:about=\"");
+            fprintf(outrel,"%s",about);
+            fprintf(outrel,"\">\n");
 	    fprintf(outrel,"\t\t<h:refRel rdf:parseType=\"Resource\">");
             fprintf(outrel,"\n\t\t\t\t<h:position rdf:resource=\"&hns;MainHypothesis\"/>");
             fprintf(outrel,"\n\t\t\t\t<h:depth>%d</h:depth>",curr->val);
             fprintf(outrel,"\n\t\t</h:refRel>\n");
+	    fprintf(outrel,"\t</h:Object>\n");
             curr = curr->next;
 	  }
-	fprintf(outrel,"\t</h:Object>\n");
       }
    else if ((!strcmp(uri,"Prop")) || (!strcmp(uri,"Type")) ||
             (!strcmp(uri,"Set")))
       {
         /* scan the list */
-        fprintf(outsort,"\t<h:Object rdf:about=\"");
-        fprintf(outsort,"%s",about);
-        fprintf(outsort,"\">\n");
         while (curr != NULL)
 	  {
+            fprintf(outsort,"\t<h:Object rdf:about=\"");
+            fprintf(outsort,"%s",about);
+            fprintf(outsort,"\">\n");
 	    fprintf(outsort,"\t\t<h:refSort rdf:parseType=\"Resource\">");
             fprintf(outsort,"\n\t\t\t\t<h:position rdf:resource=\"&hns;MainHypothesis\"/>");
             fprintf(outsort,"\n\t\t\t\t<h:sort rdf:resource=\"&hns;%s\"/>",uri);
             fprintf(outsort,"\n\t\t\t\t<h:depth>%d</h:depth>",curr->val);
             fprintf(outsort,"\n\t\t</h:refSort>\n");
+	    fprintf(outsort,"\t</h:Object>\n");
             curr = curr->next;
 	  }
-	fprintf(outsort,"\t</h:Object>\n");
       }
     else 
      {
diff --git a/helm/metadata/create_V7_mowgli/METADATA/sthandler_ind.c b/helm/metadata/create_V7_mowgli/METADATA/sthandler_ind.c
index a6e3a04af..bfdc795d5 100644
--- a/helm/metadata/create_V7_mowgli/METADATA/sthandler_ind.c
+++ b/helm/metadata/create_V7_mowgli/METADATA/sthandler_ind.c
@@ -245,37 +245,37 @@ print_mainhyp(about,out,outrel,outsort,uri,l)
     curr = l;
     if (!strcmp(uri,"Rel"))
       {
-        fprintf(outrel,"\t<h:Object rdf:about=\"");
-        fprintf(outrel,"%s",about);
-        fprintf(outrel,"\">\n");
         /* scan the list */
         while (curr != NULL)
 	  {
+            fprintf(outrel,"\t<h:Object rdf:about=\"");
+            fprintf(outrel,"%s",about);
+            fprintf(outrel,"\">\n");
 	    fprintf(outrel,"\t\t<h:refRel rdf:parseType=\"Resource\">");
             fprintf(outrel,"\n\t\t\t\t<h:position rdf:resource=\"&hns;MainHypothesis\"/>");
             fprintf(outrel,"\n\t\t\t\t<h:depth>%d</h:depth>",curr->val);
             fprintf(outrel,"\n\t\t</h:refRel>\n");
+	    fprintf(outrel,"\t</h:Object>\n");
             curr = curr->next;
 	  }
-	fprintf(outrel,"\t</h:Object>\n");
       }
    else if ((!strcmp(uri,"Prop")) || (!strcmp(uri,"Type")) ||
             (!strcmp(uri,"Set")))
       {
         /* scan the list */
-        fprintf(outsort,"\t<h:Object rdf:about=\"");
-        fprintf(outsort,"%s",about);
-        fprintf(outsort,"\">\n");
         while (curr != NULL)
 	  {
+            fprintf(outsort,"\t<h:Object rdf:about=\"");
+            fprintf(outsort,"%s",about);
+            fprintf(outsort,"\">\n");
             fprintf(outsort,"\t\t<h:refSort rdf:parseType=\"Resource\">");
             fprintf(outsort,"\n\t\t\t\t<h:position rdf:resource=\"&hns;MainHypothesis\"/>");
             fprintf(outsort,"\n\t\t\t\t<h:sort rdf:resource=\"&hns;%s\"/>",uri);
             fprintf(outsort,"\n\t\t\t\t<h:depth>%d</h:depth>",curr->val);
             fprintf(outsort,"\n\t\t</h:refSort>\n");
+	    fprintf(outsort,"\t</h:Object>\n");
             curr = curr->next;
 	  }
-	fprintf(outsort,"\t</h:Object>\n");
       }
     else 
      {