cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilisp-s2c.el

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilisp-s2c.el --
   4 ;;;
   5 ;;; This file is part of ILISP.
   6 ;;; Please refer to the file COPYING for copyrights and licensing
   7 ;;; information.
   8 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
   9 ;;; of present and past contributors.
  10 ;;;
  11 ;;; $Id: ilisp-s2c.el,v 1.3 2001-07-02 09:40:48 youngs Exp $
  12
  13 ;From: Jeffrey Mark Siskind <qobi@cs.toronto.edu>
  14 ;To: ilisp@cons.org
  15 ;Subject: ILisp 5.5 and Scheme->C
  16 ;Reply-To: Qobi@cs.toronto.edu
  17 ;Date:  Thu, 15 Dec 1994 22:55:05 -0500
  18
  19 ;Is anybody using ILisp 5.5 with Scheme->C? I don't know much about the
  20 ;internals of ILisp and have created a defdialect by analogy with the other
  21 ;defdialect forms.
  22
  23 (defdialect qsci "Qobi Scheme->C" scheme
  24  (setq comint-fix-error ":X"
  25        ilisp-reset ":A"
  26        comint-continue ":C"
  27        comint-interrupt-regexp ">>Interrupt:"
  28        ilisp-eval-command
  29        "(begin (eval (read (open-input-string \"%s\"))) \"%s\" \"%s\")"
  30        ilisp-package-command "%s"       ;needs work
  31        ilisp-block-command "(begin %s)"
  32        ilisp-load-command "(loadq \"%s\")"
  33        ilisp-load-or-send-command "(begin \"%s\" (ld \"%s\"))"
  34        ild-abort-string ":A"
  35        ild-continue-string ":C"
  36        ild-next-string ":N"
  37        ild-previous-string ":P"
  38        ild-top-string ":<"
  39        ild-bottom-string ":>"
  40        ild-backtrace-string ":B")
  41  (ilisp-load-init 'qsci "/u/qobi/emacs/qsci"))
  42
  43 (cond ((or (equal (system-name) "qobi.ai")
  44            (equal (system-name) "dvp.cs")
  45            (equal (system-name) "qew.cs"))
  46        (setq qsci-program "/u/qobi/bin/sun4/5.3/qsci"))
  47       (t (setq qsci-program "/u/qobi/bin/sun4/4.1.2/qsci")))
  48
  49 ;The strange thing is that sometimes it works and sometimes it doesn't. And I
  50 ;am having difficulty figuring out what I am doing wrong. I should mention that
  51 ;I am using a customized version of Scheme->C (qsci) that has my own debugger
  52 ;instead of the default one. My debugger provides Lucid-like commands for
  53 ;moving up and down the stack, displaying backtraces and locals, aborting,
  54 ;continuing, etc. I will give any interested party a copy of my enhancements to
  55 ;Scheme->C. I also use the debugger with ILD, my extension to ILisp 5.5 that
  56 ;provides a uniform set of single keystroke commands for accessing the
  57 ;different CommonLisp/Scheme debuggers. That explains the ild-* bindings above.
  58
  59 ;Here are my questions: What are the appropriate values for comint-fix-error,
  60 ;ilisp-reset, comint-continue, comint-interrupt-regexp, ilisp-eval-command,
  61 ;ilsip-package-command, ilisp-block-command, ilisp-load-command,
  62 ;and ilisp-load-or-send-command. What exactly should these control strings do?
  63 ;What % arguments do they take. The minimum functionality I would like to have
  64 ;is the ILisp commands c-z l and c-z e. Later on I would like to add c-z a,
  65 ;m-TAB, and m-. but I realize that I'll need to add hooks in Scheme->C for
  66 ;these. I would ideally like to modify c-z D and c-z A to look things
  67 ;up in R4RS.
  68
  69 ;    Jeff (home page http://www.cdf.toronto.edu/DCS/Personal/Siskind.html)
  70
  71 ;;; end of file -- ilisp-scc.el --