Wala shell

Advanced PHP File Manager

Server IP: 127.0.0.1 | PHP Version: 8.3.30 | Domains Hosted: 54

Name	Size	Last Modified	Actions
📁 ..	-	2026-03-21 15:53
📄 autoconf-mode.el ;;; autoconf-mode.el --- autoconf code editing commands for Emacs ;; Author: Martin Buchholz (martin@xemacs.org) ;; Maintainer: Martin Buchholz ;; Keywords: languages, faces, m4, configure ;; This file is part of Autoconf ;; Copyright (C) 2001, 2006, 2009-2012 Free Software Foundation, Inc. ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;; A major mode for editing autoconf input (like configure.in). ;; Derived from m4-mode.el by Andrew Csillag (drew@staff.prodigy.com) ;;; Your should add the following to your Emacs configuration file: ;; (autoload 'autoconf-mode "autoconf-mode" ;; "Major mode for editing autoconf files." t) ;; (setq auto-mode-alist ;; (cons '("\\.ac\\'\\\|configure\\.in\\'" . autoconf-mode) ;; auto-mode-alist)) ;;; Code: ;;thank god for make-regexp.el! (defvar autoconf-font-lock-keywords `(("\\bdnl \\(.\\)" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("\\b\\(m4_\\)?\\(builtin\\\|change\\(com\\\|quote\\\|word\\)\\\|d\\(e\\(bug\\(file\\\|mode\\)\\\|cr\\\|f\\(ine\\\|n\\)\\)\\\|iv\\(ert\\\|num\\)\\\|nl\\\|umpdef\\)\\\|e\\(rrprint\\\|syscmd\\\|val\\)\\\|f\\(ile\\\|ormat\\)\\\|gnu\\\|i\\(f\\(def\\\|else\\)\\\|n\\(c\\(lude\\\|r\\)\\\|d\\(ex\\\|ir\\)\\)\\)\\\|l\\(en\\\|ine\\)\\\|m\\(4\\(exit\\\|wrap\\)\\\|aketemp\\\|kstemp\\)\\\|p\\(atsubst\\\|opdef\\\|ushdef\\)\\\|regexp\\\|s\\(hift\\\|include\\\|ubstr\\\|ys\\(cmd\\\|val\\)\\)\\\|tra\\(ceo\\(ff\\\|n\\)\\\|nslit\\)\\\|un\\(d\\(efine\\\|ivert\\)\\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\\(\\(m4_\\)?define\\(_default\\)?\\\|A._DEFUN\\\|m4_defun\\(_once\\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face) "default font-lock-keywords") ) (defvar autoconf-mode-syntax-table nil "syntax table used in autoconf mode") (setq autoconf-mode-syntax-table (make-syntax-table)) (modify-syntax-entry ?\" "\"" autoconf-mode-syntax-table) ;;(modify-syntax-entry ?\' "\"" autoconf-mode-syntax-table) (modify-syntax-entry ?# "<\n" autoconf-mode-syntax-table) (modify-syntax-entry ?\n ">#" autoconf-mode-syntax-table) (modify-syntax-entry ?\( "()" autoconf-mode-syntax-table) (modify-syntax-entry ?\) ")(" autoconf-mode-syntax-table) (modify-syntax-entry ?\[ "(]" autoconf-mode-syntax-table) (modify-syntax-entry ?\] ")[" autoconf-mode-syntax-table) (modify-syntax-entry ?* "." autoconf-mode-syntax-table) (modify-syntax-entry ?_ "_" autoconf-mode-syntax-table) (defvar autoconf-mode-map (let ((map (make-sparse-keymap))) (define-key map '[(control c) (\;)] 'comment-region) map)) (defun autoconf-current-defun () "Autoconf value for `add-log-current-defun-function'. This tells add-log.el how to find the current macro." (save-excursion (if (re-search-backward "^\\(m4_define\\(_default\\)?\\\|m4_defun\\(_once\\\|_init\\)?\\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t) (buffer-substring (match-beginning 4) (match-end 4)) nil))) ;;;###autoload (defun autoconf-mode () "A major-mode to edit Autoconf files like configure.ac. \\{autoconf-mode-map} " (interactive) (kill-all-local-variables) (use-local-map autoconf-mode-map) (make-local-variable 'add-log-current-defun-function) (setq add-log-current-defun-function 'autoconf-current-defun) (make-local-variable 'comment-start) (setq comment-start "# ") (make-local-variable 'parse-sexp-ignore-comments) (setq parse-sexp-ignore-comments t) (make-local-variable 'font-lock-defaults) (setq major-mode 'autoconf-mode) (setq mode-name "Autoconf") (setq font-lock-defaults `(autoconf-font-lock-keywords nil)) (set-syntax-table autoconf-mode-syntax-table) (run-hooks 'autoconf-mode-hook)) (provide 'autoconf-mode) ;;; autoconf-mode.el ends here	4.21 KB	2012-01-21 13:46
📄 autoconf-mode.elc ;ELC�� ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar autoconf-font-lock-keywords '(("\\bdnl \\(.\\)" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("\\b\\(m4_\\)?\\(builtin\\\|change\\(com\\\|quote\\\|word\\)\\\|d\\(e\\(bug\\(file\\\|mode\\)\\\|cr\\\|f\\(ine\\\|n\\)\\)\\\|iv\\(ert\\\|num\\)\\\|nl\\\|umpdef\\)\\\|e\\(rrprint\\\|syscmd\\\|val\\)\\\|f\\(ile\\\|ormat\\)\\\|gnu\\\|i\\(f\\(def\\\|else\\)\\\|n\\(c\\(lude\\\|r\\)\\\|d\\(ex\\\|ir\\)\\)\\)\\\|l\\(en\\\|ine\\)\\\|m\\(4\\(exit\\\|wrap\\)\\\|aketemp\\\|kstemp\\)\\\|p\\(atsubst\\\|opdef\\\|ushdef\\)\\\|regexp\\\|s\\(hift\\\|include\\\|ubstr\\\|ys\\(cmd\\\|val\\)\\)\\\|tra\\(ceo\\(ff\\\|n\\)\\\|nslit\\)\\\|un\\(d\\(efine\\\|ivert\\)\\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\\(\\(m4_\\)?define\\(_default\\)?\\\|A._DEFUN\\\|m4_defun\\(_once\\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face) "default font-lock-keywords")) #@36 syntax table used in autoconf mode (defvar autoconf-mode-syntax-table nil (#$ . 1255)) (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autoconf-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4) (defvar autoconf-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4)) #@107 Autoconf value for `add-log-current-defun-function'. This tells add-log.el how to find the current macro. (defalias 'autoconf-current-defun #[nil "\212\300\301\302\303#\205�\304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\(_default\\)?\\\|m4_defun\\(_once\\\|_init\\)?\\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t 4] 4 (#$ . 1816)]) #@78 A major-mode to edit Autoconf files like configure.ac. \{autoconf-mode-map} (defalias 'autoconf-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autoconf-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autoconf-current-defun "# " t font-lock-defaults autoconf-mode "Autoconf" (autoconf-font-lock-keywords nil) set-syntax-table run-hooks autoconf-mode-hook autoconf-mode-syntax-table] 2 (#$ . 2165) nil]) (provide 'autoconf-mode)	2.74 KB	2025-09-21 12:23
📄 autotest-mode.el ;;; autotest-mode.el --- autotest code editing commands for Emacs ;; Author: Akim Demaille (akim@freefriends.org) ;; Keywords: languages, faces, m4, Autotest ;; This file is part of Autoconf ;; Copyright (C) 2001, 2009-2012 Free Software Foundation, Inc. ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; A major mode for editing autotest input (like testsuite.at). ;; Derived from autoconf-mode.el, by Martin Buchholz (martin@xemacs.org). ;;; Your should add the following to your Emacs configuration file: ;; (autoload 'autotest-mode "autotest-mode" ;; "Major mode for editing autotest files." t) ;; (setq auto-mode-alist ;; (cons '("\\.at\\'" . autotest-mode) auto-mode-alist)) ;;; Code: (defvar autotest-font-lock-keywords `(("\\bdnl\\b\\(.\\)" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("^\\(m4_define\\\|m4_defun\\)(\\[\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face) ("\\b\\(_?m4_[_a-z0-9]\\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face) "default font-lock-keywords") ) (defvar autotest-mode-syntax-table nil "syntax table used in autotest mode") (setq autotest-mode-syntax-table (make-syntax-table)) (modify-syntax-entry ?\" "\"" autotest-mode-syntax-table) ;;(modify-syntax-entry ?\' "\"" autotest-mode-syntax-table) (modify-syntax-entry ?# "<\n" autotest-mode-syntax-table) (modify-syntax-entry ?\n ">#" autotest-mode-syntax-table) (modify-syntax-entry ?\( "()" autotest-mode-syntax-table) (modify-syntax-entry ?\) ")(" autotest-mode-syntax-table) (modify-syntax-entry ?\[ "(]" autotest-mode-syntax-table) (modify-syntax-entry ?\] ")[" autotest-mode-syntax-table) (modify-syntax-entry ?* "." autotest-mode-syntax-table) (modify-syntax-entry ?_ "_" autotest-mode-syntax-table) (defvar autotest-mode-map (let ((map (make-sparse-keymap))) (define-key map '[(control c) (\;)] 'comment-region) map)) (defun autotest-current-defun () "Autotest value for `add-log-current-defun-function'. This tells add-log.el how to find the current test group/macro." (save-excursion (if (re-search-backward "^\\(m4_define\\\|m4_defun\\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t) (buffer-substring (match-beginning 2) (match-end 2)) nil))) ;;;###autoload (defun autotest-mode () "A major-mode to edit Autotest files like testsuite.at. \\{autotest-mode-map} " (interactive) (kill-all-local-variables) (use-local-map autotest-mode-map) (make-local-variable 'add-log-current-defun-function) (setq add-log-current-defun-function 'autotest-current-defun) (make-local-variable 'comment-start) (setq comment-start "# ") (make-local-variable 'parse-sexp-ignore-comments) (setq parse-sexp-ignore-comments t) (make-local-variable 'font-lock-defaults) (setq major-mode 'autotest-mode) (setq mode-name "Autotest") (setq font-lock-defaults `(autotest-font-lock-keywords nil)) (set-syntax-table autotest-mode-syntax-table) (run-hooks 'autotest-mode-hook)) (provide 'autotest-mode) ;;; autotest-mode.el ends here	3.72 KB	2012-01-21 13:46
📄 autotest-mode.elc ;ELC�� ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar autotest-font-lock-keywords '(("\\bdnl\\b\\(.\\)" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("^\\(m4_define\\\|m4_defun\\)(\\[\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face) ("\\b\\(_?m4_[_a-z0-9]\\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face) "default font-lock-keywords")) #@36 syntax table used in autotest mode (defvar autotest-mode-syntax-table nil (#$ . 859)) (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autotest-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4) (defvar autotest-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4)) #@118 Autotest value for `add-log-current-defun-function'. This tells add-log.el how to find the current test group/macro. (defalias 'autotest-current-defun #[nil "\212\300\301\302\303#\205�\304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\\|m4_defun\\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t 2] 4 (#$ . 1419)]) #@78 A major-mode to edit Autotest files like testsuite.at. \{autotest-mode-map} (defalias 'autotest-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autotest-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autotest-current-defun "# " t font-lock-defaults autotest-mode "Autotest" (autotest-font-lock-keywords nil) set-syntax-table run-hooks autotest-mode-hook autotest-mode-syntax-table] 2 (#$ . 1736) nil]) (provide 'autotest-mode)	2.32 KB	2025-09-21 12:23

Terminal