Changeset 3340

Timestamp:

Dec 13, 2018, 2:40:45 AM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Added TabCompressAll and TabExpandAll commands. They show that the attribute-save procs TabCompressLine and TabExpandLine are slow compared with TabCompressStr and TabExpandStr. They are of not much use for what they were created: The replacement of the Save and Edit options /t and /nt.

File:

• trunk/src/netlabs/macros/tabsspaces.e (modified) (2 diffs)

trunk/src/netlabs/macros/tabsspaces.e ¶

@@ -118 +118 @@
 
 ; ---------------------------------------------------------------------------
+defc TabCompressAll
+   parse arg TabWidth .
+   if TabWidth = '' | not IsNum( TabWidth) then
+      TabWidth = word( .tabs, 1)
+   endif
+   fIndentOnly = 1  -- TODO ##############################################
+   do Line = 1 to .last
+      rcx = TabCompressLine( Line, TabWidth, fIndentOnly)
+   enddo
+
+; ---------------------------------------------------------------------------
 defc Tabs2Spaces, TabExpand
    parse arg arg1 .
@@ -173 +184 @@
 
       rcx = TabExpandLine( Line, TabWidth, '', StartCol, EndCol)
+   enddo
+
+; ---------------------------------------------------------------------------
+defc TabExpandAll
+   parse arg TabWidth .
+   if TabWidth = '' | not IsNum( TabWidth) then
+      TabWidth = word( .tabs, 1)
+   endif
+   do Line = 1 to .last
+      rcx = TabExpandLine( Line, TabWidth)
    enddo