Emacs

Learning Emacs

Emacs has extensive built-in help. If you are not yet familiar with Emacs, start it up and work through its built-in tutorial. Start the tutorial by pressing C-h t (i.e. press control h then press t) or by clicking on the Help menu and choosing Emacs Tutorial.

Using Emacs

Assuming combo.bin has been burned into your target ARM's flash and that Emacs is running, here is how to start the smart terminal.

• Open a shell in Emacs with M-x shell RET.
• In the shell, cd into the directory containing the Riscy Pygness files.
• Open the file arm.lisp with C-x C-f.
• Start CLISP by pressing C-c C-z.
  • Note, Emacs needs to know which Lisp you wish to run, etc. so you probably need to set the value of the Emacs variable inferior-lisp-program to "clisp -K full". The Emacs tutorial likely explained how to do this, otherwise, type C-h v inferior-lisp-program RET and follow the directions about customizing that variable.
• Move back to the arm.lisp buffer (with C-x b) and load arm.lisp with C-c C-l or by putting the cursor at the end of the line in arm.lisp that says

  (load "arm")

  and pressing C-x C-e or C-u C-x C-e (the first simply executes the Lisp form and the second both executes it and moves you to the inferior lisp buffer so you can see the result of executing the command.

• start the smart terminal with (interp) in the inferior lisp buffer or by putting the cursor at the end of (interp) and pressing C-u C-x C-e.

All this may seem confusing if you have never used Emacs before, but I believe it is well worth the few minutes of experimenting. I believe you will become comfortable with it soon.

Emacs mode for Riscy Pygness

Unfortunately, there is no Emacs mode for Riscy Pygness yet. However, the Inferior Lisp mode that will be active in the smart terminal window buffer gives you much of what you would want, such as command history and command completion.

Putting the following into your .emacs file will give you most of the rest. It will let you send a highlighted a region of Forth code to the target (via the smart terminal) to be compiled.

;;; Interaction with the Lisp buffer running a smart terminal to the Riscy Pygness ARM Forth
;;; These should be incorporated into a major or minor forth mode or riscy mode.
(defun change-line-breaks-to-spaces (str)
  (replace-regexp-in-string "\n\\|\r" " " str))
(defun change-quotes-to-backslashed-quotes (str)
  (replace-regexp-in-string "\"" "\\\\\"" str))

(defun forth-compile-region (start end &optional and-go)
  "Compile the string represented by the high-lighted
region.  At this time, this only compiles.  So, ordinarily, the
region would start with a colon.  Note, we do not seem to be able
to send multiple lines to the Lisp process, so we change all
line feeds to spaces to make a single (possibly very long) line.
We might then later assign this to the C-c C-k keystroke.
We also change quote marks to backslashed quote marks"
  (interactive "r\nP")
  (let ((reg (buffer-substring-no-properties start end)))
    (let ((whole-string
           (concat
            "LISP (compile-string \""
            (change-quotes-to-backslashed-quotes
             (change-line-breaks-to-spaces reg))
            "\")\n")))
      (comint-send-string (inferior-lisp-proc) whole-string)))
  (if and-go (switch-to-lisp t)))

(global-set-key "\C-ck" 'forth-compile-region)   ;; use C-c k  for now