Added pl tool which supercedes some of the existing pl* commands.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@20358 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,9 @@
+2004-11-18 Gregory John Casamento <greg_casamento@yahoo.com>
+
+	* Tools/pl.m: Added a tool I wrote a while back which is an 
+	implementation of the pl command (as it is on Mac OS X and 
+	OPENSTEP).
+	
 2004-11-11  Adam Fedor  <fedor@gnu.org>
 
 	* Headers/Foundation/NSBundle.h (builtInPlugInsPath): New method.

Tools/GNUmakefile

@@ -48,7 +48,7 @@ MAN8_PAGES = gdomap.8
 ifeq ($(add),yes)
 TOOL_NAME = autogsdoc cvtenc plmerge sfparse xmlparse
 else
-TOOL_NAME = autogsdoc cvtenc gdnc defaults plmerge \
+TOOL_NAME = autogsdoc cvtenc gdnc defaults pl plmerge \
 		plparse sfparse pldes plser pl2link xmlparse
 CTOOL_NAME = gdomap
 
@@ -67,6 +67,7 @@ defaults_OBJC_FILES = defaults.m
 dread_OBJC_FILES = dread.m
 dremove_OBJC_FILES = dremove.m
 dwrite_OBJC_FILES = dwrite.m
+pl_OBJC_FILES = pl.m
 pldes_OBJC_FILES = pldes.m
 plser_OBJC_FILES = plser.m
 plmerge_OBJC_FILES = plmerge.m

Tools/pl.m

@@ -0,0 +1,162 @@
+/* 
+   pl.m 
+
+   This file is the main driver for the plist parsing program.
+   
+   Copyright (C) 1996,1999,2000 Free Software Foundation, Inc.
+
+   Author: Gregory John Casamento
+   Date: 17 Jan 2000 
+   
+   This file is part of GNUstep
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either
+   version 2 of the License, or (at your option) any later version.
+   
+   This library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with this library; see the file COPYING.LIB.
+   If not, write to the Free Software Foundation,
+   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/ 
+
+
+#import <Foundation/Foundation.h>
+
+void create_output( id propertyList )
+{
+    NSFileHandle *fileHandle = nil;
+    NSProcessInfo *processInfo = [NSProcessInfo processInfo];
+    NSArray *arguments = [processInfo arguments];
+    int outputIndex = 0;
+
+    // insert your code here
+    outputIndex = [arguments indexOfObject: @"-output"];
+    if( outputIndex == NSNotFound )
+    {
+        const char *buffer = [[propertyList description] cString];
+        NSData *outputData = [NSData dataWithBytes: buffer length: strlen(buffer)];
+        
+        // setup the file handle.
+        fileHandle = [NSFileHandle fileHandleWithStandardOutput];
+        // Send the data to stdout
+        [fileHandle writeData: outputData];
+        puts("\n");
+    }
+    else
+    {
+        NSData *serializedData = nil;
+        NSFileManager *fileManager = [NSFileManager defaultManager];
+
+        // Write in the serialized plist.
+        serializedData = [NSSerializer serializePropertyList: propertyList];
+        [fileManager createFileAtPath: [arguments objectAtIndex: outputIndex+1]
+                             contents: serializedData
+                           attributes: nil];
+    }
+}
+
+id process_plist( NSData *inputData )
+{
+    id propertyList = nil;
+    NSString *string = nil;
+
+    // Initialize a string with the contents of the file.
+    string = [NSString stringWithCString: (char *)[inputData bytes]];
+
+    // Convert the string into a property list.  If there is a parsing error
+    // the property list interpreter will throw an exception.
+    NS_DURING
+        propertyList = [string propertyList];
+    NS_HANDLER
+        NSLog([localException description]);
+    NS_ENDHANDLER
+	
+    // return the results
+    return propertyList;
+}
+
+NSData *read_input()
+{
+    NSData *inputData = nil;
+    NSFileHandle *fileHandle = nil;
+    NSProcessInfo *processInfo = [NSProcessInfo processInfo];
+    NSArray *arguments = [processInfo arguments];
+    int inputIndex = 0;
+
+    // insert your code here
+    inputIndex = [arguments indexOfObject: @"-input"];
+    if( inputIndex == NSNotFound )
+    {
+        // setup the file handle.
+        fileHandle = [NSFileHandle fileHandleWithStandardInput];
+        // Read in the input from the file.
+        inputData = [fileHandle readDataToEndOfFile];
+    }
+    else
+    {
+        NSData *serializedData = nil;
+        id propertyList = nil;
+        char *buffer = 0;
+
+        // set up the file handle.
+        fileHandle = [NSFileHandle fileHandleForReadingAtPath: [arguments objectAtIndex: inputIndex+1]];
+        // read in the serialized plist.
+        serializedData = [fileHandle readDataToEndOfFile];
+        [fileHandle closeFile];
+        propertyList = [NSDeserializer deserializePropertyListFromData: serializedData
+                                                     mutableContainers: NO];
+        if( propertyList != nil )
+        {
+            buffer = (char *)[[propertyList description] cString];
+            inputData = [NSData dataWithBytes: buffer length: strlen(buffer)];
+        }
+        else
+        {
+            NSLog(@"%@ is not a serialized property list.", [arguments objectAtIndex: inputIndex+1]);
+        }
+    }
+
+    return inputData;
+}
+
+int main (int argc, const char *argv[])
+{
+    NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
+    NSData *inputData = nil;
+    id propertyList = nil;
+    
+    // put your code here.
+    if(argc == 1 || argc == 3|| argc == 5)
+    {
+    	inputData = read_input();
+	if( inputData != nil )
+        {
+            // If the input data was sucessfully read...
+            propertyList = process_plist( inputData );
+            if( propertyList != nil )
+            {
+                // If the property list was okay...
+                create_output( propertyList );
+            }
+        }
+    }
+    else
+    {
+        puts("pl {-input <serialized_file>} {-output <serialized_file>}");
+        puts("   - Reads an ASCII property list from standard in, or a serialized one");
+        puts("     if -input is specified.");
+        puts("   - Writes an ASCII propert list to standard out, or a serialized one");
+        puts("     if -output is specified.");
+    }
+    
+    [pool release];
+    exit(0);       // insure the process exit status is 0
+    return 0;      // ...and make main fit the ANSI spec.
+}