Changeset 3069 for trunk/SlickEdit/kdev.e

Timestamp:

Oct 2, 2017, 8:28:54 AM (8 years ago)

Author:

bird

Message:

kdev: k_noref

File:

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

trunk/SlickEdit/kdev.e

@@ -67 +67 @@
 def  'C-S-I' = k_box_intfuncs
 def  'C-S-K' = k_box_consts
+def  'C-S-N' = k_noref
 def  'C-S-M' = k_javadoc_moduleheader
 def  'C-S-O' = k_oneliner
@@ -1562 +1563 @@
 }
 
-
-
 /** oneliner comment */
 void k_oneliner()
@@ -1601 +1600 @@
 }
 
-
 /**
  * Inserts a signature. Form: "//Initials ISO-date:"
@@ -1617 +1615 @@
 }
 
+/* Insert a list of NOREF() macro invocations. */
+void k_noref()
+{
+    typeless org_pos;
+    _save_pos2(org_pos);
+
+    _str sNoRefs = '';
+    boolean fFoundFn = !k_func_goto_nearest_function();
+    if (fFoundFn)
+    {
+        _str sArgs = k_func_getparams();
+        int  cArgs = k_func_countparams(sArgs);
+        int  i;
+        int  offLine = 4;
+        for (i = 0; i < cArgs; i++)
+        {
+            _str sName, sType, sDefault;
+            if (!k_func_enumparams(sArgs, i, sType, sName, sDefault))
+            {
+                sThis = 'NOREF(' sName ');';
+                if (length(sNoRefs) == 0)
+                {
+                    sNoRefs = sThis;
+                    offLine += length(sThis);
+                }
+                else if (offLine + length(sThis) < 130)
+                {
+                    sNoRefs = sNoRefs ' ' sThis;
+                    offLine += 1 + length(sThis);
+                }
+                else
+                {
+                    sNoRefs = sNoRefs "\n    " sThis;
+                    offLine = 4 + length(sThis);
+                }
+            }
+        }
+    }
+
+    _restore_pos2(org_pos);
+    _insert_text(sNoRefs);
+}
 
 /*******************************************************************************