REBOLOGY

REBOL Docs in Chinese

2009-08-08T10:51:00.001+08:00

蔡民奎先生(刚好和我同姓氏)通过Google协作平台，成立「REBOL中文文档」项目，网址在
http://sites.google.com/site/cnrebol/

REBOL 3.0 Plug-in

2009-07-31T15:30:00.000+08:00

REBOL 3.0预计通过Plug-in，让我们可以扩充REBOL。我们用C语言开发一些功能，并通过Plug-in的作法，让它成为REBOL的一部分。

今天的消息，最新版的REBOL已经开始支持Plug-in了。据称，原生（native）的Plug-in速度可以很快，和REBOL内建的原生函数，只有5%的效能差距。

目前Plug-in的文件尚未写妥。不过我相信很快就可以在REBOL的文档库看到这份文件。

REBOL中文讨论群

2009-07-30T15:13:00.000+08:00

我最近开了一个REBOL讨论群，对REBOL感兴趣者，可以加入：

1. 如果你没有安装阿里旺旺，请下载并安装。（阿里旺旺是中国大陆占有率第二的即时通讯软件）

2. 注册一个阿里旺旺的帐号。

3. 加入REBOL群（群号为16626148）

A53释出

2009-05-12T17:56:00.000+08:00

A53释出，重点在完善模块和安全，以为支持插件作准备。

R52释出

2009-05-08T09:54:00.001+08:00

这个版本主要针对secure。此函数是用来控制sandbox的。

A51释出

2009-05-06T12:04:00.000+08:00

这个版本修正了相当多bug。

又一个专家回笼

2009-05-05T16:21:00.000+08:00

Maxim也是一个相当知名的REBOL专家，他也在2007年下半年消失。最近，他又出现在社群中，真是令人高兴。我希望REBOL更早期消失那一批专家也能陆续回来。

A50

2009-04-27T01:42:00.003+08:00

A50已經釋出，請到這裡下載。這個版本的變動，請看這個網頁的說明。

又一位大師歸隊了

2009-04-22T01:05:00.001+08:00

Carl以外，Ladislav是我最早注意到的REBOL大師，他對於程式語言的原理和REBOL語言有著相當深入的認識，並提出許多高明的見解。我過去從他的文章中學到許多知識。可惜後來他消失了好一陣子，沒人知道他跑哪兒去了。最近他又出現在REBOL社群中，真是令人感到高興。

A47釋出

2009-04-10T11:27:00.001+08:00

A46與A47，一天釋出兩個版本耶 !!!

A45釋出

2009-04-08T11:38:00.002+08:00

請到這裡下載A45。

主要的變動是: FIRST、SECOND、THIRD不再能作用在函數與物件上了。改用WORDS-OF、VALUES-OF、SPEC-OF、BODY-OF等函數。

A44釋出

2009-04-06T11:16:00.003+08:00

新增PROTECT/hide，透過使未來繫結(binding)失效或尋找失效的方式，隱藏變數。
新增UNBIND，將一區塊的單字解除繫結。此函數支援/deep修飾字。

A43釋出

2009-04-05T11:29:00.004+08:00

到此下載。主要是多了protect和unprotect的新功能。詳見下面兩篇文章:

Interesting insights from PROTECT
Read-only strings, blocks, and objects in A43

REBOLOGY一周年

2009-04-04T12:51:00.001+08:00

這個Blog已經整整一年了，這一年IT界發生許多事，我也發生許多事，但最重要的REBOL 3.0卻還沒有發生。

這個Blog成立的初衷，是想將我的REBOL經驗寫出來，希望對別人學習REBOL有幫助。但是後來我到北京工作之後，自由的時間比較少，所以這方面的文章就少了，反倒是寫比較多關於REBOL的近況報導。

我有一些程式想寫，但是這些程式必須透過REBOL 3.0才能完成。這些時間我也嘗試著接觸許多別的語言，但沒有別的語言可以取代REBOL在我心中的地位。一個都沒有。

也因此，我還是會繼續等待REBOL。只希望REBOL 3.0不要讓我等太久了。

A42釋出

2009-04-02T13:19:00.005+08:00

只有Windows版本，異動如下:

1. 提供PNG的decoder/encoder，和GIF的decoder。

2. 在DO-CODEC內部，為codec新增一個identify動作。(所以目前Codec具有三個動作，分別是encode、dedcode、idientify)

3. 為codec新增一個欄位(名為type)。

4. 新增ENCODING?函數: 給定一個binary!，找出可以識別它的codec。

5. 改進codec的錯誤處理。

6. 對LOAD進行較大的修改: load/next, load block (multi-load)...等。

A41版

2009-04-01T13:22:00.003+08:00

A41版釋出，只有Windows版，請到這裡取得。這個版本體積 "暴增" 35 KB，由533 KB增加到568 KB。

此版本異動如下：

1. 新增DECODE與ENCODE函數

2. 新增了編碼解碼器清單（system/catalog/codecs）

3. 修改SAVE與LOAD函數，使其可以依據副檔名做格式判斷。

4. 加入兩個內部codecs：BMP（decode/encode）、JPEG（decode）

5. 開始對外部codec做一些準備工作（預計下一版釋出，讓用戶自行開發codec）

R3 A40釋出

2009-03-28T00:22:00.003+08:00

請到此處取得。

從R3 A40開始，同時提供Windows、Linus、MacOS X的版本。請注意，目前只有Windows版本才有圖形介面。

最近module功能似乎已經接近尾聲，快要竣工。有了module功能，未來REBOL將會比較適合開發大型應用。

ASSERT函數

2009-03-23T11:27:00.002+08:00

許多語言都有ASSERT函數，而我們現在也終於有ASSERT函數了...太好了！

RUG@China的構想

2009-03-14T23:15:00.002+08:00

我記得以前任職的某公司總經理說過一句話:　我們公司的技術很好，就只是不會行銷。不會行銷，那技術再好有甚麼用?而我覺得REBOL就是屬於不懂得行銷的好技術。

以往要在CJK地區推廣REBOL，有實質上的困難，畢竟REBOL不支援Unicode。但是REBOL 3.0會全面支援Unicode，中文的處理已經不成問題，所以我有一點想要組織大中國區的REBOL User Group (RUG@China)，來幫助推廣REBOL。不過現在的時機好像還不太成熟，或許我應該等REBOL 3.0真正釋出之後才行動。但是要等REBOL 3.0真正釋出，恐怕還得等上好一陣子，至少今年上半年是沒機會的。

R3三月的進度

2009-03-11T15:55:00.002+08:00

REBOL語言設計者Carl Sassenrath最近公布了REBOL 3.0在二月份的進展與三月份的預計進度。比較值得一提的是:R3 Host原始碼有機會在本月釋出。為了要很好地隔離lib和Host，Carl會提前進行Rebin，而且R3 Plugin也可能會因此提前釋出。

REBOL 3.0文件結構說明

2009-02-25T03:19:00.001+08:00

REBOL是一個好語言，但是它的文件一直都不足，這相當於為初學者設下學習障礙。REBOL 3.0即將改變這一點，你可以在這一篇文章中看到Carl對新文件的目標。

REBOL/SDK

2009-02-21T00:06:00.001+08:00

工作上，我經常需要寫程式。只要能用REBOL寫的程式，我就不會用其他語言。用REBOL寫的程式，可以透過REBOL/SDK包裝成exe檔。包裝出來的exe檔案，體積不大，一般都只有一百多K到幾百K。

REBOL/SDK是要付費的軟體（但未來REBOL 3.0似乎會全部免費），你可以在此網頁看到它的說明。目前REBOL/SDK只支援到2.7.6版的REBOL，尚未支援REBOL 3.0（畢竟3.0尚未正式完成）。

REBOL Docs in WIP Wiki

2009-02-19T17:21:00.004+08:00

根據這篇文章，Carl正在整理REBOL 3.0的文件，以WIP Wiki的方式進行。你可以從這裡看到這份文件，目前只有框架，內容尚未填滿。未來你將可以透過它學習REBOL 3.0。

REBOL之歌

2009-02-17T06:27:00.004+08:00

有位熱誠的REBOL愛好者，編寫了一首REBOL之歌。歌詞在這裡。MP3檔案在這裡。從歌詞中可以看出他對諸多語言不滿（C, Delphi, Java, C#, Python, Lua, Ruby...），只喜歡REBOL。

REBOL 3.0文件重整

2009-02-15T12:52:00.001+08:00

目前DocBase的文件結構混亂，內容新舊夾雜。隨著REBOL 3.0的基本功能大致底定，REBOL 3.0的文件有開始整理的必要。

