home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19634 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  5.9 KB
  1. Path: sparky!uunet!pipex!bnr.co.uk!uknet!mcsun!sunic!kth.se!news.kth.se!LEVITTE
  2. From: LEVITTE@e.kth.se (Richard Levitte)
  3. Newsgroups: comp.os.vms
  4. Subject: Bug in VMS_SHARE 8.1, with patch.
  5. Message-ID: <LEVITTE.92Dec21124419@elmer.e.kth.se>
  6. Date: 21 Dec 92 11:44:19 GMT
  7. Sender: usenet@kth.se (Usenet)
  8. Organization: Department of TeleTransmission Theory
  9. Lines: 109
  10. Nntp-Posting-Host: elmer.e.kth.se
  11.  
  12.  
  13. While trying to package my Emacs patches, I noticed VMS_SHARE wouldn't
  14. take files with an empty file type (like FOO.;1). I tracked down the bug
  15. and made a small change. The patch is included below.
  16.  
  17. I wanted to send this to the author, Andy Harper, but I couldn't find
  18. his address among the files, soo.... Andy, are you listening? Please add
  19. your address somewhere in the docs!
  20.  
  21. *** EMACS_DEVELOPMENT:[000000.VMS_SHARE]VMS_SHARE.COM;66
  22. --- vms_share.com
  23. **************
  24. *** 123,132
  25.   $ PackageIdx= f$edit(f$trnlnm("SHARE_PACKAGE_INDEX"), "TRIM,COMPRESS")
  26.   $ Part_Size = f$edit(f$trnlnm("SHARE_PART_SIZE"),     "TRIM,COMPRESS")
  27.   $ Real_Name = f$edit(f$trnlnm("SHARE_REAL_NAME"),     "TRIM,COMPRESS")
  28. ! $ X_Files   = f$edit(f$trnlnm("SHARE_EXCLUDE_FILES"), "TRIM,UPCASE")+","
  29. ! $ X_Dirs    = f$edit(f$trnlnm("SHARE_EXCLUDE_DIRS"),  "TRIM,UPCASE")+","
  30. ! $ X_Names   = f$edit(f$trnlnm("SHARE_EXCLUDE_NAMES"), "TRIM,UPCASE")+","
  31. ! $ X_Types   = f$edit(f$trnlnm("SHARE_EXCLUDE_TYPES"), "TRIM,UPCASE")+",.DIR,"
  32.   $ TempFile  = f$parse("SHARE_TEMP","SYS$SCRATCH:SHARE_TEMP."+f$getjpi("","PID"))
  33.   $ TempFile  = TempFile - f$parse(TempFile,,,"VERSION")
  34.   $
  35. --- 123,132 -----
  36.   $ PackageIdx= f$edit(f$trnlnm("SHARE_PACKAGE_INDEX"), "TRIM,COMPRESS")
  37.   $ Part_Size = f$edit(f$trnlnm("SHARE_PART_SIZE"),     "TRIM,COMPRESS")
  38.   $ Real_Name = f$edit(f$trnlnm("SHARE_REAL_NAME"),     "TRIM,COMPRESS")
  39. ! $ X_Files   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_FILES"), "TRIM,UPCASE")+","-",,"
  40. ! $ X_Dirs    = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_DIRS"),  "TRIM,UPCASE")+","-",,"
  41. ! $ X_Names   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_NAMES"), "TRIM,UPCASE")+","-",,"
  42. ! $ X_Types   = ","+f$edit(f$trnlnm("SHARE_EXCLUDE_TYPES"), "TRIM,UPCASE")+",.DIR,"-",,"
  43.   $ TempFile  = f$parse("SHARE_TEMP","SYS$SCRATCH:SHARE_TEMP."+f$getjpi("","PID"))
  44.   $ TempFile  = TempFile - f$parse(TempFile,,,"VERSION")
  45.   $
  46. **************
  47. *** 555,561
  48.   $
  49.   $! Check the exclusion clauses to see if we should consider this file
  50.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  51. ! $ if f$locate(File_Dir,X_Dirs)       .ne. f$length(X_Dirs)  then $ return
  52.   $ File_Name = f$parse(File,,,"NAME")
  53.   $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  54.   $ File_Type = f$parse(File,,,"TYPE") 
  55. --- 555,561 -----
  56.   $
  57.   $! Check the exclusion clauses to see if we should consider this file
  58.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  59. ! $ if f$locate(","+File_Dir+",",X_Dirs)   .ne. f$length(X_Dirs)  then $ return
  60.   $ File_Name = f$parse(File,,,"NAME")
  61.   $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  62.   $ File_Type = f$parse(File,,,"TYPE") 
  63. **************
  64. *** 557,563
  65.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  66.   $ if f$locate(File_Dir,X_Dirs)       .ne. f$length(X_Dirs)  then $ return
  67.   $ File_Name = f$parse(File,,,"NAME")
  68. ! $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  69.   $ File_Type = f$parse(File,,,"TYPE") 
  70.   $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  71.   $ File_Filename = File_Name + File_Type
  72. --- 557,563 -----
  73.   $ File_Dir  = f$parse(File,,,"DIRECTORY")
  74.   $ if f$locate(","+File_Dir+",",X_Dirs)   .ne. f$length(X_Dirs)  then $ return
  75.   $ File_Name = f$parse(File,,,"NAME")
  76. ! $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  77.   $ File_Type = f$parse(File,,,"TYPE") 
  78.   $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  79.   $ File_Filename = File_Name + File_Type
  80. **************
  81. *** 559,565
  82.   $ File_Name = f$parse(File,,,"NAME")
  83.   $ if f$locate(File_Name,X_Names)     .ne. f$length(X_Names) then $ return
  84.   $ File_Type = f$parse(File,,,"TYPE") 
  85. ! $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  86.   $ File_Filename = File_Name + File_Type
  87.   $ if f$locate(File_FileName,X_Files) .ne. f$length(X_Files) then $ return
  88.   $ File_Device   = f$parse(File,,,"DEVICE")
  89. --- 559,565 -----
  90.   $ File_Name = f$parse(File,,,"NAME")
  91.   $ if f$locate(","+File_Name+",",X_Names) .ne. f$length(X_Names) then $ return
  92.   $ File_Type = f$parse(File,,,"TYPE") 
  93. ! $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  94.   $ File_Filename = File_Name + File_Type
  95.   $ if f$locate(","+File_FileName+",",X_Files) .ne. f$length(X_Files) then $ return
  96.   $ File_Device   = f$parse(File,,,"DEVICE")
  97. **************
  98. *** 561,567
  99.   $ File_Type = f$parse(File,,,"TYPE") 
  100.   $ if f$locate(File_Type,X_Types)     .ne. f$length(X_Types) then $ return
  101.   $ File_Filename = File_Name + File_Type
  102. ! $ if f$locate(File_FileName,X_Files) .ne. f$length(X_Files) then $ return
  103.   $ File_Device   = f$parse(File,,,"DEVICE")
  104.   $ Dir_Device    = f$parse(Current_Directory,,,"DEVICE")
  105.   $ Dir_Directory = f$parse(Current_Directory,,,"DIRECTORY")
  106. --- 561,567 -----
  107.   $ File_Type = f$parse(File,,,"TYPE") 
  108.   $ if f$locate(","+File_Type+",",X_Types) .ne. f$length(X_Types) then $ return
  109.   $ File_Filename = File_Name + File_Type
  110. ! $ if f$locate(","+File_FileName+",",X_Files) .ne. f$length(X_Files) then $ return
  111.   $ File_Device   = f$parse(File,,,"DEVICE")
  112.   $ Dir_Device    = f$parse(Current_Directory,,,"DEVICE")
  113.   $ Dir_Directory = f$parse(Current_Directory,,,"DIRECTORY")
  114. --
  115. !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
  116. ! Richard Levitte, System manager         ! tel: int+46-8-790 64 23           !
  117. ! Royal Institute of Technology           ! fax: int+46-8-791 76 54           !
  118. ! Department of Telecommunication Theory  ! Internet: richard@ttt.kth.se      !
  119. ! S-100 44 Stockholm, Sweden              !                                   !
  120. !-----------------------------------------------------------------------------!
  121.