From: IWAMURO Motonori <deenheart+ruby@...>
Date: 2008-07-05T14:09:25+09:00
Subject: [ruby-dev:35369] fiber もどき for 1.8.x

------=_Part_13179_18054813.1215234763902
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

岩室です。

1.9.0-2見るまで知らなかったのですが、Generator消えるんですね。

まだ1.8ユーザですが、単に消えられるとちょっと困るので、callcc を使って1.8にFiberもどき(もがき)を書いてみたのですが、如何でしょう?
全く同じ動作にはできなかったのですが、Generatorの代替ならこれでいいかな、と……。
callcc の振る舞いに頭が混乱してるので何かワナがあるかもしれませんが。
実験的に書いたので日本語コメントが入りまくっています。
なお、test_fiber18.rb は1.9からもらってきて手を加えたものです。
-- 
IWAMURO Motnori <http://vmi.jp/>

------=_Part_13179_18054813.1215234763902
Content-Type: application/octet-stream; name=fiber18.rb
Content-Transfer-Encoding: base64
X-Attachment-Id: f_fi9q4hwa0
Content-Disposition: attachment; filename=fiber18.rb

IyBUaGlzIGlzIGVtdWxhdGlvbiBvZiBGaWJlciBieSBjYWxsY2MgZm9yIHJ1YnktMS44LnguCiMg
SXQgaXMgZGlmZmVyZW50IGZyb20gMS45LnggaW4gdGhlIGZvbGxvd2luZyBwb2ludHMuIAojICog
RmliZXIuY3VycmVudCBhbmQgRmliZXIjdHJhbnNmZXIgYXJlIG5vdCBpbXBsZW1lbnRlZC4gCiMg
KiBUaGUgYmVoYXZpb3Igb2YgVExTIGlzIGluY29tcGF0aWJsZS4KCmNsYXNzIEZpYmVyCiAgZGVm
IGluaXRpYWxpemUoJmJsb2NrKQogICAgcmFpc2UgQXJndW1lbnRFcnJvciwgIndyb25nIG51bWJl
ciBvZiBhcmd1bWVudHMgKDAgZm9yIDEpIiBpZiBibG9jay5uaWw/CiAgICAjIG5ld+OBl+OBn+OB
qOOBjToKICAgICMgIOOBk+OBruS9jee9riwgbmlsLCBuaWwKICAgICMgcmVzdW1l44GV44KM44Gf
44Go44GNOgogICAgIyAgbmlsLCDmiLvjgovkvY3nva4sIHJlc3VtZeOBruW8leaVsAogICAgQGNv
bnRfY2hpbGQsIGNvbnRfcGFyZW50LCByZXN1bWVfYXJncyA9IGNhbGxjYyB7fGN8IFtjXX0KICAg
IGlmIEBjb250X2NoaWxkICMgbmV344GX44Gf44Go44GNCiAgICAgIEBjdXJyZW50X3RocmVhZCA9
IFRocmVhZC5jdXJyZW50CiAgICAgIEBjdXJyZW50X3RocmVhZFs6RklCRVJfUEFSRU5UX1NUQUNL
XSB8fD0gW10gIyB5aWVsZOOBi+OCieaIu+OCi+S9jee9ruOBruOCueOCv+ODg+OCrwogICAgICBA
ZXhjZXB0aW9uID0gbmlsICMg44OW44Ot44OD44Kv44Gn55m655Sf44GX44Gf5L6L5aSWCiAgICBl
bHNlICMgcmVzdW1l44GV44KM44Gf44Go44GNCiAgICAgICMg5pyA5Yid44GueWllbGTjgafmiLvj
govkvY3nva7jgpLoqJjpjLIgKHJlc3VtZeOBruW6puOBq+abuOOBjeaPm+OBiOOCieOCjOOCiykK
ICAgICAgcGFyZW50X3N0YWNrID0gQGN1cnJlbnRfdGhyZWFkWzpGSUJFUl9QQVJFTlRfU1RBQ0td
CiAgICAgIHBhcmVudF9zdGFjay5wdXNoKGNvbnRfcGFyZW50KQogICAgICByZXN1bHQgPSBuaWwg
IyDjg5bjg63jg4Pjgq/jga7miLvjgorlgKQKICAgICAgYmVnaW4KICAgICAgICByZXN1bHQgPSBi
bG9jay5jYWxsKCpyZXN1bWVfYXJncykgIyDjg5bjg63jg4Pjgq/jgpLlrp/ooYwKICAgICAgcmVz
Y3VlID0+IEBleGNlcHRpb24KICAgICAgICAjIG5vIG9wZXJhdGlvbgogICAgICBlbmQKICAgICAg
Y29udF9wYXJlbnQgPSBwYXJlbnRfc3RhY2sucG9wICMg5pyA5b6M44GucmVzdW1l5L2N572u44KS
5Y+W5b6XCiAgICAgIGNvbnRfcGFyZW50LmNhbGwobmlsLCBuaWwsIFtyZXN1bHRdKSAjIHJlc3Vt
ZeWFg+OBq+aIu+OCiwogICAgZW5kCiAgZW5kCgogICMgR2VuZXJhdG9y44Gu5Luj5pu/44Gr5L2/
44GG44Gu44Gq44KJ44CB5a6f6KOF44GX44Gq44GP44Gm44KC44GE44GE44KI44GtKF5eOwogIGRl
ZiBzZWxmLmN1cnJlbnQKICAgIHJhaXNlIE5vdEltcGxlbWVudGVkRXJyb3IubmV3CiAgZW5kCgog
IGRlZiBzZWxmLnlpZWxkKCphcmdzKQogICAgIyB5aWVsZOOBl+OBn+OBqOOBjToKICAgICMgICDj
gZPjga7kvY3nva4sIOS7peWJjeiomOmMsuOBl+OBn+aIu+OCiuWFiOOBruS9jee9riwgbmlsCiAg
ICAjIHJlc3VtZeOBleOCjOOBn+OBqOOBjToKICAgICMgICBuaWwsIOasoeOBruaIu+OCiuWFiOOB
ruS9jee9riwgcmVzdW1l44Gu5byV5pWwCiAgICBjb250X2NoaWxkLCBjb250X3BhcmVudCwgcmVz
dW1lX2FyZ3MgPSBjYWxsY2MgZG8gfGN8CiAgICAgIFtjLCBUaHJlYWQuY3VycmVudFs6RklCRVJf
UEFSRU5UX1NUQUNLXS5sYXN0XQogICAgZW5kCiAgICByYWlzZSBGaWJlckVycm9yIGlmIGNvbnRf
cGFyZW50Lm5pbD8KICAgIGlmIGNvbnRfY2hpbGQgIyB5aWVsZOOBl+OBn+OBqOOBjQogICAgICBj
b250X3BhcmVudC5jYWxsKG5pbCwgY29udF9jaGlsZCwgYXJncykgIyByZXN1bWXlhYPjgavmiLvj
gosKICAgIGVsc2UKICAgICAgIyDmrKHjgat5aWVsZOOBl+OBn+OBqOOBjeaIu+OCi+S9jee9ruOC
kuiomOmMsgogICAgICBUaHJlYWQuY3VycmVudFs6RklCRVJfUEFSRU5UX1NUQUNLXVstMV0gPSBj
b250X3BhcmVudAogICAgICByZXR1cm4gKnJlc3VtZV9hcmdzICMgcmVzdW1l44Gu5byV5pWw44Gr
5rih44GV44KM44Gf5YCk44KS6L+U44GZCiAgICBlbmQKICBlbmQKCiAgZGVmIHJlc3VtZSgqYXJn
cykKICAgIGlmIEBjdXJyZW50X3RocmVhZCAhPSBUaHJlYWQuY3VycmVudAogICAgICByYWlzZSBG
aWJlckVycm9yLCAiY29udGludWF0aW9uIGNhbGxlZCBhY3Jvc3MgdGhyZWFkcyIKICAgIGVuZAog
ICAgIyByZXN1bWXjgZfjgZ/jgajjgY06CiAgICAjICAg44GT44Gu5L2N572uLCDmnIDlvozjga55
aWVsZOOBruS9jee9riwgbmlsCiAgICAjIHlpZWxk44GV44KM44Gf44Go44GNOgogICAgIyAgIG5p
bCwg5pyA5b6M44GueWllbGTjga7kvY3nva4sIHlpZWxk44Gu5byV5pWwCiAgICAjIOODluODreOD
g+OCr+OBjOe1guS6huOBl+OBn+OBqOOBjToKICAgICMgICBuaWwsIG5pbCwg44OW44Ot44OD44Kv
44Gu5oi744KK5YCkCiAgICBjb250X3BhcmVudCwgY29udF9jaGlsZCwgeWllbGRfYXJncyA9IGNh
bGxjYyB7fGN8IFtjLCBAY29udF9jaGlsZF19CiAgICBpZiBjb250X3BhcmVudCAjIHJlc3VtZeOB
l+OBn+OBqOOBjQogICAgICByYWlzZSBGaWJlckVycm9yLCAiZGVhZCBmaWJlciBjYWxsZWQiIGlm
IGNvbnRfY2hpbGQubmlsPwogICAgICAjIOODluODreODg+OCr+OBruWFiOmgreOCguOBl+OBj+OB
r+acgOW+jOOBrnlpZWxk44Gu5L2N572u44Gr6aOb44G2CiAgICAgIGNvbnRfY2hpbGQuY2FsbChu
aWwsIGNvbnRfcGFyZW50LCBhcmdzKQogICAgZWxzaWYgQGV4Y2VwdGlvbiAjIOODluODreODg+OC
r+OBp+S+i+WkluOBjOeZuueUn+OBl+OBn+OBqOOBjQogICAgICByYWlzZSBAZXhjZXB0aW9uICMg
cmVzdW1l5YWD44Gr5rOi5Y+KCiAgICBlbHNlICMgeWllbGTjgZXjgozjgZ/jgajjgY0v44OW44Ot
44OD44Kv44GM57WC5LqG44GX44Gf44Go44GNCiAgICAgICMg5pyA5b6M44GueWllbGTjga7kvY3n
va7jgpLoqJjpjLLjgILjg5bjg63jg4Pjgq/jgYzntYLkuobjgZfjgZ/jgajjgY3jga8gbmlsCiAg
ICAgIEBjb250X2NoaWxkID0gY29udF9jaGlsZAogICAgICByZXR1cm4gKnlpZWxkX2FyZ3MgIyB5
aWVsZOOBruW8leaVsOOCguOBl+OBj+OBr+ODluODreODg+OCr+OBrui/lOOCiuWApOOCkui/lOOB
mQogICAgZW5kCiAgZW5kCgogIGRlZiBhbGl2ZT8KICAgIHRydWUgJiBAY29udF9jaGlsZAogIGVu
ZAoKICAjIOOBqeOBhuOBq+OCgiAxLjkg44Gu44KC44Gu44Gu5oyv6Iie44GE44GM55CG6Kej44Gn
44GN44Gq44GE44Gu44Gn44CB5a6f6KOF44KS44GC44GN44KJ44KB44Gf44CCCiAgZGVmIHRyYW5z
ZmVyKCphcmdzKQogICAgcmFpc2UgTm90SW1wbGVtZW50ZWRFcnJvci5uZXcKICBlbmQKZW5kCgpj
bGFzcyBGaWJlckVycm9yIDwgU3RhbmRhcmRFcnJvcgplbmQK
------=_Part_13179_18054813.1215234763902
Content-Type: application/octet-stream; name=test_fiber18.rb
Content-Transfer-Encoding: base64
X-Attachment-Id: f_fi9qajld1
Content-Disposition: attachment; filename=test_fiber18.rb

