http://github.com/ArtemTitoulenko/GoForth/

マイノリティ言語好きのくせにForthはノーチェックだったのでちょっとググってみる。
日本語をForthにコンパイルする日本語プログラミング言語Mindという先達が今も気を吐いているのに驚いた(Mindで書かれた商用の全文検索がばりばり現役)
・・・ので、せっかくだから「擬似日本語=>Forth =>Goコード」というものをやってみようかと。

日本語は簡単な文字列の置換でそこそこforthコードを吐き出せるらしい。試しに書いてみた

—-(日本語コード)—#ループカウンタ「i」は事前定義とのこと

変数sum
0をsumに代入
50以下について、
      「sumを参照し、iと足して、sumに代入する。」
というループ。

—-(自動変換後のForthコード)—

$ cd $GOROOT/src

$ hg pull

$ hg update release

$ make all

http://github.com/hoisie/web.go

ビルドには、最新版のgolangが必要。特徴は、バイナリにコンパイルして実行するから高速とのこと。クリスマスイブの夜に、VPSでいきなり80番開放してテストしてみる。
今晩はハローワールドのみ。

package main

import (
    "fmt"
    "web"
)

func hello(val string) string {
 return fmt.Sprintf("こんにちは、世界 %s", val)
}

func main() {
    web.Get("/(.*)", hello)
    web.Run("0.0.0.0:80")
}

キモは、「web.Get(“/(.*)”, hello)」のところで、関数helloにurlの/以下のユーザーが入力した値が渡される。

• Golang開発チームからのクリスマスプレゼントで、プログラム中にセミコロンを書かかなくとも良くなった(ほとんどの場合)。省略ルールの詳細は押さえていないが、「スクリプト風言語」にいよいよGolangも仲間入りした気がするなぁ。

実行結果は以下の通り :
[入力]

http://MyDomain.jp/。メリークリスマス!!

[出力]
こんにちは、世界 。メリークリスマス!!

とりあえず、web.go、UTF-8でソースを書けば、日本語込みで動作するよ、との報告まで。
Sinatra風か・・・どうかはこれから検証予定(POSTも動作している模様)
・・・おそらく、web.go これからもけっこう変化するんだろうけれど、これからに期待ということで。

ありがたいことに、相当数の方にはてぶしていただいておりまして、年末のGo言語界隈の話題提供に多少お役に立てているかと思っています。

ただ、第一回目の内容は、２週間近く前に書いたものでして、今見返すと、「恥ずかしながら・・・」 な微妙な記載や誤りもありました　( 速報的に記事を書いた後、別件に関わっていたこともあり内容をあまり見直しができておらず・・・早速、ありがたいご指摘もいただきましたので、訂正できる部分は確認の上、訂正したいと思います)。

現在もGolangは楽しんで学ばせていただいておりまして、今後仕事の場でもGolangを使いはじめてみたいと思っています
(当初は、Perlなどのスクリプト言語と組み合わせてのバッチ処理記述に用いたいと思っています。・・・来年１年くらいかけて、もっと先までいけるといいなと、願いつつ)。

勉強を続けてまいりますので。連載記事の方、温かい目で眺めてもらえますと幸いです。
（むろん、誤りが見受けられる際には、ビシバシご指摘いただけますとありがたいです)。

それでは、今後ともよろしくお願いいたします。

[付記]

当サイトには、Golang・Goを検索キーワード経由で多数の方にお越しいただいています。本日は、加えて@IT誌のgolang記事からも多数の方にお越しいただいています。ちょっと気になって、オープン１月ほどの当サイトのアクセスについて、ブラウザのシェアを見てみたところ、以下のようになりました。

1. Firefox 49.18%
2. Chrome 17.95%
3. Internet Explorer 16.97%
4. Safari 8.94%
5. Opera 3.34%

興味深いことに、IEを若干押さえて、Chromeが上位にきています。Golangに興味を持つ方々にとっては、Chromeはすでにメジャーなブラウザであるようです(私もChrome/Safariユーザー)。

Chrome/Chrome OSのプラグイン等の記述に、golangが用いられる日はいつごろなのでしょうか・・・

functionとfuncがかぶるとかだけじゃなく、少なくともコードの見た目はけっこう似たもの同士かなと秘かに思っていたPHPとgolang。
しかも、PHP5.3は名前空間にクロージャPHP6.0ではユニコードと、PHPの将来はなんだかgolangな方(?)を向いている気が。
ついでに、国内golang一番手といって良いだろうmoriyoshi氏は、Python界隈だけなく、PHP を魔改造して「いじり」倒しているPHP界隈の人でもある(氏の肉声はこちら・・・勉強になるので、ブログ書きながら肉声でお勉強(以下、勝手に「★」で割り込ませる)。)。・・・逆にruby界隈からgolnagに攻めてきている人はいないなぁ。

