home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / thesource6.dms / thesource6.adf / Source / Compression / hcompress.lha / hcompress / vms / hcompinit.com < prev    next >
Encoding:
Text File  |  1992-04-24  |  734 b   |  26 lines
  1. $! hcompinit.com
  2. $!
  3. $! Initialize VMS symbols for hcompress, hdecompress image compression
  4. $! programs.
  5. $!
  6. $! R. White, 20 April 1992
  7. $!
  8. $! Determine where this procedure lives (assume that the command files
  9. $! and executables are in this same directory)
  10. $!
  11. $ shellfile=f$parse(f$environment("procedure"),,,,"NO_CONCEAL")-"]["
  12. $ hcompdir==f$extract(0,f$locate("]",shellfile),shellfile) + "]"
  13. $!
  14. $! executables are installed as VMS foreign commands
  15. $!
  16. $ hcomp:==$'hcompdir'hcomp
  17. $ hdecomp:==$'hcompdir'hdecomp
  18. $ modify:==$'hcompdir'modify
  19. $!
  20. $! command files have symbols defined too
  21. $!
  22. $ hcompress:==@'hcompdir'hcompress
  23. $ fcompress:==@'hcompdir'fcompress
  24. $ hdecompress:==@'hcompdir'hdecompress
  25. $ fdecompress:==@'hcompdir'hdecompress
  26.