gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-23 00:41:02 +00:00
Code Issues Projects Releases Packages Wiki Activity

Added 'make_services'

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@3230 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-MacDonald 1998-11-18 08:56:10 +00:00
parent a5d7dd6bb2
commit 24b4af33b0
3 changed files with 504 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Tools/GNUmakefile
View file

@ -28,7 +28,7 @@ GNUSTEP_MAKEFILES = $(GNUSTEP_SYSTEM_ROOT)/Makefiles
include $(GNUSTEP_MAKEFILES)/common.make
# The application to be compiled
TOOL_NAME = gdnc defaults dread dwrite dremove
TOOL_NAME = gdnc defaults dread dwrite dremove make_services
OBJC_PROGRAM_NAME = gdomap
# The source files to be compiled
@ -38,6 +38,7 @@ defaults_OBJC_FILES = defaults.m
dread_OBJC_FILES = dread.m
dremove_OBJC_FILES = dremove.m
dwrite_OBJC_FILES = dwrite.m
make_services_OBJC_FILES = make_services.m
SOURCES = gdomap.c gdnc.m defaults.m dread.m dremove.m dwrite.m

1
Tools/Makefile.postamble
View file

@ -20,7 +20,6 @@
# Things to do after installing
after-install::
$(INSTALL) -m 05755 $(GNUSTEP_OBJ_DIR)/gdomap $(GNUSTEP_INSTALLATION_DIR)/Tools/$(GNUSTEP_TARGET_DIR)
$(INSTALL) -m 0755 $(GNUSTEP_OBJ_DIR)/gdnc $(GNUSTEP_INSTALLATION_DIR)/Tools/$(GNUSTEP_TARGET_DIR)
# Things to do before uninstalling
# before-uninstall::

502
Tools/make_services.m Normal file
View file

