home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / AddOns / reader.em < prev    next >
Encoding:
Text File  |  1993-07-13  |  727 b   |  36 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: reader.em
  4. ;; Date: Tue Jul 13 21:49:01 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule reader
  11.   (eulisp0         
  12.    (rename ((make-obj-reader internal-make-reader)) lreader)
  13.    )
  14.   ()
  15.   
  16.   (export add-reader add-writer make-obj-reader read-next write-next)
  17.  
  18.   (defun make-obj-reader ()
  19.     (let ((writer (make <generic-function> 
  20.             'lambda-list '(a)
  21.             'argtype 1
  22.             'name 'simple-writer
  23.             'method-class <method>)))
  24.       (internal-make-reader writer)))
  25.  
  26.   (defun add-writer (reader class id fn)
  27.     (add-method (vector-ref reader 1)
  28.         (make <method> 
  29.               'signature (list class)
  30.               'function (method-lambda (obj)
  31.                            (cons id fn)))))
  32.      
  33.  
  34.   ;; end module
  35.   )
  36.