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

removed language sub-levels; now there's just FrTime

Browse Source 
svn: r1518
This commit is contained in:
Greg Cooper 2005-12-04 17:24:40 +00:00
parent f8d78564b0
commit f4d02f77b0
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/frtime/frtime-tool.ss
View File

@ -14,7 +14,7 @@
(unit/sig drscheme:tool-exports^ (unit/sig drscheme:tool-exports^
(import drscheme:tool^) (import drscheme:tool^)
(define basic-frtime-language% #;(define basic-frtime-language%
(class* object% (drscheme:language:simple-module-based-language<%>) (class* object% (drscheme:language:simple-module-based-language<%>)
(define/public (get-language-numbers) (define/public (get-language-numbers)
'(1000 -400 1)) '(1000 -400 1))
@ -36,13 +36,13 @@
(define big-frtime-language% (define big-frtime-language%
(class* object% (drscheme:language:simple-module-based-language<%>) (class* object% (drscheme:language:simple-module-based-language<%>)
(define/public (get-language-numbers) (define/public (get-language-numbers)
'(1000 -400 0)) '(1000 -400))
(define/public (get-language-position) (define/public (get-language-position)
(list (string-constant experimental-languages) "FrTime" "Standard")) (list (string-constant experimental-languages) "FrTime"))
(define/public (get-module) (define/public (get-module)
'(lib "frtime-big.ss" "frtime")) '(lib "frtime-big.ss" "frtime"))
(define/public (get-one-line-summary) (define/public (get-one-line-summary)
"Standard FrTime (includes common libraries)") "Language for functional programming of event-driven systems")
(define/public (get-language-url) #f) (define/public (get-language-url) #f)
(define/public (get-reader) (define/public (get-reader)
(lambda (name port) (lambda (name port)
@ -79,11 +79,7 @@
(field (watch-list empty)) (field (watch-list empty))
(inherit get-language-position) (inherit get-language-position)
(define/override (get-language-name) (define/override (get-language-name)
(let* ([pos (get-language-position)] "FrTime")
[last-part (first (last-pair pos))])
(if (equal? last-part "Standard")
"FrTime"
(string-append "FrTime: " last-part))))
(define/override (on-execute settings run-in-user-thread) (define/override (on-execute settings run-in-user-thread)
(let ([drs-eventspace (current-eventspace)]) (let ([drs-eventspace (current-eventspace)])
(super on-execute settings run-in-user-thread) (super on-execute settings run-in-user-thread)
@ -110,7 +106,7 @@
(define (phase1) (void)) (define (phase1) (void))
(define (phase2) (define (phase2)
(drscheme:language-configuration:add-language #;(drscheme:language-configuration:add-language
(make-object ((drscheme:language:get-default-mixin) (make-frtime-language basic-frtime-language%)))) (make-object ((drscheme:language:get-default-mixin) (make-frtime-language basic-frtime-language%))))
(drscheme:language-configuration:add-language (drscheme:language-configuration:add-language
(make-object ((drscheme:language:get-default-mixin) (make-frtime-language big-frtime-language%)))))))) (make-object ((drscheme:language:get-default-mixin) (make-frtime-language big-frtime-language%))))))))