最近REBOL公司CTO Carl正在重整REBOL 3.0的文件，他表示，有良好的文件才可以讓REBOL的使用者增多。他已經花了一個星期的時間做這件事，但由於資料量很多，所以工程浩大。儘管如此，他已經取得相當不錯的成果，會陸續開始公開整理過的文件。

REBOL 3.0在許多平台上的版本

2009-02-10T00:00:00.003+08:00

除了Windows之外，最近的消息是，至少下面的平台也可以運行REBOL 3.0了：

Ubuntu
Syllable Server
Zenwalk
ZevenOS
MacOS X/Intel
Linux/Fedora
...

R3 Core on Linux and Mac OS X

2009-02-05T16:00:00.002+08:00

REBOL 3.0的核心部分已經編譯出Linux版本以及MacOS X版本。相關新聞請見下面這三篇文章。
Looking for Linux C code...
Test releases for OS X and Linux now available
- Status: Linux running R3 - message in a bottle

A Great REBOL Book

2009-02-03T02:32:00.003+08:00

REBOL - A Programmer's Guide

Alpha 33的GUI測試程式

2009-01-28T23:22:00.008+08:00

Alpha 33版本多了一個Demo函數。執行這個函數，就可以看到REBOL的GUI測試程式。提醒你，REBOL的GUI可以切換Skin（表皮），目前由於是開發階段，所以使用的表皮以明亮、反差大為主（以幫助找出缺陷），所以並不美觀。等到正式版時，會改用漂亮的配色。我相信REBOL美術設計專家Henrik正在為我們設計各種漂亮的表皮。

由於是Alpha版，所以這個GUI程式還很容易當機。但無論如何，還是可以展示目前VID設計好的一些元件。另外，你也可以拿一年前的展示程式來執行（例如老虎頭向量繪圖），一樣不會有問題。

REBOL版本更新

2009-01-28T23:10:00.003+08:00

提醒你，就在不久前，Alpha 33已經出來了。要如何將你原本的32版更新到新版本呢？你可以透過upgrade函數。

REBOL早在2.x就內建upgrade函數，目前REBOL 3.0也已經內建upgrade函數，你可以利用這個函數判斷目前的版本是否為最新版。如果有更新的版本，REBOL會問你是否要取得新版本，輸入「y」，按下「Enter」，即可自動下載。目前REBOL 3.0將下載回來的新版本放在「updates」檔案夾中。

REBOL 3.0 Chat 暫時不支援中文

2009-01-28T14:06:00.001+08:00

REBOL 3.0內建開發人員溝通的功能，只要在Console輸入Chat即可進入聊天模式。雖然REBOL 3.0已經支援在Console中使用中文（Unicode），但是目前由於聊天伺服器是採用REBOL 2.x所開發的，而REBOL 2.x不支援Unicode，所以限制我們只能使用英文，不能使用中文。為此REBOL公司暫時關閉Chat功能，將對這部分做出修正之後，再行開放。

新春賀禮：REBOL 3.0 Alpha可以下載了

2009-01-27T13:41:00.008+08:00

中國和台灣的大年初二，美國時間還是在大年初一，REBOL公司宣布可以下載REBOL 3.0 Alpha。今天距離上次公開的Alpha版本（2008/1/8），整整一年了。這一年來REBOL 3.0有了相當大的進展，特別是在Unicode和VID方面。

如果你想下載最新的REBOL 3.0，點選 r3-view-a32.exe。說明頁面在這裡還有這裡。使用前請看下面的注意事項：

此軟體僅供測試用途（This software is for testing purposes only）
官方對此軟體沒有任何保證（There is no warranty of any kind）
使用者必須風險自負（Use it entirely at your own risk）
目前尚未具有沙箱的安全機制（It has no sandbox (file/net restrictions) at this time）

使用此軟體提前熟悉與學習REBOL 3.0，但是不要拿它做重要的事（其實經過一年多的測試，已經相當穩定了）。另外，由於沒有沙箱，所以不要利用它執行來路不明的REBOL Script。

中文的讀者在使用R3過程中，有任何問題，歡迎和我討論。

調用外部函數

2009-01-26T14:00:00.002+08:00

REBOL可以做很多事，但有些時候，某些事必須調用外部DLL的函數才能完成。在REBOL 2.x中，調用外部函數的方法只有一種。REBOL 3.0似乎會提供更多種方式。你可以在這個網頁中看到更多這方面的討論。

REBOL 3.0 Alpha的近況報告

2009-01-23T15:54:00.003+08:00

有人向我索取REBOL 3.0 Alpha的最新版。但是由於我沒有散播此軟體的權力，所以愛莫能助，相當抱歉。

Alpha版目前僅由少數人測試，根據內部的溝通狀況來看，應該會在一兩個月後釋出給公眾。目前你可以閱讀這個網站，獲取一些新版的功能，預先做準備。

從這裡所公布的資訊來看，目前還有一些重要的資料型別尚未完成。所以正式版恐怕需要更久的時間。「請耐心等待！」（這句話也是說給我自己聽的。）

REBOL內部文件中文化

2009-01-15T12:23:00.003+08:00

我已經差不多翻譯完畢REBOL的內部說明文件，且已經更新到最新版REBOL 3.0 Alpha 2.100.30.3.1。

REBOL 3.0 Alpha 30

2009-01-13T12:01:00.003+08:00

REBOL公司今天正式向整個Alpha團隊釋出新版本。當我們測試告一個段落之後，REBOL公司會修正這些瑕疵，然後才向大家釋出。請耐心等候。

REBOL 3.0的腳步近了

2009-01-09T12:16:00.001+08:00

這些年來我努力讓REBOL在中文地區曝光，顯然效果出來了。目前最關注REBOL的地區中，中國排名第六，台灣第十一。

最近的諸多跡象顯示，REBOL 3.0（簡稱R3）即將有一些好消息。我在此向大家分享：

R3的VID已經開發接近完成。
正在開發溝通機制，將內建在R3中
即將展開比較大規模的測試（可能還是屬於Alpha Test）。規模多大，仍不確定，可能僅限於我們Alpha Team，但即使如此，我還是會在此提前做一些測試報導
Cyphre可能於一月開始寫Unicode字型引擎的程式碼，這是我最感興奮的新聞，這將會解決我長久以來的困擾。

Get Windows Information in REBOL 2.x

2008-12-26T11:47:00.003+08:00

寫了一段REBOL 2.x程式, 可以用來進行許多OS相關的判斷.


Kernel32.DLL: load/library %Kernel32.dll

MultiByteToWideChar: make routine! [
    CodePage     [ int ]   ; 65001 for UTF-8
    Flags        [ int ]         
    MultiByteStr [ char* ] 
    MultiByteLen [ int ] 
    WideCharStr  [ char* ]  
    WideCharLen  [ int ]        
    return:      [ int ] 
] Kernel32.DLL "MultiByteToWideChar" 

User-profile: dirize to-rebol-file get-env "Userprofile"

make-sure-c-string: func [ str [ string! ] ] [
    if #"^@" <> last str [ append str #"^@" ]
]

get-wide-str: func [ str [string!] /local tmp ans ] [
    make-sure-c-string str
    insert/dup tmp: copy "" #" " 2 * length? str
    MultiByteToWideChar 65001 0 str -1 tmp length? tmp
    ans: copy/part tmp any [ 
        attempt [ skip find tmp "^@^@^@" 3 ] 
        attempt [ skip find tmp "^@^@"   2 ]
        tail tmp
    ]
]

GetWindowsDirectory: make routine! [
    Buffer  [ char* ]
    Size    [ int   ]
    return: [ int   ]
] Kernel32.DLL "GetWindowsDirectoryA" 

insert/dup buffer: copy "" #" " 200

