From 8c47f6099fd05e2feb7cb51e15d39911ef48411d Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 31 Mar 2010 21:40:20 +0200 Subject: PLT: geiser is now a regular module. --- scheme/plt/geiser/autodoc.ss | 4 ++-- scheme/plt/geiser/eval.ss | 6 ++--- scheme/plt/geiser/main.ss | 54 ++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 59 insertions(+), 5 deletions(-) create mode 100644 scheme/plt/geiser/main.ss (limited to 'scheme/plt/geiser') diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss index 7e64c89..c317d5c 100644 --- a/scheme/plt/geiser/autodoc.ss +++ b/scheme/plt/geiser/autodoc.ss @@ -11,7 +11,7 @@ #lang scheme -(provide autodoc update-module-cache get-help) +(provide autodoc update-signature-cache get-help) (require geiser/utils geiser/modules geiser/locations scheme/help) @@ -176,7 +176,7 @@ ((list? arity) (map arity->signature arity)) (else (list (arity->signature arity))))) -(define (update-module-cache path . form) +(define (update-signature-cache path . form) (when (and (string? path) (or (null? form) (and (list? (car form)) diff --git a/scheme/plt/geiser/eval.ss b/scheme/plt/geiser/eval.ss index d432daa..e806138 100644 --- a/scheme/plt/geiser/eval.ss +++ b/scheme/plt/geiser/eval.ss @@ -1,6 +1,6 @@ ;;; eval.ss -- evaluation -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -53,7 +53,7 @@ (define (eval-in form spec lang) (call-with-result (lambda () - (update-module-cache spec form) + (update-signature-cache spec form) (eval form (module-spec->namespace spec lang))))) (define compile-in eval-in) @@ -62,7 +62,7 @@ (call-with-result (lambda () (load-module file (current-output-port) (last-namespace)) - (update-module-cache file)))) + (update-signature-cache file)))) (define compile-file load-file) diff --git a/scheme/plt/geiser/main.ss b/scheme/plt/geiser/main.ss new file mode 100644 index 0000000..d342b15 --- /dev/null +++ b/scheme/plt/geiser/main.ss @@ -0,0 +1,54 @@ +;;; main.ss -- exported interface for emacs + +;; Copyright (C) 2010 Jose Antonio Ortega Ruiz + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the Modified BSD License. You should +;; have received a copy of the license along with this program. If +;; not, see . + +;; Start date: Wed Mar 31, 2010 21:14 + +;;; main.ss ends here + +#lang scheme/base + +(provide geiser:init + geiser:eval + geiser:compile + geiser:load-file + geiser:compile-file + geiser:macroexpand + geiser:completions + geiser:module-completions + geiser:symbol-location + geiser:module-location + geiser:module-exports + geiser:autodoc + geiser:help) + +(require geiser/eval + geiser/modules + geiser/completions + geiser/locations + geiser/autodoc) + +(define (geiser:eval lang) + (lambda (form spec) (eval-in form spec lang))) +(define geiser:compile compile-in) +(define geiser:load-file load-file) +(define geiser:compile-file compile-file) +(define geiser:autodoc autodoc) +(define geiser:help get-help) +(define geiser:completions symbol-completions) +(define geiser:module-completions module-completions) +(define geiser:symbol-location symbol-location) +(define geiser:module-location module-location) +(define geiser:module-exports module-exports) +(define geiser:macroexpand macroexpand) + +(define (geiser:init) + (compile-enforce-module-constants #f) + (current-prompt-read (compose (make-repl-reader (current-prompt-read)) + current-namespace))) + -- cgit v1.2.3