scheme/racket/geiser/main.rkt

   1 ;;; main.rkt -- exported interface for emacs
   2
   3 ;; Copyright (C) 2010, 2011 Jose Antonio Ortega Ruiz
   4
   5 ;; This program is free software; you can redistribute it and/or
   6 ;; modify it under the terms of the Modified BSD License. You should
   7 ;; have received a copy of the license along with this program. If
   8 ;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
   9
  10 ;; Start date: Wed Mar 31, 2010 21:14
  11
  12 #lang racket/base
  13
  14 (provide geiser:eval
  15          geiser:compile
  16          geiser:load-file
  17          geiser:compile-file
  18          geiser:macroexpand
  19          geiser:completions
  20          geiser:module-completions
  21          geiser:symbol-location
  22          geiser:module-location
  23          geiser:module-exports
  24          geiser:autodoc
  25          geiser:symbol-documentation
  26          geiser:help
  27          geiser:no-values)
  28
  29 (require geiser/eval
  30          geiser/modules
  31          geiser/completions
  32          geiser/locations
  33          geiser/autodoc)
  34
  35 (define (geiser:eval lang)
  36   (lambda (form spec)
  37     (update-signature-cache spec form)
  38     (eval-in form spec lang)))
  39
  40 (define geiser:compile geiser:eval)
  41
  42 (define (geiser:load-file file)
  43   (update-signature-cache file)
  44   (load-file file))
  45
  46 (define geiser:compile-file geiser:load-file)
  47 (define geiser:add-to-load-path add-to-load-path)
  48 (define geiser:autodoc autodoc)
  49 (define geiser:help get-help)
  50 (define geiser:completions symbol-completions)
  51 (define geiser:module-completions module-completions)
  52 (define geiser:symbol-location symbol-location)
  53 (define geiser:module-location module-location)
  54 (define geiser:module-exports module-exports)
  55 (define geiser:macroexpand macroexpand)
  56 (define geiser:symbol-documentation symbol-documentation)
  57 (define (geiser:no-values) (values))