VisualWorksTutorial1:Page08
 |
 웹로그 통계 레슨 7 |
 |
| | 목차 | 레슨6 | 레슨8 | | |
|
여태까지 Workspace에서 기존의 Smalltalk 객체나 메서드를 사용해 실행해왔습니다. 하지만 진정한 의미에서 코드를 이용가치가 있게끔 만들고, Smalltalk 개발환경의 장점을 음미하기 위해서는 자신의 객체나 메서드를 작성할 필요가 있습니다. |
|
이 레슨에서는 자신의 패키지, 클래스, 프로토콜, 메서드를 작성하기 위한 시스템 브라우저의 사용법을 설명하겠습니다. 이 레슨에서 작성한, 디렉토리 지정된 로그파일에서 웹Hit를 표시하는 코드는 앞서 레슨에서 기술한 작업과 같습니다. 하지만 이번 코드는 보다 효율적으로 재이용 가능한 코드입니다. |
|
코드를 Workspace에서 System Browser(자신의 클래스나 메서드를 작성하는 곳)으로 이행시키기 위해서는, 몇 가지 기술이 필요합니다. 코드를 적절히 실행시키기 위해 필요한 기술입니다. 이 레슨에서는 그 기술에 대해 설명하겠습니다. |
|
1. VisualWorks 런쳐화면에 있는 툴바에서 네 번째 버튼을 클릭, 혹은 브라우저>>시스템 메뉴를 선택합니다.
System Browser라는 타이틀 화면이 표시됩니다. 아직 이 화면을 모르실 것이라 생각합니다만, Smalltalk 개발환경 가운데 자유롭게 사용할 수 있는 매우 강력할 도구 중 한 가지입니다. 닮지 않았을지도 모르겠습니다만, System Browser는 IDE(Integrated Development Environment : 통합개발환경)이라 불리우며, 기타 다른 개발언어의 환경과 동등한 기능을 가집니다. 이것은 Smalltalk 개발자의 메인 툴로 사용됩니다. 매우 강력하고 다양한 기능을 지닌 툴이기에 전부 설명할 수 없으므로 다음 스텝으로 진행합시다. 만약 System Browser에 대해 자세히 알고싶은 분은 System Browser 입문서를 참고해주십시오. |
|
입문서 : 시스템 브라우저
|
|
네임스페이스란?
|
|
|
2. System Browser를 닫았을 경우엔 열어주십시오. 우선 작성한 클래스나 메서드를 포함하게될 패키지를 작성합니다. 패키지 창에서 적당한 패키지 이름을 클릭합니다. 카테고리 일람의 적당한 카테고리를 클릭해주십시오. 그리고 <오퍼레이트 클릭>후 신규 패키지...를 선택해주십시오.
3. 표시된 패키지명 작성 다이얼로그에 WebLogStats를 입력합니다. 그리고 OK 버튼을 클릭합니다.
4. 작성이 완료되면 자동적으로 WeWLogStats 카테고리가 선택됩니다. 선택되지 않은 경우에는 선택해주십시오. System Browser가 아래 그림과 같이 표시된 것을 확인해주십시오.
5. 다음은 클래스를 작성하겠습니다. 메서드 코드 에리어를 수정해서 클래스를 작성할 수 있습니다만, 여기서는 새롭게 추가된 클래스 작성 툴을 사용하겠습니다. 우선, WebLogStats 패키지가 선택된 것을 확인합니다. 그리고, 클래스 창에서 <오퍼레이트 클릭>후 신규 클래스...를 선택합니다.
6. 클래스 작성 도구가 표시됩니다. 클래스명, 인스턴스 변수를 기술합니다. 아래쪽 체크박스는 체크된 상태로 둡니다.
7. OK를 클릭해주십시오.
8. WebLogClass(클래스)를 클릭후 반전시키고, 프로토콜 창 위에 있는 클래스 탭을 클릭해주십시오.
9. 그리고 프로토콜 창에서 instance creation을 선택 후 메서드 창에서 new를 선택합니다.
|
|
|
"^super new initiaize"는 무슨 의미인가요? 입문서 : super |
|
|
10. 프로토콜 창 위에 있는 instance 탭을 클릭해주십시오.
11. 프로토콜 창에서 initialize-release를 선택하고, 메서드 창에서 initialize를 선택합니다.
12. 메서드 코드 뷰의 텍스트를 다음과 같이 바꿔주십시오. initialize
"initialize the WebLogClass. Set the logDirectory variable."
logDirectory := 'c:\vw7.7\image'.
Initialize 메서드는 initialize-relrease에 속해있는 인스턴스 초기화용 공통 메서드 중 하나입니다. 때문에, 로그파일이 존재하는 디렉토리를 인스턴스 변수 값으로 설정하는 딱 좋은 메서드입니다.(이 코드는 다른 곳에서는 올바르게 동작하지 않습니다.)
14. 프로토콜 창 위에 있는 Instance 탭이 다시 선택되어 있는 것을 확인해주십시오. 그리고 프로토콜 창에서 <오퍼레이트 클릭>을 해주십시오. 신규...를 선택합니다. 새로운 프로토콜 이름 입력을 요구하는 다이얼로그가 표시됩니다. testing을 입력하고 OK를 클릭해주십시오.
15. 메서드 코드 뷰의 텍스트를 다음과 같이 바꿔주십시오. viewDirectory
| workingDir contents |
workingDir := logDirectory asFilename.
contents := workingDir directoryContents.
contents do: [ :each | Transcript show: each printString; cr. ]
16. 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. 입력 미스가 없다면 입력된 코드가 "컴파일" 되어서 viewDirectory 메서드가 메서드 창에 표시됩니다.
|
|
|
17. Workspace를 열고 WebLogClass new viewDirectory를 입력하고 실행을 선택해주십시오. 이전에 했던 것 과 같이 Transcript 표시가 가능한 것을 확인해주십시오. |
|
|
18. 프로토콜 창 위에 있는 Instance 탭이 선택되어 있는 것을 확인해주십시오. 그리고 프로토콜 창에서 <오퍼레이트 클릭>을 해주십시오. 신규...를 선택합니다. 새로운 프로토콜명 입력을 요구하는 다이얼로그가 표시됩니다. Private를 입력하고 OK를 클릭해주십시오.
19. 메서드 코드 뷰의 텍스트를 다음과 같이 바꿔주십시오. showHits: aFile
| myFile myStream myLine addrIP mySet |
mySet := Set new.
myFile := (logDirectory, '\', aFile) asFilename.
myStream := myFile readStream.
[ myStream atEnd ] whileFalse:
[myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
mySet add: addrIP.].
myStream close.
^mySet size.
20. 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. 입력 미스가 없다면 입력된 코드가 "컴파일"되서 showHits 메서드가 메서드 팡에 표시됩니다.
|
|
|
Smalltalk의 메서드는 다른 언어에서 말하는 서브 루틴이나 함수와 같은 것입니다. COBOL 언어에서는 "프로시저"라 불리우며, BASIC에서는 "SUB 등"입니다. 하지만 "함수"라는 용어는 루틴이 리턴되거나 값을 되돌리거나 할때에 일반적으로 사용됩니다. Smalltalk에서 무언가 "반환"하고 싶을 때 캐럿 기호(^)(원고 등에서 사용되는 탈자기호)를 사용합니다.
캐럿리턴을 사용하는 식이 있는 경우, 항상 맨 처음에 식 전체가 평가되는 것을 기억해 두십시오. 실제 "반환"되는 것은 맨 마지막에 평가된 것입니다. 따라서 ^mySet size와 같은 식에서 Smalltalk는 mySet size(아마 Smallinteger 인스턴스를 생성)를 평가하고, 이 메서드가 호출된 객체에 그 결과를 돌려줍니다. |
|
|
Smalltalk에서는 정해진 코드(인덴트, 개행, 코드블록 등)의 포맷이 없습니다. 자유로운 포맷으로 쓸 수 있습니다. 하지만 VisualWorks를 사용함에 있어, 사실상 표준은 존재합니다. 브라우저는 자동포맷 기능을 가지고 있습니다.
|
|
|
21. private프로토콜이 선택된 상태에서 코드 뷰의 텍스트를 다음과 같이 바꿔주십시오.(showHits 메서드를 덮어써도 문제는 없습니다. 이미 코드는 메모리에 보존되어 있습니다.)
getLogFiles
| workingDir contents xFound count |
workingDir := logDirectory asFilename.
contents := workingDir directoryContents.
contents do: [ :each |
xFound := each findString: filter startingAt: 1.
xFound > 0
ifTrue:[ count := self showHits: each.
Transcript show: each, ' . . . ', (count printString); cr. ].
].
단순한(합성되지 않은) "필터"로직으로 되돌렸습니다. ws00으로 시작하는 파일만 로그파일이기 때문에, ws00으로 시작하는 파일을 검색하도록 해야 합니다. Filter가 초기화될 때, 어떻게 해야 좋을지 아실겁니다.
22. 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. 입력미스가 없다면 입력된 코드가 "컴파일"되어서 getLogFiles 메서드가 메서드 창에 표시됩니다.
|
|
|
잠시 기다려주십시오. 코드 가운데 여태껏 본 적 없는 새로운 것이 있습니다. – self, 대체 무엇일까요? self를 자세히 알아보기. |
|
|
23. private 프로토콜이 선택된 상태에서 다음과 같이 코드 뷰에 있는 텍스트(getLogFiles 메서드)를 바꿔주십시오.
start
filter := (Dialog request: 'フィルタを入力してください： ' initialAnswer: 'ws00').
(filter size) > 0
ifTrue: [self getLogFiles]
24. 코드 창에서 {{HighlightBold|<오퍼레이트 클릭>}후 Accept를 선택해주십시오. 입력 미스가 없다면 입력된 코드가 "컴파일"되어 start 메서드가 메서드 창에 표시됩니다.
25. Workspace을 열고 다음과 같이 입력해주십시오. WebLogClass new start
모든 텍스트를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
|
|
|
잠시 기다려주십시오. 코드 가운데 여태껏 본 적 없는 새로운 것이 있습니다. - self, 대체 무엇일까요? self를 자세히 알아보기. |
|
|
정리
기나긴 워크샵이었습니다만, 그만한 가치가 있었다고 생각합니다. 카테고리 및 공통 프로토콜을 작성하기 위해서 "사전준비"작업을 해야했기 때문에 길다고 느끼셨을 겁니다.
|
| 목차 | 레슨6 | 레슨8 | | |
