byp4a55 professor6T9

Linux server1.hnhtechsolutions.com 4.18.0-553.78.1.el8_10.x86_64 #1 SMP Tue Oct 7 04:15:13 EDT 2025 x86_64
Apache
198.177.124.167

File Name : lisp

;;
;; emacs-lisp init code for Modules
;;

(setenv "MODULESHOME" "/usr/share/Modules")

(defvar Modules-history '() "module cmd history list")

(defun Modules-module (command)
  "Run the string COMMAND as a Modules cmd using the tcl version of modules.
Any resulting output is placed in buffer \" *modules-cmd*\".
This should consist of a single line, a filename, which is
expected to contain Emacs lisp code to implement the indicated
module commands.  The lisp code in this file is eval'd by Emacs
on successful completion of modulecmd.tcl.

Standard error output is placed in buffer \" *module-log*\" which will
be displayed if not empty.

Return value is t on success, nil otherwise."
  (interactive (list (read-string "Module cmd: " nil 'Modules-history)))
  (let
      ((cmd-buffer (get-buffer-create " *modules-cmd*"))
       (log-buffer (get-buffer-create " *modules-log*"))
       (log-scratch-file (make-temp-name 
                          (expand-file-name "modules-log"
                                            (if (fboundp 'temp-directory)
                                                (temp-directory)  ;; XEmacs
                                              temporary-file-directory))))
       (status nil))

;; clear cmd buffer, log buffer is replaced below 
    (set-buffer cmd-buffer)
    (delete-region (point-min) (point-max))

(if (condition-case nil
            ;; call-process on Emacs cannot write stderr to a separate buffer
            ;; so it must go to a file and then get pulled into the log buffer
            ;; (XEmacs *can* direct stderr to buffer, but not worth special case)
            (progn
              (apply 'call-process "/usr/bin/tclsh" nil
                                   (list cmd-buffer log-scratch-file)
                                   nil          ;; don't display stdout
                                   "/usr/share/Modules/libexec/modulecmd.tcl"
                                   "lisp" (split-string command))
              t)
          (error nil))
        (progn
          ;; pull any log info from log-scratch-file into log-buffer
          (set-buffer log-buffer)
          (insert-file-contents log-scratch-file nil nil nil t)

;; display any output written to stderr ( eg: module help|list )
          (if (> (buffer-size) 0)
              (switch-to-buffer-other-window log-buffer))

;; Run any setenv, etc commands produced by modulecmd.tcl
          ;; cmd-buffer should currently contain the pathname of file to run
          ;; Note: use eval-buffer instead of load-file to avoid stomping
          ;; any (message) output from the script itself.
          (set-buffer cmd-buffer)
          (if (> (buffer-size) 0)
              (progn
                ;; run it carefully.  If an error is thrown, catch it and
                ;; propagate the fact upwards as a nil, but be sure to still
                ;; execute cleanup below
                (setq status
                      (condition-case nil
                          (progn
                            (eval-buffer)
                            t)
                        (error nil)))))))

;; all done, clean up
    (delete-file log-scratch-file)

status))

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-03-13 04:52:53
..	dir	-	root/root	0755	2024-03-13 04:52:53
ksh-functions	dir	-	root/root	0755	2024-03-13 04:52:53
zsh-functions	dir	-	root/root	0755	2024-03-13 04:52:53
bash	text/plain	4.04 KB	root/root	0644	2023-10-14 06:46:13
bash_completion	text/plain	11.2 KB	root/root	0644	2023-10-14 06:46:13
cmake	text/plain	1.88 KB	root/root	0644	2023-10-14 06:46:13
csh	text/plain	3.78 KB	root/root	0644	2023-10-14 06:46:13
fish	text/plain	1.69 KB	root/root	0644	2023-10-14 06:46:13
fish_completion	text/plain	9.42 KB	root/root	0644	2023-10-14 06:46:13
ksh	text/plain	4.06 KB	root/root	0644	2023-10-14 06:46:13
lisp	text/x-lisp	3.15 KB	root/root	0644	2023-10-14 06:46:13
perl.pm	text/plain	1.09 KB	root/root	0644	2023-10-14 06:46:13
profile-compat.csh	text/plain	197 B	root/root	0644	2023-10-14 06:46:13
profile-compat.sh	text/plain	309 B	root/root	0644	2023-10-14 06:46:13
profile.csh	text/plain	105 B	root/root	0644	2023-10-14 06:46:13
profile.sh	text/plain	448 B	root/root	0644	2023-10-14 06:46:13
python.py	text/x-script.python	1.5 KB	root/root	0644	2023-10-14 06:46:13
r.R	text/plain	961 B	root/root	0644	2023-10-14 06:46:13
ruby.rb	text/x-ruby	1.35 KB	root/root	0644	2023-10-14 06:46:13
sh	text/plain	3.91 KB	root/root	0644	2023-10-14 06:46:13
tcl	text/plain	1.05 KB	root/root	0644	2023-10-14 06:46:13
tcsh	text/plain	3.79 KB	root/root	0644	2023-10-14 06:46:13
tcsh_completion	text/plain	5.39 KB	root/root	0644	2023-10-14 06:46:13
zsh	text/plain	4.05 KB	root/root	0644	2023-10-14 06:46:13

Team Anon Force

https://t.me/Professor6T9x