diff options
author | Eduardo Chappa <echappa@gmx.com> | 2013-02-03 00:59:38 -0700 |
---|---|---|
committer | Eduardo Chappa <echappa@gmx.com> | 2013-02-03 00:59:38 -0700 |
commit | 094ca96844842928810f14844413109fc6cdd890 (patch) | |
tree | e60efbb980f38ba9308ccb4fb2b77b87bbc115f3 /imap/src/osdep/tops-20/env_t20.c | |
download | alpine-094ca96844842928810f14844413109fc6cdd890.tar.xz |
Initial Alpine Version
Diffstat (limited to 'imap/src/osdep/tops-20/env_t20.c')
-rw-r--r-- | imap/src/osdep/tops-20/env_t20.c | 226 |
1 files changed, 226 insertions, 0 deletions
diff --git a/imap/src/osdep/tops-20/env_t20.c b/imap/src/osdep/tops-20/env_t20.c new file mode 100644 index 00000000..38403454 --- /dev/null +++ b/imap/src/osdep/tops-20/env_t20.c @@ -0,0 +1,226 @@ +/* ======================================================================== + * Copyright 1988-2006 University of Washington + * + * Licensed under the Apache License, Version 2.0 (the "License"); + * you may not use this file except in compliance with the License. + * You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * + * ======================================================================== + */ + +/* + * Program: Environment routines -- TOPS-20 version + * + * Author: Mark Crispin + * Networks and Distributed Computing + * Computing & Communications + * University of Washington + * Administration Building, AG-44 + * Seattle, WA 98195 + * Internet: MRC@CAC.Washington.EDU + * + * Date: 1 August 1988 + * Last Edited: 30 August 2006 + */ + + +/* Dedication: + * This file is dedicated with affection to the TOPS-20 operating system, which + * set standards for user and programmer friendliness that have still not been + * equaled by more `modern' operating systems. + * Wasureru mon ka!!!! + */ + +/* c-client environment parameters */ + +static char *myUserName = NIL; /* user name */ +static char *myHomeDir = NIL; /* home directory name */ +static char *myLocalHost = NIL; /* local host name */ +static char *myNewsrc = NIL; /* newsrc file name */ +static short no822tztext = NIL; /* disable RFC [2]822 timezone text */ + + +#include "pmatch.c" /* include wildcard pattern matcher */ + +/* Environment manipulate parameters + * Accepts: function code + * function-dependent value + * Returns: function-dependent return value + */ + +void *env_parameters (long function,void *value) +{ + void *ret = NIL; + switch ((int) function) { + case SET_USERNAME: + if (myUserName) fs_give ((void **) &myUserName); + myUserName = cpystr ((char *) value); + case GET_USERNAME: + ret = (void *) myUserName; + break; + case SET_HOMEDIR: + if (myHomeDir) fs_give ((void **) &myHomeDir); + myHomeDir = cpystr ((char *) value); + case GET_HOMEDIR: + ret = (void *) myHomeDir; + break; + case SET_LOCALHOST: + if (myLocalHost) fs_give ((void **) &myLocalHost); + myLocalHost = cpystr ((char *) value); + case GET_LOCALHOST: + ret = (void *) myLocalHost; + break; + case SET_NEWSRC: + if (myNewsrc) fs_give ((void **) &myNewsrc); + myNewsrc = cpystr ((char *) value); + case GET_NEWSRC: + ret = (void *) myNewsrc; + break; + case SET_DISABLE822TZTEXT: + no822tztext = value ? T : NIL; + case GET_DISABLE822TZTEXT: + ret = (void *) (no822tztext ? VOIDT : NIL); + break; + } + return ret; +} + +/* Write current time in RFC 822 format + * Accepts: destination string + */ + +void rfc822_date (char *date) +{ + char *s; + int argblk[4]; + argblk[1] = (int) (date-1); + argblk[2] = -1; /* time now */ + argblk[3] = OT_822; /* want RFC [2]822 format */ + jsys (ODTIM,argblk); + /* suppress time zone text if desired */ + if (no822tztext && (s = strstr (date," ("))) *s = NIL; +} + + +/* Write current time in internal format + * Accepts: destination string + */ + +void internal_date (char *date) +{ + int argblk[5]; + argblk[1] = (int) (date-1); + argblk[2] = -1; /* time now */ + argblk[3] = OT_4YR; /* output in 4-digit year format */ + jsys (ODTIM,argblk); + argblk[2] = ' '; /* delimit with space */ + jsys (BOUT,argblk); + argblk[2] = -1; /* time now */ + argblk[4] = 0; /* no flags */ + jsys (ODCNV,argblk); /* get time zone */ + argblk[2] = ((argblk[4] & 077000000) >> 18) * -100; + /* add an hour if summer time */ + if (argblk[4] & IC_ADS) argblk[2] += 100; + argblk[3] = 0340005000012; + jsys (NOUT,argblk); +} + +/* Return my user name + * Accepts: pointer to optional flags + * Returns: my user name + */ + +char *myusername_full (unsigned long *flags) +{ + if (!myUserName) { /* get user name if don't have it yet */ + char tmp[MAILTMPLEN]; + int argblk[5],i; + jsys (GJINF,argblk); /* get job poop */ + if (!(i = argblk[1])) { /* remember user number */ + if (flags) *flags = MU_NOTLOGGEDIN; + return "SYSTEM"; /* not logged in */ + } + argblk[1] = (int) (tmp-1); /* destination */ + argblk[2] = i; /* user number */ + jsys (DIRST,argblk); /* get user name string */ + myUserName = cpystr (tmp); /* copy user name */ + argblk[1] = 0; /* no flags */ + argblk[2] = i; /* user number */ + argblk[3] = 0; /* no stepping */ + jsys (RCDIR,argblk); /* get home directory */ + argblk[1] = (int) (tmp-1); /* destination */ + argblk[2] = argblk[3]; /* home directory number */ + jsys (DIRST,argblk); /* get home directory string */ + myHomeDir = cpystr (tmp); /* copy home directory */ + if (!myNewsrc) { /* set news file name if not defined */ + sprintf (tmp,"%sNEWSRC",myhomedir ()); + myNewsrc = cpystr (tmp); + } + if (flags) *flags = MU_LOGGEDIN; + } + return myUserName; +} + +/* Return my local host name + * Returns: my local host name + */ + +char *mylocalhost () +{ + if (!myLocalHost) { /* initialize if first time */ + char tmp[MAILTMPLEN]; + int argblk[5]; + argblk[1] = _GTHNS; /* convert number to string */ + argblk[2] = (int) (tmp-1); + argblk[3] = -1; /* want local host */ + if (!jsys (GTHST,argblk)) strcpy (tmp,"LOCAL"); + myLocalHost = cpystr (tmp); + } + return myLocalHost; +} + + +/* Return my home directory name + * Returns: my home directory name + */ + +char *myhomedir () +{ + if (!myHomeDir) myusername ();/* initialize if first time */ + return myHomeDir ? myHomeDir : ""; +} + + +/* Determine default prototype stream to user + * Accepts: type (NIL for create, T for append) + * Returns: default prototype stream + */ + +MAILSTREAM *default_proto (long type) +{ + return NIL; /* no default prototype */ +} + +/* Emulator for BSD syslog() routine + * Accepts: priority + * message + * parameters + */ + +void syslog (int priority,const char *message,...) +{ +} + + +/* Emulator for BSD openlog() routine + * Accepts: identity + * options + * facility + */ + +void openlog (const char *ident,int logopt,int facility) +{ +} |