TempleOSTS_130315.ISO

TempleOS/Demo/Doc/UnusedDefine.CPP

@@ -0,0 +1,84 @@
+/*
+This scans the sym table and checks
+each $LK,"HTT_DEFINE_STR","MN:HTT_DEFINE_STR"$ entry to see if
+it only occurs once in files.
+
+It's a brute force solution, but
+gets the job done... slowly.
+
+$LK,"Grep","MN:Grep"$() returns a count of matches.
+
+$LK,"FileOcc","MN:FileOcc"$() is $LK,"Grep","MN:Grep"$() with
+output $LK,"Silent","MN:Silent"$().
+
+*/
+
+U0 UnusedDefineScan()
+{
+  CDoc *old_doc=DocCur,*doc;
+  I64 cnt=0;
+  CHashTable *tempht;
+  CHash *temph;
+  CDocEntry *doc_e,*doc_e2;
+  Bool old_silent=IsSilent;
+
+  //Technically, we might want to
+  //turn-off preemption in case the
+  //table was modified.
+
+  try {
+    tempht=Fs->hash_table;
+    while (tempht) {
+      temph=tempht->next_added;
+      while (temph!=tempht) {
+	if (temph->type&HTT_DEFINE_STR)
+	  cnt++;
+	temph=temph->next_added;
+      }
+      tempht=tempht->next;
+    }
+
+    progress1=0;
+    progress1_max=cnt;
+    StrCpy(progress1_desc,"Define Scan");
+
+    tempht=Fs->hash_table;
+    while (tempht) {
+      temph=tempht->next_added;
+      while (temph!=tempht) {
+	if (temph->type&HTT_DEFINE_STR) {
+	  progress1++;
+	  if (FileOcc(temph->str,"/TempleOS/"FILENAME_MASK_TXT,"+l-i")==1) {
+	    doc=DocNew;
+	    DocQueRem(old_doc);
+	    DocQueIns(doc,Fs->last_doc);
+	    Grep(temph->str,"/TempleOS/"FILENAME_MASK_TXT,"+l-i");
+	    DocQueRem(doc);
+	    DocQueIns(old_doc,Fs->last_doc);
+	    doc_e=doc->root.next;
+	    while (doc_e!=doc) {
+	      if (doc_e->type_u8==DOCT_LINK) {
+		NewLine;
+		"" temph->str;
+		doc_e2=DocEntryCopy(doc,doc_e);
+		DocIns(old_doc,doc_e2);
+		NewLine;
+	      }
+	      doc_e=doc_e->next;
+	    }
+	    DocDel(doc);
+	  }
+	}
+	temph=temph->next_added;
+      }
+      tempht=tempht->next;
+    }
+  } catch
+    CatchAll;
+
+  Silent(old_silent);
+  NewLine;
+  ProgressBarsRst;
+}
+
+UnusedDefineScan;