dsc-copy.wosc

#!/usr/local/bin/dscsh

@interface DSCDump: NSObject
@end

@implementation DSCDump



-(void)dumpFile:aFile
{
	id data,eps,dsc;
	id stream = [MPWPSByteStream Stdout];
	[self logWithFormat:@"Dump of %@",aFile];
	data = [NSData dataWithContentsOfMappedFile:aFile];
	[self logWithFormat:@"did map data"];
//	eps = [MPWEPSFile epsFileWithData:data];
	[self logWithFormat:@"did get the eps"];
//	dsc = [eps dsc];
	dsc = [MPWDSCScanner scan:[MPWEPSFile getEPSPartOfDOSEps:data]];
	[self logWithFormat:@"going get dscNames"];
//	dsc = [[dsc reject] isKindOf:[MPWSubData class]];
//	[self logWithFormat:@"dsc = %@",dsc];
	[stream writeEnumerator:[dsc objectEnumerator] spacer:@""];
	[stream close];
}

-(void)safeDumpFile:aFile
{
	[[self safely] dumpFile:aFile];
}

- main: args
{
	if ( [args count] >= 2  ) {	
		args=[args objectEnumerator];
		[args nextObject];	//	argv[0]
//		[[self do] safeDumpFile:args];
		[self dumpFile:[args nextObject]];
//		id dsc = [[MPWEPSFile epsFileWithData:[NSData dataWithContentsOfMappedFile:[args objectAtIndex:1]]] dsc];
//		[self logWithFormat:@"dsc = %@",dsc];
	}
	return 0;
}

@end