[Pkg-jed-commit] r258 - trunk/packages/jed/debian

[Jörg Sommer]

Author: jo-guest
Date: 2006-04-13 13:27:45 +0000 (Thu, 13 Apr 2006)
New Revision: 258

Modified:
   trunk/packages/jed/debian/changelog
   trunk/packages/jed/debian/defaults.sl
Log:
* jed/debian/defaults.sl
  + added support for slang_load_path and doc_files; especially the
    help files in /usr/share/slsh/help were missing and the files in
    /u/s/slsh/ were not in the slang_load_path.

* jed/debian/changelog
  + used the UTF-8 encoded character of ?\195?\188 in G?\195?\188nther

  + documented the stuff in defaults.sl


Modified: trunk/packages/jed/debian/changelog
===================================================================
--- trunk/packages/jed/debian/changelog	2006-04-11 20:00:58 UTC (rev 257)
+++ trunk/packages/jed/debian/changelog	2006-04-13 13:27:45 UTC (rev 258)
@@ -28,12 +28,14 @@
 
   * /usr/share/jed/lib/defaults.sl:
     + <to be written>
+    + added code to support slang_load_path and doc_path for
+      /usr/share/slsh/ introduced with SLang2 [JS]
 
   [JS] Jörg Sommer <joerg at alea.gnuu.de>
-  [GM] Guenter Milde
+  [GM] Günter Milde
   [RL] Rafael Laboissiere
 
- -- Debian JED Group <pkg-jed-devel at lists.alioth.debian.org>  Tue, 11 Apr 2006 21:25:39 +0200
+ -- Debian JED Group <pkg-jed-devel at lists.alioth.debian.org>  Thu, 13 Apr 2006 13:39:55 +0200
 
 jed (0.99.17.135-1) experimental; urgency=low
 

Modified: trunk/packages/jed/debian/defaults.sl
===================================================================
--- trunk/packages/jed/debian/defaults.sl	2006-04-11 20:00:58 UTC (rev 257)
+++ trunk/packages/jed/debian/defaults.sl	2006-04-13 13:27:45 UTC (rev 258)
@@ -13,6 +13,30 @@
 % with `jed --skip-debian-startup`
 define skip_debian_startup() {}
 
+foreach (["/usr/share/slsh", "/usr/share/slsh/local-packages"])
+{
+    variable dir = ();
+    if (file_status(dir) != 2)
+      continue;
+
+    get_slang_load_path(); dup();
+    if ( strlen( () ) )
+      () + char(path_get_delimiter());
+    set_slang_load_path( () + dir );
+
+    dir += "/help";
+    foreach ( listdir( dir ) )
+    {
+        dup();
+        if (path_extname( () ) == ".hlp")
+        {
+            dir; exch();
+            add_doc_file( path_concat((), ()) );
+        } else
+          pop;
+    }
+}
+
 if (andelse
    % skip startup scripts if jed is started as `jed-script`
    {BATCH != 2}