★そっか、PHPはテンプレートエンジンなのか。SAPIモジュールとか、なんも知らんかったなぁ。

ということで、PHP5.3記事をgolang視点で見てみた・・・ら、やっぱりけっこう似ているぞ。ということで、調子に乗って、シリーズ化してしまおう。

★TSRMというのが、マルチスレッド化に関与しているのか　@ ZendEngineと。

元のPHPソースを引用。はじめに無名関数。
※　<?php～?>の部分はうまく表示されないようなので、省略。

$fruits = array(
  "lemon"=>156, "orange"=>210, "banana"=>180, "apple"=>343);
array_walk($fruits,function($price,$name) {
 echo $name.':'.$price.PHP_EOL; });

ここで、array_walkは、配列の各要素に対して、 関数で定義した操作をする(いわゆるmap 関数)。　参考サイト　PHPの配列関連の処理についての解説

ほぼそのままgolangに移すと :

package main
import ("fmt";)

func main() {
  fruits := map[string] int {
    "lemon":156, "orange":210, "banana":180, "apple":343
  };
  for key ,val := range fruits {
    func (price int, name string)    {        //無名関数の宣言
        fmt.Printf("%sは、%d円\n",name,price)    //無名関数の本体
    } (val,key)                               //無名関数への引数
  }
}

[実行結果]
C:\go-win\mysrc>.\8.exe
bananaは、180円
orangeは、210円
appleは、343円
lemonは、156円

★PHPのコンパイラーの動作・・・Lexerがトークンに分割。

次に、レキシカル変数の例を引用。use・・・を使うことが、PHP5.3的なレキシカル変数では必要とのこと。

function sum_includes_tax($items, $tax) {
  $total = 0;
  array_walk($items,
    function($price,$name) use (&$total, $tax)
    {
      echo $name.':'.$price.'('.(int)($price*$tax).')'.PHP_EOL;
      $total += ($price+(int)($price*$tax));
    }
  );
  return $total;
}

$items = array(
  "lemon"=>100, "orange"=>200, "banana"=>300, "apple"=>400);
$total = sum_includes_tax($items, 0.05);
echo 'TOTAL:'.$total.PHP_EOL;

ほぼそのままgolangに移すと :

package main
import ("fmt";)

func sum_includes_tax(items map[string] int, tax float) int     {
  //レキシカル変数 : total
  total := 0;
  for k ,v := range items {
    func(price int, name string) {
       pt := int (float (price) * tax);
       fmt.Printf("%sは、%d円(税%d円)\n",name,price,pt);
       total += (price+ int (pt) );
    }(v,k)
  };
  return total;
}

func main() {
  items := map[string] int {
    "lemon":100, "orange":200, "banana":300, "apple":400
  };
  total := sum_includes_tax(items, 0.05);
  fmt.Printf("合計、税込み%d円\n",total);
}

[実行結果]
C:\go-win\mysrc>.\8.exe
bananaは、300円(税15円)
orangeは、200円(税10円)
appleは、400円(税20円)
lemonは、100円(税5円)
合計、税込み1050円

★おおっ、でも、moriyoshi氏は、PHPをRubyっぽく改造しだしたぞ。すげー。

PHP5.3見るついでに、CodeIgnighter1.7.2あたりのバックエンドにgolang-redisを持ってきてみようと思っている今日この頃。続く。

package main
import ("fmt"; "strconv";"flag";)

func main(){
  flag.Parse();
  mp := make(map[string]string);

  if flag.NArg() != 0 {
    for i := 0; i < flag.NArg(); i++ {
	  mp[flag.Arg(i)] = "会員番号"+strconv.Itoa(i)
    } 

    for k,v := range mp {
    	fmt.Printf("%sは、%s\n",k,v)
    }
  }
}

C:\go-win\mysrc>.\8.exe taro jiro sabu
sabuは、会員番号2
taroは、会員番号0
jiroは、会員番号1

当然だけど、mapは順序の方は保証されないね。

package main

import ("fmt"; "strconv";)

func main() {
  //クロージャで参照される変数。
  minimum := 20;
  count := 0;
  //クロージャの定義
  logic := func(age int) (b bool) {
    if age >= minimum {
        b = true;
        count ++;
    } else {b = false}
    return b;
  };

  check(logic);
  fmt.Println("成人は、" + strconv.Itoa(count) + "人。")
}

func check(logic func(int) bool) {
    group := map[string] int {
                "佐々木": 16,
                "藤原": 20,
                "橘": 16,
                "周防": 99,
        };

  for key ,val := range group {
    if logic(val)  {
        fmt.Println(key+"は成人")
    };
  }
}

