]> Frank Brehm's Git Trees - config/bruni/etc.git/commitdiff
committing changes in /etc after emerge run
authorfrank <frank@bruni.home.brehm-online.com>
Sun, 15 Jan 2012 22:30:10 +0000 (23:30 +0100)
committerFrank Brehm <root@bruni.home.brehm-online.com>
Sun, 15 Jan 2012 22:30:10 +0000 (23:30 +0100)
Package changes:
+sys-libs/slang-2.2.2

.etckeeper
slsh.rc [new file with mode: 0644]

index ab9dd173e341a2e2a7f5667ead3fe7eeafedb5ae..a0e9e077489eb32e5b487af618dfa72fd8bda75f 100755 (executable)
@@ -380,6 +380,7 @@ maybe chmod 0644 './skel/.bash_logout'
 maybe chmod 0644 './skel/.bash_profile'
 maybe chmod 0644 './skel/.bashrc'
 maybe chmod 0700 './skel/.ssh'
+maybe chmod 0644 './slsh.rc'
 maybe chmod 0755 './ssh'
 maybe chmod 0644 './ssh/moduli'
 maybe chmod 0644 './ssh/ssh_config'
diff --git a/slsh.rc b/slsh.rc
new file mode 100644 (file)
index 0000000..e8043d9
--- /dev/null
+++ b/slsh.rc
@@ -0,0 +1,51 @@
+% -*- slang -*-
+
+% This file gets loaded whenever slsh runs.  Its primary purpose is to define
+% some functions that are useful in scripts, and to set up some local paths
+
+private define dir_exists (dir)
+{
+   variable s = stat_file (dir);
+   if (s == NULL) return 0;
+   return stat_is ("dir", s.st_mode);
+}
+
+%!%+
+%\function{prepend_to_slang_load_path}
+%\synopsis{Prepend a directory to the load-path}
+%\usage{prepend_to_slang_load_path (String_Type dir)}
+%\description
+% This function adds a directory to the beginning of the interpreter's
+% load-path.
+%\seealso{append_to_slang_load_path, set_slang_load_path}
+%!%-
+public define prepend_to_slang_load_path (p)
+{
+   if (dir_exists (p))
+     set_slang_load_path (sprintf ("%s%c%s", p, path_get_delimiter (), get_slang_load_path ()));
+}
+
+%!%+
+%\function{append_to_slang_load_path}
+%\synopsis{Append a directory to the load-path}
+%\usage{append_to_slang_load_path (String_Type dir)}
+%\description
+% This function adds a directory to the end of the interpreter's
+% load-path.
+%\seealso{prepend_to_slang_load_path, set_slang_load_path}
+%!%-
+public define append_to_slang_load_path (p)
+{
+   if (dir_exists (p))
+     set_slang_load_path (sprintf ("%s%c%s", get_slang_load_path (), path_get_delimiter (), p));
+}
+
+() = evalfile ("autoload.sl");
+
+#ifdef __INTERACTIVE__
+() = evalfile ("slshrl.sl");
+#endif
+
+% Add local additions here
+
+prepend_to_slang_load_path("/usr/share/slsh/local-packages");