home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / PROCS.ZIP / DOSFILES.ICN < prev    next >
Encoding:
Text File  |  1992-09-28  |  1.9 KB  |  66 lines
  1. ############################################################################
  2. #
  3. #    File:     dosfiles.icn
  4. #
  5. #    Subject:  Procedures to get MS-DOS file names
  6. #
  7. #    Author:   Paul Abrahams
  8. #
  9. #    Date:     September 24, 1990
  10. #
  11. ###########################################################################
  12. #
  13. #  dosfiles(pfn) accepts a DOS filename possibly containing wildcards.
  14. #  The filename can also include a drive letter and path.
  15. #  If the filename ends in "\" or ":", "*.*" is appended.
  16. # 
  17. #  The result sequence is a sequence of the filenames corresponding to pfn.
  18. # 
  19. ############################################################################
  20. #
  21. #  Requires: MS-DOS extensions
  22. #
  23. ############################################################################
  24.  
  25. procedure dosfiles(pfn)
  26.    local asciiz, fnr, prefix, k, name
  27.    local ds, dx, result, fnloc, string_block
  28.  
  29. # Get Disk Transfer Address; filename locn is 30 beyond that.
  30.  
  31.    result := Int86([16r21, 16r2f00] ||| list(7,0))
  32.    fnloc := 16 * result[8] + result[3]+ 30
  33.  
  34. # Get the generalized filename.
  35.  
  36.    fnr := reverse(pfn)
  37.    k := upto("\\:", fnr) | *fnr + 1
  38.    prefix := reverse(fnr[k:0])
  39.    name := "" ~== reverse(fnr[1:k]) | "*.*"
  40.  
  41. # Get the first file in the sequence.
  42.  
  43.    asciiz := prefix || name || "\x00"
  44.    Poke(string_block := GetSpace(*asciiz), asciiz)
  45.    ds := string_block / 16
  46.    dx := string_block % 16
  47.    result := Int86([16r21, 16r4e00, 0, 0, dx, 0, 0, 0, ds])
  48.    case result[2] of {
  49.       0 : {}
  50.       18 : fail
  51.       default : stop("i/o error ", result[2])
  52.       }
  53.    suspend prefix || extract_name(fnloc)
  54.  
  55. # Get the remaining files in the sequence.
  56.  
  57.    while Int86([16r21, 16r4f00, 0, 0, 0, 0, 0, 0, 0])[2] = 0 do
  58.       suspend prefix || extract_name(fnloc)
  59. end
  60.  
  61. procedure extract_name(fnloc)
  62.    local asciiz
  63.    asciiz := Peek(fnloc, 13)
  64.    return asciiz[1:upto("\x00", asciiz)]
  65. end
  66.