Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reverted debug code

Browse source
This commit is contained in:
Justin Ethier 2016-05-05 00:36:01 -04:00
parent c631742a70
commit 8457625433
2 changed files with 16 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,51 +1,16 @@
;; Temporary file to test changes to the optimization library ;; Temporary file to test changes to the optimization library
;(import (optimize-cps) (import (optimize-cps)
; (scheme write) (scheme write)
; (scheme base)) (scheme base))
;
;(adb:init!) ;(adb:init!)
;(adb:set! 'v (adb:make-var)) (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))
(import (scheme cyclone libraries) (scheme write) (scheme base)) (let ((v (adb:get 'v)))
(adbv:set-global! v #t)
(adbv:set-defined-by! v 1)
(define (test imports) (display v)
(letrec ((libraries/deps '()) (newline)
(find-deps! (display (adbv:defined-by v))
(lambda (import-sets) (newline))
(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)

8
scheme/cyclone/optimize-cps.sld
View file

@ -22,7 +22,7 @@
;(scheme cyclone transforms) ;(scheme cyclone transforms)
) )
(export (export
adb:init! ;adb:init!
adb:get key adb:get key
adb:set! key val adb:set! key val
;; Variables ;; Variables
@ -44,9 +44,9 @@
(begin (begin
(define *adb* (make-hash-table)) (define *adb* (make-hash-table))
;(define *adb* #f) ;(make-hash-table)) ;(define *adb* #f) ;(make-hash-table))
(define (adb:init!) ;(define (adb:init!)
;(set! *adb* (make-hash-table))) ; ;(set! *adb* (make-hash-table)))
'TODO) ; 'TODO)
(define (adb:get key) (hash-table-ref *adb* key)) (define (adb:get key) (hash-table-ref *adb* key))
(define (adb:set! key val) (hash-table-set! *adb* key val)) (define (adb:set! key val) (hash-table-set! *adb* key val))
(define-record-type <analysis-db-variable> (define-record-type <analysis-db-variable>