Changeset 2826 for trunk/SlickEdit

Timestamp:

Aug 14, 2016, 3:58:02 PM (9 years ago)

Author:

bird

Message:

kdev.e: updates

File:

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

trunk/SlickEdit/kdev.e

@@ -3639 +3639 @@
                      | VSCODEHELPFLAG_MOUSE_OVER_INFO \
                      | VSCODEHELPFLAG_AUTO_LIST_VALUES \
-                     | VSCODEHELPFLAG_FIND_TAG_PREFERS_DEFINITION \
+                     | VSCODEHELPFLAG_HIGHLIGHT_TAGS \
                      | VSCODEHELPFLAG_FIND_TAG_PREFERS_ALTERNATE \
-                     | VSCODEHELPFLAG_HIGHLIGHT_TAGS \
                      ;
     fNewCodeHelp &= ~(  VSCODEHELPFLAG_SPACE_COMPLETION \
@@ -3648 +3647 @@
                       | VSCODEHELPFLAG_STRICT_LIST_SELECT \
                       | VSCODEHELPFLAG_AUTO_LIST_VALUES \
+                      | VSCODEHELPFLAG_FIND_TAG_PREFERS_DECLARATION \
+                      | VSCODEHELPFLAG_FIND_TAG_PREFERS_DEFINITION \
+                      | VSCODEHELPFLAG_FIND_TAG_HIDE_OPTIONS \
                      );
     def_codehelp_flags = fNewCodeHelp;
@@ -3666 +3668 @@
     message("Please restart SlickEdit.")
 }
+
+
+static int kfile_to_array(_str sFile, _str (&asLines)[])
+{
+    asLines._makeempty();
+
+    int idTempView = 0;
+    int idOrgView  = 0;
+    int rc = _open_temp_view(sFile, idTempView, idOrgView);
+    if (!rc)
+    {
+        _GoToROffset(0); /* top of the file. */
+
+        int i = 0;
+        do
+        {
+            _str sLine = '';
+            get_line(sLine);
+            asLines[i] = sLine;
+            i += 1;
+        } while (down() == 0);
+
+        _delete_temp_view(idTempView);
+        activate_window(idOrgView);
+    }
+    return rc;
+}
+
+
+_command void kload_files(_str sFile = "file-not-specified.lst")
+{
+    _str sFileDir = absolute(_strip_filename(sFile, 'NE'));
+    _str aFiles[];
+    int  rc = kfile_to_array(sFile, asFiles);
+    if (rc == 0)
+    {
+        _str sFile;
+        int i;
+        for (i = 0; i < asFiles._length(); i++)
+        {
+            _str sFile = strip(asFiles[i]);
+            if (length(sFile) > 0)
+            {
+                sAbsFile = absolute(sFile, sFileDir);
+                message("Loading \"" :+ sAbsFile :+ "\"...");
+                //say("sAbsFile=" :+ sAbsFile);
+                edit(sAbsFile);
+            }
+        }
+    }
+    else
+        message("_GetFileContents failed: " :+ rc);
+}
+
 
 /**