[Oorexx-svn] SF.net SVN: oorexx:[6283] main/trunk/interpreter/platform/unix/ ExternalFunctions.cpp

[<ant...@us...>]

Revision: 6283
          http://oorexx.svn.sourceforge.net/oorexx/?rev=6283&view=rev
Author:   antiguru
Date:     2010-10-13 10:31:44 +0000 (Wed, 13 Oct 2010)

Log Message:
-----------
[#3086567] fix filespec behaviour on Unix

Modified Paths:
--------------
    main/trunk/interpreter/platform/unix/ExternalFunctions.cpp

Modified: main/trunk/interpreter/platform/unix/ExternalFunctions.cpp
===================================================================
--- main/trunk/interpreter/platform/unix/ExternalFunctions.cpp	2010-10-13 10:31:03 UTC (rev 6282)
+++ main/trunk/interpreter/platform/unix/ExternalFunctions.cpp	2010-10-13 10:31:44 UTC (rev 6283)
@@ -105,6 +105,7 @@
 #define FILESPEC_NAME         'N'
 #define FILESPEC_LOCATION     'L'
 #define FILESPEC_EXTENSION    'E'
+#define FILESPEC_DRIVE        'D'
 
 #define KIOCSOUND   0x4B2F              /* start sound generation (0 for off) */
 
@@ -287,6 +288,11 @@
                 return context->String(nameStart, endPtr - nameStart);
             }
 
+        case FILESPEC_DRIVE:                 /* extract the drive name               */
+            {                                /* everything to left of slash        */
+                return context->NullString();
+            }
+        
         case FILESPEC_LOCATION:          /* extract the file name               */
             {                                /* everything to left of slash        */
                 return context->String(name, pathEnd - name);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.