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

Racketized handin-client

Browse Source
This commit is contained in:
Eli Barzilay 2010-09-12 01:50:25 -04:00
parent 70a1733f7c
commit bd4a5fb706
5 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/handin-client/client-gui.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
#lang racket/base
(require scheme/class scheme/unit scheme/file mred net/sendurl
mrlib/switchable-button mrlib/bitmap-label drscheme/tool framework
"info.ss" "client.ss" "this-collection.ss")
(require racket/class racket/unit racket/file mred net/sendurl
mrlib/switchable-button mrlib/bitmap-label drracket/tool framework
"info.rkt" "client.rkt" "this-collection.rkt")
(provide tool@)
@ -521,8 +521,8 @@
exe "it will be overwritten")
this '(ok-cancel caution))))
((launcher 'make-mred-launcher)
(list "-mvLe-" "handin-multi.ss"
this-collection-name
(list "-le-" (format "~a/handin-multi"
this-collection-name)
"(multifile-handin)")
(build-path dir exe))
(message-box "Standalone Executable"
@ -737,13 +737,13 @@
(define tool@
(unit
(import drscheme:tool^)
(export drscheme:tool-exports^)
(import drracket:tool^)
(export drracket:tool-exports^)
(define phase1 void)
(define phase2
(if updater?
(dynamic-require `(lib "updater.ss" ,this-collection-name) 'bg-update)
(dynamic-require `(lib "updater.rkt" ,this-collection-name) 'bg-update)
void))
(define tool-button-label (bitmap-label-maker button-label/h handin-icon))
@ -769,7 +769,7 @@
[parent file-menu]
[callback (lambda (m e)
((dynamic-require
`(lib "handin-multi.ss" ,this-collection-name)
`(lib "handin-multi.rkt" ,this-collection-name)
'multifile-handin)))]))
(when updater?
(new menu-item%
@ -777,7 +777,7 @@
[parent file-menu]
[callback
(lambda (m e)
((dynamic-require `(lib "updater.ss" ,this-collection-name)
((dynamic-require `(lib "updater.rkt" ,this-collection-name)
'update)
#f #t))])) ; no parent
(new separator-menu-item% [parent file-menu]))
@ -810,7 +810,7 @@
(lambda (buf)
(string->editor!
buf
(send (drscheme:unit:open-drscheme-window)
(send (drracket:unit:open-drscheme-window)
get-editor)))])))]))
(inherit register-toolbar-button)
@ -820,4 +820,4 @@
(lambda (l) (cons client-panel (remq client-panel l))))))
(when (and server port-no)
(drscheme:get/extend:extend-unit-frame make-new-unit-frame% #f))))
(drracket:get/extend:extend-unit-frame make-new-unit-frame% #f))))

4
collects/handin-client/client.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
#lang racket/base
(require openssl/mzssl "this-collection.ss")
(require openssl/mzssl "this-collection.rkt")
(provide handin-connect
handin-disconnect

10
collects/handin-client/handin-multi.rkt
View File

@ -1,14 +1,14 @@
#lang scheme/base
#lang racket/base
(require scheme/class scheme/port mred framework browser/external
"info.ss" "client-gui.ss" "this-collection.ss")
(require racket/class racket/port mred framework browser/external
"info.rkt" "client-gui.rkt" "this-collection.rkt")
(define handin-name (#%info-lookup 'name))
(define web-address (#%info-lookup 'web-address
(lambda () "http://racket-lang.org")))
(define selection-mode (#%info-lookup 'selection-mode (lambda () 'extended)))
(define selection-defaults
(let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))])
(let ([sd (#%info-lookup 'selection-default (lambda () '("*.rkt")))])
(if (string? sd) (list sd) sd)))
(define last-dir-key (make-my-key 'multifile:last-dir))
(preferences:set-default last-dir-key "" string?)
@ -19,7 +19,7 @@
(define update
(and (#%info-lookup 'enable-auto-update (lambda () #f))
(dynamic-require `(lib "updater.ss" ,this-collection-name) 'update)))
(dynamic-require `(lib "updater.rkt" ,this-collection-name) 'update)))
;; ==========================================================================
(define magic #"<<<MULTI-SUBMISSION-FILE>>>")

8
collects/handin-client/info.rkt
View File

@ -9,9 +9,9 @@
;; The handin tool is disabled by default, uncomment these three lines to
;; enable it
;(define tools `("client-gui.ss"))
;(define tool-names `(,name))
;(define tool-icons `("icon.png"))
;(define drracket-tools `("client-gui.ss"))
;(define drracket-tool-names `(,name))
;(define drracket-tool-icons `("icon.png"))
;; Modify the provided "icon.png" file to your school/lab/etc logo.
;; You must define a server:port for the client to be functional
@ -33,7 +33,7 @@
;(define enable-multifile-handin #t) ; enable multi-file?
;(define selection-mode 'extended) ; mode for file choose, usually 'extended
;(define selection-default ; suffixes to auto-choose (string or string-list)
; '("*.scm;*.ss" "*.scm;*.ss;*.txt"))
; '("*.rkt" "*.rkt;*.txt"))
;; Client configuration
;(define password-keep-minutes 5) ; client remembers entered password 5 mins

6
collects/handin-client/updater.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/file scheme/port net/url setup/plt-installer mred framework
"info.ss" "this-collection.ss")
#lang racket/base
(require racket/file racket/port net/url setup/plt-installer mred framework
"info.rkt" "this-collection.rkt")
(define name (#%info-lookup 'name))
(define web-address (#%info-lookup 'web-address))