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/wce/env_wce.c | |
download | alpine-094ca96844842928810f14844413109fc6cdd890.tar.xz |
Initial Alpine Version
Diffstat (limited to 'imap/src/osdep/wce/env_wce.c')
-rw-r--r-- | imap/src/osdep/wce/env_wce.c | 301 |
1 files changed, 301 insertions, 0 deletions
diff --git a/imap/src/osdep/wce/env_wce.c b/imap/src/osdep/wce/env_wce.c new file mode 100644 index 00000000..ea2dbd98 --- /dev/null +++ b/imap/src/osdep/wce/env_wce.c @@ -0,0 +1,301 @@ +/* ======================================================================== + * 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: WCE environment routines + * + * 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 + */ + + +static char *myUserName = NIL; /* user name */ +static char *myLocalHost = NIL; /* local host name */ +static char *myClientHost = NIL;/* client host name */ +static char *myServerHost = NIL;/* server host name */ +static char *myHomeDir = NIL; /* home directory name */ +static char *myNewsrc = NIL; /* newsrc file name */ +static char *sysInbox = NIL; /* system inbox name */ +static long list_max_level = 5; /* maximum level of list recursion */ +static short no822tztext = NIL; /* disable RFC [2]822 timezone text */ + /* home namespace */ +static NAMESPACE nshome = {"",'\\',NIL,NIL}; + /* namespace list */ +static NAMESPACE *nslist[3] = {&nshome,NIL,NIL}; +static long alarm_countdown = 0;/* alarm count down */ +static void (*alarm_rang) (); /* alarm interrupt function */ +static unsigned int rndm = 0; /* initial `random' number */ + + +/* Dummy definitions to prevent errors */ + +#define server_login(user,pass,authuser,argc,argv) NIL +#define authserver_login(user,authuser,argc,argv) NIL +#define myusername() "" +#define MD5ENABLE "\\.nosuch.." + +#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 GET_NAMESPACE: + ret = (void *) nslist; + break; + case SET_HOMEDIR: + myHomeDir = cpystr ((char *) value); + case GET_HOMEDIR: + ret = (void *) myHomeDir; + break; + case SET_LOCALHOST: + 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: + if (!myNewsrc) { /* set news file name if not defined */ + char tmp[MAILTMPLEN]; + sprintf (tmp,"%s\\NEWSRC",myhomedir ()); + myNewsrc = cpystr (tmp); + } + ret = (void *) myNewsrc; + break; + case SET_SYSINBOX: + if (sysInbox) fs_give ((void **) &sysInbox); + sysInbox = cpystr ((char *) value); + case GET_SYSINBOX: + ret = (void *) sysInbox; + break; + case SET_LISTMAXLEVEL: + list_max_level = (long) value; + case GET_LISTMAXLEVEL: + ret = (void *) list_max_level; + break; + case SET_DISABLE822TZTEXT: + no822tztext = value ? T : NIL; + case GET_DISABLE822TZTEXT: + ret = (void *) (no822tztext ? VOIDT : NIL); + break; + } + return ret; +} + +/* Write current time + * Accepts: destination string + * optional format of day-of-week prefix + * format of date and time + * flag whether to append symbolic timezone + */ + +static void do_date (char *date,char *prefix,char *fmt,int suffix) +{ + time_t tn = time (0); + struct tm *t = gmtime (&tn); + int zone = t->tm_hour * 60 + t->tm_min; + int julian = t->tm_yday; + t = localtime (&tn); /* get local time now */ + /* minus UTC minutes since midnight */ + zone = t->tm_hour * 60 + t->tm_min - zone; + /* julian can be one of: + * 36x local time is December 31, UTC is January 1, offset -24 hours + * 1 local time is 1 day ahead of UTC, offset +24 hours + * 0 local time is same day as UTC, no offset + * -1 local time is 1 day behind UTC, offset -24 hours + * -36x local time is January 1, UTC is December 31, offset +24 hours + */ + if (julian = t->tm_yday -julian) + zone += ((julian < 0) == (abs (julian) == 1)) ? -24*60 : 24*60; + if (prefix) { /* want day of week? */ + sprintf (date,prefix,days[t->tm_wday]); + date += strlen (date); /* make next sprintf append */ + } + /* output the date */ + sprintf (date,fmt,t->tm_mday,months[t->tm_mon],t->tm_year+1900, + t->tm_hour,t->tm_min,t->tm_sec,zone/60,abs (zone) % 60); + if (suffix) { /* append timezone suffix if desired */ + char *tz; + tzset (); /* get timezone from TZ environment stuff */ + tz = tzname[daylight ? (((struct tm *) t)->tm_isdst > 0) : 0]; + if (tz && tz[0]) sprintf (date + strlen (date)," (%s)",tz); + } +} + + +/* Write current time in RFC 822 format + * Accepts: destination string + */ + +void rfc822_date (char *date) +{ + do_date (date,"%s, ","%d %s %d %02d:%02d:%02d %+03d%02d", + no822tztext ? NIL : T); +} + + +/* Write current time in internal format + * Accepts: destination string + */ + +void internal_date (char *date) +{ + do_date (date,NIL,"%02d-%s-%d %02d:%02d:%02d %+03d%02d",NIL); +} + +/* Return random number + */ + +long random () +{ + if (!rndm) srand (rndm = (unsigned) time (0L)); + return (long) rand (); +} + +/* Return default drive + * Returns: default drive + */ + +static char *defaultDrive (void) +{ + char *s; + return ((s = getenv ("SystemDrive")) && *s) ? s : "C:"; +} + + +/* Return home drive from environment variables + * Returns: home drive + */ + +static char *homeDrive (void) +{ + char *s; + return ((s = getenv ("HOMEDRIVE")) && *s) ? s : defaultDrive (); +} + + +/* Return home path from environment variables + * Accepts: path to write into + * Returns: home path or NIL if it can't be determined + */ + +static char *homePath (char *path) +{ + int i; + char *s; + if (!((s = getenv ("HOMEPATH")) && (i = strlen (s)))) return NIL; + if (((s[i-1] == '\\') || (s[i-1] == '/'))) s[i-1] = '\0'; + sprintf (path,"%s%s",homeDrive (),s); + return path; +} + +/* Return my home directory name + * Returns: my home directory name + */ + +char *myhomedir () +{ + char tmp[MAILTMPLEN]; + /* initialize if first time */ + if (!myHomeDir) myHomeDir = homePath (tmp); + return myHomeDir ? myHomeDir : homeDrive (); +} + +/* Return system standard INBOX + * Accepts: buffer string + */ + +char *sysinbox () +{ + char tmp[MAILTMPLEN]; + if (!sysInbox) { /* initialize if first time */ + sprintf (tmp,"%s\\INBOX",myhomedir ()); + sysInbox = cpystr (tmp); /* system inbox is from mail spool */ + } + return sysInbox; +} + + +/* Return mailbox file name + * Accepts: destination buffer + * mailbox name + * Returns: file name + */ + +char *mailboxfile (char *dst,char *name) +{ + char *dir = myhomedir (); + *dst = '\0'; /* default to empty string */ + if (((name[0] == 'I') || (name[0] == 'i')) && + ((name[1] == 'N') || (name[1] == 'n')) && + ((name[2] == 'B') || (name[2] == 'b')) && + ((name[3] == 'O') || (name[3] == 'o')) && + ((name[4] == 'X') || (name[4] == 'x')) && !name[5]) name = NIL; + /* reject namespace names or names with / */ + if (name && ((*name == '#') || strchr (name,'/'))) return NIL; + else if (!name) return dst; /* driver selects the INBOX name */ + /* absolute path name? */ + else if ((*name == '\\') || (name[1] == ':')) return strcpy (dst,name); + /* build resulting name */ + sprintf (dst,"%s\\%s",dir,name); + return dst; /* return it */ +} + + +/* Determine default prototype stream to user + * Accepts: type (NIL for create, T for append) + * Returns: default prototype stream + */ + +MAILSTREAM *default_proto (long type) +{ + extern MAILSTREAM CREATEPROTO,APPENDPROTO; + return type ? &APPENDPROTO : &CREATEPROTO; +} + +/* 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) +{ +} |