From fb6806f6a73b2d45f1feba21da03ac2b4cf3c529 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 12 Dec 2007 16:20:34 +0100 Subject: Remove legacy/dead code from `(skribilo)'. * src/guile/skribilo.scm: Remove `/bin/sh' header. (process-option-specs, raw-options->getopt-long, define-options, skribilo-options, *load-rc*, load-rc): Remove (%options)[debug]: Fix `(integer? num)' case. (main): Remove. * src/pre-inst-skribilo.in (main): Update. * src/skribilo.in (main): Update. --- src/guile/skribilo.scm | 143 ++--------------------------------------------- src/pre-inst-skribilo.in | 2 +- src/skribilo.in | 2 +- 3 files changed, 7 insertions(+), 140 deletions(-) diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index ab215d3..0854fcb 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -1,9 +1,3 @@ -#!/bin/sh -# aside from this initial boilerplate, this is actually -*- scheme -*- code -main='(module-ref (resolve-module '\''(skribilo)) '\'main')' -exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" -!# - ;;; skribilo.scm -- The Skribilo document processor. ;;; ;;; Copyright 2005, 2006, 2007 Ludovic Courtès @@ -45,12 +39,12 @@ exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" :use-module (skribilo debug) :use-module (skribilo parameters) :use-module (skribilo config) - :use-module (skribilo lib) :autoload (srfi srfi-1) (alist-cons) :use-module (srfi srfi-37) :use-module (srfi srfi-39) - :use-module (ice-9 optargs)) + + :export (skribilo)) ;; Install the Skribilo module syntax reader. @@ -60,119 +54,6 @@ exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" (error "guile-reader sucks")) - - -;;; -;;; Legacy option processing (FIXME: To be removed!). -;;; - -(define* (process-option-specs longname - :key (alternate #f) (arg #f) (help #f) - :rest thunk) - "Process STkLos-like option specifications and return getopt-long option -specifications." - `(,(string->symbol longname) - ,@(if alternate - `((single-char ,(string-ref alternate 0))) - '()) - (value ,(if arg #t #f)))) - -(define (raw-options->getopt-long options) - "Converts @var{options} to a getopt-long-compatible representation." - (map (lambda (option-specs) - (apply process-option-specs (car option-specs))) - options)) - -(define-macro (define-options binding . options) - `(define ,binding (quote ,(raw-options->getopt-long options)))) - -(define-options skribilo-options - (("reader" :alternate "R" :arg reader - (nothing))) - (("compat" :arg compat - :help "use the COMPAT compatibility mode, e.g., `skribe'")) - (("target" :alternate "t" :arg target - :help "sets the output format to ") - (set! engine (string->symbol target))) - (("load-path" :alternate "I" :arg path :help "adds to Skribe path") - (set! paths (cons path paths))) - (("bib-path" :alternate "B" :arg path :help "adds to bibliography path") - (skribe-bib-path-set! (cons path (skribe-bib-path)))) - (("source-path" :alternate "S" :arg path :help "adds to source path") - (skribe-source-path-set! (cons path (skribe-source-path)))) - (("image-path" :alternate "P" :arg path :help "adds to image path") - (skribe-image-path-set! (cons path (skribe-image-path)))) - (("split-chapters" :alternate "C" :arg chapter - :help "emit chapter's sections in separate files") - (set! *skribe-chapter-split* (cons chapter *skribe-chapter-split*))) - (("preload" :arg file :help "preload ") - (set! *skribe-preload* (cons file *skribe-preload*))) - (("use-variant" :alternate "u" :arg variant - :help "use output format") - (set! *skribe-variants* (cons variant *skribe-variants*))) - (("base" :alternate "b" :arg base - :help "base prefix to remove from hyperlinks") - (set! *skribe-ref-base* base)) - (("rc-dir" :arg dir :alternate "d" :help "set the RC directory to ") - (set! *skribe-rc-directory* dir)) - - ;;"File options:" - (("no-init-file" :help "Dont load rc Skribe file") - (set! *load-rc* #f)) - (("output" :alternate "o" :arg file :help "set the output to ") - (set! *skribe-dest* file) - (let* ((s (file-suffix file)) - (c (assoc s *skribe-auto-mode-alist*))) - (if (and (pair? c) (symbol? (cdr c))) - (set! *skribe-engine* (cdr c))))) - - ;;"Misc:" - (("help" :alternate "h" :help "provides help for the command") - (arg-usage (current-error-port)) - (exit 0)) - (("options" :help "display the skribe options and exit") - (arg-usage (current-output-port) #t) - (exit 0)) - (("version" :alternate "V" :help "displays the version of Skribe") - (version) - (exit 0)) - (("query" :alternate "q" - :help "displays informations about Skribe conf.") - (query) - (exit 0)) - (("verbose" :alternate "v" :arg level - :help "sets the verbosity to . Use -v0 for crystal silence") - (let ((val (string->number level))) - (if (integer? val) - (set! *skribe-verbose* val)))) - (("warning" :alternate "w" :arg level - :help "sets the verbosity to . Use -w0 for crystal silence") - (let ((val (string->number level))) - (if (integer? val) - (set! *skribe-warning* val)))) - (("debug" :alternate "g" :arg level :help "sets the debug ") - (let ((val (string->number level))) - (if (integer? val) - (set-skribe-debug! val) - (begin - ;; Use the symbol for debug - (set-skribe-debug! 1) - (add-skribe-debug-symbol (string->symbol level)))))) - (("no-color" :help "disable coloring for output") - (no-debug-color)) - (("custom" :alternate "c" :arg key=val :help "Preset custom value") - (let ((args (string-split key=val "="))) - (if (and (list args) (= (length args) 2)) - (let ((key (car args)) - (val (cadr args))) - (set! *skribe-precustom* (cons (cons (string->symbol key) val) - *skribe-precustom*))) - (error 'parse-arguments "Bad custom ~S" key=val)))) - (("eval" :alternate "e" :arg expr :help "evaluate expression ") - (with-input-from-string expr - (lambda () (eval (read)))))) - - ;;; ;;; Help. @@ -207,14 +88,6 @@ Report bugs to <~a>.~%" ;;; Document processing. ;;; -(define *load-rc* #f) ;; FIXME: This should go somewhere else. - -(define (load-rc) - (if *load-rc* - (let ((file (make-path (*rc-directory*) (*rc-file*)))) - (if (and file (file-exists? file)) - (load file))))) - (define *skribilo-output-port* (make-parameter (current-output-port))) (define (doskribe module) @@ -323,10 +196,7 @@ Report bugs to <~a>.~%" (lambda (opt name arg result) (let ((num (string->number arg))) (if (integer? num) - (alist-cons :debug (if (string? arg) - (or (string->number arg) default) - default) - result) + (alist-cons :debug num result) (let ((watched (assoc :watched-symbols result))) (alist-cons :watched-symbols (cons (string->symbol arg) @@ -367,7 +237,7 @@ options." ;;; The program. ;;; -(define-public (skribilo . args) +(define (skribilo . args) (let* ((options (parse-args args)) (reader-name (string->symbol (assoc-ref options :reader))) @@ -390,7 +260,7 @@ options." (image-path (assoc-ref options :image-path)) (compat (assoc-ref options :compat)) (preloads (assoc-ref options :preloads)) - (variants '()) ;; FIXME: Implement + ;;(variants '()) ;; FIXME: Implement ) (define user-module @@ -459,7 +329,4 @@ options." ;; Make sure the output port is flushed before we leave. (force-output (*skribilo-output-port*)))))) - -(define main skribilo) - ;;; skribilo ends here. diff --git a/src/pre-inst-skribilo.in b/src/pre-inst-skribilo.in index 96343b9..b5bd080 100755 --- a/src/pre-inst-skribilo.in +++ b/src/pre-inst-skribilo.in @@ -21,7 +21,7 @@ # A pre-installation `skribilo' executable that makes sure to load # stuff from the source directory rather than the installation directory. -main='(module-ref (resolve-module '\''(skribilo)) '\'main')' +main='(module-ref (resolve-interface '\''(skribilo)) '\'skribilo')' exec ${GUILE-@GUILE@} -L "@abs_top_srcdir@/src/guile" \ -L "@abs_top_builddir@/src/guile" \ -c " diff --git a/src/skribilo.in b/src/skribilo.in index 1240be0..a82f9ae 100755 --- a/src/skribilo.in +++ b/src/skribilo.in @@ -24,7 +24,7 @@ # needed, the use should explicitly set the `GUILE' environment # variable to, e.g., "guile --debug". -main='(module-ref (resolve-module '\''(skribilo)) '\'main')' +main='(module-ref (resolve-interface '\''(skribilo)) '\'skribilo')' exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -c " (use-modules (skribilo condition)) -- cgit v1.2.3