[実行結果]
C:\go-win\mysrc>.\8.exe
周防は成人
藤原は成人
成人は、2人。

前回、質実剛健宣言したわりにはまたも軟弱なコードだが、Print文の手直ししての再コンパイル～リンク～実行終了まで0.1秒くらいしかかからなかったことに今さらながら感動したのでコードと実行結果をさらしておく。Golang、Pascalを彷彿させるとかいう古典的な文法を持ちながら、XMLライブラリは相当モダンで 「来たぜ21世紀的」。ちょっとそっけないけど、悪くない。やはり、golangには質実剛健に取り組みたくなる今日この頃。
参考サイト => こちらの方がぜんぜん質実剛健にやっておられるぞ。

package main

import ("fmt"; "flag"; "os"; "io";"xml";)

type Member struct {
    Name string;
    Org string;
    Char string;
}

type Meibo struct {
    GroupName string;
    Member []Member;
}

func main() {
  flag.Parse();
  if flag.NArg() == 0 {
    fmt.Printf("using: %v filename\n", os.Args[0]);
  } else {
    name := flag.Args()[0];
    byt, err := io.ReadFile(name);
    if byt == nil {
      fmt.Fprintf(os.Stderr, "えらー%v\n", err);
      os.Exit(1);
    }
    fmt.Println("---------------- バイト列として表示 ----------------");
    fmt.Printf("%v \n",byt);
    fmt.Println("----------------- 文字列として表示 ---------------");
    fmt.Println(string(byt)); // case from []byte ro string ?

    // XMLとしての解析
    var result Meibo;
    op_file, err := os.Open( name, os.O_RDONLY, 0 );
    if err != nil {
        op_file.Close();
        fmt.Printf( "patch file open Error!\n" );
    }
    xml.Unmarshal( op_file, &result ) ;

    fmt.Println("---------------- XMLとしての解析結果 ----------------");
    fmt.Printf( "組織「%s」の会員概要\n", result.GroupName);
    for i, p := range result.Member {
        fmt.Printf( "団員番号%d:　「%s」は「%s」に属している%s\n", i, p.Name ,p.Org, p.Char);
    }
  }
}

[sos.xmlを解析する実行結果]

C:\go-win\mysrc>.\8.exe sos.xml
---------------- バイト列として表示 ----------------
[60 63 120 109 108 32 118 101 114 115 105 111 110 61 34 49 46 48 34 32 101 110 9
9 111 100 105 110 103 61 34 85 84 70 45 56 34 63 62 13 10 60 109 101 105 98 111
62 13 10 32 32 32 32 32 32 32 32 32 60 103 114 111 117 112 110 97 109 101 62 231
 149 165 227 129 151 227 129 166 83 79 83 229 155 163 60 47 103 114 111 117 112
110 97 109 101 62 13 10 32 32 32 32 32 32 32 32 32 60 109 101 109 98 101 114 62
13 10 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 60 110 97 109 101 62 23
3 149 183 233 150 128 230 156 137 229 184 140 60 47 110 97 109 101 62 13 10 32 3
2 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 60 111 114 103 62 230 131 133 229
 160 177 231 181 177 229 144 136 230 128 157 229 191 181 228 189 147 60 47 111 1
14 103 62 13 10 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 60 99 104 97
114 62 229 174 135 229 174 153 228 186 186 60 47 99 104 97 114 62 13 10 32 32 32
 32 32 32 32 32 32 60 47 109 101 109 98 101 114 62 13 10 32 32 32 32 32 32 32 32
 32 60 109 101 109 98 101 114 62 13 10 32 32 32 32 32 32 32 32 32 32 32 32 32 32
 32 32 32 60 110 97 109 101 62 230 156 157 230 175 148 229 165 136 227 129 191 2
27 129 143 227 130 139 60 47 110 97 109 101 62 13 10 32 32 32 32 32 32 32 32 32
32 32 32 32 32 32 32 32 60 111 114 103 62 231 166 129 229 137 135 228 186 139 23
3 160 133 60 47 111 114 103 62 13 10 32 32 32 32 32 32 32 32 32 32 32 32 32 32 3
2 32 32 60 99 104 97 114 62 230 156 170 230 157 165 228 186 186 60 47 99 104 97
114 62 13 10 32 32 32 32 32 32 32 32 32 60 47 109 101 109 98 101 114 62 13 10 32
 32 32 32 32 32 32 32 32 60 109 101 109 98 101 114 62 13 10 32 32 32 32 32 32 32
 32 32 32 32 32 32 32 32 32 32 60 110 97 109 101 62 229 143 164 230 179 137 228
184 128 230 168 185 60 47 110 97 109 101 62 13 10 32 32 32 32 32 32 32 32 32 32
32 32 32 32 32 32 32 60 111 114 103 62 231 181 132 231 185 148 60 47 111 114 103
 62 13 10 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 60 99 104 97 114 62
 229 174 135 229 174 153 228 186 186 60 47 99 104 97 114 62 13 10 32 32 32 32 32
 32 32 32 32 60 47 109 101 109 98 101 114 62 13 10 32 60 47 109 101 105 98 111 6
2]
----------------- 文字列として表示 ---------------
<?xml version="1.0" encoding="UTF-8"?>
<meibo>
         <groupname>略してSOS団</groupname>
         <member>
                 <name>長門有希</name>
                 <org>情報統合思念体</org>
                 <char>宇宙人</char>
         </member>
         <member>
                 <name>朝比奈みくる</name>
                 <org>禁則事項</org>
                 <char>未来人</char>
         </member>
         <member>
                 <name>古泉一樹</name>
                 <org>組織</org>
                 <char>超能力者</char>
         </member>
