passagemath-singular 10.6.31rc3__cp314-cp314-manylinux_2_27_aarch64.manylinux_2_28_aarch64.whl

sage_wheels/share/singular/emacs/.emacs-general

@@ -0,0 +1,184 @@
+;;; Emacs edit mode for this file is  -*- Emacs-Lisp -*-
+
+;;;
+;;; .emacs-general - Emacs initialization file for general emacs
+;;;                  settings which have nothing to do with the
+;;;                  singular-emacs mode, but which we recommend
+;;;                  nevertheless, so that your emacs is more useful.
+;;;
+;;; This file is loaded by .emacs-singular, if it exists in your home directory
+;;; or in the singular-emacs directory.
+;;;
+;;; If you have your own .emacs file, you might consider copying
+;;; this file to your home directory and then load it from your .emacs
+;;; file with: (load-file "~/.emacs-general")
+;;;
+;;;
+
+;; a handy function for customizing the face of point
+(defun customize-face-at-point ()
+  "Customize face which point is at."
+  (interactive)
+  (let ((face (get-text-property (point) 'face)))
+    (if face
+	(customize-face face)
+      (message "No face defined at point"))))
+
+;; I love font-lock mode
+(add-hook 'emacs-lisp-mode-hook	'turn-on-font-lock)
+(add-hook 'lisp-mode-hook	'turn-on-font-lock)
+(add-hook 'c-mode-hook		'turn-on-font-lock)
+(add-hook 'c++-mode-hook		'turn-on-font-lock)
+(add-hook 'perl-mode-hook	'turn-on-font-lock)
+(add-hook 'tex-mode-hook		'turn-on-font-lock)
+(add-hook 'texinfo-mode-hook	'turn-on-font-lock)
+(add-hook 'postscript-mode-hook	'turn-on-font-lock)
+(add-hook 'dired-mode-hook	'turn-on-font-lock)
+(add-hook 'ada-mode-hook		'turn-on-font-lock)
+(add-hook 'TeX-mode-hook  'turn-on-font-lock)
+(add-hook 'shell-mode-hook 'turn-on-font-lock)
+
+;;;
+;;; settings for both Emacs and XEmacs
+;;;
+(custom-set-variables
+ '(next-line-add-newlines nil)
+ '(require-final-newline nil)
+ '(line-number-mode t)
+ '(kill-whole-line t)
+ '(truncate-lines t)
+ ; I like unique buffer names based on dirs
+ '(uniquify-buffer-name-style 'post-forward-angle-brackets))
+
+(require 'uniquify)
+
+(cond ((string-match "XEmacs\\|Lucid" emacs-version)
+       ;;
+       ;; XEmacs specific stuff
+       ;;
+
+       ;; I like some more  keybindings for better moving
+       (define-key global-map '(control up)
+	 '(lambda () (interactive) (scroll-up -1)))
+       ;; control-, scrolls up
+       (define-key global-map '(control down)
+	 '(lambda () (interactive) (scroll-up 1)))
+
+       ;; a function which on C-= reload a file automatically without
+       ;; asking for confirmation got it from From: Richard Mlynarik
+       ;; <mly@adoc.xerox.com> on 1/18/95
+       ;; find-alternate-file (C-x C-v) is almost equivalent
+       (global-set-key [(control =)] '(lambda ()
+					(interactive)
+					(or (verify-visited-file-modtime
+					     (current-buffer))
+					    (revert-buffer t t))))
+       ;; turn on auto-compression of gz files
+       (toggle-auto-compression 1)
+
+       ;; Use the "Describe Variable..." option on the "Help" menu
+       ;; or C-h v to find out what these variables mean.
+       (custom-set-variables
+	'(complex-buffers-menu-p t)
+	'(kill-whole-line t))
+
+       (setq minibuffer-confirm-incomplete t)
+
+       ;; show matching parantheses
+       (paren-set-mode 'paren)
+
+       ;; func-menu is a package that scans your source file for function
+       ;; definitions and makes a menubar entry that lets you jump to any
+       ;; particular function definition by selecting it from the menu.  The
+       ;; following code turns this on for all of the recognized languages.
+       (require 'func-menu)
+       (define-key global-map 'f8 'function-menu)
+       (add-hook 'find-file-hooks 'fume-add-menubar-entry)
+       (define-key global-map "\C-cl" 'fume-list-functions)
+       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
+
+       ;; The Hyperbole information manager package uses (shift button2) and
+       ;; (shift button3) to provide context-sensitive mouse keys.  If you
+       ;; use this next binding, it will conflict with Hyperbole's setup.
+       ;; Choose another mouse key if you use Hyperbole.
+       (define-key global-map '(shift button3) 'mouse-function-menu)
+
+       ;; For descriptions of the following user-customizable variables,
+       ;; type C-h v <variable>
+       (setq fume-max-items 25
+             fume-fn-window-position 3
+             fume-auto-position-popup t
+             fume-display-in-modeline-p t
+             fume-menubar-menu-location "File"
+             fume-buffer-name "*Function List*"
+             fume-no-prompt-on-valid-default nil)
+
+       ;; end Xemacs stuff
+       )
+      (t
+       ;;
+       ;; Emcas stuff
+       ;;
+
+       ;; show matching parantheses
+       (show-paren-mode t)
+
+       ;; turn on auto (de)compression of files
+       (auto-compression-mode t)
+
+       ;; End Emcas stuff
+       )
+      )
+
+;; use auctex as default mode for editing latex stuff
+(let ((auctex-filename (locate-library "tex-site")))
+  (if auctex-filename
+      (require 'tex-site auctex-filename)))
+
+;; put stuff here which should not be/only be executed under
+;; mswindows/unix
+(cond ((or (eq system-type 'cygwin32)
+	   (eq system-type 'windows-nt))
+;;; mswindows stuff
+
+       ;; Let shell be /bin/bash, if it exists
+       (cond ((file-exists-p "/bin/bash")
+	      (setq explicit-shell-filename "/bin/bash")
+	      (setq explicit-bash-args (list "--login"  "-i"))))
+
+; patch these function so that they do not use ~ for backup under
+; mswindows
+(defun make-backup-file-name (file)
+  "Create the non-numeric backup file name for FILE.
+This is a separate function so you can redefine it for customization."
+  (if (eq system-type 'ms-dos)
+      (let ((fn (file-name-nondirectory file)))
+	(concat (file-name-directory file)
+		(if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn)
+		    (substring fn 0 (match-end 1)))
+		".bak"))
+    (if (or (eq system-type 'cygwin32)
+	    (eq system-type 'windows-nt))
+	(concat file ".bak")
+      (concat file "~"))))
+
+(defun backup-file-name-p (file)
+  "Return non-nil if FILE is a backup file name (numeric or not).
+This is a separate function so you can redefine it for customization.
+You may need to redefine `file-name-sans-versions' as well."
+  (if (or (eq system-type 'ms-dos)
+	  (eq system-type 'cygwin32)
+	  (eq system-type 'windows-nt))
+      (string-match "\\.bak\\'" file)
+      (string-match "~\\'" file)))
+
+;;; end mswindows stuff
+)
+(t
+;;; stuff for unix only
+
+;;; end stuff for unix only
+))
+
+
+

sage_wheels/share/singular/emacs/.emacs-singular

@@ -0,0 +1,234 @@
+;;; Emacs edit mode for this file is  -*- Emacs-Lisp -*-
+
+;;;
+;;; .emacs-singular - Emacs initialization file to use for
+;;;                   Singular interactive mode.
+;;;
+;;; If you run ESingular, then this file is loaded instead of the
+;;; default ~/.emacs initialization file.
+;;;
+;;; How you use this file very much depends on your attitude
+;;; towards Emacs:
+;;;
+;;; 1) If you are going to use Emacs solely as frontend to
+;;;    Singular you do not have to worry at all about this file.
+;;; 2) If you are already an experienced Emacs user you may
+;;;    want to copy this file's contents to your .emacs file.
+;;; 3) If you are planning to become an experienced Emacs user
+;;;    you may use this file as starting point for your .emacs
+;;;    file, that is, for your Emacs initialization file.  Simply
+;;;    copy it to your home directory and rename it to ".emacs"
+;;;    (without the quotes, of course).  Then edit it as
+;;;    described below.
+;;;
+;;; In cases 2) and 3) you should be careful what exactly to copy
+;;; to your .emacs file.  In general, you need the following:
+;;;
+;;; o the hook-customizations with `add-hook';
+;;; o the pre-customized settings with `custom-set-variables' and
+;;;   `custom-set-faces';
+;;; o the code which creates menus for starting Singular;
+;;; o the code which loads singular.el (located at the end of
+;;;   this file) you have to replace by something else, for
+;;;   example, an `autoload'.
+;;; o the code which is in .emacs-general
+;;;
+;;; Here is how the Singular customization in your .emacs may
+;;; look like:
+;;;
+;;; ;; extra key bindings
+;;; (add-hook 'singular-interactive-mode-hook
+;;;            <... code omitted, see below for details ...>)
+;;;
+;;; ;; other, "non-customizable" settings
+;;; (add-hook 'singular-interactive-mode-hook
+;;;            <... code omitted, see below for details ...>)
+;;;
+;;; ;; pre-customized settings
+;;; (custom-set-variables
+;;;  <... code omitted, see below for details ...>)
+;;; (custom-set-faces
+;;;  <... code omitted, see below for details ...>)
+;;;
+;;; ;; add global menus for Singular
+;;; <... choose your version for either Emacs or XEmacs, see below ...>
+;;;
+;;; ;; add Singular toolbar for XEmacs
+;;; <... insert the code below if you are running XEmacs ...>
+;;;
+;;; ;; add Singular Emacs home directory to `load-path'
+;;; (setq load-path (cons "<your-singular-emacs-home-directory>" load-path))
+;;; (autoload 'singular "singular"
+;;;   "Start Singular using default values." t)
+;;; (autoload 'singular-other "singular"
+;;;   "Ask for arguments and start Singular." t)
+;;;
+
+;; extra key bindings
+(add-hook 'singular-interactive-mode-hook
+	  (function (lambda ()
+		      ;; control cursor keys
+		      (cond
+		       ;; Emacs
+		       ((eq singular-emacs-flavor 'emacs)
+			(local-set-key [C-prior] 'singular-scroll-right)
+			(local-set-key [C-next] 'singular-scroll-left)
+			(local-set-key [C-up] 'comint-previous-prompt)
+			(local-set-key [C-down] 'comint-next-prompt))
+		       ;; XEmacs
+		       (t
+			(local-set-key [(control prior)] 'singular-scroll-right)
+			(local-set-key [(control next)] 'singular-scroll-left)
+			(local-set-key [(control up)] 'comint-previous-prompt)
+			(local-set-key [(control down)] 'comint-next-prompt))))))
+
+;; other, "non-customizable" settings
+
+;; put stuff here which should not be/only be executed under
+;; mswindows/unix
+(cond ((or (eq system-type 'cygwin32)
+	   (eq system-type 'windows-nt))
+       ;; mswindows stuff
+
+       )
+      (t
+       ;; unix stuff
+
+       ;; lazy-lock seems to be broken under mswindows:
+       ;; causes delay of input (only reacts after mouse click), or even total
+       ;; hang
+       ;(add-hook 'font-lock-mode-hook 'lazy-lock-mode)
+       ;(setq font-lock-support-mode 'lazy-lock-mode)
+
+       ;; somewhat nicer scrolling This causes a core dump with 21.1.9
+       ;; under cygwin, when a file is opened with a button
+       ;; Fixed it with a simmple patch, by working around the
+       ;; assertion in file indent.c line 517 (or so). This was
+       ;; officially fixed in 21.1.10 -- still sometimes
+       ;; interactive windows disappeared. Hence, do not set it under
+       ;; Windows
+       (setq scroll-step 10)
+
+       )
+      )
+
+(add-hook 'singular-interactive-mode-hook
+	  (function (lambda () (font-lock-mode 1))))
+
+;; turn on c++-mode for files ending in ".sing" and ".lib"
+(setq auto-mode-alist (cons '("\\.sing\\'" . c++-mode) auto-mode-alist))
+(setq auto-mode-alist (cons '("\\.lib\\'" .  c++-mode) auto-mode-alist))
+(add-hook 'c++-mode-hook
+	  (function (lambda () (font-lock-mode 1))))
+
+
+
+;; this is a work-around for early version of Font Lock mode
+;; which do not use `defface' to define faces.  It forces
+;; `custom-set-faces' to define the faces immediately.
+(make-face 'font-lock-comment-face)
+(make-face 'font-lock-string-face)
+
+;; tricky stuff: these customization settings are not used any
+;; longer as soon as user saved her own to ~/.emacs-singular-cust
+(setq custom-file "~/.emacs-singular-cust")
+(if (file-exists-p custom-file)
+    (load-file custom-file)
+
+;; pre-customized settings
+(custom-set-variables
+ '(mouse-yank-at-point t)
+ '(font-lock-maximum-decoration t t)
+ '(next-line-add-newlines nil)
+ '(paren-mode (quote paren) nil (paren))
+ '(show-paren-mode t nil (paren))
+ '(singular-help-same-window t)
+ '(singular-cursor-key-model (quote terminal))
+ '(transient-mark-mode t)
+ '(Info-button1-follows-hyperlink t)
+ '(singular-section-face-alist (quote ((input . singular-section-input-face) (output)))))
+
+(custom-set-faces
+ '(info-xref ((t (:foreground "blue" :bold t))))
+ '(info-node ((t (:foreground "blue" :bold t :italic t))))
+ '(show-paren-match-face ((((class color)) (:foreground "Red"))))
+ '(font-lock-variable-name-face ((t (:foreground "black"))) t)
+ '(paren-match ((t (:foreground "Red"))) t)
+ '(singular-section-input-face ((t (:bold t))))
+ '(font-lock-string-face ((((class color) (background light)) (:foreground "green4"))))
+ '(font-lock-doc-string-face ((((class color) (background light)) (:foreground "green4"))))
+ '(font-lock-keyword-face ((t (:bold t :foreground "violet"))) t)
+ '(singular-section-output-face ((t (:bold nil))))
+ '(font-lock-type-face ((t (:bold t :foreground "violet"))) t)
+ '(font-lock-comment-face ((t (:bold nil :foreground "Red"))) t)
+ '(font-lock-function-name-face ((t (:bold t :foreground "blue3"))) t))
+ '(info-xref ((t (:foreground "blue" :bold t))))
+ '(info-node ((t (:foreground "blue" :bold t :italic nil))))
+;; obachman: played around a little bit, found this better
+;;  '(singular-section-input-face ((t (:bold t))))
+;;  '(singular-section-output-face ((t (:bold nil))))
+;;  '(font-lock-comment-face ((t (:bold nil :foreground "Grey30"))) t)
+;;  '(font-lock-string-face ((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue"))) t)
+;;  '(paren-match ((t (:foreground "Red"))) t)
+;;  '(show-paren-match-face ((((class color)) (:foreground "Red")))))
+)
+
+;; update singular-emacs-home-directory
+(setq singular-emacs-home-directory
+      (concat singular-emacs-home-directory
+	      ;; we check for trailing slash and backslash
+	      ;; but unconditionally insert a slash.
+	      ;; Hopefully that works on NT, too.
+	      (if (memq (aref singular-emacs-home-directory
+			      (1- (length singular-emacs-home-directory)))
+			'(?/ ?\\))
+		  "" "/")))
+
+;; add global menus for Singular, Emacs version
+(unless (fboundp 'add-submenu)
+  (setq singular-start-map (make-sparse-keymap))
+  (define-key singular-start-map [menu-bar singular]
+    (cons "Singular" (make-sparse-keymap "Singular")))
+  (define-key singular-start-map [menu-bar singular restart]
+    '("Start..." . singular-other))
+  (define-key singular-start-map [menu-bar singular start-default]
+    '("Start default" . singular))
+  (setq menu-bar-final-item (append '(singular) menu-bar-final-items))
+  (use-local-map singular-start-map))
+
+;; add global menus for Singular, XEmacs version
+(when (fboundp 'add-submenu)
+  (add-submenu nil
+	       '("Singular"
+		 ["Start default" singular t]
+		 ["Start..." singular-other t]))
+  (setq-default current-menubar current-menubar))
+
+;; add Singular button to toolbar for XEmacs
+;(if (fboundp 'toolbar-add-item)
+;    (toolbar-add-item
+;     (vector
+;      (toolbar-make-button-list (concat singular-emacs-home-directory
+;					"singular.xpm"))
+;      'singular t "Start Singular")
+;     (length (specifier-instance default-toolbar))))
+;
+;;;
+;;; - load singular.el and .emacs-general
+;;;
+
+; get rid of superfluous "Load .emacs" menu entry on XEmacs
+(when (fboundp 'delete-menu-item)
+  (delete-menu-item '("Load .emacs"))		; that is for the current buffer
+  (let ((current-menubar (default-value 'current-menubar)))
+    (delete-menu-item '("Load .emacs"))		; that is for all other buffers
+    (set-default 'current-menubar current-menubar)))
+
+; load singular.el from `singular-emacs-home-directory'
+(load-file (concat singular-emacs-home-directory "singular.el"))
+
+; load .emacs-general from home or `singular-emacs-home-directory'
+(if (file-exists-p "~/.emacs-general")
+    (load-file "~/.emacs-general")
+  (if (file-exists-p (concat singular-emacs-home-directory ".emacs-general"))
+      (load-file (concat singular-emacs-home-directory ".emacs-general"))))

sage_wheels/share/singular/emacs/COPYING

@@ -0,0 +1,44 @@
+                        SINGULAR version 4-4
+			   Singular-ESingular
+
+                     University of Kaiserslautern
+
+      Department of Mathematics and  Centre for Computer Algebra
+
+     Authors: W. Decker, G.-M. Greuel, G. Pfister, H. Schoenemann
+
+                        Copyright (C) 1986-2025
+
+
+
+                               *NOTICE*
+
+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 ( version 2 or version 3 of the License );
+with the following additional remarks:
+
+This package is part of the software SINGULAR. The GPL is valid for
+this package, other packages may have other copyrights.
+
+Their copyrights and licences can be found in the accompanying files
+which are distributed along with these packages.
+
+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, write to the Free Software Foundation, Inc.,
+59 Temple Place, Suite 330, Boston, MA  02111-1307  USA (see GPL)
+
+Please send any comments or bug reports to
+<singular@mathematik.uni-kl.de>.
+
+Availability
+============
+
+The latest information about SINGULAR is always available from
+`https://www.singular.uni-kl.de'.
+

sage_wheels/share/singular/emacs/cmd-cmpl.el

@@ -0,0 +1,241 @@
+; Do not edit this file: It was automatically generated by cmpl.pl
+(setq singular-commands-alist
+  '(
+    ("ERROR")
+    ("insert")
+    ("parstr")
+    ("GCD")
+    ("int")
+    ("poly")
+    ("IN")
+    ("interpolation")
+    ("preimage")
+    ("LIB")
+    ("interred")
+    ("prime")
+    ("NF")
+    ("intersect")
+    ("primefactors")
+    ("RETURN")
+    ("intmat")
+    ("print")
+    ("TRACE")
+    ("intvec")
+    ("printlevel")
+    ("alias")
+    ("jacob")
+    ("proc")
+    ("and")
+    ("janet")
+    ("prune")
+    ("attrib")
+    ("jet")
+    ("qhweight")
+    ("bareiss")
+    ("kbase")
+    ("qrds")
+    ("betti")
+    ("keepring")
+    ("qring")
+    ("bigint")
+    ("kernel")
+    ("quote")
+    ("bigintmat")
+    ("kill")
+    ("quotient")
+    ("bracket")
+    ("killattrib")
+    ("random")
+    ("break")
+    ("koszul")
+    ("rank")
+    ("breakpoint")
+    ("kres")
+    ("read")
+    ("char")
+    ("laguerre")
+    ("reduce")
+    ("char_series")
+    ("lead")
+    ("regularity")
+    ("charstr")
+    ("leadcoef")
+    ("repart")
+    ("chinrem")
+    ("leadexp")
+    ("reservedName")
+    ("cleardenom")
+    ("leadmonom")
+    ("resolution")
+    ("close")
+    ("lift")
+    ("resultant")
+    ("coef")
+    ("liftstd")
+    ("return")
+    ("coeffs")
+    ("link")
+    ("ring")
+    ("continue")
+    ("list")
+    ("ringlist")
+    ("contract")
+    ("listvar")
+    ("rtimer")
+    ("convhull")
+    ("load")
+    ("rvar")
+    ("dbprint")
+    ("lres")
+    ("setring")
+    ("def")
+    ("ludecomp")
+    ("short")
+    ("defined")
+    ("luinverse")
+    ("simplex")
+    ("deg")
+    ("lusolve")
+    ("simplify")
+    ("degBound")
+    ("map")
+    ("size")
+    ("degree")
+    ("matrix")
+    ("slimgb")
+    ("delete")
+    ("maxideal")
+    ("sortvec")
+    ("det")
+    ("memory")
+    ("sqrfree")
+    ("diff")
+    ("minbase")
+    ("sres")
+    ("dim")
+    ("minor")
+    ("status")
+    ("div")
+    ("minpoly")
+    ("std")
+    ("division")
+    ("minres")
+    ("string")
+    ("dump")
+    ("mod")
+    ("subst")
+    ("echo")
+    ("module")
+    ("system")
+    ("eliminate")
+    ("modulo")
+    ("syz")
+    ("else")
+    ("monitor")
+    ("test")
+    ("envelope")
+    ("monomial")
+    ("timer")
+    ("eval")
+    ("mpresmat")
+    ("trace")
+    ("example")
+    ("mres")
+    ("transpose")
+    ("execute")
+    ("mstd")
+    ("twostd")
+    ("export")
+    ("mult")
+    ("type")
+    ("exportto")
+    ("multBound")
+    ("typeof")
+    ("extgcd")
+    ("multiplicity")
+    ("univariate")
+    ("facstd")
+    ("nameof")
+    ("uressolve")
+    ("factmodd")
+    ("names")
+    ("vandermonde")
+    ("factorize")
+    ("nc_algebra")
+    ("var")
+    ("farey")
+    ("ncalgebra")
+    ("variables")
+    ("fetch")
+    ("ncols")
+    ("varstr")
+    ("fglm")
+    ("newstruct")
+    ("vdim")
+    ("fglmquot")
+    ("noether")
+    ("vector")
+    ("find")
+    ("not")
+    ("verbose")
+    ("finduni")
+    ("npars")
+    ("voice")
+    ("forif")
+    ("nres")
+    ("waitall")
+    ("freemodule")
+    ("nrows")
+    ("waitfirst")
+    ("frwalk")
+    ("number")
+    ("wedge")
+    ("gcd")
+    ("nvars")
+    ("weight")
+    ("gen")
+    ("open")
+    ("whileif")
+    ("getdump")
+    ("oppose")
+    ("write")
+    ("highcorner")
+    ("opposite")
+    ("exit")
+    ("hilb")
+    ("option")
+    ("for")
+    ("homog")
+    ("or")
+    ("help")
+    ("hres")
+    ("ord")
+    ("newline")
+    ("ideal")
+    ("ordstr")
+    ("pause")
+    ("if")
+    ("package")
+    ("quit")
+    ("imap")
+    ("pagewidth")
+    ("while")
+    ("impart")
+    ("par")
+    ("importfrom")
+    ("parameter")
+    ("indepSet")
+    ("pardeg")
+    ("type")
+    ("3:")
+    ("fan")
+    ("type")
+    ("2:")
+    ("polytope")
+    ("type")
+    ("1:")
+    ("cone")
+    ("type")
+    ("0:")
+    ("pyobject")
+))