Changeset 3604 in kBuild for trunk

Timestamp:

Feb 4, 2024 11:19:33 PM (15 months ago)

Author:

bird

Message:

SlickEdit/kdev.e: Added function for C-escaping a selection block and bound it to control-shift-\.

File:

• trunk/SlickEdit/kdev.e (modified) (2 diffs)

trunk/SlickEdit/kdev.e

@@ -74 +74 @@
 def  'C-S-T' = k_rebuild_tagfile
 def  'C-S-L' = k_style_load
+def  'C-S-\' = k_newline_escape_selection
 
 //optional stuff
@@ -1686 +1687 @@
     _insert_text(sNoRefs);
 }
+
+/* Adds newline escape slashes to the current selection. */
+void k_newline_escape_selection()
+{
+    filter_init();
+    typeless rc = filter_get_string(sLine);
+    if (rc == 0)
+    {
+        _str sPrev = '';
+        do
+        {
+            /* */
+            if (sLine != '')
+                sLine = sLine ' \';
+            else
+            {
+                int offNonWhitespace = pos("[^ \t]", sPrev, 1, 'L');
+                if (offNonWhitespace > 0)
+                    sLine = _pad(sLine, offNonWhitespace - 1, ' ');
+                sLine = sLine '\';
+            }
+
+            filter_put_string(sLine);
+
+            /* next line */
+            sPrev = sLine;
+            rc = filter_get_string(sLine);
+        } while (rc == 0);
+
+    }
+    else if (isinteger(rc))
+        message(get_message(rc));
+    else
+        message(rc);
+}
+
 
 /*******************************************************************************