home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / SCHINKEL.ZIP / INDEXDIR.PRG < prev    next >
Encoding:
Text File  |  1990-05-17  |  882 b   |  28 lines
  1. /*
  2.    INDEXDIR.PRG - Function returns the name of a index file directory.
  3.  
  4.    INDEXDIR() returns a path spec for storing index 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.    "INDEXDIR"
  9.  
  10.    SWITCHES: /n /w /m
  11.  
  12.    Copyright (c) 1990; The DSW Group, Ltd.
  13.    All Rights Reserved
  14.  
  15. */
  16. *...........................................................................
  17. // IndexDir() -> cPathSpecForIndexFiles
  18.  
  19. FUNC IndexDir()
  20. STATIC cPathSpec
  21.    IF (cPathSpec==NIL)               // Only do this the first time
  22.       cPathSpec:= GETE("INDEXDIR")    // Get the path from DOS env
  23.    ENDIF
  24. RETURN(cPathSpec)
  25.  
  26. *...........................................................................
  27. * EOF: INDEXDIR.PRG
  28.