Na}{

Server IP: 162.55.243.250

Your IP: 216.73.216.133

Web Server: LiteSpeed

System: Linux sys09.prosuperservers.com 4.18.0-553.5.1.lve.1.el8.x86_64 #1 SMP Fri Jun 14 15:38:45 UTC 2024 x86_64 x86_64 x86_64 GNU/Linux

User: rituserver

PHP Version: 8.1.33

Disable Function: mail

MySQL: OFF

cURL: ON

WGET: ON

Perl: ON

Python: OFF

Sudo: OFF

Pkexec: OFF

File Content: `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	Size	Permission
ksh-functions	---	0755
zsh-functions	---	0755
bash	4134 bytes	0644
bash_completion	11464 bytes	0644
cmake	1925 bytes	0644
csh	3874 bytes	0644
fish	1733 bytes	0644
fish_completion	9647 bytes	0644
ksh	4162 bytes	0644
lisp	3230 bytes	0644
perl.pm	1118 bytes	0644
profile-compat.csh	197 bytes	0644
profile-compat.sh	309 bytes	0644
profile.csh	105 bytes	0644
profile.sh	448 bytes	0644
python.py	1539 bytes	0644
r.R	961 bytes	0644
ruby.rb	1379 bytes	0644
sh	4004 bytes	0644
tcl	1071 bytes	0644
tcsh	3880 bytes	0644
tcsh_completion	5521 bytes	0644
zsh	4151 bytes	0644

Command Bosku:

File Content: `lisp`

Terms and Conditions

Tbistone

Command Bosku:

File Content: lisp

Terms and Conditions

Tbistone

File Content: `lisp`