home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19922 < prev    next >
Encoding:
Internet Message Format  |  1992-12-27  |  6.4 KB
  1. Path: sparky!uunet!gatech!enterpoop.mit.edu!eru.mt.luth.se!kth.se!news.kth.se!LEVITTE
  2. From: LEVITTE@e.kth.se (Richard Levitte)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Bug in VMS_SHARE 8.1, with patch.
  5. Message-ID: <LEVITTE.92Dec27105341@elmer.e.kth.se>
  6. Date: 27 Dec 92 09:53:41 GMT
  7. References: <LEVITTE.92Dec21124419@elmer.e.kth.se>
  8. Sender: usenet@kth.se (Usenet)
  9. Organization: Department of TeleTransmission Theory
  10. Lines: 119
  11. In-Reply-To: LEVITTE@e.kth.se's message of Mon, 21 Dec 1992 11:44:19 GMT
  12. Nntp-Posting-Host: elmer.e.kth.se
  13.  
  14. Of course, I goofed. My previous patch added .DIR files to the archive,
  15. which restored them as bogus.
  16.  
  17. Here is the original bug I claim to fix:
  18.  
  19. While trying to package my Emacs patches, I noticed VMS_SHARE wouldn't
  20. take files with an empty file type (like FOO.;1). I tracked down the bug
  21. and made a small change. The patch is included below.
  22.  
  23. I wanted to send this to the author, Andy Harper, but I couldn't find
  24. his address among the files, soo.... Andy, are you listening? Please add
  25. your address somewhere in the docs!
  26.  
  27. And here are the working patches:
  28.  
  29. *** public:[vms_share]vms_share.com
  30. --- vms_share.com
  31. **************
  32. *** 123,132
  33.   $ PackageIdx= f$edit(f$trnlnm("SHARE_PACKAGE_INDEX"), "TRIM,COMPRESS")
  34.   $ Part_Size = f$edit(f$trnlnm("SHARE_PART_SIZE"),     "TRIM,COMPRESS")
  35.   $ Real_Name = f$edit(f$trnlnm("SHARE_REAL_NAME"),     "TRIM,COMPRESS")
  36. ! $ X_Files   = f$edit(f$trnlnm("SHARE_EXCLUDE_FILES"), "TRIM,UPCASE")+","
  37. ! $ X_Dirs    = f$edit(f$trnlnm("SHARE_EXCLUDE_DIRS"),  "TRIM,UPCASE")+","
  38. ! $ X_Names   = f$edit(f$trnlnm("SHARE_EXCLUDE_NAMES"), "TRIM,UPCASE")+","
  39. ! $ X_Types   = f$edit(f$trnlnm("SHARE_EXCLUDE_TYPES"), "TRIM,UPCASE")+",.DIR,"
  40.   $ TempFile  = f$parse("SHARE_TEMP","SYS$SCRATCH:SHARE_TEMP."+f$getjpi("","PID"))
  41.   $ TempFile  = TempFile - f$parse(TempFile,,,"VERSION")
  42.   $
  43. --- 123,136 -----
  44.   $ PackageIdx= f$edit(f$trnlnm("SHARE_PACKAGE_INDEX"), "TRIM,COMPRESS")
  45.   $ Part_Size = f$edit(f$trnlnm("SHARE_PART_SIZE"),     "TRIM,COMPRESS")
  46.   $ Real_Name = f$edit(f$trnlnm("SHARE_REAL_NAME"),     "TRIM,COMPRESS")
  47. ! $ X_Files   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_FILES"), "TRIM,UPCASE")+","
  48. ! $ X_Dirs    = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_DIRS"),  "TRIM,UPCASE")+","
  49. ! $ X_Names   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_NAMES"), "TRIM,UPCASE")+","
  50. ! $ X_Types   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_TYPES"), "TRIM,UPCASE")+",.DIR,"
  51. ! $ if X_Files .eqs. ",," then X_Files = ","
  52. ! $ if X_Dirs .eqs. ",," then X_Dirs = ","
  53. ! $ if X_Names .eqs. ",," then X_Names = ","
  54. ! $ if X_Types .eqs. ",,.DIR," then X_Types = ",.DIR,"
  55.   $ TempFile  = f$parse("SHARE_TEMP","SYS$SCRATCH:SHARE_TEMP."+f$getjpi("","PID"))
  56.   $ TempFile  = TempFile - f$parse(TempFile,,,"VERSION")
  57.   $
  58. **************
  59. *** 555,561
  60.   $
  61.   $! Check the exclusion clauses to see if we should consider this file
  62.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  63. ! $ if f$locate(File_Dir,X_Dirs)       .ne. f$length(X_Dirs)  then $ return
  64.   $ File_Name = f$parse(File,,,"NAME")
  65.   $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  66.   $ File_Type = f$parse(File,,,"TYPE") 
  67. --- 559,565 -----
  68.   $
  69.   $! Check the exclusion clauses to see if we should consider this file
  70.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  71. ! $ if f$locate(","+File_Dir+",",X_Dirs)   .ne. f$length(X_Dirs)  then $ return
  72.   $ File_Name = f$parse(File,,,"NAME")
  73.   $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  74.   $ File_Type = f$parse(File,,,"TYPE") 
  75. **************
  76. *** 557,563
  77.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  78.   $ if f$locate(File_Dir,X_Dirs)       .ne. f$length(X_Dirs)  then $ return
  79.   $ File_Name = f$parse(File,,,"NAME")
  80. ! $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  81.   $ File_Type = f$parse(File,,,"TYPE") 
  82.   $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  83.   $ File_Filename = File_Name + File_Type
  84. --- 561,567 -----
  85.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  86.   $ if f$locate(","+File_Dir+",",X_Dirs)   .ne. f$length(X_Dirs)  then $ return
  87.   $ File_Name = f$parse(File,,,"NAME")
  88. ! $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  89.   $ File_Type = f$parse(File,,,"TYPE") 
  90.   $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  91.   $ File_Filename = File_Name + File_Type
  92. **************
  93. *** 559,565
  94.   $ File_Name = f$parse(File,,,"NAME")
  95.   $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  96.   $ File_Type = f$parse(File,,,"TYPE") 
  97. ! $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  98.   $ File_Filename = File_Name + File_Type
  99.   $ if f$locate(File_FileName,X_Files) .ne. f$length(X_Files) then $ return
  100.   $ File_Device   = f$parse(File,,,"DEVICE")
  101. --- 563,569 -----
  102.   $ File_Name = f$parse(File,,,"NAME")
  103.   $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  104.   $ File_Type = f$parse(File,,,"TYPE") 
  105. ! $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  106.   $ File_Filename = File_Name + File_Type
  107.   $ if f$locate(","+File_FileName+",",X_Files) .ne. f$length(X_Files) then $ return
  108.   $ File_Device   = f$parse(File,,,"DEVICE")
  109. **************
  110. *** 561,567
  111.   $ File_Type = f$parse(File,,,"TYPE") 
  112.   $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  113.   $ File_Filename = File_Name + File_Type
  114. ! $ if f$locate(File_FileName,X_Files) .ne. f$length(X_Files) then $ return
  115.   $ File_Device   = f$parse(File,,,"DEVICE")
  116.   $ Dir_Device    = f$parse(Current_Directory,,,"DEVICE")
  117.   $ Dir_Directory = f$parse(Current_Directory,,,"DIRECTORY")
  118. --- 565,571 -----
  119.   $ File_Type = f$parse(File,,,"TYPE") 
  120.   $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  121.   $ File_Filename = File_Name + File_Type
  122. ! $ if f$locate(","+File_FileName+",",X_Files) .ne. f$length(X_Files) then $ return
  123.   $ File_Device   = f$parse(File,,,"DEVICE")
  124.   $ Dir_Device    = f$parse(Current_Directory,,,"DEVICE")
  125.   $ Dir_Directory = f$parse(Current_Directory,,,"DIRECTORY")
  126. --
  127. !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
  128. ! Richard Levitte, VMS GNU Emacs hacker   ! tel: int+46-8-18 30 99            !
  129. ! Sulv"agen 57, II                        ! fax: none for the moment          !
  130. ! S-126 40 H"agersten                     ! Internet: levitte@e.kth.se        !
  131. ! SWEDEN                                  !                                   !
  132. !-----------------------------------------------------------------------------!
  133.