home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / amigem.lha / amigem / dos / files.c next >
Encoding:
Text File  |  1994-12-25  |  436 b   |  28 lines
  1.  
  2. FD2(5,BPTR,Open,STRPTR name,D1,LONG accessMode,D2)
  3. {
  4.   struct TagItem nt[1];
  5.   BPTR fh;
  6.   BPTR dir=NULL;
  7.   ULONG l;
  8.  
  9.   l=strlen(name);
  10.   if(!(n=(UBYTE *)Allocvec(l+BSTROFFSET+1,MEMF_PUBLIC)))
  11.   {
  12.     SetIoErr(ERROR_NO_FREE_STORE);
  13.     return NULL;
  14.   }
  15.   n++;
  16.  
  17.   CopyMem(name,n,l+1);  
  18.   *PathPart(n)=0;
  19.   dir=Lock(n,ACCESS_READ);
  20.  
  21.   CopyMem(name,n,l+1);
  22.   
  23.   
  24.   
  25.   nt[0].ti_Tag=TAG_END;
  26.   fh=(BPTR)AllocDosObject(DOS_FILEHANDLE,nt);
  27. }
  28.