egcs-980122: openVMS/Alpha patch for cccp.c

[Klaus Kaempf]

VMS library routines are defined as upper-case in the library.

Thu Jan 28 13:00:09 1998  Klaus Kaempf  <kkaempf@progis.de>

	* cccp.c (SYS$SEARCH, SYS$PARSE): write as upper-case.

===================================================================
RCS file: RCS/cccp.c,v
retrieving revision 1.1
diff -c -r1.1 cccp.c
*** cccp.c	1998/01/29 10:29:45	1.1
--- cccp.c	1998/01/29 10:30:41
***************
*** 10259,10265 ****
  #include <fab.h>
  #include <nam.h>
  
! extern unsigned long sys$parse(), sys$search();
  
  /* Work around another library bug.  If a file is located via a searchlist,
     and if the device it's on is not the same device as the one specified
--- 10259,10265 ----
  #include <fab.h>
  #include <nam.h>
  
! extern unsigned long SYS$PARSE(), SYS$SEARCH();
  
  /* Work around another library bug.  If a file is located via a searchlist,
     and if the device it's on is not the same device as the one specified
***************
*** 10306,10313 ****
      {
        struct FAB fab;
        struct NAM nam;
!       char exp_nam[NAM$C_MAXRSS+1],  /* expanded name buffer for sys$parse */
! 	   res_nam[NAM$C_MAXRSS+1];  /* resultant name buffer for sys$search */
  
        fab = cc$rms_fab;
        fab.fab$l_fna = (char *) name;
--- 10306,10313 ----
      {
        struct FAB fab;
        struct NAM nam;
!       char exp_nam[NAM$C_MAXRSS+1],  /* expanded name buffer for SYS$PARSE */
! 	   res_nam[NAM$C_MAXRSS+1];  /* resultant name buffer for SYS$SEARCH */
  
        fab = cc$rms_fab;
        fab.fab$l_fna = (char *) name;
***************
*** 10317,10325 ****
        nam.nam$l_esa = exp_nam,  nam.nam$b_ess = sizeof exp_nam - 1;
        nam.nam$l_rsa = res_nam,  nam.nam$b_rss = sizeof res_nam - 1;
        nam.nam$b_nop = NAM$M_PWD | NAM$M_NOCONCEAL;
!       if (sys$parse (&fab) & 1)
  	{
! 	  if (sys$search (&fab) & 1)
  	    {
  	      res_nam[nam.nam$b_rsl] = '\0';
  	      result = stat (res_nam, statbuf);
--- 10317,10325 ----
        nam.nam$l_esa = exp_nam,  nam.nam$b_ess = sizeof exp_nam - 1;
        nam.nam$l_rsa = res_nam,  nam.nam$b_rss = sizeof res_nam - 1;
        nam.nam$b_nop = NAM$M_PWD | NAM$M_NOCONCEAL;
!       if (SYS$PARSE (&fab) & 1)
  	{
! 	  if (SYS$SEARCH (&fab) & 1)
  	    {
  	      res_nam[nam.nam$b_rsl] = '\0';
  	      result = stat (res_nam, statbuf);
***************
*** 10327,10333 ****
  	  /* Clean up searchlist context cached by the system.  */
  	  nam.nam$b_nop = NAM$M_SYNCHK;
  	  fab.fab$l_fna = 0,  fab.fab$b_fns = 0;
! 	  (void) sys$parse (&fab);
  	}
      }
  
--- 10327,10333 ----
  	  /* Clean up searchlist context cached by the system.  */
  	  nam.nam$b_nop = NAM$M_SYNCHK;
  	  fab.fab$l_fna = 0,  fab.fab$b_fns = 0;
! 	  (void) SYS$PARSE (&fab);
  	}
      }
  

-- 
proGIS Software                 E-Mail: kkaempf@progis.de
Dipl.-Inform. Klaus K"ampf      Fax:    0241-47067-29
Jakobstr. 117                   Voice:  0241-47067-11
D-52064 Aachen                  WWW:	http://www.progis.de