Patches for OpenVMS

Hi All,

Later today I will commit the following patches. They are in the OpenVMS
specific files only. They repair make/compilation and filename handling
problems on OpenVMS.


             Jouk






$DISK5:[JOUKJ.TEST]dif.list;4
 
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]vms_x_fix.h;3
  174   #define XInitImage XINITIMAGE
  175   #define XInstallColormap XINSTALLCOLORMAP
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]vms_x_fix.h;2
  174   #define XInstallColormap XINSTALLCOLORMAP
************

Number of difference sections found: 1
Number of difference records found: 1

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=$DISK5:[JOUKJ.TEST]dif.list;4-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]vms_x_fix.h;3-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]vms_x_fix.h;2
 
$DISK5:[JOUKJ.TEST]dif.list;3
 
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46
  223      int tdlen;
  224      int flen[1];
  225   
  226      if (!gp_file_name_is_absolute(prefix, strlen(prefix)) &&
  227   	gp_gettmpdir(tmpdir, &tdlen) == 0) {
  228         flen[0] = gp_file_name_sizeof;
  229   	if (gp_file_name_combine(tmpdir, tdlen, prefix, strlen(prefix),
  230   			     false, fname, flen ) != gp_combine_success ) {
  231   	    return NULL;
  232   	}
  233          fname[ *flen ] = 0;
  234       } else {
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
  223   
  224       if (!gp_file_name_is_absolute(prefix, strlen(prefix)) &&
  225   	gp_gettmpdir(tmpdir, &tdlen) == 0) {
  226   	if (gp_file_name_combine(tmpdir, tdlen, prefix, strlen(prefix),
  227   			     false, fname, gp_file_name_sizeof)) {
  228   	    return NULL;
  229   	}
  230       } else {
************
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46
  240      mktemp(fname);
  241       f = fopen(fname, mode);
  242      
  243       if (f == NULL)
  244   	eprintf1("**** Could not open temporary file %s\n", fname);
  245      return f;
  246   }
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
  236       mktemp(fname);
  237       f = fopen(fname, mode);
  238       if (f == NULL)
  239   	eprintf1("**** Could not open temporary file %s\n", fname);
  240   }
************
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46
  520     
  521      if ( plen > 0 && prefix[plen-1] == '\0' )
  522        plen--;
  523      
  524       if (plen == 0 && flen == 0) {
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
  514   
  515       if (plen == 0 && flen == 0) {
************
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46
  572   	char* tmp_prefix;
  573   	int tmp_plen;
  574   	
  575   	if ( prefix[0] == '/' )
  576   	  {
  577   	     tmp_prefix = prefix + 1;
  578   	     tmp_plen = plen - 1;
  579   	  }
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
  563   	if (plen + flen + 2 > *blen)
  564   	    return gp_combine_small_buffer;
  565   	memcpy(buffer, prefix, plen);
  566   	memcpy(buffer + plen , ":" , 1 );
  567   	memcpy(buffer + plen + 1, fname, flen);
  568   	if ( memchr( fname , '.' , flen ) != 0 )
  569   	  {
  570   	     buffer[plen + flen + 1] = 0;
  571   	     *blen = plen + flen + 1;
  572   	  }
************
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46
  582   	     tmp_prefix = prefix;
  583   	     tmp_plen = plen;
  584   	  }
  585   	if ( tmp_plen + flen + 2 > *blen)
  586   	    return gp_combine_small_buffer;
  587   	memcpy(buffer, tmp_prefix, tmp_plen);
  588   	memcpy(buffer + tmp_plen , ":" , 1 );
  589   	memcpy(buffer + tmp_plen + 1, fname, flen);
  590   	if ( memchr( fname , '.' , flen ) != 0 )
  591   	  {
  592   	     buffer[ tmp_plen + flen + 1] = 0;
  593   	     *blen = tmp_plen + flen + 1;
  594   	  }
  595   	else
  596   	  {
  597   	     memcpy(buffer + tmp_plen + flen + 1 , "." , 1 );
  598   	     buffer[ tmp_plen + flen + 2] = 0;
  599   	     *blen = tmp_plen + flen + 2;
  600   	  }
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
  575   	     memcpy(buffer + plen + flen + 1 , "." , 1 );
  576   	     buffer[plen + flen + 2] = 0;
  577   	     *blen = plen + flen + 2;
  578   	  }
************

Number of difference sections found: 5
Number of difference records found: 48

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=$DISK5:[JOUKJ.TEST]dif.list;3-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;46-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]gp_vms.c;15
 
$DISK5:[JOUKJ.TEST]dif.list;2
 
************
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]openvms.mmk;10
  456   JBIG2_EXTRA_OBJS=$(JBIG2OBJDIR)$(D)snprintf.$(OBJ)
  457   .include $(GLSRCDIR)jbig2.mak
******
File $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]openvms.mmk;9
  456   JBIG2_EXTRA_OBJS=$(JBIG2OBJDIR)$(D)vsnprintf.$(OBJ)
  457   .include $(GLSRCDIR)jbig2.mak
************

Number of difference sections found: 1
Number of difference records found: 1

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=$DISK5:[JOUKJ.TEST]dif.list;2-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]openvms.mmk;10-
    $DISK4:[JOUKJ.PUBLIC.GHOST.gs.gs.src]openvms.mmk;9


Bush : All votes are equal but some votes are more equal than others.

>------------------------------------------------------------------------------<

  Jouk Jansen
		 
  [email protected]

  Technische Universiteit Delft        tttttttttt  uu     uu  ddddddd
  Nationaal centrum voor HREM          tttttttttt  uu     uu  dd    dd
  Rotterdamseweg 137                       tt      uu     uu  dd     dd
  2628 AL Delft                            tt      uu     uu  dd     dd
  Nederland                                tt      uu     uu  dd    dd
  tel. 31-15-2782272                       tt       uuuuuuu   ddddddd

>------------------------------------------------------------------------------<