First import of Torch, Objective-C version. Basic stuff.

git-archimport-id: [email protected]/torch--devel--1.0--base-0

Author: Ronan Collobert

base/T4Allocator.h

@@ -0,0 +1,17 @@
+#import "T4General.h"
+
+@interface T4Allocator : NSObject
+{
+  NSMutableArray *objects;
+}
+
+-init;
+-(void)keepObject:(NSObject*)anObject;
+-(void)retainAndKeepObject:(NSObject*)anObject;
+-(void)freeObject:(NSObject*)anObject;
+-(void)dealloc;
+
++(void*)sysAlloc: (int)size;
++(void)sysFree: (void*)ptr;
+
+@end

base/T4Allocator.m

@@ -0,0 +1,100 @@
+#import "T4Allocator.h"
+
+@implementation T4Allocator
+
+-init
+{
+  if( (self = [super init]) )
+    objects = nil;
+
+  return self;
+}
+
+-(void)keepObject:(NSObject*)anObject
+{
+  int index;
+  
+  if(!anObject)
+    return;
+
+  if(!objects)
+    objects = [[NSMutableArray alloc] init];
+  
+  index = [objects indexOfObjectIdenticalTo: anObject];
+
+  if(index == NSNotFound)
+    [objects addObject: anObject];
+}
+
+-(void)retainAndKeepObject:(NSObject*)anObject
+{
+  int index;
+
+  if(!objects)
+    objects = [[NSMutableArray alloc] init];
+  
+  index = [objects indexOfObjectIdenticalTo: anObject];
+
+  if(index == NSNotFound)
+  {
+    [objects addObject: anObject];
+    [anObject retain];
+  }
+}
+
+-(void)freeObject:(NSObject*)anObject
+{
+  int index;
+
+  if(!anObject)
+    return;
+
+  index = [objects indexOfObjectIdenticalTo: anObject];
+
+  if(index == NSNotFound)
+    T4Error(@"Allocator: cannot free an object which is not mine!");
+  else
+  {
+    NSObject *object = [objects objectAtIndex: index];
+    [objects removeObjectAtIndex: index];
+    [object release];
+  }
+}
+
+-(void)dealloc
+{
+  int i;
+  int nObjects = [objects count];
+
+  for(i = nObjects-1; i >= 0; i--)
+  {
+    NSObject *object = [objects objectAtIndex: i];
+    [objects removeObjectAtIndex: i];
+    [object release];
+  }
+  [objects release];
+  [super dealloc];
+}
+
++(void*)sysAlloc: (int)size
+{
+  void *ptr;
+
+  if(size <= 0)
+    return(nil);
+
+  ptr = malloc(size);
+
+  if(!ptr)
+    T4Error(@"Allocator: not enough memory. Buy new ram!!!");
+
+  return(ptr);
+}
+
++(void)sysFree: (void*)ptr
+{
+  if(ptr)
+    free(ptr);
+}
+
+@end

base/T4CommandLine.h

@@ -0,0 +1,37 @@
+#import "T4Object.h"
+#import "T4CommandLineOption.h"
+
+@interface T4CommandLine : T4Object
+{
+  NSMutableArray *cmdArguments;
+  NSString *processName;
+
+  NSString *genericHelp;
+  NSMutableDictionary *arguments;
+  NSMutableDictionary *options;
+  NSMutableArray *switches;
+  NSString *currentSwitch;
+}
+
+-initWithArgv: (char**)argv argc: (int)argc;
+-initWithGenericHelp: (NSString*)aGenericHelp argv: (char**)argv argc: (int)argc;
+
+-(int)read;
+-(void)printHelp;
+
+-(void)addText: (NSString*)aText;
+-(void)addMasterSwitch: (NSString*)aSwitch;
+
+-(void)addCmdOption: (T4CommandLineOption*)option;
+-(void)addIntCmdOption: (NSString*)aName address: (int*)anAddress default: (int)aDefault help: (NSString*)aHelp;
+-(void)addRealCmdOption: (NSString*)aName address: (real*)anAddress default: (real)aDefault help: (NSString*)aHelp;
+-(void)addBoolCmdOption: (NSString*)aName address: (BOOL*)anAddress default: (BOOL)aDefault help: (NSString*)aHelp;
+-(void)addStringCmdOption: (NSString*)aName address: (NSMutableString*)anAddress default: (NSString*)aDefault help: (NSString*)aHelp;
+
+-(void)addCmdArgument: (T4CommandLineOption*)argument;
+-(void)addIntCmdArgument: (NSString*)aName address: (int*)anAddress help: (NSString*)aHelp;
+-(void)addRealCmdArgument: (NSString*)aName address: (real*)anAddress help: (NSString*)aHelp;
+//-(void)addBoolCmdArgument: (NSString*)aName address: (BOOL*)anAddress help: (NSString*)aHelp; peut pas exister!!!
+-(void)addStringCmdArgument: (NSString*)aName address: (NSMutableString*)anAddress help: (NSString*)aHelp;
+
+@end