home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.369 < prev    next >
Encoding:
Internet Message Format  |  2003-03-08  |  20.3 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.369 (extra)
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.369 (extra)
  11. Problem:    VMS: Vim hangs when attempting to edit a read-only file in the
  12.         terminal.  Problem with VMS filenames for quickfix.
  13. Solution:   Rewrite low level input.  Remove version number from file name in
  14.         a couple more places.  Fix crash after patch 6.1.362.  Correct
  15.         return code for system().  (Zoltan Arpadffy, Tomas Stehlik)
  16. Files:        src/misc1.c, src/os_unix.c, src/os_vms.c, src/proto/os_vms.pro,
  17.         src/os_vms_conf.h, src/quickfix.c, src/ui.c
  18.  
  19.  
  20. *** ../vim61.368/src/misc1.c    Sat Mar  8 20:33:32 2003
  21. --- src/misc1.c    Fri Mar  7 22:30:02 2003
  22. ***************
  23. *** 6451,6456 ****
  24. --- 6451,6459 ----
  25.           ffname = FullName_save((*file)[i], FALSE);
  26.           if (ffname == NULL)        /* out of memory */
  27.           break;
  28. + # ifdef VMS
  29. +             vms_remove_version(ffname);
  30. + # endif
  31.           if (match_file_list(p_wig, (*file)[i], ffname))
  32.           {
  33.           /* remove this matching file from the list */
  34. ***************
  35. *** 7082,7088 ****
  36. --- 7085,7097 ----
  37.       /*
  38.        * read the names from the file into memory
  39.        */
  40. + # ifdef VMS
  41. +     /* created temporary file is not allways readable as binary */
  42. +     fd = mch_fopen((char *)tempname, "r");
  43. + # else
  44.       fd = mch_fopen((char *)tempname, READBIN);
  45. + # endif
  46. + 
  47.       if (fd == NULL)
  48.       {
  49.       EMSG2(_(e_notopen), tempname);
  50. ***************
  51. *** 7100,7105 ****
  52. --- 7109,7117 ----
  53.       mch_remove(tempname);
  54.       if (buffer == NULL)
  55.       goto done;
  56. + #ifdef VMS
  57. +     len = i;    /* why is this? */
  58. + #endif
  59.       if (i != len)
  60.       {
  61.       EMSG2(_(e_notread), tempname);
  62. *** ../vim61.368/src/os_unix.c    Mon Feb 24 11:29:15 2003
  63. --- src/os_unix.c    Fri Mar  7 22:50:28 2003
  64. ***************
  65. *** 123,129 ****
  66.   static void may_core_dump __ARGS((void));
  67.   
  68.   static int  WaitForChar __ARGS((long));
  69. ! #if defined(__BEOS__) || defined(VMS)
  70.   int  RealWaitForChar __ARGS((int, long, int *));
  71.   #else
  72.   static int  RealWaitForChar __ARGS((int, long, int *));
  73. --- 123,129 ----
  74.   static void may_core_dump __ARGS((void));
  75.   
  76.   static int  WaitForChar __ARGS((long));
  77. ! #if defined(__BEOS__)
  78.   int  RealWaitForChar __ARGS((int, long, int *));
  79.   #else
  80.   static int  RealWaitForChar __ARGS((int, long, int *));
  81. ***************
  82. *** 280,287 ****
  83.       RealWaitForChar(read_cmd_fd, p_wd, NULL);
  84.   }
  85.   
  86. - #ifndef VMS
  87. - 
  88.   /*
  89.    * mch_inchar(): low level input funcion.
  90.    * Get a characters from the keyboard.
  91. --- 280,285 ----
  92. ***************
  93. *** 390,397 ****
  94.       }
  95.   }
  96.   
  97. - #endif /* VMS */
  98. - 
  99.       static void
  100.   handle_resize()
  101.   {
  102. --- 388,393 ----
  103. ***************
  104. *** 3109,3121 ****
  105.           x = system((char *)newcmd);
  106.           vim_free(newcmd);
  107.       }
  108. ! # endif
  109.       }
  110.       if (emsg_silent)
  111.       ;
  112.       else if (x == 127)
  113.       MSG_PUTS(_("\nCannot execute shell sh\n"));
  114. ! #endif    /* __EMX__ */
  115.       else if (x && !(options & SHELL_SILENT))
  116.       {
  117.       MSG_PUTS(_("\nshell returned "));
  118. --- 3114,3129 ----
  119.           x = system((char *)newcmd);
  120.           vim_free(newcmd);
  121.       }
  122. ! #  endif
  123.       }
  124. + # ifdef VMS
  125. +     x = vms_sys_status(x);
  126. + # endif
  127.       if (emsg_silent)
  128.       ;
  129.       else if (x == 127)
  130.       MSG_PUTS(_("\nCannot execute shell sh\n"));
  131. ! # endif    /* __EMX__ */
  132.       else if (x && !(options & SHELL_SILENT))
  133.       {
  134.       MSG_PUTS(_("\nshell returned "));
  135. ***************
  136. *** 3862,3868 ****
  137.    * Or when a Linux GPM mouse event is waiting.
  138.    */
  139.   /* ARGSUSED */
  140. ! #if defined(__BEOS__) || defined(VMS)
  141.       int
  142.   #else
  143.       static  int
  144. --- 3870,3876 ----
  145.    * Or when a Linux GPM mouse event is waiting.
  146.    */
  147.   /* ARGSUSED */
  148. ! #if defined(__BEOS__)
  149.       int
  150.   #else
  151.       static  int
  152. ***************
  153. *** 4040,4046 ****
  154. --- 4048,4060 ----
  155.       }
  156.   # endif
  157.   
  158. + # ifdef OLD_VMS
  159. +     /* Old VMS as v6.2 and older have broken select(). It waits more than
  160. +      * required. Should not be used */
  161. +     ret = 0;
  162. + # else
  163.       ret = select(maxfd + 1, &rfds, NULL, &efds, (msec >= 0) ? &tv : NULL);
  164. + # endif
  165.   
  166.   # ifdef FEAT_SNIFF
  167.       if (ret < 0 )
  168. *** ../vim61.368/src/os_vms.c    Wed Jan 29 22:08:43 2003
  169. --- src/os_vms.c    Fri Mar  7 22:56:25 2003
  170. ***************
  171. *** 11,22 ****
  172.   
  173.   #include    "vim.h"
  174.   
  175. - #define EFN        0            /* Event flag */
  176. - #define NOTIM        0
  177. - #define TIM_0        1
  178. - #define TIM_1        2
  179. - #define EXPL_ALLOC_INC 16
  180. - 
  181.   typedef struct
  182.   {
  183.       char    class;
  184. --- 11,16 ----
  185. ***************
  186. *** 55,61 ****
  187.       int    nul;
  188.   }    ITMLST2;
  189.   
  190. - char        ibuf[1];        /* Input buffer */
  191.   static TT_MODE    orgmode;
  192.   static short    iochan;            /* TTY I/O channel */
  193.   static short    iosb[4];        /* IO status block */
  194. --- 49,54 ----
  195. ***************
  196. *** 66,146 ****
  197.   char_u **vms_fmatch = NULL;
  198.   static char *Fspec_Rms;               /* rms file spec, passed implicitly between routines */
  199.   
  200.   static TT_MODE    get_tty __ARGS((void));
  201.   static void    set_tty __ARGS((int row, int col));
  202. ! static int    vms_wait __ARGS((unsigned int fun));
  203.   
  204.   #define EQN(S1,S2,LN) (strncmp(S1,S2,LN) == 0)
  205.   #define SKIP_FOLLOWING_SLASHES(Str) while (Str[1] == '/') ++Str
  206.   
  207. - /*
  208. -  * low level input funcion.
  209. -  *
  210. -  * Get a characters from the keyboard.
  211. -  * Return the number of characters that are available.
  212. -  * If wtime == 0 do not wait for characters.
  213. -  * If wtime == n wait a short time for characters.
  214. -  * If wtime == -1 wait forever for characters.
  215. -  */
  216. -     int
  217. - mch_inchar(char_u *buf, int maxlen, long wtime)
  218. - {
  219. -     int        c, res;
  220. - 
  221. - #ifdef FEAT_GUI
  222. -     if (gui.in_use)
  223. -     {
  224. -     if (!gui_wait_for_chars(wtime))
  225. -         return 0;
  226. -     return read_from_input_buf(buf, (long)maxlen);
  227. -     }
  228. - #endif
  229. -     /* first check to see if any characters read by
  230. -      * mch_breakcheck(), mch_delay() or mch_char_avail()
  231. -      */
  232. -     if (!vim_is_input_buf_empty())
  233. -     return read_from_input_buf(buf, (long)maxlen);
  234. - 
  235. -     out_flush();
  236. -     if (wtime == -1)
  237. -     res = vms_wait(NOTIM);            /* without timeout */
  238. -     else
  239. -     res = vms_wait(wtime ? TIM_1 : TIM_0);    /* with timeout */
  240. -     if (res != SS$_NORMAL)
  241. -     return(0);
  242. -     out_flush();
  243. -     c = (ibuf[0] & 0xFF);            /* Allow multinational */
  244. -     *buf = c;
  245. -     return(1);
  246. - }
  247. - 
  248. -     static int
  249. - vms_wait(unsigned int fun)
  250. - {
  251. -     int            ret, term[2] = { 0, 0 };
  252. - 
  253. -     switch(fun)
  254. -     {
  255. -     case NOTIM:        /* wait forever for characters        */
  256. -         ret = sys$qiow(EFN, iochan, IO$_READLBLK, iosb, 0, 0,
  257. -                ibuf, 1, 0, term, 0, 0);
  258. -         break;
  259. -     case TIM_1:        /* wait a short time for characters    */
  260. -         ret = sys$qiow(EFN, iochan, IO$_READLBLK | IO$M_TIMED, iosb, 0, 0,
  261. -                ibuf, 1, 1, term, 0, 0);
  262. -         break;
  263. -     default:        /* do not wait for characters        */
  264. -         ret = sys$qiow(EFN, iochan, IO$_READLBLK | IO$M_TIMED, iosb, 0, 0,
  265. -                ibuf, 1, 0, term, 0, 0);
  266. -         break;
  267. -     }
  268. -     if (ret != SS$_NORMAL)
  269. -     return(ret);
  270. -     if ((fun && (iosb[0] != SS$_TIMEOUT) && (iosb[0] != SS$_NORMAL)) ||
  271. -     (!fun && (iosb[0] != SS$_NORMAL)))
  272. -     return(iosb[0]);
  273. -     return(iosb[1] + iosb[3]);
  274. - }
  275.   
  276.   /*
  277.    *    vul_desc    vult een descriptor met een string en de lengte
  278. --- 59,74 ----
  279.   char_u **vms_fmatch = NULL;
  280.   static char *Fspec_Rms;               /* rms file spec, passed implicitly between routines */
  281.   
  282. + 
  283. + 
  284.   static TT_MODE    get_tty __ARGS((void));
  285.   static void    set_tty __ARGS((int row, int col));
  286. ! 
  287. ! #define EXPL_ALLOC_INC 64
  288.   
  289.   #define EQN(S1,S2,LN) (strncmp(S1,S2,LN) == 0)
  290.   #define SKIP_FOLLOWING_SLASHES(Str) while (Str[1] == '/') ++Str
  291.   
  292.   
  293.   /*
  294.    *    vul_desc    vult een descriptor met een string en de lengte
  295. ***************
  296. *** 170,176 ****
  297.       void
  298.   mch_settmode(int tmode)
  299.   {
  300. !     long    mystatus;
  301.   
  302.       if ( tmode == TMODE_RAW )
  303.       set_tty(0, 0);
  304. --- 98,104 ----
  305.       void
  306.   mch_settmode(int tmode)
  307.   {
  308. !     int    status;
  309.   
  310.       if ( tmode == TMODE_RAW )
  311.       set_tty(0, 0);
  312. ***************
  313. *** 182,190 ****
  314.           default:    break;
  315.       }
  316.       out_flush();
  317. !     mystatus = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0,
  318.                         &orgmode, sizeof(TT_MODE), 0,0,0,0);
  319. !     if (mystatus!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
  320.           return;
  321.       (void)sys$dassgn(iochan);
  322.       iochan = 0;
  323. --- 110,118 ----
  324.           default:    break;
  325.       }
  326.       out_flush();
  327. !     status = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0,
  328.                         &orgmode, sizeof(TT_MODE), 0,0,0,0);
  329. !     if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
  330.           return;
  331.       (void)sys$dassgn(iochan);
  332.       iochan = 0;
  333. ***************
  334. *** 194,202 ****
  335.       static void
  336.   set_tty(int row, int col)
  337.   {
  338. !     long        mystatus;
  339.       TT_MODE        newmode;        /* New TTY mode bits        */
  340. !     static short first_time = TRUE;
  341.   
  342.       if (first_time)
  343.       {
  344. --- 122,130 ----
  345.       static void
  346.   set_tty(int row, int col)
  347.   {
  348. !     int                status;
  349.       TT_MODE        newmode;        /* New TTY mode bits        */
  350. !     static short    first_time = TRUE;
  351.   
  352.       if (first_time)
  353.       {
  354. ***************
  355. *** 211,240 ****
  356.       newmode.x.basic        |= (TT$M_NOECHO | TT$M_HOSTSYNC);
  357.       newmode.x.basic        &= ~TT$M_TTSYNC;
  358.       newmode.extended        |= TT2$M_PASTHRU;
  359. !     mystatus = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0,
  360.                 &newmode, sizeof(newmode), 0, 0, 0, 0);
  361. !     if (mystatus!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
  362.       return;
  363.   }
  364.   
  365. !     static TT_MODE
  366.   get_tty(void)
  367.   {
  368. !     long    mystatus;
  369.       TT_MODE    tt_mode;
  370. -     DESC    odsc;
  371. -     char    *cp1, *cp2 = "TT";
  372.   
  373.       if (!iochan)
  374. !     {
  375. !     while (cp1 = (char *)mch_getenv((char_u *)cp2))
  376. !         cp2 = cp1;
  377. !     vul_desc(&odsc, cp2);
  378. !     (void)sys$assign(&odsc, &iochan, 0, 0);
  379. !     }
  380. !     mystatus = sys$qiow(0, iochan, IO$_SENSEMODE, iosb, 0, 0,
  381.                 &tt_mode, sizeof(tt_mode), 0, 0, 0, 0);
  382. !     if (mystatus != SS$_NORMAL || (iosb[0] & 0xFFFF) != SS$_NORMAL)
  383.       {
  384.       tt_mode.width        = 0;
  385.       tt_mode.type        = 0;
  386. --- 139,165 ----
  387.       newmode.x.basic        |= (TT$M_NOECHO | TT$M_HOSTSYNC);
  388.       newmode.x.basic        &= ~TT$M_TTSYNC;
  389.       newmode.extended        |= TT2$M_PASTHRU;
  390. !     status = sys$qiow(0, iochan, IO$_SETMODE, iosb, 0, 0,
  391.                 &newmode, sizeof(newmode), 0, 0, 0, 0);
  392. !     if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
  393.       return;
  394.   }
  395.   
  396. ! static TT_MODE
  397.   get_tty(void)
  398.   {
  399. ! 
  400. !     static $DESCRIPTOR(odsc,"SYS$OUTPUT");   /* output descriptor */
  401. ! 
  402. !     int        status;
  403.       TT_MODE    tt_mode;
  404.   
  405.       if (!iochan)
  406. !         status = sys$assign(&odsc,&iochan,0,0);
  407. ! 
  408. !     status = sys$qiow(0, iochan, IO$_SENSEMODE, iosb, 0, 0,
  409.                 &tt_mode, sizeof(tt_mode), 0, 0, 0, 0);
  410. !     if (status != SS$_NORMAL || (iosb[0] & 0xFFFF) != SS$_NORMAL)
  411.       {
  412.       tt_mode.width        = 0;
  413.       tt_mode.type        = 0;
  414. ***************
  415. *** 321,327 ****
  416.   {
  417.       int        res, dum;
  418.       long    attrib = 0L;
  419. !     char    acmode = PSL$C_SUPER;    /* SYSNAM privilege nodig    */
  420.       DESC    tabnam, lognam;
  421.       ITMLST1    itmlst;
  422.   
  423. --- 246,252 ----
  424.   {
  425.       int        res, dum;
  426.       long    attrib = 0L;
  427. !     char    acmode = PSL$C_SUPER;    /* needs SYSNAM privilege */
  428.       DESC    tabnam, lognam;
  429.       ITMLST1    itmlst;
  430.   
  431. ***************
  432. *** 338,344 ****
  433.   vms_sys(char *cmd, char *out, char *inp)
  434.   {
  435.       DESC    cdsc, odsc, idsc;
  436. !     long    status, substatus;
  437.   
  438.       if (cmd)
  439.       vul_desc(&cdsc, cmd);
  440. --- 263,269 ----
  441.   vms_sys(char *cmd, char *out, char *inp)
  442.   {
  443.       DESC    cdsc, odsc, idsc;
  444. !     long    status;
  445.   
  446.       if (cmd)
  447.       vul_desc(&cdsc, cmd);
  448. ***************
  449. *** 347,362 ****
  450.       if (inp)
  451.       vul_desc(&idsc, inp);
  452.   
  453. !     status = lib$spawn(
  454. !         cmd ? &cdsc : NULL,        /* command string */
  455. !         inp ? &idsc : NULL,        /* input file */
  456. !         out ? &odsc : NULL,        /* output file */
  457. !         0, 0, 0, &substatus, 0, 0, 0, 0, 0, 0);
  458. !     if (status != SS$_NORMAL)
  459. !     substatus = status;
  460. !     if ((substatus&STS$M_SUCCESS) == 0)     /* Command failed.        */
  461. !     return(FALSE);
  462. !     return(TRUE);
  463.   }
  464.   
  465.   /*
  466. --- 272,339 ----
  467.       if (inp)
  468.       vul_desc(&idsc, inp);
  469.   
  470. !     lib$spawn(cmd ? &cdsc : NULL,        /* command string */
  471. !           inp ? &idsc : NULL,        /* input file */
  472. !           out ? &odsc : NULL,        /* output file */
  473. !           0, 0, 0, &status, 0, 0, 0, 0, 0, 0);
  474. !     return status;
  475. ! }
  476. ! 
  477. ! /*
  478. !  * Convert VMS system() or lib$spawn() return code to Unix-like exit value.
  479. !  */
  480. !     int
  481. ! vms_sys_status(int status)
  482. ! {
  483. !     if (status != SS$_NORMAL && (status & STS$M_SUCCESS) == 0)
  484. !     return status;        /* Command failed. */
  485. !     return 0;
  486. ! }
  487. ! 
  488. ! /*
  489. !  * vms_read()
  490. !  * function for low level char input
  491. !  *
  492. !  * Returns: input length
  493. !  */
  494. ! 
  495. !     int
  496. ! vms_read(char *inbuf, size_t nbytes)
  497. ! {
  498. ! 
  499. !     static unsigned short add_esc, was_esc = 0;
  500. ! 
  501. !     char    ibuf[nbytes];
  502. !     int     status, function, len;
  503. !     TT_MODE tt_mode;
  504. ! 
  505. !     /* whatever happened earlier we need an iochan here */
  506. !     if (!iochan)
  507. !        tt_mode=get_tty();
  508. ! 
  509. !     function = ( IO$_READLBLK | IO$M_NOECHO | IO$M_TIMED ) ;
  510. !     len=0;
  511. !     add_esc=0;
  512. ! 
  513. !     while(1) {
  514. !         memset(ibuf,0,sizeof(ibuf));
  515. !         status = sys$qiow(0,iochan,function,&iosb,0,0,&ibuf,nbytes-1,0,0,0,0);
  516. !         len=strlen( ibuf );
  517. !         if ( was_esc ) {                   /* ESC interrupts the BLOCK QIO  */
  518. !             add_esc=1;                     /* therefore we need to handle   */
  519. !             was_esc=0;                     /* it on special way in order to */
  520. !             inbuf[0]=27;                   /* read ESC sequences            */
  521. !         }
  522. !         if ( len>0 ){
  523. !             if ( ibuf[len-1]==27 ){
  524. !                 was_esc=1;
  525. !                 len=len-1;
  526. !             }
  527. !             mch_memmove(inbuf+add_esc, ibuf, len);
  528. !         }
  529. !         if ((add_esc+len) > 0) break;
  530. !     }
  531. !     return add_esc+len;
  532.   }
  533.   
  534.   /*
  535. ***************
  536. *** 365,371 ****
  537.    *
  538.    * Returns:  1 - continue finding matches
  539.    *         0 - stop trying to find any further mathces
  540. -  *
  541.    */
  542.   static int
  543.   vms_wproc(char *name, int val)
  544. --- 342,347 ----
  545. ***************
  546. *** 668,674 ****
  547.    * we need it in some special cases as:
  548.    * creating swap file name and writing new file
  549.    */
  550. !     void *
  551.   vms_remove_version(void * fname)
  552.   {
  553.       char_u    *cp;
  554. --- 644,650 ----
  555.    * we need it in some special cases as:
  556.    * creating swap file name and writing new file
  557.    */
  558. !     void
  559.   vms_remove_version(void * fname)
  560.   {
  561.       char_u    *cp;
  562. ***************
  563. *** 686,691 ****
  564.           if ( *fp++ == '.' )
  565.           *cp = '\0';
  566.       }
  567. ! 
  568. !     return fname;
  569.   }
  570. --- 662,666 ----
  571.           if ( *fp++ == '.' )
  572.           *cp = '\0';
  573.       }
  574. !     return ;
  575.   }
  576. *** ../vim61.368/src/proto/os_vms.pro    Fri Mar 22 21:41:33 2002
  577. --- src/proto/os_vms.pro    Thu Mar  6 21:26:59 2003
  578. ***************
  579. *** 1,13 ****
  580.   /* os_vms.c */
  581. - int mch_inchar __ARGS((char_u *buf, int maxlen, long wtime));
  582.   void mch_settmode __ARGS((int tmode));
  583.   int mch_get_shellsize __ARGS((void));
  584.   void mch_set_shellsize __ARGS((void));
  585.   char_u *mch_getenv __ARGS((char_u *lognam));
  586.   int mch_setenv __ARGS((char *var, char *value, int x));
  587.   int vms_sys __ARGS((char *cmd, char *out, char *inp));
  588.   int mch_expand_wildcards __ARGS((int num_pat, char_u **pat, int *num_file, char_u ***file, int flags));
  589.   int mch_expandpath __ARGS((garray_T *gap, char_u *path, int flags));
  590.   void *vms_fixfilename __ARGS((void *instring));
  591. ! void *vms_remove_version __ARGS((void *fname));
  592.   /* vim: set ft=c : */
  593. --- 1,13 ----
  594.   /* os_vms.c */
  595.   void mch_settmode __ARGS((int tmode));
  596.   int mch_get_shellsize __ARGS((void));
  597.   void mch_set_shellsize __ARGS((void));
  598.   char_u *mch_getenv __ARGS((char_u *lognam));
  599.   int mch_setenv __ARGS((char *var, char *value, int x));
  600.   int vms_sys __ARGS((char *cmd, char *out, char *inp));
  601. + int vms_read __ARGS((char *inbuf, size_t nbytes));
  602.   int mch_expand_wildcards __ARGS((int num_pat, char_u **pat, int *num_file, char_u ***file, int flags));
  603.   int mch_expandpath __ARGS((garray_T *gap, char_u *path, int flags));
  604.   void *vms_fixfilename __ARGS((void *instring));
  605. ! void vms_remove_version __ARGS((void *fname));
  606.   /* vim: set ft=c : */
  607. *** ../vim61.368/src/os_vms_conf.h    Sun Feb 24 19:36:04 2002
  608. --- src/os_vms_conf.h    Mon Mar  3 18:55:11 2003
  609. ***************
  610. *** 7,24 ****
  611.   #define USE_GETCWD
  612.   #define USE_SYSTEM
  613.   
  614. - /* Define when termcap library found */
  615. - /* #undef HAVE_LIBTERMCAP */
  616. - 
  617. - /* Define when termlib library found */
  618. - /* #undef HAVE_LIBTERMLIB */
  619. - 
  620. - /* Define when ncurses library found */
  621. - #undef HAVE_LIBNCURSES
  622. - 
  623. - /* Define when curses library found */
  624. - /* #undef HAVE_LIBCURSES */
  625. - 
  626.   /* Define when terminfo support found */
  627.   #undef TERMINFO
  628.   
  629. --- 7,12 ----
  630. ***************
  631. *** 104,109 ****
  632. --- 92,98 ----
  633.   /* Define if you have the sigset() function.  */
  634.   /* #undef HAVE_SIGSET */
  635.   
  636. + #define TGETENT_ZERO_ERR
  637.   #define HAVE_GETCWD
  638.   #define HAVE_STRCSPN
  639.   #define HAVE_STRTOL
  640. *** ../vim61.368/src/quickfix.c    Mon Feb 24 11:29:15 2003
  641. --- src/quickfix.c    Wed Feb 19 19:54:19 2003
  642. ***************
  643. *** 702,707 ****
  644. --- 702,710 ----
  645.       char_u        *ptr;
  646.       int        fnum;
  647.   
  648. + # ifdef VMS
  649. +         vms_remove_version(fname);
  650. + # endif
  651.       if (directory != NULL && !vim_isAbsName(fname)
  652.           && (ptr = concat_fnames(directory, fname, TRUE)) != NULL)
  653.       {
  654. *** ../vim61.368/src/ui.c    Sat Mar  8 20:33:33 2003
  655. --- src/ui.c    Sat Mar  8 17:44:27 2003
  656. ***************
  657. *** 58,64 ****
  658.   #endif
  659.   }
  660.   
  661. ! #if (defined(FEAT_GUI) && defined(UNIX)) || defined(MACOS_X_UNIX) || defined(PROTO)
  662.   /*
  663.    * When executing an external program, there may be some typed characters that
  664.    * are not consumed by it.  Give them back to ui_inchar() and they are stored
  665. --- 58,65 ----
  666.   #endif
  667.   }
  668.   
  669. ! #if (defined(FEAT_GUI) && (defined(UNIX) || defined(VMS))) \
  670. !     || defined(MACOS_X_UNIX) || defined(PROTO)
  671.   /*
  672.    * When executing an external program, there may be some typed characters that
  673.    * are not consumed by it.  Give them back to ui_inchar() and they are stored
  674. ***************
  675. *** 113,119 ****
  676.   {
  677.       int        retval = 0;
  678.   
  679. ! #if defined(FEAT_GUI) && defined(UNIX)
  680.       /*
  681.        * Use the typeahead if there is any.
  682.        */
  683. --- 114,120 ----
  684.   {
  685.       int        retval = 0;
  686.   
  687. ! #if defined(FEAT_GUI) && (defined(UNIX) || defined(VMS))
  688.       /*
  689.        * Use the typeahead if there is any.
  690.        */
  691. ***************
  692. *** 141,151 ****
  693.       {
  694.       static int count = 0;
  695.   
  696. ! #ifndef NO_CONSOLE
  697.       retval = mch_inchar(buf, maxlen, 10L);
  698.       if (retval > 0)
  699.           return retval;
  700. ! #endif
  701.       if (wtime == -1 && ++count == 1000)
  702.           read_error_exit();
  703.       buf[0] = CR;
  704. --- 142,152 ----
  705.       {
  706.       static int count = 0;
  707.   
  708. ! # ifndef NO_CONSOLE
  709.       retval = mch_inchar(buf, maxlen, 10L);
  710.       if (retval > 0)
  711.           return retval;
  712. ! # endif
  713.       if (wtime == -1 && ++count == 1000)
  714.           read_error_exit();
  715.       buf[0] = CR;
  716. ***************
  717. *** 1656,1664 ****
  718.       int        try;
  719.       static int    did_read_something = FALSE;
  720.   #endif
  721. - #ifdef VMS
  722. -     extern char ibuf[];
  723. - #endif
  724.   
  725.   #ifdef FEAT_GUI
  726.       if (gui.in_use)
  727. --- 1657,1662 ----
  728. ***************
  729. *** 1696,1721 ****
  730.       return;
  731.       }
  732.   #  endif
  733. - #  ifdef VMS_OLD_STUFF
  734. -     while (!vim_is_input_buf_full() && RealWaitForChar(0, 0L))
  735. -     {
  736. -     add_to_input_buf((char_u *)ibuf, 1);
  737. -     }
  738. -     if (inbufcount < 1 && !exit_on_error)
  739. -     return;
  740. -     len = inbufcount;
  741. -     inbufcount = 0;
  742. - #  else
  743.   
  744.       len = 0;    /* to avoid gcc warning */
  745.       for (try = 0; try < 100; ++try)
  746.       {
  747. !     len = read(read_cmd_fd, (char *)inbuf + inbufcount,
  748. !         (size_t)((INBUFLEN - inbufcount)
  749.   #  ifdef FEAT_MBYTE
  750.           / input_conv.vc_factor
  751.   #  endif
  752.           ));
  753.       if (len > 0 || got_int)
  754.           break;
  755.       /*
  756. --- 1694,1716 ----
  757.       return;
  758.       }
  759.   #  endif
  760.   
  761.       len = 0;    /* to avoid gcc warning */
  762.       for (try = 0; try < 100; ++try)
  763.       {
  764. ! #  ifdef VMS
  765. !         len = vms_read(
  766. ! #  else
  767. !     len = read(read_cmd_fd,
  768. ! #  endif
  769. !         (char *)inbuf + inbufcount, (size_t)((INBUFLEN - inbufcount)
  770.   #  ifdef FEAT_MBYTE
  771.           / input_conv.vc_factor
  772.   #  endif
  773.           ));
  774. + #  if 0
  775. +         )    /* avoid syntax highlight error */
  776. + #  endif
  777.       if (len > 0 || got_int)
  778.           break;
  779.       /*
  780. ***************
  781. *** 1742,1748 ****
  782.       if (!exit_on_error)
  783.           return;
  784.       }
  785. - #  endif /* VMS */
  786.   # endif
  787.       if (len <= 0 && !got_int)
  788.       read_error_exit();
  789. --- 1737,1742 ----
  790. *** ../vim61.368/src/version.c    Sun Mar  9 14:01:01 2003
  791. --- src/version.c    Sun Mar  9 14:03:53 2003
  792. ***************
  793. *** 613,614 ****
  794. --- 613,616 ----
  795.   {   /* Add new patch number below this line */
  796. + /**/
  797. +     369,
  798.   /**/
  799.  
  800. -- 
  801. I think that you'll agree that engineers are very effective in their social
  802. interactions.  It's the "normal" people who are nuts.
  803.                 (Scott Adams - The Dilbert principle)
  804.  
  805.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  806. ///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
  807. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  808.  \\\     Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///
  809.