Changeset 12012 in project
- Timestamp:
- 09/26/08 20:51:10 (12 years ago)
- Location:
- release/3/job-worker
- Files:
-
- 10 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/3/job-worker/tags/0.6.0/job-worker-eggdoc.scm
r8911 r12012 38 38 (requires 39 39 (url "miscmacros.html" "miscmacros") 40 (url "misc-extn.html" "misc-extn > 2.1")41 (url "synch.html" "synch 0.6"))40 (url "misc-extn.html" "misc-extn") 41 (url "synch.html" "synch")) 42 42 43 43 (documentation … … 324 324 325 325 (history 326 (version "0.5" "Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.") 326 (version "0.6.0" "Use of \"unsafe\" record-type.") 327 (version "0.5" "Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.") 327 328 (version "0.4" "Removed unnecessary tests. Changes for synch 1.3") 328 329 (version "0.3" "Changes for synch 0.6") -
release/3/job-worker/tags/0.6.0/job-worker.html
r8911 r12012 163 163 <ul> 164 164 <li><a href="miscmacros.html">miscmacros</a></li> 165 <li><a href="misc-extn.html">misc-extn > 2.1</a></li>166 <li><a href="synch.html">synch 0.6</a></li></ul></div>165 <li><a href="misc-extn.html">misc-extn</a></li> 166 <li><a href="synch.html">synch</a></li></ul></div> 167 167 <div class="section"> 168 168 <h3>Documentation</h3> … … 418 418 <h3>Version</h3> 419 419 <ul> 420 <li>0.5 Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li> 420 <li>0.6.0 Use of "unsafe" record-type.</li> 421 <li>0.5 Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li> 421 422 <li>0.4 Removed unnecessary tests. Changes for synch 1.3</li> 422 423 <li>0.3 Changes for synch 0.6</li> -
release/3/job-worker/tags/0.6.0/job-worker.scm
r9526 r12012 296 296 (when vec (vector-set! vec idx obj) ) ) 297 297 298 (define- unchecked-record-typecircumstance298 (define-record-type/unsafe-inline-unchecked circumstance 299 299 (%make-circumstance id waiter data) 300 300 %circumstance? … … 303 303 (data %circumstance-data %circumstance-data-set!) ) 304 304 305 (define- unchecked-record-typechore305 (define-record-type/unsafe-inline-unchecked chore 306 306 (%make-chore id amount circumstance action data) 307 307 %chore? … … 312 312 (data %chore-data %chore-data-set!) ) 313 313 314 (define- unchecked-record-typelaborer314 (define-record-type/unsafe-inline-unchecked laborer 315 315 (%make-laborer id action data) 316 316 %laborer? … … 319 319 (data %laborer-data %laborer-data-set!) ) 320 320 321 (define- unchecked-record-typeassociate321 (define-record-type/unsafe-inline-unchecked associate 322 322 (%make-associate chore laborer remaining thread data) 323 323 %associate? -
release/3/job-worker/tags/0.6.0/job-worker.setup
r8911 r12012 3 3 (required-extension-version 4 4 'synch "1.3" 5 'misc-extn "3. 0"5 'misc-extn "3.2.0" 6 6 'miscmacros "2.4") 7 7 -
release/3/job-worker/tags/0.6.0/tests/job-worker-test.scm
r8911 r12012 13 13 (let-optionals ARGS ([CLSPRC #f] [SECS #f]) 14 14 (if CLSPRC 15 `(set! ,VAR (run-timeout- chore! ',VAR ,CLSPRC ,SECS))15 `(set! ,VAR (run-timeout-job! ',VAR ,CLSPRC ,SECS)) 16 16 `(associate-stop! ,VAR)) ) ) 17 17 … … 28 28 (define-constant WAIT-SECONDS 5.0) 29 29 30 #; 30 31 (define-test job-worker-test "Timeout Test" 31 32 (let ([timeout-associate #f] … … 45 46 ) 46 47 47 #; ; Pretty Output Version48 48 (define-test job-worker-test "Timeout Test" 49 49 (initial -
release/3/job-worker/trunk/job-worker-eggdoc.scm
r8911 r12012 38 38 (requires 39 39 (url "miscmacros.html" "miscmacros") 40 (url "misc-extn.html" "misc-extn > 2.1")41 (url "synch.html" "synch 0.6"))40 (url "misc-extn.html" "misc-extn") 41 (url "synch.html" "synch")) 42 42 43 43 (documentation … … 324 324 325 325 (history 326 (version "0.5" "Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.") 326 (version "0.6.0" "Use of \"unsafe\" record-type.") 327 (version "0.5" "Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.") 327 328 (version "0.4" "Removed unnecessary tests. Changes for synch 1.3") 328 329 (version "0.3" "Changes for synch 0.6") -
release/3/job-worker/trunk/job-worker.html
r8911 r12012 163 163 <ul> 164 164 <li><a href="miscmacros.html">miscmacros</a></li> 165 <li><a href="misc-extn.html">misc-extn > 2.1</a></li>166 <li><a href="synch.html">synch 0.6</a></li></ul></div>165 <li><a href="misc-extn.html">misc-extn</a></li> 166 <li><a href="synch.html">synch</a></li></ul></div> 167 167 <div class="section"> 168 168 <h3>Documentation</h3> … … 418 418 <h3>Version</h3> 419 419 <ul> 420 <li>0.5 Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li> 420 <li>0.6.0 Use of "unsafe" record-type.</li> 421 <li>0.5 Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li> 421 422 <li>0.4 Removed unnecessary tests. Changes for synch 1.3</li> 422 423 <li>0.3 Changes for synch 0.6</li> -
release/3/job-worker/trunk/job-worker.scm
r9526 r12012 296 296 (when vec (vector-set! vec idx obj) ) ) 297 297 298 (define- unchecked-record-typecircumstance298 (define-record-type/unsafe-inline-unchecked circumstance 299 299 (%make-circumstance id waiter data) 300 300 %circumstance? … … 303 303 (data %circumstance-data %circumstance-data-set!) ) 304 304 305 (define- unchecked-record-typechore305 (define-record-type/unsafe-inline-unchecked chore 306 306 (%make-chore id amount circumstance action data) 307 307 %chore? … … 312 312 (data %chore-data %chore-data-set!) ) 313 313 314 (define- unchecked-record-typelaborer314 (define-record-type/unsafe-inline-unchecked laborer 315 315 (%make-laborer id action data) 316 316 %laborer? … … 319 319 (data %laborer-data %laborer-data-set!) ) 320 320 321 (define- unchecked-record-typeassociate321 (define-record-type/unsafe-inline-unchecked associate 322 322 (%make-associate chore laborer remaining thread data) 323 323 %associate? -
release/3/job-worker/trunk/job-worker.setup
r8911 r12012 3 3 (required-extension-version 4 4 'synch "1.3" 5 'misc-extn "3. 0"5 'misc-extn "3.2.0" 6 6 'miscmacros "2.4") 7 7 -
release/3/job-worker/trunk/tests/job-worker-test.scm
r8911 r12012 13 13 (let-optionals ARGS ([CLSPRC #f] [SECS #f]) 14 14 (if CLSPRC 15 `(set! ,VAR (run-timeout- chore! ',VAR ,CLSPRC ,SECS))15 `(set! ,VAR (run-timeout-job! ',VAR ,CLSPRC ,SECS)) 16 16 `(associate-stop! ,VAR)) ) ) 17 17 … … 28 28 (define-constant WAIT-SECONDS 5.0) 29 29 30 #; 30 31 (define-test job-worker-test "Timeout Test" 31 32 (let ([timeout-associate #f] … … 45 46 ) 46 47 47 #; ; Pretty Output Version48 48 (define-test job-worker-test "Timeout Test" 49 49 (initial
Note: See TracChangeset
for help on using the changeset viewer.