Changeset 17950 in project


Ignore:
Timestamp:
04/28/10 08:23:37 (9 years ago)
Author:
felix winkelmann
Message:

simplification and bugfixes in yasos egg

Location:
release/4/yasos/trunk
Files:
1 deleted
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/yasos/trunk/yasos.meta

    r16974 r17950  
    1 ((egg "yasos.egg")
    2  (date "2008-02-07")
    3  (files
     1;;;; yasos.meta -*- Scheme -*-
     2
     3((files
    44  "yasos.scm"
    5   "yasos-base.scm"
    6   "yasos.html"
    75  "yasos.setup"
    86  "yasos-rationale.txt")
    9  (license "SRFI")
     7 (license "BSD")
    108 (category oop)
    119 (test-depends testeez)
  • release/4/yasos/trunk/yasos.scm

    r16355 r17950  
    3232  (import scheme chicken)
    3333
    34   (use yasos-base)
     34  (define make-instance 'bogus)  ;; defined below
     35  (define instance?     'bogus)
     36  (define instance-dispatcher 'bogus)
     37 
     38  (let ((instance-tag "instance"))
     39        ;; Make a unique tag within a local scope.
     40        ;; No other data object is EQ? to this tag.
     41    (set! make-instance
     42    (lambda (dispatcher) (cons instance-tag dispatcher)))
     43    (set! instance?
     44          (lambda (obj) (and (pair? obj) (eq? (car obj) instance-tag))))
     45    (set! instance-dispatcher
     46          (lambda (inst) (cdr inst))))
     47     
     48;;;
     49;;; COPYRIGHT (c) 1992,2008 by Kenneth A Dickey, All rights reserved.
     50;;;
     51;;;Permission is hereby granted, free of charge, to any person
     52;;;obtaining a copy of this software and associated documentation
     53;;;files (the "Software"), to deal in the Software without
     54;;;restriction, including without limitation the rights to use,
     55;;;copy, modify, merge, publish, distribute, sublicense, and/or
     56;;;sell copies of the Software, and to permit persons to whom
     57;;;the Software is furnished to do so, subject to the following
     58;;;conditions:
     59;;;
     60;;;The above copyright notice and this permission notice shall
     61;;;be included in all copies or substantial portions of the Software.
     62;;;
     63;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
     64;;;EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
     65;;;OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
     66;;;NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
     67;;;HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
     68;;;WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
     69;;;FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
     70;;;OTHER DEALINGS IN THE SOFTWARE.
     71
     72
    3573
    3674
  • release/4/yasos/trunk/yasos.setup

    r16355 r17950  
    1 (include "setup-helper")
    2 (verify-extension-name "yasos")
    3 (define VERSION "1.1")
     1;;;; yasos.setup -*- Scheme -*-
    42
    5 (setup-shared-extension-module 'yasos-base (extension-version VERSION))
    6 (setup-shared-extension-module 'yasos (extension-version VERSION))
    73
    8 (install-extension 'mw '() `((version ,(extension-version VERSION))))
     4(compile -sSJ -O3 -d1 yasos.scm)
     5(compile -s -O3 -d0 yasos.import.scm)
     6
     7(install-extension
     8 'yasos
     9 '("yasos.so" "yasos.import.so")
     10 '((version 1.2)))
Note: See TracChangeset for help on using the changeset viewer.