Mercurial > vim
annotate src/os_vms.c @ 18809:8c6177fec9cb
Added tag v8.1.2392 for changeset 7982f65d8f548ef8fef2f9a558b9a116880405e0
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 05 Dec 2019 20:15:04 +0100 |
parents | 1130f8309f67 |
children | 44b855153d8e |
rev | line source |
---|---|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
7833
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
7 | 2 * |
3 * VIM - Vi IMproved by Bram Moolenaar | |
4 * VMS port by Henk Elbers | |
5 * VMS deport by Zoltan Arpadffy | |
6 * | |
7 * Do ":help uganda" in Vim to read copying and usage conditions. | |
8 * Do ":help credits" in Vim to see a list of people who contributed. | |
9 * See README.txt for an overview of the Vim source code. | |
10 */ | |
11 | |
12 #include "vim.h" | |
13 | |
5541 | 14 /* define _generic_64 for use in time functions */ |
6359 | 15 #if !defined(VAX) && !defined(PROTO) |
5541 | 16 # include <gen64def.h> |
17 #else | |
18 /* based on Alpha's gen64def.h; the file is absent on VAX */ | |
19 typedef struct _generic_64 { | |
20 # pragma __nomember_alignment | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
21 __union { /* You can treat me as... */ |
5541 | 22 /* long long is not available on VAXen */ |
23 /* unsigned __int64 gen64$q_quadword; ...a single 64-bit value, or */ | |
24 | |
25 unsigned int gen64$l_longword [2]; /* ...two 32-bit values, or */ | |
26 unsigned short int gen64$w_word [4]; /* ...four 16-bit values */ | |
27 } gen64$r_quad_overlay; | |
28 } GENERIC_64; | |
29 #endif | |
30 | |
7 | 31 typedef struct |
32 { | |
33 char class; | |
34 char type; | |
35 short width; | |
36 union | |
37 { | |
38 struct | |
39 { | |
40 char _basic[3]; | |
41 char length; | |
42 } y; | |
43 int basic; | |
44 } x; | |
45 int extended; | |
46 } TT_MODE; | |
47 | |
48 typedef struct | |
49 { | |
50 short buflen; | |
51 short itemcode; | |
52 char *bufadrs; | |
53 int *retlen; | |
54 } ITEM; | |
55 | |
56 typedef struct | |
57 { | |
58 ITEM equ; | |
59 int nul; | |
60 } ITMLST1; | |
61 | |
62 typedef struct | |
63 { | |
64 ITEM index; | |
65 ITEM string; | |
66 int nul; | |
67 } ITMLST2; | |
68 | |
69 static TT_MODE orgmode; | |
70 static short iochan; /* TTY I/O channel */ | |
71 static short iosb[4]; /* IO status block */ | |
72 | |
73 static int vms_match_num = 0; | |
74 static int vms_match_free = 0; | |
75 static char_u **vms_fmatch = NULL; | |
76 static char *Fspec_Rms; /* rms file spec, passed implicitly between routines */ | |
77 | |
78 | |
79 | |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
80 static TT_MODE get_tty(void); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
81 static void set_tty(int row, int col); |
7 | 82 |
83 #define EXPL_ALLOC_INC 64 | |
84 | |
85 #define EQN(S1,S2,LN) (strncmp(S1,S2,LN) == 0) | |
13632
cec5137d5332
patch 8.0.1688: some macros are used without a semicolon
Christian Brabandt <cb@256bit.org>
parents:
13353
diff
changeset
|
86 #define SKIP_FOLLOWING_SLASHES(Str) do { while (Str[1] == '/') ++Str; } while (0) |
7 | 87 |
88 | |
89 /* | |
90 * vul_desc vult een descriptor met een string en de lengte | |
91 * hier van. | |
92 */ | |
93 static void | |
94 vul_desc(DESC *des, char *str) | |
95 { | |
96 des->dsc$b_dtype = DSC$K_DTYPE_T; | |
97 des->dsc$b_class = DSC$K_CLASS_S; | |
98 des->dsc$a_pointer = str; | |
99 des->dsc$w_length = str ? strlen(str) : 0; | |
100 } | |
101 | |
102 /* | |
103 * vul_item vult een item met een aantal waarden | |
104 */ | |
105 static void | |
106 vul_item(ITEM *itm, short len, short cod, char *adr, int *ret) | |
107 { | |
108 itm->buflen = len; | |
109 itm->itemcode = cod; | |
110 itm->bufadrs = adr; | |
111 itm->retlen = ret; | |
112 } | |
113 | |
114 void | |
115 mch_settmode(int tmode) | |
116 { | |
117 int status; | |
118 | |
119 if ( tmode == TMODE_RAW ) | |
120 set_tty(0, 0); | |
121 else{ | |
122 switch (orgmode.width) | |
123 { | |
124 case 132: OUT_STR_NF((char_u *)"\033[?3h\033>"); break; | |
125 case 80: OUT_STR_NF((char_u *)"\033[?3l\033>"); break; | |
126 default: break; | |
127 } | |
128 out_flush(); | |
129 status = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0, | |
130 &orgmode, sizeof(TT_MODE), 0,0,0,0); | |
131 if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) | |
132 return; | |
133 (void)sys$dassgn(iochan); | |
134 iochan = 0; | |
135 } | |
136 } | |
137 | |
138 static void | |
139 set_tty(int row, int col) | |
140 { | |
141 int status; | |
142 TT_MODE newmode; /* New TTY mode bits */ | |
143 static short first_time = TRUE; | |
144 | |
145 if (first_time) | |
146 { | |
147 orgmode = get_tty(); | |
148 first_time = FALSE; | |
149 } | |
150 newmode = get_tty(); | |
151 if (col) | |
152 newmode.width = col; | |
153 if (row) | |
154 newmode.x.y.length = row; | |
155 newmode.x.basic |= (TT$M_NOECHO | TT$M_HOSTSYNC); | |
156 newmode.x.basic &= ~TT$M_TTSYNC; | |
157 newmode.extended |= TT2$M_PASTHRU; | |
158 status = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0, | |
159 &newmode, sizeof(newmode), 0, 0, 0, 0); | |
160 if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) | |
161 return; | |
162 } | |
163 | |
164 static TT_MODE | |
165 get_tty(void) | |
166 { | |
167 | |
168 static $DESCRIPTOR(odsc,"SYS$OUTPUT"); /* output descriptor */ | |
169 | |
170 int status; | |
171 TT_MODE tt_mode; | |
172 | |
173 if (!iochan) | |
174 status = sys$assign(&odsc,&iochan,0,0); | |
175 | |
176 status = sys$qiow(0, iochan, IO$_SENSEMODE, iosb, 0, 0, | |
177 &tt_mode, sizeof(tt_mode), 0, 0, 0, 0); | |
178 if (status != SS$_NORMAL || (iosb[0] & 0xFFFF) != SS$_NORMAL) | |
179 { | |
180 tt_mode.width = 0; | |
181 tt_mode.type = 0; | |
182 tt_mode.class = 0; | |
183 tt_mode.x.basic = 0; | |
184 tt_mode.x.y.length = 0; | |
185 tt_mode.extended = 0; | |
186 } | |
187 return(tt_mode); | |
188 } | |
189 | |
190 /* | |
191 * Get the current window size in Rows and Columns. | |
192 */ | |
193 int | |
194 mch_get_shellsize(void) | |
195 { | |
196 TT_MODE tmode; | |
197 | |
198 tmode = get_tty(); /* get size from VMS */ | |
199 Columns = tmode.width; | |
200 Rows = tmode.x.y.length; | |
201 return OK; | |
202 } | |
203 | |
204 /* | |
205 * Try to set the window size to Rows and new_Columns. | |
206 */ | |
207 void | |
208 mch_set_shellsize(void) | |
209 { | |
210 set_tty(Rows, Columns); | |
211 switch (Columns) | |
212 { | |
213 case 132: OUT_STR_NF((char_u *)"\033[?3h\033>"); break; | |
214 case 80: OUT_STR_NF((char_u *)"\033[?3l\033>"); break; | |
215 default: break; | |
216 } | |
217 out_flush(); | |
218 screen_start(); | |
219 } | |
220 | |
221 char_u * | |
222 mch_getenv(char_u *lognam) | |
223 { | |
224 DESC d_file_dev, d_lognam ; | |
225 static char buffer[LNM$C_NAMLENGTH+1]; | |
226 char_u *cp = NULL; | |
227 unsigned long attrib; | |
228 int lengte = 0, dum = 0, idx = 0; | |
229 ITMLST2 itmlst; | |
230 char *sbuf = NULL; | |
231 | |
232 vul_desc(&d_lognam, (char *)lognam); | |
233 vul_desc(&d_file_dev, "LNM$FILE_DEV"); | |
234 attrib = LNM$M_CASE_BLIND; | |
235 vul_item(&itmlst.index, sizeof(int), LNM$_INDEX, (char *)&idx, &dum); | |
236 vul_item(&itmlst.string, LNM$C_NAMLENGTH, LNM$_STRING, buffer, &lengte); | |
237 itmlst.nul = 0; | |
238 if (sys$trnlnm(&attrib, &d_file_dev, &d_lognam, NULL,&itmlst) == SS$_NORMAL) | |
239 { | |
240 buffer[lengte] = '\0'; | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
241 if (cp = alloc(lengte + 1)) |
7 | 242 strcpy((char *)cp, buffer); |
243 return(cp); | |
244 } | |
245 else if ((sbuf = getenv((char *)lognam))) | |
246 { | |
247 lengte = strlen(sbuf) + 1; | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
248 cp = alloc(lengte); |
7 | 249 if (cp) |
250 strcpy((char *)cp, sbuf); | |
251 return cp; | |
252 } | |
253 else | |
254 return(NULL); | |
255 } | |
256 | |
257 /* | |
258 * mch_setenv VMS version of setenv() | |
259 */ | |
260 int | |
261 mch_setenv(char *var, char *value, int x) | |
262 { | |
263 int res, dum; | |
264 long attrib = 0L; | |
265 char acmode = PSL$C_SUPER; /* needs SYSNAM privilege */ | |
266 DESC tabnam, lognam; | |
267 ITMLST1 itmlst; | |
268 | |
269 vul_desc(&tabnam, "LNM$JOB"); | |
270 vul_desc(&lognam, var); | |
271 vul_item(&itmlst.equ, value ? strlen(value) : 0, value ? LNM$_STRING : 0, | |
272 value, &dum); | |
273 itmlst.nul = 0; | |
274 res = sys$crelnm(&attrib, &tabnam, &lognam, &acmode, &itmlst); | |
275 return((res == 1) ? 0 : -1); | |
276 } | |
277 | |
278 int | |
279 vms_sys(char *cmd, char *out, char *inp) | |
280 { | |
281 DESC cdsc, odsc, idsc; | |
282 long status; | |
283 | |
284 if (cmd) | |
285 vul_desc(&cdsc, cmd); | |
286 if (out) | |
287 vul_desc(&odsc, out); | |
288 if (inp) | |
289 vul_desc(&idsc, inp); | |
290 | |
291 lib$spawn(cmd ? &cdsc : NULL, /* command string */ | |
292 inp ? &idsc : NULL, /* input file */ | |
293 out ? &odsc : NULL, /* output file */ | |
294 0, 0, 0, &status, 0, 0, 0, 0, 0, 0); | |
295 return status; | |
296 } | |
297 | |
298 /* | |
5704 | 299 * Convert string to lowercase - most often filename |
300 */ | |
301 char * | |
302 vms_tolower( char *name ) | |
303 { | |
304 int i,nlen = strlen(name); | |
305 for (i = 0; i < nlen; i++) | |
306 name[i] = TOLOWER_ASC(name[i]); | |
307 return name; | |
308 } | |
309 | |
310 /* | |
7 | 311 * Convert VMS system() or lib$spawn() return code to Unix-like exit value. |
312 */ | |
313 int | |
314 vms_sys_status(int status) | |
315 { | |
316 if (status != SS$_NORMAL && (status & STS$M_SUCCESS) == 0) | |
317 return status; /* Command failed. */ | |
318 return 0; | |
319 } | |
320 | |
321 /* | |
322 * vms_read() | |
323 * function for low level char input | |
324 * | |
325 * Returns: input length | |
326 */ | |
327 int | |
328 vms_read(char *inbuf, size_t nbytes) | |
329 { | |
775 | 330 int status, function, len; |
331 TT_MODE tt_mode; | |
332 ITEM itmlst[2]; /* terminates on everything */ | |
7 | 333 static long trm_mask[8] = {-1, -1, -1, -1, -1, -1, -1, -1}; |
334 | |
335 /* whatever happened earlier we need an iochan here */ | |
336 if (!iochan) | |
775 | 337 tt_mode = get_tty(); |
7 | 338 |
694 | 339 /* important: clean the inbuf */ |
7 | 340 memset(inbuf, 0, nbytes); |
341 | |
694 | 342 /* set up the itemlist for the first read */ |
343 vul_item(&itmlst[0], 0, TRM$_MODIFIERS, | |
775 | 344 (char *)( TRM$M_TM_NOECHO | TRM$M_TM_NOEDIT | |
345 TRM$M_TM_NOFILTR | TRM$M_TM_TRMNOECHO | | |
346 TRM$M_TM_NORECALL) , 0); | |
694 | 347 vul_item(&itmlst[1], sizeof(trm_mask), TRM$_TERM, (char *)&trm_mask, 0); |
348 | |
349 /* wait forever for a char */ | |
350 function = (IO$_READLBLK | IO$M_EXTEND); | |
351 status = sys$qiow(0, iochan, function, &iosb, 0, 0, | |
775 | 352 inbuf, nbytes-1, 0, 0, &itmlst, sizeof(itmlst)); |
694 | 353 len = strlen(inbuf); /* how many chars we got? */ |
354 | |
1197 | 355 /* read immediately the rest in the IO queue */ |
694 | 356 function = (IO$_READLBLK | IO$M_TIMED | IO$M_ESCAPE | IO$M_NOECHO | IO$M_NOFILTR); |
357 status = sys$qiow(0, iochan, function, &iosb, 0, 0, | |
775 | 358 inbuf+len, nbytes-1-len, 0, 0, 0, 0); |
694 | 359 |
360 len = strlen(inbuf); /* return the total length */ | |
361 | |
7 | 362 return len; |
363 } | |
364 | |
365 /* | |
366 * vms_wproc() is called for each matching filename by decc$to_vms(). | |
367 * We want to save each match for later retrieval. | |
368 * | |
369 * Returns: 1 - continue finding matches | |
1197 | 370 * 0 - stop trying to find any further matches |
7 | 371 */ |
372 static int | |
373 vms_wproc(char *name, int val) | |
374 { | |
375 int i; | |
376 static int vms_match_alloced = 0; | |
377 | |
5704 | 378 if (val == DECC$K_FOREIGN ) /* foreign non VMS files are not counting */ |
7 | 379 return 1; |
380 | |
5704 | 381 /* accept all DECC$K_FILE and DECC$K_DIRECTORY */ |
7 | 382 if (vms_match_num == 0) { |
383 /* first time through, setup some things */ | |
384 if (NULL == vms_fmatch) { | |
18761
e3785af3ba0f
patch 8.1.2370: build problems on VMS
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
385 vms_fmatch = ALLOC_MULT(char_u *, EXPL_ALLOC_INC); |
7 | 386 if (!vms_fmatch) |
387 return 0; | |
388 vms_match_alloced = EXPL_ALLOC_INC; | |
389 vms_match_free = EXPL_ALLOC_INC; | |
390 } | |
391 else { | |
392 /* re-use existing space */ | |
393 vms_match_free = vms_match_alloced; | |
394 } | |
395 } | |
396 | |
5704 | 397 /* make matches look uniform */ |
7 | 398 vms_remove_version(name); |
5704 | 399 name=vms_tolower(name); |
7 | 400 |
401 /* if name already exists, don't add it */ | |
402 for (i = 0; i<vms_match_num; i++) { | |
403 if (0 == STRCMP((char_u *)name,vms_fmatch[i])) | |
404 return 1; | |
405 } | |
406 if (--vms_match_free == 0) { | |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
407 char_u **old_vms_fmatch = vms_fmatch; |
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
408 |
7 | 409 /* add more space to store matches */ |
410 vms_match_alloced += EXPL_ALLOC_INC; | |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
411 vms_fmatch = vim_realloc(old_vms_fmatch, |
7 | 412 sizeof(char **) * vms_match_alloced); |
413 if (!vms_fmatch) | |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
414 { |
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
415 vim_free(old_vms_fmatch); |
7 | 416 return 0; |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
417 } |
7 | 418 vms_match_free = EXPL_ALLOC_INC; |
419 } | |
420 vms_fmatch[vms_match_num] = vim_strsave((char_u *)name); | |
421 | |
422 ++vms_match_num; | |
423 return 1; | |
424 } | |
425 | |
426 /* | |
427 * mch_expand_wildcards this code does wild-card pattern | |
428 * matching NOT using the shell | |
429 * | |
1698 | 430 * return OK for success, FAIL for error (you may lose some |
7 | 431 * memory) and put an error message in *file. |
432 * | |
433 * num_pat number of input patterns | |
434 * pat array of pointers to input patterns | |
435 * num_file pointer to number of matched file names | |
436 * file pointer to array of pointers to matched file names | |
437 * | |
438 */ | |
439 int | |
440 mch_expand_wildcards(int num_pat, char_u **pat, int *num_file, char_u ***file, int flags) | |
441 { | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
1738
diff
changeset
|
442 int i, cnt = 0; |
7 | 443 char_u buf[MAXPATHL]; |
5704 | 444 char *result; |
7 | 445 int dir; |
446 int files_alloced, files_free; | |
447 | |
448 *num_file = 0; /* default: no files found */ | |
449 files_alloced = EXPL_ALLOC_INC; | |
450 files_free = EXPL_ALLOC_INC; | |
18761
e3785af3ba0f
patch 8.1.2370: build problems on VMS
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
451 *file = ALLOC_MULT(char_u *, files_alloced); |
7 | 452 if (*file == NULL) |
453 { | |
454 *num_file = 0; | |
455 return FAIL; | |
456 } | |
457 for (i = 0; i < num_pat; i++) | |
458 { | |
459 /* expand environment var or home dir */ | |
460 if (vim_strchr(pat[i],'$') || vim_strchr(pat[i],'~')) | |
461 expand_env(pat[i],buf,MAXPATHL); | |
462 else | |
463 STRCPY(buf,pat[i]); | |
464 | |
465 vms_match_num = 0; /* reset collection counter */ | |
5704 | 466 result = decc$translate_vms(vms_fixfilename(buf)); |
467 if ( (int) result == 0 || (int) result == -1 ) { | |
468 cnt = 0; | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
469 } else { |
5704 | 470 cnt = decc$to_vms(result, vms_wproc, 1 /*allow wild*/ , (flags & EW_DIR ? 0:1 ) /*allow directory*/) ; |
471 } | |
7 | 472 if (cnt > 0) |
473 cnt = vms_match_num; | |
474 | |
475 if (cnt < 1) | |
476 continue; | |
477 | |
478 for (i = 0; i < cnt; i++) | |
479 { | |
480 /* files should exist if expanding interactively */ | |
481 if (!(flags & EW_NOTFOUND) && mch_getperm(vms_fmatch[i]) < 0) | |
482 continue; | |
715 | 483 |
7 | 484 /* do not include directories */ |
485 dir = (mch_isdir(vms_fmatch[i])); | |
486 if (( dir && !(flags & EW_DIR)) || (!dir && !(flags & EW_FILE))) | |
487 continue; | |
715 | 488 |
489 /* Skip files that are not executable if we check for that. */ | |
6695 | 490 if (!dir && (flags & EW_EXEC) |
491 && !mch_can_exe(vms_fmatch[i], NULL, !(flags & EW_SHELLCMD))) | |
715 | 492 continue; |
493 | |
7 | 494 /* allocate memory for pointers */ |
495 if (--files_free < 1) | |
496 { | |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
497 char_u **old_file = *file; |
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
498 |
7 | 499 files_alloced += EXPL_ALLOC_INC; |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
500 *file = vim_realloc(old_file, sizeof(char_u **) * files_alloced); |
7 | 501 if (*file == NULL) |
502 { | |
18765
1130f8309f67
patch 8.1.2372: VMS: failing realloc leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
18761
diff
changeset
|
503 vim_free(old_file); |
7 | 504 *file = (char_u **)""; |
505 *num_file = 0; | |
506 return(FAIL); | |
507 } | |
508 files_free = EXPL_ALLOC_INC; | |
509 } | |
510 | |
511 (*file)[*num_file++] = vms_fmatch[i]; | |
512 } | |
513 } | |
514 return OK; | |
515 } | |
516 | |
517 int | |
518 mch_expandpath(garray_T *gap, char_u *path, int flags) | |
519 { | |
520 int i,cnt = 0; | |
5704 | 521 char *result; |
7 | 522 |
5704 | 523 vms_match_num = 0; |
524 /* the result from the decc$translate_vms needs to be handled */ | |
525 /* otherwise it might create ACCVIO error in decc$to_vms */ | |
526 result = decc$translate_vms(vms_fixfilename(path)); | |
527 if ( (int) result == 0 || (int) result == -1 ) { | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
528 cnt = 0; |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
529 } else { |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
530 cnt = decc$to_vms(result, vms_wproc, 1 /*allow_wild*/, (flags & EW_DIR ? 0:1 ) /*allow directory*/); |
5704 | 531 } |
7 | 532 if (cnt > 0) |
533 cnt = vms_match_num; | |
534 for (i = 0; i < cnt; i++) | |
535 { | |
536 if (mch_getperm(vms_fmatch[i]) >= 0) /* add existing file */ | |
537 addfile(gap, vms_fmatch[i], flags); | |
538 } | |
539 return cnt; | |
540 } | |
541 | |
542 /* | |
543 * attempt to translate a mixed unix-vms file specification to pure vms | |
544 */ | |
545 static void | |
546 vms_unix_mixed_filespec(char *in, char *out) | |
547 { | |
548 char *lastcolon; | |
549 char *end_of_dir; | |
550 char ch; | |
551 int len; | |
5704 | 552 char *out_str=out; |
7 | 553 |
554 /* copy vms filename portion up to last colon | |
555 * (node and/or disk) | |
556 */ | |
557 lastcolon = strrchr(in, ':'); /* find last colon */ | |
558 if (lastcolon != NULL) { | |
559 len = lastcolon - in + 1; | |
560 strncpy(out, in, len); | |
561 out += len; | |
562 in += len; | |
563 } | |
564 | |
565 end_of_dir = NULL; /* default: no directory */ | |
566 | |
567 /* start of directory portion */ | |
568 ch = *in; | |
694 | 569 if ((ch == '[') || (ch == '/') || (ch == '<')) { /* start of directory(s) ? */ |
7 | 570 ch = '['; |
571 SKIP_FOLLOWING_SLASHES(in); | |
572 } else if (EQN(in, "../", 3)) { /* Unix parent directory? */ | |
573 *out++ = '['; | |
574 *out++ = '-'; | |
575 end_of_dir = out; | |
576 ch = '.'; | |
577 in += 2; | |
578 SKIP_FOLLOWING_SLASHES(in); | |
579 } else { /* not a special character */ | |
580 while (EQN(in, "./", 2)) { /* Ignore Unix "current dir" */ | |
581 in += 2; | |
582 SKIP_FOLLOWING_SLASHES(in); | |
583 } | |
584 if (strchr(in, '/') == NULL) { /* any more Unix directories ? */ | |
585 strcpy(out, in); /* No - get rest of the spec */ | |
586 return; | |
587 } else { | |
588 *out++ = '['; /* Yes, denote a Vms subdirectory */ | |
589 ch = '.'; | |
590 --in; | |
591 } | |
592 } | |
593 | |
594 /* if we get here, there is a directory part of the filename */ | |
595 | |
596 /* initialize output file spec */ | |
597 *out++ = ch; | |
598 ++in; | |
599 | |
600 while (*in != '\0') { | |
601 ch = *in; | |
602 if ((ch == ']') || (ch == '/') || (ch == '>') ) { /* end of (sub)directory ? */ | |
603 end_of_dir = out; | |
604 ch = '.'; | |
605 SKIP_FOLLOWING_SLASHES(in); | |
606 } | |
607 else if (EQN(in, "../", 3)) { /* Unix parent directory? */ | |
608 *out++ = '-'; | |
609 end_of_dir = out; | |
610 ch = '.'; | |
611 in += 2; | |
612 SKIP_FOLLOWING_SLASHES(in); | |
613 } | |
614 else { | |
615 while (EQN(in, "./", 2)) { /* Ignore Unix "current dir" */ | |
616 end_of_dir = out; | |
617 in += 2; | |
618 SKIP_FOLLOWING_SLASHES(in); | |
619 ch = *in; | |
620 } | |
621 } | |
622 | |
623 /* Place next character into output file spec */ | |
624 *out++ = ch; | |
625 ++in; | |
626 } | |
627 | |
628 *out = '\0'; /* Terminate output file spec */ | |
629 | |
630 if (end_of_dir != NULL) /* Terminate directory portion */ | |
631 *end_of_dir = ']'; | |
632 } | |
633 | |
634 /* | |
635 * for decc$to_vms in vms_fixfilename | |
636 */ | |
637 static int | |
638 vms_fspec_proc(char *fil, int val) | |
639 { | |
640 strcpy(Fspec_Rms,fil); | |
641 return(1); | |
642 } | |
643 | |
644 /* | |
645 * change unix and mixed filenames to VMS | |
646 */ | |
647 void * | |
648 vms_fixfilename(void *instring) | |
649 { | |
650 static char *buf = NULL; | |
651 static size_t buflen = 0; | |
652 size_t len; | |
653 | |
654 /* get a big-enough buffer */ | |
655 len = strlen(instring) + 1; | |
656 if (len > buflen) | |
657 { | |
658 buflen = len + 128; | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
659 buf = vim_realloc(buf, buflen * sizeof(char)); |
7 | 660 } |
661 | |
662 #ifdef DEBUG | |
663 char *tmpbuf = NULL; | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
664 tmpbuf = ALLOC_MULT(char, buflen); |
7 | 665 strcpy(tmpbuf, instring); |
666 #endif | |
667 | |
668 Fspec_Rms = buf; /* for decc$to_vms */ | |
669 | |
1121 | 670 if (strchr(instring,'/') == NULL) |
7 | 671 /* It is already a VMS file spec */ |
672 strcpy(buf, instring); | |
1121 | 673 else if (strchr(instring,'"') == NULL) /* password in the path? */ |
674 { | |
7 | 675 /* Seems it is a regular file, let guess that it is pure Unix fspec */ |
1121 | 676 if (decc$to_vms(instring, vms_fspec_proc, 0, 0) <= 0) |
7 | 677 /* No... it must be mixed */ |
678 vms_unix_mixed_filespec(instring, buf); | |
679 } | |
680 else | |
681 /* we have a password in the path */ | |
682 /* decc$ functions can not handle */ | |
683 /* this is our only hope to resolv */ | |
684 vms_unix_mixed_filespec(instring, buf); | |
685 | |
686 return buf; | |
687 } | |
1121 | 688 |
7 | 689 /* |
690 * Remove version number from file name | |
691 * we need it in some special cases as: | |
692 * creating swap file name and writing new file | |
693 */ | |
694 void | |
695 vms_remove_version(void * fname) | |
696 { | |
697 char_u *cp; | |
698 char_u *fp; | |
699 | |
700 if ((cp = vim_strchr( fname, ';')) != NULL) /* remove version */ | |
701 *cp = '\0'; | |
702 else if ((cp = vim_strrchr( fname, '.')) != NULL ) | |
703 { | |
704 if ((fp = vim_strrchr( fname, ']')) != NULL ) {;} | |
705 else if ((fp = vim_strrchr( fname, '>')) != NULL ) {;} | |
706 else fp = fname; | |
707 | |
708 while ( *fp != '\0' && fp < cp ) | |
709 if ( *fp++ == '.' ) | |
710 *cp = '\0'; | |
711 } | |
712 return ; | |
713 } | |
5541 | 714 |
715 struct typeahead_st { | |
716 unsigned short numchars; | |
717 unsigned char firstchar; | |
718 unsigned char reserved0; | |
719 unsigned long reserved1; | |
720 } typeahead; | |
721 | |
722 /* | |
723 * Wait "msec" msec until a character is available from file descriptor "fd". | |
724 * "msec" == 0 will check for characters once. | |
725 * "msec" == -1 will block until a character is available. | |
726 */ | |
727 int | |
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
728 RealWaitForChar( |
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
729 int fd UNUSED, /* always read from iochan */ |
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
730 long msec, |
10328
299f1669c20e
commit https://github.com/vim/vim/commit/de5e2c219b99895445fb75ae3541ee69282a5846
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
731 int *check_for_gpm UNUSED, |
299f1669c20e
commit https://github.com/vim/vim/commit/de5e2c219b99895445fb75ae3541ee69282a5846
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
732 int *interrupted) |
5541 | 733 { |
734 int status; | |
735 struct _generic_64 time_curr; | |
736 struct _generic_64 time_diff; | |
737 struct _generic_64 time_out; | |
738 unsigned int convert_operation = LIB$K_DELTA_SECONDS_F; | |
5704 | 739 float sec =(float) msec/1000; |
5541 | 740 |
741 /* make sure the iochan is set */ | |
742 if (!iochan) | |
743 get_tty(); | |
744 | |
5704 | 745 if (sec > 0) { |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
746 /* time-out specified; convert it to absolute time */ |
5704 | 747 /* sec>0 requirement of lib$cvtf_to_internal_time()*/ |
5541 | 748 |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
749 /* get current time (number of 100ns ticks since the VMS Epoch) */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
750 status = sys$gettim(&time_curr); |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
751 if (status != SS$_NORMAL) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
752 return 0; /* error */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
753 /* construct the delta time */ |
5704 | 754 #if __G_FLOAT==0 |
755 # ifndef VAX | |
756 /* IEEE is default on IA64, but can be used on Alpha too - but not on VAX */ | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
757 status = lib$cvts_to_internal_time( |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
758 &convert_operation, &sec, &time_diff); |
5704 | 759 # endif |
760 #else /* default on Alpha and VAX */ | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
761 status = lib$cvtf_to_internal_time( |
5704 | 762 &convert_operation, &sec, &time_diff); |
763 #endif | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
764 if (status != LIB$_NORMAL) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
765 return 0; /* error */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
766 /* add them up */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
767 status = lib$add_times( |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
768 &time_curr, |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
769 &time_diff, |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
770 &time_out); |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
771 if (status != LIB$_NORMAL) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
772 return 0; /* error */ |
5541 | 773 } |
774 | |
775 while (TRUE) { | |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
776 /* select() */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
777 status = sys$qiow(0, iochan, IO$_SENSEMODE | IO$M_TYPEAHDCNT, iosb, |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
778 0, 0, &typeahead, 8, 0, 0, 0, 0); |
5541 | 779 if (status != SS$_NORMAL || (iosb[0] & 0xFFFF) != SS$_NORMAL) |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
780 return 0; /* error */ |
5541 | 781 |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
782 if (typeahead.numchars) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
783 return 1; /* ready to read */ |
5541 | 784 |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
785 /* there's nothing to read; what now? */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
786 if (msec == 0) { |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
787 /* immediate time-out; return impatiently */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
788 return 0; |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
789 } else if (msec < 0) { |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
790 /* no time-out; wait on indefinitely */ |
13754
0d199e59a988
patch 8.0.1749: VMS: 100% CPU use, redefining mch_open() fails
Christian Brabandt <cb@256bit.org>
parents:
13632
diff
changeset
|
791 return 1; /* fakeout to force a wait in vms_read() */ |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
792 } else { |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
793 /* time-out needs to be checked */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
794 status = sys$gettim(&time_curr); |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
795 if (status != SS$_NORMAL) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
796 return 0; /* error */ |
5541 | 797 |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
798 status = lib$sub_times( |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
799 &time_out, |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
800 &time_curr, |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
801 &time_diff); |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
802 if (status != LIB$_NORMAL) |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
803 return 0; /* error, incl. time_diff < 0 (i.e. time-out) */ |
5541 | 804 |
13353
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
805 /* otherwise wait some more */ |
8412df1479a3
patch 8.0.1550: various small problems in source files
Christian Brabandt <cb@256bit.org>
parents:
10328
diff
changeset
|
806 } |
5541 | 807 } |
808 } |