清单 1. AppController.h

#include <AppKit/AppKit.h>

@interface AppController : NSObject
{
  id window;
  id tableView;
  id items;
  id editingContext;
}
- (void) update: (id)sender;
- (void) delete: (id)sender;
- (void) insert: (id)sender;
@end

清单 2. AppController.m

#include <AppKit/AppKit.h>
#include "AppController.h"

#import <EOAccess/EOAccess.h>
#import <EOControl/EOControl.h>

@implementation AppController

- (id) init
{
  self = [super init];
  items = [[NSMutableArray alloc] init];
  return self;
}

- (void) dealloc
{
  [editingContext release];
  [items release];
  [super dealloc];
}

- (void) update: (id)sender
{ 
  [items removeAllObjects];
  [items addObjectsFromArray:
           [editingContext objectsForEntityNamed:
                             @"Item"]];
  [tableView reloadData];
}


- (void) delete: (id)sender
{
  int row;
  
  row = [tableView selectedRow];

  if (row < 0 || row >= [items count])
    {
      NSBeep();
      return;
    }

  [editingContext deleteObject:
                    [items objectAtIndex: row]];
  [editingContext saveChanges];

  [items removeObjectAtIndex: row];
  [tableView reloadData];
}


- (void) insert: (id)sender
{
  id aRecord;

  aRecord = [[EOClassDescription
               classDescriptionForEntityName: 
                 @"Item"]
              createInstanceWithEditingContext: nil
              globalID: nil
              zone: NULL];
  
  [aRecord takeValue: @"<new item>"
           forKey: @"name"];
  [aRecord takeValue: [NSNumber numberWithInt: 0]
           forKey: @"quantity"];
  [aRecord takeValue: [NSCalendarDate date]
           forKey: @"order_date"];
  [editingContext insertObject: aRecord];
  [editingContext saveChanges];
  
  [items addObject: aRecord];
  [tableView reloadData];
}

- (int) numberOfRowsInTableView: (id) aTableView
{
  return [items count];
}

- (id)           tableView: (id) aTableView
 objectValueForTableColumn: (id) aTableColumn
                       row: (int) rowIndex
{
  id aRecord;
  
  aRecord = [items objectAtIndex: rowIndex];

  return [aRecord valueForKey:
                    [aTableColumn identifier]];
}


- (void) tableView: (id) aTableView
    setObjectValue: (id) anObject
    forTableColumn: (id) aTableColumn
               row: (int) rowIndex
{
  id aRecord;
  
  aRecord = [items objectAtIndex: rowIndex];
  [aRecord takeValue: anObject
           forKey: [aTableColumn identifier]];
  [editingContext saveChanges];
}

- (void) applicationDidFinishLaunching: (id) not
{
  EODatabaseContext *aDatabaseContext;
  EOModelGroup *aModelGroup;
  EODatabase *aDatabase;
  EOModel *aModel;

  aModelGroup = [[EOModelGroup alloc] init];
  aModel = [aModelGroup 
             addModelWithFile:
               @"tool/Inventory.eomodeld"];
  [EOModelGroup setDefaultGroup: aModelGroup];
  [aModelGroup autorelease];

  aDatabase = [[EODatabase alloc] initWithModel:
                                    aModel];
  [aDatabase autorelease];
 
  [[aDatabase adaptor] runLoginPanel];
  
  aDatabaseContext = [[EODatabaseContext alloc] 
                       initWithDatabase: aDatabase];
  
  [[EOObjectStoreCoordinator defaultCoordinator]
    addCooperatingObjectStore: aDatabaseContext];
  [aDatabaseContext autorelease];

  editingContext = [[EOEditingContext alloc] 
                     init];
}
@end

int main(int argc, const char *argv[], char *env[])
{
  [NSApplication sharedApplication];
  NSApplicationMain(argc, argv);

  return EXIT_SUCCESS;
}

清单 3. GNUmakefile

include $(GNUSTEP_MAKEFILES)/common.make
include $(GNUSTEP_MAKEFILES)/Auxiliary/gdl2.make
APP_NAME = Inventory
Inventory_OBJC_FILES = AppController.m 
Inventory_RESOURCE_FILES = MainMenu.gorm 
ADDITIONAL_OBJCFLAGS = -Wall -Wno-import
include $(GNUSTEP_MAKEFILES)/application.make
      

清单 4. InventoryInfo.plist

{
  ApplicationName = "Inventory";
  ApplicationDescription = "Inventory application.";
  NSMainNibFile = "MainMenu";
}

清单 5. tool/model.m

#import <Foundation/Foundation.h>
#import <EOAccess/EOAccess.h>

int main(int arcg, char *argv[], char **envp)
{
  NSAutoreleasePool *pool;
  EOAttribute *theAttribute;
  EOEntity *theEntity;
  EOModel *theModel;

  pool = [[NSAutoreleasePool alloc] init];

  theEntity  = [[EOEntity alloc] init];
  [theEntity setName: @"Item"];
  [theEntity setExternalName: @"INVENTORY"];
  [theEntity setClassName: @"EOGenericRecord"];

  theAttribute = [[EOAttribute alloc] init];
  [theAttribute setName: @"iid"];
  [theAttribute setColumnName: @"IID"];
  [theAttribute setValueClassName: @"NSNumber"];
  [theAttribute setExternalType: @"int4"];
  [theEntity addAttribute: theAttribute];

  [theEntity setPrimaryKeyAttributes:
               [NSArray arrayWithObject:
                          theAttribute]];
  [theEntity setAttributesUsedForLocking:
               [NSArray arrayWithObject:
                          theAttribute]];

  theAttribute = [[EOAttribute alloc] init];
  [theAttribute setName: @"name"];
  [theAttribute setColumnName: @"NAME"];
  [theAttribute setValueClassName: @"NSString"];
  [theAttribute setExternalType: @"varchar"];
  [theAttribute setWidth: 255];
  [theEntity addAttribute: theAttribute];

  theAttribute = [[EOAttribute alloc] init];
  [theAttribute setName: @"quantity"];
  [theAttribute setColumnName: @"QUANTITY"];
  [theAttribute setValueClassName: @"NSNumber"];
  [theAttribute setExternalType: @"int4"];
  [theEntity addAttribute: theAttribute];

  theAttribute = [[EOAttribute alloc] init];
  [theAttribute setName: @"order_date"];
  [theAttribute setColumnName: @"ORDER_DATE"];
  [theAttribute setValueClassName: @"NSCalendarDate"];
  [theAttribute setExternalType: @"timestamp"];
  [theEntity addAttribute: theAttribute];

  [theEntity setClassProperties:
               [theEntity attributes]];

  theModel = [[EOModel alloc] init];
  [theModel setName: @"Inventory"];
  [theModel setAdaptorName: @"Postgres95"];

  [theModel setConnectionDictionary:
              [NSDictionary dictionaryWithObject:
                              @"inventory"
                            forKey:
                              @"databaseName"]];

  [theModel addEntity: theEntity];

  [theModel writeToFile: [theModel name]];

  [pool release];

  return EXIT_SUCCESS;
}

清单 6. tool/GNUmakefile

include $(GNUSTEP_MAKEFILES)/common.make
include $(GNUSTEP_MAKEFILES)/Auxiliary/gdl2.make
TOOL_NAME = model
model_OBJC_FILES = model.m
ADDITIONAL_OBJCFLAGS = -Wall -Wno-import
include $(GNUSTEP_MAKEFILES)/tool.make
after-clean::
        rm -rf Inventory.eomodeld
after-distclean::
        rm -rf inventory.eomodeld