【正文】 prompt:?enterline‘ FOR i:=1TO 26 DO default： ‘’ . f[i]:=0； “ S是 Prompter的實例 ， 裝輸入字串 ” FOR i:=1 To size DO 1 to:26 do:[:I|f at:I put:0]. BEGIN 1 to： size do:[:I| c:=aslowerCase(s[i])； c←(s at:i) asLowerCase. if isLetter (c) THEN c isLetter ifTrue： [ BEGIN k←c asciiValue k:=ord(c)ord(?a‘)+1； ＄ a asciiValue + 1. f[k]:=f[k]+1 f at:k put： (f at:k) + 1 END ] END； ]. FOR i:=1 To 26 DO ↑f Write(f[i]， ‘’ ) END. 類協(xié)議 類 名超 類 名實例變量名類變量名匯集變量名 標識符 標識符 標識符表 標識符表 標識符類方法： 方法 1 方法 2 . . 方法 n 實例方法 : 方法 1 方法 2 . . 方法 n單繼承，只一個用于實例對象用于類對象充作若干類共享的匯聚字典用于創(chuàng)建實例，并初始化如上例 Arr ay 中的方法 n ew:刻畫實例對象行為如上例中 a sLo w erC a se ，at:put ：， isL e tte r 是對象s,f,c 的方法。 ↑ f ―返回 f中的值 ” . 這個程序一共四句。 c asLowerCase是單目表達式 ， 同樣要在 Prompter中找 asLowerCase匹配 ， 也是不成向上找 。 一個簡單的 Smalltalk程序 統(tǒng)計字母出現(xiàn)頻率 ｜ s f｜ “ 定義了兩個臨時變量 ” s←Prompter prompt： ‘ enter line‘ default： ‘’ . ―s是 Prompter的實例 ， 將關鍵字表達式的結果束定于 s‖ ―意即輸入一行字符串 ， 若不輸入 ， S為空串 ” f←Bag new. ―f是 Bag的實例 ” s do： [:c｜ c isLetter ifTure： [f add： c asLowerCase]] ―s在 Prompter中找方法 do：的模式 ， 若找不到 ， 找 prompter的 ” “ 父類直到 Object. C是塊變量 ， 意從 S中拿出某字符 ， isLetter‖ ―是消息模式 ， 判 C是否字符 ， 若為真執(zhí)行內(nèi)塊 ” ?；纠? 用匯編碼寫出的底層方法實現(xiàn) Smalltalk文件系統(tǒng)與虛機 Smalltalk程序設計范型 ? 程序設計在類的層次上進行，由類靜態(tài) (于工作空間指明向類發(fā)出消息 )或動態(tài) (方法運行時 )生成實例對象。存儲管理器 相應的文件系統(tǒng)管理三種文件：源文件、變更文件、映象文件。 displayAt： 500 500]. Display white. aBlock value (6) 控制結構 條件選擇一般形式是 : 布爾子表達式 ifTrue： [?真 ’ 塊執(zhí)行 ] ifFalse： [?假 ’ 塊執(zhí)行 ] ―可以不出現(xiàn) ” 如： number0 ifTrue： [absValue←number negated] ifFalse： [absValue←number] 條件重復一般形式是 : [布爾塊表達式 ] whileTrue:｜ wlieFalse:[重復塊 ] 如： [indexlistSize] whileFalse:[list at:index put： 0。塊表達式 [:x:y｜ BicPen goto： xy] [:x:y｜ BicPen goto： xy] value： 100 value： 250 BicPen goto 100 250 ｜ aBlock｜ aBlock←[39。 foo ← array at:4。 anArray at： 3 put:100 finances totalSpentOn： ‘ food‘ 100 50 消息 ‘ ‘帶參數(shù) 50發(fā)向?qū)ο?100， 得 (100， 50) (sum/count) * reserve amount 雙目 ， 括號優(yōu)先 單目優(yōu)先 雙目 sin 消息 sin 發(fā)向 ， 得 sin() Array new 消息 new 發(fā)向 Array， 創(chuàng)建 Array 的實例 對象 選擇子 參數(shù) ＄ ( ) ， ； ： ｜ :=或 ← ↑ [ ] ( ) {} (4) 變量 實例變量 / 類變量 / 臨時變量 / 全局變量 / 匯聚變量 / 參數(shù) (5) 消息表達式與語句 消息表達式的一般格式是 : 對象 選擇子 參數(shù) Smalltalk的消息表達式有三種 : 用戶界面模型 (User Interface Model) 用戶界面模型 ? 系統(tǒng)工作空間(System WorkSpace) ? 工作空間(WorkSpace) ? 系統(tǒng)副本(System Transcript) ? 項目 (Project) ? 兩種圖形編輯窗(Form和 Bit) W o r k S p a c e S y s t e m W o rk s p a c eP ro j e c tB i t E d i t o rS y s t e m T r a n c ri p ta g a i nu n d oc o p yc u tp a s t ea c c e p tc a n c e le n t e rF o rm E d i t o r? 系統(tǒng)瀏覽器 (System Browser)窗 ? 用戶就是按瀏覽窗中顯示的模板填寫程序。程序設計系統(tǒng) Smalltalk系統(tǒng) 該項目的硬件是 Star(個人機的前驅(qū) )軟件是 Smalltalk。 60年代挪威的 Dahl和 Nyard為模擬系統(tǒng)研制了 SIMULA67語言，首先提出封裝的類和動態(tài)生成實例對象的概念。 Smalltalk語言 對象的思想最早源于人工智能研究， 60年代末描述智能對象的框架(frame)即封裝了許多槽 (slot)，槽既可以是屬性 (數(shù)據(jù) )也可以是行為 (操作 )和 (約束 )。該項目的硬件是 Star(個人機的前驅(qū) )軟件是 Smalltalk。 60年代挪威的 Dahl和 Nyard為模擬系統(tǒng)研制了 SIMULA67語言，首先提出封裝的類和動態(tài)生成實例對象的概念。第四章 面向?qū)ο蟪绦蛟O計語言 Smalltalk語言 對象的思想最早源于人工智能研究， 60年代末描述智能對象的框架(frame)即封裝了許多槽 (slot)，槽既可以是屬性 (數(shù)據(jù) )也可以是行為 (操作 )和 (約束 )。但最早見諸文獻是 sketchpad提到的 OO圖形學 (1963)。 60年代末，美國猶他大學 Alan Kay到 Xerox公司 PaloAlto研究中心參加了 Dynabook項目。 1972年 Dan Ingalls完成 Smalltalk72第一個實用版，以后又經(jīng)過 7680兩次改進， Smalltalk80成為向外發(fā)行的正式版本。但最早見諸文獻是 sketchpad提到的 OO圖形學 (1963)。 60年代末，美國猶他大學 Alan Kay到 Xerox公司 PaloAlto研究中心參加了 Dynabook項目。 1972年 Dan Ingalls完成 Smalltalk72第一個實用版，以后又經(jīng)過 7680兩次改進， Smalltalk80成為向外發(fā)行的正式版本。語言核心 (Kernel) 程序設計范型 (Paradigm) System Browser 類類類類類 CLASS CATEGORIES MENU 類類類類類類類 MESSAGE SELECTORS MENU 類類類類類類 MESSAGE CATEGORIES MENU 類類類類 CLASSNAMES MENUInstance Class正文 TEXT 語言核心 (1) 保留字 只有五個 nil， true， false， self， super (2) 字面量 字符字面量 /數(shù)字面量 / 符號字面量 / 數(shù)組字面量 (3) 限定符和特殊符號 39。單目的 不帶參數(shù) tree class 消息 class 發(fā)向 tree， 得到 tree的類 。 雙目的 3+4 消息 ‘ +‘帶參數(shù) 4發(fā)向?qū)ο?3， 得對象 7。關鍵字消息表達式 用關鍵字 (帶有‘ :‘的選擇子 )描述的雙目表達式，也是自左至右釋義。賦值 變量在不同時間可賦以不同對象，任何表達式加上賦值前綴‘ ←’ quantity← 19. name← ?chapter 1‘。 數(shù)組第 4元素與 ‘ foo‘同名 This is a String39。 index←index+1 ] (7) 消息 /方法 消息模式 | 臨時變量 | 語句組 nawAt： initialLocation｜ newBox｜ newBox←self new. newBox setLoc： initiaPLocation tilt： 0size： 100 scribe： pen new. newBox show. setLoc： newLoc tilt： newTilt size:newSize seribe： newScribe｜ ｜ Loc←newLoc . titl←newTilt . size←newSize. scribe← new Scribe Smalltalk是編譯 —解釋執(zhí)行的， Smalltalk源程序經(jīng)編譯器得到虛映象 (Virtual image)，虛映象由字節(jié)代碼中間語言編寫，由 Smalltalk虛機解釋執(zhí)行。 由于 Smalltalk是交互式的，被編譯的方法在執(zhí)行期間出了問題要反應到源程序，則要對映象文件施行反編譯(depliation) Smalltalk的虛機是一個新軟件，它有三個功能部分 : 虛映象解釋器 每個對象當接受某消息并執(zhí)行其方法的消息表達式時都是在自向其它對象發(fā)消息。 “ 內(nèi)塊中 f找 add：消息模式 ， 從 Bag直至上層父類 ， 找到先執(zhí) ” “ 行右邊子表達式 ” 。 它返回是 “ 第 k個 ” 小寫字母 ， add：把它發(fā)送到對象 f的第 k個位置上并與原數(shù)相加 。如果掀鼠標使菜單項 ‘ doit‘工作并輸入： “ Smalltalk is a programming Language for developing soluions to both simple and plex problem.‖ 則輸出的 f值是 : 7 1 1 2 4 1 5