TempleOSCDV4.11.ISO

Kernel/BlkDev/DskDirA.HC

@@ -161,7 +161,7 @@ CDirEntry *DirFilesFlatten(CDirEntry *tempde,CDirEntry **_res,I64 fuf_flags)
 }
 
 U0 PutFileLink(U8 *filename,U8 *full_name=NULL,I64 line=0,Bool plain_text=FALSE)
-{//Put $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$ file,line link to StdOut, $LK,"DocPut",A="MN:DocPut"$.
+{//Put $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$ file,line link to StdOut, $LK,"DocPut",A="MN:DocPut"$.
   U8 *st;
   if (!filename) return;
   if (IsRaw) {
@@ -198,7 +198,7 @@ U0 PutFileLink(U8 *filename,U8 *full_name=NULL,I64 line=0,Bool plain_text=FALSE)
 }
 
 U0 PutDirLink(U8 *dirname,U8 *full_name=NULL)
-{//Put $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$ dir macro to StdOut, $LK,"DocPut",A="MN:DocPut"$.
+{//Put $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$ dir macro to StdOut, $LK,"DocPut",A="MN:DocPut"$.
   U8 *st;
   if (!dirname) return;
   if (IsRaw)

Kernel/BlkDev/DskFind.HC

@@ -28,7 +28,7 @@ CDirEntry *FilesFind2(U8 *files_find_mask,I64 fuf_flags)
 }
 
 CDirEntry *FilesFind(U8 *files_find_mask,I64 fuf_flags=0)
-{/* See $LK,"::/Doc/FileUtils.TXT"$.
+{/* See $LK,"::/Doc/FileUtils.DD"$.
 
 Find files and make a directory tree in memory.
 

Kernel/BlkDev/DskStrA.HC

@@ -22,7 +22,7 @@ U8 *FileExtRem(U8 *src,U8 *dst=NULL)
 Bool IsDotZ(U8 *filename)
 {//Does name end in .Z?
   I64 i=StrLen(filename);
-  if (i>6 && filename[i-1]=='Z' && filename[i-2]=='.' && filename[i-6]=='.')
+  if (StrOcc(filename,'.')>1 && filename[i-1]=='Z' && filename[i-2]=='.')
     return TRUE;
   else
     return FALSE;
@@ -31,14 +31,14 @@ Bool IsDotZ(U8 *filename)
 Bool IsDotC(U8 *filename)
 {//Does name end in .C?
   I64 i=StrLen(filename);
-  if (i>6 && filename[i-1]=='C' && filename[i-2]=='.' && filename[i-6]=='.')
+  if (StrOcc(filename,'.')>1 && filename[i-1]=='C' && filename[i-2]=='.')
     return TRUE;
   else
     return FALSE;
 }
 
 Bool FilesFindMatch(U8 *_test_name,U8 *files_find_mask,I64 fuf_flags=0)
-{//Does filename meet $LK,"Files Find",A="FI:::/Doc/FileUtils.TXT"$ mask?
+{//Does filename meet $LK,"Files Find",A="FI:::/Doc/FileUtils.DD"$ mask?
   I64 tn_len=StrLen(_test_name),mask_len=StrLen(files_find_mask);
   U8 *mask1=MAlloc(mask_len+1),*mask2=MAlloc(mask_len+1),
 	*ptr,*test_name1,*test_name2;
@@ -271,7 +271,7 @@ U8 *ToggleZorNotZ(U8 *name)
 
 U8 *FileNameTempTxt()
 {//Make pretty-safe temp filename in home dir.
-  return MStrPrint("~/SysTemp%X.TXT.Z",GetTSC>>8&0xFFFFFFFF);
+  return MStrPrint("~/SysTemp%X.DD.Z",GetTSC>>8&0xFFFFFFFF);
 }
 
 U8 *CurDir(CTask *task=NULL,CTask *mem_task=NULL)
@@ -291,10 +291,10 @@ U8 *DirFile(U8 *dirname,U8 *name=NULL,U8 *_extension=NULL)
 {/*Strips file from dirname, scans for file upward until found or
 returns default.
 
-("/Kernel/KHashA.CPP.Z",NULL,NULL)	returns "D:/Kernel"
+("/Kernel/KHashA.HC.Z",NULL,NULL)	returns "D:/Kernel"
 ("/Kernel",NULL,"PRJ.Z")		returns "D:/Kernel/Kernel.PRJ.Z"
 ("/Kernel/BlkDev",NULL,"PRJ.Z")		returns "D:/Kernel/Kernel.PRJ.Z"
-("/Apps/Psalmody","Load","CPP.Z")	returns "D:/Apps/Psalmody/Load.CPP.Z"
+("/Apps/Psalmody","Load","HC.Z")	returns "D:/Apps/Psalmody/Load.HC.Z"
 */
   U8 *st=DirNameAbs(dirname),*st2,*st3,*res,*dft=NULL,*ext;
   if (_extension && *_extension) {

Kernel/BlkDev/FileSysFAT.HC

@@ -575,7 +575,7 @@ I64 FAT32AllocContiguousClusters(CDrv *dv,I64 cnt)
 
 Bool FAT32DirNew(CDrv *dv,U8 *cur_dir,CDirEntry *tempde,Bool free_old_chain)
 {
-//See $LK,"::/Doc/CutCorners.TXT"$.
+//See $LK,"::/Doc/CutCorners.DD"$.
   CFAT32DirEntry *buf,*last_buf,*temp_buf,de[3];
   I64 i,attr,avail_cnt,de_cnt,c,
 	cur_dir_entry,entries_per_cluster,

Kernel/BlkDev/FileSysRedSea.HC

@@ -1,4 +1,4 @@
-// See $LK,"RedSea File System",A="FI:::/Doc/RedSea.TXT"$
+// See $LK,"RedSea File System",A="FI:::/Doc/RedSea.DD"$
 
 U0 RedSeaFreeFreeLst(CDrv *dv)
 {
@@ -349,7 +349,7 @@ I64 RedSeaAllocClusters(CDrv *dv,I64 cnt)
   return first;
 }
 
-Bool RedSeaDirNew(CDrv *dv,U8 *cur_dir,CDirEntry *de,Bool free_old_chain)
+Bool RedSeaDirNew(CDrv *dv,U8 *cur_dir,CDirEntry *tempde,Bool free_old_chain)
 {
   CDirEntry *buf,*buf2,*ptr,de2;
   CRedSeaBoot *br;
@@ -358,7 +358,7 @@ Bool RedSeaDirNew(CDrv *dv,U8 *cur_dir,CDirEntry *de,Bool free_old_chain)
   U8 *temp,*parent_dir;
   try {
     unlock_break=BreakLock;
-    de->attr|=RS_ATTR_CONTIGUOUS;
+    tempde->attr|=RS_ATTR_CONTIGUOUS;
     unlock=DrvLock(dv);
     cur_dir_cluster=Name2DirCluster(dv,cur_dir);
     buf2=MAlloc(BLK_SIZE);
@@ -374,7 +374,7 @@ Bool RedSeaDirNew(CDrv *dv,U8 *cur_dir,CDirEntry *de,Bool free_old_chain)
     while (TRUE) {
       if (!(ch=*ptr->name)) {
 	if (!written)
-	  MemCpy(&ptr->start,&de->start,CDIR_SIZE);
+	  MemCpy(&ptr->start,&tempde->start,CDIR_SIZE);
 	if ((i+1)*CDIR_SIZE+j<<BLK_SIZE_BITS<dir_size)
 	  WBlks(dv,buf(U8 *)+j<<BLK_SIZE_BITS,cur_dir_cluster+j,1);
 	else {
@@ -418,17 +418,17 @@ Bool RedSeaDirNew(CDrv *dv,U8 *cur_dir,CDirEntry *de,Bool free_old_chain)
 	break;
       } else if (ptr->attr & RS_ATTR_DELETED) {
 	if (!written) {
-	  MemCpy(&ptr->start,&de->start,CDIR_SIZE);
+	  MemCpy(&ptr->start,&tempde->start,CDIR_SIZE);
 	  WBlks(dv,buf(U8 *)+j<<BLK_SIZE_BITS,cur_dir_cluster+j,1);
 	  written=TRUE;
 	}
       } else {
-	if (!StrCmp(de->name,ptr->name)) {
+	if (!StrCmp(tempde->name,ptr->name)) {
 	  if (free_old_chain)
 	    RedSeaFreeClusters(dv,ptr->cluster,
 		  (ptr->size+BLK_SIZE-1)>>BLK_SIZE_BITS);
 	  if (!written)
-	    MemCpy(&ptr->start,&de->start,CDIR_SIZE);
+	    MemCpy(&ptr->start,&tempde->start,CDIR_SIZE);
 	  else
 	    ptr->attr|=RS_ATTR_DELETED;
 	  WBlks(dv,buf(U8 *)+j<<BLK_SIZE_BITS,cur_dir_cluster+j,1);