home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / SCHINKEL.ZIP / DATADIR.PRG < prev    next >
Encoding:
Text File  |  1990-05-17  |  876 b   |  28 lines
  1. /*
  2.    DATADIR.PRG - Function returns the name of a database file directory.
  3.  
  4.    DATADIR() returns a path spec for storing database files.
  5.    The idea behind this function is to provide an encapsulated
  6.    reference to the directory where your data files will be stored.
  7.    It *CURRENTLY* returns the value of the DOS environmental variable
  8.    "DATADIR"
  9.  
  10.    SWITCHES: /n /w /m
  11.  
  12.    Copyright (c) 1990; The DSW Group, Ltd.
  13.    All Rights Reserved
  14.  
  15. */
  16. *...........................................................................
  17. // DataDir() -> cPathSpecForDataFiles
  18.  
  19. FUNC DataDir()
  20. STATIC pathspec
  21.    IF (pathspec==NIL)               // Only do this the first time
  22.       pathspec:= GETE("DATADIR")    // Get the path from DOS env
  23.    ENDIF
  24. RETURN(pathspec)
  25.  
  26. *...........................................................................
  27. * EOF: DATADIR.PRG
  28.