GetWindowsDirectory buffer length? buffer
OS-drive: rejoin [ %/ copy/part buffer find buffer ":\" "/" ]

make-elements: func [name count type /local result][
    if not word? type [type: type?/word type]
    result: copy "^/"
    repeat i count [
        append result join name [i " [" type "]" newline]
    ]
    to block! result
]

OS-VERSION-INFO-EX: make struct! OS-VERSION-INFO-EX-SPEC: compose/deep [
    OSVersionInfoSize [ int ]
    MajorVersion      [ int ]
    MinorVersion      [ int ]
    BuildNumber       [ int ]
    PlatformId        [ int ]
    (make-elements 'ch 128 #"@") 
    ServicePackMajor [ short ]
    ServicePackMinor [ short ]
    SuiteMask        [ short ]
    ProductType      [ char ]
    Reserved         [ char ]
] none

OS-VERSION-INFO-EX/OSVersionInfoSize: 148 + 8

GetVersionEx: make routine! [
    VersionInfo [ struct! [ (OS-VERSION-INFO-EX-SPEC) ]]
    return:     [ integer! ]
] Kernel32.dll "GetVersionExA"

GetSystemDefaultLCID: make routine! [
    return:     [ integer! ]
] Kernel32.dll "GetSystemDefaultLCID"

GetLastError: make routine! [
    return: [ int ]
] Kernel32.DLL "GetLastError"

if zero? GetVersionEx OS-VERSION-INFO-EX [
    alert rejoin [ {Error When Calling "GetVersionEx". Error Code =} GetLastError ]
    exit
]

os-ver: rejoin [OS-VERSION-INFO-EX/MajorVersion "." OS-VERSION-INFO-EX/MinorVersion]
;SP?: OS-VERSION-INFO-EX/ServicePackMajor

sp: to-string copy/part at third OS-VERSION-INFO-EX 21 128
sp: copy/part sp find sp #"^@"

Win-Vista?: Win-2003?: Win-XP?: Win-2000?: false
OS?: switch/default os-ver [
    "6.0" [ Win-Vista?: true "Win-Vista"]
    "5.2" [ Win-2003?:  true "Win-2003" ]
    "5.1" [ Win-XP?:    true "Win-XP"   ]
    "5.0" [ Win-2000?:  true "Win-2000" ]
] [ none ]

SP0?: SP1?: SP2?: SP3?: SP4?: false 

sp?: switch sp [
    ""               [ SP0?: true 0  ] 
    "Service Pack 1" [ SP1?: true 1  ]
    "Service Pack 2" [ SP2?: true 2  ]
    "Service Pack 3" [ SP3?: true 3  ]
] 

HOME-Ed?: not zero? (OS-VERSION-INFO-EX/SuiteMask and 512)
EMBEDDED-Ed?: not zero? (OS-VERSION-INFO-EX/SuiteMask and 64)

zh-TW?: zh-CN?: zh-HK?: zh-MO?: zh-SG?: ja-JP?: ko-KR?: vi-VN?: th-TH?: false

lang?: switch/default skip to-hex GetSystemDefaultLCID 4 [
    #0404 [
        zh-TW?: true "zh-TW"
    ]
    #0804 [
        zh-CN?: true "zh-CN"
    ]
    #0c04 [
        zh-HK?: true "zh-HK"
    ]
    #1404 [
        zh-MO?: true "zh-MO"
    ]
    #1004 [
        zh-SG?: true "zh-SG"
    ]
    #0411 [
        ja-JP?: true "ja-JP"
    ]
    #0412 [
        ko-KR?: true "ko-KR"
    ]
    #042a [
        vi-VN?: true "vi-VN"
    ]
    #041e [
        th-TH?: true "th-TH"
    ]
] [ none ]

利用Delect設計方言

2008-12-25T11:03:00.001+08:00

REBOL具有豐富的Literal，除了可以提高程式的「可讀性」和「可寫性」之外，也可以方便設計方言（dialect，也就是所謂的DSL）。這一點是其他語言遠比不上REBOL的。

以往，設計REBOL方言的方式，是利用Parse函數。在REBOL 3.0之後，又多了一個方式，就是利用Delect。Delect是DEcode diaLECT的意思。REBOL內部的方言，許多都是利用Delect做出來的。

大多數的方言，都會定義一些關鍵字（keyword）。每個關鍵字後面可以有0到多個參數。有些時候，這些參數出現的次序無所謂，因為透過型別就可以推測出參數的意義。例如：「Circle 100x100 50」與「Circle 50 100x100」，雖然100x100和50的出現次序不同，但是都可以讓我們認為這是要表達一個「圓心在100x100」，半徑是50的圓。所以處理這類方言的時候，值的次序不重要，重要的是值的型別，這種方言用Delect設計會相當容易。

良好的方言，應該要方便學習與使用。放寬參數的次序，可以幫助使用者學習與使用方言。以上面的Circle例子來說，使用者就不需要牢記，到底是先寫半徑再寫圓心，還是先寫圓心再寫半徑。

關於Delect的用法，請見DocBase的這篇說明。我以後也會寫文章說明Delect的詳細用法。

A C++ Parser in REBOL

2008-12-12T13:48:00.000+08:00

It's here. http://jerrylovesrebol.blogspot.com/2008/12/c-parser.html

REBOL 3.0 alpha 18

2008-12-02T09:54:00.000+08:00

這個版本新加入三名核心測試成員。未來在修正完畢他們所找到的Bug之後，將會更廣泛地釋出，讓更多人試用。關於2008/11與2008/12的進展與規劃，請見這篇文章。

文法剖析器

2008-12-01T16:09:00.002+08:00

昨天晚上整理磁碟機，找到一個很久以前用REBOL寫的一個程式：「文法剖析器」。我希望在REBOL 3.0釋出之後，能有時間重寫這個程式，並完善它。

RebTalk

2008-12-01T15:33:00.001+08:00

REBOL語言設計者Carl今天對GUI Test World釋出新版的REBOL 3.0，並開發了一個名為RebTalk的Reblet程式。這是REBOL 3.0的第一個Reblet。

Jerry Tsai-Certified REBOL Programmers

2008-11-28T13:46:00.006+08:00

I've been training my programmers for REBOL programming. After they finish my REBOL course, I would like to give them certifications like this.

I hope that some day I will have a REBOL Technologies certification, signed by Carl personally. :-)

ReBrowse

2008-11-20T11:11:00.003+08:00

近日在REBOL.NET的Wiki上，REBOL語言設計者Carl寫了一份文件說明REBOL 3.0的新操作介面ReBroswe，用來取代REBOL 2.x的Desktop。

文件中提到，ReBrowse將採用類似Web瀏覽器的介面設計，讓大家容易上手。但ReBrowse不打算取代Web瀏覽器，它只是用來連接到Web Server，以瀏覽與執行Reblet。

關於REBOL 3.0的進展

2008-11-04T20:15:00.002+08:00

我長期關注REBOL語言的發展，至今已經有八年了。看到REBOL語言設計者Carl Sassenrath幾乎完全以一己之力，漸漸打造出一個他理想中的語言，我感到相當佩服。小巧、簡單、效率，這些特質已經漸漸不再被泛泛大眾所重視，取而代之的是「Time-To-Market」等急就章的論調。儘管如此，小巧、簡單、效率，依然是Carl Sassenrath在發展REBOL時的信條。

理想和現實是有落差的，為了做出一個理想的語言，我看到REBOL的發展腳步相當緩慢。就以REBOL 3.0來說，已經開發了三年，至今依然在Alpha版。為了設計出Carl理想中的GUI方言，他甚至將一套完成約80%的GUI方言次系統整個重做。像這樣的事情，往往使得我們這些REBOL用戶相當著急。

但這畢竟是Carl的語言，我們還是尊重他的開發理念。而且他確實有相當多先進的看法，我們也不希望他急就章弄出一個不好的語言，我們這些持續等待REBOL的人，相當程度都認同Carl的理想，佩服Carl的眼光和技術能力。但還是有一些人無法久候，紛紛離去。
最近Carl在開發GUI次系統上似乎已經有了一定的進展。我想或許再過幾個月就可以有Beta版出現。我想明年應該一定會推出REBOL 3.0。我希望到時候能有IT廠商或媒體願意和我一起邀請Carl到北京，親自向大家介紹這個「不顧現實的時間壓力」而精心打造出來的好語言。

Multi-tasking in REBOL

2008-09-29T13:11:00.000+08:00

REBOL 3會支援Multi-tasking，儘管目前DocBase尚未有相關的說明，但已經完成了初步的實做，可以使用了。例如：


>> do make task! [ [ ] loop 10 [ print now wait 1] ]

開始有人翻譯REBOL日文文件

2008-08-27T12:03:00.001+08:00

開始有人為REBOL 2.x翻譯日文文件。

The IT Fashion Award Goes to ...

2008-08-03T17:45:00.000+08:00

The IT Fashion Award Goes to

REBOL in Olympics

2008-07-18T10:27:00.003+08:00

I've been in Beijing for 7 days. It's a busy week. I've been working very hard everyday, including weekend, from morning to midnight. I'm re-doing our product in REBOL, and I made a good progress, thanks to REBOL.

A small component I developed in REBOL is now included in a software package, which will be shipped to a famous IT company for the Olympics-related affairs.

