QuickScript: run Guile files within DrRacket

[spdegabrielle]

If you want to run Guile files within DrRacket, you will need to invoke the Guile runtime. Here's a quick-and-dirty quickscript that does that for you, assuming you are using Linux or Mac:

#lang racket/base
(require quickscript
         racket/system
         racket/port
         racket/class)
(define-script guile-run
  #:label "Guile Run"
  (λ (selection #:file fi #:interactions ints #:frame drr)
    (define str1 (format "Running Guile on ~a\n" (path->string fi)))
    (define out-str
      (with-output-to-string (λ () (system* "/usr/bin/env" "guile" (path->string fi)))))
    (send drr ensure-rep-shown ints)
    (send ints reset-console)
    (send ints insert
          (string-append str1
                         (make-string (string-length str1) #\—)
                         "\n"))
    (send ints insert out-str)
    #f))

Open a Guile file in DrRacket. DrRacket may not recognise that it's not a racket file, so you may see some errors, but forget about them. Click on Scripts|Run Guile and you should see the output of your Guile program in the interaction windows.

Notes:

• It's very simple (written in 15min), it doesn't implement a REPL, it only prints the output. If your program is asking the user for input, it will hang. If your program hangs, it will hang too.
• Guile must be accessible via /usr/bin/env guile
• The script above can be easily adapted to support most other interpreters.
• DrRacket will also syntax-color guile files like scheme files, so it shouldn't be too bad. DrRacket may yell because there's no #lang line, but you can disable you can "disable background expansion" by clicking on the red disk at the bottom right corner of DrRacket
• You may want to check Edit|Modes|Scheme mode.

[Metaxal]

Here's a sample Guile program (of course it's just scheme):

(display "Hello, world!")
(newline)

[pmatos]

Thanks.