(define (sim chapter) ;; this procedure loads all necessary code given that ;; I work on CHAPTER in the report on simulation of object-oriented ;; mechanisms in Scheme. (cond ((eqv? chapter 2) (my-load "report" "class-code")) ((eqv? chapter 3) (my-load "report" "class-code") (my-load "report" "single-code")) ((eqv? chapter 3.1) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code")) ((eqv? chapter 3.2) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-prec-list-code")) ((eqv? chapter 3.3) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-virtual-code")) ((eqv? chapter 4.1) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-virtual-code") (my-load "report" "multi-simple-code") (my-load "program" "multi:simple-multi-example")) ((eqv? chapter 4.2) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-virtual-code") (my-load "report" "multi-code") (my-load "program" "multi:multi-example-4")) ((eqv? chapter 4.4) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-virtual-code") (my-load "report" "multi-code") (my-load "report" "multi-method-comb-code") (my-load "report" "table-support-code") (my-load "program" "multi:multi-example-5")) ((eqv? chapter 5) (my-load "report" "class-code") (my-load "report" "single-non-virtual-code") (my-load "report" "single-virtual-code") (my-load "report" "meta-code") (my-load "program" "meta:new-meta-example-app")) (else (error "Error in customized loading (sim)" chapter)))) (define (my-load where file) (display (string-append "Loading " file " from " where " directory")) (newline) (load (string-append (cond ((equal? where "report") "SE3:sim-note:") ((equal? where "program") "SE3:Programmering:macScheme+Toolsmith-2.0:kn-applikationer:oop:")) file))) (define (drop code-expr) nil)