home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / useful / dist / dev / lang / ace / include / req.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-30  |  613 b   |  32 lines
  1. { return path and name of a file
  2.   via a WB 2.04 ASL file requester }
  3.  
  4. #include <stddef.h>
  5.  
  6. SUB request_file$
  7. declare function AllocFileRequest& library asl
  8. declare function FreeFileRequest library asl
  9. declare function RequestFile& library asl
  10.  
  11.  library asl
  12.  
  13.  FileReq&=AllocFileRequest
  14.  response&=RequestFile(FileReq&)
  15.  
  16.  if response& <> NULL then
  17.    file$=cstr(peekl(FileReq&+4))
  18.    dir$=cstr(peekl(FileReq&+8))
  19.    path$=dir$
  20.    if right$(dir$,1) <> ":" and dir$<>"" then path$=path$+"/"
  21.    path$=path$+file$
  22.  else
  23.    path$=""
  24.  end if
  25.  
  26.  FreeFileRequest(FileReq&)
  27.  
  28.  library close asl
  29.  
  30.  request_file$=path$
  31. END SUB
  32.