home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / modes / prolog.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  5.7 KB  |  75 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:32:51 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/prolog.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-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. (byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬┬ç" [boundp prolog-mode-syntax-table nil prolog-mode-abbrev-table prolog-mode-map] 2)
  14. (defvar prolog-program-name "prolog" "\
  15. *Program name for invoking an inferior Prolog with `run-prolog'.")
  16. (defvar prolog-consult-string "reconsult(user).\n" "\
  17. *(Re)Consult mode (for C-Prolog and Quintus Prolog). ")
  18. (defvar prolog-compile-string "compile(user).\n" "\
  19. *Compile mode (for Quintus Prolog).")
  20. (defvar prolog-eof-string "end_of_file.\n" "\
  21. *String that represents end of file for prolog.
  22. nil means send actual operaing system end of file.")
  23. (byte-code "└┴!¼é┬ ¼╚─ ╞╟╚
  24. #ê╞╔╩
  25. #ê╞╦╠
  26. #ê╞═╠
  27. #ê╞╬╠
  28. #ê╞╧╠
  29. #ê╞╨╠
  30. #ê╞╤╥
  31. #ê╞╙╠
  32. #ê╞╘╠
  33. #ê╞╒╓
  34. #ê
  35. )╫╪┘\"ê┌█Mê▄▌Mê¼ë▀ ▄!ê┘ç" [boundp prolog-indent-width 4 prolog-mode-syntax-table make-syntax-table table modify-syntax-entry 95 "w" 92 "\\" 47 "." 42 43 45 61 37 "<" 60 62 39 "\"" define-abbrev-table prolog-mode-abbrev-table nil prolog-mode-variables #[nil "└    !ê\n─┼!ê╞P─╚!ê
  36. ─╔!ê╩    ─╦!ê╠ ─═!ê╬
  37. ─╧!ê╨─╤!ê╥─╙!ê╘ëç" [set-syntax-table prolog-mode-syntax-table prolog-mode-abbrev-table local-abbrev-table make-local-variable paragraph-start "^%%\\|^$\\|" page-delimiter paragraph-separate paragraph-ignore-fill-prefix t indent-line-function prolog-indent-line comment-start "%" comment-start-skip "%+ *" comment-column 48 comment-indent-hook prolog-comment-indent] 2] prolog-mode-commands #[(map) "└    ┬├#ê└    ─┼#ç" [define-key map "    " prolog-indent-line "" prolog-consult-region] 4] prolog-mode-map make-sparse-keymap] 4)
  38. (fset 'prolog-mode #[nil "└ ê┴\n!ê├┼╟ ê╚╔!ç" [kill-all-local-variables use-local-map prolog-mode-map prolog-mode major-mode "Prolog" mode-name prolog-mode-variables run-hooks prolog-mode-hook] 2 "\
  39. Major mode for editing Prolog code for Prologs.
  40. Blank lines and `%%...' separate paragraphs.  `%'s start comments.
  41. Commands:
  42. \\{prolog-mode-map}
  43. Entry to this mode calls the value of prolog-mode-hook
  44. if that value is non-nil." nil])
  45. (fset 'prolog-indent-line #[(&optional whole-exp) "└ d`Z┴┼yê`╞┴wê iZ┼U¼ç\n`|ê jêd Z`V¡äd Zb+ç" [prolog-indent-level nil beg pos indent 0 "     "] 3 "\
  46. Indent current line as Prolog code.
  47. With argument, indent any additional lines of the same clause
  48. rigidly along with this one (not yet)." "p"])
  49. (fset 'prolog-indent-level #[nil "è└yê┴┬wê├─!½ä└é┼├┼!½àé┼o½ä└é┼╟┬ëë    \n ├╠!½à╟¬â┬ ½ú═yê└yêo½å┬ë ¬o┴┬wê├┼!¼d├╬!¼_┬ë ¼]o½à└\n¬âi\n├╧!½ä\n¬╬├╨!½à╟    ¬â┬    ╤ êo¼â═uê├╥!½ù    ½î├╙!½ç\n\\¬ú\n]¬£├╓!½ä¬ô¼à├╫!½ë\nZ└]¬ü└,)ç" [0 "     " nil looking-at "%%%" "%[^%]" comment-column t less more ind empty ")" -1 "\n" "%%[^%]" "(" end-of-prolog-clause "[,(;>]" "[^,]" prolog-indent-width tab-width "-" "[^.]"] 5 "\
  50. Compute prolog indentation level."])
  51. (fset 'end-of-prolog-clause #[nil "└yêè┴ê`)├ \n┼#½ä└öbê╞┴x)ç" [0 nil eolpos re-search-forward comment-start-skip move "     "] 4 "\
  52. Go to end of clause in this line."])
  53. (fset 'prolog-comment-indent #[nil "└┴!½é┬ç└├!½â─ çè┼╞xêin½â┬¬ü╟\\])ç" [looking-at "%%%" 0 "%%" prolog-indent-level "     " nil 1 comment-column] 2 "\
  54. Compute prolog comment indentation."])
  55. (byte-code "└┴!¼é┬┬ç" [boundp inferior-prolog-mode-map nil] 2)
  56. (fset 'inferior-prolog-mode #[nil "└┴!ê┬ ê├┼╟╔ ê\n¼ï╦ !\n═\n!ê╬\n!ê╧╨!ç" [require comint comint-mode inferior-prolog-mode major-mode "Inferior Prolog" mode-name "^| [ ?][- ] *" comint-prompt-regexp prolog-mode-variables inferior-prolog-mode-map copy-keymap comint-mode-map prolog-mode-commands use-local-map run-hooks prolog-mode-hook] 2 "\
  57. Major mode for interacting with an inferior Prolog process.
  58.  
  59. The following commands are available:
  60. \\{inferior-prolog-mode-map}
  61.  
  62. Entry to this mode calls the value of prolog-mode-hook with no arguments,
  63. if that value is non-nil.  Likewise with the value of comint-mode-hook.
  64. prolog-mode-hook is called after comint-mode-hook.
  65.  
  66. You can send text to the inferior Prolog from other buffers
  67. using the commands send-region, send-string and \\[prolog-consult-region].
  68.  
  69. Commands:
  70. Tab indents for Prolog; with argument, shifts rest
  71.  of expression rigidly with the current line.
  72. Paragraphs are separated only by blank lines and '%%'. '%'s start comments.
  73.  
  74. Return at end of buffer sends line as input.
  75. Return not at end copies rest of line to end and sends it.
  76. \\[comint-kill-input] and \\[backward-kill-word] are kill commands, imitating normal Unix input editing.
  77. \\[comint-interrupt-subjob] interrupts the shell or its current subjob if any.
  78. \\[comint-stop-subjob] stops. \\[comint-quit-subjob] sends quit signal." nil])
  79. (fset 'run-prolog #[nil "└┴!ê┬├─
  80. \"!ê╞ ç" [require comint switch-to-buffer make-comint "prolog" prolog-program-name inferior-prolog-mode] 4 "\
  81. Run an inferior Prolog process, input and output via buffer *prolog*." nil])
  82. (fset 'prolog-consult-region #[(compile beg end) "è½ç┴┬ \"ê¬à┴┬ \"ê┼┬#ê┴┬╚\"ê    ½ç┴┬    \"¬â╩┬!)ç" [compile send-string "prolog" prolog-compile-string prolog-consult-string send-region beg end "\n" prolog-eof-string process-send-eof] 4 "\
  83. Send the region to the Prolog process made by M-x run-prolog.
  84.  If COMPILE (prefix arg) is not nil,
  85.  use compile mode rather than consult mode." "P\nr"])
  86. (fset 'prolog-consult-region-and-go #[(compile beg end) "└    \n #ê─┼!ç" [prolog-consult-region compile beg end switch-to-buffer "*prolog*"] 4 "\
  87. Send the region to the inferior Prolog, and switch to *prolog* buffer.
  88.  If COMPILE (prefix arg) is not nil,
  89.  use compile mode rather than consult mode." "P\nr"])
  90.