REBOL與RIA

2008-07-04T11:05:00.000+08:00

在「RIA說文解字」一文中，我提到了RIA的幾個技術，雖然當時沒提到REBOL，但是我心理其實很清楚，REBOL相當適合做RIA。在這篇「REBOL讓你讚嘆WOW」一文章，我特別說明REBOL具有RIA領域的潛力，因為：

(1) 執行環境超小
(2) 寫出來的程式小
(3) 跨越許多平台
(4) 支援許多標準協定

我認為，在RIA領域，REBOL會比Flash/AIR、Silverlight/WPF、Curl更適合。

根據內部的消息，REBOL 3.0會開始著墨在RIA領域。REBOL/IOS、REBOL/Desktop…等應用，以後會朝RIA的方向邁進。我想，這應該就是之前Carl在「A Busy Spring 2008」一文中所提到的祕密計畫。

Moving to Beijing in Two Weeks

2008-06-28T07:11:00.003+08:00

Not for the Olympic Games, I am leaving Taiwan for China because I've just accepted a job there. The CTO is an old friend of mine. He has been hearing me talking about REBOL for many years. Since REBOL Technologies will support Unicode in REBOL/View soon, there is a good chance that we'll use REBOL in our next product.

相等

2008-06-20T00:30:00.002+08:00

欲判斷兩個值是否相等，利用「=」op!或者「equal?」action!，例如：

>> 1 = 1
== true
>> equal? 1 1
== true
>> "ABC" = "abc"
== true

即使型別不同，值也可能相等，例如：

>> 1 = 1.0
== true

上面的1是integer!，而1.0是decimal!，兩者型別不同。

如果要求嚴格一點，必須值和型別都一致，才能算相等，這時候使用「==」op!或「strict-equal?」action!。例如：

>> 1 == 1.0
== false
>> strict-equal? 1 1.0
== false

判斷兩個值是否不相等，利用「<>」op!或「!=」op!，或者「not-equal?」action!，例如：

>> 1 <> 2
== true
>> 1 != 2
== true
>> not-equal? 1 2
== true

判斷兩個值不相等「且」型別也不一致，利用「strict-not-equal?」action!（沒有對應的op!可用）。目前「strict-not-equal?」有bug。

=?用來判斷兩個參考（reference）是否一樣（identical），只有用在function, Series, object等參考型別，才有意義。用在其他型別時，相當於「=」。「=?」如果一邊是參考型別，另一邊是其他型別（非參考），則一定為false。

閱讀REBOL源碼時的干擾

2008-06-19T13:01:00.000+08:00

我發現在閱讀REBOL源碼時，如果參數或修飾字（refinement）所使用的名稱和REBOL常用函數同名時，會造成我相當大的閱讀困擾。例如：


