home *** CD-ROM | disk | FTP | other *** search
- /*
-
- Routines for retrieving global variables from Clipper - Summer '87
-
- R. Whitt - 5/28/88
-
- */
-
-
- #include "nandef.h"
- #include "extend.h"
-
-
-
- /* Chracter & String Values */
-
-
- extern char _ldelim[];
- extern char _rdelim[];
- extern char _path[];
- extern char _default_drive[];
-
- CLIPPER ldelim()
- {
- _retclen( _ldelim, 1 );
- }
-
- CLIPPER rdelim()
- {
- _retclen( _rdelim, 1 );
- }
-
- CLIPPER getpath()
- {
- _retc( _path );
- }
-
- CLIPPER getdefa()
- {
- _retc( _default_drive );
- }