// main.m - simple driver
// by David Phillip Oster
// September 2007
//
// Cocoa centric lisp
//
//  Copyright 2007 David Phillip Oster

//     Licensed under the Apache License, Version 2.0 (the "License");
//     you may not use this file except in compliance with the License.
//     You may obtain a copy of the License at

//         http://www.apache.org/licenses/LICENSE-2.0

//     Unless required by applicable law or agreed to in writing, software
//     distributed under the License is distributed on an "AS IS" BASIS,
//     WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
//     See the License for the specific language governing permissions and
//     limitations under the License.
#import "TLLisp.h"

int main (int argc, const char * argv[]) {
  NSAutoreleasePool *pool0 = [[NSAutoreleasePool alloc] init];
  TLInit();
	for (;;) {
    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
    TLID *sexpr = TLRead0();
    if (nil == sexpr){
      [pool release];
      break;
    }
    NSMutableString *sOut = [NSMutableString string];
    [[sexpr tlEval] tlPrint:sOut];
    printf("%s\n", [sOut UTF8String]);
    [pool release];
  }
  TLShutdown();
  [pool0 release];
	return 0;
}