From VisualWorks® NonCommercial, Release 7 of March 21, 2003 on July 15, 2003 at 3:20:32 am (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] Tutorial Smalltalk false VisualWave.VeryBasicServlet VisualWave.Redirect private Smalltalk.* private WebMVC.* CounterApp Tutorial Grocery Smalltalk false VisualWave.Redirect private Smalltalk.* private WebMVC.* Grocery Grocery Test Grocery false private Smalltalk.Grocery.* private Smalltalk.* Grocery-Tests Grocery-Tests PersonBean Tutorial Core.Object false none name age address CounterApp Tutorial ChangeCommand Tutorial Core.Object false none CounterApp Tutorial PundleBrowserApp Tutorial Core.Object false none pundleList selectedPundle PundleBrowser PundleBrowser InertOrderedItem Grocery.Test Core.Object false none item quantity Grocery-Tests Grocery-Tests SessionTag Grocery VisualWave.BodyTag false none needsList requiredUserPattern Grocery-Tags Grocery-Tags InertOrder Grocery.Test Core.Object false none customer items Grocery-Tests Grocery-Tests Counter Tutorial Core.Object false none count CounterApp Tutorial UserAlreadyExistsError Grocery Core.Error false none Grocery-Exceptions Grocery-Exceptions PersistentCounter Grocery Core.Object false none lastValue Grocery-DB Grocery-DB LoginForm Grocery WebMVC.ValidatingModel false none username password Grocery-Forms Grocery-Forms UserList Grocery UI.ApplicationModel false none userList requestList db transaction Grocery-Tools Grocery-Tools NewAccountForm Grocery WebMVC.ValidatingModel false none lastName firstName gender emailAddress password1 password2 sendUpdates street city state zip referral comments Grocery-Forms Grocery-Forms PersistentObjectHolder Grocery UI.ValueModel false none persistentObject Grocery-Form Actions Grocery-Form Actions PersistentObject Grocery Core.Object false none transaction Grocery-Domain Grocery-Domain Aisle Grocery Grocery.PersistentObject false none name sections features Grocery-Domain Grocery-Domain Section Grocery Grocery.PersistentObject false none name items Grocery-Domain Grocery-Domain ShoppingDBTest Grocery.Test XProgramming.SUnit.TestCase false none db Grocery-Tests Grocery-Tests ShoppingTestResource Grocery.Test Core.Object false none Grocery-Tests Grocery-Tests ShoppingList Grocery Grocery.PersistentObject false none items store name Grocery-Domain Grocery-Domain CachedCountRange Grocery Core.Object false none cachedRange Grocery-DB Grocery-DB DecrementCommand Tutorial Core.Object false none CounterApp Tutorial SimpleShoppingTest Grocery.Test XProgramming.SUnit.TestCase false none shopper store Grocery-Tests Grocery-Tests ShopperContactInfo Grocery Grocery.PersistentObject false none name address emailAddress phoneNumber Grocery-Domain Grocery-Domain TagBrowserApp Tutorial Core.Object false none tagLibraries selectedLibrary TagBrowser TagBrowser OrderedItem Grocery Grocery.PersistentObject false none item amount Grocery-Domain Grocery-Domain FirstServlet WebMVC VisualWave.SingleThreadModelServlet false none Tutorial Tutorial IncrementCommand Tutorial Core.Object false none CounterApp Tutorial SuccessOnlyCommand Tutorial Core.Object false none Tutorial Tutorial ConfirmationRedirectionTag Grocery VisualWave.Tag false none Grocery-Tags Grocery-Tags SelectStoreForm Grocery WebMVC.ValidatingModel false none storeId Grocery-Forms Grocery-Forms DBManager Grocery Core.Object false none db transaction Grocery-DB Grocery-DB SMTPError Net Core.Error false none SMTP Grocery-Extensions UnitPrice Grocery Grocery.PersistentObject false none perUnit dollars inexactUnit Grocery-Domain Grocery-Domain NewUserRequest Grocery Grocery.PersistentObject false none user requestKey Grocery-Domain Grocery-Domain Order Grocery Grocery.PersistentObject false none orderedItems complete shopper Grocery-Domain Grocery-Domain InertCustomer Grocery.Test Core.Object false none orders Grocery-Tests Grocery-Tests User Grocery Grocery.PersistentObject false none id username password active Grocery-Domain Grocery-Domain Shopper Grocery Grocery.User false none contactInfo cart shoppingLists defaultStore Grocery-Domain Grocery-Domain Store Grocery Grocery.PersistentObject false none name aisles id administrators specials Grocery-Domain Grocery-Domain OmniBaseAssumptionTest Grocery.Test XProgramming.SUnit.TestCase false none Grocery-Tests Grocery-Tests ShoppingCart Grocery Grocery.PersistentObject false none shopper store orderedItems Grocery-Domain Grocery-Domain InertItem Grocery.Test Core.Object false none description Grocery-Tests Grocery-Tests DatabaseCommand Grocery Core.Object false none db Grocery-Form Actions Grocery-Form Actions SelectStoreCommand Grocery Grocery.DatabaseCommand false none Grocery-Form Actions Grocery-Form Actions CreateAccount Grocery Grocery.DatabaseCommand false none Grocery-Form Actions Grocery-Form Actions ConfirmAccount Grocery Grocery.DatabaseCommand false none Grocery-Form Actions Grocery-Form Actions CreateAccountStep1 Grocery Grocery.DatabaseCommand false none Grocery-Form Actions Grocery-Form Actions LoginCommand Grocery Grocery.DatabaseCommand false none model user Grocery-Servlets Grocery-Form Actions ConfirmationForm Grocery WebMVC.ValidatingModel false none username requestKey Grocery-Forms Grocery-Forms Address Tutorial Core.Object false none street city state zip Tutorial Tutorial StockItem Grocery Grocery.PersistentObject false none id description name unitPrice Grocery-Domain Grocery-Domain TestStoreExists Grocery.Test.ShoppingDBTest false false As yet unclassified Grocery-Tests ShopperInfo1 Grocery.Test.ShoppingTestResource false false As yet unclassified Grocery-Tests ShopperInfo2 Grocery.Test.ShoppingTestResource false false As yet unclassified Grocery-Tests Caches Grocery.PersistentCounter false false caching Dictionary new Grocery-DB Tutorial.PersonBean accessing address ^address address: anObject address := anObject age ^age age: anObject age := anObject name ^name name: anObject name := anObject Tutorial.ChangeCommand api executeWithModel: aCounter controller: aController "The controller already filled in the model" ^aController findForward: 'success' Tutorial.PundleBrowserApp accessing pundleList ^pundleList ifNil: [pundleList := self updatePundleList] selectedPundle ^selectedPundle selectedPundleName: aName selectedPundle := pundleList detect: [:each | each name = aName] ifNone: [] updatePundleList | bundles packages | bundles := Store.Bundle allBundles. packages := Store.Package allPackages. ^(OrderedCollection withAll: bundles) addAll: packages Grocery.Test.InertOrderedItem accessing item ^item item: anObject item := anObject quantity ^quantity quantity: anObject quantity := anObject Grocery.SessionTag api doAfterBody | db | db := DBManager openSample. [ [self checkUser. self addNeededRoots. pageContext out nextPutAll: bodyContent string] evaluateAndCommitIn: db newTransaction] ensure: [db close]. ^self class SKIP_BODY doStartTag ^self class EVAL_BODY_INCLUDE Grocery.SessionTag accessing needsList ^needsList ifNil: [needsList := OrderedCollection new] Grocery.SessionTag private addNeededRoots self needsList do: [:needs | pageContext handler attributeAt: needs put: (self getNeededRoot: needs)] checkUser | currentUser | requiredUserPattern isNil ifTrue: [^nil]. currentUser := (pageContext session at: 'user' ifAbsent: [nil]) value. (currentUser notNil and: [(requiredUserPattern match: currentUser username)]) ifFalse: [pageContext redirectTo: '/shopping/login.jsp'] getNeededRoot: aRoot ^DBManager getRootObject: aRoot Grocery.Test.InertOrder accessing customer ^customer customer: anObject customer := anObject items ^items isNil ifTrue: [items := OrderedCollection new] ifFalse: [items] Grocery.Test.InertOrder items addItem: anItem self items add: anItem Tutorial.Counter accessing count ^count ifNil: [count := 0] count: anObject count := anObject asNumber Tutorial.Counter actions decrement count := self count -1 double count := self count * 2 increment count := self count + 1 Grocery.PersistentCounter initialization initialize lastValue := 0 Grocery.PersistentCounter accessing newValue ^lastValue := lastValue + 1 newValue: aCount | result | result := lastValue + 1 to: lastValue + aCount. lastValue := lastValue + aCount. ^result Grocery.PersistentCounter class instance creation new ^super new initialize Grocery.PersistentCounter class incrementing caches ^Caches getNewValueFor: counterName inDatabase: aDatabase "This method uses a cache to grab more counter values than you might need. This improves efficiency for programs which request one counter value at a time but do so in rapid succession." | counterCache | counterCache := Caches at: counterName ifAbsent: []. (counterCache isNil or: [counterCache hasCachedValue not]) ifTrue: [Caches at: counterName put: (self loadCounterCacheFor: counterName inDatabase: aDatabase)]. counterCache := Caches at: counterName ifAbsent: []. ^counterCache newValue loadCounterCacheFor: counterName inDatabase: aDatabase | transaction counter result | [ [transaction := aDatabase newTransaction. counter := transaction root at: counterName. transaction lock: counter] whileFalse: [transaction abort. (Delay forMilliseconds: 50) wait]. result := CachedCountRange forCounter: counter. transaction markDirty: counter; commit] ifCurtailed: [transaction abort]. ^result resetCaches "self resetCaches" Caches := Dictionary new. Grocery.LoginForm accessing password ^password password: anObject password := anObject username ^username username: anObject username := anObject Grocery.LoginForm class field specs passwordFieldSpec ^FieldSpec name: 'password' validator: RequiredFieldValidator new converter: StringConverter new usernameFieldSpec ^FieldSpec name: 'username' validator: RequiredFieldValidator new converter: StringConverter new Grocery.UserList actions inspectRequest self requestList selection ifNil: [Dialog warn: 'Select NewUserRequest to inspect fist.'. ^nil]. self requestList selection inspect inspectUser self userList selection ifNil: [Dialog warn: 'Select User to inspect fist.'. ^nil]. self userList selection inspect removeRequest | request | self requestList selection ifNil: [Dialog warn: 'Select Request to delete fist.'. ^nil]. request := self requestList selection. request removeIn: transaction. transaction commit. self updateLists removeUser self userList selection ifNil: [Dialog warn: 'Select User to delete fist.'. ^nil]. User deleteByUsername: self userList selection username in: transaction. transaction commit. self updateLists updateLists transaction abort. transaction := db newTransaction. self updateRequestList. self updateUserList Grocery.UserList aspects requestList "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^requestList isNil ifTrue: [requestList := SelectionInList new] ifFalse: [requestList] userList "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^userList isNil ifTrue: [userList := SelectionInList new] ifFalse: [userList] Grocery.UserList interface opening postOpenWith: aBuilder super postOpenWith: aBuilder. self openDatabase. self updateUserList. self updateRequestList Grocery.UserList closing changeRequest self closeDatabase. ObjectMemory removeDependent: self. ^true Grocery.UserList private closeDatabase db close openDatabase ObjectMemory removeDependent: self. ObjectMemory addDependent: self. db := DBManager openSample. transaction := db newTransaction updateRequestList self requestList list: (NewUserRequest userRequestListIn: transaction) updateUserList self userList list: (User allUsersIn: transaction) Grocery.UserList update aboutToQuitCleanup [self closeDatabase] on: Error do: [] returnFromSnapshot [self openDatabase. self updateLists] on: Error do: [Transcript show: 'UserList: error opening database'; cr] update: anAspectSymbol with: aParameter anAspectSymbol == #aboutToQuit ifTrue: [ self aboutToQuitCleanup. ]. anAspectSymbol ==#returnFromSnapshot ifTrue: [ self returnFromSnapshot ]. Grocery.NewAccountForm accessing city ^city city: anObject city := anObject comments ^comments comments: anObject comments := anObject emailAddress ^emailAddress emailAddress: anObject emailAddress := anObject firstName ^firstName firstName: anObject firstName := anObject gender ^gender gender: anObject gender := anObject lastName ^lastName lastName: anObject lastName := anObject password1 ^password1 password1: anObject password1 := anObject password2 ^password2 password2: anObject password2 := anObject referral ^referral referral: anObject referral := anObject sendUpdates ^sendUpdates sendUpdates: anObject sendUpdates := anObject state ^state state: anObject state := anObject street ^street street: anObject street := anObject zip ^zip zip: anObject zip := anObject Grocery.NewAccountForm validating/assigning validateAndAssignFor: aController formData: formData ^(super validateAndAssignFor: aController formData: formData) ifTrue: [self validatePasswordFor: aController] ifFalse: [false] validatePasswordFor: aController ^self password1 = self password2 ifFalse: [aController addError: (ValidationError forVariable: 'password2' description: 'The passwords do not match'). false] ifTrue: [true] Grocery.NewAccountForm class field specs cityFieldSpec ^FieldSpec name: 'city' validator: nil converter: StringConverter new commentsFieldSpec ^FieldSpec name: 'city' validator: nil converter: StringConverter new emailAddressFieldSpec ^FieldSpec name: 'emailAddress' validator: EMailAddressFormatValidator new converter: StringConverter new firstNameFieldSpec ^FieldSpec name: 'firstName' validator: RequiredFieldValidator new converter: StringConverter new genderFieldSpec ^FieldSpec name: 'gender' validator: nil converter: StringConverter new lastNameFieldSpec ^FieldSpec name: 'lastName' validator: RequiredFieldValidator new converter: StringConverter new password1FieldSpec ^FieldSpec name: 'password1' validator: RequiredFieldValidator new converter: StringConverter new password2FieldSpec ^FieldSpec name: 'password2' validator: RequiredFieldValidator new converter: StringConverter new referralFieldSpec | fs | fs := FieldSpec name: 'referral' validator: nil converter: StringConverter new. fs acceptsList: true. ^fs sendUpdatesFieldSpec ^FieldSpec name: 'sendUpdates' validator: nil converter: StringConverter new stateFieldSpec ^FieldSpec name: 'state' validator: nil converter: StringConverter new streetFieldSpec ^FieldSpec name: 'street' validator: nil converter: StringConverter new zipFieldSpec ^FieldSpec name: 'zip' validator: nil converter: StringConverter new Grocery.PersistentObjectHolder private persistentObject ^persistentObject persistentObject: anObject persistentObject := anObject reloadObject self setValue: (persistentObject class load: persistentObject inTransaction: OmniBase currentTransaction) Grocery.PersistentObjectHolder accessing setValue: aPersistentObject persistentObject := aPersistentObject value | t | t := OmniBase currentTransaction. t = persistentObject transaction ifFalse: [self reloadObject]. ^persistentObject Grocery.PersistentObjectHolder class instance creation withValue: aValue ^self new value: aValue; yourself Grocery.PersistentObject public database ^self transaction isNil ifTrue: [nil] ifFalse: [self transaction environment] lock "Sets a write-lock on the object. Answer <true> if successful or if object is transient." ^transaction isNil or: [transaction lock: self] makePersistent: anObject transaction notNil ifTrue: [ transaction makePersistent: anObject ] markDirty "Informs transaction that the object has changed and has to be written into the database when transaction commits." transaction notNil ifTrue: [ transaction markDirty: self ] objectId "Answer object id of a persistent object. This method works only if a persistent object was already stored i.e. if transaction in which it was made persistent already received #commit or #checkpoint." ^self transaction getObjectID: self transaction "Answer an OmniBase transaction in which the object was loaded or <nil> if object is not persistent." ^transaction unlock "Removes a write-lock on the object." transaction notNil ifTrue: [ transaction unlock: self ] Grocery.PersistentObject initialize / release initialize ^self Grocery.PersistentObject private odbLoadedIn: anOmniBaseTransaction "This method is sent when the object is loaded from the database." transaction := anOmniBaseTransaction odbMadePersistentIn: anOmniBaseTransaction "This method is sent when the object is made persistent." transaction := anOmniBaseTransaction Grocery.PersistentObject comparing = other ^self isIdenticalTo: other Grocery.PersistentObject class instance creation new ^super new initialize newInTxn: aTransaction | instance | instance := super new initialize. aTransaction ifNotNil: [aTransaction makePersistent: instance]. ^instance Grocery.PersistentObject class private odbTransientInstanceVariables "This method tells OmniBase which instance variables should not be stored into the database." ^OrderedCollection with: 'transaction' Grocery.PersistentObject class utility lock: anObject in: aTransaction orGiveUpInMilliseconds: anInteger "repeatedly try to lock the supplied object until successful and return true. Give up if unsuccessful for rougly anInteger milliseconds and return false." | roughTime gotLock | roughTime := 0. gotLock := false. [gotLock := aTransaction lock: anObject. gotLock not & (roughTime <= anInteger)] whileTrue: [roughTime := roughTime + 100. (Delay forMilliseconds: 100) wait]. ^gotLock Grocery.Aisle items items ^(self sections collect: [:section | section items]) flatten Grocery.Aisle accessing name "return the value of the instance variable 'name' (automatically generated)" ^name name: something "set the value of the instance variable 'name' (automatically generated)" name := something. self markDirty Grocery.Aisle sections addSection: aSection self sections add: aSection. self markDirty sections ^sections ifNil: [sections := OrderedCollection new. self markDirty. sections] Grocery.Aisle features featureItem: aStockItem self features add: aStockItem features ^features ifNil: [features := OrderedCollection new. self markDirty. features] Grocery.Aisle class instance creation newWithName: aString ^self new name: aString; yourself newWithName: aString inTxn: aTransaction ^(self newInTxn: aTransaction) name: aString; yourself Grocery.Section items addItem: anItem self items add: anItem. self markDirty. items ^items ifNil: [ items := OrderedCollection new. self markDirty. items] Grocery.Section accessing name "return the value of the instance variable 'name' (automatically generated)" ^name name: something "set the value of the instance variable 'name' (automatically generated)" name := something. self markDirty Grocery.Section class instance creation newWithName: aString ^self new name: aString; yourself newWithName: aString inTxn: aTransaction ^(self newInTxn: aTransaction) name: aString; yourself Grocery.Test.ShoppingDBTest running tearDown db := nil Grocery.Test.ShoppingDBTest creating db createAisles | txn s | txn := db newTransaction. s := txn root at: 'SevenEleven'. 1 to: 2 do: [:i | | a | a := Aisle newWithName: 'aisle ' , i printString inTxn: txn. s addAisle: a]. txn commit createSections | txn s | txn := db newTransaction. s := txn root at: 'SevenEleven'. s aisles do: [:aisle | | section | 1 to: 2 do: [:i | section := Section newWithName: 'section ' , i printString , ' of ' , aisle name inTxn: txn. aisle addSection: section]]. txn commit createShopper | txn | txn := db newTransaction. [Shopper newUser: 'Bob Smith' password: 'shit' contactInfo: ShoppingTestResource shopperInfo1 inTxn: txn] ensure: [txn commit]. createStockItems | txn s | txn := db newTransaction. s := txn root at: 'SevenEleven'. s aisles do: [:aisle | aisle sections do: [:section | | stockItem | 1 to: 5 do: [:i | stockItem := StockItem newWithName: 'stock item ' , i printString , ' in ' , section name , ' of ' , aisle name inTxn: txn. section addItem: stockItem]]]. txn commit createTestStore self defaultDatabasePath asFilename exists ifTrue: [self defaultDatabasePath asFilename recursiveRemove]. db := OmniBase createOn: self defaultDatabasePath. [| txn | txn := db newTransaction. self initIndicesAndCountersIn: txn. Grocery.Store newWithId: 'SevenEleven' name: 'SevenEleven' inTxn: txn. txn commit] ensure: [db close] defaultDatabasePath OSHandle currentOS = #unix ifTrue: [^'/tmp/Grocery-test'] ifFalse: [^'c:\temp\Grocery-test'] initIndicesAndCountersIn: txn "This method creates primary key index and id counter for persistent instances of Person." User initDatabaseIn: txn. StockItem initDatabaseIn: txn. Grocery.PersistentCounter resetCaches. Grocery.Store initDatabaseIn: txn. Grocery.Test.ShoppingDBTest tests testAddToCart | theItem txn store shopper | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. self createShopper. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. shopper := Shopper findByUsername: 'Bob Smith' in: txn. "if I create the shopper here his cart has identity problems" shopper enterStore: store. shopper purchaseItem: theItem amount: 10. self assert: shopper cart orderedItems size = 1. shopper purchaseItem: theItem amount: 5. self assert: shopper cart = shopper cart. " test object identity " self assert: shopper cart orderedItems size = 1. "only keep last order for this item" self assert: shopper cart orderedItems first amount = 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. self assert: shopper cart orderedItems size = 2. self assert: (shopper cart orderedItems at: 2) amount = 3. self assert: (shopper cart amountOrderedOfItem: store stockItems first) = 5. self assert: (shopper cart amountOrderedOfItem: (store stockItems at: 2)) = 3. self assert: (shopper cart amountOrderedOfItem: (store stockItems at: 3)) = 0] ensure: [txn abort. db close] testAddToCartNoShopper | theItem txn store cart | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. cart := ShoppingCart newForShopper: nil inTxn: txn. cart moveToStore: store. cart acceptItem: theItem amount: 10. self assert: cart orderedItems size = 1. cart acceptItem: theItem amount: 5. self assert: cart = cart. " test object identity " self assert: cart orderedItems size = 2. "cart keeps all items" self assert: (cart orderedItems first) amount = 10. theItem := store stockItems at: 2. cart acceptItem: theItem amount: 3. self assert: cart orderedItems size = 3. self assert: (cart orderedItems at: 3) amount = 3. self assert: (cart amountOrderedOfItem: (store stockItems at: 1)) = 15. self assert: (cart amountOrderedOfItem: (store stockItems at: 2)) = 3. self assert: (cart amountOrderedOfItem: (store stockItems at: 3)) = 0] ensure: [txn abort. db close] testCartToShoppingList | theItem txn store shopper list | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. self createShopper. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. shopper := Shopper findByUsername: 'Bob Smith' in: txn. "if I create the shopper here his cart has identity problems" shopper enterStore: store. theItem := store stockItems first. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromCart: shopper cart. self assert: list items size = 2. self assert: (list items at: 1) item = (store stockItems at: 1). self assert: (list items at: 2) item = (store stockItems at: 2)] ensure: [txn abort. db close] testCheckout | theItem txn store shopper order | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. self createShopper. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. shopper := Shopper findByUsername: 'Bob Smith' in: txn. "if I create the shopper here his cart has identity problems" shopper enterStore: store. theItem := store stockItems first. shopper purchaseItem: theItem amount: 10. self assert: shopper cart orderedItems size = 1. shopper purchaseItem: theItem amount: 5. self assert: shopper cart orderedItems size = 1. "only keeps last amount for this item" order := shopper cart createOrderForItems. self assert: order orderedItems size = 1. order completeOrder. self assert: shopper cart orderedItems isEmpty. self assert: order isComplete] ensure: [txn abort. db close] testOrderToShoppingList | theItem txn store shopper order list | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. self createShopper. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. shopper := Shopper findByUsername: 'Bob Smith' in: txn. "if I create the shopper here his cart has identity problems" shopper enterStore: store. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. order := shopper cart createOrderForItems. self assert: order orderedItems size = 2. order completeOrder. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromOrder: order. self assert: list items size = 2. self assert: (list items at: 1) item = (store stockItems at: 1). self assert: (list items at: 2) item = (store stockItems at: 2)] ensure: [txn abort. db close] testShoppers | txn s | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. txn := db newTransaction. [Shopper newUser: 'Bob Smith' password: 'shit' contactInfo: ShoppingTestResource shopperInfo1 inTxn: txn] ensure: [txn commit]. txn := db newTransaction. [s := Shopper findById: 1 in: txn. self assert: s notNil. self assert: s username = 'Bob Smith'. self assert: s password = 'shit'] ensure: [txn abort]. txn := db newTransaction. [s := Shopper findByUsername: 'Bob Smith' in: txn. self assert: s notNil. self assert: s username = 'Bob Smith'. self assert: s password = 'shit'] ensure: [txn abort. db close] testShoppingListToCart | theItem txn store shopper order list | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. self createShopper. txn := db newTransaction. [store := Grocery.Store withId: 'SevenEleven' inTxn: txn. theItem := store stockItems first. shopper := Shopper findByUsername: 'Bob Smith' in: txn. "if I create the shopper here his cart has identity problems" shopper enterStore: store. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. order := shopper cart createOrderForItems. self assert:order orderedItems size = 2. order completeOrder. self assert: shopper cart orderedItems size = 0. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromOrder: order. self assert: list items size = 2. list := shopper shoppingListNamed: 'Weekly list'. list placeItemsInCart: shopper cart. self assert: shopper cart orderedItems size = 2. self assert: (shopper cart orderedItems at: 1) amount = 5. self assert: (shopper cart orderedItems at: 2) amount = 3. self assert: (shopper cart orderedItems at: 1) item = (store stockItems at: 1). self assert: (shopper cart orderedItems at: 2) item = (store stockItems at: 2)] ensure: [txn abort. db close] testStockItemIndex | txn item idx | self createTestStore. db := OmniBase openOn: self defaultDatabasePath. self createAisles. self createSections. self createStockItems. txn := db newTransaction. [item := StockItem findById: 1 in: txn. self assert: item notNil. self assert: (item name startsWith: 'stock item 1'). item := StockItem findById: 20 in: txn. self assert: item notNil. self assert: item id = 20. idx := StockItem primaryKeyIndexIn: txn. item := idx getFirst value. self assert: idx size = 20. 1 to: idx size do: [:i | self assert: item id = i. item := idx getNext value]] ensure: [txn abort. db close] Grocery.Test.ShoppingTestResource class resources shopperInfo1 ^ShopperInfo1 shopperInfo2 ^ShopperInfo2 Grocery.Test.ShoppingTestResource class class initialization initialize "self initialize" ShopperInfo1 := (ShopperContactInfo new) name: 'Joe Grocery Shopper'; emailAddress: 'cdshaffer@acm.org'; address: '1234 Gateway Lane'; phoneNumber: '(123)555-1212'; yourself. "Later a ShopperAddress instance?" ShopperInfo2 := (ShopperContactInfo new) name: 'Jane Grocery Shopper'; emailAddress: 'cdshaffer@acm.org'; address: '555 Star Road'; phoneNumber: '(654)111-9988'; yourself "Later a ShopperAddress instance?" Grocery.ShoppingList items addItem: anItem self items add: anItem. self markDirty getItemsFromCart: aCart aCart orderedItems do: [:item | self addItem: item] getItemsFromOrder: anOrder anOrder orderedItems do: [:item | self addItem: item] Grocery.ShoppingList accessing items ^items ifNil: [items := OrderedCollection new. self markDirty. items] name "return the value of the instance variable 'name' (automatically generated)" ^ name name: something "set the value of the instance variable 'name' (automatically generated)" name := something. self markDirty store "return the value of the instance variable 'store' (automatically generated)" ^ store store: something "set the value of the instance variable 'store' (automatically generated)" store := something. self markDirty Grocery.ShoppingList shopping placeItemsInCart: aCart self items do: [:item | aCart acceptOrderedItem: item copy] Grocery.ShoppingList class instance creation newWithName: aString ^self new name: aString; yourself newWithName: aString inTxn: aTransaction ^(self newInTxn: aTransaction) name: aString; yourself Grocery.CachedCountRange accessing cachedRange ^cachedRange cachedRange: anObject cachedRange := anObject newValue self hasCachedValue ifFalse: [self error: 'I''m empty.']. cachedRange := cachedRange first + 1 to: cachedRange last. ^cachedRange first - 1 Grocery.CachedCountRange testing hasCachedValue ^self cachedRange isEmpty not Grocery.CachedCountRange class instance creation forCounter: aPersistentCounter ^self new cachedRange: (aPersistentCounter newValue: self cacheSize) Grocery.CachedCountRange class accessing cacheSize "Default number of counter entries to take whenever I run out. Making this number too large can result in wasted counter values. If you absolutely need no gaps in your counters, use a PersistentCounter without caching (although performance will suffer if you try to get a bunch of counter values, one at a time, for example)." ^10 Tutorial.DecrementCommand api defaultModelClass ^Counter executeWithModel: aCounter controller: aController "(aController session at: 'counter' ifAbsentPut: [Counter new count: 0; yourself]) decrement." aCounter decrement. ^aController findForward: 'success' Grocery.Test.SimpleShoppingTest building buildStoreInventory |si c s| c := Aisle newWithName: 'Paper products'. s := Section newWithName: 'Tissues'. c addSection: s. si := (StockItem newWithName: 'Kleenex') description: '100Ct 2ply tissues'; yourself. si unitPrice: (UnitPrice dollarsPerPackage: 3.5). s addItem: si. store addAisle: c. c := Aisle newWithName: 'Beverages'. s := Section newWithName: 'Coffee'. c addSection: s. si := (StockItem newWithName: 'Starbucks Espresso') description: '1Lb of excellent beans'; yourself. si unitPrice: (UnitPrice dollarsPerPackage: 8.0). "packaged in exactly one pound bags" s addItem: si. si := (StockItem newWithName: 'Here''s How Coffee -- Columbian blend') description: '1Lb of Columbian blend'; yourself. si unitPrice: (UnitPrice dollarsPerPound: 7.50). s addItem: si. store addAisle: c. c := Aisle newWithName: 'Bakery'. s := Section newWithName: 'Fresh baked bulk items'. c addSection: s. si := (StockItem newWithName: 'Hard sandwich rolls') description: '4in. round sandwhich roll'; yourself. si unitPrice: (UnitPrice dollars: 5 perUnit: 'roll'). s addItem: si. store addAisle: c. Grocery.Test.SimpleShoppingTest tests testAddToCart |theItem| self buildStoreInventory. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 10. self assert: shopper cart orderedItems size = 1. shopper purchaseItem: theItem amount: 5. self assert: shopper cart orderedItems size = 1. "only keep last order for this item" self assert: (shopper cart orderedItems at: 1) amount = 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. self assert: shopper cart orderedItems size = 2. self assert: (shopper cart orderedItems at: 2) amount = 3. self assert: (shopper cart amountOrderedOfItem: (store stockItems at: 1)) = 5. self assert: (shopper cart amountOrderedOfItem: (store stockItems at: 2)) = 3. self assert: (shopper cart amountOrderedOfItem: (store stockItems at: 3)) = 0. testCartToShoppingList |theItem list| self buildStoreInventory. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromCart: shopper cart. self assert: list items size = 2. self assert: (list items at: 1) item = (store stockItems at: 1). self assert: (list items at: 2) item = (store stockItems at: 2). testCheckout | theItem order | self buildStoreInventory. theItem := store stockItems first. shopper purchaseItem: theItem amount: 10. self assert: shopper cart orderedItems size = 1. shopper purchaseItem: theItem amount: 5. self assert: shopper cart orderedItems size = 1. "only keeps last amount for this item" order := shopper cart createOrderForItems. self assert: order orderedItems size = 1. order completeOrder. self assert: shopper cart orderedItems isEmpty. self assert: order isComplete testOrderToShoppingList |theItem list order| self buildStoreInventory. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. order := shopper cart createOrderForItems. self assert:order orderedItems size = 2. order completeOrder. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromOrder: order. self assert: list items size = 2. self assert: (list items at: 1) item = (store stockItems at: 1). self assert: (list items at: 2) item = (store stockItems at: 2). testShoppingListToCart |theItem list order| self buildStoreInventory. theItem := store stockItems at: 1. shopper purchaseItem: theItem amount: 5. theItem := store stockItems at: 2. shopper purchaseItem: theItem amount: 3. order := shopper cart createOrderForItems. self assert:order orderedItems size = 2. order completeOrder. self assert: shopper cart orderedItems size = 0. list := shopper newShoppingListNamed: 'Weekly list'. list getItemsFromOrder: order. self assert: list items size = 2. list := shopper shoppingListNamed: 'Weekly list'. list placeItemsInCart: shopper cart. self assert: shopper cart orderedItems size = 2. self assert: (shopper cart orderedItems at: 1) amount = 5. self assert: (shopper cart orderedItems at: 2) amount = 3. self assert: (shopper cart orderedItems at: 1) item = (store stockItems at: 1). self assert: (shopper cart orderedItems at: 2) item = (store stockItems at: 2) testStoreSetup self buildStoreInventory. self assert: store aisles size = 3. self assert: store stockItems size = 4. Grocery.Test.SimpleShoppingTest running setUp shopper := Shopper newUser: 'Shopper 1' password: 'fickle' contactInfo: ShoppingTestResource shopperInfo1. store := Grocery.Store newWithId: 'testStore' name: 'test'. shopper enterStore: store Grocery.ShopperContactInfo accessing address "return the value of the instance variable 'address' (automatically generated)" ^ address address: something "set the value of the instance variable 'address' (automatically generated)" address := something. self markDirty emailAddress "return the value of the instance variable 'emailAddress' (automatically generated)" ^ emailAddress emailAddress: something "set the value of the instance variable 'emailAddress' (automatically generated)" emailAddress := something. self markDirty name "return the value of the instance variable 'name' (automatically generated)" ^ name name: something "set the value of the instance variable 'name' (automatically generated)" name := something. self markDirty phoneNumber "return the value of the instance variable 'phoneNumber' (automatically generated)" ^ phoneNumber phoneNumber: something "set the value of the instance variable 'phoneNumber' (automatically generated)" phoneNumber := something. self markDirty Tutorial.TagBrowserApp accessing libraries tagLibraries ifNil: [self updateLibraryList]. ^tagLibraries libraryName: aValue selectedLibrary := self libraries detect: [:each | each name = aValue] ifNone: [] selectedLibrary ^selectedLibrary Tutorial.TagBrowserApp actions updateLibraryList tagLibraries := WebMVC.TagLibrary allTagDefinitions values asOrderedCollection viewLibraryFor: aController ^aController findForward: 'success' Grocery.OrderedItem accessing amount "return the value of the instance variable 'amount' (automatically generated)" ^amount item "return the value of the instance variable 'item' (automatically generated)" ^item Grocery.OrderedItem initialize / release item: anItem amount: anAmount item := anItem. amount := anAmount. self markDirty Grocery.OrderedItem class instance creation item: anItem amount: anAmount inTxn: aTransaction ^(self newInTxn: aTransaction) item: anItem amount: anAmount; yourself WebMVC.FirstServlet servlet api doGet self doProcessForMethod: 'doGet' doPost self doProcessForMethod: 'doPost' doProcessForMethod: methodName response write: '<html><body>'; write: '<h1>' , methodName , '</h1>'; write: 'Query value: '; write: (request anyQueryValueAt: 'name'); write: '<br>'; write: 'Form value: '; write: (request anyFormValueAt: 'name'); write: '<br>'; write: 'Any value: '; write: (request anyParameterValueAt: 'name'); write: '<br><br>'; write: 'PATH_INFO: '; write: request webRequest PATH_INFO; write: '<br>'; write: 'QUERY_STRING: '; write: request webRequest QUERY_STRING; write: '<br>Cookies: '; write: request cookies printString; write: '</body></html>' Tutorial.IncrementCommand api defaultModelClass ^Counter executeWithModel: aCounter controller: aController aCounter increment. ^aController findForward: 'success' Tutorial.SuccessOnlyCommand api defaultModelClass ^nil executeWithModel: aCounter controller: aController ^Forwarder fromString: '/login.jsp' Grocery.ConfirmationRedirectionTag api doStartTag | page | (self request getParameter: 'username') isNil | (self request getParameter: 'requestKey') isNil ifTrue: [^nil]. page := '/shopping/servlet/WebMVCController/Grocery.ConfirmAccount?_WEBMVC_FORMCLASS=Grocery.ConfirmationForm&_WEBMVC_FORMSCOPE=request&_WEBMVC_FORWARD_SUCCESS=/login.jsp&_WEBMVC_FORWARD_FAILURE=/problem.jsp&username='. page := page , (self request getParameter: 'username') , '&requestKey='. page := page , (self request getParameter: 'requestKey'). (pageContext getRequestDispatcher: page) forward: pageContext request response: pageContext response Grocery.SelectStoreForm accessing storeId ^storeId storeId: anObject storeId := anObject Grocery.SelectStoreForm class field specs storeIdFieldSpec ^FieldSpec name: 'storeId' validator: RequiredFieldValidator new converter: StringConverter new Grocery.DBManager class instance creation open ^self new open; yourself openSample ^OmniBase openOn: self sampleDatabasePath Grocery.DBManager class sample db createAisles | txn s db | db := DBManager openSample. [txn := db newTransaction. s := Store withId: 'SampleStore' inTxn: txn. 1 to: 5 do: [:i | | a | a := Aisle newWithName: 'aisle ' , i printString inTxn: txn. s addAisle: a]. txn commit] ensure: [db close] createSampleDatabase "self createSampleDatabase" DBManager createSampleStore. DBManager createAisles. DBManager createSections. DBManager createStockItems. DBManager createShopper. createSampleStore | db | self sampleDatabasePath asFilename exists ifTrue: [self sampleDatabasePath asFilename recursiveRemove]. db := OmniBase createOn: self sampleDatabasePath. [| txn | txn := db newTransaction. self initIndicesAndCountersIn: txn. Grocery.Store newWithId: 'SampleStore' name: 'Sample Store (Development Only)' inTxn: txn. txn commit] ensure: [db close] createSections | txn s db | db := DBManager openSample. [txn := db newTransaction. s := Store withId: 'SampleStore' inTxn: txn. s aisles do: [:aisle | | section | 1 to: 5 do: [:i | section := Section newWithName: 'section ' , i printString , ' of ' , aisle name inTxn: txn. aisle addSection: section]]. txn commit] ensure: [db close] createShopper | txn db | db := DBManager openSample. txn := db newTransaction. [Shopper newUser: 'jones' password: 'test' contactInfo: Grocery.Test.ShoppingTestResource shopperInfo1 inTxn: txn] ensure: [txn commit. db close]. createStockItems | txn s db | db := DBManager openSample. [txn := db newTransaction. s := Store withId: 'SampleStore' inTxn: txn. s aisles do: [:aisle | aisle sections do: [:section | | stockItem | 1 to: 5 do: [:i | stockItem := StockItem newWithName: 'stock item ' , i printString , ' in ' , section name , ' of ' , aisle name inTxn: txn. section addItem: stockItem]]]. txn commit] ensure: [db close] initIndicesAndCountersIn: txn "This method creates primary key index and id counter for persistent instances of Person." User initDatabaseIn: txn. StockItem initDatabaseIn: txn. PersistentCounter resetCaches. NewUserRequest initDatabaseIn: txn. Store initDatabaseIn: txn. Grocery.DBManager class constants defaultDatabasePath (OSHandle currentOS = #unix) ifTrue: [ ^ '/tmp/Grocery' ] ifFalse: [ ^ 'c:\temp\Grocery' ] sampleDatabasePath ^'./sampledb' Grocery.DBManager class root objects getRootObject: objectName objectName = 'users' ifTrue: [^User allUsersIn: OmniBase currentTransaction]. objectName = 'stores' ifTrue: [^Store storesListIn: OmniBase currentTransaction] Grocery.UnitPrice accessing dollars "return the value of the instance variable 'dollars' (automatically generated)" ^ dollars dollars: something "set the value of the instance variable 'dollars' (automatically generated)" dollars := something. self markDirty isInexactUnit ^inexactUnit isNil ifTrue: [inexactUnit := false] ifFalse: [inexactUnit] perUnit "return the value of the instance variable 'perUnit' (automatically generated)" ^ perUnit perUnit: something "set the value of the instance variable 'perUnit' (automatically generated)" perUnit := something. self markDirty unitIsInexact inexactUnit := true. Grocery.UnitPrice initialize / release dollars: aNumber perUnit: aUnit dollars := aNumber. perUnit := aUnit. self markDirty Grocery.UnitPrice class instance creation dollars: aNumber perUnit: aUnit ^self new dollars: aNumber perUnit: aUnit; yourself dollarsPerPackage: aNumber ^self dollars: aNumber perUnit: self packageUnit dollarsPerPound: aNumber ^(self dollars: aNumber perUnit: self poundUnit) unitIsInexact; yourself Grocery.UnitPrice class constants packageUnit ^'pkg' poundUnit ^'Lb' Grocery.NewUserRequest accessing requestKey ^requestKey requestKey: anObject requestKey := anObject. self markDirty user ^user user: anObject user := anObject. self markDirty Grocery.NewUserRequest removing confirmed self user activate. self removeIn: OmniBase currentTransaction removeIn: aTransaction "Remove me from the list" | l | l := self class userRequestListIn: aTransaction. (self class lock: l in: aTransaction orGiveUpInMilliseconds: 1000) ifFalse: [self error: 'couldn''t lock request list']. l remove: self. aTransaction markDirty: l Grocery.NewUserRequest class master collection initDatabaseIn: txn "This method creates the master collection of new user requests." (txn root) at: 'list.NewUserRequest' put: OrderedCollection new userRequestListIn: aTransaction ^aTransaction root at: 'list.NewUserRequest' Grocery.NewUserRequest class instance creation newRequestFor: user requestKey: key in: aTransaction | instance l | l := self userRequestListIn: aTransaction. (self lock: l in: aTransaction orGiveUpInMilliseconds: 1000) ifFalse: [self error: 'Unable to lock request list']. instance := self newInTxn: aTransaction. instance user: user. instance requestKey: key. l add: instance. aTransaction markDirty: l. ^instance Grocery.Order initialize-release initialize super initialize. complete := false. ^self Grocery.Order shopping completeOrder complete := true. self shopper checkoutCompleteForOrder: self. self markDirty Grocery.Order accessing isComplete "return the value of the instance variable 'complete' (automatically generated)" ^complete orderedItems ^orderedItems ifNil: [orderedItems := OrderedCollection new. self markDirty. orderedItems]. shopper "return the value of the instance variable 'shopper' (automatically generated)" ^shopper shopper: something "set the value of the instance variable 'shopper' (automatically generated)" shopper := something. self markDirty Grocery.Order items addAllItems: aCollection self orderedItems addAll: aCollection. self markDirty Grocery.Order class instance creation newForShopper: aShopper withItems: aCollection ^self new shopper: aShopper; addAllItems: aCollection; yourself newForShopper: aShopper withItems: aCollection inTxn: aTransaction ^(self newInTxn: aTransaction) shopper: aShopper; addAllItems: aCollection; yourself Grocery.Test.InertCustomer orders addOrder: anOrder self orders add: anOrder addToFirstOrder: anOrderedItem self orders first addItem: anOrderedItem Grocery.Test.InertCustomer accessing orders ^orders isNil ifTrue: [orders := OrderedCollection new] ifFalse: [orders] Grocery.User accessing activate active := true. self markDirty deactivate active := false. self markDirty id "return the value of the instance variable 'id' (automatically generated)" ^id id: something id = something ifFalse: [self markDirty. self updateIndexesFor: [id := something]] isActive ^active ifNil: [active := false] password "return the value of the instance variable 'password' (automatically generated)" ^password password: something "set the value of the instance variable 'password' (automatically generated)" password := something. self markDirty username "return the value of the instance variable 'username' (automatically generated)" ^username username: something "set the value of the instance variable 'username' (automatically generated)" username = something ifFalse: [self markDirty. self updateIndexesFor: [username := something]] Grocery.User password validatePassword: anAttempt "answer true if I am an active user and anAttempt is a valid password, false otherwise" ^self password = anAttempt & self isActive Grocery.User private odbMadePersistentIn: anOmniBaseTransaction "Private - This method is sent when the object is made persistent." | index | super odbMadePersistentIn: anOmniBaseTransaction. id notNil ifTrue: [index := self class primaryKeyIndexIn: anOmniBaseTransaction. (index includesKey: id) ifTrue: [self error: 'Primary key is already taken by another object']. index at: id put: self]. "update also its name index" (id notNil and: [self usernameIndexKey notNil]) ifTrue: [(self class usernameIndexIn: self transaction) at: self usernameIndexKey put: self] Grocery.User managing indices updateIndexesFor: aBlock "This method will remember old index values, evaluate aBlock and in case that index values have changed it will update all indexes that need to be updated." "ignore indexes if object is transient" | oldId oldName newValue index | transaction isNil ifTrue: [^aBlock value]. "get old index values" oldId := id. oldName := oldId isNil ifTrue: [nil] ifFalse: [self usernameIndexKey]. "evaluate aBlock which will change attribute values" aBlock value. "check if primary key index needs to be updated" id = oldId ifFalse: [index := self class primaryKeyIndexIn: transaction. oldId notNil ifTrue: [index removeKey: oldId]. id notNil ifTrue: [(index includesKey: id) ifTrue: [self error: 'Primary key is already taken by another object']. index at: id put: self]]. "check if name index needs to be updated" (newValue := self usernameIndexKey) = oldName ifFalse: [index := self class usernameIndexIn: transaction. oldName isNil ifFalse: [index removeKey: oldName]. newValue isNil ifFalse: [index at: newValue put: self]] usernameIndexKey "Private - Answer the secondary key size for name." | name | name := username asBtreeKeyOfSize: 30. ^name Grocery.User printing printOn: aStream super printOn: aStream. username ifNotNil: [aStream nextPut: $<. aStream nextPutAll: self username. aStream nextPut: $>] Grocery.User class managing indices allUsersIn: aTransaction | idx result assoc | idx := self primaryKeyIndexIn: aTransaction. result := OrderedCollection new. assoc := idx getFirst. [assoc notNil] whileTrue: [result add: assoc value. assoc := idx getNext]. ^result deleteByUsername: username in: t | u idx | u := self findByUsername: username in: t. u ifNil: [^nil]. idx := self primaryKeyIndexIn: t. idx removeKey: u id. idx := self usernameIndexIn: t. idx removeKey: u username findById: anInteger in: aTransaction "Answer an instance of person with id anInteger or <nil> if not found. The answered object will be fetcher in the given transaction." ^(self primaryKeyIndexIn: aTransaction) at: anInteger ifAbsent: [] findByUsername: aString in: aTransaction ^(self usernameIndexIn: aTransaction) at: aString ifAbsent: [] getNewIdForDB: aDatabase "Get new unique StockItem identifier. Try to lock the counter first to ensure that nobody else can get the same identifier. Waits until the lock is obtained." ^PersistentCounter getNewValueFor: 'counter.User' inDatabase: aDatabase initDatabaseIn: txn "This method creates primary key index and id counter for persistent instances of Person." (txn root) at: 'counter.User' put: PersistentCounter new; at: 'index.User' put: (OmniBase newBTreeDictionary: 10); at: 'index.User.username' put: (OmniBase newBTreeDictionary: 30) load: aUser inTransaction: aTransaction "Used to get a new copy of the supplied object in the specified transaction" ^self findById: aUser id in: aTransaction primaryKeyIndexIn: aTransaction ^aTransaction root at: 'index.User' usernameIndexIn: aTransaction ^aTransaction root at: 'index.User.username' Grocery.User class instance creation newUser: username password: password contactInfo: contactInfo | instance | instance := self new. instance username: username. instance password: password. instance contactInfo: contactInfo. ^instance newUser: username password: password contactInfo: contactInfo inTxn: aTransaction | instance | instance := self newInTxn: aTransaction. instance username: username. instance password: password. instance contactInfo: contactInfo. instance id: (self getNewIdForDB: aTransaction environment). ^instance Grocery.Shopper accessing cart ^cart cart: something cart := something. self markDirty contactInfo "return the value of the instance variable 'contactInfo' (automatically generated)" ^ contactInfo contactInfo: something contactInfo := something. self markDirty currentStore ^self cart ifNotNil: [self cart store] ifNil: [self defaultStore] defaultStore "return the value of the instance variable 'defaultStore' (automatically generated)" ^ defaultStore defaultStore: something defaultStore := something. self markDirty shoppingLists ^shoppingLists ifNil: [shoppingLists := OrderedCollection new. self markDirty. shoppingLists] Grocery.Shopper shopping checkoutCompleteForOrder:anOrder ^ self cart checkoutComplete enterStore: aStore self cart moveToStore: aStore purchaseItem: item amount: amount "If the shopper has already purchased this item, the new order superceeds it" (self cart containsItem: item) ifTrue: [self cart removeItem: item]. self cart acceptItem: item amount: amount Grocery.Shopper shopping lists newShoppingListNamed: aString "answers the ShoppingList that was added" | result | result := self shoppingLists add: (ShoppingList newWithName: aString inTxn: self transaction). self markDirty. ^result shoppingListNamed: aName ^self shoppingLists detect: [ :list | list name = aName] ifNone: [] Grocery.Shopper initialize / release createCart cart := ShoppingCart newForShopper: self inTxn: self transaction. self markDirty createCartInStore: aStore self createCart. cart store: aStore Grocery.Shopper class instance creation newUser: username password: password contactInfo: contactInfo | instance | instance := super newUser: username password: password contactInfo: contactInfo. instance createCartInStore: nil. ^instance newUser: username password: password contactInfo: contactInfo inTxn: aTransaction | instance | instance := super newUser: username password: password contactInfo: contactInfo inTxn: aTransaction. instance createCartInStore: nil. ^instance Grocery.Store accessing administrators ^administrators ifNil: [administrators := OrderedCollection new. self markDirty. administrators] aisles ^aisles ifNil: [aisles := OrderedCollection new. self markDirty. aisles] id "return the value of the instance variable 'id' (automatically generated)" ^ id id: something "set the value of the instance variable 'id' (automatically generated)" id := something. self markDirty name ^name name: something name := something. self markDirty Grocery.Store administrators addAdministrator: aStoreAdministrator self administrators add: aStoreAdministrator. administratorWithUsername: aUsername ^self administrators detect: [:each | each username = aUsername] ifNone: [] Grocery.Store items stockItems ^(self aisles collect: [ :aisle | aisle items ]) flatten Grocery.Store categories addAisle: anAisle self aisles add: anAisle. self markDirty specials ^specials ifNil: [specials := OrderedCollection new. self markDirty. specials] Grocery.Store class instance creation newWithId: aString name: aName ^self new name: aName; id: aString; yourself newWithId: aString name: aName inTxn: aTransaction | instance l | l := self storesListIn: aTransaction. (self lock: l in: aTransaction orGiveUpInMilliseconds: 1000) ifFalse: [self error: 'Unable to lock request list']. instance := (self newInTxn: aTransaction) name: aName; id: aString; yourself. aTransaction ifNotNil: [aTransaction root at: aString put: instance]. l add: instance. aTransaction markDirty: l. ^instance Grocery.Store class accessing withId: aName inTxn: aTransaction ^aTransaction root at: aName Grocery.Store class master collection initDatabaseIn: txn "This method creates the master collection of new user requests." (txn root) at: 'list.Stores' put: OrderedCollection new load: aStore inTransaction: aTransaction "Used to get a new copy of the supplied object in the specified transaction" ^(self storesListIn: aTransaction) detect: [ :each | each id = aStore id] ifNone: [] storesListIn: aTransaction ^aTransaction root at: 'list.Stores' Grocery.Test.OmniBaseAssumptionTest accessing defaultDatabasePath OSHandle currentOS = #unix ifTrue: [^'/tmp/Grocery-test'] ifFalse: [^'c:\temp\Grocery-test'] Grocery.Test.OmniBaseAssumptionTest tests test1 "Notice that if I don't makePersistent: to the orders collection then I can't mark it dirty later (since it is considered a composite object)" | db customer | db := OmniBase createOn: self defaultDatabasePath. [ [customer := InertCustomer new. OmniBase currentTransaction root at: 'customer' put: customer. customer addOrder: InertOrder new] evaluateAndCommitIn: db newTransaction. "this order won't be saved b/c the collection was not marked dirty" [customer := OmniBase currentTransaction root at: 'customer'. customer addOrder: InertOrder new] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. self assert: customer orders size = 1] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. customer addOrder: InertOrder new. OmniBase currentTransaction markDirty: customer] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. self assert: customer orders size = 2] evaluateAndCommitIn: db newTransaction] ensure: [db close] test2 "Notice here that I use a composite object (the orders collection is not separate from the customer)" | db customer | db := OmniBase createOn: self defaultDatabasePath. [ [customer := InertCustomer new. OmniBase currentTransaction root at: 'customer' put: customer. customer addOrder: InertOrder new] evaluateAndCommitIn: db newTransaction. "this order won't be saved b/c the collection was not marked dirty" [customer := OmniBase currentTransaction root at: 'customer'. customer addOrder: InertOrder new] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. self assert: customer orders size = 1] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. customer addOrder: InertOrder new. customer markDirty] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. self assert: customer orders size = 2] evaluateAndCommitIn: db newTransaction] ensure: [db close] test3 "Object identity test" | db customer order item orderedItem | db := OmniBase createOn: self defaultDatabasePath. [ [customer := InertCustomer new. customer orders. "force creation of collection" OmniBase currentTransaction root at: 'customer' put: customer] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. order := InertOrder newPersistent. "if this is just new then we get error" item := InertItem newPersistent. orderedItem := InertOrderedItem newPersistent. "if this is just new then we get error" orderedItem item: item. orderedItem markDirty. order addItem: orderedItem. order markDirty. customer addOrder: order. customer markDirty. self assert: customer orders first == order. self assert: customer orders first items first item == item] evaluateAndCommitIn: db newTransaction. [customer := OmniBase currentTransaction root at: 'customer'. order := customer orders first. item := order items first. orderedItem := InertOrderedItem newPersistent. orderedItem item: item. orderedItem markDirty. self assert: (customer orders first isIdenticalTo: customer orders first). " using = these might be different " customer addToFirstOrder: orderedItem. self assert: (order items at: 2) item == item] evaluateAndCommitIn: db newTransaction] ensure: [db close] Grocery.Test.OmniBaseAssumptionTest Running setUp self defaultDatabasePath asFilename exists ifTrue: [self defaultDatabasePath asFilename recursiveRemove]. Grocery.ShoppingCart shopping acceptItem: anItem amount: amount self acceptOrderedItem: (OrderedItem item: anItem amount: amount inTxn: self transaction) acceptOrderedItem: anOrderedItem self store isNil ifTrue: [self error: 'store not set yet']. orderedItems add: anOrderedItem. self markDirty amountOrderedOfItem: anItem ^self orderedItems inject: 0 into: [:sum :orderedItem | orderedItem item = anItem ifTrue: [sum + orderedItem amount] ifFalse: [sum]] checkoutComplete ^self removeAllItems containsItem: anItem ^self orderedItems anySatisfy: [:orderedItem | orderedItem item = anItem] createOrderForItems ^Order newForShopper: self shopper withItems: self orderedItems inTxn: self transaction moveToStore: aStore store = aStore ifFalse: [self initOrderedItems]. store := aStore removeItem: anItem | orderedItem | orderedItem := self orderedItems detect: [:i | i item = anItem] ifNone: []. orderedItem notNil ifTrue: [self orderedItems remove: orderedItem. self markDirty] Grocery.ShoppingCart private removeAllItems self initOrderedItems Grocery.ShoppingCart accessing orderedItems "return the value of the instance variable 'orderedItems' (automatically generated)" ^orderedItems shopper "return the value of the instance variable 'shopper' (automatically generated)" ^shopper store "return the value of the instance variable 'store' (automatically generated)" ^store store: something store := something. self markDirty Grocery.ShoppingCart initialize / release initOrderedItems orderedItems := OrderedCollection new. self markDirty initShopper: aShopper shopper := aShopper. self initOrderedItems Grocery.ShoppingCart class instance creation newForShopper: aShopper inTxn: aTransaction |instance| instance := self newInTxn: aTransaction. instance initShopper: aShopper. ^instance Grocery.Test.InertItem accessing description ^description description: anObject description := anObject Grocery.DatabaseCommand private userExists: aUsername ^(self userWithUsername: aUsername) notNil userWithUsername: aString ^User findByUsername: aString in: OmniBase currentTransaction Grocery.DatabaseCommand database closeDatabase db ifNotNil: [db close. db := nil] executeInTransaction: aBlock ^self executeWithDatabase: [aBlock evaluateIn: db newTransaction] executeWithDatabase: aBlock db := DBManager openSample. ^[aBlock value] ensure: [db close] newTransaction db ifNil: [self openDatabase]. ^db newTransaction openDatabase self closeDatabase. db := Grocery.DBManager openSample Grocery.SelectStoreCommand api defaultModelClass ^SelectStoreForm executeWithModel: model controller: aController self executeInTransaction: [|store user| store := Store withId: model storeId inTxn: OmniBase currentTransaction. store ifNil: [^aController findForward: 'failure']. user := (aController session at: 'user') value. user enterStore: store. user defaultStore ifNil: [user defaultStore: store]. aController session at: 'store' put: (PersistentObjectHolder withValue: store). OmniBase commit. ^aController findForward: 'success'] Grocery.CreateAccount api executeWithModel: model controller: aController self executeInTransaction: [| request | (self userExists: model emailAddress) ifTrue: [aController addError: (GenericError withMessage: 'A user with this email address already exists.'). ^aController findForward: 'failure']. request := self makeUserFromFormModel: model. [self sendConfirmationEMailForRequest: request] on: Net.SMTPError do: [:ex | OmniBase rollback. aController addError: (GenericError withMessage: 'An error occurred while sending an e-mail to the address that you specified.'). ^aController findForward: 'startover']. OmniBase commit. aController removeModel. ^aController findForward: 'success'] makeUserFromFormModel: form | ci u | ci := ShopperContactInfo newInTxn: OmniBase currentTransaction. ci name: form lastName , ', ' , form firstName. ci address: form street , (String with: Character cr) , form city , ' ' , form state , ' ' , form zip. ci emailAddress: form emailAddress. u := Shopper newUser: form emailAddress password: form password1 contactInfo: ci inTxn: OmniBase currentTransaction. u deactivate. ^NewUserRequest newRequestFor: u requestKey: 'abcdefg' in: OmniBase currentTransaction Grocery.CreateAccount email sendConfirmationEMailForRequest: aRequest | mm s | mm := Net.MailMessage newTextPlain. mm text: 'url is http://localhost:8008/shopping/servlet/WebMVCController/Grocery.ConfirmAccount?username=' , aRequest user username , '&requestKey=' , aRequest requestKey. mm from: 'cdshaffer@acm.org'. s := Net.SimpleSMTPClient new. s hostName: 'localhost'. s sendMessage: mm toAll: (Array with: aRequest user contactInfo emailAddress) Grocery.ConfirmAccount api confirmCreation: formData self executeInTransaction: [| user request | user := self userWithUsername: formData username. user ifNil: [^false]. request := (NewUserRequest userRequestListIn: OmniBase currentTransaction) detect: [:each | each user = user] ifNone: []. request ifNil: [^false]. ^request requestKey = formData requestKey ifTrue: [request confirmed. OmniBase commit. true] ifFalse: [false]] defaultModelClass ^ConfirmationForm executeWithModel: model controller: aController (self confirmCreation: model) ifFalse: [aController addError: (GenericError withMessage: 'An error occurred activating your account. Please contact the system adminstrators for further assistance.'). ^aController findForward: 'failure']. ^Forwarder fromString: '/shopping/confirmationForwarder.jsp' Grocery.CreateAccountStep1 api executeWithModel: model controller: aController self executeInTransaction: [(self userExists: model emailAddress) ifTrue: [aController addError: (GenericError withMessage: 'A user with this email address already exists'). ^aController findForward: 'failure']]. ^aController findForward: 'success' Grocery.LoginCommand api defaultModelClass ^LoginForm executeWithModel: theModel controller: aController "Change to store current user instead of current user name" model := theModel. ^self executeWithDatabase: [self privateExecuteFor: aController] Grocery.LoginCommand accessing formModel ^model Grocery.LoginCommand private privateExecuteFor: aController ^ [self validateLoginData ifTrue: [aController session at: 'user' put: (PersistentObjectHolder withValue: user). user currentStore ifNotNil: [aController session at: 'store' put: (PersistentObjectHolder withValue: user currentStore). aController findForward: 'hasStore'] ifNil: [aController findForward: 'needsStore']] ifFalse: [aController addError: LoginError new. aController findForward: 'failure']] evaluateIn: db newReadOnlyTransaction validateLoginData | un pw | un := self formModel username. pw := self formModel password. (un isNil | pw isNil or: [un isEmpty | pw isEmpty]) ifTrue: [^false]. user := self userWithUsername: self formModel username. ^user notNil and: [user validatePassword: pw]. Grocery.ConfirmationForm accessing requestKey ^requestKey requestKey: anObject requestKey := anObject username ^username username: anObject username := anObject Grocery.ConfirmationForm class field specs requestKeyFieldSpec ^FieldSpec name: 'requestKey' validator: RequiredFieldValidator new converter: StringConverter new usernameFieldSpec ^FieldSpec name: 'username' validator: RequiredFieldValidator new converter: StringConverter new Tutorial.Address initialize-release initialize city := 'Toronto'. street := 'Nowhere lane'. ^self Tutorial.Address accessing city ^city city: anObject city := anObject state ^state state: anObject state := anObject street ^street street: anObject street := anObject zip ^zip zip: anObject zip := anObject Tutorial.Address class instance creation new ^super new initialize Grocery.StockItem accessing description "return the value of the instance variable 'description' (automatically generated)" ^ description description: something "set the value of the instance variable 'description' (automatically generated)" description := something. self markDirty id "return the value of the instance variable 'id' (automatically generated)" ^ id id: anInteger "Setter method for instance variable id (also primary key attribute in case the object is persistent). Since this object can be either persistent or transient this method will inform transaction that the object has been changed and update its primary key index dictionary." id = anInteger ifFalse: [self markDirty. self updateIndexesFor: [id := anInteger]] name "return the value of the instance variable 'name' (automatically generated)" ^ name name: something "set the value of the instance variable 'name' (automatically generated)" name := something. self markDirty unitPrice "return the value of the instance variable 'unitPrice' (automatically generated)" ^ unitPrice unitPrice: something "set the value of the instance variable 'unitPrice' (automatically generated)" unitPrice := something. self markDirty Grocery.StockItem managing indices updateIndexesFor: aBlock "This method will remember old index values, evaluate aBlock and in case that index values have changed it will update all indexes that need to be updated." |oldId index | transaction isNil ifTrue: [ ^ aBlock value ]"get old index values". oldId := id. aBlock value. "evaluate aBlock which will change attribute values" id = oldId ifFalse: [ index := self class primaryKeyIndexIn: transaction. oldId notNil ifTrue: [ index removeKey: oldId ]. id notNil ifTrue: [ (index includesKey: id) ifTrue: [ self error: 'Primary key is already taken by another object' ]. index at: id put: self. ] ] Grocery.StockItem private odbMadePersistentIn: anOmniBaseTransaction "Private - This method is sent when the object is made persistent." |index| super odbMadePersistentIn: anOmniBaseTransaction. id notNil ifTrue: [ index := self class primaryKeyIndexIn: anOmniBaseTransaction. (index includesKey: id) ifTrue: [ self error: 'Primary key is already taken by another object' ]. index at: id put: self. ] Grocery.StockItem class instance creation newWithName: aName ^self new name: aName; yourself newWithName: aName inTxn: aTransaction | instance | instance := (self newInTxn: aTransaction) name: aName; yourself. instance id: (self getNewIdForDB: aTransaction environment). ^instance Grocery.StockItem class indices findById: anInteger in: aTransaction "Answer an instance of StockItem with id anInteger or <nil> if not found." ^(self primaryKeyIndexIn: aTransaction) at: anInteger ifAbsent: [] getNewIdForDB: aDatabase "Get new unique StockItem identifier. Try to lock the counter first to ensure that nobody else can get the same identifier. Waits until the lock is obtained." ^PersistentCounter getNewValueFor: 'counter.StockItem' inDatabase: aDatabase initDatabaseIn: txn (txn root) at: 'counter.StockItem' put: PersistentCounter new; at: 'index.StockItem' put: (OmniBase newBTreeDictionary: 10) primaryKeyIndexIn: aTransaction ^aTransaction root at: 'index.StockItem' Net.SimpleSMTPClient private serverErrorCheck "Raise an error if the last response from the SMTP server has an error." | replyCode | replyCode := (self serverResponse copyUpTo: Character space) asNumber. replyCode >= 500 ifTrue: [^SMTPError new raiseSignal: ('SMTP Error <1s>' expandMacrosWith: self serverResponse)]. Core.Collection cds extensions flatten | c | c := OrderedCollection new. self flattenInto: c. ^self species withAll: c flattenInto: aCollection self do: [ :each | each isSequenceable ifTrue: [ each flattenInto: aCollection ] ifFalse: [ aCollection add: each ]] Core.CharacterArray auto complete startsWith: aPrefixString | sz | sz := aPrefixString size. self size > sz ifFalse: [^false]. 1 to: sz do: [:i | (self at: i) = (aPrefixString at: i) ifFalse: [^false]]. ^true Core.Object webmvc extensions needsWork: anObject "Just a marker for methods which need work" OS.Filename cds extensions recursiveRemove self isDirectory ifTrue: [self directoryContents do: [:each | (self construct: each) recursiveRemove]]. self delete Grocery.SessionTag jsp accessing setNeeds: aString "Since the needs parameter may occur multiple times, we add it to our list each time this method is invoked" <required: false description: 'root object needed for this session (tag may appear multiple times)'> self needsList add: aString setRequireUser: aString <required: false description: 'wildcard pattern for username required to use this form (failure of current user to match this causes redirection to the login form'> requiredUserPattern := aString Grocery.SessionTag class pragma tagDefinition <tagLibrary: 'grocery.tld' name: 'session' bodyContent: 'JSP'> Grocery.UserList class interface specs windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #properties: #(#{UI.PropertyListDictionary} #sizeType #specifiedSize #positionType #positionSystemDefault #openType #advanced ) #label: #(#{Kernel.UserMessage} #key: #UnlabeledCanvas #defaultString: 'User List' #catalogID: #labels ) #min: #(#{Core.Point} 399 125 ) #max: #(#{Core.Point} 1024 768 ) #bounds: #(#{Graphics.Rectangle} 840 525 1357 859 ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -31 0.25 -40 1 32 0.25 -10 1 ) #name: #ActionButton2 #model: #removeUser #label: 'Remove' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -73 1 -40 1 -10 1 -10 1 ) #name: #ActionButton6 #model: #inspectRequest #label: 'Inspect' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -73 0.5 -40 1 -10 0.5 -10 1 ) #name: #ActionButton5 #model: #inspectUser #label: 'Inspect' #defaultable: true ) #(#{UI.SequenceViewSpec} #layout: #(#{Graphics.LayoutFrame} 11 0 16 0 -10 0.5 -50 1 ) #name: #List1 #model: #userList #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #doubleClickSelector: #inspectUser ) #style: #large #useModifierKeys: true #selectionType: #highlight ) #(#{UI.SequenceViewSpec} #layout: #(#{Graphics.LayoutFrame} 10 0.5 16 0 -10 1 -50 1 ) #name: #List2 #model: #requestList #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #doubleClickSelector: #inspectRequest ) #useModifierKeys: true #selectionType: #highlight ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} 10 0.5 -40 1 73 0.5 -10 1 ) #name: #ActionButton3 #model: #updateLists #label: 'Update' #isDefault: false #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} 10 0 -40 1 75 0 -10 1 ) #name: #ActionButton1 #model: #updateLists #label: 'Update' #isDefault: true #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -31 0.75 -40 1 41 0.75 -9 1 ) #name: #ActionButton4 #model: #removeRequest #label: 'Remove' #defaultable: true ) ) ) ) Grocery.ConfirmationRedirectionTag class pragma tagDefinition <tagLibrary: 'grocery.tld' name: 'confirmationRedirection' bodyContent: 'EMPTY'> Grocery.Test.ShoppingTestResource "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' Object Core false none Kernel-Objects Kernel-Objects Tag VisualWave Core.Object false none parent pageContext bodyContent allAttributes Web Toolkit-JSP JSP Filename OS Core.Object false none osName publicName logicalName OS-Support OS-Support ValidatingModel WebMVC Core.Object false none WebMVC-Servlets WebMVC-Servlets ValueModel UI UI.Model false none Interface-Support Interface-Support TestCase XProgramming.SUnit Core.Object false none testSelector SUnit SUnit SimpleSMTPClient Net Net.NetClient false none server connection stream serverResponse Net-SMTP-Support SMTP Collection Core Core.Object false none Collections-Abstract Collections-Abstract CharacterArray Core Core.ArrayedCollection false none Collections-Text Collections-Text SingleThreadModelServlet VisualWave VisualWave.HttpServlet false none request response session Web Toolkit-Servlet Servlet Error Core Core.Exception false none Kernel-Exception Handling Kernel-Exception Handling BodyTag VisualWave VisualWave.Tag false none Web Toolkit-JSP JSP ApplicationModel UI UI.Model false none builder uiSession eventHandlers savedWindowInformation UIBuilder-Framework UIBuilder-Framework