home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / utils / backquot.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  5.0 KB  |  69 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:29:51 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/utils/backquote.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'backquote)
  14. (fset 'bq-push '(macro . #[(v l) "└    ┬     EEç" [setq l cons v] 5 "\
  15. Pushes evaluated first form onto second unevaluated object
  16. a list-value atom"]))
  17. (byte-code "└┴Mê┬├Mê─┼Mç" [bq-caar (macro . #[(l) "└ë    DDç" [car l] 3]) bq-cadr (macro . #[(l) "└┴\nDDç" [car cdr l] 3]) bq-cdar (macro . #[(l) "└┴\nDDç" [cdr car l] 3])] 2)
  18. (defconst backquote-unquote '(\,) "\
  19. *A list of all objects that stimulate unquoting in `.  Memq test.")
  20. (defconst backquote-splice '(\,@) "\
  21. *A list of all objects that stimulate splicing in `.  Memq test.")
  22. (fset '\` '(macro . #[(form) "└    !ç" [bq-make-maker form] 2 "\
  23. (` FORM)  is a macro that expands to code to construct FORM.
  24. Note that this is very slow in interpreted code, but fast if you compile.
  25. FORM is one or more nested lists, which are `almost quoted':
  26. They are copied recursively, with non-lists used unchanged in the copy.
  27.  (` a b) == (list 'a 'b)  constructs a new list with two elements, `a' and `b'.
  28.  (` a (b c)) == (list 'a (list 'b 'c))  constructs two nested new lists.
  29.  
  30. However, certain special lists are not copied.  They specify substitution.
  31. Lists that look like (, EXP) are evaluated and the result is substituted.
  32.  (` a (, (+ x 5))) == (list 'a (+ x 5))
  33.  
  34. Elements of the form (,@ EXP) are evaluated and then all the elements
  35. of the result are substituted.  This result must be a list; it may
  36. be `nil'.
  37.  
  38. As an example, a simple macro `push' could be written:
  39.    (defmacro push (v l)
  40.         (` (setq (, l) (cons (,@ (list v l))))))
  41. or as
  42.    (defmacro push (v l)
  43.         (` (setq (, l) (cons (, v) (, l)))))
  44.  
  45. LIMITATIONS: \"dotted lists\" are not allowed in FORM.
  46. The ultimate cdr of each list scanned by ` must be `nil'.
  47. (This does not apply to constants inside expressions to be substituted.)
  48.  
  49. Substitution elements are not allowed as the cdr
  50. of a cons cell.  For example, (` (A . (, B))) does not work.
  51. Instead, write (` (A (,@ B))).
  52.  
  53. You cannot construct vectors, only lists.  Vectors are treated as
  54. constants.
  55.  
  56. BEWARE BEWARE BEWARE
  57. Inclusion of (,ATOM) rather than (, ATOM)
  58. or of (,@ATOM) rather than (,@ ATOM)
  59. will result in errors that will show up very late."]))
  60. (fset 'bq-make-maker #[(form) "└┴ë└╞╟╚    !\"ê\n¡¥\n╩=½à\nD¬ôG╦U½è\n ₧A@!¬â\nB,ç" [nil 0 state ec qc tailmaker mapcar bq-iterative-list-builder reverse form quote 1 bq-singles] 4 "\
  61. Given one argument, a `mostly quoted' object, produces a maker.
  62. See backquote.el for details"])
  63. (byte-code "└┬├Mê─┼Mê╞╟Mç" [('bq-quotecar (append car) (list bq-make-list) (cons bq-id)) bq-singles bq-id (lambda (x) x) bq-quotecar #[(x) "└    @Dç" [quote x] 2] bq-make-list #[(x) "└    Bç" [list x] 2]] 2)
  64. (fset 'bq-iterative-list-builder #[(form) ":¼ê    \n₧A@!ç@ >½è     ₧A@A@!ç@>½ï    ₧A@A@!ç╟!ë<½ô@╔=½î    \n₧A@A@!¬ê     ₧A@!)ç" [form state bq-quotefns backquote-unquote bq-evalfns backquote-splice bq-splicefns bq-make-maker newform quote] 3 "\
  65. Called by bq-make-maker.  Adds a new item form to tailmaker, 
  66. changing state if need be, so tailmaker and state constitute a recipie
  67. for making the list so far."])
  68. (byte-code "└┬─╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀MêαßMêΓπMç" [((nil bq-splicenil) (append bq-spliceappend) (list bq-splicelist) 'bq-splicequote (cons bq-splicecons)) bq-splicefns ((nil bq-evalnil) (append bq-evalappend) (list bq-evallist) 'bq-evalquote (cons bq-evalcons)) bq-evalfns ((nil bq-quotenil) (append bq-quoteappend) (list bq-quotelist) 'bq-quotequote (cons bq-quotecons)) bq-quotefns bq-quotecons #[(form) "@<½û@@┴=½Å┴\n@A@DDA@D¬î├┴\nD@EA@D─ëç" [tailmaker quote form list append state] 3] bq-quotequote #[(form) "    Bëç" [form tailmaker] 2] bq-quotelist #[(form) "└    D\nBëç" [quote form tailmaker] 2] bq-quoteappend #[(form) "<½ù@<½Æ@@┴=½ï@A\n@A@Báç┴\nCDBëç" [tailmaker quote form] 3] bq-quotenil #[(form) "C┬ëç" [form tailmaker quote state] 2] bq-evalcons #[(form) "└    \n@E\nA@D├ëç" [list form tailmaker append state] 3] bq-evalquote #[(form) "G┴W½î\n├─\"B┼ëç┼\nD╟DD╚ëç" [tailmaker 3 form mapcar #[(x) "└    Dç" [quote x] 2] list state quote append] 4] bq-evallist #[(form) "    Bëç" [form tailmaker] 2] bq-evalappend #[(form) "<½ò@<½É@@┴=½ë@\n@ABíçG├U½ê\nB─ëç┴\nDBëç" [tailmaker list form 1 cons state] 3] bq-evalnil #[(form) "C┬ëç" [form tailmaker list state] 2] bq-splicecons #[(form) "┴\n@\nA@ED├ëç" [form cons tailmaker append state] 4] bq-splicequote #[(form) "┴\nDD├ëç" [form quote tailmaker append state] 3] bq-splicelist #[(form) "┴\nBD├ëç" [form list tailmaker append state] 3] bq-spliceappend #[(form) "    Bëç" [form tailmaker] 2] bq-splicenil #[(form) "└\nCëç" [append state form tailmaker] 2]] 2)
  69.