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

Added rmpi-make-remote-config

Browse Source
This commit is contained in:
Kevin Tew 2013-01-16 06:13:52 -07:00
parent ed01f70872
commit c553ce9fa3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/place/distributed/rmpi.rkt
View File

@ -26,6 +26,7 @@
rmpi-partition rmpi-partition
rmpi-build-default-config rmpi-build-default-config
rmpi-make-localhost-config rmpi-make-localhost-config
rmpi-make-remote-config
rmpi-launch rmpi-launch
rmpi-finish rmpi-finish
(struct-out rmpi-comm)) (struct-out rmpi-comm))
@ -353,6 +354,12 @@
(list "localhost" (+ start-port i) (string->symbol (format "~a_~a" (symbol->string name) (number->string i))) (list "localhost" (+ start-port i) (string->symbol (format "~a_~a" (symbol->string name) (number->string i)))
i))) i)))
(define (rmpi-make-remote-config hostlist cnt start-port name)
(for/list ([i cnt]
[host hostlist])
(list host (+ start-port i) (string->symbol (format "~a_~a" (symbol->string name) (number->string i)))
i)))
(define (rmpi-alltoall comm outvec) (define (rmpi-alltoall comm outvec)
(match-define (rmpi-comm id cnt chs) comm) (match-define (rmpi-comm id cnt chs) comm)
(define-values (v! vr mkv vcopy) (define-values (v! vr mkv vcopy)