home *** CD-ROM | disk | FTP | other *** search
- /* genv.c
-
-
-
- copyright (C) 1987 Stuart Lynne
-
- Copying and use of this program are controlled by the terms of the
- Free Software Foundations GNU Emacs General Public License.
-
-
- version 0.1 March 31/1987
-
-
-
- */
-
- #ifdef UNIX
- #include <sys/types.h>
- #endif
- #ifdef slmacaztec
- #include <mac/types.h>
- #endif
-
- #include <stdio.h>
-
- #include "genv.h"
-
- #define DMAILBOX "mailbox"
- #define DNAME ""
- #define DHOME "/usr/guest"
- #define DDOMAIN "pc.uucp"
- #define DMAILDIR "/usr/mail"
- #define DCONFDIR "/usr/lib/uucp"
- #define DSPOOLDIR "/usr/spool/uucp"
- #define DPUBDIR "/usr/spool/uucppublic"
- #define DMAILSERVICE "host"
- #define DNODENAME ""
- #define DDEVICE ".a"
- #define DSPEED "1200"
- #define DTEMPDIR "/tmp"
-
-
- #define TFILENAME "tmpfile"
- #define FILENAME "%s/%s"
-
- char *getenv();
-
- void genv();
-
- #ifdef SLAZTECMAC
-
- char rmailbox[64];
- char rname[64];
- char rhome[64];
- char rdomain[64];
- char rmaildir[64];
- char rconfdir[64];
- char rspooldir[64];
- char rpubdir[64];
- char rmailserv[16];
- char rnodename[16];
- char rdevice[16];
- char rspeed[8];
- char rtempdir[64];
-
- char *mailbox = rmailbox;
- char *name = rname;
- char *home = rhome;
- char *domain = rdomain;
- char *maildir = rmaildir;
- char *confdir = rconfdir;
- char *spooldir = rspooldir;
- char *pubdir = rpubdir;
- char *mailserv = rmailserv;
- char *nodename = rnodename;
- char *device = rdevice;
- char *speed = rspeed;
- char *tempdir = rtempdir;
-
-
- void genv(thename, envname, dflt)
- char **thename;
- char *envname;
- char *dflt;
- {
- char * temp;
-
- if ((temp = getenv( envname )) == NULL) {
- /* fprintf( stderr, "genv: %s not found, using %s\n", envname, dflt ); /* */
- temp = dflt;
- }
- strcpy( *thename, temp );
- /* fprintf( stderr, "genv: %s %s\n", envname, *thename ); /**/
- }
- #else
-
- char *mailbox;
- char *name;
- char *domain;
- char *maildir;
- char *spooldir;
- char *pubdir;
- char *confdir;
- char *mailserv;
-
- void genv(thename, envname, dflt)
- char **thename;
- char *envname;
- char *dflt;
- {
- if ((*thename = getenv( envname )) == NULL) {
- fprintf( stderr, "genv: %s not found, using %s\n", envname, dflt );
- *thename = dflt;
- }
- /* fprintf( stderr, "genv: %s %s\n", envname, *thename ); /**/
- }
- #endif
-
- void loadenv()
- {
- /* get environment var's */
- genv( &name, NAME, DNAME );
- genv( &mailbox, MAILBOX, DMAILBOX );
- genv( &home, HOME, DHOME );
- genv( &domain, DOMAIN, DDOMAIN );
- genv( &maildir, MAILDIR, DMAILDIR );
- genv( &confdir, CONFDIR, DCONFDIR );
- genv( &spooldir, SPOOLDIR, DSPOOLDIR );
- genv( &pubdir, PUBDIR, DPUBDIR );
- genv( &mailserv, MAILSERVICE, DMAILSERVICE );
- genv( &nodename, NODENAME, DNODENAME );
- genv( &device, DEVICE, DDEVICE );
- genv( &speed, SPEED, DSPEED );
- genv( &tempdir, TEMPDIR, DTEMPDIR );
- }
-
- void mkfilename( filename, dirname, name )
- char * filename;
- char * dirname;
- char * name;
- {
- sprintf( filename, FILENAME, dirname, name );
- /* fprintf( stderr, "New filename %s\n", filename ); /**/
- }
-
-
- #ifdef TEST
- main()
- {
- loadenv();
- }
- #endif
-
-