ftp.nice.ch/Attic/openStep/connectivity/mail/EnhanceMail.2.0b4.m.NIHS.bs.tgz#/EnhanceMail/MailBox.m

This is MailBox.m in view mode; [Download] [Up]

/* -*-C-*-
*******************************************************************************
*
* File:         MailBox.m
* RCS:          $Header: /usr/local/lib/cvs/EnhanceMail/MailBox.m,v 1.1.1.19 1996/07/01 01:10:21 cedman Exp $
* Description:  
* Author:       Carl Edman
* Created:      Fri Oct 13 11:48:05 1995
* Modified:     Sat Jun 29 16:00:38 1996 (Carl Edman) cedman@capitalist.princeton.edu
* Language:     C
* Package:      N/A
* Status:       Experimental (Do Not Distribute)
*
* (C) Copyright 1995, but otherwise this file is perfect freeware.
*
*******************************************************************************
*/

#import "EnhanceMail.h"
#import "Preferences.h"
#import "MailBox.h"
#import "MailIndex.h"
#import <libc.h>
#import <indexing/indexing.h>

#define MSG_OPEN_MAILBOX NXLoadLocalizedStringFromTableInBundle("Alerts", nil, "Open Mailbox", NULL)
#define MSG_REBUILD_INDEX NXLocalizedStringFromTableInBundle("Localizable", EnhanceBundle, "Rebuilding full-text index for %s.  Please wait...", NULL, Message for full text index progressor)

static HashTable *StoreNameHash=nil;
static HashTable *ManagerHash=nil;

@implementation EnhanceMailBox
+ finishLoading:(struct mach_header *)header
   {
   [self poseAs:[self superclass]];
   StoreNameHash=[[HashTable alloc] initKeyDesc:"@" valueDesc:"*"];
   ManagerHash=[[HashTable alloc] initKeyDesc:"@" valueDesc:"@"];
   return self;
   }

+ startUnloading
   {
   StoreNameHash=[StoreNameHash free];
   ManagerHash=[ManagerHash free];
   return self;
   }

- initMailBox:(const char *)name
   {
   char *storeName=0;
   id manager=nil;
   id ret=[super initMailBox:name];
   
   if (!dirname) return ret;
   storeName=strcpy(malloc(strlen(dirname)+20),dirname);
   strcat(storeName,"/content.store");
   [StoreNameHash insertKey:self value:storeName];

   manager=[[IXRecordManager alloc] initFromName:"content" inFile:storeName forWriting:YES];
   [ManagerHash insertKey:self value:manager];

   /* [self updateStore]; */
   return ret;
   }

- free
   {
   char *storeName=[StoreNameHash valueForKey:self];
   id manager=[ManagerHash valueForKey:self];

   [StoreNameHash removeKey:self];
   if (storeName) free(storeName);
   
   [ManagerHash removeKey:self];
   if (manager)
      {
      id store=[manager store];
      [store startTransaction];
      [store compact];
      [store commitTransaction];
      manager=[manager free];
      }
   
   return [super free];
   }

- createStore
   {
   char *storeName=[StoreNameHash valueForKey:self];
   id manager=[ManagerHash valueForKey:self];

   id parser=[[IXAttributeParser alloc] init];

   if (!storeName) return nil;
   if (manager==nil)
      {
      manager=[[IXRecordManager alloc] initWithName:"content" inFile:storeName];
      [ManagerHash insertKey:self value:manager];
      
      [[manager store] startTransaction];
      [manager addAttributeNamed:"msgId" forSelector:@selector(msgId)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"msgId"];
      [manager addAttributeNamed:"Content" forSelector:@selector(messageContent)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Content"];
      [manager setParser:parser forAttributeNamed:"Content"];
#if 0
      [manager addAttributeNamed:"Subject" forSelector:@selector(messageSubject)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Subject"];
      [manager addAttributeNamed:"From" forSelector:@selector(messageFrom)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"From"];
      [manager addAttributeNamed:"To" forSelector:@selector(messageTo)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"To"];
      [manager addAttributeNamed:"Cc" forSelector:@selector(messageCc)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Cc"];
      [manager addAttributeNamed:"Date" forSelector:@selector(messageDate)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Date"];
      [manager addAttributeNamed:"Message-Id" forSelector:@selector(messageId)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Message-Id"];
      [manager addAttributeNamed:"Next-Reference" forSelector:@selector(messageNextReference)];
      [manager setTargetClass:[MailIndex class] forAttributeNamed:"Next-Reference"];
#endif
      [[manager store] commitTransaction];
      }
   return [self updateStore];   
   }

- updateStore
   {
   id manager=[ManagerHash valueForKey:self];
   struct u_mailboxstatus stat;
   int count;
   Progressor *progress;
   MailIndex *record;
   char buf[MAXPATHLEN+1];

   if (manager==nil) return nil;
   [self getMailboxStatus:&stat];
   count=[manager count]-[manager attributeCount];
   if (stat.msgno<=count) return self;
   [[manager store] startTransaction];
   
   sprintf(buf,MSG_REBUILD_INDEX,dirname);
   progress=[Progressor newWithTitle:MSG_OPEN_MAILBOX message:buf];
   [progress setMinValue:count];
   [progress setMaxValue:stat.msgno];
   [progress setProgress:count];
   [progress setShowProgress:YES];
   [progress beginModalSession];
   
   [MailIndex setMailBox:self];
   for(;(count<stat.msgno) && ![progress cancelled];count++)
      {
      record=[[MailIndex alloc] initMsgId:count];
      [manager addRecord:record];
      record=[record free];
      [progress setProgress:count];
      }
   [MailIndex setMailBox:nil];
   
   [progress endModalSession];
   [[manager store] commitTransaction];

   return (count>=stat.msgno) ? self : nil;
   }

- deleteStore
   {
   char *storeName=[StoreNameHash valueForKey:self];
   id manager=[ManagerHash valueForKey:self];
      
   if (!storeName)
      return nil;

   if (manager)
      [ManagerHash insertKey:self value:(manager=[manager free])];

   if (unlink(storeName)==-1)
      return nil;

   return self;
   }

- (BOOL)hasStore
   {
   id manager=[ManagerHash valueForKey:self];
      
   return (manager==nil) ? NO : YES;
   }

- (int)storeSize
   {
   char *storeName=[StoreNameHash valueForKey:self];
   id manager=[ManagerHash valueForKey:self];
   struct stat buf;
   
   if ((manager==nil)||(storeName==0)||(stat(storeName,&buf)==-1)) return -1;
   
   return buf.st_size;
   }

- (void)maybeUpdateToc
   {
   [super maybeUpdateToc];
   /* [self updateStore]; */
   }

- repairTocFile:(int)start
   {
   id ret=[super repairTocFile:start];
   /* [self updateStore]; */
   return ret;
   }

- query:(const char *)expr
   {
   id manager,parser,query,list;

   manager=[ManagerHash valueForKey:self];
   if (manager==nil) return nil;
   parser=[manager parserForAttributeNamed:"Content"];
   if (parser==nil) return nil;
   [self updateStore];
   query=[[IXAttributeQuery alloc] initQueryString:expr andAttributeParser:parser];
   if (query==nil) return nil;
   list=[query evaluateFor:manager];
   [query free];
   return list;
   }
@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.