1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-03-23 09:42:33 deego> |
;; Time-stamp: <2005-03-29 14:11:13 deego> |
3 |
;; Copyright (C) 2002 D. Goel |
;; Copyright (C) 2002 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc.el |
;; Filename: erbc.el |
573 |
Optional argument FOO . |
Optional argument FOO . |
574 |
|
|
575 |
We will also bind a number of variables, as appropriate, for example, |
We will also bind a number of variables, as appropriate, for example, |
576 |
fs-msg*, fs-args, fs-a, fs-b... so that these vars can be used |
fs-msg*, fs-lispargs, fs-lispa , fs-lispb... so that these vars can be used |
577 |
anywhere in the code, or the user-defined parts of the code... |
anywhere in the code, or the user-defined parts of the code... |
578 |
|
|
579 |
In the grand scheme of things, these bindings should turn out to be |
In the grand scheme of things, these bindings should turn out to be |
1990 |
|
|
1991 |
|
|
1992 |
|
|
1993 |
(defvar fs-args nil |
(defvar fs-lispargs nil |
1994 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
1995 |
|
|
1996 |
|
|
1997 |
|
|
1998 |
(defvar fs-a nil |
(defvar fs-lispa nil |
1999 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
2000 |
|
|
2001 |
|
|
2002 |
(defvar fs-b nil |
(defvar fs-lispb nil |
2003 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
2004 |
|
|
2005 |
|
|
2006 |
(defvar fs-c nil |
(defvar fs-lispc nil |
2007 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
2008 |
|
|
2009 |
(defvar fs-d nil |
(defvar fs-lispd nil |
2010 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
2011 |
|
|
2012 |
(defvar fs-e nil |
(defvar fs-lispe nil |
2013 |
"Will be used when using the lisp form") |
"Will be used when using the lisp form") |
2014 |
|
|
2015 |
|
|
2037 |
number N, and ending at M-1. The first record is numbered 0. |
number N, and ending at M-1. The first record is numbered 0. |
2038 |
" |
" |
2039 |
(let |
(let |
2040 |
;;((fs-args (append (list mainterm N M prestring expr) rest))) |
;;((fs-lispargs (append (list mainterm N M prestring expr) rest))) |
2041 |
;; nothing, just a let not used any more.. |
;; nothing, just a let not used any more.. |
2042 |
((fs-nothingsorry nil)) |
((fs-nothingsorry nil)) |
2043 |
;; in the global scheme of things, this will turn out to be only a |
;; in the global scheme of things, this will turn out to be only a |
2044 |
;; local binding, since erbeng-main will have (let)'ed this. Same |
;; local binding, since erbeng-main will have (let)'ed this. Same |
2045 |
;; for fs-a, fs-b, fs-c... |
;; for fs-lispa , fs-lispb, fs-lispc... |
2046 |
|
|
2047 |
(setq fs-args (mapcar 'fsi-read-or-orig (cdr fs-msglistsansbot))) |
(setq fs-lispargs (mapcar 'fsi-read-or-orig (cdr fs-msglistsansbot))) |
2048 |
(when fs-found-query-p |
(when fs-found-query-p |
2049 |
(setq N 0) |
(setq N 0) |
2050 |
(setq M 1)) |
(setq M 1)) |
2162 |
((and expandp (member cc '("lisp"))) |
((and expandp (member cc '("lisp"))) |
2163 |
(let* |
(let* |
2164 |
((fs-nothingsorry nil)) |
((fs-nothingsorry nil)) |
2165 |
;; (fs-args fs-args) ;; no need |
;; (fs-lispargs fs-lispargs) ;; no need |
2166 |
(setq fs-a (nth 0 fs-args)) |
(setq fs-lispa (nth 0 fs-lispargs)) |
2167 |
(setq fs-b (nth 1 fs-args)) |
(setq fs-lispb (nth 1 fs-lispargs)) |
2168 |
(setq fs-c (nth 2 fs-args)) |
(setq fs-lispc (nth 2 fs-lispargs)) |
2169 |
(setq fs-d (nth 3 fs-args)) |
(setq fs-lispd (nth 3 fs-lispargs)) |
2170 |
(setq fs-e (nth 4 fs-args)) |
(setq fs-lispe (nth 4 fs-lispargs)) |
2171 |
(erbeng-main |
(erbeng-main |
2172 |
(concat erbn-char " (progn " |
(concat erbn-char " (progn " |
2173 |
(substring aa |
(substring aa |
4394 |
(defconst fs-bunny 142857) |
(defconst fs-bunny 142857) |
4395 |
(defconst fs-pi pi) |
(defconst fs-pi pi) |
4396 |
(defconst fs-e e) |
(defconst fs-e e) |
4397 |
|
(defconst fs-euler e) |
4398 |
(defconst fs-emacs-version emacs-version) |
(defconst fs-emacs-version emacs-version) |
4399 |
|
|
4400 |
(defalias 'fsi-emacs-version 'emacs-version) |
(defalias 'fsi-emacs-version 'emacs-version) |