Smalltalk

オブジェクト指向言語に分類される プログラミング言語 >>他のプログラミング言語 ■カテゴリ / ■テンプレート Smalltalk（スモールトーク）は、Simula のオブジェクト（およびクラス）、LISPの徹底した動的性、LOGO のタートル操作や描画機能に、アラン・ケイの「メッセージング」というアイデアを組み合わせて作られたクラスベースで手続き型の純粋オブジェクト指向プログラミング言語、および、それによって記述構築された統合化プログラミング環境の呼称。 Smalltalk で一語であり、「Small Talk」「SmallTalk」などは誤りである。 大規模な開発実績としてはCargill Lynx Projectがあり、国産製品の開発実績としてはMCFrameがある。 ゼロックスのパロアルト研究所（PARC）で1970年代に約10年かけ3世代（Smalltalk-72、76、80）を経て整備された。当初は、ダイナブックである Alto（アルト） のオペレーティングシステム的位置付けだったが、Alto のゼロックス社製品としての販売の可能性が同社上層部決定により完全に排除されたこと、発案者であるアラン・ケイの研究開発グループ離脱などを受けてダイナブック色は失せ、Alto のハードウェア技術を基にした商用マシン上で動作するプロの開発者向け統合化プログラミング環境「Smalltalk-80」として1983年に発売されることになる。現在はシンコムより VisualWorks（ビジュアルワークス）という製品名で主要なオペレーティングシステム向けに販売されている。 ※この節はを元に執筆されている。 豊富で整備されたクラスライブラリーは、特にオブジェクト指向プログラミングの手本とされ、デザインパターンの宝庫と称されるまで洗練されたものになっている。また、後世の多くのオブジェクト指向プログラミング言語に直接間接的に多大な影響を与えた。 アラン・ケイが「オブジェクト指向」という言葉を創った当初は、Smalltalk システムが体現した「パーソナルコンピューティングに関わる全てを『オブジェクト』とそれらの間で交わされる『メッセージ送信』によって表現すること」を意味していた。しかしのちに、C++ の設計者として知られるビャーネ・ストロヴストルップが（自身、Smalltalk の影響は受けていないと主張する）C++ の設計を通じて整理し発表した「『継承』機構と『多態性』を付加した『抽象データ型』のスーパーセット」という考え方として広く認知されるようになった（カプセル化、継承、多態性）。現在は、両者の渾然一体化した曖昧な概念として語られることが多い。 Smalltalk は、オブジェクトへのメッセージ送信を率直に記述する表記の特殊性や、制御構造をもたずオブジェクトへのメッセージ送信の形で記述する徹底ぶりとも併せて、C言語や C++ などの流れを強く受け継ぐ言語、およびその開発手法に慣れた開発者にとって極めてとっつきにくい言語・環境であるといわれている。このことは、Smalltalk が単なるプログラミング言語ではなく、従来のオペレーティングシステムの概念をも包括する「環境」であることが一つの理由である。Smalltalk を単なる言語としてとらえると、他の言語と比較したとき、使用するオペレーティングシステムのグラフィカルユーザインターフェースに全く従わないなど、その独自性が大きな「欠点」として映る場合もある。 これは VisualWorks や Squeak（スクイーク） など、旧来の Smalltalk 環境、つまりダイナブックコンピュータ環境の要素を引き継ぐ統合開発環境を通じて Smalltalk 言語や処理系を学ぶなら、多かれ少なかれ新たなオペレーティングシステムに接するような心構えを持つべきことを意味する。 Smalltalk 環境から見た Smalltalk 言語は、いわば bash などのシェルに近い。Smalltalk 環境内であればどこでもマウスで選択した文字列を Smalltalk のソースコードとして実行できるためシェルにコマンドを打ち込んだ時の様に簡単な問い合わせをすぐ実行できるようになっている。 例えばオブジェクト(クラスやメソッドも含む)の構造を調べたければ、そのオブジェクトに#browse（ブラウズ）セレクターあるいは#inspect（インスペクト）セレクターを使ったメッセージ式を書き、そのメッセージ式をマウスで選択してdo it(WindowsであればCtrl+Dを押す)すれば良い。 また、設定値の指定に Smalltalk 言語のメッセージ式が使われる。現在設定されている値がメッセージ式として取得でき、値の設定をメッセージ式として指定する。この設定値を指定するメッセージ式は Smalltalk 環境の実行中に設定用のウィンドウから入力される。 Smalltalk 環境は、Smalltalk 環境の実行方法として現実のハードウェアに依存している機械語命令を使わず、現実のハードウェアから独立した中間言語命令(仮想機械に対する機械語命令)を仮想機械により実行する仮想機械方式を採用している。 Smalltalk の中間言語命令は、全てイメージファイルというファイルに書き込まれ Smalltalk の仮想機械はそのイメージファイルを読み込んでSmalltalk 環境を実行する。 この仮想機械方式による Smalltalk の実行方法は Smalltalk の言語仕様にも含まれている。 なお、Smalltalk が導入したこの仮想機械方式はEULERのpコードマシンからアラン・ケイが着想を得たものである。 イメージファイルは、Smalltalk 環境の実行状態をそのまま保存したファイルである。イメージファイルは Smalltalk 環境実行中に生成された全てのオブジェクトを直列化して保存することでSmalltalk 環境の実行状態を保存している。この直列化されたオブジェクトには、Smalltalk の中間言語も含まれている。イメージファイルに含まれる中間言語命令は、Smalltalk 自身によって記述されたコンパイラーによってソースコードから翻訳された、バイト列のオブジェクトである。 中間言語を実行している仮想機械も一般的には Smalltalk で記述される。ただし、仮想機械で動く Smalltalk の実行イメージが実行環境の機械語で直接動作する仮想機械にはなれないため、Smalltalk で書かれたソースコードを一度Cのソースコードに変換し、C言語のソースコードから実行環境で直接動作する仮想機械を生成するという形式をとっている。Smalltalk の実行環境が全く存在しない初期の状況ではコンパイラーも仮想機械も Smalltalk で用意する事はできない。このため Smalltalk の初期段階ではALTOのアセンブリ言語によりコンパイラーや仮想機械が実装されていた。 GUIを使わないような特殊なものを除き、大半のSmalltalk環境では次のようなGUIツールが用意されている。 Class Browser(System Browser) Transcript Workspace Debugger/Notifier Inspector Smalltalkの開発ではこれらのツールを使って開発する事が半ば前提となっている。 Smalltalk環境内に存在する全てのクラスを(存在する場合は名前空間も)表示/編集できるツールで、Smalltalk開発において中核となるツールである。 言うなれば出力しかできないコンソールといったツールで、プログラムの実行結果を簡易的に表示したいときに使われるツールである。Smalltalk環境内でTranscript変数に書き込まれたメッセージは、全てこのTranscriptに表示される。 言うなればコンソールの入力側とテキストエディターを組み合わせた様なツールである。一見すれば書いたコードを実行できるだけの簡易的なテキストエディターにしか見えないが、WorkspaceはWorkspace変数というWorkspace固有の変数を持っており、Workspace内で実行されたSmalltalkコードの実行結果を保持することができる。このため、長いコードを書くような用途では使わず、Smalltalk環境に対するパッケージの追加や、環境設定、ファイルの一時的な操作など一時的な操作を実行する場所として使われる。 オブジェクトの内部構造を再帰的に表示するツールである。また、多くの場合オブジェクトの編集が可能でありWorkspaceと組み合わせてオブジェクトを組み立てていくことが可能である。例えば画面部品をWindowを表すオブジェクトに組み込み、クラス変数に格納するといった具合である。Inspectorに限らずSmalltalk環境全体に共通することであるが、オブジェクト内の変数を表示するときは内部構造そのままではなくオブジェクトの文字列表現で表示する。このため内部がHash map等複雑な構造になっている場合でもDictionary (#key -> 'value' )といった読み易い表示となる。 言語として Smalltalk が目指したもの。それは計算機を計算機の集合体として構築し、さらに計算機を構成する個々の計算機も計算機の集合体で構築するというように、再帰的な計算機を構築することであった。この再帰的な計算機を構築している無数の計算機は、個々の内部には干渉せずメッセージによる通信のみによって相互作用を発生させ目的の計算を完遂させる。 ここでいう計算機が Smalltalk ではオブジェクトという形で実装された。 この設計思想の誕生は、ロバート・S・バートン（英語版）とB5000の設計者らが会談した際の次の発言をアラン・ケイが聞き「計算機の全体を計算機とみなした場合、その計算機の構成要素を計算機に分解するのではなく関数やデータ構造に分解したいと誰が思うのか」と疑問を浮かべた事がきっかけとなっている。 “The basic principal of recursive design is to make the parts have the same power as the whole.” 「再帰設計の基本原理は、部品が全体と同じ力を持つようにすることだ」 ここで言及された再帰という概念は、オブジェクトの成立以外にも Smalltalk の至るところに影響を与えている。 反復はメソッドの再帰呼び出し。 インスタンスオブジェクトを生成しているクラスオブジェクトも、クラスオブジェクトに所属するインスタンスオブジェクトであり再帰関係を持つ。 MetaclassはMetaclass classのインスタンスオブジェクトでありMetaclass classは、Metaclassであり再帰関係を持つ。 基本的な派生元となるObjectやProtoObjectは、それらから派生したUndefinedObjectのインスタンスオブジェクトであるnilを継承しており再帰関係を持つ。 Smalltalk 言語は Smalltalk 言語自身によりメッセージ送信等の言語機能が制御される。 Smalltalk 言語の翻訳や仮想機械は Smalltalk 言語により実装される。 Smalltalk 言語の大域変数はSmalltalk変数に格納されたオブジェクトにより管理されるが、Smalltalk変数自体も大域変数である。 Smalltalk の言語仕様は原則として非常に単純なため、環境もしくは処理系の相違による互換の有無は、クラスライブラリーの差異程度に由来するもの（ある意味、バージョンの違いもこれも含まれる）から、言語仕様自体の改変に由来のものまで空間的に連続で多岐にわたる。このため、単に Smalltalk として語弊のある場合、一般にその環境および処理系の呼称もしくは商標（必要ならそのバージョン）をして他と区別するために用いる慣習がある。 「"～"」のようにダブルクオーテーションでくくった文字列がコメントとして扱われる。 主な定数表現には次のようなものがある。 定数ではないが、よく用いられるオブジェクトの生成式には次のようなものがある。 言語機能の様に見えるが「/」や「@」などはただのセレクターであり、Smalltalk の使用者も同様の機能を作ることが出来る。 一時変数は宣言が必要で、「|」で挿むように記述する。変数への代入は「:=」。古い処理系では「_」が使用された（字形は「←」）。変数に型はなく全てハンドルになっている。 | a b | a := 3. b := 4. 他の言語で予約語にあたる擬変数は self、super、nil、true、false、thisContext の6つ。self と super はそのメソッドを呼び出したメッセージの受け手（レシーバー）を、nil と true と false はそれぞれ UndefinedObject、True、False に属するソルインスタンス（唯一の実体）を、thisContext は実行中のコンテキスト（スタックフレーム）を参照するのに使える。 self と super は同種のオブジェクトだが、メッセージ式でメッセージレシーバーに指定されたときのメソッド検索の起点が異なり、self ではオブジェクトが属するクラス、super ではその基底クラスである。 Smalltalk では「メッセージ式」と呼ばれる書式でコードを記述する。メッセージ式は「レシーバー」に「メッセージ」を送ることを表すためのもので、そのまま receiver message と記述する。メッセージはさらに、呼び出されるされるメソッド（処理手順）の名前を表す「メッセージセレクター」と0個以上の引数の組み合わせからなる。ただし Smalltalk の場合必ずしもセレクターとメソッド名は一致しない。また、メッセージの送り先はメソッドではなくブロックや外部の関数になっている場合もある。セレクターは引数の数だけコロンを自身に含まなければならず、メッセージとして記述する際にはコロンの直後に引数を挿入する。 引数なしのメッセージを単項メッセージ、そのセレクターを単項セレクターと呼び、引数ありのメッセージをキーワードメッセージ、そのセレクターをキーワードセレクターと呼ぶ。メッセージ記述の際に引数の挿入により分断されたキーワードセレクター断片（例えば firstArg:secondArg: なら firstArg: と secondArg:）をキーワードと呼ぶが、あくまで便宜的な呼び名に過ぎず、そうした言語要素は存在しない。他の言語に見られる「キーワード引数」のように省略できるものではなく、また引数順を入れ替えられるものでもない。 セレクターは原則としてアルファベットと数字と0個以上（かつ、引数と同数）のコロンから成るが、例外として二項演算を模した記述が可能となるように記号のみから成る引数1つのセレクターを使ってメッセージ式を記述することもできる。これを二項メッセージ、そのセレクターを二項セレクターと呼ぶ。 この場合、上の「3 + 4」では、「3」がレシーバーで「+ 4」がメッセージである。 通常の処理系では、単項メッセージ、二項メッセージ、キーワードメッセージの順で評価される。二項メッセージ間で乗除の優先はない。 セミコロン「;」でメッセージ式を区切る事により、1個のレシーバーに対して複数のメッセージを送ることが出来る。これをカスケード式という。 | collection | collection := OrderedCollection new add: 0; add: 1; add: 2; add: 3; add: 4; yourself. カスケード式を用いて書いた上記の文は、カスケード式を用いない次の文と等価である。 | collection | collection := OrderedCollection new. collection add: 0. collection add: 1. collection add: 2. collection add: 3. collection add: 4. 複数の式を順次実行する場合は、式をピリオドで区切る。メソッドを中断し戻り値を指定するには復帰文「^ 戻り値式」を使う。言語機能として持つ制御構文は復帰文を除いて存在せず、復帰文以外の制御は制御構文と同等の機能を持ったメッセージ式で代用する。 ブロックは、他の言語で言えば無名関数やクロージャーに該当する機能である。ただし Smalltalk のブロックは関数ではなくオブジェクトである事に加え、無名関数というより制御構文としての性格が強くなっている。並列実行の基本単位にもなる。 ブロックは、引き数の数毎に複数定義された「value」を含むメッセージを送る事で、ブロック内に記述されたメッセージ式を実行し結果を返す。 [ 　0 ] value. "-> 0" [ :value1 | value1 ] value: 1. "-> 1" [ :value1 :value2 | value1 + value2 ] value: 1 value: 1. "-> 2" ブロック内の:value1 :value2は引き数であり、「|」以降は「value」を含むメッセージが送られた際実行するメッセージ式である。「value」を複数ならべたセレクターは4個程度まで( #value:value:value:value: )しか定義されておらず。5個以上引き数を取る場合は、配列を引き数とする#valueWithArguments:を使う必要がある。メソッドが値を返す際は、復帰文の記述が必要となるがブロックの場合は値を返すのに復帰文は必要ない。最後に実行されたメッセージ送信の結果あるいは、最後に書かれた値が戻り値となる。ブロックは制御の基本となるオブジェクトであるため、「value」を含むメソッド以外にも膨大なメソッドを持っている。ただし、後述する他の制御構文はブロックに対し#valueセレクターまたは、#value:セレクターを使ったメッセージしか送らない。 ブロックにはvalueと合わせてよく使われるセレクターとして「cull」がある。cullの振る舞いは、ほぼvalueと同じであるが、ブロックがメッセージに含まれる引き数を無視できるという違いがある。 [ :value1 | value1 ] cull: 1 cull: 2. "-> 1" cullはブロックによる分岐制御が主目的であるが、分岐の基準になったオブジェクトを参照する場合もあるようなセレクターで使われる。典型的な例は、オブジェクトがnilで無いときだけブロックを実行する#ifNotNil:である。 | block value1 value2 | block := [ :value | value ]. value1 := 1. value2 := 2. value1 ifNotNil: [ 9 ]. "-> 9" value1 ifNotNil: block. "-> 1" value2 ifNotNil: block. "-> 2" 条件分岐は #ifTrue:ifFalse: セレクターを用いたメッセージ式として、条件式の結果の真偽値へのメッセージ送信の形で次のように記述する。 3 < 4 ifTrue: [ 5 ] ifFalse: [ 6 ]. Smalltalk では nil がオブジェクトである。これを利用した nil 専用の条件式も存在する。 object := nil. object ifNil: [ 5 ] ifNotNil: [ 6 ]. object ifNotNilDo: [ :value | value inspect. ]. 条件分岐の制御において、他の言語でいうswitchに直接該当する文は存在しない。多態性を利用して分岐するか、次のように連想配列を利用して分岐するため不要である。 something: aNumber | switch | "速度が求められる場合は、初期化済みのDictionaryのオブジェクトをインスタンス変数やクラス変数にキャッシュする。" switch := Dictionary new at: 1 put: [ #a ]; at: 2 put: [ #b ]; at: 3 put: [ #c ]; yourself. ^ ( switch at: aNumber ifAbsent: [ #z ] ) value. 但し一部の処理系では、次のようなswitchに類似した書き方ができるものも存在する。 something: aNumber ^ aNumber caseOf: { [ 1 ]->[ #a ]. [ 2 ]->[ #b ]. [ 3 ]->[ #c ]. }. 反復制御においてfor に直接該当する文は存在しない。代わりに回数を指定した反復がある。回数を指定した反復は、整数型へのメッセージ送信の形で次の様に記述する。 "100回の反復処理を実行する" 100 timesRepeat: [ "反復実行する処理" ]. 現在の反復回数を参照しながら反復する事も出来る。 "100回の反復処理を実行する" 1 to: 100 do: [ :each | "eachは現在の反復回数" ]. for　に該当する文は存在しないものの、while に該当する文は存在する。while に該当する反復は、ブロックに対するメッセージ送信の形で次の様に記述する。 [ true "真偽値を返す式" ] whileTrue: [ "反復実行する処理" ]. #whileTrue: セレクターは、条件が真である間反復する事を意味している。逆に条件が偽である間反復する #whileFalse: というセレクターも存在する。 また do-while に該当する文も存在する。do-while に該当する反復は、ブロックに対するメッセージ送信の形で次の様に記述する。 [ "反復実行する処理" "このブロックの実行結果が真である間反復を繰り返す" ] whileTrue. Smalltalk では条件なしの反復も存在する。無条件反復は、ブロックに対するメッセージ送信の形で次の様に記述する。 [ "反復実行する処理" ] repeat. Smalltalk では、反復方法が複数存在するが、実は全てメソッドの再帰呼び出しによって実装されているという事になっている。ただし、こちらも #ifTrue:ifFalse 同様実際にメソッドの再帰呼び出しとして実行されていない事が多い。 C言語の break や Perl の last に相当する反復脱出は thisContext に対し #return セレクターを使ったメッセージを送る。 [ thisContext return. "反復を抜ける" ] repeat. thisContext には、引き数を取り、引き数を脱出するブロックの戻り値として返す #return: セレクターや、戻り先のメソッドを指定する #return:to: セレクターなど多数の return 系セレクターに対応するメソッドが定義されており、他の言語には珍しい多様な反復の脱出方法を備えている。 Smalltalk にも例外処理機構が存在する。こちらも、その他の構文と同じくメッセージ式とブロックによって実現されている。例外処理は次の様に記述する。 [ [ Exception signal: '処理失敗'. "例外発生" ] ensure: [ "例外の有無に関わらず実行したい処理" ]. ] on: Exception "補足する例外の種類" do: [ :exception | "例外を補足した際の処理" ]. なお#ensure:は後述のブロックによる資源の開放があるため多用されることはない。 例外の制御はメッセージ送信毎に連結リストとして積み上げられたコンテキスト情報の末端のコンテキスト（メソッドスタック）を表す thisContext オブジェクトを操作し、コンテキストを巻き戻す事で実現されている。 複数の例外は、#on:do:on:do・・とon:do:を繰り返し(処理系が定義している限りの数で)記述して補足する事もできるが、次の様に例外の型を,で並べて補足する事も出来る。 [ Notification signal: '接続準備完了'. ] on: Error, Notification do: [ :exception | "エラーと通知両方の例外を1度に補足" ]. なお、Smalltalkでは正常な結果を返せないエラー(間違い)と通知両方を合わせたものが例外である。例外は正常な戻り値を返せない場合と割り込みの様に非同期な通知に利用される。 Smalltalkでは、標準で並列処理が存在する。並列処理は次の様に記述する。 | process semaphore | semaphore := Semaphore new. process := [ Process yield. "他のProcessに切り替える切り替え点" "並列実行される子処理" semaphore signal. "親処理への終了通知" ] newProcess. process resume. "子処理の起動。Blockに対し#forkを送る場合はnewProcessとresumeは省略できる" "並列実行される親処理" semaphore wait. "子処理の終了待機" 並列処理はスレッドに類似するプロセスという仕組みにより実装されている。プロセスはSmalltalk環境内で構築された並列処理の仕組みであり、グリーンスレッドで実装されている事が多い。このため、プロセスは論理的に非プリエンプティブなスレッド(グリーンスレッド)を前提しており、現在実行している処理を切り替える切り替え点を必要とする。論理的な前提は非プリエンプティブではあるものの、POSIX環境で動作させたGNU Smalltalkの様に実際はプリエンプティブなスレッドで実装されている場合もある。プロセスは他のプロセスから割り込みとして任意の例外を投げる機能があり(記述方法は環境によって異なる)、切り替え点はプリエンプティブなスレッドを使う場合でも例外の発生地点として機能する。 Smalltalk は、クラスの定義をメッセージ式による実行環境へのクラスオブジェクトの登録として実現する。他の言語と異なりクラスオブジェクトの登録は単なる定義ではなく実行環境に対する操作である。1度クラスオブジェクトを登録してイメージファイルを保存すると、明示的にクラスオブジェクトを削除しないかぎりはクラスオブジェクトがイメージファイルに残り続ける。Smalltalk 環境に対するクラスオブジェクトの登録は次の様に記述する。 "DerivedクラスをSmalltalk環境に登録する例" Object "基底クラスオブジェクト" subclass: #Derived "Objectクラスの派生として登録するクラスオブジェクト名の指定" instanceVariableNames: 'ia ib ic' "インスタンス(実体)オブジェクトに所属する変数名(インスタンス変数)の指定(空白区切り)" classVariableNames: 'ca cb cc' "クラスオブジェクトと共有する変数名(クラス変数)の指定(空白区切り)" poolDictionaries: 'pa pb pc' "クラスに所属する変数(プール変数)を取り込む辞書の指定(空白区切り)" category: 'example'. "Smalltalk環境上でクラス名を表示する際にクラスが所属する分類の指定" poolDictionaries と category を除いては、C++ から派生した言語のクラス定義と概ね同じである。インスタンス変数はインスタンスメソッドのみから参照でき、クラス変数はクラスメソッドとインスタンスメソッドから参照できる。他の言語と異なりインスタンス変数をクラスメソッドから参照することはできない。 Smalltalk におけるクラスの作成は、特殊構文ではなく単なるメッセージ送信である。クラスを登録する際のメッセージは、上記の例のように次のセレクターを使用することが多い。 #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: しかし、クラスの登録はあくまでメッセージであり自由に作れるため、実行環境には大抵その他のメソッドが用意されている。例えば、近代的な Smalltalk 環境の一つ Pharo では、次のセレクターに対応したメソッドが用意されている。 #subclass: #subclass:category: #subclass:instanceVariableNames: #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #subclass:uses: #subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: #variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #variableByteSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category: #variableSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #variableSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category: #variableWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #variableWordSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category: #weakSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #weakSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category: クラスオブジェクトには、クラス変数とは別途、クラスオブジェクトが Class クラスから派生したインスタンスとして状態を持つためのインスタンス変数がある。このクラスオブジェクトのインスタンス変数はクラスオブジェクト内だけで共有され、インスタンスオブジェクトからは直接使用できない。 Smalltalk 環境に対するクラスオブジェクトのインスタンス変数の登録は次の様に記述する。 Derived class instanceVariableNames: 'ia ib ic'. "クラスオブジェクトのインスタンス変数名(空白区切り)" クラスオブジェクトがもつインスタンス変数には変数を登録した基底クラスと派生クラスで別々の変数領域が確保されるという特筆すべき点がある。これを使用して下記の様にクラスに所属するオブジェクトだけを保持する変数としてつかったりする事ができる。 Object subclass: #Super. Super class instanceVariableNames: 'objects'. Super class methodsFor: 'accessing' ! objects ^ objects ifNil: [ objects := OrderedCollection new ]. !! Super class methodsFor: 'instance creation' ! new | object | object := super new. self objects add: object. ^ object. !! Super subclass: #Derived. Derived new. Derived objects size. "-> 1" Super objects size. "-> 0" メソッド（処理方法）の登録は、コード文字列を引数として与えたクラスへのメッセージ送信でも行えるが、通常は環境に組み込まれたクラスブラウザ（システムブラウザ）と呼ばれるGUIツールを用いる。 メソッドは、「メッセージパターン」と呼ばれるメッセージ式のメッセージ部分を模した書式に続けて0個以上のメッセージ式を連ねることで記述する。例えば、前出の、レシーバーか引数を比べてより小さな方を返す「min:」というメソッドの登録は次のようなものになる。 min: anOtherObject ^ self < anOtherObject ifTrue: [ self ] ifFalse: [ anOtherObject ]. 一行目の「min: anOtherObject」がメッセージパターンで、メソッド名（セレクター）と仮引数となる擬変数の宣言を兼ねる。念のためここでメソッド名は「min:」、仮引数となる擬変数名は「anOtherObject」である。メッセージパターンのあとに処理を続けて書くこともできるが、通常は行を改めて（さらに、ここでは省いたが慣習としてメソッドの説明をするコメントを書き、それに続けて）処理を記述する。 なお、メッセージパターンのみで具体的な処理を記述せずにメソッドを登録した場合を含め、復帰文による明示的な戻り値の指定が無い場合、メソッドは戻り値として常に self を返す。したがって Smalltalk では値を返さないメソッドを書くことはできない。 Smalltalkは、多くの動的型付け言語やDelphiの様にクラスがオブジェクトである。このためSmalltalkではインスタンスオブジェクトと同様にクラスオブジェクトを変数に束縛してメッセージを送ることができる。 | object | object := Something new. object value. "インスタンスオブジェクトにvalueメッセージを送信" object := Something. object value. "クラスオブジェクトにvalueメッセージを送信" クラスオブジェクトは、オブジェクトにclassメッセージを送ることでも取得できる。 ' ' class. "-> ByteString" Smalltalk のブロックは一種の制御構文であるという性質上、復帰文が他の言語と比べ極めて異質な振る舞いをする。 example | block | block := [ ^ 1 ]. block value. "ブロックを実行" ^ 0. 上記のメソッドを登録したオブジェクトに#example セレクターを使ったメッセージを送ると結果としては何が返ってくるか。Smalltalk 以外の言語では 0 が返ってくるのが一般的であるが Smalltalk では 1 が返ってくる。Smalltalk はブロック内の復帰文からでもメソッド自体を抜けることができるようになっている。この例では、「block value.」を評価し、block 中の「^ 1.」で制御が戻ると example 自体も中断して結果を返す。そして example は戻り値として block が戻した 1 を戻すようになっている。 callee: aBlock aBlock value. ^ 2. caller | block | block := [ ^ 1 ]. self callee: block. ^ 0. 上記の様なメソッドをまたいでブロックを評価する場合はどうなるだろうか、この場合も Smalltalk は example の戻り値として block の戻り値である1を返す。Smalltalk はブロック内で復帰文が実行された際、ブロックの生成地点の呼び出し元までコンテキストを巻き戻すようになっている。この特性により Smalltalk では、#ifTrue:ifFalse: セレクターを使った分岐でメソッドを中断したり #repeat セレクター等を使った反復処理を復帰文だけで中断する事ができるようになっている。 exampleBlock ^ [ ^ 1 ]. callee: aBlock aBlock value. ^ 2. caller | block | block := self exampleBlock. self callee: block. ^ 0. ただし、上記の様にブロックを生成したコンテキストと、ブロックを評価する際のコンテキストが枝分かれする様な場合は復帰文を実行する事はできない。この場合は BlockContext が例外を出力し処理が停止してしまう。 メソッドに対する注釈(Pragma)は、メッセージ式だけではどうしても実現が難しい機械語でしか記述できない演算子の実装や主記憶領域の確保、仮想機械外部との入出力等の実現や、特定の目的のメソッドを自動で列挙するといった目的で使用される特殊構文である。いくつかの注釈はSmalltalk環境に組み込まれているが、利用者やライブラリーの提供者が注釈を定義する事も出来る。 メソッドに対する注釈はメソッドの翻訳時に評価されるため、メソッドにしか記述でない。Behaviorのevaluate:による評価などメッセージ式をメソッドの外部で評価する場合は、評価対象の式に注釈を含める事はできない。具体的にはSmalltalk環境のWorkspaceに注釈を記述して評価するとエラーとなる。 メソッドに対する注釈は次の様に記述する。 < keyword1: arg1 ... keywordN: argN > <と>で囲まれた範囲は、メッセージ式のメッセージ部分と同じになる。但し引き数を取らない注釈の記述はできない。 次にメソッドに対する注釈の具体例を挙げる。注釈はSmalltalk環境によって異なり、どの環境でも次の注釈が使えるわけでない事に注意すること。 Smaltallkでは、Smalltalk環境全体で参照できる大域変数を作成する事が出来る。大域変数は同じく大域変数であるSmalltalk変数に格納されたSmalltalkImageのインスタンスオブジェクトにメッセージを送って作成する。また、大域変数の削除もSmalltalkImageのインスタンスオブジェクトに対するメッセージ送信となっている。 Smalltalk at: #GlobalVariable put: 100. GlobalVariable. "->100" globalVariable := 10. Smalltalk at: #GlobalVariable. "->10" Smalltalk removeAt: #GlobalVariable. GlobalVariable. "->nil" SmalltalkImageは一種の連想配列であり、Smalltalkの大域変数は、Smalltalk変数を介す事で連想配列として操作する事が出来るようになっている。 なお、Smalltalkのクラス名と大域変数は同じものであり、クラス名にオブジェクトを代入すれば、そのクラスを破壊してしまうことが出来る。また、Smalltalkオブジェクトが格納されたSmalltlak変数もオブジェクトを代入し破壊する事が出来る。このように大域変数を代入により破壊してしまった場合は、最悪Smalltalk環境が起動しなくなる事態に陥り非常に危険である。このためSmalltalkではよほどの理由がなければ大域変数を使うべきではない。 プール辞書は、クラスの変数として連想配列または、他のクラスオブジェクトのクラス変数を取り込むという機能である。取り込む連想配列の要素やクラスオブジェクトのクラス変数はプール変数と呼ばれる。連想配列やクラスオブジェクトは大域変数でなくてはならない。 "プール辞書で使用する連想配列の登録" Smalltalk at: #UserPoolA put: Dictionary new. UserPoolA at: #ExamplePoolValueA put: 1. "プール辞書で使用するクラスオブジェクトの登録" Object subclass: #UserPoolB instanceVariableNames: '' classVariableNames: 'ExamplePoolValueB' poolDictionaries: '' category: 'example'. "UserPoolAとUserPoolBをプール変数として利用するクラスオブジェクト" Object subclass: #Someone instanceVariableNames: '' classVariableNames: '' poolDictionaries: 'UserPoolA UserPoolB' "UserPoolAとUserPoolBを辞書に記述しプール変数を取り込む" category: 'example'. Someone methodsFor: 'accessing' ! valueA ^ ExamplePoolValueA. "UserPoolAのExamplePoolValueAを参照" ! valueB ^ ExamplePoolValueB. "UserPoolBのExamplePoolValueBを参照" !! プール辞書には複数の連想配列やクラスオブジェクトを指定できるが、プール変数が重複した場合は、先に指定した連想配列やクラスオブジェクトのプール変数が使われる。 Pharo, GNU Smalltalkといった近代の環境では、定数以外に式の結果を指定可能な非定数要素の配列定数を使用できる。配列の要素は空白ではなく.で区切る。 array := { 1. 1 + 1 }. "1と2を要素に持つ配列を作る。" 継続渡し形式を支援する機能として継続があり、PharoやGNU Smalltalkで使用できる。もっぱら反復の中断や、メソッド内の処理を飛ばすために使われる。継続の使用は次の様に記述する。 result := Continuation currentDo: [ :break | aCondition1 ifTrue: [ break value: 1 ]. "aCondition1がtrueなら以降の処理を中断しresultに1を代入する。" aCondition2 ifTrue: [ break value: 2 ]. "aCondition2がtrueなら以降の処理を中断しresultに2を代入する。" 3 "aCondition1, aCondition2両方trueならresultに3を代入する。" ]. 遅延評価を支援する機能として生成器があり、PharoやGNU Smalltalkで使用できる。生成器はCoroutineにも利用できる。生成器の使用は次の様に記述する。 stream := Generator on: [ :each | each yield: 1. each yield: 2. "stream nextを1回呼ぶまで実行しない。" each yield: 3. "stream nextを2回呼ぶまで実行しない。" ]. stream next. "-> 1" stream next. "-> 2" stream next. "-> 3" 生成器を使って処理を作ることは多くないが、配列などを使用する際、間接的に使用していることが多い。 | readStream grater2 total | readStream := #( 1 2 3 4 5 ) readStream. "#readStreamにより#select:を遅延実行する生成器が作られる。" grater2 := ( ( readStream select: [ :each | 1 < each ] ) collect: [ :each | each * 2 ] ) reject: [ :each | 8 > each ]. total := grater2 inject: 0 into: [ :value :each | value + total ]. "#inject:into:でeachに代入するとき初めて#select:と#collect:と#reject:が実行される。" Smalltalk のプログラムは基本的に中間言語としてイメージファイルの中に格納され、ソースコードの編集は Smalltalk のGUI環境から行われる。このため基本的にファイルという形で Smalltalk のソースコードやプログラムを目にすることはない。しかし、ソースコードの交換目的などでどうしても Smalltalk 環境外でソースコードを管理する必要がある場合に備えファイル用の構文が存在する。ファイル用の構文は次のようになる。 Object subclass: #Example instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'example'. Example methodsFor: 'Instance Methods A' ! selectorA1 "処理" ^ 0. ! selectorA2: anArgument "処理" ^ 0. !! Example methodsFor: 'Instance Methods B' ! selectorB1 "処理" ^ 0. ! selectorB2: anArgument "処理" ^ 0. !! Example class methodsFor: 'Class Methods' ! selector1 "処理" ^ 0. ! selector2: anArgument "処理" ^ 0. !! 本来他の言語の様なブロックが存在しないため、ブロックとして「!」が使用される。クラスの登録は「!」の一組で囲まれる。メソッドはプロトコル毎に「 クラス名 methodsFor: 'プロトコル' ! 〜 !!」というブロックで囲まれる。一つのプロトコルには複数のメソッドを定義でき、メソッド同士は一個の「!」によって区切られる。 ちなみに、クラス登録は単なるメッセージ送信であり特別な文ではないため、登録用ブロック外にも次のように単純なメッセージ送信の記述に使用する事が出来る。 Example methodsFor: 'Instance Methods A' ! selector1 !! 'hello' displayNl. 'world' displayNl. Example2 methodsFor: 'Instance Methods A' ! selector !! ファイル用構文で記述されたメソッドの登録は、可読性や記述性の面からメッセージ式からかけ離れた変則的な構文が使用される。しかし、この変則的な構文を用いなければメソッドを登録できないわけではなく、次のように通常のメッセージ式でメソッドを登録する事も出来る。 Example compile: ' selectorC: anArgument ^ 0. ' classified: 'Instance Methods C'. 上記では、クラスオブジェクトExampleのプロトコルInstance Methods Cに対し、メソッドselectorCを登録している。 Smalltalk において、継承とは特殊な委譲に過ぎない。 Object subclass: #Derived "DerivedはObjectクラスから派生させる" instanceVariableNames: '' "オブジェクトに所属する変数は定義しない" classVariableNames: '' "クラスオブジェクトと共有する変数は定義しない" poolDictionaries: '' "クラスに所属する変数は定義しない" category: 'example'. "クラスの分類はexampleとする(今回の名前に意味はない)" このため、例えば上記のクラスオブジェクトの生成では、Derived クラスオブジェクトの基底クラスオブジェクトとして Object を指定しているが、処理系によっては下記の様に #superclass: メッセージを送る事で、基底クラスに別のクラスオブジェクトを指定する事が出来る。 "superclass: NewBase. メッセージを送り基底クラスを NewBase に変更する事が出来る。" Derived superclass: NewBase. 処理系により不可能な事もあるがクラスオブジェクトだけでなく、インスタンスオブジェクトから派生することも出来る。 "インスタンスオブジェクトの nil から派生した Derived クラスを Smalltalk 環境に登録する" nil subclass: #Derived instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'example'. なお通常、派生元の基本となるProtoObjectやObjectはnilから派生しており継承関係は再帰的に循環している。 Smalltalk において、メッセージ、セレクター、メソッドはそれぞれ別物である。C++ 系統の言語の様にオブジェクトに対しメッセージを送るという事は単なる比喩ではない。 あるオブジェクトに対し #hello というセレクターを使ったメッセージを送る事を考える。この時、Smalltalk においては hello というメソッドが必ず呼ばれる保証はない。例えば「hello」メッセージを受け取るオブジェクトが hello メソッドを実装していなければレシーバーに指定されたオブジェクトの doesNotUnderstand: メソッドが呼ばれる事になる。 なお、多くの Smalltalk の処理系では doesNotUnderstand: の引き数で得られたメッセージを返すだけのクラスが用意されている。例えば Smalltalk 環境のひとつである Pharo ではメッセージ作成用クラス MessageCatcher が用意されており次のようにメッセージを拾い、他のオブジェクトに渡すことが出来る。 message := MessageCatcher new show: 'text'. "「show: 'text'」がmessageに代入される。" message sendTo: Transcript. "「Transcript show: 'text'」が実行される。" また、セレクターとメソッドが独立していることを利用して一つのメソッドを複数のセレクターに結びつける事もできる。 "#onClick:を使ったメッセージをopen:メソッドに転送させる。" FileEventHandler addSelector: #onClick: withMethod: FileEventHandler >> #open:. メッセージにはセレクターと引き数が含まれている。このため受け取ったセレクターと引き数を編集する事も出来る。 message := MessageCatcher new bold: true text: 'example'. message selector keywords keysAndValuesDo: [ :key :each | Transcript show: each, ':=', ( message arguments at: key ) printString; cr. ]. " 以下が出力される。 bold:=true text:=example " プログラミング言語一般の概念として型検査をソースコードの翻訳時に実行するか、実行時に実行するかにより静的型付けと動的型付けという区分が存在するが、Smalltalkは、そのどちらでもなく型なし言語（英: untyped）に区分される。Smalltalk の場合、変数に対する操作は全てメッセージ送信であり、変数の種類(型)毎にできる操作は決まっていない。また、オブジェクトに対しメッセージを送った場合、そのオブジェクトがメッセージに対応するメソッドを持っていなくとも実行環境がエラーを発生させる事はない。メッセージに対応するメソッドが存在しない場合、例外を出すか無視するかは、クラスに実装されたメソッドの内容次第である。したがって Smalltalk には型付けの概念はない。例えば、Pharo の MessageCatcher は全てのメッセージを拾うため、どんなメッセージを与えられても例外が発生することはない。また、GNU Smalltalkではnilから派生したクラスのオブジェクトに存在しないメソッドに対するメッセージを送ると何も反応しない。ただし高速化のため後述の特殊セレクターを使用した場合実行時に型検査する処理系が多い。ちなみに Smalltalk は基本的に中間言語に翻訳され、翻訳時にエラーを発生させるため構文検査は静的である。 制御構文の節で述べた通り、Smalltalkの殆どの制御構文はメッセージ式である。Smalltalkに明るくないプログラマーからは言い方や見方を変えただけと捉えられがちである。Smalltalkの制御構文は実際にメッセージであるがゆえに究極には制御構文の構文要素を次のように変数に分解してしまうことが出来る。 変数に分解した分岐制御の例： | then else message condition | then := [ 1 ]. else := [ 2 ]. message := MessageCatcher new ifTrue: then ifFalse: else. condition := 2 = 2. ^ message sendTo: condition. これらの変数に分解された構文要素は、どのクラスのオブジェクトで無いといけないという制限はない。送られたメッセージを処理することさえ出来ればあらゆるオブジェクトに置き換える事が出来る。 Smalltalkでは高速化のためいくつかのメッセージを特別扱いする。これを特殊セレクター（英: special selector）という。 典型的な例は#ifTrue:ifFalse:である。下記のコードはでは「ifTrue: [5] ifFalse: [6]」を評価した時にメッセージが送られる訳ではなく、バイトコードレベルでインライン展開され飛越し命令の表現に置き換えられる。このため実際にifTrue:ifFalse: という名のメソッドが呼ばれることもない。また、trueやfalse以外に上記のようなBoolean用のメッセージを送ると処理系によってはMustBeBoolean例外を発生させる。このように頻繁に使用する分岐や反復を特別扱いすることで性能低下を防いでいる。 3 < 4 ifTrue: [ 5 ] ifFalse: [ 6 ]. セレクターと名がつくが特殊セレクターは、特別扱いする条件が引数の状態を含んでおり、たとえ同じセレクターを使ったメッセージでも引数が条件に一致しなければ特別扱いしない。例えば下記のように引数に直接ブロックを指定していない場合では多くの処理系(VisualWorks, GNU Smalltalk等)は特別扱いせずメッセージ送信を実行する。 | then else | then := [ 5 ]. else := [ 6 ]. true ifTrue: then ifFalse: else. 特殊セレクターはあくまで高速化の手段であるため種類は処理系によって異る。どの処理系が何を特殊セレクターとして扱うかは処理系ごとに提供される説明資料に記述されている。 クラスオブジェクトもオブジェクトであるため、所属するクラスが存在している。クラスオブジェクトが所属するクラスはMetaclassというクラスのインスタンスオブジェクトである。 ByteString. "-> ByteString" ByteString class. "-> ByteString class" ByteString class class. "-> Metaclass" Metaclassも当然ながらクラスに所属しており、再帰的にMetaclassに属するようになっている。 ' ' class. "-> ByteString" ' ' class class. "-> ByteString class" ' ' class class class. "-> Metaclass" ' ' class class class class. "-> Metaclass class" ' ' class class class class class. "-> Metaclass" ' ' class class class class class class. "-> Metaclass class" クラスオブジェクトが所属するMetaclassのインスタンスオブジェクトは特殊なオブジェクトであり、クラスの継承階層と同様に継承階層を持っている。 Collection class superclass. "-> Object class" Object class superclass. "-> ProtoObject class" ProtoObject class superclass. "-> Class" クラスオブジェクトはMetaclassから生成された単なるオブジェクトで有ることから、Smalltalkが標準で提供するクラスオブジェクトとは異なる独自の構造をもったクラスオブジェクトを作ることができる。 例えば以下のようにメソッドの変わりにブロックを持つ無名クラスを作成することも出来る。 | class object | "Metaclassからクラスオブジェクトを生成" class := Class new superclass: Object; methodDictionary: MethodDictionary new. "生成したクラスオブジェクトのセレクターにメソッドではなくブロックを紐付け" class methodDictionary add: #something1: -> [ :value | value ] block; add: #something2 -> [ 2 ] block. "生成したクラスオブジェクトをインスタンスオブジェクトの生成に使用" object := class new. Transcript show: ( object something1: 1 ) printString; nl. "生成したクラスオブジェクトを基底クラスとして使用" class subclass: #Example instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: ''. 文法の節で述べた通りSmallatalkでは定数も全てオブジェクトである。どんな定数であれ#classや#inspectといった基本的なセレクターを使ったメッセージを受け取ることが出来るため、基本的な操作であれば定数と他のオブジェクトを区別する必要はない。 | showClass | showClass := [ :object | Transcript show: object class name; cr. ]. showClass value: Object new; "-> Object" value: Object; "-> Object class" value: nil; "-> UndefinedObject" value: 0; "-> SmallInteger" value: 0.0; "-> Float" value: 0.0e1; "-> Float" value: $0; "-> Character" value: ''; "-> ByteString" value: #a; "-> ByteSymbol" value: #'a'; "-> ByteSymbol" value: #(); "-> Array" value: []. "-> BlockClosure" Smalltalk は、任意の広さで確保した領域を持つ可変長オブジェクトを作ることが出来る。Smalltalkには配列を表わすためArray等が存在するが、これらのクラスオブジェクトは可変長オブジェクトを使って構築されている。可変長オブジェクトの領域は、オブジェクトの生成したときの一度だけしか広さを指定できない。また、クラスオブジェクトの登録時にvariable〜で始まるセレクターを使っている必要がある。 Object variableSubclass: #ExampleArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'example'. | array | array := ExampleArray new: 100. "要素100個分の領域を確保した可変長オブジェクトを生成する。" array at: 1 put: 0. "1番目の要素に0を入れる。" array at: 1. "1番目の要素を取り出す。" Smalltalk は、ハンドルとごみ回収機能(ガーベッジコレクター)の全面的な導入によりハンドルテーブルの書き換えを利用した特殊な制御を提供している。 ハンドルが参照している記憶領域上のテーブルを書き換えることによりSmalltalkは、あるオブジェクトを参照している全ハンドルの参照先を一気に変更することができる。ハンドルテーブルの書き換えには#become:を用いる。ただし、数字や文字列といった定数オブジェクトは置き換えることはできず、定数を置き換える際は定数を保持しているオブジェクトを置き換える必要がある。 | value1 value2 | value1 := 'hello' asValue. value2 := value1. "この時点ではvalue2はValueHolder('hello')" value1 become: 'こんにちは' asValue. "この時点でvalue2はValueHolder('こんにちは')になる" #become:を使っている良い例はクラスオブジェクトの再登録である。Smalltalkではクラスオブジェクトはインスタンスオブジェクトが生きている間でも再登録可能でなければならず、インスタンスオブジェクトを生きたままクラスオブジェクトを再登録するために使われている。 弱参照は参照カウント方式を使う言語でよくライブラリーとして実装されるがSmalltalkではハンドルの制御を用いた言語機能として用意されており相互参照しているが不要になっているオブジェクトを迅速に解放するために使われている。弱参照には#makeWeakを用い、#makeWeakを受け取ったオブジェクトは弱参照となる。 | holder object | holder := ValueHolder new. holder makeWeak. "holderが弱参照になる。" object := Object new. holder value: object. ObjectMemory compact. "ごみ回収。この時点ではholder valueはnilではない。" object := nil. ObjectMemory compact. "ごみ回収。この時点でholder valueはnilとなる。" カゲロウ(Ephemeron)は、どこからも参照されなくなった連想配列の要素を解放するために導入された記憶領域の管理機構でありSmalltalkで初めて実装された。例えば連想配列の添字として#keyがあったとして、#keyが連想配列以外の変数で参照されていなければ連想配列の要素は必要ない。このように不要となった要素を解放するために用いる。オブジェクトをカゲロウ状態にするには#makeEphemeronを用いる。 | association key | key := Object new. association := Association key: key value: Object new. association makeEphemeron. "associationがカゲロウになる。" ObjectMemory compact. "ごみ回収。この時点ではassociation keyとassociation valueは共にnilではない。" key := nil. ObjectMemory compact. "ごみ回収。この時点ではassociation keyとassociation valueは共にnilとなる。" ここでは連想配列の要素としてよく使われるAssociationを例としているが、カゲロウが消滅する基準は最初のインスタンス変数でクラスに依存しないためどんなクラスでもカゲロウにすることができる。 変数を表す識別子については、1文字目に大文字と小文字のどちらを使うか、大域変数か否かを基準にして決めることが慣習になっている。 環境自体も大文字小文字の使い分けを認識しておりメソッドを翻訳する際小文字の変数は局所変数かメンバーとして定義していないと、警告が発生したり翻訳失敗になる。 クラス名が大文字から始まるのは、クラス名が大域変数だからである。 よく使われるクラス以外の大域変数: Smalltalk Processor Transcript セレクターを表す識別子については、基本的に1文字目に小文字を使うが、メソッドが存在するセレクターを避けたい場合は大文字を使う事が慣習になっている。 GNU SmalltakやVisualWorksで用意されている名前空間は、大文字のセレクターを使う典型的な例である。 Smalltalk SystemExceptions InvalidValue signalOn: 0. "「Smalltalk」以外は全てセレクター" なお、名前空間が使える環境の多くは、翻訳時に名前空間の名前解決できる「.」区切りの拡張構文が用意されており、実際にはこちらの構文が使われることが多いため、セレクターを使った名前空間の指定を見る機会は少ない。 オブジェクトの生成には #new セレクターを使ったメッセージを使う。他の言語と違い、new は演算子ではない。 |object| object := Example new. "Exampleクラスオブジェクトに「new」メッセージを送りオブジェクトを生成。" Smalltalk ではクラスオブジェクトのメソッドもインスタンスオブジェクトのメソッドと同様に派生クラスによる再定義が可能である。このため new メソッドを再定義し初期化処理を記載する事が出来る。new メソッドを再定義してしまうとオブジェクトの生成自体が不可能になるように思われるが、本来 new メソッドは #basicNew セレクターを使ったメッセージをBehavior に送ってオブジェクトを生成しているためオブジェクトの生成手段がなくなるわけではない。このため new メソッドを再定義しても 「basicNew」メッセージをBehaviorに送ることでインスタンスオブジェクト生成することが出来る。 ただし、実際の初期化に new メソッドが使われる事は多くない。実際には慣習としてクラスの作者が新たに登録したインスタンス・クリエイションと呼ばれる new とは別の初期化用メソッドが使用される。インスタンス・クリエイションは一般的なクラスオブジェクトのメソッドであり、そのメソッドの内部で 「new」メッセージやその他のインスタンス・クリエイションを使って初期化済みのオブジェクトを生成する役割を持っているだけで基本的にその他のメソッドと変わらない。一般的にinstance creationというプロトコルに登録される。 | number | number := Number readFrom: '10'. "readFrom:がインスタンス・クリエイション". Smalltalk では1個のセレクターに対し1個のオブジェクトから複数のメソッドを関連付けられないため 「new」メッセージの送信によりできる初期化は1個のオブジェクトにつき一通りの初期化だけである。このため複数のインスタンス・クリエイションを用意することで用途に応じた複数の初期化方法を提供しているのである。インスタンス・クリエイションは一般的なメソッドのひとつでしかない。このためインスタンス・クリエイション持つクラスオブジェクトはアブストラクト・ファクトリーとして機能する。 具体的には次のように使われる。 defaultDatabase "既定のデータベースのクラスオブジェクトを定義した派生クラスで再定義可能なメソッド。 オーバーライドされた際は、必ずしもクラスオブジェクトが返されるとは限らず、インスタンス オブジェクトが返される場合もある。" ^ PostgreSQL. database "databaseへの接続を返すメソッド。 defaultDatabaseにより返されたPostgreSQLに対し、インスタンス・クリエイションである #connect:セレクターを使ったメッセージが送られ、PostgreSQLのインスタンスオブジェクトが生成される。 ただし、defaultDatabaseは、派生クラスによって再定義できるため、#connect:セレクターを使ったメッセージが 必ずしもPostgreSQLクラスオブジェクトに送られるとは限らない。" ^ self defaultDatabase connect: self configuration. また、Smalltalk はクラスメソッドを上書きできるため、インスタンス・クリエイションを次の様に実装する事で基本的な初期化処理を派生元のクラスに任せることができる。 x: aX y: aY ^ self new x: aX; y: aY. 上記は、2次元座標用のクラスオブジェクトのインスタンスオブジェクトを初期化する派生元のクラスオブジェクトに実装されたインスタンス・クリエイションである。このクラスオブジェクトを継承した2次元座標用のクラスオブジェクトでは#x:y:セレクターを使ったメッセージに対応するメソッドを実装する必要はない。インスタンス・クリエイションを利用したパターンは Smalltalk では広く利用され、いたる所で見ることが出来る。 Smalltalk では、単一の値を出し入れするメッセージの事を特にアクセッサ―と呼ぶ。引き数の有無により値の入出の方向を区別する。 例： Smalltalk においてアクセッサーはその他のメソッドと役割に違いはなく特別な意味を持たないが、プロトコルとして明示的に accessing（アクセッシング）として登録される点が特徴的である。 Smalltalk においてアクセッサーはインスタンス変数の出し入れや、クラス変数の単純な出し入れに使用される事は多くない。Smalltalk においてアクセッサーは次の用途でよく使われる。 定数は、単に定数を返すアクセッサ―で定義する。C言語の影響を受けた言語のように定数を#defineや変数で定義するという慣習はない。 Smalltalk では、非常に利用頻度の低いインスタンス変数やクラス変数を管理する方法として附帯情報（英: property）というパターンが使用される。附帯情報はインスタンス変数やクラス変数などの内部変数の代わりに連想配列によりオブジェクトを保持する仕組みである。附帯情報の意味合いとしては、附帯情報と言うより所有物あるいは付帯情報という意味の方が適切である。 附帯情報の使用例： Tag methodsFor: 'accessing' ! id ^ self valueOfProperty: #id. ! id: aString self setProperty: #id toValue: aString. !! 附帯情報が有効な身近な例としてはXMLやHTMLのタグ属性が挙げられる。例えばHTMLの id 属性や onClick といったイベント属性は、必ずしも全てのタグで使用されることはない。特にイベント属性については一つのHTML上に一切記述されない事もよくある。この様な使用頻度の低い属性のためにオブジェクトに一個一個変数を定義するのは記憶領域の無駄である。ましてや onClick、onMouseDown、onMouseUp等大量に属性があればこの無駄は馬鹿にならない。この様な無駄を省くために Smalltalk では附帯情報というパターンがよく使用される。 全てのインスタンス変数やクラス変数は原理的に全て附帯情報によって表現することが出来る。この点に着目しオブジェクトに所属する変数を全て附帯情報に置き換えた言語が後の Self であり、JavaScript である。これらの言語でオブジェクトに所属する変数をプロパティーと表現するのは、この Smalltalk における附帯情報(プロパティー)に由来するもので、附帯情報の仕組みの有無に関わらずインスタンス変数やクラス変数をプロパティーと表現するのは間違いである。 附帯情報は Self や JavaScript においては当たり前の様に使用されている。しかし、Smalltalk においては附帯情報を多用する事はデバックを著しく困難にするため不適切な作法とされており、HTMLの属性の様に本当に使用頻度の低い変数だけを附帯情報で扱い、常用する変数に附帯情報を乱用すべきではないと言われている。例えば変数は統合開発環境の機能で使用箇所を把握できるが附帯情報では使用箇所をアクセッサーに限定しない限り追跡不可能になる。また、附帯情報では変数の変化に反応するブレークポイントを仕掛けることも難しい。 Smalltalk 以外の言語において、配列の範囲外にある配列要素の操作や、値の代入されていない連想配列の操作は、次の例のように操作の前に一旦判定を行なって例外処理するか、例外機構を利用する方法が一般的である。 | key | key := #phoneNumber. ( map contain: key ) ifTrue: [ ^ map at: key ] ifFalse: [ ^ nil ]. 一方 Smalltalk では、配列の範囲外操作の様に単純で頻発するような処理では、次のように予めメッセージに例外処理をブロックとして渡してしまう方法が一般的である。 "#phoneNumber に対応する値が無ければ常に nil を返す。map 自身に #phoneNumber が追加される事はない。" ^ map at:#phoneNumber ifAbsent: [ ^ nil ]. 予め例外処理をメッセージに含めることで、単純な例外処理をより簡潔なものとしている。 この方法は、Smalltalk 独自の復帰文と組み合わせる事でより柔軟な制御をする事ができる。 次の処理は、連想配列に値が見つかればそれを表示し、値が無ければ何もしないという処理であるが、処理の中断の判定と連想配列からの値の取り出しを一度のメッセージ送信だけで実現している。 | value | value := map at:#phoneNumber ifAbsent: [ ^ self ]. Transcript show: value; cr. Smalltalkでは、ブロック内だけ資源を確保しブロックの終了後に資源を開放するというブロックによる資源の開放が行われる。ブロックによる資源の開放では、資源の確保と同時に資源の開放を強制できるため開放忘れや例外による開放漏れを防ぐことができる。C#のusingに類似するが、usingを書き忘れたままnewできない分さらに強力である。 "Pharo" 'example.txt' asFileReference writeStreamDo: "example.txtを開く" [ :writeStream | writeStream nextPutAll: 'text'. ]. "example.txtを閉じる(例外発生時も閉じる)" "GNU Smalltalk" 'example.txt' asFile withWriteStreamDo: "example.txtを開く" [ :writeStream | writeStream nextPutAll: 'text'. ]. "example.txtを閉じる(例外発生時も閉じる)" Smalltalk は反復処理のための基本構文を備えているが、ある値の生成器（入出力等）やある集合要素から要素を取得するときに基本的な反復構文を使う事は稀である。Smalltalk では、値を列挙するために値の生成器や集合要素に送るべきメッセージが概ね決まっており、値を取り出す際は極力、列挙メッセージ（英: enumerating）を使用する事が作法となっている。 次に列挙メッセージの送信例を示す。 配列に対する列挙メッセージの例： #( 4 3 2 1 0 ) do: [ :each | "配列の要素が1個ずつ each に代入され表示領域（Transcript）に表示される" Transcript show: each; cr. ]. 実行結果: 4 3 2 1 0 数値に対する列挙メッセージの例： ( 0 to: 4 ) do: [ :each | "配列の要素が1個ずつ each に代入され表示領域（Transcript）に表示される" Transcript show: each; cr. ]. 実行結果: 0 1 2 3 4 列挙メッセージで使えるセレクターは #do: の様に全ての要素にブロックを適用するだけの単純なセレクターだけでなく、現在の集合要素の要素を操作した上で新しい集合要素を作成する #collect: や、集合要素から条件に一致する要素だけを抜き出し、新しい集合要素を作り出す #select:、集合要素の中から特定の要素を見つけ出す #detect:ifNone: など様々なセレクターがある。処理系によっては #groupBy:having: などSQLに類似したセレクターに対応するメソッドを多数用意しているものもある。Smalltalk では集合要素や値の生成器自体にこれらのメッセージを受け取れるよう実装する事で、集合要素のデータ構造や、生成器の入力元などの構造に依存せず最適な反復処理を実現できるようになっている。これらの列挙機能は近年の言語において foreach やyeild、LINQ等言語機能として賄われつつあるが Smalltalk においては、単にライブラリーの慣習として実現されている所が特徴的である。 Smalltalkでは一般的にオブジェクトに#as〜というセレクターを使ったメッセージが送られた場合、オブジェクトを別のクラスのオブジェクトに変換する。例えば次の様な変換がある。 Stringの変換による具体例(変換結果は処理系依存)： 'abcd' asSymbol.　　　　　　"→Symbolクラスのオブジェクト" '10' asInteger.　　　　　　 "→SignedIntegerクラスのオブジェクト" '10:00' asTime.　　　　　　 "→Timeクラスのオブジェクト" "以下は処理系によっては存在しない" '/home' asPath.　　　　　　 "→AbsolutePathクラスのオブジェクト" 'http://example.com' asUrl. "→Urlクラスのオブジェクト" オブジェクトを別のオブジェクトに変換するメソッドやメンバー関数が用意されている事は、Smalltalkに限らず他の言語でも一般的であり珍しい事ではない。Smalltalkの慣習として特徴的なところは、既存のクラスにこのオブジェクトの変換をユーザーやライブラリーの作者が自由に組み込んでいる所である。例えばSmalltalkの処理系であるPharoでは、初期状態で基本的なクラスであるStringに54個ものas〜で始まるメソッドが定義されている。この大量の変換メソッドは、メソッド追加した際すぐに影響を判断できるためメソッド追加に対し寛容的なSmalltalk独特の空気を象徴している。しかし、既存のクラスにメソッドを追加すればライブラリーを併合した際、意図しない衝突を生むため多用は避けるべきであるとの意見も存在する。 オブジェクトの変換はただオブジェクトの内部表現の変換だけでなく情報の加工にも使われる。 オブジェクト変換による具体例： #( 2 1 2 3 1 3 ) asSortedCollection asSet. "-> #( 1 2 3 )" イベントハンドラーを定義する方法として、Smalltalkでは次のようにセレクターと、レシーバーとなるオブジェクトを指定する方法が一般的である。 | view controller | view := Morph new. controller := FileControlHandler withOwnerView: view. "#click:イベントが発生すると、controllerに対し#open:を使ったメッセージを送る。" view handler on: #click: send: #open: to: controller. 同様にイベントハンドラーを指定する別の方法としては、ブロックを指定する方法が考えられる。しかし、イベントハンドラーにブロックを使う方法は、セレクターとオブジェクトを指定する方法のようにinspectだけでブロックを抱えたオブジェクトがどんな処理を実行するか判断できないうえ、ほとんどの環境はブロックの直列化に対応しておらず直列化もできなくなってしまうため、Smalltalkの文化においては避けるべきとされる。 このセレクターとオブジェクトを指定したイベント処理の方法は、Objective-Cの文化にも引き継がれておりCocoa等のライブラリーにて頻繁に目にすることができる。 Model View Controller（MVC）は Smalltalk から生まれた、制御（コントローラー）と情報（モデル）、そして情報の表現方法（ビュー）の3つを分離しクラスオブジェクトの再利用性を高め、実行時に情報と表現の組み合わせを変更できるようにした設計方針である。Smalltalk の世界でMVCは更に表現を担当するクラスに既定の制御を取り込む仕組みを持たせることで PluggableMVC へと発展した。 Smalltalk はクラスライブラリーの基礎部分からMVCやMVCから派生した設計方式で使用されるモデルの構築を支援する仕組みを持っており、Smalltalk 以外の言語と比べモデルの構築が格段に楽になっている。次にモデルの動作を確認する最低限のコードを示す。 モデルの登録: "単純なモデルのクラスオブジェクトを登録" Object subclass: #ValueHolderModel instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Models'. ValueHolderModel class methodsFor: 'accessing' ! defaultValue ^ 0. !! ValueHolderModel methodsFor: 'accessing' ! value value isNull: [ model := self class defaultValue. ]. ^ value. ! value: aValue value := aValue. self changed: #value. !! モデルの監視側登録 "モデルを監視する単純なクラスオブジェクトを登録" Object subclass: #ValueHolderObserver instanceVariableNames: 'model getSelector' classVariableNames: '' poolDictionaries: '' category: 'Models'. ValueHolderObserver class methodsFor: 'accessing' ! defaultModel "model が nil の場合に使用する既定のモデルを返す" ^ ValueHolderModel. !! ValueHolderObserver methodsFor: 'accessing' ! value model ifNil: [ ^ nil ]. "modelから指定のセレクターで値を取り出す" ^ model perform: getSelector. ! getState: aGetSelector "モデルから値を取り出す際のセレクターはシンボルにより外部から指定する" getSelector := aGetSelector. ! model "現在監視対象となっているモデルを返す" model isNull: [ model := self class defaultModel new. model addDependent: self. ]. ^ model. ! model: aModel "現在監視対象となっているモデルを監視対象から除去し、 aModelに指定されたオブジェクトを監視対象として追加する。" self model removeDependent: self. model := aModel. self model addDependent: self. "また、通常は新しいモデルからValueHolderObserverにとっての初期値の読み取りを行う。 ここでは、初期値の読み取りの代わりにモデルが持つvalueオブジェクトの内容を表示Window(Transcript)に表示する。" Transcript show: self value asString; cr. !! ValueHolderObserver methodsFor: 'updating' ! update: anAspect "モデルが存在しないときは更新しない" model ifNil: [ ^ nil ]. "モデルが更新されると呼び出され、モデルが持つvalueオブジェクトの内容を表示Window(Transcript)に表示する。" getSelector = anAspect ifTrue: [ Transcript show: self value asString; cr. ]. !! ValueHolderObserver class methodsFor: 'instance creation' ! on: aModel getState: aGetSelector ^ self getState: aGetSelector; model: aModel. !! 動作の確認： | model observer | model := ValueHolderModel new. "監視対象にmodelを指定してobserverを生成。 on:getState:内にてmodel valueが返す値、0が表示Window(Transcript)に表示される。" observer := ValueHolderObserver on: model getState: #value. "modelの値を更新。observerの#update:が実行されmodel valueが返す値、100が表示Window(Transcript)に表示される。" model value: 100. モデルの支援機構は全て Object クラスオブジェクトに実装されており、全てのオブジェクトはモデルとして動作する。つまりクラスオブジェクトもモデルとして使用できるようになっている。 PluggableMVC は Self へと場を移し、表現と制御そして、表現対象となる情報を1個のオブジェクトで兼任する Morphic（英語版） として再設計された。Self によって発展した Morphic は Smalltalk に移植されSqueak系統の Smalltalk 環境で基本GUIシステムを構築している。Self の Morphic はウェブブラウザ―のDOMや JavaScript に大きな影響を与えている。 ^ 「型をもたない」との表現を好む人もいる。http://web.cecs.pdx.edu/~harry/musings/SmalltalkOverview.html ^ https://www.infoq.com/jp/news/2010/07/objects-smalltalk-erlang ^ 英: Cincom ^ http://smalltalk.cincom.jp/main/about-us/smalltalks-past/ ^ http://www.smalltalk.org/smalltalk/history.html ^ http://stephane.ducasse.free.fr/FreeBooks/BlueBook/Bluebook.pdf ^ http://worrydream.com/EarlyHistoryOfSmalltalk/ ^ http://www.mirandabanda.org/cogblog/build-image/ ^ http://marianopeck.wordpress.com/tag/vmmaker/ ^ Reviving Smalltalk-78 ^ http://www.cincomsmalltalk.com/main/developer-community/trying-cincom-smalltalk/try-cincom-smalltalk/ ^ http://www.cincomsmalltalk.com/main/developer-community/trying-cincom-smalltalk/try-cincom-smalltalk/ ^ http://smalltalk.cincom.jp/tutorials/primers/Introduction/Namespace.ssp ^ http://smalltalk.cincom.jp/tutorials/vw7.7/tutorial2/vwparcels2.ssp ^ http://www.pharo-project.org/about ^ http://strongtalk.org/ ^ http://pleiad.cl/research/software/gradualtalk ^ http://amber-lang.net/ ^ http://www.object-arts.com/downloads/docs/index.html ^ http://www.object-arts.com ^ https://sites.google.com/site/jniport/documentation/jniport-for-visualworks ^ http://missionsoft.com/ ^ http://www.refactory.com/tools/sharp-smalltalk ^ “Does IBM offer support for VisualAge Smalltalk?”. 2018年10月16日閲覧。 ^ http://www.objectconnect.com/stmtvc_info.htm ^ http://worrydream.com/EarlyHistoryOfSmalltalk/ ^ あるいは単に「セレクター」。 ^ [1] ^ “Pharo source documentation” (英語). magaloma.seasidehosting.st. 2018年9月3日閲覧。 ^ http://web.cecs.pdx.edu/~harry/musings/SmalltalkOverview.html ^ https://www.gnu.org/software/smalltalk/manual/gst.html#Performance ^ ImplementationLimits7x.pdf(VisualWorks付録) ^ https://www.gnu.org/software/smalltalk/manual/html_node/Special-objects.html#Special-objects ^ https://www.gnu.org/software/smalltalk/manual-base/html_node/Object_002dbuilt-ins.html#Object_002dbuilt-ins ^ 他の言語でいうメソッドの多重定義はできない。 ^ 英: accessor ^ ケント・ベックの Smalltalk ベストプラクティス・パターン―シンプル・デザインへの宝石集 ISBN 978-4894717541 ^ ケント・ベックの Smalltalk ベストプラクティス・パターン―シンプル・デザインへの宝石集 ISBN 978-4894717541 ^ ケント・ベックの Smalltalk ベストプラクティス・パターン―シンプル・デザインへの宝石集 ISBN 978-4894717541 SUnit メッセージ メッセージ転送 利用者定義演算子 Goldberg, Adele; Robson, David (May 1983). Smalltalk-80: The Language and its Implementation. Addison-Wesley. ISBN 0-201-11371-6. http://stephane.ducasse.free.fr/FreeBooks/BlueBook/Bluebook.pdf.  The Early History Of Smalltalk(原文). http://worrydream.com/EarlyHistoryOfSmalltalk/.  The Early History Of Smalltalk(整形版). http://gagne.homedns.org/~tgagne/contrib/EarlyHistoryST.html.  Design Principles Behind Smalltalk. http://www.cs.virginia.edu/~evans/cs655/readings/smalltalk.html.  Reviving Smalltalk-78