ch1-02: 添加例子代码

examples/ch1-02/hello-alef/hello.alef

@@ -0,0 +1,19 @@
+#include <alef.h>
+
+void receive(chan(byte*) c) {
+	byte *s;
+	s = <- c;
+	print("%s\n", s);
+	terminate(nil);
+}
+
+void main(void) {
+	chan(byte*) c;
+	alloc c;
+	proc receive(c);
+	task receive(c);
+	c <- = "hello proc or task";
+	c <- = "hello proc or task";
+	print("done\n");
+	terminate(nil);
+}

examples/ch1-02/hello-b/main.b

@@ -0,0 +1,8 @@
+main() {
+	extrn a, b, c;
+	putchar(a); putchar(b); putchar(c);
+	putchar('!*n');
+}
+a 'hell';
+b 'o, w';
+c 'orld';

examples/ch1-02/hello-c-01/hello-c-01.c

@@ -0,0 +1,4 @@
+main()
+{
+	printf("hello, world");
+}

examples/ch1-02/hello-c-02/hello-c-02.c

@@ -0,0 +1,4 @@
+main()
+{
+	printf("hello, world\n");
+}

examples/ch1-02/hello-c-03/hello-c-03.c

@@ -0,0 +1,6 @@
+#include <stdio.h>
+
+main()
+{
+	printf("hello, world\n");
+}

examples/ch1-02/hello-c-04/hello-c-04.c

@@ -0,0 +1,6 @@
+#include <stdio.h>
+
+main(void)
+{
+	printf("hello, world\n");
+}

examples/ch1-02/hello-go-200806/hello.go.txt

@@ -0,0 +1,8 @@
+// +build ignore
+
+package main
+
+func main() int {
+	print "hello, world\n";
+	return 0;
+}

examples/ch1-02/hello-go-20080627/hello.go.txt

@@ -0,0 +1,7 @@
+// +build ignore
+
+package main
+
+func main() {
+	print "hello, world\n";
+}

examples/ch1-02/hello-go-20080811/hello.go.txt

@@ -0,0 +1,5 @@
+package main
+
+func main() {
+	print("hello, world\n");
+}

examples/ch1-02/hello-go-20081024/hello.go.txt

@@ -0,0 +1,9 @@
+// +build ignore
+
+package main
+
+import "fmt"
+
+func main() {
+	fmt.printf("hello, world\n");
+}

examples/ch1-02/hello-go-20090915/hello.go.txt

@@ -0,0 +1,9 @@
+// +build ignore
+
+package main
+
+import "fmt"
+
+func main() {
+	fmt.Printf("hello, world\n");
+}

examples/ch1-02/hello-go-20091211/hello.go

@@ -0,0 +1,7 @@
+package main
+
+import "fmt"
+
+func main() {
+	fmt.Printf("hello, world\n")
+}

examples/ch1-02/hello-go-asm/hello.go

@@ -0,0 +1,3 @@
+package main
+
+func main()

examples/ch1-02/hello-go-asm/hello_amd64.s

@@ -0,0 +1,16 @@
+#include "textflag.h"
+#include "funcdata.h"
+
+// "Hello World!\n"
+DATA  text<>+0(SB)/8,$"Hello Wo"
+DATA  text<>+8(SB)/8,$"rld!\n"
+GLOBL text<>(SB),NOPTR,$16
+
+// func main()
+TEXT ·main(SB), $16-0
+    NO_LOCAL_POINTERS
+    MOVQ $text<>+0(SB), AX
+    MOVQ AX, (SP)
+    MOVQ $16, 8(SP)
+    CALL runtime·printstring(SB)
+    RET

examples/ch1-02/hello-go-cgo/hello.go

@@ -0,0 +1,13 @@
+package main
+
+// #include <stdio.h>
+// #include <stdlib.h>
+import "C"
+import "unsafe"
+
+func main() {
+	msg := C.CString("Hello, World!\n")
+	defer C.free(unsafe.Pointer(msg))
+
+	C.fputs(msg, C.stdout)
+}

examples/ch1-02/hello-go-swig/hello.cc

@@ -0,0 +1,5 @@
+#include <iostream>
+
+void SayHello() {
+	std::cout << "Hello, World!" << std::endl;
+}

examples/ch1-02/hello-go-swig/hello.go

@@ -0,0 +1,11 @@
+// +build ignore
+
+package main
+
+import (
+	hello "."
+)
+
+func main() {
+	hello.SayHello()
+}

examples/ch1-02/hello-go-swig/hello.swigcxx

@@ -0,0 +1,5 @@
+%module main
+
+%inline %{
+extern void SayHello();
+%}

examples/ch1-02/hello-go-v2/hello.go

@@ -0,0 +1,20 @@
+package main
+
+import (
+	"fmt"
+	"log"
+	"net/http"
+	"time"
+)
+
+func main() {
+	fmt.Println("Please visit http://127.0.0.1:12345/")
+	http.HandleFunc("/", func(w http.ResponseWriter, req *http.Request) {
+		s := fmt.Sprintf("你好, 世界! -- Time: %s", time.Now().String())
+		fmt.Fprintf(w, "%v\n", s)
+		log.Printf("%v\n", s)
+	})
+	if err := http.ListenAndServe(":12345", nil); err != nil {
+		log.Fatal("ListenAndServe: ", err)
+	}
+}

examples/ch1-02/hello-limbo/hello.limbo

@@ -0,0 +1,15 @@
+implement Hello;
+
+include "sys.m"; sys: Sys;
+include "draw.m";
+
+Hello: module
+{
+	init: fn(ctxt: ref Draw->Context, args: list of string);
+};
+
+init(ctxt: ref Draw->Context, args: list of string)
+{
+	sys = load Sys Sys->PATH;
+	sys->print("hello, world\n");
+}

examples/ch1-02/hello-newsqueak/hello.newsqueak

@@ -0,0 +1 @@
+print("Hello,", "World", "\n");

examples/ch1-02/prime-newsqueak/prime.newsqueak

@@ -0,0 +1,41 @@
+// 向管道输出从2开始的自然数序列
+counter := prog(c:chan of int) {
+	i := 2;
+	for(;;) {
+		c <-= i++;
+	}
+};
+
+// 针对listen管道获取的数列，过滤掉是prime倍数的数
+// 新的序列输出到send管道
+filter := prog(prime:int, listen, send:chan of int) {
+	i:int;
+	for(;;) {
+		if((i = <-listen)%prime) {
+			send <-= i;
+		}
+	}
+};
+
+// 主函数
+// 每个管道第一个流出的数必然是素数
+// 然后基于这个新的素数构建新的素数过滤器
+sieve := prog() of chan of int {
+	c := mk(chan of int);
+	begin counter(c);
+	prime := mk(chan of int);
+	begin prog(){
+		p:int;
+		newc:chan of int;
+		for(;;){
+			prime <-= p =<- c;
+			newc = mk();
+			begin filter(p, c, newc);
+			c = newc;
+		}
+	}();
+	become prime;
+};
+
+// 启动素数筛
+prime := sieve();