Mercurial > vim
annotate src/os_vms_mms.c @ 33988:7c30841c60a0 v9.0.2180
patch 9.0.2180: POSIX function name in exarg causes issues
Commit: https://github.com/vim/vim/commit/6fdb6280821a822768df5689a5d727e37d38306c
Author: Zoltan Arpadffy <zoltan.arpadffy@gmail.com>
Date: Tue Dec 19 20:53:07 2023 +0100
patch 9.0.2180: POSIX function name in exarg causes issues
Problem: POSIX function name in exarg struct causes issues
on OpenVMS
Solution: Rename getline member in exarg struct to ea_getline,
remove isinf() workaround for VMS
There are compilers that do not treat well POSIX functions - like
getline - usage in the structs.
Older VMS compilers could digest this... but the newer OpenVMS compilers
( like VSI C x86-64 X7.4-843 (GEM 50XB9) ) cannot deal with these
structs. This could be limited to getline() that is defined via
getdelim() and might not affect all POSIX functions in general - but
avoiding POSIX function names usage in the structs is a "safe side"
practice without compromising the functionality or the code readability.
The previous OpenVMS X86 port used a workaround limiting the compiler
capabilities using __CRTL_VER_OVERRIDE=80400000
In order to make the OpenVMS port future proof, this pull request
proposes a possible solution.
closes: #13704
Signed-off-by: Zoltan Arpadffy <zoltan.arpadffy@gmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 19 Dec 2023 21:00:04 +0100 |
parents | 2463194c8cdd |
children |
rev | line source |
---|---|
7 | 1 #include <stdio.h> |
2 #include <stdlib.h> | |
3 #include <string.h> | |
4 #include <unixio.h> | |
5 #include "vim.h" | |
6 int main(int argc, char *argv[]) | |
7 { | |
8 FILE *fpi, *fpo; | |
9 char cmd[132], buf[BUFSIZ], *argp, *error_file, target[132], *mms; | |
10 int err = 0, err_line = 0; | |
11 | |
12 mms = "mms"; | |
13 argc--; | |
14 argv++; | |
15 while (argc-- > 0) | |
16 { | |
17 argp = *argv++; | |
18 if (*argp == '-') | |
19 { | |
20 switch (*++argp) | |
21 { | |
22 case 'm': | |
23 mms = ++argp; | |
24 break; | |
25 case 'e': | |
26 if (!*(error_file = ++argp)) | |
27 { | |
28 error_file = *argv++; | |
29 argc--; | |
30 } | |
31 break; | |
32 default: | |
33 break; | |
34 } | |
35 } | |
36 else | |
37 { | |
38 if (*target) | |
39 strcat(target, " "); | |
40 strcat(target, argp); | |
41 } | |
42 } | |
273 | 43 vim_snprintf(cmd, sizeof(cmd), "%s/output=tmp:errors.vim_tmp %s", |
44 mms, target); | |
7 | 45 system(cmd); |
46 fpi = fopen("tmp:errors.vim_tmp", "r"); | |
47 fpo = fopen(error_file, "w"); | |
48 while (fgets(buf, BUFSIZ, fpi)) | |
49 { | |
50 if (!memcmp(buf, "%CC-", 4)) | |
51 { | |
52 err_line++; | |
53 buf[strlen(buf)-1] = '\0'; | |
54 err++; | |
55 } | |
56 else | |
57 { | |
58 if (err_line) | |
59 { | |
60 if (strstr(buf, _("At line"))) | |
61 { | |
62 err_line = 0; | |
63 fprintf(fpo, "@"); | |
64 } | |
65 else | |
66 buf[strlen(buf)-1] = '\0'; | |
67 } | |
68 } | |
69 fprintf(fpo, "%s", buf); | |
70 } | |
71 fclose(fpi); | |
72 fclose(fpo); | |
73 while (!delete("tmp:errors.vim_tmp")) | |
74 /*nop*/; | |
75 exit(err ? 44 : 1); | |
76 return(0); | |
77 } |