TempleOSTS_130315.ISO

TempleOS/Adam/S2T.CPP

@@ -0,0 +1,69 @@
+#help_index "Utils;Cmd Line (Typically)"
+
+//$LK,"StrUtil","MN:StrUtil"$() operations on files
+
+public U0 SUFile(U8 *name,I64 su_flags,F64 indent_scale_factor)
+{//String utility on a single file
+//See $LK,"SU Flags","MN:SUF_SINGLE_SPACE"$
+  U8 *dst;
+  Bool chged=FALSE;
+  I64 reduced=0;
+  CDoc *doc=DocRead(name,DOCF_PLAIN_TEXT_WITH_TABS | DOCF_NO_CURSOR);
+  CDocEntry *doc_e=doc->root.next;
+  while (doc_e!=doc) {
+    if (doc_e->type_u8==DOCT_TEXT) {
+      dst=MStrUtil(doc_e->tag,su_flags,indent_scale_factor);
+      if (StrCmp(dst,doc_e->tag)) {
+	reduced+=StrLen(doc_e->tag)-StrLen(dst);
+	chged=TRUE;
+	Free(doc_e->tag);
+	doc_e->tag=dst;
+      } else
+	Free(dst);
+    }
+    doc_e=doc_e->next;
+  }
+  if (chged) {
+    "Reduced %s by %d chars\n",name,reduced;
+    StrCpy(doc->filename.name,name);
+    DocWrite(doc);
+  }
+  DocDel(doc);
+}
+
+U0 SULst(CDirEntry *tempm1,I64 su_flags,F64 indent_scale_factor)
+{
+  CDirEntry *tempm2;
+  while (tempm1) {
+    tempm2=tempm1->next;
+    if (tempm1->attr & _ATTR_DIR) {
+      if (tempm1->sub) {
+	"%S%s\n","ST_SCANNING_DIR",tempm1->full_name;
+	SULst(tempm1->sub,su_flags,indent_scale_factor);
+      }
+    } else
+      SUFile(tempm1->full_name,su_flags,indent_scale_factor);
+    CDirEntryDel(tempm1);
+    tempm1=tempm2;
+  }
+}
+
+public U0 SU(U8 *files_find_mask,I64 su_flags,U8 *fu_flags=NULL,F64 indent_scale_factor=0)
+{//Apply string utilities to files
+//You can convert spaces to tabs, for example
+//or removing trailing spaces on lines.
+//See $LK,"SU Flags","MN:SUF_SINGLE_SPACE"$
+  I64 fuf_flags=0;
+  GetFFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
+  SULst(FilesFind(files_find_mask,fuf_flags),su_flags,indent_scale_factor);
+}
+
+public U0 S2T(U8 *files_find_mask,U8 *fu_flags=NULL)
+{
+//Spaces to tabs.
+//Use "Hard Space" (SHIFT-SPACE) for spaces
+//in string constants in your code.
+  SU(files_find_mask,SUF_S2T|SUF_REM_TRAILING,fu_flags);
+}
+
+#help_index ""