1 /* RCS $Id: switchar.c,v 1.1.1.1 2000-09-22 15:33:36 hr Exp $
7 -- Figure out the value of switchar.
10 -- Dennis Vadura, dvadura@dmake.wticorp.com
13 -- http://dmake.wticorp.com/
16 -- Copyright (c) 1996,1997 by WTI Corp. All rights reserved.
18 -- This program is NOT free software; you can redistribute it and/or
19 -- modify it under the terms of the Software License Agreement Provided
20 -- in the file <distribution-root>/readme/license.txt.
23 -- Use cvs log to obtain detailed change logs.
32 Try the environment first. If you don't find SWITCHAR there, then use
33 the DOS call. The call is undocumented, and doesn't work for DOS versions
34 4.0 and up, so the check of the environment will fix that. */
36 static char *_env_switchar
= NIL(char);
38 if( _env_switchar
!= NIL(char) ||
39 (_env_switchar
= (char *)getenv("SWITCHAR")) != NIL(char) )
40 return(*_env_switchar
);