屑俺日記

☆ 遅延評価

一応、 去年やってみた ようだけど、全然覚えてなかった。
また 別の本から(Web公開版があったことは知らなかった)。

|aBlockClosure|
aBlockClosure := [:argument | 
  Transcript show: argument . 
  Transcript show: 
    ' is beautiful.'; cr].
 
aBlockClosure value: 'Red'.
=>
Red is beautiful.

gst と sq3.9で動いた。

☆ 配列の要素に順にアクセスする

やってなかったっけ...?

st> array
('foo' 'bar' 'baz' )
 
st> array do: [: i | Transcript show: i; cr]
foo
bar
baz
('foo' 'bar' 'baz' )

☆ サーバメンテ完了

したらしい。事前に at(1)でかけておいたシャットダウンは予定通り 1時 50分に 作動した模様。
VPSの方で再起動をかけてくれたのは、4時50分頃と思われた。
作業完了は、4時54分だそうである。
以下、その前後のログ(/var/log/messages)。

Dec 19 01:50:01 $HOST shutdown[9217]: shutting down for system halt
Dec 19 01:50:05 $HOST kernel: Kernel logging (proc) stopped.
Dec 19 01:50:05 $HOST rsyslogd: [origin software="rsyslogd" \
 swVersion="4.6.4" x-pid="1007" x-info="http://www.rsyslog.com"] \
 exiting on signal 15.
Dec 19 04:49:47 $HOST kernel: imklog 4.6.4, log source = \
 /proc/kmsg started.  
Dec 19 04:49:47 $HOST rsyslogd: [origin software="rsyslogd" \
 swVersion="4.6.4" x-pid="1038" x-info="http://www.rsyslog.com"] \
 (re)start
Dec 19 04:49:47 $HOST kernel: [    0.000000] Initializing cgroup \
 subsys cpuset
Dec 19 04:49:47 $HOST kernel: [    0.000000] Initializing cgroup \
 subsys cpu
Dec 19 04:49:47 $HOST kernel: [    0.000000] Linux version 2.6.32-5-amd64 \
 (Debian 2.6.32-46) (dannf@debian.org) (gcc version 4.3.5 \
 (Debian 4.3.5-4) ) #1 SMP Sun Sep 23 10:07:46 UTC 2012
Dec 19 04:49:47 $HOST kernel: [    0.000000] Command line: \
 BOOT_IMAGE=/boot/vmlinuz-2.6.32-5-amd64 root=UUID=$UUID ro quiet \
 console=tty0 console=ttyS0,115200n8r

☆ printString

数値に限らず、なんでも文字にしてしまう、らしい。

array1 := #('foo' 8 'bar').
Transcript show: array1 printString; cr.
=>
('foo' 8 'bar' )

☆ なんじゃこりゃ

適当に色々検索したら、ちょっと 面白そうな ドキュメントが見つかった。
その一部を参考に。

st> string := String new: 5.
''
st> string class.
String
st> string size.
5
st> string at:3 put:$c.
$c
st> string at:1 put:$A.
$A
st> Transcript show: string; cr.
Ac
Transcript

☆ 同じか否か

集合型で"="と"=="の違いを確認。
python なら "==" と "is" の違いとでも言おうか。

st> myset1 := Set new.
Set ()
st> myset2 := myset1.
Set ()
st> myset3 := Set new.
Set ()
st> myset1 add: 'foo'; add: 'bar'.
'bar'
st> myset2
Set ('bar' 'foo' )
st> myset1 do: [:x | myset3 add: x].
Set ('bar' 'foo' )
st> myset1 = myset2.
true
st> myset1 == myset2.
true
st> myset1 = myset3.
true
st> myset1 == myset3.
false

配列も文字列も同様。