Course Smalltalk Core.Object false none courseNumber courseName ToyzInc (none) Course class class initialization new ^super new Course accessing courseName ^courseName courseName: aName courseName := aName. courseNumber ^courseNumber courseNumber: aNumber courseNumber := aNumber. courseNumber: aNumber courseName: aName self courseName: aName. self courseNumber: aNumber. Course printing printOn: aStream aStream nextPutAll: (courseName, ':', courseNumber). Course operators <= aCourse ^self courseName <= aCourse courseName Xref Smalltalk Core.Object false none employeeNumber employeeName courseNumber courseName ToyzInc (none) Xref class class initialization new ^super new Xref accessing courseName ^courseName courseName: aName courseName := aName. courseNumber ^courseNumber courseNumber: aNumber courseNumber := aNumber. employeeName ^employeeName employeeName: aName employeeName := aName. employeeNumber ^employeeNumber employeeNumber: aNumber employeeNumber := aNumber. employeeNumber: eNumber employeeName: eName courseNumber: cNumber courseName: cName self employeeNumber: eNumber. self employeeName: eName. self courseNumber: cNumber. self courseName: cName. Xref printing printOn: aStream aStream nextPutAll: (employeeNumber, ':', courseNumber). Xref operators <= aXref ^self employeeName <= aXref employeeName Employee Smalltalk Core.Object false none number level firstName lastName ToyzInc (none) Employee class class initialization new ^super new Employee accessing firstName ^firstName firstName: aName firstName := aName. lastName ^lastName lastName: aName lastName := aName. level ^level level: aLevel level := aLevel. number ^number number: aNumber number := aNumber. number: aNumber level: aLevel firstName: aFirstName lastName: aLastName self firstName: aFirstName. self number: aNumber. self lastName: aLastName. self level: aLevel. Employee printing printOn: aStream aStream nextPutAll: (lastName, ':', firstName). Employee operators <= aEmployee ^self lastName <= aEmployee lastName FileStuff Smalltalk Core.Object false none employees courses directory xrefs ToyzInc (none) FileStuff class class initialization new ^super new initialize FileStuff instance-creation initialize directory := 'c:\vw72nc\web\sandbox\db\'. employees := SortedCollection new. courses := SortedCollection new. xrefs := SortedCollection new. FileStuff accessing courses ^ courses getCourses courses isEmpty ifTrue: [ self getCoursesFromFile] ifFalse: [ self courses]. ^ courses. getCoursesFromFile | courseFile separator stream courseNumber courseName | courseFile := (directory, 'courses.txt') asFilename. separator := $,. "comma" stream := courseFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ courseNumber := (stream upTo: separator). courseName := (stream upTo: separator). stream upTo: (Character cr). courses add: ((Course new) courseNumber: courseNumber courseName: courseName). ]. stream close. ^courses. getEmployeeCourses | xrefFile separator stream eNumber eName cName cNumber | xrefFile := (directory, 'xref.txt') asFilename. separator := $,. "comma" stream := xrefFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ eNumber := (stream upTo: separator). eName := (stream upTo: separator). cNumber := (stream upTo: separator). cName := (stream upTo: separator). stream upTo: (Character cr). xrefs add: ((Xref new) employeeNumber: eNumber employeeName: eName courseNumber: cNumber courseName: cName ). ]. stream close. ^xrefs getEmployees | empFile separator stream number level firstName lastName | empFile := (directory, 'employees.txt') asFilename. separator := $,. "comma" stream := empFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ number := (stream upTo: separator). level := (stream upTo: separator). lastName := (stream upTo: separator). firstName := (stream upTo: separator). stream upTo: (Character cr). employees add: ((Employee new) number: number level: level firstName: firstName lastName: lastName ). ]. stream close. ^employees. getXrefs xrefs isEmpty ifTrue: [ self getEmployeeCourses] ifFalse: [ self xrefs]. ^ xrefs. xrefs ^ xrefs Toyz Smalltalk Core.Object false none toyzData ToyzInc (none) Toyz class class initialization new ^super new initialize Toyz instance-creation initialize toyzData := FileStuff new. Toyz accessing getCourses ^toyzData getCourses. getEmployees ^toyzData getEmployees. getXrefs ^toyzData getXrefs.