home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / archivers / arcppc / srcpup.lha / srcpup / getwd.c next >
C/C++ Source or Header  |  1998-04-08  |  424b  |  31 lines
  1. /* by Andreas R. Kleinert in 1998 */
  2.  
  3. #include <stdio.h>
  4. #include <stdlib.h>
  5. #include <string.h>
  6.  
  7. #include <dos/dosextens.h>
  8. #include <proto/dos.h>
  9.  
  10. char *getwd(char *dirname)
  11. {
  12.  BPTR lock;
  13.  char *name;
  14.  
  15.  name = malloc(256);
  16.  if(name)
  17.   {
  18.    if(!stricmp(".", dirname)) dirname = "";
  19.  
  20.    lock = Lock(dirname, ACCESS_READ);
  21.    if(lock)
  22.     {
  23.      NameFromLock(lock, name, 255);
  24.      UnLock(lock);
  25.     }
  26.   }
  27.  
  28.  return(name);
  29. }
  30.  
  31.