[9fans] Fwd: plan9 go output faults on 9vx with rfork

[ron minnich <rminnich@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 128 bytes --]

Pavel sent me sieve, and it is up to 11083 on my 9vx on darwin. I
declare go on 9vx on darwin fixed.

Linux is next.

ron

[-- Attachment #2: sieve --]
[-- Type: application/octet-stream, Size: 130480 bytes --]

[-- Attachment #3: sieve.go --]
[-- Type: application/octet-stream, Size: 1027 bytes --]

// $G $F.go && $L $F.$A  # don't run it - goes forever

// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package main

import "runtime"

// Send the sequence 2, 3, 4, ... to channel 'ch'.
func Generate(ch chan<- int) {
	for i := 2; ; i++ {
		ch <- i // Send 'i' to channel 'ch'.
	}
}

// Copy the values from channel 'in' to channel 'out',
// removing those divisible by 'prime'.
func Filter(in <-chan int, out chan<- int, prime int) {
	for {
		i := <-in // Receive value of new variable 'i' from 'in'.
		if i%prime != 0 {
			out <- i // Send 'i' to channel 'out'.
		}
	}
}

// The prime sieve: Daisy-chain Filter processes together.
func Sieve() {
	ch := make(chan int) // Create a new channel.
	go Generate(ch)      // Start Generate() as a subprocess.
	for {
		prime := <-ch
		print(prime, "\n")
		ch1 := make(chan int)
		go Filter(ch, ch1, prime)
		ch = ch1
	}
}

func main() {
	runtime.GOMAXPROCS(4)
	Sieve()
}