diff options
| author | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
| commit | 7d7d2cbcb02206f3393681f2bce198e11e2e185b (patch) | |
| tree | 93410fafc5aa977c748ea492994da3f581d11278 /apps/apps.c | |
| parent | 8d111f4a476896a417069d16597ce3009f9bb992 (diff) | |
| download | openssl-7d7d2cbcb02206f3393681f2bce198e11e2e185b.tar.gz | |
VMS support.
Submitted by: Richard Levitte <richard@levitte.org>
Diffstat (limited to 'apps/apps.c')
| -rw-r--r-- | apps/apps.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/apps/apps.c b/apps/apps.c index f9cc27052b..354043ef6e 100644 --- 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) |