Added new script search paths

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

ChangeLog

@@ -1,3 +1,13 @@
+2004 Aug 2  Stefan Urbanek
+
+    * Search for scripts in */Library/Scripts/*
+    * stexec: use scripts manager to look for scripts in default locations. For
+    this tool it is .../Library/Scripts/Shell or .../Library/StepTalk/Scripts/Shell
+
+2004 Jul 26 Stefan Urbanek
+
+    * Added NSString containsString: to Foundation module.
+    
 2004 Jun 27 Stefan Urbanek
 
     * Added examples:

Frameworks/StepTalk/STScriptsManager.m

@@ -136,6 +136,20 @@ process name.*/
         [scriptPaths addObject:str];
     }
 
+    /* Add same, but without StepTalk (only Library/Scripts) */
+    enumerator = [paths objectEnumerator];
+
+    while( (path = [enumerator nextObject]) )
+    {
+        path = [path stringByAppendingPathComponent:@"Scripts"];
+
+        str = [path stringByAppendingPathComponent: scriptsDomainName];
+        [scriptPaths addObject:str];
+
+        str = [path stringByAppendingPathComponent:@"Shared"];
+        [scriptPaths addObject:str];
+    }
+    
     enumerator = [[NSBundle allBundles] objectEnumerator];
 
     while( (bundle = [enumerator nextObject]) )
@@ -191,6 +205,7 @@ process name.*/
     {
         if( [manager fileExistsAtPath:path isDirectory:&isDir] && isDir )
         {
+            // NSLog(@"VARLIOD %@", path);
             [scriptPaths addObject:path];
         }
     }
@@ -217,6 +232,7 @@ process name.*/
 
     while( (path = [pEnumerator nextObject]) )
     {
+        // NSLog(@"IN %@", path);
         sEnumerator = [[manager directoryContentsAtPath:path] objectEnumerator];
         
         while( (file = [sEnumerator nextObject]) )

Tools/STExecutor.m

@@ -116,16 +116,17 @@ const char *STExecutorCommonOptions =
     NSFileManager *manager = [NSFileManager defaultManager];
     STEnvironment *env;
     NSString      *convLanguageName;    
+    NSString      *source;
     
     if( [manager fileExistsAtPath:file isDirectory:NO] )
     {
-        NSString *source = [NSString stringWithContentsOfFile:file];
+        source = [NSString stringWithContentsOfFile:file];
 
         if(langName)
         {
             NSDebugLog(@"Using language %@", langName);
 
-            [conversation setLanguage:langName];
+            convLanguageName = langName;
         }
         else
         {
@@ -133,13 +134,35 @@ const char *STExecutorCommonOptions =
                        [file pathExtension]);
 
             convLanguageName = [STLanguage languageNameForFileType:[file pathExtension]];
-            [conversation setLanguage:convLanguageName];
+        }
+    }
+    else
+    {
+        STScriptsManager *sm;
+        STFileScript     *script;
+
+        /* Try to find it in standard script locations */
+        sm  = [[STScriptsManager alloc] initWithDomainName:@"Shell"];
+        
+        script = [sm scriptWithName:file];
+        source = [script source];
+        if(!source)
+        {
+            [NSException  raise:STExecutorException
+                         format:@"Could not find script '%@'", file];
+            return;
+        }
+        else
+        {
+            convLanguageName = [script language];
+        }
     }
 
+    [conversation setLanguage:convLanguageName];
 
     if(conversation)
     {
-            NSDebugLog(@"Executing file '%@'",file);
+        NSDebugLog(@"Executing script '%@'",file);
 
         env = [conversation environment];
         [env setObject:args forName:@"Args"];
@@ -154,12 +177,6 @@ const char *STExecutorCommonOptions =
 
     }
 }
-    else
-    {
-        [NSException  raise:STExecutorException
-                     format:@"Could not find script '%@'", file];
-    }
-}
 
 - (void)listLanguages
 {