home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / apl / 1261 < prev    next >
Encoding:
Text File  |  1992-12-22  |  3.2 KB  |  99 lines
  1. Path: sparky!uunet!dtix!darwin.sura.net!spool.mu.edu!umn.edu!csus.edu!sfsuvax1.sfsu.edu!emclean
  2. From: emclean@sfsuvax1.sfsu.edu (Emmett McLean)
  3. Newsgroups: comp.lang.apl
  4. Subject: Re: can someone please recommend a ftp site for j
  5. Keywords: j
  6. Message-ID: <1992Dec22.185417.29700@csus.edu>
  7. Date: 22 Dec 92 18:54:17 GMT
  8. References: <1992Dec22.161230.28934@fnbc.com>
  9. Sender: news@csus.edu
  10. Organization: San Francisco State University
  11. Lines: 86
  12.  
  13. To: jja@fnbc.com
  14. Subject: Re: can someone please recommend a ftp site for j
  15. Newsgroups: comp.lang.apl
  16. In-Reply-To: <1992Dec22.161230.28934@fnbc.com>
  17. Organization: San Francisco State University
  18. Cc: 
  19. Bcc: 
  20.  
  21. In article <1992Dec22.161230.28934@fnbc.com> you write:
  22. >greetings,
  23. >
  24. >i am looking for a neXt version of j.   i use it at home
  25. >on the pc and now i want to use it at work.
  26. >
  27. >where can i ftp it from?  or the sources if a neXt version is
  28. >not available.
  29.  
  30.  Go to :
  31.  watserv1.waterloo.edu
  32.  cd to
  33.  languages/apl/j/exec/NEXT
  34.  or cd to   
  35.  languages/apl/j/source 
  36.  (or is it ?)
  37.  languages/apl/j/src
  38.  for the source? You'll figure it out.
  39.  
  40.  v6.1 is the most recent version of the source code and v6.0
  41.  is the most recent version of the executable.
  42.  
  43. For a session manager, under the NeXT, I suggest running J under Emacs.
  44. Do an archie to find the path to get j-interaction-mode.el
  45. and stuff the file with a few changes (read the doc) and
  46. stuff it into your .emacs file. I suggest also including 
  47. the following instructions:
  48.  
  49. ;;; Get rid of that help message for ESC ESC
  50. (put 'eval-expression 'disabled nil)
  51.  
  52. ;;; So I'll scroll for output beyond 80 chars
  53. (setq-default truncate-lines t)
  54.  
  55. ;;; Since take drop,tail, and curtail are {. }. {: and }:
  56. ;;; matching parens are meaningless
  57. (setq blink-matching-paren nil)
  58.  
  59. (setq term-file-prefix nil)
  60.  
  61. ;;; So undo is easy to use
  62. (define-key global-map "\eOB" 'undo )
  63.  
  64. ;;;; So C-x < scrolls as before, but C-u C-x < scrolls to point.
  65. (defun emclean-scroll-left (&optional to-point)
  66.   (interactive "P")
  67.   (scroll-left (if to-point (current-column))))
  68. (global-set-key "\C-x<" (function emclean-scroll-left))
  69.  
  70. ;;;; I find being able to create another shell easily useful so
  71. (defun shell-numbered ()
  72.   "Create a new shell named, *shell1*, *shell2*, *shell3*, ....
  73. Numbers are reused as they become available."
  74.   (interactive)
  75.   (let ((shell-number 1))
  76.     (while (get-buffer (format "*shell%d*" shell-number))
  77.       (setq shell-number (1+ shell-number)))
  78.     (shell)
  79.     (rename-buffer (format "*shell%d*" shell-number))))
  80.     (defun see-chars ()
  81.       "Displays characters typed, terminated by a 3-second timeout."
  82.       (interactive)
  83.       (let ((chars "")
  84.         (inhibit-quit t))
  85.     (message "Enter characters, terminated by 3-second timeout.")
  86.     (while (not (sit-for 3))
  87.       (setq chars (concat chars (list (read-char)))
  88.         quit-flag nil))        ; quit-flag maybe set by C-g
  89.     (message "Characters entered: %s" (key-description chars))))
  90. (defun shell-numbered ()
  91.   "Create a new shell named, *shell1*, *shell2*, *shell3*, ....
  92. Numbers are reused as they become available."
  93.   (interactive)
  94.   (let ((shell-number 1))
  95.     (while (get-buffer (format "*shell%d*" shell-number))
  96.       (setq shell-number (1+ shell-number)))
  97.     (shell)
  98.     (rename-buffer (format "*shell%d*" shell-number))))
  99.