lune-sta

(define v (flvector 0.0 1.0 2.0 3.0 4.0
0.1 1.1 2.1 3.1 4.1
0.2 1.2 2.2 3.2 4.2
0.3 1.3 2.3 3.3 4.3
0.4 1.4 2.4 3.4 4.4))

(fork-join 5 cg ()
(for ([i (in-range 5)])
(CGpipeline cg prev-value 0.0
(define idx (+ (* i 5) (CG-id cg)))

lune-sta

(define-syntax-rule
  (CGpipeline cg prev-value init-value body ...)
  (match cg
  [(CG id np pls)
   (define (send-value v)
     (place-channel-put (list-ref pls (add1 id)) v))
   (define prev-value
    (if (= id 0)
      init-value
      (place-channel-get (car pls))))

lune-sta

class ForkJoin < Algorithm

  def initialize()
    @protocol = Protocol.new(...)
    ...
  end

  def protocol()
    ...
  end

lune-sta

set_trace_func lambda {|*arg|
  p arg
}

p "こころぴょんぴょん！"

lune-sta

#!/usr/bin/env ruby
# -*- coding: utf-8 -*

require_relative "../ixia"

def compile(job)
end

ps = (0..$master.processor_count).map do |i|
  Place.new do

lune-sta

#lang racket
(require "job-queue.rkt")
(define (main)
  (define ps ;list of place descriptors
    (for/list ([i (processor-count)])
      (place ch
        (let worker ()
          (place-channel-put ch ’get-job)
          (match (place-channel-get ch)
            [’done (void)]

lune-sta

#!/usr/bin/env ruby
# -*- coding: utf-8 -*

require_relative "../ixia"

p = Place.new("abc", 123) do |a, b|
  puts a
  puts b
end

lune-sta

Context property resource: com.cloud.agent.resource.consoleproxy.ConsoleProxyResource
Context property gateway: 10.0.0.1
Context property mgmtcidr: 10.0.0.0/16
Context property host.mac.address: 06:9a:34:00:07:b0
Context property eth1mask: 255.255.0.0
Context property type: consoleproxy
Context property eth0ip: 169.254.1.196
Context property internaldns1: 10.0.0.1
Context property eth2ip: 10.0.195.3
Context property port: 8250

lune-sta

Apr 20 13:47:33 v-42-VM kernel: imklog 5.8.11, log source = /proc/kmsg started.
Apr 20 13:47:33 v-42-VM rsyslogd: [origin software="rsyslogd" swVersion="5.8.11" x-pid="2886" x-info="http://www.rsyslog.com"] start
Apr 20 13:47:33 v-42-VM kernel: [    0.000000] Initializing cgroup subsys cpuset
Apr 20 13:47:33 v-42-VM kernel: [    0.000000] Initializing cgroup subsys cpu
Apr 20 13:47:33 v-42-VM kernel: [    0.000000] Linux version 3.2.0-4-amd64 ([email protected]) (gcc version 4.6.3 (Debian 4.6.3-15) ) #1 SMP Debian 3.2.41-2
Apr 20 13:47:33 v-42-VM kernel: [    0.000000] Command line: BOOT_IMAGE=/vmlinuz-3.2.0-4-amd64 root=UUID=89eb6b0a-5f5a-47cc-8bd1-371987c5700e ro debian-installer=en_US quiet
Apr 20 13:47:33 v-42-VM kernel: [    0.000000] BIOS-provided physical RAM map:
Apr 20 13:47:33 v-42-VM kernel: [    0.000000]  BIOS-e820: 0000000000000000 - 000000000009dc00 (usable)
Apr 20 13:47:33 v-42-VM kernel: [    0.000000]  BIOS-e820: 000000000009dc00 - 00000000000a0000 (reserved)
Apr 20 13:47:33 v-4

lune-sta

#!/usr/bin/ruby
# -*- coding: utf-8 -*

require_relative '../ixia'

p = Place.new do
  a = 'test2'
  host_place()
  puts a
  a = 'test3'