From e9509518623d016880392237a298d4561a3b6a0b Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Mon, 31 Oct 2005 16:03:18 +0000
Subject: Removed useless files, integrated packages.

* src/guile/skribilo/packages: New directory and files.

* bin: Removed.

* skr: Removed (files moved to `src/guile/skribilo/packages').

* skribe: Removed.

* doc/skr/env.skr (*courtes-mail*): New.

* doc/user/user.skb: Removed postal addresses, added my name.

* src/guile/skribilo/engine/lout.scm: Uncommented the slide-related
  markup writers.

* src/guile/skribilo/evaluator.scm (%evaluate): Try weird things with
  source properties.

* src/guile/skribilo/reader/skribe.scm: Comply with the new guile-reader
  API.

* src/guile/skribilo/types.scm: Removed the special `initialize' method
  for ASTs which was supposed to set their location.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-7
---
 skribe/src/bigloo/api.sch | 91 -----------------------------------------------
 1 file changed, 91 deletions(-)
 delete mode 100644 skribe/src/bigloo/api.sch

(limited to 'skribe/src/bigloo/api.sch')

diff --git a/skribe/src/bigloo/api.sch b/skribe/src/bigloo/api.sch
deleted file mode 100644
index 390b8fa..0000000
--- a/skribe/src/bigloo/api.sch
+++ /dev/null
@@ -1,91 +0,0 @@
-;*=====================================================================*/
-;*    serrano/prgm/project/skribe/src/bigloo/api.sch                   */
-;*    -------------------------------------------------------------    */
-;*    Author      :  Manuel Serrano                                    */
-;*    Creation    :  Mon Jul 21 18:15:25 2003                          */
-;*    Last change :  Wed Oct 27 12:43:23 2004 (eg)                     */
-;*    Copyright   :  2003-04 Manuel Serrano                            */
-;*    -------------------------------------------------------------    */
-;*    The Bigloo macros for the API implementation                     */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;*    define-pervasive-macro ...                                       */
-;*---------------------------------------------------------------------*/
-(define-macro (define-pervasive-macro proto . body)
-   `(begin
-       (eval '(define-macro ,proto ,@body))
-       (define-macro ,proto ,@body)))
- 
-;*---------------------------------------------------------------------*/
-;*    define-markup ...                                                */
-;*---------------------------------------------------------------------*/
-(define-pervasive-macro (define-markup proto . body)
-   (define (s2k symbol)
-      (string->keyword (string-append ":" (symbol->string symbol))))
-   (if (not (pair? proto))
-       (error 'define-markup "Illegal markup definition" proto)
-       (let* ((id (car proto))
-	      (args (cdr proto))
-	      (dargs (dsssl-formals->scheme-formals args error)))
-	  `(begin
-	      ,(if (and (memq #!key args)
-			(memq '&skribe-eval-location args))
-		   `(define-expander ,id
-		       (lambda (x e)
-			  (append 
-			   (cons ',id (map (lambda (x) (e x e)) (cdr x)))
-			   (list :&skribe-eval-location
-				 '(skribe-eval-location)))))
-		   #unspecified)
-	      (define ,(cons id dargs)
-		 ,(make-dsssl-function-prelude proto
-					       args `(begin ,@body)
-					       error s2k))))))
-
-;*---------------------------------------------------------------------*/
-;*    define-simple-markup ...                                         */
-;*---------------------------------------------------------------------*/
-(define-pervasive-macro (define-simple-markup markup)
-   `(define-markup (,markup #!rest opts #!key ident class loc)
-       (new markup
-	  (markup ',markup)
-	  (ident (or ident (symbol->string (gensym ',markup))))
-	  (loc loc)
-	  (class class)
-	  (required-options '())
-	  (options (the-options opts :ident :class :loc))
-	  (body (the-body opts)))))
-		  
-;*---------------------------------------------------------------------*/
-;*    define-simple-container ...                                      */
-;*---------------------------------------------------------------------*/
-(define-pervasive-macro (define-simple-container markup)
-   `(define-markup (,markup #!rest opts #!key ident class loc)
-       (new container
-	  (markup ',markup)
-	  (ident (or ident (symbol->string (gensym ',markup))))
-	  (loc loc)
-	  (class class)
-	  (required-options '())
-	  (options (the-options opts :ident :class :loc))
-	  (body (the-body opts)))))
-		  
-;*---------------------------------------------------------------------*/
-;*    define-processor-markup ...                                      */
-;*---------------------------------------------------------------------*/
-(define-pervasive-macro (define-processor-markup proc)
-   `(define-markup (,proc #!rest opts)
-       (new processor
-	  (engine (find-engine ',proc))
-	  (body (the-body opts))
-	  (options (the-options opts)))))
-
-;*---------------------------------------------------------------------*/
-;*    new (at runtime)                                                 */
-;*---------------------------------------------------------------------*/
-(eval '(define-macro (new id . inits)
-	  (cons (symbol-append 'new- id)
-		(map (lambda (i)
-			(list 'list (list 'quote (car i)) (cadr i)))
-		     inits))))
-- 
cgit v1.2.3