IyEvdXNyL2Jpbi9ydWJ5CgpyZXF1aXJlICd0ZXN0L3VuaXQnCnJlcXVpcmUgJ2ZpYmVyMTgnCgpj
bGFzcyBUZXN0RmliZXIgPCBUZXN0OjpVbml0OjpUZXN0Q2FzZQogIGRlZiB0ZXN0X25vcm1hbAoj
IyBjdXJyZW50IOOBr+Wun+ijheOBl+OBpuOBhOOBquOBhAojICAgIGYgPSBGaWJlci5jdXJyZW50
CiAgICBmID0gRmliZXIubmV3e3xlfAogICAgICBhc3NlcnRfZXF1YWwoOm9rMSwgZSkKICAgICAg
RmliZXIueWllbGQgOm9rMgogICAgfQogICAgYXNzZXJ0X2VxdWFsKDpvazIsIGYucmVzdW1lKDpv
azEpKQogICAgYXNzZXJ0X2VxdWFsKDpvazMsIGYucmVzdW1lKDpvazMpKQogICAgYXNzZXJ0X2Vx
dWFsKFs6YSwgOmJdLCBGaWJlci5uZXd7fGEsIGJ8IFthLCBiXX0ucmVzdW1lKDphLCA6YikpCiAg
ZW5kCgogIGRlZiB0ZXN0X3Rlcm0KICAgIGFzc2VydF9lcXVhbCg6b2ssIEZpYmVyLm5ld3s6b2t9
LnJlc3VtZSkKICAgIGFzc2VydF9lcXVhbChbOmEsIDpiLCA6YywgOmQsIDplXSwKICAgICAgRmli
ZXIubmV3ewogICAgICAgIEZpYmVyLm5ld3sKICAgICAgICAgIEZpYmVyLm5ld3sKICAgICAgICAg
ICAgRmliZXIubmV3ewogICAgICAgICAgICAgIFs6YV0KICAgICAgICAgICAgfS5yZXN1bWUgKyBb
OmJdCiAgICAgICAgICB9LnJlc3VtZSArIFs6Y10KICAgICAgICB9LnJlc3VtZSArIFs6ZF0KICAg
ICAgfS5yZXN1bWUgKyBbOmVdKQogIGVuZAoKICBkZWYgdGVzdF9tYW55X2ZpYmVycwogICAgR0Mu
c3RhcnQKICAgICMgbWF4ID0gMTAwMDAKICAgIG1heCA9IDEwMCAjIGNhbGxjYyDjgYzjg6rjgr3j
g7zjgrnjgpLpo5/jgYTpgY7jgY7jgovjga7jgYvjgIHlpJrpgY7jgY7jgovjgajjgrPjgrHjgosK
ICAgIGFzc2VydF9lcXVhbChtYXgsIG1heC50aW1lc3sKICAgICAgRmliZXIubmV3e30KICAgIH0p
CiAgICBhc3NlcnRfZXF1YWwobWF4LAogICAgICBtYXgudGltZXN7fGl8CiAgICAgICAgRmliZXIu
bmV3ewogICAgICAgIH0ucmVzdW1lCiAgICAgIH0KICAgICkKICBlbmQKCiAgZGVmIHRlc3RfbWFu
eV9maWJlcnNfd2l0aF90aHJlYWRzCiAgICAjIG1heCA9IDEwMDAKICAgIG1heCA9IDEwICMg5ZCM
5LiKCiAgICBAY250ID0gMAogICAgKDEuLjEwMCkubWFwe3x0aXwKICAgICAgR0Muc3RhcnQgIyBH
QyDjgZfjgarjgYTjgajjgIHkvZXmlYXjgYvjg6Hjg6Ljg6rkuI3otrPjgavjgarjgaPjgZ/jgoog
U0VHViDjgZnjgosKICAgICAgVGhyZWFkLm5ld3sKICAgICAgICBtYXgudGltZXN7fGl8CiAgICAg
ICAgICBGaWJlci5uZXd7CiAgICAgICAgICAgIEBjbnQgKz0gMQogICAgICAgICAgfS5yZXN1bWUK
ICAgICAgICB9CiAgICAgIH0KICAgIH0uZWFjaHt8dHwKICAgICAgdC5qb2luCiAgICB9CiAgICBh
c3NlcnRfZXF1YWwoOm9rLCA6b2spCiAgZW5kCgogIGRlZiB0ZXN0X2Vycm9yCiAgICBhc3NlcnRf
cmFpc2UoQXJndW1lbnRFcnJvcil7CiAgICAgIEZpYmVyLm5ldyAjIEZpYmVyIHdpdGhvdXQgYmxv
Y2sKICAgIH0KICAgIGFzc2VydF9yYWlzZShGaWJlckVycm9yKXsKICAgICAgZiA9IEZpYmVyLm5l
d3t9CiAgICAgIFRocmVhZC5uZXd7Zi5yZXN1bWV9LmpvaW4gIyBGaWJlciB5aWVsZGluZyBhY3Jv
c3MgdGhyZWFkCiAgICB9CiAgICBhc3NlcnRfcmFpc2UoRmliZXJFcnJvcil7CiAgICAgIGYgPSBG
aWJlci5uZXd7fQogICAgICBmLnJlc3VtZQogICAgICBmLnJlc3VtZQogICAgfQojIyBmaWJlcjE4
IOOBryBjYWxsY2Mg44Gn5a6f6KOF44GX44Gm44GE44KL44Gu44Gn44CB44Gp44GG44Gq44KL44GL
44KP44GL44KJ44KT44CCCiMgICAgIGFzc2VydF9yYWlzZShSdW50aW1lRXJyb3IpewojICAgICAg
IGYgPSBGaWJlci5uZXd7CiMgICAgICAgICBAYyA9IGNhbGxjY3t8Y3wgQGMgPSBjfQojICAgICAg
IH0ucmVzdW1lCiMgCiMgICAgICAgQGMuY2FsbCAjIGNyb3NzIGZpYmVyIGNhbGxjYwojICAgICB9
CiAgICBhc3NlcnRfcmFpc2UoUnVudGltZUVycm9yKXsKICAgICAgRmliZXIubmV3ewogICAgICAg
IHJhaXNlCiAgICAgIH0ucmVzdW1lCiAgICB9CiAgICBhc3NlcnRfcmFpc2UoRmliZXJFcnJvcil7
CiAgICAgIEZpYmVyLnlpZWxkCiAgICB9CiAgICBhc3NlcnRfcmFpc2UoRmliZXJFcnJvcil7CiAg
ICAgIGZpYiA9IEZpYmVyLm5ld3sKICAgICAgICBmaWIucmVzdW1lCiAgICAgIH0KICAgICAgZmli
LnJlc3VtZQogICAgfQogICAgYXNzZXJ0X3JhaXNlKEZpYmVyRXJyb3IpewogICAgICBmaWIgPSBG
aWJlci5uZXd7CiAgICAgICAgRmliZXIubmV3ewogICAgICAgICAgZmliLnJlc3VtZQogICAgICAg
IH0ucmVzdW1lCiAgICAgIH0KICAgICAgZmliLnJlc3VtZQogICAgfQogIGVuZAoKICBkZWYgdGVz
dF9yZXR1cm4KICAgIGFzc2VydF9yYWlzZShMb2NhbEp1bXBFcnJvcil7CiAgICAgIEZpYmVyLm5l
dyBkbwogICAgICAgIHJldHVybgogICAgICBlbmQucmVzdW1lCiAgICB9CiAgZW5kCgojIyDkvZXm
lYXjgYvmrbvjgazjgIIKIyAgIGRlZiB0ZXN0X3Rocm93CiMgICAgIGFzc2VydF9yYWlzZShBcmd1
bWVudEVycm9yKXsKIyAgICAgICBGaWJlci5uZXcgZG8KIyAgICAgICAgIHRocm93IDphCiMgICAg
ICAgZW5kLnJlc3VtZQojICAgICB9CiMgICBlbmQKCiMjIHRyYW5zZmVyIOOBr+Wun+ijheOBl+OB
puOBhOOBquOBhOOAggojICAgZGVmIHRlc3RfdHJhbnNmZXIKIyAgICAgYXJ5ID0gW10KIyAgICAg
ZjIgPSBuaWwKIyAgICAgZjEgPSBGaWJlci5uZXd7CiMgICAgICAgYXJ5IDw8IGYyLnRyYW5zZmVy
KDpmb28pCiMgICAgICAgOm9rCiMgICAgIH0KIyAgICAgZjIgPSBGaWJlci5uZXd7CiMgICAgICAg
YXJ5IDw8IGYxLnRyYW5zZmVyKDpiYXopCiMgICAgICAgOm5nCiMgICAgIH0KIyAgICAgYXNzZXJ0
X2VxdWFsKDpvaywgZjEudHJhbnNmZXIpCiMgICAgIGFzc2VydF9lcXVhbChbOmJhel0sIGFyeSkK
IyAgIGVuZAoKIyMgMS45IOOBriBGaWJlciDjgajlkIzjgZjmjK/oiJ7jgYTjgavjgZnjgovjga7j
ga8o56eB44Gr44GvKeeEoeeQhuOBoOOBo+OBn+OAggojICAgZGVmIHRlc3RfdGxzCiMgICAgIEdD
LnN0YXJ0CiMgICAgICMgCiMgICAgIGRlZiB0dmFyKHZhciwgdmFsKQojICAgICAgIG9sZCA9IFRo
cmVhZC5jdXJyZW50W3Zhcl0KIyAgICAgICBiZWdpbgojICAgICAgICAgVGhyZWFkLmN1cnJlbnRb
dmFyXSA9IHZhbAojICAgICAgICAgeWllbGQKIyAgICAgICBlbnN1cmUKIyAgICAgICAgIFRocmVh
ZC5jdXJyZW50W3Zhcl0gPSBvbGQKIyAgICAgICBlbmQKIyAgICAgZW5kCiMgCiMgICAgIGZiID0g
RmliZXIubmV3IHsKIyAgICAgICBhc3NlcnRfZXF1YWwobmlsLCBUaHJlYWQuY3VycmVudFs6dl0p
OyB0djFhcig6diwgOngpIHsKIyAgICAgICBhc3NlcnRfZXF1YWwoOngsICBUaHJlYWQuY3VycmVu
dFs6dl0pOyAgIEZpYmVyLnlpZWxkCiMgICAgICAgYXNzZXJ0X2VxdWFsKDp4LCAgVGhyZWFkLmN1
cnJlbnRbOnZdKTsgfQojICAgICAgIGFzc2VydF9lcXVhbChuaWwsIFRocmVhZC5jdXJyZW50Wzp2
XSk7IEZpYmVyLnlpZWxkCiMgICAgICAgcmFpc2UgIyB1bnJlYWNoYWJsZQojICAgICB9CiMgCiMg
ICAgIGFzc2VydF9lcXVhbChuaWwsIFRocmVhZC5jdXJyZW50Wzp2XSk7IHR2YXIoOnYsMSkgewoj
ICAgICBhc3NlcnRfZXF1YWwoMSwgICBUaHJlYWQuY3VycmVudFs6dl0pOyAgIHR2YXIoOnYsMykg
ewojICAgICBhc3NlcnRfZXF1YWwoMywgICBUaHJlYWQuY3VycmVudFs6dl0pOyAgICAgZmIucmVz
dW1lCiMgICAgIGFzc2VydF9lcXVhbCgzLCAgIFRocmVhZC5jdXJyZW50Wzp2XSk7ICAgfQojICAg
ICBhc3NlcnRfZXF1YWwoMSwgICBUaHJlYWQuY3VycmVudFs6dl0pOyB9CiMgICAgIGFzc2VydF9l
cXVhbChuaWwsIFRocmVhZC5jdXJyZW50Wzp2XSk7IGZiLnJlc3VtZQojICAgICBhc3NlcnRfZXF1
YWwobmlsLCBUaHJlYWQuY3VycmVudFs6dl0pOwojICAgZW5kCmVuZAo=
------=_Part_13179_18054813.1215234763902--