![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to MainDelegate.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [NeXTSTEP 3.3 examples] / Examples / IndexingKit / Ledger|
Return to MainDelegate.m CVS log | Up to [NeXTSTEP 3.3 examples] / Examples / IndexingKit / Ledger |
1.1 root 1: /*
2: * Main Delegate
3: *
4: * Author: Kris Younger, NeXT Systems Engineering
5: * You may freely copy, distribute and reuse the code in this example.
6: * NeXT disclaims any warranty of any kind, expressed or implied, as to
7: * its fitness for any particular use.
8: */
9:
10: #import "MainDelegate.h"
11: #import "GlobalThings.h"
12: #import "Transaction.h"
13: #import "LedgerController.h"
14:
15: #import <ansi/time.h>
16: #import <objc/hashtable.h>
17:
18: @implementation MainDelegate
19:
20: - findAccount:sender
21: {
22: char *name;
23: id matrix;
24: int i;
25:
26: name = (char *)[editField stringValue];
27: if ([self getAccountNamed:name] != nil) {
28: matrix = [listBrowser matrixInColumn:0];
29: for (i = [matrix cellCount]; i--;)
30: if (!strcmp(name, [[matrix cellAt:i :0] stringValue])) {
31: [matrix selectCellAt:i :0];
32: [self pickAccount:listBrowser];
33: break;
34: }
35: }
36:
37: return self;
38: }
39:
40: - addAccount:sender
41: {
42: id newRM, firstx;
43: int h;
44: const char *aName;
45: id accountStore;
46:
47: aName = [editField stringValue];
48: if ([accountsStoreDirectory hasEntryNamed:aName] == NO) {
49: [accountsStoreDirectory getBlock:&h andStore:&accountStore];
50: [accountStore startTransaction];
51: [accountsStoreDirectory addEntryNamed:aName ofClass:[IXRecordManager class]];
52: newRM = [accountsStoreDirectory openEntryNamed:aName];
53: [self addAllAttributes:newRM];
54: [accountsHashTable insertKey:aName value:newRM];
55: /* post an original transaction */
56: firstx = [[Transaction alloc] init];
57: [firstx setTMemo:"Initial Value."];
58: [firstx setTAmount:0.0];
59: h = [newRM addRecord:firstx];
60: [accountStore commitTransaction];
61: } else {
62: NXRunAlertPanel("Alert", "An account by that name already exists.", "OK", NULL, NULL);
63: return nil;
64: }
65: [self ping:self];
66: return self;
67: }
68:
69: - appDidInit:sender
70: {
71:
72: if ([self openDatabase]) {
73: } else {
74: [self initSchema];
75: [self openDatabase];
76: }
77:
78: [self makeListKey:self];
79: return self;
80: }
81:
82: - appWillTerminate:sender
83: {
84: [self closeDatabase];
85: return self;
86: }
87:
88: - closeAccount:sender
89: {
90: id ledger;
91:
92: [self findAccount:sender];
93: if ((currentAccount != NULL) && (currentAccount != nil)) {
94: if ([ledgersHashTable isKey:currentAccountName] == YES) {
95: ledger = [ledgersHashTable valueForKey:currentAccountName];
96: [ledgersHashTable removeKey:currentAccountName];
97: [(LedgerController *) ledger closeAccount:self];
98: [(LedgerController *) ledger free];
99: };
100: };
101: return self;
102: }
103:
104: - doubleClickAccount:sender
105: {
106: [self pickAccount:sender];
107: [self openAccount:sender];
108: return self;
109: }
110:
111: - makeListKey:sender
112: {
113: [listBrowser loadColumnZero];
114: [listBrowser setDoubleAction:@selector(doubleClickAccount:)];
115: [listWindow makeKeyAndOrderFront:self];
116: [editField selectText:self];
117: return self;
118: }
119:
120: - openAccount:sender
121: {
122: id newAccount;
123:
124: [self findAccount:sender];
125: if ((currentAccount != NULL) && (currentAccount != nil)) {
126: if ([ledgersHashTable isKey:currentAccountName] == YES) {
127: [(id)[ledgersHashTable valueForKey:currentAccountName] makeKey:self];
128: } else {
129: newAccount = [[LedgerController alloc] initWith:currentAccount
130: named:currentAccountName];
131: [ledgersHashTable insertKey:currentAccountName value:newAccount];
132: [newAccount makeKey:self];
133: };
134: }
135: return self;
136: }
137:
138: - ping:sender
139: {
140: [self makeListKey:sender];
141: return self;
142: }
143:
144: - pickAccount:sender
145: {
146: BOOL isSelected;
147:
148: isSelected = NO;
149: currentAccount = [self getAccountNamed:[[[sender matrixInColumn:0] selectedCell] stringValue]];
150: if ((currentAccount != NULL) && (currentAccount != nil)) {
151: isSelected = YES;
152: currentAccountName = [[[sender matrixInColumn:0] selectedCell] stringValue];
153: currentAccountName = NXUniqueString(currentAccountName);
154: }
155:
156: if (isSelected == YES) {
157: [openButton setEnabled:YES];
158: [closeButton setEnabled:YES];
159: [editField setStringValue:currentAccountName];
160: [removeButton setEnabled:YES];
161: } else {
162: [addButton setEnabled:NO];
163: [removeButton setEnabled:NO];
164: [openButton setEnabled:NO];
165: [closeButton setEnabled:NO];
166: }
167: return self;
168: }
169:
170: - removeAccount:sender
171: {
172: id account;
173: id accountStore;
174: unsigned block;
175:
176: [self closeAccount:self];
177: if ((currentAccount != NULL) && (currentAccount != nil)) {
178: if ((account = [self getAccountNamed:currentAccountName]) != nil) {
179: [accountsStoreDirectory getBlock:&block andStore:&accountStore];
180: [accountStore startTransaction];
181: [accountsStoreDirectory removeName:currentAccountName];
182: [accountsHashTable removeKey:currentAccountName];
183: [account freeFromStore];
184: [accountStore commitTransaction];
185: };
186: };
187: [self ping:self];
188: return self;
189: }
190:
191: - (const char *)todaysDate
192: {
193: char buffer[32];
194: struct tm *timeptr;
195: time_t timer;
196:
197: time(&timer);
198: timeptr = localtime(&timer);
199: strftime(buffer, sizeof(buffer), "%Y/%m/%d", timeptr);
200: return NXUniqueString(buffer);
201: }
202:
203: - (int)consumeSerial
204: {
205: return [globalThings consumeSerial];
206: }
207:
208: - (int)browser:b fillMatrix:m inColumn:(int)c
209: {
210: int cnt;
211: int i;
212: id t;
213:
214: if (list)
215: free(list);
216: list = [self listOfAccountNames];
217: i = cnt = 0;
218: if (list != NULL)
219: while (list[i]) {
220: [m addRow];
221: t = [m cellAt:i :0];
222: [t setStringValue:list[i]];
223: [t setLoaded:YES];
224: [t setLeaf:YES];
225: cnt += 1;
226: i += 1;
227: };
228:
229: return cnt;
230: }
231:
232: - initSchema
233: {
234: id tmpSC;
235: int handle;
236:
237: /* create main Archive */
238: NXRunAlertPanel("Welcome.", "Creating Ledger.store.", "OK", NULL, NULL);
239: mainStoreDirectory = [[IXStoreDirectory alloc]
240: initWithName:"Archive" inFile:"Ledger.store"];
241: [mainStoreDirectory getBlock:&handle andStore:&mainStoreHandle];
242: if ([mainStoreDirectory hasEntryNamed:"Accounts"] == NO) {
243: accountsStoreDirectory = [mainStoreDirectory
244: addEntryNamed:"Accounts" ofClass:[IXStoreDirectory class]];
245: }
246: if ([mainStoreDirectory hasEntryNamed:"Globals"] == NO) {
247: tmpSC = [mainStoreDirectory addEntryNamed:"Globals" ofClass:[IXRecordManager class]];
248: [tmpSC addAttributeNamed:"Globals" forSelector:@selector(identification)];
249: globalThings = (GlobalThings *)[[GlobalThings alloc] init];
250: [tmpSC addRecord:globalThings];
251: }
252: /* the following two lines enable transactions in the storeFile. */
253: [mainStoreHandle startTransaction];
254: [mainStoreHandle commitTransaction];
255: [mainStoreDirectory free];
256: return self;
257: }
258:
259: - openDatabase
260: {
261: int handle;
262: id cursor;
263:
264: if (mainStoreDirectory = [[IXStoreDirectory alloc] initFromName:"Archive"
265: inFile:"Ledger.store" forWriting:YES]) {
266: [mainStoreDirectory getBlock:&handle andStore:&mainStoreHandle];
267: [mainStoreHandle startTransaction];
268: [mainStoreHandle commitTransaction];
269: if ([mainStoreDirectory hasEntryNamed:"Accounts"] == YES) {
270: accountsStoreDirectory = [mainStoreDirectory openEntryNamed:"Accounts"];
271: }
272: if ([mainStoreDirectory hasEntryNamed:"Globals"] == YES) {
273: globalThingsRecordManager = [mainStoreDirectory openEntryNamed:"Globals"];
274: }
275: cursor = [globalThingsRecordManager cursorForAttributeNamed:"Globals"];
276: if ([cursor setKey:(void *)GLOBALVARIDENT
277: andLength:(strlen(GLOBALVARIDENT) + 1)] == YES) {
278: handle = [cursor setFirstHandle];
279: globalThings = [globalThingsRecordManager readRecord:handle fromZone:[self zone]];
280: }
281: [cursor free];
282: accountsHashTable = [[HashTable alloc] initKeyDesc:"*"];
283: ledgersHashTable = [[HashTable alloc] initKeyDesc:"*"];
284: }
285: if (mainStoreDirectory == nil)
286: return nil;
287: return self;
288: }
289:
290: - closeDatabase
291: {
292: [mainStoreHandle startTransaction];
293: [globalThingsRecordManager replaceRecord:[globalThings handle] with:globalThings];
294: [mainStoreHandle commitTransaction];
295: [mainStoreDirectory free];
296: return self;
297: }
298:
299: - (char **)listOfAccountNames
300: {
301: return [accountsStoreDirectory entries];
302: }
303:
304: - getAccountNamed:(const char *)aName
305: {
306: id account = nil;
307:
308: if ([accountsStoreDirectory hasEntryNamed:aName] == YES) {
309: aName = NXUniqueString(aName);
310: if ((account = [accountsHashTable valueForKey:aName]) == nil) {
311: if ((account = [accountsStoreDirectory openEntryNamed:aName]) != nil)
312: [accountsHashTable insertKey:aName value:account];
313: };
314: };
315: return account;
316: }
317:
318: - (BOOL)textWillChange:textObject
319: {
320: [addButton setEnabled:YES];
321: return NO;
322: }
323:
324: - (BOOL)textWillEnd:textObject
325: {
326: [self findAccount:listBrowser];
327: [self openAccount:listBrowser];
328: return NO;
329: }
330:
331: - textDidChange:textObject
332: {
333: currentAccount = nil;
334: currentAccountName = NULL;
335: return self;
336: }
337:
338: - addAllAttributes:aRecMgr
339: {
340: [mainStoreHandle startTransaction];
341: [aRecMgr addAttributeNamed:"tSerial" forSelector:@selector(tSerial)];
342: [aRecMgr addAttributeNamed:"tNumber" forSelector:@selector(tNumber)];
343: [aRecMgr addAttributeNamed:"tDate" forSelector:@selector(tDate)];
344: [aRecMgr addAttributeNamed:"tMemo" forSelector:@selector(tMemo)];
345: [aRecMgr addAttributeNamed:"tDebit" forSelector:@selector(tDebit)];
346: [aRecMgr addAttributeNamed:"tCredit" forSelector:@selector(tCredit)];
347: [mainStoreHandle commitTransaction];
348: return self;
349: }
350:
351:
352: @end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.