</meibo>
---------------- XMLとしての解析結果 ----------------
組織「略してSOS団」の会員概要
団員番号0:　「長門有希」は「情報統合思念体」に属している宇宙人
団員番号1:　「朝比奈みくる」は「禁則事項」に属している未来人
団員番号2:　「古泉一樹」は「組織」に属している超能力者

package main

import "fmt";
import "container/vector";

func main() {
	vec := vector.NewStringVector(0);
	vec.Push("abc");
	vec.Push("DEF");
	vec.Push("ghi");
	vec.Push("いろは");
	vec.Push("ニホテト");
    fmt.Printf("StringVectorの中身\n　:　%s\n",vec);

    slc := vec.Data(); //Data()の返り値がsliceとなる
    fmt.Println("StringVectorの中身をsliceで取り出しrangeでつなげる");
    for i,s :=range slc { fmt.Printf("%d:%s\n",i,s)}
    for _,s :=range slc { fmt.Print(s)}
}

[結果]　★go-windowsで実行
StringVectorの中身
　:　%s(*vector.StringVector=&{{[abc DEF ghi いろは ニホテト]}})
StringVectorの中身をsliceで取り出しrangeでつなげる
0:abc
1:DEF
2:ghi
3:いろは
4:ニホテト
abcDEFghiいろはニホテト

—————–
コピペミスなどで、制限時間オーバー、、。次回から６０分以内で学ぶにしよう・・・

注意　以下、windows-vistaでの例

1. コマンドライン(cmd.exe)でMSゴシックなどが使えるようにしておく (たとえば、このあたりを参考にさせていただきつつ)。
   ※レジストリをいじり、再起動する必要がある
2. こちらから、go-1.zipをダウンロードし解凍先を決めて、解凍。
3. 解凍先にコマンドラインのショートカットを作る。
4. 「３」で作成したショートカットを右クリックし、起動時の文字コードをutf-8とする。具体的には、リンク先を「%SystemRoot%\system32\cmd.exe /f:on /k “chcp 65001″」と変更する(ついでに作業フォルダも決めておくと良い。)
5. お試しの人は、作業フォルダに以下の 内容のバッチファイル(例、g.bat)を作成し、保存する

    set GOROOT=C:\go-win
    set GOOS=mingw
    set GOARCH=386

   [追記] mingw(Windows版GNU C)のインストールはコメントに指摘してくださった方の言う通り不要。

6. 以下の内容のファイル(例、hi.go)をutf-8で作成し、保存する

   package main
   import "fmt"
   func main() {
     fmt.Printf("こんにちは、世界!!\n")
   }

7. コマンドラインに入り、PATHのgoのbinを追加(例、PATH=%PATH%;C:\go-win\bin)
8. ５で設定したバッチファイル(例、g.bat)を実行
9. いよいよ、コンパイル&リンク&実行

   C:\go-win\mysrc>8g hi.go
   C:\go-win\mysrc>8l -o hi.exe hi.8
   C:\go-win\mysrc>hi.exe
   こんにちは、世界!!

※　５と７は、環境変数に設定してしまう手もある。
※　(レジストリとか分かっているひと向け) 例えば、コマンドラインで以下(実際は一行)をタイプ一発でMSゴシックがcmd.exeに追加されるはず。自分の好きなフォントを追加するもご自由に。その前にレジストリのバックアップはしておこうね。

 reg add "HKLM\Software\Microsoft\Windows NT
\CurrentVersion\Console\TrueTypeFont" /v "0."
 /t "REG_SZ" /d "MS Gothic"

ともあれ、goのコンパイルはwindows版でも極めて高速なことだけは気持ちが良いので、興味ある方はがんばってトライしてみてください。
ライブラリの互換性などの報告はそのうちに。いやはや、タイトルに「!!」をつけた割には、歯切れの悪いエントリー、失礼。