replace: make function! [[
    target [series!]
    search 
    replace
    /all 
    /case 
    /tail 
    /local save-target len pos value do-break
][
    ....
]

這裡出現的replace，除了是函數名稱，也是參數；all、case、tail除了是修飾字，更是很常用的REBOL函數。我只要忘了它們是修飾字和參數，一直以函數的方式對待它們，就會造成閱讀源碼時理解力受到干擾。例如：


do-break: unless all [:break]

我一直覺得這裡的程式有錯，一直到很久以後才發現這裡的all不是函數，而是修飾字。

寫這篇blog文章，用來提醒自己和本blog的讀者（if any），閱讀REBOL源碼時，一定要注意這種狀況。

In REBOL 3.0, op! is infix only.

2008-06-19T10:57:00.004+08:00

剛剛發現，在REBOL 3.0中，op!居然「只能」進行中序（indix）運算，這和REBOL 2.x的作法不同。

R2 >> 1 + 2
== 3
R2 >> + 1 2
== 3

R3 >> 1 + 2
== 3
R3 >> + 1 2
** Script error: + operator is missing an argument

我認為R3的作法比較好，可以簡化解譯器。以後op!應該不會再支援prefix。

My 8 REBOL Articles Published in China, 2004

2008-06-19T10:32:00.002+08:00

我曾經在中國大陸的雜誌發表過一系列REBOL文章（約8篇），本來考慮要在這個Blog重新發表這系列文章，但是最近重新看了一下，許多內容其實已經過時，和REBOL 3.0的現況以及REBOL未來的走向不符合。所以這些文章只好石沈大海了！

如果你手邊還有我的這些文章，其實你不需要花時間閱讀它們。把時間花在REBOL 3.0版，這才是未來，這才重要。

Bug: change/part

2008-06-19T09:45:00.004+08:00

軟體開發就是這樣，有時候消除掉十個Bug，卻會因此導致一個原本不存在的Bug。剛剛發現，原本沒問題的函數Change，現在卻有了一個Bug。


>> data: "C# Rules"
== "C# Rules"

>> change/part data "REBOL" 2
== "les"

>> data
== "REBOLles"

由於Change是Action!，所以我無法fix。我已經將它呈遞到Bug Database了。

Bugfix: script?

2008-06-19T07:49:00.004+08:00

修改後的結果如下：


script?: make function! [[
    {檢查是否具有有效的劇本標頭（暫時）。}
    source [file! url! binary! string!]
][
    switch type?/word source [
        file! [ source: read source ]
        url!  [ source: read source ]
        string! [ source: to-binary source]
    ]
    find-script source
]]

A Secret Project Is Going On

2008-06-19T04:02:00.006+08:00

根據Carl部落格文章「A Busy String 2008」的說明，今年夏天較大規模釋出REBOL 3.0的目標不變。除此之外，他還提到REBOL 3.0會有一個神秘的內建功能，至於是什麼，目前他先賣個關子。

我一向認為「謠言始於智者」，我開始散播謠言。我猜想應該是「軟體線上市集」或「AltME傳訊軟體」或「Peer-to-Peer軟體」之類的。

小心TO-BLOCK的陷阱

2008-06-18T20:49:00.002+08:00

許多REBOL函數的參數都同時接受單一值，或多重值。當然多重值會放在block中。我們經常會需要在函數內，先將某參數化成block，然後才進行處理，這時候程式會這麼寫。

if not block? :args [args: reduce [:args]]

透過to-block（或者to block!），可以簡化上面的作法，改寫成這樣：

args: to-block :args

to-block會判斷，如果後面的參數是any-block!，則不處理，直接傳出其block形式；如果參數不是any-block!，則傳出以該參數為「唯一」元素的block。如下所示：

>> to-block 1
== [ 1 ]
>> to-block [ 1 ]
== [ 1 ]

To-block確實相當方便，但是要注意一個特殊狀況，那就是any-block!除了block!之外，還包括其他：

>> ? any-block!
ANY-BLOCK! is a typeset of value: make typeset! [block! paren! map! path! set-pa
th! get-path! lit-path! ]

因此下面的狀況固然可能非你所願，但卻是正確的：

>> to-block 'system/version
== [ system version ]

這個時候，只好回去改用一開始的寫法：

if not block? :args [args: reduce [:args]]

Bugfix: ??

2008-06-18T19:12:00.002+08:00


??: make function! [[
    {印出變數名稱，後面跟著它的鑄模值（幫助除錯用）。}
    'name
][
    print either any [word? :name path? name] [
        repend form name [": " mold name: get :name]
    ] [
        mold :name
    ]
    :name
]]

上面是??函數的源碼，有個小小的bug。必須把其中的form改成mold，否則當參數是path的時候，「/」會消失，例如：


>> ?? system/version
system version: 2.100.13.3.1
== 2.100.13.3.1

另外「any [word? :name path? name]」也應該要改成「any [word? name path? name]」。

R2 vs. R3 Contexts

2008-06-18T19:04:00.002+08:00

Brian Hawley是頂尖的REBOL專家之一，他對於程式語言的理論於實務，以及REBOL內部的運作，都相當熟悉。我經常在與他交談的過程中，學到相當多知識。他有一篇關於REBOL Context的說明，相當精采。文章請見 http://www.rebol.net/wiki/R2_vs._R3_Contexts 。

Cheyenne Web Server

2008-06-17T06:18:00.003+08:00

看到Cheyenne（http://cheyenne-server.org/），你一定會感到很驚訝…一個具有實用功能的Web Server系統，居然如此小巧！Windows版本的exe檔，不到500 KB，這主要是因為，Cheyenne是用REBOL開發出來的。

Cheyenne作者Dockimbel表示，在一般雙核心的伺服器上，可以同時服務500個請求，Cheyenne適合用來架設中小型網站，也相當適合用來架設個人網站。目前Cheyenne雖然仍在Beta階段，但是已經相當穩定，也在某些網站中實際運作一段時日。

Cheyenne對於Web標準的支援已經算很完備，且持續在進步中。你可以在Cheyenne網站的首頁看到它目前所支援的標準，也可以在此下載它的REBOL源碼（BSD授權方式）或執行檔（Windows、Linux、Mac OS）。請注意，如果你要透過源碼執行Cheyenne，請使用REBOL 2.x版，而非REBOL 3.0版。

PICK is not picky

2008-06-16T20:40:00.002+08:00

PICK可能是最不挑剔的（picky）REBOL函數，它接受的第一個參數可以是35種資料型別：

series! gob! pair! event! money! date! time! object! port! tuple ! bitset! any-function!

只有12個？別忘了，其中series!和any-function!是typeset!，將它們兩個展開之後變成

string! binary! file! email! url! tag! issue! bitset! vector! image! block! paren! map! path! set-path! get-path! lit-path! gob! pair! event! money! date! time! object! port! tuple ! bitset! native! action! routine! rebcode! op! closure! function!

共有35個資料型別。其中any-function!和object應該已經可以利用reflect（以及相關函數）取代，只是目前REBOL 3.0尚未禁止使用REBOL 2.x的pick、first等函數進行reflect。

另外有兩個可疑的資料型別，分別是event!與money!，我認為PICK不應該用來處理它們。我已經報告到Bug資料庫了。

閱讀REBOL源碼

2008-06-16T09:37:00.004+08:00

我記得十多年前學習Borland OWL時，由於參考資料不多，我必須閱讀源碼才能獲得更進一步的資訊。當時意外的收穫是，我的C++功力大增。

當參考資料不足時，我們就必須閱讀源碼。最近我開始感覺到有閱讀REBOL源碼的必要，因為REBOL 3.0正在開發階段，大家不是很有空去寫DocBase的文件，而DocBase的文件我已經看得差不多了。

除了action和native之外，其實REBOL將所有的源碼都公開。你可以利用source函數或probe函數取得源碼。或者用下面的方式，將全部的源碼都輸出到一個檔案（例如C:\R-Source.txt）：

write %/c/R-Source.txt to-binary mold system

請在「完全乾淨」的REBOL console在做上面的動作，也就是說，開始一個新的REBOL console，然後馬上做這個動作。如果你先執行過一些敘述，可能會造成你的系統環境受到污損（contaminated）。

這個檔案雖然不小，但是其中有相當多重複的地方。例如system/contexts/system、system/contexts/export、system/contexts/current、system/words是完全一樣的內容，將重複的內容刪除之後，你會發現檔案變小許多。

然後你就可以開始閱讀REBOL的源碼了。閱讀大師寫的源碼，有助於自己未來成為大師。

China Developing Interest in REBOL

2008-06-15T05:00:00.002+08:00

According to Axlea, for the past week, China seems very interested in REBOL.

REBOL.COM ( 6.0 % -> 7.5 % )
REBOL.NET ( ? -> 16.8 % )
REBOL.ORG (10.2 % -> 13.6 % )

Wow, not bad.

不使用VID，也可以寫出GUI程式

2008-06-15T03:13:00.002+08:00

REBOL有意打造VID（Visual Interface Dialect），成為適合大多數人使用的GUI程式設計方式。從許多Carl的Blog文章中，以及Gabriele（負責實踐與設計VID的人）目前的設計成果，我深切相信這樣的目標確實可以達成。

一方面基於想要「自我挑戰」，另一方面當作學習REBOL 3.0過程的歷練，今年一、二月的時候，我不使用VID，而直接使用GOB和View，寫過數十KB的GUI程式。這樣的經驗讓我體會到：「如果不使用VID，設計GUI會很辛苦」，所以對大多數的人來說，我並不建議這麼做。

但我還是準備自己從頭打造自己的GUI，主要是因為，我希望我的GUI能很動態（dynamic），且支援雙向文字（bi-directional text）。我已經花了相當多時間進行相關的Layout Manager程式編寫與除錯，也獲得一些基本的成果，但是最近因為工作的關係，這件任務可能必須拖延到今年第四季，我才有時間繼續。但是在這之前，我會持續加強我自己的REBOL 3.0程式能力，Prepare for prime time。

map、remove-each、foreach

2008-06-14T16:27:00.004+08:00

許多Functional Language（例如Erlang與F#）都具有很方便的map、filter、iter函數，可以將一個List，對應到另一個List。在REBOL 3.0中，也有類似的函數，分別是map、remove-each、foreach。比較大的差異是，其他語言是利用Higher-Order Function做到的，但REBOL是用Block做到的。

Event Handler

2008-06-14T15:25:00.002+08:00

Event Handler是一種物件，具有三個word，分別是name、priority、handler，如下面的範例所示：

make object! [
    name: 'view-default
    priority: 50
    handler: func [event] [
        print ["view-event:" event/type event/offset]
        switch event/type [
            close [quit]
            key [if event/key = escape [quit]]
        ]
        show event/window
        none ; we handled it
    ]
]

一般我們會在View函數中，利用下面的方式指定Event Handler：

view/options window [
    handler: [
        name: 'my-handler
        priority: 100
        handler: func [event] [
            if event/type = 'down [quit]
        ]
    ]
]

注意，在上面的例子中，我們並未建立物件（make object!），而是以區塊（block!）的方式指定此Event Handler的內容。

在REBOL/View系統中，可以同時具有多個Event Handler，將它們串接起來。你可以透過handle-events與unhandle-events來分別增加與刪除Event Handler。注意，handle-events需要的參數是block!，而unhandle-events需要的參數則是物件。

每個Event Handler都具有一個name（名稱），是用來識別Event Handler之用的。想知道目前有沒有具備某名稱的Event Handler，可以透過handled-events?函數。此函數需要傳入一個名稱，它會傳出此名稱的Event Handler（如果有的話）。

利用handle-events函數加入一個Event Handler時，會根據其priority（優先權），決定其位置，優先權越高者放在越前面。例如，現在已經有兩個Event Handler，分別為優先權500的A與優先權200的B，再新增一個優先權為300的C時，最後的結果會是A、C、B，因為C的優先權介於A、B之間。

每個Event Handler都具有一個handler，這是真正處理事件的函數，所以需要事件當參數。特別注意的是，handler的傳出值如果為event，則處理完目前的Event-Handler之後，會繼續處理下一個Event Handler；handler的傳出值如果為none，則表示此事件已經處理完畢（被消耗掉了），不用再往後面的Event Handler遞送。例如，目前依序有A、C、B這三個Event Handler，其中A的handler函數傳出值為none，則C與B都不會發生作用。

MAP-INNER and MAP-OUTER are killing me

2008-06-13T19:39:00.007+08:00

我一直搞不懂MAP-INNER與MAP-OUTER要如何使用，也沒有文件說明可以閱讀。我在動手寫程式做了一些實驗之後，終於放棄了。我於是定義了下面的函數（取得某個gob的絕對座標）：

abs-offset?: func [ gob [gob!] ] [
    negate second map-inner gob 0x0 
]

以後我打算只使用MAP-EVENT和abs-offset?，不再碰觸令人痛苦不已的MAP-INNER與MAP-OUTER。

MAP-EVENT的用法

2008-06-13T17:59:00.002+08:00

REBOL 3.0最近新增一個函數MAP-EVENT，相當好用，可以將滑鼠相關的event，從「最底層的視窗gob」對應到「最上層的gob」。新產生出來的event，其offset與gob屬性都會被修改。通常用法會是這樣：

event: map-event event

假設滑鼠是圖中的黑點，則對應前event/gob會得到紅色的gob，且event/offset會得到黑點和紅色gob左上角的相對位置。對應後，event/gob會得到藍色的gob，且event/offset會得到黑點和藍色gob左上角的相對位置。

Bugfix: parse-url

2008-06-13T15:58:00.007+08:00

REBOL 3.0目前剖析URL的時候有Bug，當Path出現「@」、「!」或中文、日文、韓文…的時候，Path的解析出錯。這是相當嚴重的問題，因為檔案名稱中很常出現各國語言，如果用URL表示檔案，就會出問題，例如「file:///C:/音樂/love.mp3」就無法被順利剖析。

剖析URL的函數是decode-url，事實上，此函數會去使用到system/intrinsic/parse-url物件的定義。在parse-url物件定義中，為了要讓path納入「@」與「!」，必須修改path-char的定義修改如下：


path-char: make bitset! 
    #{00000000EFFFFFF5FFFFFFF57FFFFFEA}

為了要納入各國語言（#"^(100)" - #"^(FFFF)"），更必須將它改成：


path-char: union 
    make bitset! 
        #{00000000EFFFFFF5FFFFFFF57FFFFFEA}
    charset [#"^(100)" - #"^(FFFF)"]

我改天再把它呈遞給DevBase。

FORMAT與PRINTF的用法

2008-06-13T12:15:00.003+08:00

REBOL 3.0提供format與printf函數，這兩個函數的參數完全一樣。Format函數會傳出格式化的字串，而printf則會印出格式化的字串。事實上，printf內部直接呼叫format。


>> source printf
printf: make function! [[
    "Formatted print."
    fmt "Format"
    val "Value or block of values"
][
    print format :fmt :val
]]
>>

下面是它們的使用範例：


>> format [ 20 #"/" -10 ] [ %my-rebol-file.r 31023 ]
== "my-rebol-file.r     /     31023"

>> printf [ 20 #"/" -10 ] [ %my-rebol-file.r 31023 ]
my-rebol-file.r     /     31023
>>

printf與format都需要兩個參數，第一個是格式規則，第二個是代換內容的區塊（block）。格式規則區塊內可以出現四種元素：

正整數：指定內容長度，如果內容超過指定長度，則自動放寬。如果內容不滿指定長度，則「補上空白」，且內容「向左對齊」。
負整數：指定內容長度，如果內容超過指定長度，則自動放寬。如果內容不滿指定長度，則「補上空白」，且內容「向右對齊」。
字元：直接放置一個字元
字串：直接放置此字串

使用format時，還可以透過/pad，指定補上某字元（或字串），而不是補上空白。例如：


>> format/pad [ 20 #"/" -10 ] [ %my-rebol-file.r 31023 ] #"."
== "my-rebol-file.r...../.....31023"

Bugfix: ls與format

2008-06-13T06:59:00.009+08:00

我已經修正完畢LS函數和FORMAT函數的Bug，下面列出的是FORMAT的定義。至於LS的定義修改方式很簡單，把LENGTH?用LENGTH+?取代即可。當FORMAT遇到中文時，終於不會出問題了！

LENGTH+?不會計算出字串的字元長度，而是會計算出「相當於多少個half-width字元」的長度。記得把前一篇文章的Full-Wide-Width-charset定義也加進來，因為LENGTH+?會用到這個定義。

我會找一天把修正後的結果透過DevBase遞交給REBOL公司。


length+?: func [str [string!] /local ans ] [
    ans: 0
    foreach ch str [
        either find Full-Wide-Width-charset ch [
           ans: ans + 2
        ] [
           ans: ans + 1
        ]
    ]
]

format: make function! [[
    "Format a string according to the format dialect."
    rules {A block in the format dialect. E.g. [10 -10 #"-" 4]}
    values
    /pad p
    /local out val
][
    p: any [p #" "]
    unless block? :rules [rules: reduce [:rules]]
    unless block? :values [values: reduce [:values]]
    out: make string! ""
    foreach rule rules [
        if word? :rule [rule: get rule]
        switch type?/word :rule [
            integer! [
                val: first+ values
                val: form :val
                pad: (abs rule) - length+? val
                if negative? pad [ pad: 0 ]
                either positive? rule [
                    append out :val
                    append/dup out p pad
                ] [
                    append/dup out p pad
                    append out :val
                ]
            ]
            string! [append out rule]
            char! [append out rule]
        ]
    ]
    if not tail? values [append out values]
    head out
]]

Format函數與寬字元

2008-06-13T04:17:00.009+08:00

REBOL 3.0有提供一個函數名為format，用來進行輸出文字的格式化。許多函數都會用到format，例如what、ls。

format一遇到中文就會失靈，輸出格式亂掉，這是因為中文字是寬字元（Wide Character）。為了要修正format的此錯誤，我剛剛把Unicode Standard Annex #11 (East Asian Width) 所附的檔案整理過，找出其中屬於Full-Width與Wide的字元。接下來，就等我（或任何人）有空去修正format函數的定義了。

full-wide-width-charset: charset [
 #"^(1100)" - #"^(1159)"
 #"^(115F)"
 #"^(2329)" - #"^(232A)"
 #"^(2E80)" - #"^(2E99)"
 #"^(2E9B)" - #"^(2EF3)"
 #"^(2F00)" - #"^(2FD5)"
 #"^(2FF0)" - #"^(2FFB)"
 #"^(3000)" - #"^(303E)"
 #"^(3041)" - #"^(3096)"
 #"^(3099)" - #"^(30FF)"
 #"^(3105)" - #"^(312D)"
 #"^(3131)" - #"^(318E)"
 #"^(3190)" - #"^(31B7)"
 #"^(31C0)" - #"^(31E3)"
 #"^(31F0)" - #"^(321E)"
 #"^(3220)" - #"^(3243)"
 #"^(3250)" - #"^(32FE)"
 #"^(3300)" - #"^(33FF)"
 #"^(3400)" - #"^(4DB5)"
 #"^(4E00)" - #"^(9FC3)"
 #"^(A000)" - #"^(A48C)"
 #"^(A490)" - #"^(A4C6)"
 #"^(AC00)" - #"^(D7A3)"
 #"^(F900)" - #"^(FA2D)"
 #"^(FA30)" - #"^(FA6A)"
 #"^(FA70)" - #"^(FAD9)"
 #"^(FE10)" - #"^(FE19)"
 #"^(FE30)" - #"^(FE52)"
 #"^(FE54)" - #"^(FE66)"
 #"^(FE68)"
 #"^(FF01)" - #"^(FF60)"
 #"^(FFE0)" - #"^(FFE6)"
]

對Object!進行Append與Length?

2008-06-12T23:08:00.004+08:00

REBOL 3.0現在允許擴充（extend）物件（object!），如下所示：

>> obj: context [ a: 1 ]
== make object! [
    a: 1
]
>> append obj [ b 2 c 4]
== make object! [
    a: 1
    b: 2
    c: 4
]

上面的例子中，[ b 2 c 4] 也可以寫成 [ b: 2 c: 4]，效果一樣。

如果Block內的word和Object內的word相同時，會造成修改的效果。例如：

>> append obj [c 3]
== make object! [
    a: 1
    b: 2
    c: 3
]

上面的例子，由於obj本來就有c，所以append之後，c的值會被改變。

特別注意，這些處理series的函數中，只有append可以用在物件上，remove、insert並不適用於物件。我猜想可能是因為remove、insert會讓context內部binding對應的方式亂掉。

Block不會先被reduce，如果有reduce的必要，必須自己來。這個時候，通常會使用compose或reduce/no-set，例如：

>> append obj reduce/no-set [ d: 365 + now ]
== make object! [
    a: 1
    b: 2
    c: 3
    d: 12-Jun-2009/22:56:29+8:00
]

想知道某物件有多少Word，可以利用Length?，例如：


>> length? obj
== 4

效果相當於「length? words-of obj」。

My REBOL 3.0 Wishlist

2008-06-11T23:20:00.004+08:00

More text encoders/decoders (Big5, GB2312, ... )
Unicode text rendering
Unicode text input from keyboard
Plug-in ( for calling native C functions )

Because I am developing:

A spider program, which needs item 1
A Chinese text editor (Transma), which needs items 1, 2, and 3
An user interface for an utility, which needs items 1, 2, 3, and 4

Who is visiting REBOL.COM?

2008-06-09T15:27:00.004+08:00

According to Alexa, REBOL.COM users come from these countries:

Germany 23.1%
United States 21.6%
India 14.3%
Canada 8.1%
China 6.0%
France 1.9%

Also, REBOL.NET users come from these countries:

United States 37.9%
Germany 19.2%
Malaysia 1.7%

And, REBOL.ORG users come from these countries:

United States 33.1%
Germany 16.7%
Iran 11.9%
China 10.2%
Canada 6.1%
France 1.7%
Philippines 0.7%

OOP in REBOL 3.0: An Example

2008-06-09T06:05:00.005+08:00

REBOL[]


Inherit: func [super [object!] sub [object!]] [
    append sub reduce/no-set [parent: super]
]


Invoke: func [ obj member /local ans] [
    either ans: select obj member [
        ans
    ] [
        attempt [Invoke obj/parent member]
    ]
]


Super-Class: context [
    Member-A: does [ print "Member-A of Super" ]
    Member-B: does [ print "Member-B of Super" ]
]


Sub-Class: context [
    Inherit Super-Class Self


    Member-B: does [ print "Member-B of Sub" ]
    Member-C: does [ print "Member-C of Sub" ]
]


Invoke sub-class 'Member-A
Invoke sub-class 'Member-B
Invoke sub-class 'Member-C

TCP/IP Client/Server的互動方式

2008-06-08T22:23:00.001+08:00

透過「如何用REBOL寫TCP/IP的Client程式」與「如何用REBOL寫TCP/IP的Server程式」，你應該已經可以使用REBOL 3.0寫出TCP/IP的Client/Server系統。這裡是一個綜合的示意圖，展示出DNS、Client Port、Server Listen Port、Server Service Port之間的互動關係。

The Long Tail ?

2008-06-08T08:54:00.007+08:00

我在BlogSpot開了兩個Blog，一個是「JerryLovesRebol.BlogSpot.com」，另一個是「RebolLovesJerry.BlogSpot.com」；前者是「言程序」Blog，內容是主流技術與前瞻技術的心得文章；後者是「Rebol This Rebol That」Blog，內容是和REBOL相關的消息與技術心得。我預期，REBOL是比較冷門的技術，所以雖然成立REBOL文章專屬的Blog，我並不預期會有太多人來看。沒人來閱讀我的REBOL文章是無所謂的，就當成是自己的學習筆記。

但結果令我意外，「言程序」的點擊率居然還沒有「Rebol This Rebol That」高。我分析一下原因，可能是「長尾效應」（Long Tail）。

「言程序」Blog大多數的文章其實已經先發表於台灣的iThome週刊與網站，所以大家不見得要到我的Blog來閱讀，而「言程序」的讀者只限於華人，所以算是區域性的Blog。

但「Rebol This Rebol That」Blog就不同了。這裡的文章並未發表於他處，且對REBOL技術感興趣的人「比例」雖然不高，但是全球累積起來的「數量」仍不少。這就是Long Tail！

除非懂中文，否則大多數的人閱讀「Rebol This Rebol That」Blog的時候，會透過「Google Translate」，先翻譯成英文。看他們這麼克難地閱讀，我有一點想用英文寫Blog。但我終究還是沒這麼做，因為顧慮到「Rebol This Rebol That」有一部份的任務是向華人介紹這個優秀的技術，既然如此，還是用中文寫比較恰當。

希望更多人用各種語言（捷克文、法文…）開闢REBOL blog，讓我們一起為REBOL的Promotion努力。

如何用REBOL寫TCP/IP的Server程式

2008-06-07T22:07:00.006+08:00

在「如何用REBOL寫TCP/IP的Client程式」一文中，我說明了Client程式的寫法，現在這篇文章說明Server程式的寫法，程式碼請參考這篇DocBase文章的Pong Server。重點整理如下：

Server會先Open自己電腦上的一個Listen Port，並開始聆聽（Listen）連線請求。對於REBOL來說，只要呼叫Open函數來開啟伺服器的Port，就會同時進行Listen（你不需要呼叫Listen，也沒有這樣的函數可用）。
當Client呼叫Open，並指定連到Server的IP和Port時，Server就會收到Accept的事件。處理Accept事件的方式是呼叫First，會得到一個Service Port。Server的Awake函數必須傳出false（表示任務尚未完成），否則會結束Listen，只能服務一人。
Listen Port繼續接受來自其他Client的新連線請求，而Service Port開始和連線上的Client溝通。也就是說，Listen Port和Service Port兩個是不同的Port，且Listen Port只有一個，且可能產生出多個Service Port。
Service Port會進行Read、Write、Close動作（函數），會分別收到Read、Wrote、Close事件。這部分和「如何用REBOL寫TCP/IP的Client程式」一文類似，不再贅述。
通常Service Port會先呼叫Read（而非Write），以讀取來自客戶的請求內容。

A New VID Prototype – VID 3.4

2008-06-07T13:34:00.002+08:00

目前REBOL 3.0的開發焦點在VID。REBOL語言設計者Carl最近在AltME r3-alpha社群討論區表示，為了讓VID具有相當大的客製化（customization）彈性，將對既有的VID雛形系統（Prototype）做出較多深入的改變，然後推出第四個雛形系統（VID 3.4）。

Functional Programming

2008-06-07T03:20:00.004+08:00

I've just published a series of FP-related articles in my non-REBOL blog.

Functional Programming (1) Language is functional again.
Functional Programming (2) Why Functional Programming.
Functional Programming (3) FP is as FP does

DevBase Is Around the Corner

2008-06-06T23:52:00.003+08:00

剛剛釋出REBOL 3.0 Alpha 2.100.13，這個版本所做的改變，大多是為了VID和REBOL/Services的需求，而VID和REBOL/Services是DevBase的基石。DevBase是一個Client-Server的系統，Client的使用者介面會用到VID，Client和Server的溝通會用到REBOL/Services。

為了要擴大社群對REBOL開發的貢獻，在REBOL 3.0中，DevBase會擔負起這方面的角色，讓社群可以檢視REBOL的程式碼，修改，呈遞，最後由關鍵的兩三個人決定採用與否。目前DevBase已經在運行中，但是是透過REBOL 2.x。最新釋出的REBOL 3.0 Aplah上頭，也開發了一套DevBase，將會試圖取代REBOL 2.x的DevBase。

REBOL大將Gabriele在AltME上面的r3-alpha社群中提到，經他測試，REBOL 3.0的DevBase已經可以順利運作。我相信，這個月（說不定下週）如果他們發現DevBase一切都穩定的話，就會釋出這個DevBase版本。

GUI Made Easy

2008-06-06T01:34:00.003+08:00

許多學術領域的專家或教授，會使用編程語言，將自己的研究結果，寫成特殊領域的程式，例如氣象、水利、天文、自然語處理...等。但是這些程式往往只有文字的輸入和輸出。他們很希望讓程式具有美觀的GUI介面，但是這部分他們做不來，因為「大多數的GUI程式設計都很複雜」。不信的話，你可以看看MFC、WinForms、WPF、Tk、Java Swing...，沒有一個是簡單的。對這些專家來說，「沒有GUI」是他們程式的一大缺失。

REBOL 3.0試圖利用VID（Visual Interface Dialect）做出相當容易寫的GUI程式，讓任何人都可以輕易地寫出GUI程式。如果你用過REBOL 2.x的VID，你應該已經體會到VID的方便。而在REBOL 3.0中，VID會更美觀、更有彈性、且支援Unicode。你可以閱讀Carl的三篇Blog文章：

Pathologic Obesity in Software

2008-06-05T23:27:00.001+08:00

許多人第一次看到REBOL，都會為它小巧的體積感到相當驚訝，畢竟在軟體產業，肥胖已經成了一種通病。幾個月前，我發表了一篇「Pathologic Obesity in Software」（軟體的病態性肥胖），得到不少讀者的共鳴。你可以到這裡閱讀這篇文章。

OOP in REBOL ?

2008-06-05T22:42:00.002+08:00

根據REBOL語言設計者Carl在部落格文章中的說法，他以前曾經相當著迷於OOP (Object-Oriented Programming)，但是現在已經不再是如此了。雖然Carl不是特別喜歡OOP，但是在REBOL 3.0的設計中，我們依然可以找到少數OOP的影子。最明顯的例子是Scheme與Port。

從OOP的角度來看，Scheme就像是Class，Port就像是Instance；Scheme只有一份，被所有的Port共用。另外，Scheme也像是Super-class；而Port像是Sub-class，Port所提供的action方法可以覆蓋（shadow）掉Scheme的action；而Port如果沒有實做（implement）自己的action，就會使用Scheme的版本。

如果你想在REBOL中寫OOP的程式，那麼你可以參考Scheme與Port的源碼。關於OOP，你可以參考我的這篇文章。

如何用REBOL寫TCP/IP的Client程式

2008-06-05T19:01:00.006+08:00

我還記得約14年前讀大學時寫過的第一個網路程式WinBrick（Windows 3.1的網路對打俄羅斯方塊Tetris），當時使用WinSock API。後來讀研究所時用Java Networking API寫VOD（Video-On-Demand）系統，Java的API比C的WinSock稍微簡單一些，但程式還是不好寫。REBOL的TCP/IP程式設計方式，比起上述兩者，都更簡單。你可以閱讀Carl的這篇部落格文章。

經過自己手動實驗之後，我簡單地整理一下重點：

DECODE-URL用來將URL（例如：http://www.rebol.com/index.htm）拆解成區塊（例如[scheme: 'http host: "www.rebol.com" port-id: 80 path: "/index.htm"]），但是DECODE-URL有時候會拆解錯誤，如果與到拆解錯誤的狀況，就必須自己處理。如這個例子所示。
上述的區塊可以當作OPEN的參數，就可以連接到伺服器。
如果host是host-name，則程式會先連到DNS，查詢（lookup）伺服器的ip，所以會收到「lookup」事件，這個時候，必須再次呼叫OPEN。
如果host本來就是host-ip，則不會有上述的步驟（不會收到lookup事件）。
當程式收到「connect」事件時，表示程式對伺服器的連線請求，已經被伺服器接受（accept），可以開始進行資料通訊，這個時候，通常是由Client先傳送資料（服務請求）給伺服器，而伺服器先聆聽（listen）。因此，在收到connect事件時，Client通常會呼叫WRITE。
當資料寫入完畢，Client會收到「wrote」事件。這個時候，通常會呼叫READ，進行資料的讀取。當然，你也可以會直接呼叫CLOSE，主動關閉網路連線，這由你的通訊協定（protocol）決定。
呼叫READ，就會從緩衝區（buffer）讀取資料，一旦讀取完目前緩衝區的資料，就會收到read事件（這個read是「過去分詞」，表示「已經讀取了」）。
通常你需要解析剛剛讀到的資料，以瞭解資料是否已經讀完。如果尚未讀完，你必須繼續呼叫READ來繼續讀取資料。如果已經讀完，你可能會呼叫WRITE傳資料給伺服器，或者呼叫CLOSE來關閉連線。
當連線的兩端中，任何一端先呼叫CLOSE來關閉連線時，Client都會收到「close」事件。當client收到這個事件的時候，要做一些收尾的動作。
awake的傳出值如果為false，表示port尚未處理完畢；如果為true，表示port處理完畢，會立刻結束這個port。通常我們會在遇到通訊協定格式錯誤、事件無法識別、或收到close事件之後，傳出true，其他狀況則傳出false。
為了避免任何動作做太久，我們通常會在外部呼叫WAIT，等候一段Timeout的時間。

我對REBOL 3.0的體會

2008-06-04T21:46:00.002+08:00

我注意REBOL 3.0的開發過程，算是種「敏捷開發」（Agile Process），隨時都在進行動態的調整。如果開發者很多的話，這樣的敏捷開發恐怕不可行，一定要按部就班進行。最後的結果可能就是得到一個功能普通、體積肥大、且效能不佳的軟體。

由於REBOL 3.0的核心開發人力是Carl本人，所以他可以隨時動態調整開發項目的優先次序。例如原本Unicode要在3.1才加入，後來提前。這樣的例子屢見不鮮。

Carl在開發的過程，有一些理念上的堅持，那就是REBOL必須「簡單」、「體積小」、「效能」。任何作法只要違反這幾點，都會被排除，不予採納。所以即使REBOL已經開發這麼久了，且圖形和網路的功能都加進來了，還是只有約600K。且執行效率相當好，語法也維持一貫的簡單。

在這個年頭，軟體要保持「簡單」、「體積小」、「效能」，談何容易，但REBOL 3.0做到了。加上強大與創新的功能，這真的是一個好語言。

REBOL 3.0的進度

2008-06-03T01:05:00.001+08:00

如果你關心REBOL 3.0現在的開發進度，你可以看一下這張示意圖。這是我個人認知的進度狀況，並非官方的資料，所以不保證精確。

暫時擱置Transma計畫

2008-06-02T01:16:00.002+08:00

想用REBOL 3.0，繼續動手完成我之前的計畫（Transma），無奈REBOL 3.0尚未支援下面的功能：

從鍵盤取得Unicode輸入
將Unicode文字輸出到GUI
呼叫外部DLL

看樣子我只好持續把這個計畫擱置下來。

使用Console（二）

2008-05-30T02:21:00.005+08:00

REBOL預計會有兩個Console，目前已完成的只有文字模式的DevStdIO，而圖形模式的DevConsole短時間之內是不會出現的，看樣子我們得使用DevStdIO好一段時間。「使用Console」這篇文章有介紹一些用法。除此之外，如果你要使用「複製 / 貼上」功能的話，你必須啟用「快速編輯模式」和「插入模式」。作法如下：

用滑鼠右鍵點選REBOL Console視窗的標題列，叫出系統選單。
從選單中選取「內容」。你會看到附圖的視窗。
將兩個編輯選項（「快速編輯模式」和「插入模式」）都選取。然後按下「確定」。

只要有上面的設定，你就可以用滑鼠選取文字，用滑鼠右鍵複製反白區的文字到剪貼簿；在沒有反白區的情況下，按下滑鼠右鍵可以將剪貼簿的文字貼到Console上。

REBOL剖析URL時的問題

2008-05-28T11:45:00.004+08:00

昨天用REBOL寫了一個Spider程式，要下載某些網站的內容。這些網站所使用到的URL中，有出現「!」與「@」等特殊字元，REBOL 2.x在剖析URL的時候，會因此判斷錯誤。因此。我必須自己剖析URL，然後利用下面的方式讀取資料：

read [
    scheme:  'http
    host:    "www.some-host.net"
    port-id: 80
    path:    "database/!data.html"
]

還是要進化

2008-05-26T03:53:00.007+08:00

我一直樂於推薦REBOL，許多人因此接觸REBOL之後，反應卻都不太妙。其中有相當大比例的人，對於REBOL的語法感到相當不適應。因此，他們的結論往往是「Jerry的判斷有問題，推銷一個不是很好的東西」，更嚴重的說法是「REBOL是邪魔歪道」。

我只能說，「一個東西的理念領先人家太多，也不見得是好事」，因為大家的程度跟不上，當然也就不識貨。太先進的東西會被原始人當作垃圾。我只好讓他們繼續留在原地當原始人，我先一步進化去了。

Torn between two lovers

2008-05-25T14:55:00.006+08:00

I am an F# lecturer in the Taiwan MSDN Forum. Call me a traitor, but I got bills to pay. I like F#, but I love REBOL from the bottom of my heart. I wish I could have a REBOL-related full-time job, so I wouldn't have been switching between REBOL and the others. Seriously.

REBOL最新動態：VID、Desktop、REBOL/Services

2008-05-23T11:40:00.001+08:00

在Unicode核心開發告一段落，且網路介面與圖形介面也整合進來之後。REBOL科技公司CTO Carl Sassenrath表示，近期的目標是將REBOL桌面和REBOL/Services整合進來，應該不久之後就可以對Alpha小組釋出這個版本，開始測試。

從OOP到FP

2008-05-20T20:52:00.001+08:00

如果你只習慣OOP（Object-Oriented Programming）的編程方式，現在想改用FP（Functional Programming）的方式，但不知道要從何下手，你可以參考我的這篇文章。

利用Delect設計方言

2008-05-20T11:17:00.002+08:00

REBOL具有豐富的Literal，除了可以提高程式的「可讀性」和「可寫性」之外，也可以方便設計方言（dialect，也就是所謂的DSL）。這一點是其他語言遠比不上REBOL的。

以往，設計REBOL方言的方式，是利用Parse函數。在REBOL 3.0之後，又多了一個方式，就是利用Delect。Delect是DEcode diaLECT的意思。REBOL內部的方言，許多都是利用Delect做出來的。

大多數的方言，都會定義一些關鍵字（keyword）。每個關鍵字後面可以有0到多個參數。有些時候，這些參數出現的次序無所謂，因為透過型別就可以推測出參數的意義。例如：「Circle 100x100 50」與「Circle 50 100x100」，雖然100x100和50的出現次序不同，但是都可以讓我們認為這是要表達一個「圓心在100x100，半徑是50」的圓。所以處理這類方言的時候，值的次序不重要，重要的是值的型別，這種方言用Delect設計會相當容易。

良好的方言，應該要方便學習與使用。放寬參數的次序，可以幫助使用者學習與使用方言。以上面的Circle例子來說，使用者就不需要牢記，到底是先寫半徑再寫圓心，還是先寫圓心再寫半徑。

關於Delect的用法，請見DocBase的這篇說明。我以後也會寫文章說明Delect的詳細用法。

REBOL, Erlang, F#

2008-05-18T07:19:00.002+08:00

我在這篇文章中，比較了REBOL、Erlang、F#這三個語言的能力，你可以參考閱讀。為什麼我要不斷地把REBOL拿來和其他語言做比較？因為當別人用Google搜尋「Erlang vs ...」或「F# vs ...」的時候，很可能就會看到這一篇文章，然後會基於好奇心而去研究一下REBOL，然後喜歡上REBOL。