TempleOSCD_150720.ISO

Demo/Dsk/BlkDevRep.CPP

@@ -4,9 +4,9 @@ U0 BlkDevRep()
   for (i=0;i<NUM_BLKDEVS;i++)
     if (dsk.blkdevs[i].bd_signature==BD_SIGNATURE_VAL)
       ClassRep(&dsk.blkdevs[i]);//$LK,"ClassRep",A="MN:ClassRep"$() dumps any structure, automatically.
-				//The lastclass arg tells ClassRep the datatype.
-				//lastclass is a language feature of $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$.
-				//See $LK,"::/Demo/LastClass.CPP"$.
+//The lastclass arg tells ClassRep the datatype.
+      //lastclass is a language feature of $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$.
+      //See $LK,"::/Demo/LastClass.CPP"$.
 }
 
 BlkDevRep;

Demo/Dsk/DataBase.CPP

@@ -24,7 +24,7 @@ U0 WriteAcct()
   acctnum=GetI64("Acct #",-1);
   if (0<=acctnum<DB_MAX_ACCT) {
     MemSet(&a,0,BLK_SIZE);
-    if (DocFormDo(&a)) {
+    if (DocForm(&a)) {
       f=FOpen(DB_FILENAME,"w+");
       FWBlks(f,&a,acctnum*DB_ACCT_BLKS,DB_ACCT_BLKS);
       FClose(f);

Demo/Dsk/FPrintF.CPP

@@ -12,7 +12,7 @@ U0 TreeSub(CDoc *doc,CDirEntry *tempde)
     if (tempde->attr & RS_ATTR_DIR) {
       DocPrint(doc,"$$TR,\"\"$$");
       DocPrint(doc,"$$MA,T=\"%s\",LM=\"Cd(\\\"%s\\\");Dir;\n\"$$\n",
-      tempde->name,tempde->full_name);
+	    tempde->name,tempde->full_name);
       if (tempde->sub) {
 	DocPrint(doc,"$$ID,+2$$");
 	TreeSub(doc,tempde->sub);
@@ -20,10 +20,10 @@ U0 TreeSub(CDoc *doc,CDirEntry *tempde)
       }
     } else
       DocPrint(doc,"$$LK,\"%s\",A=\"FI:%s\"$$\n",
-	tempde->name,tempde->full_name);
-    //Note there is also a routine
-    //to delete an entire CDirEntry tree.
-    //See $LK,"DirTreeDel",A="MN:DirTreeDel"$().
+	    tempde->name,tempde->full_name);
+//Note there is also a routine
+      //to delete an entire CDirEntry tree.
+      //See $LK,"DirTreeDel",A="MN:DirTreeDel"$().
     DirEntryDel(tempde);
     tempde=tempde1;
   }

Demo/Dsk/SerializeTree.CPP

@@ -9,7 +9,7 @@ U0 SerializeTree()
   CDirEntry *tempde=FilesFind("/Demo/*.TXT*",FUF_RECURSE);
   I64 size;
   U8 *ptr;
-  CArcCompress *ac;
+  CArcCompress *arc;
 
   LineRep1(tempde); //We have $LK,"CDirEntry",A="MN:CDirEntry"$.fullname
   LineRep2(DocPut,tempde);
@@ -18,13 +18,13 @@ U0 SerializeTree()
   DirTreeDel(tempde);
   D(ptr,size);
   "$$GREEN$$***************:%7d$$FG$$\n",size;
-  ac=CompressBuf(ptr,size);
+  arc=CompressBuf(ptr,size);
   Free(ptr);
-  D(ac,ac->compressed_size);
+  D(arc,arc->compressed_size);
   "$$GREEN$$***************:%7d$$FG$$\n",size;
-  ptr=ExpandBuf(ac);
-  size=ac->expanded_size;
-  Free(ac);
+  ptr=ExpandBuf(arc);
+  size=arc->expanded_size;
+  Free(arc);
   D(ptr,size);
   "$$GREEN$$***************:%7d$$FG$$\n",size;
   tempde=DirTreeUnserialize(ptr);

Demo/Dsk/UnusedSpaceRep.CPP

@@ -7,7 +7,7 @@ U0 UnusedSpaceRep()
       dv=Let2Drv(i+'A');
       if (dv->type==DVT_FAT32 || dv->type==DVT_REDSEA)
 	"%C: %7.3f%% Free\n",
-	  Drv2Let(dv),UnusedDrvSpace(Drv2Let(dv))*100.0/(dv->size*BLK_SIZE);
+	      Drv2Let(dv),UnusedDrvSpace(Drv2Let(dv))*100.0/(dv->size*BLK_SIZE);
     } catch
       Fs->catch_except=TRUE;
 }