editing error.

[openssl.git] / apps / apps.c

diff --git a/apps/apps.c b/apps/apps.c
index f9cc27052b58b46f1737a8bb6480862b15eaa059..8fb5e8aaa736fdd802b0f0af13931fa08870d922 100644 (file)
--- a/apps/apps.c
+++ b/apps/apps.c
@@ -201,6 +201,27 @@ void program_name(char *in, char *out, int size)
        out[n]='\0';
        }
 #else
+#ifdef VMS
+void program_name(char *in, char *out, int size)
+       {
+       char *p=in, *q;
+       char *chars=":]>";
+
+       while(*chars != '\0')
+               {
+               q=strrchr(p,*chars);
+               if (q > p)
+                       p = q + 1;
+               chars++;
+               }
+
+       q=strrchr(p,'.');
+       if (q == NULL)
+               q = in+size;
+       strncpy(out,p,q-p);
+       out[q-p]='\0';
+       }
+#else
 void program_name(char *in, char *out, int size)
        {
        char *p;
@@ -214,6 +235,7 @@ void program_name(char *in, char *out, int size)
        out[size-1]='\0';
        }
 #endif
+#endif
 
 #ifdef WIN32
 int WIN32_rename(char *from, char *to)
@@ -225,8 +247,8 @@ int WIN32_rename(char *from, char *to)
        ret=MoveFileEx(from,to,MOVEFILE_REPLACE_EXISTING|MOVEFILE_COPY_ALLOWED);
        return(ret?0:-1);
 #else
-        unlink(to);
-        return MoveFile(from, to);
+       unlink(to);
+       return MoveFile(from, to);
 #endif
        }
 #endif