Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added temporary test code

Browse source
This commit is contained in:
Justin Ethier 2016-05-03 23:02:51 -04:00
parent 04f671efe0
commit f3f86b8d15
1 changed files with 47 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
scheme/cyclone/opti-test.scm
View file

@ -1,16 +1,51 @@
;; Temporary file to test changes to the optimization library
(import (optimize-cps)
(scheme write)
(scheme base))
;(import (optimize-cps)
; (scheme write)
; (scheme base))
;
;(adb:init!)
;(adb:set! 'v (adb:make-var))
;
;(let ((v (adb:get 'v)))
; (adbv:set-global! v #t)
; (adbv:set-defined-by! v 1)
;
; (display v)
; (newline)
; (display (adbv:defined-by v))
; (newline))
(adb:init!)
(adb:set! 'v (adb:make-var))
(import (scheme cyclone libraries) (scheme write) (scheme base))
(let ((v (adb:get 'v)))
(adbv:set-global! v #t)
(adbv:set-defined-by! v 1)
(display v)
(define (test imports)
(letrec ((libraries/deps '())
(find-deps!
(lambda (import-sets)
(for-each
(lambda (i)
(let ((import-set (lib:list->import-set i)))
(cond
;; Prevent cycles by only processing new libraries
((not (assoc import-set libraries/deps))
;; Find all dependencies of i (IE, libraries it imports)
(let ((deps (lib:read-imports import-set)))
(set! libraries/deps (cons (cons import-set deps) libraries/deps))
(find-deps! deps)
)))))
import-sets))))
(find-deps! imports)
;`((deps ,libraries/deps) ; DEBUG
; (result ,(lib:get-dep-list libraries/deps)))
libraries/deps ;(lib:get-dep-list libraries/deps)
(write libraries/deps)
(newline)
(lib:get-dep-list libraries/deps)
))
(write
(test '((optimize-cps) (scheme write) (scheme base))))
(newline)
(write
(lib:get-dep-list `(((scheme write) (scheme base)) ((scheme complex) (scheme base)) ((scheme char) (scheme base)) ((srfi 69) (scheme base) (scheme char) (scheme complex)) ((scheme base)) ((optimize-cps) (scheme base) (srfi 69)))))
; (((scheme write) (scheme base)) ((scheme complex) (scheme base)) ((scheme char) (scheme base)) ((srfi 69) (scheme base) (scheme char) (scheme complex)) ((scheme base)) ((optimize-cps) (scheme base) (srfi 69)))
(newline)
(display (adbv:defined-by v))
(newline))