@ -0,0 +1,502 @@
/* This tool builds a cache of service specifications
Copyright (C) 1998 Free Software Foundation, Inc.
Written by: Richard Frith-Macdonald <richard@brainstorm.co.uk>
Created: November 1998
This file is part of the GNUstep Base Library.
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; if not, write to the Free
Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <Foundation/NSArray.h>
#include <Foundation/NSDictionary.h>
#include <Foundation/NSFileManager.h>
#include <Foundation/NSString.h>
#include <Foundation/NSProcessInfo.h>
#include <Foundation/NSDebug.h>
#include <Foundation/NSAutoreleasePool.h>
#include <Foundation/NSArchiver.h>
static void scanDirectory(NSMutableDictionary *services, NSString *path);
static NSMutableArray *validateEntry(id svcs, NSString* path);
static NSMutableDictionary *validateService(NSDictionary *service, NSString* path, unsigned i);
int
main(int argc, char** argv)
{
NSAutoreleasePool *pool;
NSProcessInfo *proc;
NSFileManager *mgr;
NSDictionary *env;
NSMutableDictionary *services;
NSMutableArray *roots;
NSArray *args;
NSArray *locations;
NSString *usrRoot;
NSString *str;
unsigned index;
BOOL isDir;
NSString *cacheName = @".GNUstepServices";
pool = [NSAutoreleasePool new];
proc = [NSProcessInfo processInfo];
if (proc == nil)
{
NSLog(@"unable to get process information!\n");
[pool release];
exit(0);
}
env = [proc environment];
args = [proc arguments];
for (index = 0; index < [args count]; index++)
{
if ([[args objectAtIndex: index] isEqual: @"--help"])
{
printf(
"make_services builds a validated cache of service information for use by\n"
"programs that want to use the OpenStep services facility.\n"
"This cache is stored in '%s' in the users GNUstep directory.\n"
"\n"
"You may use 'make_services --test filename' to test that the property list\n"
"in 'filename' contains a valid services definition.\n", [cacheName cString]);
exit(0);
}
if ([[args objectAtIndex: index] isEqual: @"--test"])
{
while (++index < [args count])
{
NSString *file = [args objectAtIndex: index];
NSDictionary *info;
info = [NSDictionary dictionaryWithContentsOfFile: file];
if (info)
{
id svcs = [info objectForKey: @"NSServices"];
if (svcs)
{
validateEntry(svcs, file);
}
else
{
NSLog(@"bad info - %@\n", file);
}
}
else
{
NSLog(@"bad info - %@\n", file);
}
}
exit(0);
}
}
roots = [NSMutableArray arrayWithCapacity: 3];
/*
* Build a list of 'root' directories to search for applications.
*/
str = [env objectForKey: @"GNUSTEP_SYSTEM_ROOT"];
if (str != nil)
[roots addObject: str];
else
[roots addObject: @"/usr/GNUstep"];
str = [env objectForKey: @"GNUSTEP_LOCAL_ROOT"];
if (str != nil)
[roots addObject: str];
else
[roots addObject: @"/usr/GNUstep/Local"];
str = [env objectForKey: @"GNUSTEP_USER_ROOT"];
if (str != nil)
usrRoot = str;
else
usrRoot = [NSString stringWithFormat: @"%@/GNUstep", NSHomeDirectory()];
[roots addObject: usrRoot];
/*
* List of directory names to search within each root directory
* when looking for applications providing services.
*/
locations = [NSArray arrayWithObjects: @"Apps", @"Library/Services", nil];
services = [NSMutableDictionary dictionaryWithCapacity: 200];
for (index = 0; index < [roots count]; index++)
{
NSString *root = [roots objectAtIndex: index];
unsigned dirIndex;
for (dirIndex = 0; dirIndex < [locations count]; dirIndex++)
{
NSString *loc = [locations objectAtIndex: dirIndex];
NSString *path = [root stringByAppendingPathComponent: loc];
scanDirectory(services, path);
}
}
mgr = [NSFileManager defaultManager];
if (([mgr fileExistsAtPath: usrRoot isDirectory: &isDir] && isDir) == 0)
{
if ([mgr createDirectoryAtPath: usrRoot attributes: nil] == NO)
{
NSLog(@"couldn't create %@\n", usrRoot);
[pool release];
exit(1);
}
}
str = [usrRoot stringByAppendingPathComponent: cacheName];
if ([NSArchiver archiveRootObject: services toFile: str] == NO)
{
NSLog(@"couldn't write %@\n", str);
[pool release];
exit(1);
}
[pool release];
exit(0);
}
static void
scanDirectory(NSMutableDictionary *services, NSString *path)
{
NSFileManager *mgr = [NSFileManager defaultManager];
NSAutoreleasePool *arp = [NSAutoreleasePool new];
NSArray *contents = [mgr directoryContentsAtPath: path];
unsigned index;
for (index = 0; index < [contents count]; index++)
{
NSString *name = [contents objectAtIndex: index];
NSString *ext = [name pathExtension];
NSString *newPath;
BOOL isDir;
if (ext != nil && [ext isEqualToString: @".app"])
{
newPath = [path stringByAppendingPathComponent: name];
if ([mgr fileExistsAtPath: newPath isDirectory: &isDir] && isDir)
{
NSString *infPath;
infPath = [newPath stringByAppendingPathComponent: @"Info.plist"];
if ([mgr fileExistsAtPath: infPath isDirectory: &isDir] && !isDir)
{
NSDictionary *info;
info = [NSDictionary dictionaryWithContentsOfFile: infPath];
if (info)
{
id svcs = [info objectForKey: @"NSServices"];
if (svcs)
{
NSMutableArray *entry;
entry = validateEntry(svcs, newPath);
if (entry)
{
[services setObject: entry forKey: newPath];
}
}
}
else
{
NSLog(@"bad app info - %@\n", infPath);
}
}
}
else
{
NSLog(@"bad application - %@\n", newPath);
}
}
else if (ext != nil && [ext isEqualToString: @".service"])
{
newPath = [path stringByAppendingPathComponent: name];
if ([mgr fileExistsAtPath: newPath isDirectory: &isDir] && isDir)
{
NSString *infPath;
infPath = [newPath stringByAppendingPathComponent: @"Info.plist"];
if ([mgr fileExistsAtPath: infPath isDirectory: &isDir] && !isDir)
{
NSDictionary *info;
info = [NSDictionary dictionaryWithContentsOfFile: infPath];
if (info)
{
id svcs = [info objectForKey: @"NSServices"];
if (svcs)
{
NSMutableArray *entry;
entry = validateEntry(svcs, newPath);
if (entry)
{
[services setObject: entry forKey: newPath];
}
}
else
{
NSLog(@"missing info - %@\n", infPath);
}
}
else
{
NSLog(@"bad service info - %@\n", infPath);
}
}
}
else
{
NSLog(@"bad services bundle - %@\n", newPath);
}
}
else
{
newPath = [path stringByAppendingPathComponent: name];
if ([mgr fileExistsAtPath: newPath isDirectory: &isDir] && isDir)
{
scanDirectory(services, newPath);
}
}
}
[arp release];
}
static NSMutableArray*
validateEntry(id svcs, NSString *path)
{
NSMutableArray *newServices;
NSArray *services;
unsigned pos;
if ([svcs isKindOfClass: [NSArray class]] == NO)
{
NSLog(@"NSServices entry not an array - %@\n", path);
return nil;
}
services = (NSArray*)svcs;
newServices = [NSMutableArray arrayWithCapacity: [services count]];
for (pos = 0; pos < [services count]; pos++)
{
id svc;
NSDictionary *service;
NSMutableDictionary *newService;
svc = [services objectAtIndex: pos];
if ([svc isKindOfClass: [NSDictionary class]])
{
newService = validateService(service, path, pos);
if (newService)
{
[newServices addObject: newService];
}
}
else
{
NSLog(@"NSServices entry %u not a dictionary - %@\n",
pos, path);
}
}
}
static NSMutableDictionary*
validateService(NSDictionary *service, NSString *path, unsigned pos)
{
static NSDictionary *fields = nil;
static Class aClass;
static Class dClass;
static Class sClass;
NSEnumerator *e;
NSMutableDictionary *result;
NSString *k;
id obj;
if (fields == nil)
{
aClass = [NSArray class];
dClass = [NSDictionary class];
sClass = [NSString class];
fields = [NSDictionary dictionaryWithObjectsAndKeys:
@"string", @"NSMessage",
@"string", @"NSPortName",
@"array", @"NSSendTypes",
@"array", @"NSReturnTypes",
@"dictionary", @"NSMenuItem",
@"dictionary", @"NSKeyEquivalent",
@"string", @"NSUserData",
@"string", @"NSTimeout",
@"string", @"NSHost",
@"string", @"NSExecutable",
@"string", @"NSFilter",
@"string", @"NSInputMechanism",
@"string", @"NSPrintFilter",
@"string", @"NSDeviceDependent",
@"array", @"NSLanguages",
@"string", @"NSSpellChecker",
nil];
[fields retain];
}
result = [NSMutableDictionary dictionaryWithCapacity: [service count]];
/*
* Step through and check that each field is a known one and of the
* correct type.
*/
e = [service keyEnumerator];
while ((k = [e nextObject]) != nil)
{
NSString *type = [fields objectForKey: k];
if (type == nil)
{
NSLog(@"NSServices entry %u spurious field (%@)- %@\n", pos, k, path);
}
else
{
obj = [service objectForKey: k];
if ([type isEqualToString: @"string"])
{
if ([obj isKindOfClass: sClass] == NO)
{
NSLog(@"NSServices entry %u field %@ is not a string - %@\n", pos, k, path);
return nil;
}
[result setObject: obj forKey: k];
}
else if ([type isEqualToString: @"array"])
{
NSArray *a;
if ([obj isKindOfClass: aClass] == NO)
{
NSLog(@"NSServices entry %u field %@ is not an array - %@\n", pos, k, path);
return nil;
}
a = (NSArray*)obj;
if ([a count] == 0)
{
NSLog(@"NSServices entry %u field %@ is an empty array - %@\n", pos, k, path);
}
else
{
unsigned i;
for (i = 0; i < [a count]; i++)
{
if ([[a objectAtIndex: i] isKindOfClass: sClass] == NO)
{
NSLog(@"NSServices entry %u field %@ element %u is not a string - %@\n", pos, k, i, path);
return nil;
}
}
[result setObject: obj forKey: k];
}
}
else if ([type isEqualToString: @"dictionary"])
{
NSDictionary *d;
if ([obj isKindOfClass: dClass] == NO)
{
NSLog(@"NSServices entry %u field %@ is not a dictionary - %@\n", pos, k, path);
return nil;
}
d = (NSDictionary*)obj;
if ([d objectForKey: @"default"] == nil)
{
NSLog(@"NSServices entry %u field %@ has no default value - %@\n", pos, k, path);
}
else
{
NSEnumerator *e = [d objectEnumerator];
while ((obj = [e nextObject]) != nil)
{
if ([obj isKindOfClass: sClass] == NO)
{
NSLog(@"NSServices entry %u field %@ contains non-string value - %@\n", pos, k, path);
return nil;
}
}
[result setObject: obj forKey: k];
}
}
}
}
/*
* Now check that we have the required fields for the service.
*/
if ((obj = [result objectForKey: @"NSMessage"]) != nil)
{
if ([result objectForKey: @"NSPortName"] == nil)
{
NSLog(@"NSServices entry %u NSPortName missing - %@\n", pos, path);
return nil;
}
if ([result objectForKey: @"NSSendTypes"] == nil &&
[result objectForKey: @"NSReturnTypes"] == nil)
{
NSLog(@"NSServices entry %u types missing - %@\n", pos, path);
return nil;
}
if ([result objectForKey: @"NSMenuItem"] == nil)
{
NSLog(@"NSServices entry %u NSMenuItem missing - %@\n", pos, path);
return nil;
}
}
else if ((obj = [result objectForKey: @"NSFilter"]) != nil)
{
if ([result objectForKey: @"NSSendTypes"] == nil ||
[result objectForKey: @"NSReturnTypes"] == nil)
{
NSLog(@"NSServices entry %u types missing - %@\n", pos, path);
return nil;
}
}
else if ((obj = [result objectForKey: @"NSPrintFilter"]) != nil)
{
}
else if ((obj = [result objectForKey: @"NSSpellChecker"]) != nil)
{
if ([result objectForKey: @"NSLanguages"] == nil)
{
NSLog(@"NSServices entry %u NSLanguages missing - %@\n", pos, path);
return nil;
}
}
else
{
NSLog(@"NSServices entry %u unknown service/filter - %@\n", pos, path);
return nil;
}
return result;
}