suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changes to reflect name change of draw2 to graphics, tests for cyclic uses of interfaces

Browse Source 
svn: r2009
This commit is contained in:
Kathy Gray 2006-01-27 22:17:22 +00:00
parent dadb3ea6b5
commit f73ccaaf95
4 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/profj/check.ss
View File

@ -1366,11 +1366,11 @@
(add-required c-class "String" `("java" "lang") type-recs)
(set-expr-type exp string-type))
((eq? (expr-types exp) 'image)
(get-record (send type-recs get-class-record '("Image" "draw2") #f
((get-importer type-recs) '("Image" "draw2")
(get-record (send type-recs get-class-record '("Image" "graphics") #f
((get-importer type-recs) '("Image" "graphics")
type-recs level (expr-src exp))) type-recs)
(add-required c-class "Image" `("draw2") type-recs)
(set-expr-type exp (make-ref-type "Image" '("draw2"))))
(add-required c-class "Image" `("graphics") type-recs)
(set-expr-type exp (make-ref-type "Image" '("graphics"))))
(else (expr-types exp))) env))
((bin-op? exp)
(set-expr-type exp

6
collects/profj/to-scheme.ss
View File

@ -2052,8 +2052,8 @@
(make-image
(lambda ()
`(let ((temp-obj (make-object ,(if (send (types) require-prefix?
'("Image" "draw2") (lambda () #f))
'draw2.Image
'("Image" "graphics") (lambda () #f))
'graphics.Image
'Image))))
(send temp-obj Image-constructor-dynamic ,value)
temp-obj))))
@ -2070,7 +2070,7 @@
(cond
((eq? type string-type) make-string)
((and (equal? "Image" (ref-type-class/iface type))
(equal? '("draw2") (ref-type-path type)))
(equal? '("graphics") (ref-type-path type)))
(make-image))
(else
(error 'translate-literal (format "Translate literal given unknown type: ~s" type))))))

2
collects/profj/tool.ss
View File

@ -887,7 +887,7 @@
(cond
((and (equal? "Image" (send value my-name))
(object-method-arity-includes? value 'Image-constructor-dynamic 1)
(object-method-arity-includes? value 'movePinhole-draw2.Posn 1))
(object-method-arity-includes? value 'movePinhole-graphics.Posn 1))
;(printf "~a~n" ((send value fields-for-display)))
(list (cadr ((send value fields-for-display)))))
(else

10
collects/tests/profj/beginner-tests.ss
View File

@ -10,6 +10,16 @@
;;Execution tests that should pass
(execute-test
"interface A {
boolean s( B b);
}
class B implements A {
B() { }
boolean s( B b ) { return true; }
}"
language #f "Interface and class with cyclic reference")
(execute-test
"class Simple {
Simple() { }