PDA Software Library/pdasoftwarelib.iso/PSION/COMMS/PSIONMAI/PMFULLSO/MAILRDR/SCCS/S.MAI

Text File | 1995-07-11 | 92.7 KB | 4,803 lines

h18934

s 00020/00059/01695

d D 2.7 95/07/11 18:46:21 tim 20 19

c header window now works properley, fixed the key values to work correctly. dogreet now presents a test window

e

s 00005/00005/01749

d D 2.6 95/07/11 14:10:07 tim 19 18

c the up and down arrows on the headers screen now works

c still need to fix the displayed headers

e

s 00021/00008/01733

d D 2.5 95/07/10 21:48:56 tim 18 17

c now prints the status and also blanks out the rest of the screen if there

c are spare lines

e

s 00052/00066/01689

d D 2.4 95/07/10 21:28:03 tim 17 16

c this version compiles OK, testing is now needed

e

s 00393/00191/01362

d D 2.3 95/07/10 20:42:33 tim 16 15

c added mechanism for printing a scrolling list, hotkey support for moving in it and changes all user io to be window / dialog based

c *** CHANGED *** 95/07/10 20:43:54 tim

c added some more window sturr and added code for mofing up / down the list.

c need to add code for window display etc and interaction with the user

e

s 00088/00180/01465

d D 2.2 95/07/10 14:18:04 tim 15 14

c added some more window sturr and added code for mofing up / down the list.

c need to add code for window display etc and interaction with the user

e

s 00077/00310/01568

d D 2.1 95/07/10 13:28:03 tim 14 13

c removed all the debugging code (it does not work very well with the window system)

c started adding the main menu stuff

c NOTE this version WILL NEVER compile

e

s 00000/00000/01878

d D 1.13 95/07/10 12:15:38 tim 13 12

c nothing

e

s 00004/00003/01874

d D 1.12 95/07/10 10:38:34 tim 12 11

c various bits of tidying up

e

s 00025/00015/01852

d D 1.11 95/07/10 10:09:42 tim 11 10

c cpy file now works

e

s 00010/00031/01857

d D 1.10 95/07/07 18:08:41 tim 10 9

c cpy file now works

e

s 00063/00018/01825

d D 1.9 95/07/04 21:01:02 tim 9 8

c the size of input lines are now based on a define HDRLEN.

c another attempt at fixing the cpyfile code

e

s 00012/00005/01831

d D 1.8 95/06/29 19:18:23 tim 8 7

c the word stuff now works properly and operates on text files just have to fix the cpyfile stuff and add the help, might be an idea to remove the debugging stuff as well in mainloop but not for a while

e

s 00094/00027/01742

d D 1.7 95/06/29 17:43:52 tim 7 6

c Full functionality now OK appart from including emails and the fact that word writes out modified files in word not txt format

e

s 00201/00040/01568

d D 1.6 95/06/28 19:50:56 tim 6 5

c file functions appart from cpyfile now work

e

s 00185/00083/01423

d D 1.5 95/06/28 14:53:26 tim 5 4

c linked list code seems to work

e

s 00014/00013/01492

d D 1.4 95/06/27 21:15:52 tim 4 3

c header printing code now works

e

s 00433/00054/01072

d D 1.3 95/06/27 20:55:06 tim 3 2

c basic loading and writting of meta files now works, basic ll functions related to that now work

e

s 01009/00004/00117

d D 1.2 95/06/27 15:59:19 tim 2 1

c expanded to include the basic system

e

s 00121/00000/00000

d D 1.1 95/06/22 17:59:59 tim 1 0

c initial setup, just to check we can call word from within an app

c *** CHANGED *** 95/06/22 18:01:06 tim

c

e

u

U

f e 0

t

T

I 2
/* start of include files */

E 2

I 1
#include <plib.h>

I 14

D 17
#include <p_std.h>

E 17

E 14
#include <wlib.h>

I 2
#include <hwif.h>

/* end of include files */

/* start of structure definitions */

/* initial data */
struct mydata {
    TEXT myaddr[50] ;
    TEXT mypath[P_FNAMESIZE] ;
    } ;

D 9


E 9

I 9
/* how large should the header lines be */
#define HDRLEN 100

E 9
/* linked list data definitions */
struct ll {
   TEXT datafile[13] ; /* <name>.<ext>\0 where name is upto 8 chars and ext is 3 chars, total 11 plis the . and the \0 gives 13 */

D 9
   TEXT to[100] ;
   TEXT from[100] ;
   TEXT subject[100] ;
   TEXT cc[100] ;
   TEXT bcc[100] ;

E 9

I 9
   TEXT to[HDRLEN] ;
   TEXT from[HDRLEN] ;

D 10
   TEXT subjectHDRLEN100] ;

E 10

I 10
   TEXT subject[HDRLEN] ;

E 10
   TEXT cc[HDRLEN] ;
   TEXT bcc[HDRLEN] ;

E 9
   INT status ;
   INT read ;
   INT no ;
   INT count ;
   struct mydata * mydata ;
   struct ll * next ;
   } ;

/* end of struct definitions */


/* start of defines */


I 6

D 7
#define RUNONSUN

E 7

I 7
/* #define RUNONSUN */

E 7


E 6
/* list printing definitions */
#define PDATAFILE 0x1
#define PTO 0x2
#define PFROM 0x4
#define PSUBJECT 0x8
#define PCC 0x10
#define PBCC 0x20
#define PSTATUS 0x40
#define PREAD 0x80
#define PNO 0x100
#define PCOUNT 0x200
#define PACTIVE 0x400
#define PIGNORE 0x800
#define PDELETED 0x1000

D 3
/* general defines *l/

E 3

I 3
/* general defines */

E 3
#define TRUE 1
#define FALSE 0

I 3

D 5
#define ERR -1

E 5

I 5
#define FILEERR -1
#define MEMERR -2
#define IERR -3

E 5

E 3

/* locations of the meta files */
#define METAIN "LOC::M:\\MAILDIR\\IN.MTA"
#define METAOUT "LOC::M:\\MAILDIR\\OUT.MTA"

I 7

/* location of the word app */

D 8
#define WORDCMD "ROM::WORD.APP"

E 8

I 8
#define MAILRDRCMD "ROM::WORD.APP"
/* the name to match the name on the system screen
   as this is compiled into the alias file it is probabaly not something you
   will change unless you also rename the mailrdr.ma and mailrdr.pic files
   as well as changing the mailrdr.ma file */
#define MAILRDRNAME "Mailrdr"
#define MAILRDREXT ".msg"

E 8

E 7
/* default name for output files */

D 3
#define OUTSKELETON "out.msg"

E 3

I 3

D 6
#define OUTSKELETON "out*.msg"

E 6

I 6

D 7
#define OUTSKELETON "out%d.msg"

E 7

I 7

D 9
#define OUTSKELETON "OUT%d.TXT"

E 9

I 9
#define OUTSKELETON "OUT%d.MSG"

E 9

E 7

E 6

E 3


I 9

D 11
/* start and end include messages */
#define STARTINCL "--- Begin Included Message ---\n"
#define ENDINCL "--- End Included Message ---\n"


E 11
/* max line length */
#define MAXLINE 1024

E 9
/* ll status values */
#define ACTIVE 0
#define IGNORE -1
#define DELETED -2
/* ll new / read */
#define RD -1
#define NEW -2


I 6

D 14
/* debug status */
#ifdef RUNONSUN
#define cmddbg TRUE
#define lldbg FALSE
#define mtadbg FALSE
#define topdbg TRUE
#define procdbg TRUE
#define inpdbg TRUE
#define filedbg TRUE
#define ancdbg FALSE
#else
#define cmddbg FALSE
#define lldbg FALSE
#define mtadbg FALSE
#define topdbg FALSE

D 7
#define procdbg TRUE

E 7

I 7
#define procdbg FALSE

E 7
#define inpdbg FALSE

D 9
#define filedbg FALSE

E 9

I 9

D 10
#define filedbg TRUE

E 10

I 10
#define filedbg FALSE

E 10

E 9
#define ancdbg FALSE
#endif

E 14

E 6


I 6
/* max number of outgoing emails */
#define MAXEMAILOUT 100


I 16
/* stuff relating to the number of lines in the header window */
#define ITEMS_ON_SCREEN 5

D 18
#define ITEMS_ON_HALF_SCREEN 2

E 18

I 18

D 20
#define ITEMS_ON_HALF_SCREEN ((ITEMS_ON_SCREEN -1) /2)

E 20

I 20
#define ITEMS_ON_HALF_SCREEN 2

E 20

E 18

E 16


I 16
/* how much to increase the y location when printing the headers */
#define HDRINCR 11


E 16

E 6
/* End of defines */

/* Start of Global data */

/* pointers to the in and out list and the list we are currently working on */
struct ll * inlist ;
struct ll * outlist ;
struct ll * currlist ;

I 3

D 6
/* debug status */
INT cmddbg = TRUE ;

D 5
INT lldbg = TRUE ;
INT mtadbg = TRUE ;

E 5

I 5
INT lldbg = FALSE ;
INT mtadbg = FALSE ;

E 5
INT topdbg = TRUE ;
INT procdbg = TRUE ;
INT inpdbg = TRUE ;
INT filedbg = TRUE ;

D 4
INT ancdbg = TRUE ;

E 4

I 4
INT ancdbg = FALSE ;

E 6

E 4

E 3


I 14
/* menu stuff, first define the commands array */
LOCAL_D TEXT *cmds[]= {
    "vView Current", /* these will go under the Current Functions submenu */
    "dDelete Current",
    "uUndelete Current",
    "mModify Header",
    "nNew Email", /* these will go under the Compose submenu */
    "rReply to sender",
    "aReply to all",
    "xExit and save state", /* these will go under the special menu */
    "cExit and lose state",
    "sSwitch between lists",
    NULL };
/* this defines how the commands menu will be presented */
LOCAL_D H_MENU_DATA mdata[] = {
    "Current Email", 4,
    "Compose",3,
    "Special",3,
    NULL };

/* pointers to the arrays. DO NOT CHANGE THESE NAMES OR DEFINITIONS as they
   are used by the psion ROM to do menus etc. */
GLDEF_D TEXT ** _cmds=(&cmds[0]) ;
GLDEF_D H_MENU_DATA * _mdata=(&mdata[0]) ;
/* the current mail number */
INT mailno ;

/* the main window */
UINT MainWid ;

I 16

/* the status window */
W_WINDATA wdstatus ;
UINT gcstatus ;
G_GC gdstatus ;
INT winstatus ;
/* the headers window */
W_WINDATA wdhdr ;
UINT gchdr ;
G_GC gdhdr ;
INT winhdr ;


D 20
/* welcome strings */
TEXT * welc1 = "Psion SMTP Offline mail reader" ;
TEXT * welc2 = "Version %I%, (C) Tim Graves, Sun Microsystems" ;

D 17
TEXT * welc3 = "Press any key to continue"
TEST * spacestr = "                              " ;

E 17

I 17
TEXT * welc3 = "Press any key to continue" ;

E 20

I 20
/* used to remove waste from the end of a line */

E 20

D 18
TEXT * blank = "                              " ;

E 18

I 18
TEXT * blank = "                                       " ;

E 18

E 17


E 16

E 14
/* End of Global data */

/* Start of function definitions */

/* main and top level functions */

E 2
VOID main(VOID);
VOID doword(TEXT * fname) ;

I 2
VOID initwins(VOID) ;

I 16
VOID initmywins(VOID) ;

E 16
VOID dogreet(VOID) ;

D 3
VOID initlist(VOID) ;
VOID mainloop(VOID) ;
VOID dotidy(VOID) ;

E 3

I 3
INT initlist(VOID) ;
INT mainloop(VOID) ;
INT dotidy(VOID) ;

E 3
VOID shutwins(VOID) ;

I 14

D 16
/* these functions relate to the window stuff */

E 16
LOCAL_C VOID ManageCommand(INT keycode) ; /* decide what to do with a command */

I 16
/* these functions relate to the window stuff */
VOID statusmsg(TEXT * str) ;
VOID redolist(VOID) ;
INT askincl(VOID) ; /* ask if we want to include the current email */

E 16

E 14
/* the following relate to the commands for modifying the mailbox in view */
VOID readmail(INT mailno, struct ll * llptr) ; /* bring up a viewer */
VOID wrtemail(INT mailno, struct ll * llptr) ; /* wtite / reply */
VOID delmail (INT mailno, struct ll * llptr) ; /* delete the mail from the internal linked lists */
VOID udelmail (INT mailno, struct ll * llptr) ; /* undelete the mail from the internal linked lists */

/* stuff for starting / other processes */

E 2
INT buildcmd(TEXT cmdbyte, TEXT * appname, TEXT * appext, TEXT * appalias, TEXT * fname, TEXT * cmdline) ;
INT runcmd(TEXT * appname, TEXT * cmdline, INT cmdlen) ;

I 2

/* the following are commands that work on the mailbox files */
INT delfile(struct ll * llcur, struct ll * llstart) ; /* delete the actual email file */
INT newfile(struct ll * llcur, struct ll * llstart) ; /* create a new empty email file and return the name */
INT cpyfile (struct ll * newll, struct ll * outhead, struct ll * origll, struct ll * inhead) ;/* cpyfile - copy from the file in origll to the file in newll assume the file exists */

I 6
INT fileexist(TEXT * fname) ; /* does the file given in fname exist return TRUE or FALSE if any other error than E_FILE_NXIST return FILEERR */

E 6



I 6


E 6
/* the following work on the meta file */
INT readmeta(TEXT * fname, struct ll * itemlist) ; /* read in the data descriptions */
INT wrtmeta(TEXT * fname, struct ll * itemlist) ; /* write the data descriptions out */
INT readhdr(VOID * fd, struct ll * itemlist) ; /* read the from, subject and return path etc from the data file */
INT wrthdr(VOID * fd, struct ll * itemlist) ; /* write a subject and destination etc to the data file */
INT getf(VOID * fd, TEXT * line) ; /* read a line of text from file handle */
INT putf(VOID * fd, TEXT * line) ; /* write a line of text to file handle */

/* commands to manipulate the linked list */
struct ll * llnew(VOID) ;
struct ll * llnofind(INT no, struct ll * llstart) ;
VOID llfill(struct ll * llptr, TEXT * datafile, TEXT * to, TEXT * from, TEXT * subject, TEXT * cc, TEXT * bcc, INT status, INT read, INT no) ;
VOID llfree (struct ll * llptr) ;
VOID lladd(struct ll * newll, struct ll * startll) ;
VOID llinit(VOID);
VOID llcopy(struct ll * out, struct ll * in) ; /* copy the strings in an entry */

D 6
VOID prgemail(struct ll * llptr) ;

E 6

I 6
INT prgemail(struct ll * llptr) ;

E 6
VOID llprint(struct ll * startll, INT mask, INT startno, INT endno); /* print the list at start ll, according to the mask, between the numbers startno and end no */

D 16
VOID llprinta(struct ll * llptr, INT mask) ; /* print the ll structure according to the mask */
VOID disphdrs(struct ll * llptr, INT startno, INT endno) ; /* display the usual header information */

E 16

I 16
VOID llprinta(struct ll * llptr, INT mask, TEXT * str) ; /* print the ll structure according to the mask */
VOID disphdrs(struct ll * llptr) ; /* display the usual header information */

E 16
INT llvalid(INT mailno, struct ll * llptr) ; /* is mailno in the list and marked as ACTIVE ? */

I 3
VOID lldump(struct ll * llptr) ; /* print the current ll entry */
VOID lldmpall(struct ll * llptr) ; /* print the entire ll list */

E 3


/* functions for reading headers from the user */

D 16
VOID putnonl (TEXT * line) ; /* print output without a newline */
VOID getinp(TEXT * in) ; /* getinp, read a line from the keyboard */
VOID getbcc (TEXT * bcc) ; /* bcc list */
VOID getcc (TEXT * cc) ; /* cc list */
VOID getsub(TEXT * sub) ; /* subject */
VOID getto(TEXT * to) ; /* target address */
VOID getinfo(TEXT * request, TEXT * target) ; /* read a line of text, if there is data in there use that as a default */

E 16
VOID gethdr(struct ll * in) ; /* fill in a data entry with user information */

/* functions for creating new emails and replys */
INT newemail(INT mailno, struct ll * startll, INT incl) ; /* newemail, new list entry, fill it in then write the email */
INT repall(INT mailno, struct ll * startll, INT incl) ; /* repall, reply to the sender and all other recievers */
INT repfrom(INT mailno, struct ll * startll, INT incl) ; /* repfrom, reply to the sender only */


D 16
/* command handlers */
VOID getcmd(TEXT * cmd) ; /* read the command from the input line */

E 16

/* End of function definitions */

/* start of actual code */

/* start of linked list code */

/* display the usual header information */

D 16
VOID disphdrs(struct ll * llptr, INT startno, INT endno)

E 16

I 16
VOID disphdrs(struct ll * llptr)

E 16
{

D 16
    INT mask ;

E 16

I 16
    INT mask, startno, endno ;

E 16

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: disphdrs (llptr = OMITTED, starton = %d, endno = %d)", startno, endno) ;

E 14

E 3
    /* if llptr is inlist include from, otherwise include to */
    if (llptr == inlist)

D 12
        mask = PFROM ;

E 12

I 12
        mask = PFROM | PREAD ;

E 12
    else
        mask = PTO ;
    /* add the other stuff */

D 12
    mask = mask | PNO | PSUBJECT | PREAD | PACTIVE ;

E 12

I 12

D 16
    mask = mask | PNO | PSUBJECT | PACTIVE ;

E 12
    /* startno MUST be 1 or higher */
    if (startno < 1)

E 16

I 16

D 18
    mask = mask | PNO | PSUBJECT | PACTIVE | PDELETED ;

E 18

I 18
    mask = mask | PNO | PSUBJECT | PACTIVE | PDELETED | PSTATUS ;

E 18

D 17
    /* try to print ITEMS_IN_LIST emails we check for sanity of startno and endno later*/
    /* if we are at the begining print the first ITEMS_IN_LIST emails
    if (mailno < (ITEMS_IN_HALF_LIST + 1))

E 17

I 17
    /* try to print ITEMS_ON_SCREEN emails we check for sanity of startno and endno later*/
    startno = mailno - ITEMS_ON_HALF_SCREEN ;
    endno = mailno + ITEMS_ON_HALF_SCREEN ;

D 20
    /* if we are at the begining print the first ITEMS_ON_SCREEN emails

D 18
    if (mailno < (ITEMS_ON_HALF_SCREEN + 1))

E 18

I 18
    if (mailno <= (ITEMS_ON_HALF_SCREEN))

E 20

I 20
    /* if we are at the begining print the first ITEMS_ON_SCREEN emails */
    if (mailno <= ITEMS_ON_HALF_SCREEN)

E 20

E 18

E 17
    {

E 16
        startno = 1 ;

I 4

D 16
    /* endno should be less or equal to llptr->count */
    if (endno > llptr->count)
        endno = llptr->count ;

E 16

I 16

D 17
        endno = ITEMS_IN_LIST ;

E 17

I 17
        endno = ITEMS_ON_SCREEN ;

E 17
    }

D 17
    else if ((mailno + ITEMS_IN_HALF_LIST +1) > currlist->count)

E 17

I 17

D 18
    if ((mailno + ITEMS_ON_HALF_SCREEN +1) > currlist->count)

E 18

I 18

D 19
    if ((mailno + ITEMS_ON_HALF_SCREEN) > currlist->count)

E 19

I 19

D 20
    else if (mailno > (currlist->count - ITEMS_ON_HALF_SCREEN))

E 20

I 20
    if ((mailno + ITEMS_ON_HALF_SCREEN) >= currlist->count)

E 20

E 19

E 18

E 17
    {
        endno = currlist->count ;

D 17
        startno = endno - ITEMS_IN_LIST ;

E 17

I 17

D 18
        startno = endno - ITEMS_ON_SCREEN ;

E 18

I 18
        startno = (endno - ITEMS_ON_SCREEN) +1 ;

E 18

E 17
    }

D 17
    else
    {
        startno = mailno - ITEMS_IN_HALF_LIST ;
        endno = mailno + ITEMS_IN_HALF_LIST ;
    }

E 17
    /* check for sanity in the start and end numbers */
    if (startno < 1)
        startno = 1;
    if (endno > currlist->count)
        endno = currlist->count ;

E 16

E 4
    llprint(llptr, mask, startno, endno) ;
}

D 3


E 3

I 3

D 14
/* print the entire ll list */
VOID lldmpall(struct ll * llptr)
{
    while (llptr != NULL)
    {
        lldump(llptr) ;
        llptr = llptr->next ;
    }
}

E 14

E 3
/* print the list at start ll, according to the mask, between the numbers startno and end no */
VOID llprint(struct ll * startll, INT mask, INT startno, INT endno)
{

I 16
    TEXT tmp[200], tmp1[300] ;

D 18
    INT ystart,doprint ;

E 18

I 18
    INT ystart,doprint, prtct ;

E 18
    G_GC gc ;
    ystart = HDRINCR ;

I 18
    prtct = 0 ;

E 18

E 16

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llprint (startll = OMITTED, mask = %x, startno = %d, endno = %d)", mask, startno, endno) ;

E 14

E 3
    while (startll != NULL)
    {

I 16
        doprint = FALSE ;

E 16
        if ((startll->no >= startno) && (startll->no <= endno))

D 4
            llprinta(startll, mask) ;

E 4

I 4
        {
            /* should we be printing this record ? */
            if ((mask & PACTIVE) && (startll->status == ACTIVE))

D 16
                llprinta(startll, mask) ;

E 16

I 16
            {
                llprinta(startll, mask, tmp) ;
                doprint = TRUE ;
            }

E 16

D 14
            else if ((mask & PIGNORE) && (startll->status == IGNORE))            llprinta(startll, mask) ;

E 14

I 14
            else if ((mask & PIGNORE) && (startll->status == IGNORE))

D 16
                llprinta(startll, mask) ;

E 16

I 16
            {
                llprinta(startll, mask, tmp) ;
                doprint = TRUE ;
            }

E 16

E 14
            else if ((mask & PDELETED) && (startll->status == DELETED))

D 16
                llprinta(startll, mask) ;

E 16

I 16
            {
                llprinta(startll, mask, tmp) ;
                doprint = TRUE ;
            }

E 16
        }

I 16
        if (doprint == TRUE)
        {

I 18

D 19
            ptrct ++ ;

E 19

I 19
            prtct ++ ;

E 19

E 18
            if (mailno == startll->no) /* this line needs to be in bold */
            {
                gc.style = G_STY_NORMAL | G_STY_BOLD ;
                gSetGC(gchdr, G_GC_MASK_STYLE, &gc) ;
            }
            else /* not the current email */
            {

D 17
                gc.styls = G_STY_NORMAL ;

E 17

I 17
                gc.style = G_STY_NORMAL ;

E 17
                gSetGC(gchdr, G_GC_MASK_STYLE, &gc) ;
            }

D 17
            p_scpym(tmp1, tmp, spacestr, NULL) ; /* remove any chars at the end of the line */

E 17

I 17
            p_scpym(tmp1, tmp, blank, NULL) ; /* remove any chars at the end of the line */

E 17
            gPrintClipText(5, ystart, tmp1, p_slen(tmp1), 230) ;
            ystart += HDRINCR ;
        }

E 16

E 4
        startll = startll->next ;
    }

I 18
    /* empty out the other stuff on the screen */
    if ( prtct < ITEMS_ON_SCREEN)
    {
        p_scpym(tmp1, blank, blank, NULL) ;
        while (prtct < ITEMS_ON_SCREEN)
        {
            gPrintClipText(5, ystart, tmp1, p_slen(tmp1), 230) ;
            ystart += HDRINCR ;
            prtct ++ ;
        }
    }

E 18
}

/* print the structure according to the mask */

D 16
VOID llprinta(struct ll * llptr, INT mask)

E 16

I 16
VOID llprinta(struct ll * llptr, INT mask, TEXT * str)

E 16
{

D 16
    TEXT tmp[100] ;

E 16

I 5
    TEXT outline[1024] ;

I 16
    TEXT tmp[100] ;

E 16

E 5

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llprinta (llptr = OMITTED, mask = %x", mask) ;

E 14

I 5
    outline[0] = '\0' ;

E 5

E 3

D 4
    /* should we be printing this record ? */
    if (!((llptr->status == ACTIVE) && (mask & PACTIVE)))
        return ;
    if (!((llptr->status == IGNORE) && (mask & PIGNORE)))
        return ;
    if (!((llptr->status == DELETED) && (mask & PDELETED)))
        return ;

E 4
    /* print llptr according to the mask */
    if (mask & PNO)
    {
        p_atos(tmp, "%d", llptr->no) ;

D 5
        putnonl(tmp) ;

E 5

I 5
        p_scatm(outline, tmp, " ", NULL) ;

E 5
    }

I 11
    if (mask & PREAD)
    {
        if (llptr->read == RD)
            p_scatm(outline, "R", " ", NULL) ;
        else
            p_scatm(outline, "N", " ", NULL) ;
    }

I 16
    if (mask & PSTATUS)
    {
        if (llptr->status == ACTIVE)

D 20
            p_scatm(outline, "A", " ", NULL) ;

E 20

I 20
            p_scatm(outline, " ", " ", NULL) ;

E 20
        else if (llptr->status == IGNORE)
            p_scatm(outline, "I", " ", NULL) ;
        else if (llptr->status == DELETED)
            p_scatm(outline, "D", " ", NULL) ;
    }

E 16

E 11
    if (mask & PDATAFILE)

D 5
        putnonl(llptr->datafile) ;

E 5

I 5
        p_scatm(outline, llptr->datafile, " ", NULL) ;

E 5
    if (mask & PTO)

D 5
        putnonl(llptr->to) ;

E 5

I 5
        p_scatm(outline, llptr->to, " ", NULL) ;

E 5
    if (mask & PFROM)

D 5
        putnonl(llptr->from) ;

E 5

I 5
        p_scatm(outline, llptr->from, " ", NULL) ;

E 5
    if (mask & PSUBJECT)

D 5
        putnonl(llptr->subject) ;

E 5

I 5

D 20
        p_scatm(outline, llptr->subject, " ", NULL) ;

E 20

I 20
        p_scatm(outline, ": ",llptr->subject, " ", NULL) ;

E 20

E 5
    if (mask & PCC)

D 5
        putnonl(llptr->cc) ;

E 5

I 5
        p_scatm(outline, llptr->cc, " ", NULL) ;

E 5
    if(mask & PBCC)

D 5
        putnonl(llptr->bcc) ;

E 5

I 5
        p_scatm(outline, llptr->bcc, " ", NULL) ;

E 5

D 16
    if (mask & PSTATUS)
    {
        if (llptr->status == ACTIVE)

D 5
            putnonl("ACTIVE") ;

E 5

I 5
            p_scatm(outline, "ACTIVE", " ", NULL) ;

E 5
        else if (llptr->status == IGNORE)

D 5
            putnonl("IGNORE") ;

E 5

I 5
            p_scatm(outline, "IGNORE", " ", NULL) ;

E 5
        else if (llptr->status == DELETED)

D 5
            putnonl("DELETED") ;

E 5

I 5
            p_scatm(outline, "DELETED", " ", NULL) ;

E 5
    }

E 16

D 11
    if (mask & PREAD)
    {
        if (llptr->read == RD)

D 5
            putnonl("READ") ;

E 5

I 5
            p_scatm(outline, "READ", " ", NULL) ;

E 5
        else

D 5
            putnonl("NEW") ;

E 5

I 5
            p_scatm(outline, "NEW", " ", NULL) ;

E 5
    }

E 11
    if (mask & PCOUNT)
    {
        p_atos(tmp, "%d", llptr->count) ;

D 5
        putnonl(tmp) ;

E 5

I 5
        p_scatm(outline, tmp, " ", NULL) ;

E 5
    }

D 16
    /* print the newline */

D 5
    p_printf("") ;

E 5

I 5
    putnonl(outline) ;

E 16

I 16
    p_scpy(str, outline) ;

E 16

E 5
}

I 3

D 14
/* print the current ll entry */
VOID lldump(struct ll * llptr)
{
    if (lldbg == TRUE)
        p_printf("CALL: lldump (llptr = OMITTED)") ;
    if (llptr == NULL)
    {
        p_printf("Pointer is NULL") ;
        return ;
    }
    p_printf("Datafile is: %s", llptr->datafile) ;
    p_printf("To is: %s", llptr->to) ;
    p_printf("From is: %s", llptr->from ) ;
    p_printf("Subject is: %s", llptr->subject) ;
    /* pause before the next list */
    p_getch() ;
    p_printf("CC is: %s", llptr->cc) ;
    p_printf("Bcc is: %s", llptr->bcc) ;
    /* status */
    if (llptr->status == ACTIVE)
        p_printf("Status is: ACTIVE") ;
    else if (llptr->status == DELETED)
        p_printf("Status is: DELETED") ;
    else if (llptr->status == IGNORE)
        p_printf("Status is: IGNORE") ;
    else
        p_printf("Status is invalid (%d)", llptr->status) ;
    /* read */
    if (llptr->read == RD)
        p_printf("Read is: RD") ;
    else if (llptr->read == NEW)
        p_printf("Read is: NEW") ;
    else
        p_printf("Read is invalid (%d)", llptr->read) ;
    p_getch() ;
    p_printf("No is: %d", llptr->no) ;
    p_printf("Count is: %d", llptr->count) ;
    if (llptr->mydata == NULL)
        p_printf("Mydata is: NULL") ;
    else
    {
        p_printf("Mydata->myaddr is: %s", llptr->mydata->myaddr) ;
        p_printf("Mydata->mypath is: %s", llptr->mydata->mypath) ;
    }
    if (llptr->next == NULL)
        p_printf("Next is: NULL") ;
    else
        p_printf("Next is: Non NULL") ;
    p_getch() ;
}


E 14

E 3
/* this command scans the linked lists looking for a deleted entry. the associated file is then deleted */

D 6
VOID prgemail(struct ll * llptr)

E 6

I 6
INT prgemail(struct ll * llptr)

E 6
{
    struct ll * llstart ;

I 6
    INT ret ;

E 6

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL: prgemail (llstart = OMITTED)") ;

E 14

E 3
    llstart = llptr ;
    while(llptr != NULL)
    {
        if(llptr->status == DELETED)

D 6
            delfile(llptr, llstart) ;

E 6

I 6
        {
            ret = delfile(llptr, llstart) ;
            if (ret == FILEERR)
            {

D 17
                p_print("FILE ERROR: prgemail, error in deleting message file %s", llptr->datafile) ;
                if (cmddbg == TRUE)
                    p_getch() ;

E 17

I 17
                uDisplayText("FILE ERROR: prgemail,","error in deleting message file", llptr->datafile, NULL) ;

E 17
                return(FILEERR) ;
            }
        }

E 6
        llptr = llptr->next ;
    }

I 6
    return(TRUE) ;

E 6
}
/* fill in a ll entry based on the arguments */
VOID llfill(struct ll * llptr, TEXT * datafile, TEXT * to, TEXT * from, TEXT * subject, TEXT * cc, TEXT * bcc, INT status, INT read, INT no)
{

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL llfill (llptr = OMITTED, datafile = %s, to = %s, from = %s, subject = %s, cc = %s, bcc = %s, status = %d, read = %d, no = %d)", datafile, to, from, subject, cc, bcc, status, read, no) ;

E 14

E 3
    p_scpy(llptr->datafile, datafile) ;
    p_scpy(llptr->to, to) ;
    p_scpy(llptr->from, from) ;
    p_scpy(llptr->subject, subject) ;
    p_scpy(llptr->cc, cc) ;
    p_scpy(llptr->bcc, bcc) ;
    llptr->status = status ;
    llptr->read = read ;
    llptr->no = no ;

I 5

D 14
    if (lldbg == TRUE)
    {
        p_printf("filled in structure is");
        lldump(llptr) ;
    }

E 14

E 5
}
/* find a list entry based on the number */
struct ll * llnofind(INT no, struct ll * llstart)
{
    struct ll * llcurrnt ;

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llnofind(no = %d, llstart = OMITTED)", no) ;

E 14

E 3
    llcurrnt = llstart ;
    while(llcurrnt->no != no)
    {

I 5

D 14
        if (lldbg == TRUE)
        {
            p_printf("llnofind is working on") ;
            lldump(llcurrnt) ;
        }

E 14

E 5
        if(llcurrnt->next == NULL)

I 5
        {

D 14
            if (lldbg == TRUE)
                p_printf("llnofind returns NULL");

E 14

E 5
            return(NULL) ;

I 5
        }

E 5
        llcurrnt = llcurrnt->next ;

I 5


E 5
    }
    /* to have got here we must havea match if we could not find a match we would already havereturned NULL */

I 5

D 14
    if (lldbg == TRUE)
    {
        p_printf("llnofind returns the following");
        lldump(llcurrnt) ;
    }

E 14

E 5
    return(llcurrnt) ;
}

/* this adds the newll to the end of the list at startll */
VOID lladd(struct ll * newll, struct ll * startll)
{
    struct ll * llcurrnt ;

I 3

D 14
    if (lldbg == TRUE)

D 5
        p_printf("lladd (newll = OMITTED, startll = OMITTED") ;

E 5

I 5
        p_printf("lladd (newll = OMITTED, startll = OMITTED)") ;

E 14

E 5

E 3
    llcurrnt = startll ;

D 5
    /* scan down the list lokking for NULL)

E 5

I 5
    /* scan down the list lokking for NULL) */

E 5
    while(llcurrnt->next != NULL)

I 5
    {

E 5
        llcurrnt = llcurrnt->next ;

I 5
    }

E 5
    /* we are at the end of the list add the entry */
    llcurrnt->next = newll ;
    /* increment the total in the list counter, held in the first entry in the list only */
    startll->count ++ ;
}
/* this function creates the initial in and out list entries */
VOID llinit(VOID)
{

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llinit()") ;

E 14

E 3
    inlist = llnew() ;
    outlist = llnew() ;
    inlist->mydata = p_alloc(sizeof(struct mydata)) ;
    outlist->mydata = p_alloc(sizeof(struct mydata)) ;
}

/* linked list functions */
/* llnew, create space and fill with defaults */
struct ll * llnew(VOID)
{
    struct ll * llptr;

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llnew()") ;

E 14

E 3
    llptr = p_alloc(sizeof(struct ll)) ;
    llptr->datafile[0] = '\0' ;
    llptr->to[0] = '\0' ;
    llptr->from[0] = '\0' ;
    llptr->subject[0] = '\0' ;
    llptr->cc[0] = '\0' ;
    llptr->bcc[0] = '\0' ;
    llptr->status = IGNORE ;
    llptr->read = NEW ;
    llptr->next = NULL ;
    llptr->no = 0 ;
    llptr->count = 0 ;
    llptr->mydata = NULL ;
    return(llptr) ;
}

D 6
VOID llcopy (struct ll * in, struct ll * out)

E 6

I 6
VOID llcopy (struct ll * out, struct ll * in)

E 6
{

I 3

D 14
    if (lldbg == TRUE)

I 5
    {

E 5
        p_printf("CALL: llcopy (in = OMITTED, out = OMITTED)") ;

I 5
        p_printf("input is ") ;
        lldump(in) ;

E 14

D 17
    }

E 17

E 5

E 3
    /* copy the strings but status etc remains untouched */
    p_scpy(out->datafile, in->datafile) ;
    p_scpy(out->to, in->to) ;
    p_scpy(out->from, in->from) ;
    p_scpy(out->subject, in->subject) ;
    p_scpy(out->cc, in->cc) ;
    p_scpy(out->bcc, in->bcc) ;

I 5

D 14
    if (lldbg == TRUE)
    {
        p_printf("output is ") ;
        lldump(out) ;
    }

E 14

E 5
}
/* llfree, free llptr and everything it points to */
VOID llfree (struct ll * llptr)
{
    struct ll * llnext;

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llfree(llptr = OMITTED)");

E 14

E 3
    /* free the mydata section only on the first item */
    p_free(llptr->mydata) ;
    llnext = llptr;
    while(llptr != NULL)
    {
        llnext = llptr->next ;
        p_free(llptr) ;
        llptr = llnext ;
    }
}
/* is mailno in the list and marked as ACTIVE ? */
INT llvalid(INT mailno, struct ll * llptr)
{

I 16
    TEXT tmp[50] ;

E 16

I 3

D 14
    if (lldbg == TRUE)
        p_printf("CALL: llvalid(mailno = %d, llptr = OMITTED)", mailno) ;

E 14

E 3
    llptr = llnofind(mailno, llptr) ;
    if (llptr != NULL)
    {
        if (llptr->status != ACTIVE)
        {

D 16
            p_printf("%d is not an active message", mailno) ;

E 16

I 16
            p_atos(tmp, "%d is not an active message", mailno) ;
            uDisplayText(tmp, NULL) ;

E 16
            return(FALSE) ;
        }
        else
        {
            return(TRUE) ;
        }
    }
    else
    {

D 16
        p_printf("%d is not a valid message", mailno) ;

E 16

I 16
        p_atos(tmp, "%d is not a valid message", mailno) ;
        uDisplayText(tmp, NULL) ;

E 16
        return(FALSE) ;
    }
}

/* end of linked list code */

/* start of top level functions */


I 15
/* create the graphics context */
VOID CreateGC(VOID)
{
    INT hgc ;
    hgc = gCreateGC0(MainWid) ;
    if (hgc < 0)
        p_exit(hgc) ;
}

E 15

D 16
/* setup the windows etc. */

E 16

I 16
/* do the basic window setup */

E 16
VOID initwins(VOID)
{

I 15

D 17
    INT command ;

E 17

I 17


E 17
    uCommonInit() ; /* connect to the window system etc */
    MainWid=uFindMainWid() ; /* figure out what the main window is */
    CreateGC() ;

D 16
    gBorder(W_BORD_CORNER_4) ; /* make the window look nice */
    wsEnable() ; /* start talking to the window system */

E 16

D 17
    command = hCrackCommandLine() ; /* do the command line and make

E 17

I 17
    hCrackCommandLine() ; /* do the command line and make

E 17
                                       ourselves available for recieveing
                                       commands such as exit etc */

I 16
}

/* setup the windows etc. */
VOID initmywins(VOID)
{

E 16

E 15

I 3

D 14
    if (topdbg == TRUE)
        p_printf("CALL: initwins()");

E 14

E 3
    /* create the windows */

I 16
    /* the status window */
    /* geometry information */
    wdstatus.extent.tl.x = 0 ;
    wdstatus.extent.tl.y = 0 ;
    wdstatus.extent.width = 240 ;

D 19
    wdstatus.extent.height = 19 ;

E 19

I 19
    wdstatus.extent.height = 18 ;

E 19
    wdstatus.flags = W_WIN_PRIORITY ;
    wdstatus.mouse_icon = 0 ;
    wdstatus.filler = 0 ;
    wdstatus.background = W_WIN_BACK_BITMAP ;
    /* graphics context definitions (how to draw) specification */
    gdstatus.gmode = G_TRMODE_SET ;
    gdstatus.textmode = G_TRMODE_REPL ;
    gdstatus.style = G_STY_NORMAL ;
    gdstatus.filler = 0 ;

D 17
    gdstatus.fond = WS_FONT_BASE ;

E 17

I 17
    gdstatus.font = WS_FONT_BASE ;

E 17
    /* create the window */

D 17
    winstatus = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdstatus,1)

E 17

I 17
    winstatus = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdstatus,1) ;

E 17
    /* make it real in the windows tree */
    wInitialiseWindowTree(winstatus) ;
    /* create the graphics context */
    gcstatus = gCreateGC(winstatus, G_GC_MASK_GMODE | G_GC_MASK_TEXTMODE | G_GC_MASK_STYLE, &gdstatus) ;
    /* make the window visible */

D 17
    wMakeVisible(winpath) ;

E 17

I 17
    wMakeVisible(winstatus) ;

E 17
    /* make the current context the one we will use */
    gSetGC0(gcstatus) ;
    /* put a border around the current context */

D 17
    gBorder(W_BORD_CUSHION|W__BORD_CORNER_4) ;

E 17

I 17
    gBorder(W_BORD_CUSHION|W_BORD_CORNER_4) ;

E 17

    /* the header window */
    /* geometry information */
    wdhdr.extent.tl.x = 0 ;
    wdhdr.extent.tl.y = 21 ;
    wdhdr.extent.width = 240 ;

D 17
    wdhdr.extent.height = 59 ; /

E 17

I 17
    wdhdr.extent.height = 59 ;

E 17
    wdhdr.flags = W_WIN_PRIORITY ;
    wdhdr.mouse_icon = 0 ;
    wdhdr.filler = 0 ;
    wdhdr.background = W_WIN_BACK_BITMAP ;
    /* graphics context definitions (how to draw) specification for normal text */
    gdhdr.gmode = G_TRMODE_SET ;
    gdhdr.textmode = G_TRMODE_REPL ;
    gdhdr.style = G_STY_NORMAL ;
    gdhdr.filler = 0 ;

D 17
    gdhdr.fond = WS_FONT_BASE ;

E 17

I 17
    gdhdr.font = WS_FONT_BASE ;

E 17
    /* create the window */

D 17
    winhdr = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdhdr,1)

E 17

I 17
    winhdr = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdhdr,1) ;

E 17
    /* make it real in the windows tree */
    wInitialiseWindowTree(winhdr) ;
    /* create the graphics context for normal text */
    gchdr = gCreateGC(winhdr, G_GC_MASK_GMODE | G_GC_MASK_TEXTMODE | G_GC_MASK_STYLE, &gdhdr) ;
    /* make the window visible */

D 17
    wMakeVisible(winpath) ;

E 17

I 17
    wMakeVisible(winhdr) ;

E 17
    /* make the current context the one we will use */
    gSetGC0(gchdr) ;
    /* put a border around the current context */

D 17
    gBorder(W_BORD_CUSHION|W__BORD_CORNER_4) ;

E 17

I 17
    gBorder(W_BORD_CUSHION|W_BORD_CORNER_4) ;

E 17


E 16
}


I 16


E 16
/* close down the windows */
VOID shutwins(VOID)
{

I 3

D 14
    if (topdbg == TRUE)
        p_printf("CALL: shutwins()");

E 14

E 3
    /* shutdown any windows etc */

I 16
    wCloseWindowTree(MainWid) ;

E 16
}

/* print out who we are and the version number */
VOID dogreet(VOID)
{

I 3

D 14
    if (topdbg == TRUE)
        p_printf("CALL: dogreet()") ;

E 14

E 3

D 16
    p_printf("Psion SMTP Offline mail reader") ;
    p_printf("Version %I%, (C) Tim Graves, Sun Microsystems") ;

E 16

I 16

D 20
    W_WINDATA wdgreet ;
    UINT gcgreet ;
    INT wingreet ;
    G_GC gdgreet ;
    WMSG_KEY key ;
    /* create a window and say hello */
    /* create the window */
    /* geometry information */
    wdgreet.extent.tl.x = 0 ;
    wdgreet.extent.tl.y = 0 ;
    wdgreet.extent.width = 240 ;

D 17
    wdgreet.extent.height = 80 ; /

E 17

I 17
    wdgreet.extent.height = 80 ;

E 17
    wdgreet.flags = W_WIN_PRIORITY ;
    wdgreet.mouse_icon = 0 ;
    wdgreet.filler = 0 ;
    wdgreet.background = W_WIN_BACK_BITMAP ;
    /* graphics context definitions (how to draw) specification */
    gdgreet.gmode = G_TRMODE_SET ;
    gdgreet.textmode = G_TRMODE_REPL ;
    gdgreet.style = G_STY_UNDERLINE | G_STY_DOUBLE | G_STY_ITALIC | G_STY_UNDERLINE | G_STY_BOLD;
    gdgreet.filler = 0 ;

D 17
    gdgreet.fond = WS_FONT_BASE ;

E 17

I 17
    gdgreet.font = WS_FONT_BASE ;

E 17
    /* create the window */

D 17
    wingreet = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdgreet,1)

E 17

I 17
    wingreet = wCreateWindow(MainWid, W_WIN_EXTENT | W_WIN_BACKGROUND, &wdgreet,1) ;

E 17
    /* make it real in the windows tree */
    wInitialiseWindowTree(wingreet) ;
    /* create the graphics context */

D 17
    gcgreet = gCreateGC(wingreet, G_GC_MASK_GMODE | G_GC_MASK_TEXTMODE | G_GC_MASK_STYLE, &gdpath) ;

E 17

I 17
    gcgreet = gCreateGC(wingreet, G_GC_MASK_GMODE | G_GC_MASK_TEXTMODE | G_GC_MASK_STYLE, &gdgreet) ;

E 17
    /* make the window visible */

D 17
    wMakeVisible(winpath) ;

E 17

I 17
    wMakeVisible(wingreet) ;

E 17
    /* make the current context the one we will use */
    gSetGC0(gcgreet) ;
    /* put a border around the current context */

D 17
    gBorder(W_BORD_CUSHION|W__BORD_CORNER_4) ;

E 17

I 17
    gBorder(W_BORD_CUSHION|W_BORD_CORNER_4) ;

E 17

    /* actualy do the printing */
    gPrintClipText(10, 30, welc1, p_slen(welc1), 220) ;
    gPrintClipText(10, 50, welc2, p_slen(welc2), 220) ;
    gPrintClipText(10, 70, welc3, p_slen(welc3), 220) ;
    /* hang around for the key press */
    uGetKey(&key) ;
    /* destroy this window and all associated data */
    wCloseWindowTree((UINT) wingreet) ;

E 20

I 20
    uDisplayText("Psion Offline SMTP Mail Reader", "(C) by Tim Graves,","Sun Microsystems","Version %I%", "Press Return to continue", NULL) ;

E 20

E 16
}

/* read the incomming meta file and display the list of emails */

D 3
VOID initlist(VOID)

E 3

I 3
INT initlist(VOID)

E 3
{

I 3
    INT ret ;

D 16
    if (topdbg == TRUE)
        p_printf("CALL: initlist()") ;

E 16

E 3
    llinit() ;

I 16

D 17
    startusmsg("Reading mta lists") ;

E 17

I 17
    statusmsg("Reading mta lists") ;

E 17

E 16
    /* first read the incomming meta data file */

D 3
    readmeta(METAIN, inlist) ;

E 3

I 3
    ret = readmeta(METAIN, inlist) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: initlist, error in reading metafile %s", METAIN) ;

E 16

I 16
        uDisplayText("FILE ERROR: initlist,","error in reading metafile", METAIN, NULL) ;

E 16

D 5
        return (ERR) ;

E 5

I 5
        return (FILEERR) ;

E 5
    }

I 5
    if (ret == MEMERR)
    {

D 16
        p_printf("MEMORY ERROR: initlist, error in reading metafile %s", METAIN) ;

E 16

I 16
        uDisplayText("MEMORY ERROR: initlist,","error in reading metafile", METAIN, NULL) ;

E 16
        return(MEMERR) ;
    }

E 5

E 3
    /* then the outgoing data file */

D 3
    readmeta(METAOUT, outlist) ;

E 3

I 3
    ret = readmeta(METAOUT, outlist) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: initlist, error in reading metafile %s", METAIN) ;

E 16

I 16
        uDisplayText("FILE ERROR: initlist,","error in reading metafile", METAIN, NULL) ;

E 16

D 5
        return (ERR) ;

E 5

I 5
        return (FILEERR) ;

E 5
    }

I 5
    if (ret == MEMERR)
    {

D 16
        p_printf("MEMORY ERROR: initlist, error in reading metafile %s", METAOUT) ;

E 16

I 16
        uDisplayText("MEMORY ERROR: initlist,","error in reading metafile", METAOUT, NULL) ;

E 16
        return(MEMERR) ;
    }

E 5

E 3
    /* start working with the incomming list */
    currlist = inlist ;

I 16
    if (currlist->count > 0)
        mailno = 1 ;
    else
        mailno = 0 ;

E 16
    /* display the list first*/

D 16
    disphdrs(currlist, 1, 10) ;

E 16

I 16

D 17
    redolist(currlist) ;

E 17

I 17
    redolist() ;

E 17

E 16

I 5
    return(TRUE) ;

E 5
}


D 14
/* wait for a command then do it */

E 14

I 14
/* wait for a command then do it this is taken directly from the
   developers kit demo code */

E 14

D 3
VOID mainloop(VOID)

E 3

I 3
INT mainloop(VOID)

E 3
{

I 14
    INT ret ;
    WMSG_KEY key ;
    FOREVER
    {
        uGetKey(&key) ;
        if (key.keycode&W_EVENT_KEY) /* call from the system screen, we are only interested in the shutdown
                         as we done accept new or open functions */
        {
            if (key.keycode==CONS_EVENT_COMMAND) /* exit and save our state */
                return(TRUE) ;
        }
        else if (key.keycode&W_SPECIAL_KEY) /* psion-? accelerator */
        {
            /* check for x or q (exit and save or crash out) as we handle these here */
            ret = key.keycode&(~W_SPECIAL_KEY) ;

D 20
            if (ret == 'q')

E 20

I 20
            if (ret == 'x')

E 20
                return (TRUE) ;
            else if (ret == 'c')
                return(IERR) ;
            else
                ManageCommand(ret) ;

D 17
        else if (key.keycode == W_KEY_MENU && !(key.modifiers&W_CTRL_MODIFIER)) /* menu button */

E 17

I 17
        }
        else if ((key.keycode == W_KEY_MENU) && !(key.modifiers&W_CTRL_MODIFIER)) /* menu button */

E 17
        {
            ret = uPresentMenus() ;
            if (ret > 0)
            {
                /* check for x or q (exit and save or crash out) as we handle these here */

D 20
                if (ret == 'q')

E 20

I 20
                if (ret == 'x')

E 20
                    return (TRUE) ;
                else if (ret == 'c')
                    return(IERR) ;
                else
                    ManageCommand(ret) ;

I 17
            }

E 17
        }

I 15
        /* we know the keycode is not a system screen function, psion-? key on menu button
           see if it is a movement key (up, down, page up, page down or modified with ctrl */
        else
        {
            switch (key.keycode)
            {
                case W_KEY_UP:
                    if (key.modifiers&W_CTRL_MODIFIER) /* go to the bottom of the current page */

D 16
                        mailno -= (ITEMS_ON_SCREEN -1) / 2 ;

E 16

I 16
                        mailno -= ITEMS_ON_HALF_SCREEN ;

E 16
                    else
                        mailno -- ;
                    break ;
                case W_KEY_DOWN:
                    if (key.modifiers&W_CTRL_MODIFIER) /* go to the top of the current page */

D 16
                        mailno += (ITEMS_ON_SCREEN -1) /2 ;

E 16

I 16
                        mailno += ITEMS_ON_HALF_SCREEN  ;

E 16
                    else
                        mailno ++ ;
                    break ;
                case W_KEY_PAGE_UP:
                    if (key.modifiers&W_CTRL_MODIFIER) /* go to the first entry */
                        mailno = 1 ;
                    else
                        mailno -= ITEMS_ON_SCREEN ;
                    break ;
                case W_KEY_PAGE_DOWN:
                    if (key.modifiers&W_CTRL_MODIFIER) /* go to the last entry */
                        mailno = currlist->count ;
                    else
                        mailno += ITEMS_ON_SCREEN ;
                    break ;
            }
            /* make sure that mail no is within the current email range */
            if (mailno < 1)
                mailno = 1 ;
            if (mailno > currlist->count)
                mailno = currlist->count ;
        }
        redolist() ; /* the likley hood is that the list will have changed so redraw it */

E 15
    }
}

LOCAL_C VOID ManageCommand(INT keycode)
{

E 14

D 15
    TEXT cmd[10], * cmdptr ;
    INT ret, mailno ;

E 15

I 15

D 17
    INT ret, intl;

E 17

I 17
    INT  incl;

E 17

E 15
    struct ll * llptr ;

D 15
    WORD wmailno ;

I 3

D 14
    if (topdbg == TRUE)
        p_printf("CALL: mainloop()") ;

E 14

E 3
    cmd[0] = '\0' ;
    cmdptr = cmd ;
    /* loop around untill we get to a quit */
    ret = TRUE ;
    mailno = -1 ;
    while(ret == TRUE)

E 15

I 15
    switch (keycode)

E 15
    {

D 15
        getcmd(cmd) ;
        /* the main switch */
        /* q - quit */
        if (cmd[0] == 'q')
        {
            ret = FALSE ;
            continue ;
        }
        /* <number> set the current number */
        if (p_isdigit(cmd[0]))
        {

I 6
            cmdptr = cmd ;

E 6
            p_stoi(&cmdptr, &wmailno) ;

I 8
            mailno = (INT) wmailno ;

E 8

D 7
            mailno = (INT) wmailno ;

E 7

I 3
            p_printf("Current email number is %d", mailno) ;
            llptr = llnofind(mailno, currlist) ;
            if (llptr == NULL)
            {
                p_printf("WARNING: email number %d does not exist", mailno) ;
            }
            else if (llptr->status == DELETED)
            {
                p_printf("WARNING: email number %d is deleted", mailno) ;

I 7
                continue ;

E 7
            }
            else if (llptr->status == IGNORE)
            {
                p_printf("WARNING: email number %d is reserved for internal use", mailno) ;

I 7
                continue ;

E 7
            }
            else if (llptr->status != ACTIVE)
            {
                p_printf("INTERNAL ERROR: mainloop, email number %d has an invalid status flag (%d), panic exit", mailno, llptr->status) ;

D 5
                return(ERR) ;

E 5

I 5
                return(IERR) ;

E 5
            }

E 3
            continue ;
        }

I 7
        /* v - view the email */
        if (cmd[0] == 'v')
        {
            if (llvalid(mailno, currlist))
            {
                readmail(mailno, currlist) ;
            }
            continue ;
        }

E 7
        /* n - newemail, force this onto the outlist */
        if (cmd[0] == 'n')
        {
            /* if the next char is i include the current email */
            if (cmd[1] == 'i')
            {
                if (llvalid(mailno, currlist))
                {
                    newemail(mailno, currlist, TRUE) ;
                }
            }
            else
            {
                newemail(mailno, currlist, FALSE) ;
            }
            continue ;
        }
        /* r - reply to sender */
        if (cmd[0] == 'r')
        {
            if (llvalid(mailno, currlist))
            {
                /* if the second char is i include the
                   current email */
                if (cmd[1] == 'i')
                    repfrom(mailno, currlist, TRUE) ;
                else
                    repfrom(mailno, currlist, FALSE) ;
            }
            continue ;
        }
        /* R - reply to all */
        if (cmd[0] == 'R')
        {
            if (llvalid(mailno, currlist))
            {

                /* if the second char is i include the
                   current email */
                if (cmd[1] == 'i')
                    repall(mailno, currlist, TRUE) ;
                else
                    repall(mailno, currlist, FALSE) ;
            }
            continue ;
        }
        /* D - delete email */
        if (cmd[0] == 'D')
        {
            if (llvalid(mailno, currlist))
            {
                delmail(mailno, currlist) ;

I 6
                p_printf("Email %d is marked as deleted", mailno) ;

E 6
            }
            continue ;
        }
        /* U - undelete email */
        if (cmd[0] == 'U')
        {
            llptr = llnofind(mailno, currlist) ;
            if (llptr == NULL)
            {
                p_printf("message %d does not exist", mailno) ;
                continue ;
            }
            if (llptr->status != DELETED)
            {
                p_printf("message number %d is not deleted, camt undelete", mailno) ;
                continue ;
            }

E 15

I 15
        /* functions from the current email list */
        case 'v': /* v - view the email */
            readmail(mailno, currlist) ;
            break ;
        case 'd': /* d - delete email */
            delmail(mailno, currlist) ;
            break ;
        case 'u': /* u - undelete email */

E 15
            udelmail(mailno, currlist) ;

I 6

D 15
            p_printf("Email %d is marked as undeleted", mailno) ;

E 6
            continue ;
        }
        /* h - print current headers */
        if (cmd[0] == 'h')
        {
            disphdrs(currlist, mailno - 5, mailno + 5) ;
            continue ;
        }
        /* ? - help */
        if (cmd[0] == '?')
        {

D 11
            p_printf("Help not implemented") ;

E 11

I 11
            p_printf("<number> - sets the current email") ;
            p_printf("n - new email");
            p_printf("ni - new email including current") ;
            p_printf("r - reply to sender") ;
            p_printf("ri - reply to sender including current") ;
            p_getch() ;
            p_printf("R - reply to all") ;
            p_printf("Ri - reply to all including current") ;
            p_printf("D - delete current") ;
            p_printf("U - Undelete current") ;
            p_printf("h - print headers") ;
            p_getch() ;
            p_printf("S - switch between incomming and outgoing list") ;
            p_printf("? - help") ;
            p_printf("q - quit, save changes") ;
            p_printf("c - crash out losing changes") ;

E 11
            continue ;
        }
        /* S - switch from the inlist to the outlist */
        if (cmd[0] == 'S')
        {

E 15

I 15
            break ;
        case 'm': /* modify the current header */

I 16
            /* this is pointless unless we are dealing with the outgoing list. So */
            if (currlist == inlist)
            {
                uDisplayText("You Cannot modify the headers", "In the incomming list", "(Its a pointless exercise)", NULL) ;
                break ;
            }

E 16
            llptr = llnofind(mailno, currlist) ;
            gethdr(llptr) ;
            break ;
        /* functions from the compose email list */
        case 'n': /* new email */
            incl = askincl() ;
            newemail(mailno, currlist, incl) ;
            break ;
        case 'r': /* r - reply to sender */
            incl = askincl() ;
            repfrom(mailno, currlist, incl) ;
            break;
        case 'a': /* a - reply to all */
            incl = askincl() ;
            repall(mailno, currlist, incl) ;
            break ;
        /* functions from the special email list - NOTE x and c are dealt with earlier in the mainloop code */
        case 's': /* s - switch from the inlist to the outlist */

E 15
            if (currlist == inlist)
            {

D 16
                p_printf("Switching to the outgoing mail file") ;

E 16

I 16
                uDisplayText("Switching to the outgoing mail file", NULL) ;

E 16
                currlist = outlist ;
            }
            else
            {

D 16
                p_printf("Switching to the incomming mail file") ;

E 16

I 16
                uDisplayText("Switching to the incomming mail file", NULL) ;

E 16
                currlist = inlist ;
            }
            mailno = 1 ;

D 15
            disphdrs(currlist, 1, 10) ;
            continue ;
        }

I 3
        /* debug stuff print the current list head */
        if (cmd[0] == 'i')
        {
            lldump(currlist) ;
            continue ;
        }
        /* print the full current list */
        if (cmd[0]  == 'I')
        {
            lldmpall(currlist) ;
            continue ;
        }
        /* more debug - crash out without printing anything */

D 11
        if (cmd[0] == 'c')

E 11

I 11
        if (cmd[0] == 'C')

E 11
        {

D 5
            return (ERR) ;

E 5

I 5
            return (IERR) ;

E 5
        }

E 15

I 15
            break ;

E 15

E 3

D 5
    }

E 5

I 5
    }

D 15
    return(ret) ;

E 15

I 15
    return ;

E 15

E 5

}

/* delete any deleted files, write out the updated meta files */

D 3
VOID dotidy(VOID)

E 3

I 3
INT dotidy(VOID)

E 3
{

I 3
    INT ret ;

D 14
    if (topdbg == TRUE)
        p_printf("CALL dotidy()") ;

E 14

E 3
    /* purge the deleted incomming emails */

I 16

D 17
    statusmsg("Deleting unwanted message files")

E 17

I 17
    statusmsg("Deleting unwanted message files") ;

E 17

E 16

D 6
    prgemail(inlist) ;

E 6

I 6
    ret = prgemail(inlist) ;
    if (ret == FILEERR)
    {

D 16
        p_printf("FILE ERROR: dotidy, error in purging input list datafiles") ;

E 16
        return(FILEERR) ;
    }

E 6
    /* purge any deleted outgoing emails */

D 6
    prgemail(outlist) ;

E 6

I 6
    ret = prgemail(outlist) ;
    if (ret == FILEERR)
    {

D 16
        p_printf("FILE ERROR: dotidy, error in purging output list datafiles") ;

E 16
        return(FILEERR) ;
    }

E 6
    /* write the incomming list back out */

I 16
    statusmsg("Saving mta lists") ;

E 16

D 3
    wrtmeta(METAIN, inlist) ;

E 3

I 3
    ret = wrtmeta(METAIN, inlist) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: dotidy, error in writting metafile %s", METAIN) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    /* finaly the outgoing list */
    wrtmeta(METAOUT, outlist) ;

I 3

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: dotidy, error in writting metafile %s", METAOUT) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    /* free the data in the list */

I 16
    statusmsg("Freeing Memory") ;

E 16
    llfree(inlist) ;
    llfree(outlist) ;

I 5
    return(TRUE) ;

E 5
}


/* write the meta files out */

E 2
 void main(void)
{

I 3
    INT ret ;

D 14
    if (topdbg == TRUE)
        p_printf("CALL: main()") ;

E 14

E 3

D 2
    /* call the word application on the filename m:\mail\m1.mes */
    /* assumes the file exists */
    doword("LOC::M:\\MAIL\\M1.MES") ;

E 2

I 2

D 15
    /* setup the windows */

E 15

I 15
    /* setup the windows etc*/

E 15
    initwins() ;

I 6
    /* say Hi */
    dogreet() ;

I 16
    /* Load my windows */
    initmywins() ;

E 16

E 6
    /* read the list of incomming mail */

D 3
    initlist() ;

E 3

I 3
    ret = initlist() ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: main, error in loading meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("FILE ERROR: main, error","in loading meta lists", NULL) ;

E 16
        return ;
    }

I 5
    if (ret == MEMERR)
    {

D 16
        p_printf("FILE ERROR: main, error in loading meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("MEMORY ERROR: main, error","in loading meta lists", NULL) ;

E 16
        return ;
    }
    if (ret != TRUE)
    {

D 16
        p_printf("UNKNOWN ERROR: main, error in loading meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("UNKNOWN ERROR: main, error","in loading meta lists", NULL) ;

E 16
        return ;
    }

E 5

E 3
    /* main select / chose / do loop */

D 3
    mainloop() ;

E 3

I 3
    ret = mainloop() ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == IERR)

E 5
    {

D 16
        p_printf("INTERNAL ERROR: panic exit (metafiles not written)") ;
        p_getch() ;

E 16

I 16
        uDisplayText("INTERNAL ERROR: panic exit","(metafiles not written)", NULL) ;

E 16
        return ;
    }

I 5
    else if (ret == FILEERR)
    {

D 16
        p_printf("FILE ERROR: panic exit (metafiles not written)") ;
        p_getch() ;

E 16

I 16
        uDisplayText("FILE ERROR: panic exit","(metafiles not written)", NULL) ;

E 16
        return ;
    }
    else if (ret == MEMERR)
    {

D 16
        p_printf("MEMORY ERROR: panic exit (metafiles not written)") ;
        p_getch() ;

E 16

I 16
        uDisplayText("MEMORY ERROR: panic exit","(metafiles not written)", NULL) ;

E 16
        return ;
    }
    else if ((ret != TRUE) && (ret != FALSE))
    {

D 16
        p_printf("UNKNOWN ERROR: panic exit (metafiles not written)") ;
        p_getch() ;

E 16

I 16
        uDisplayText("UNKNOWN ERROR: panic exit","(metafiles not written)", NULL) ;

E 16
        return ;
    }

E 5

E 3
    /* tidy up after us */

D 3
    dotidy() ;

E 3

I 3
    ret = dotidy() ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == IERR)

E 5
    {

I 5

D 16
        p_printf("INTERNAL ERROR: main, error in writting meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("INTERNAL ERROR: main, error","in writting meta lists", NULL) ;

E 16
        return ;
    }
    if (ret == MEMERR)
    {

D 16
        p_printf("MEMORY ERROR: main, error in writting meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("MEMORY ERROR: main, error","in writting meta lists", NULL) ;

E 16
        return ;
    }
    if (ret == FILEERR)
    {

E 5

D 16
        p_printf("FILE ERROR: main, error in writting meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("FILE ERROR: main, error","in writting meta lists", NULL) ;

E 16
        return ;
    }

I 5
    if (ret != TRUE)
    {

D 16
        p_printf("UNKNOWN ERROR: main, error in writting meta lists") ;
        p_getch() ;

E 16

I 16
        uDisplayText("UNKNOWN ERROR: main, error","in writting meta lists", NULL) ;

E 16
        return ;
    }

E 5

E 3
    /* close down the windows etc */
    shutwins() ;

E 2
}


I 2
/* end of top level code */


D 16
/* start of commands code */
/* prompt and then read in a command, if the command is "q" return FALSE, otherwise return (TRUE) */
VOID getcmd(TEXT * cmd)
{

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL: getcmd()") ;

E 14

E 3

D 12
    putnonl(">") ;

E 12

I 12
    p_putch('>') ;
    p_putch(' ') ;

E 12
    getinp(cmd) ;
}

/* end of commands code */


E 16
/* start of process related code */

D 7


E 7

I 7

D 14
#ifdef RUNONSUN
/* if we are running on the sun dont call word, just display the file */

E 14

I 14
/* do the word stuff */

E 14

E 7

E 2
VOID doword(TEXT * fname)
{

I 7

D 14
    VOID * infd ;
    INT ret ;
    TEXT buff[P_FBLKSIZE] ;

    if (procdbg == TRUE)
        p_printf("CALL: doword(fname = %s), sun version", fname) ;
    ret = p_open(&infd, fname, P_FTEXT | P_FSHARE) ;
    if (ret < 0)
    {
        p_printf("FILE ERROR: doword (sun version), error in opening %s for read", fname) ;
        p_errs(buff, ret) ;
        p_printf("%s", buff) ;
        return ;
    }
    ret = 0 ;
    while (ret >= 0)
    {
        ret = p_read(infd, buff, P_FBLKSIZE) ;
        /* terminate the string */
        buff[ret] = '\0' ;
        putnonl(buff) ;
        p_getch() ;
    }
    p_close(infd) ;
}
#else
/* we are compiling for the psion, realy do the word stuff */
VOID doword(TEXT * fname)
{

E 14

E 7

D 16
    TEXT cmdline[127] ;

E 16

I 16
    TEXT cmdline[127], tmp[50] ;

E 16

D 17
    INT i ;

E 17
    INT cmdlen ;


I 3

D 14
    if (procdbg == TRUE)

D 7
        p_printf("CALL: doword(fname = %s)", fname) ;

E 7

I 7
        p_printf("CALL: doword(fname = %s), psion version", fname) ;

E 14

E 7

E 3
    /* build the command line */

D 7
    p_printf("Building command line\n") ;
    cmdlen = buildcmd('O',"Mailread", ".mes", NULL, fname, cmdline) ;
    for (i = 0 ; i < cmdlen; i++)

E 7

I 7

D 8
    cmdlen = buildcmd('O',"Program", ".txt", NULL, fname, cmdline) ;

E 8

I 8
    cmdlen = buildcmd('O',MAILRDRNAME, MAILRDREXT, "Q", fname, cmdline) ;

E 8

D 14
    if (procdbg == TRUE)

E 7
    {

D 7
        p_printf("cmdline[%d] = %d (%c)\n", i, cmdline[i], cmdline[i]) ;
        p_sleep((ULONG)5) ;

E 7

I 7
        for (i = 0 ; i < cmdlen; i++)
        {
            p_printf("cmdline[%d] = %d (%c)\n", i, cmdline[i], cmdline[i]) ;
            p_getch() ;
        }

E 7
    }

E 14

D 7
    p_printf("Running command\n") ;
    runcmd("ROM::WORD.APP", cmdline, cmdlen) ;
    p_printf("Finished") ;
    p_sleep((ULONG)10) ;

E 7

I 7

D 8
    p_printf("Running word, YOU MUST QUIT WORD do not press any system key") ;
    runcmd(WORDCMD, cmdline, cmdlen) ;
    p_printf("Returned from word") ;

E 8

I 8

D 16
    p_printf("Running %s", MAILRDRNAME ) ;

E 16

I 16
    p_atos(tmp, "Running %s", MAILRDRNAME ) ;
    statusmsg(tmp) ;

E 16
    runcmd(MAILRDRCMD, cmdline, cmdlen) ;

D 16
    p_printf("Returned from %s", MAILRDRNAME) ;

E 16

I 16
    p_atos(tmp, "Returned from %s", MAILRDRNAME) ;

D 17
    statusmsg(tmp)

E 17

I 17
    statusmsg(tmp) ;

E 17

E 16

E 8

E 7
}

D 7


E 7

I 7

D 14
#endif

E 14

I 14


E 14

E 7
INT runcmd(TEXT * appname, TEXT * cmdline, INT cmdlen)
{
    HANDLE pid ;
    WORD stat ;

D 3


E 3

I 3

D 14
    if (procdbg == TRUE)
        p_printf("CALL: runcmd (appname = %s, cmdline = %s, cmdlen = %d)", appname, cmdline, cmdlen) ;

E 14

E 3
    /* create the process */
    if ((pid = p_execc(appname, cmdline, cmdlen)) <0)
        return(pid) ;

    /* we want to monitor it */
    p_logona(pid, &stat) ;

    /* start the process up */
    p_presume(pid) ;

    /* wait for it to finish */
    p_waitstat(&stat) ;

    return(stat >> 8) ;
}

INT buildcmd(TEXT cmdbyte, TEXT * appname, TEXT * appext, TEXT * appalias, TEXT * fname, TEXT * cmdline)
{
    TEXT * cmdptr;
    INT cmdlen ;


I 3

D 14
    if (procdbg == TRUE)
        p_printf("CALL: buildcmd (cmdbyte = %c, appname = %s, appext = %s, appalias = NULL or should be, fname = %s, cmdline = OMITTED)", cmdbyte, appname, appext, fname) ;

E 14

E 3
    /* initialisation */
    cmdlen = 0 ;
    cmdptr = cmdline ;
    /* do the command byte */
        /* insert it */
        * cmdptr = cmdbyte ;
        /* the length has just been increased */
        cmdlen ++ ;
        /* move cmdptr allong one to skip over the command */
        cmdptr ++ ;
    /* insert the appname */
        /* insert it */
        p_scpy(cmdptr, appname) ;
        /* move over it and the \0 */
        cmdptr = cmdptr + p_slen(appname) +1 ;
        /* add the length and the \0 to the total length */
        cmdlen = cmdlen + p_slen(appname) +1 ;
    /* insert the extension and other stuff if appext is non NULL */
    if (appext != NULL)
    {
        /* insert the extension */
        p_scpy(cmdptr, appext) ;
        /* move over it BUT NOT THE NULL (we may have an alias)*/
        cmdptr = cmdptr + p_slen(appext) ;
        /* add the length to the total length */
        cmdlen = cmdlen + p_slen(appext) ;

        /* if the alias is non NULL add it */
        if (appalias != NULL)
        {
            /* insert a space */
            *cmdptr = ' ' ;
            /* move over the space */
            cmdptr ++ ;
            /* add the space to the total length */
            cmdlen ++ ;
            /* insert the appalias */
            p_scpy(cmdptr, appalias) ;
            /* move over the alias BUT NOT THE NULL (then is dealt with below)*/
            cmdptr = cmdptr + p_slen(appalias) ;
            /* increment the total length */
            cmdlen = cmdlen + p_slen(appalias) ;
        }

        /* because we have not accounted for the \0 at the end of the appext / appext+appalias
           move over it now */
        cmdptr ++ ;
        cmdlen ++ ;

        /* if there is a filename add it */
        if (fname != NULL)
        {
            /*insert the filename */
            p_scpy(cmdptr, fname) ;

D 2
            /* add the length and the \0 to the total length */

E 2

I 2
            /* add the length and vFα \0 to the total length */

E 2
            cmdlen = cmdlen + p_slen(fname) + 1 ;
            /* we done need to move cmdptr as we are at the end of the operatrion */
        }
    }
    /* return with the length of the assembled string */
    return(cmdlen) ;
}

I 2

/* end of process related code */

/* start of writting email code */
/* repfrom, reply to the sender only */
INT repfrom(INT mailno, struct ll * startll, INT incl)
{
    struct ll * newll, *repmail ;
    TEXT tmp[100] ;

I 6
    INT ret ;

E 6

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL: repfrom (mailno %d, startll = OMITTED, incl = %d)", mailno, incl) ;

E 14

E 3
    /* create the new list entry */
    newll = llnew() ;
    /* locate the origional email */
    repmail = llnofind(mailno, startll) ;
    /* copy the data */
    llcopy(newll, repmail) ;
    /* add Reto the start of the subject */

D 7
    p_scpym(tmp, "RE ", newll->subject, NULL) ;

E 7

I 7
    p_scpym(tmp, "Re: ", newll->subject, NULL) ;

E 7
    p_scpy(newll->subject, tmp) ;
    /* copy the from into the to list */
    p_scpy(newll->to, newll->from) ;
    /* put our name in the from field */
    p_scpy(newll->from, startll->mydata->myaddr) ;
    /* empty the cc and bcc fields */
    newll->cc[0] = '\0' ;
    newll->bcc[0] = '\0' ;
    /* create the related file */

D 6
    if (newfile(newll, outlist)== FALSE)

E 6

I 6
    if ((ret = newfile(newll, outlist)) != TRUE)

E 6
    {
        p_free(newll) ;

D 6
        return(FALSE) ;

E 6

I 6
        if (ret == FILEERR)

D 16
            p_printf("FILE ERROR: repfrom, newfile returned FILEERR") ;

E 16

I 16
            uDisplayText("FILE ERROR: repfrom,","newfile returned FILEERR", NULL) ;

E 16
        else

D 16
            p_printf("INTERNAL ERROR: repfrom, newfile returned an unexpected error code %d", ret) ;

E 16

I 16
            uDisplayText("INTERNAL ERROR: repfrom,","newfile returned an unexpected error code", NULL) ;

E 16
        return(ret) ;

E 6
    }
    /* if incl is TRUE copy from the origional to the new data file */
    if (incl == TRUE)

D 6
        cpyfile(newll,outlist , repmail, startll) ;

E 6

I 6
    {
        if ((ret = cpyfile(newll,outlist , repmail, startll)) != TRUE)
        {
            p_free(newll) ;

D 7
            if (ret == FILEERROR)

E 7

I 7
            if (ret == FILEERR)

E 7

D 16
                p_printf("FILE ERROR: repfrom, cpyfile returned FILEERR") ;

E 16

I 16
                uDisplayText("FILE ERROR: repfrom,","cpyfile returned FILEERR", NULL) ;

E 16
            else

D 16
                p_printf("INTERNAL ERROR: repfrom, cpyfile returned an unexpected error code %d", ret) ;

E 16

I 16
                uDisplayText("INTERNAL ERROR: repfrom,","cpyfile returned an unexpected error code", NULL) ;

E 16
            return(ret) ;
        }
    }

E 6
    /* make the email active */
    newll->status = ACTIVE ;
    /* get the header information */
    gethdr(newll) ;
    /* get the sequence number */
    newll->no = outlist->count +1 ;
    /* add this email to the outgoing list */
    lladd(newll, outlist) ;

I 6

D 17
    if (cmddbg == TRUE)
        lldump(newll) ;

E 17

E 6
    /* call the editor do do the work */
    wrtemail(newll->no, outlist) ;
}

/* repall, reply to the sender and all other recievers */
INT repall(INT mailno, struct ll * startll, INT incl)
{
    struct ll * newll, *repmail ;
    TEXT tmp[100] ;

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL: repall(mailno = %d, startll = OMITTED, incl = %d)", mailno, incl) ;

E 14

E 3
    /* create the new list entry */
    newll = llnew() ;
    /* locate the origional email */
    repmail = llnofind(mailno, startll) ;
    /* copy the data */
    llcopy(newll, repmail) ;
    /* add Reto the start of the subject */

D 7
    p_scpym(tmp, "RE ", newll->subject, NULL) ;

E 7

I 7
    p_scpym(tmp, "Re: ", newll->subject, NULL) ;

E 7
    p_scpy(newll->subject, tmp) ;
    /* add the from to the to list */
    p_scpym(tmp, newll->from, " ", newll->to, NULL) ;
    p_scpy(newll->to, tmp) ;
    /* put our name in the from field */
    p_scpy(newll->from, startll->mydata->myaddr) ;
    /* create the related file */
    if (newfile(newll, outlist)== FALSE)
    {
        p_free(newll) ;
        return(FALSE) ;
    }
    /* if incl is TRUE copy from the origional to the new data file */
    if (incl == TRUE)
        cpyfile(newll, outlist, repmail, startll) ;
    /* make the email active */
    newll->status = ACTIVE ;
    /* get the header information */
    gethdr(newll) ;
    /* get the sequence number */
    newll->no = outlist->count +1 ;
    /* add this email to the outgoing list */
    lladd(newll, outlist) ;

I 6

D 14
    if (cmddbg == TRUE)
        lldump(newll) ;

E 14

E 6
    /* call the editor do do the work */
    wrtemail(newll->no, outlist) ;
}
/* newemail, new list entry, fill it in then write the email */
INT newemail(INT mailno, struct ll * startll, INT incl)
{
    struct ll * newll, * repmail ;

I 5
    INT ret ;

E 5

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL: newemail(mailno = %d, startll = OMITTED, incl = %d)", mailno, incl) ;

E 14

E 3
    newll = llnew() ;
    /* instal our address into the from field */
    p_scpy(newll->from, startll->mydata->myaddr) ;
    /* create the related file */

D 3
    if (newfile(newll, outlist)== FALSE)

E 3

I 3

D 5
    if (newfile(newll, outlist) == FALSE)

E 5

I 5
    if (newfile(newll, outlist) == FILEERR)

E 5

E 3
    {

I 3

D 16
        p_printf("FILE ERROR: newemail, error in creating new email file") ;

E 16

I 16
        uDisplayText("FILE ERROR: newemail,","error in creating new email file", NULL) ;

E 16

E 3
        p_free(newll) ;

D 5
        return(FALSE) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    /* if incl is true we need to copy the given email */
    if (incl == TRUE)
    {
        repmail = llnofind(mailno, startll) ;

D 5
        cpyfile(newll, outlist, repmail, startll) ;

E 5

I 5
        ret = cpyfile(newll, outlist, repmail, startll) ;
        if (ret == FILEERR)
        {

D 16
            p_printf("FILE ERROR: newemail, error in cerating copy file for include") ;

E 16

I 16
            uDisplayText("FILE ERROR: newemail,","error in creating copy file for include", NULL) ;

E 16
            return(FILEERR) ;
        }

E 5
    }
    /* make the email active */
    newll->status = ACTIVE ;
    /* get the header information */
    gethdr(newll) ;
    /* get the sequence number */
    newll->no = outlist->count +1 ;
    /* add this email to the outgoing list */
    lladd(newll, outlist) ;

I 6

D 14
    if (cmddbg == TRUE)
        lldump(newll) ;

E 14

E 6
    /* call the editor do do the work */
    wrtemail(newll->no, outlist) ;
}
/* end of email writting code */

/* start of header from user code */
/* fill in a data entry with user information */
VOID gethdr(struct ll * in)
{

I 3

D 14
    if (inpdbg == TRUE)

I 6
    {

E 6
        p_printf("CALL: gethdr (in = OMITTED)");

I 6
        p_printf("Starcture at start is") ;
        lldump(in) ;
    }

E 14

E 6

E 3

D 16
    getto(in->to) ;
    getsub(in->subject) ;
    getcc(in->cc) ;
    getbcc(in->bcc) ;

E 16

I 16

D 17
    TEXT to[HDRLEN+1], from[HDRLEN+1], cc [HDRLEN+1], bcc[HDRLEN+1] ;
    H_DIALOG_SEDIT eto, esubject, ecc, ebcc ;

E 17

I 17
    TEXT to[HDRLEN+1], subject[HDRLEN+1], cc [HDRLEN+1], bcc[HDRLEN+1] ;
    H_DI_SEDIT eto, esubject, ecc, ebcc ;

E 17
    /* convert from zero terminated strings (ala C) to byte count srtings (ala OPL) */
    uZTStoBCS(to, in->to) ;
    uZTStoBCS(subject, in->subject) ;
    uZTStoBCS(cc, in->cc) ;
    uZTStoBCS(bcc, in->bcc) ;
    /* build the dialog structures */
    /* the to structure */
    eto.str = &to[0] ;
    eto.len = HDRLEN ;
    eto.width = 30 ;
    /* subject structure */
    esubject.str = &subject[0] ;
    esubject.len = HDRLEN ;
    esubject.width = 30 ;
    /* cc structure */
    ecc.str = &cc[0] ;
    ecc.len = HDRLEN ;
    ecc.width = 30 ;
    /* bcc structure */
    ebcc.str = &bcc[0] ;
    ebcc.len = HDRLEN ;
    ebcc.width = 30 ;

    /* build the dialog */
    uOpenDialog("Please enter the header information") ;
    /* add the initial header information to it */

D 17
    uAddDialogItem(H_DIALOG_SEDIT, "     To: ", eto) ;
    uAddDialogItem(H_DIALOG_SEDIT, "Subject: ", esubject) ;
    uAddDialogItem(H_DIALOG_SEDIT, "     Cc: ", ecc) ;
    uAddDialogItem(H_DIALOG_SEDIT, "    Bcc: ", ebcc) ;

E 17

I 17
    uAddDialogItem(H_DIALOG_SEDIT, "To:", &eto) ;
    uAddDialogItem(H_DIALOG_SEDIT, "Subject:", &esubject) ;
    uAddDialogItem(H_DIALOG_SEDIT, "Cc:", &ecc) ;
    uAddDialogItem(H_DIALOG_SEDIT, "Bcc:", &ebcc) ;

E 17
    /* run the dialog */
    uRunDialog() ;
    /* unpack the resulting strings this is realy daft having parts of the dialog ZTS and parts BCS */
    /* terminate them first */
    to[((INT)to[0])+1] = '\0' ;
    subject[((INT) subject[0])+1] = '\0' ;
    cc[((INT) cc[0])+1] = '\0' ;
    bcc[((INT) bcc[0]) +1] = '\0' ;
    /* copy the strings back */
    p_scpy(in->to, &to[1]) ;
    p_scpy(in->subject, &subject[1]) ;
    p_scpy(in->cc, &cc[1]) ;
    p_scpy(in->bcc, &bcc[1]) ;

E 16

I 6

D 7
    if (inpdbg == TRUE) ;

E 7

I 7

D 14
    if (inpdbg == TRUE)

E 7
    {
        p_printf("gethdr ll struct at end is") ;
        lldump(in) ;
    }

E 14

E 6
}


D 16
/* read a line of text, if there is data in there use that as a default */
VOID getinfo(TEXT * request, TEXT * target)
{
    TEXT tmp [100] ;

I 3

D 14
    if (inpdbg == TRUE)
        p_printf("CALL: getinfo (request = %s, target = %s)", request, target) ;

E 14

E 3
    /* are we given an empty string ? */

D 6
    if(p_slen(target) == 0)

E 6

I 6
    if(target[0] == '\0')

E 6
    {
        p_printf("Please enter the %s", request) ;
        getinp(target) ;
    }
    else
    {

D 6
        p_printf("Please enter a new %s or hit return \nTo accept the existing value of %s", target) ;

E 6

I 6

D 7
        p_printf("Please enter a new %s or hit return to accept the existing value of %s", request, target) ;

E 7

I 7
        p_printf("Please enter a new %s or hit return to accept the existing value (%s)", request, target) ;

E 7

E 6
        getinp(tmp) ;
        if (p_slen(tmp) != 0)
            p_scpy(target, tmp) ;
    }
}
/* target address */
VOID getto(TEXT * to)
{

I 3

D 14
    if (inpdbg == TRUE)
        p_printf("CALL: getto(to = %s)", to);

E 14

E 3
    getinfo("destination address", to) ;
}
/* subject */
VOID getsub(TEXT * sub)
{

I 3

D 14
    if (inpdbg == TRUE)
        p_printf("CALL: getsub (sub = %s)", sub) ;

E 14

E 3
    getinfo("subject", sub) ;
}
/* cc list */
VOID getcc (TEXT * cc)
{

I 3

D 14
    if (inpdbg == TRUE)
        p_printf("CALL: getcc (cc = %s)", cc) ;

E 14

E 3
    getinfo("Cc List", cc);
}
/* bcc list */
VOID getbcc (TEXT * bcc)
{

I 3

D 14
    if (inpdbg == TRUE)
        p_printf("CALL: getbcc (bcc = %s)", bcc) ;

E 14

E 3
    getinfo("Bcc List", bcc) ;
}

E 16
/* end of header from user code */

/* start of functions for working the mailbox in view */
/* bring up a mail reader */
VOID readmail(INT mailno, struct ll * llstart)
{
    struct ll * llentry ;
    TEXT fname [P_FNAMESIZE] ;

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL readmail (mailno = %d, llstart = OMITTED)", mailno) ;

E 14

E 3
    if ((llentry = llnofind(mailno, llstart)) == NULL)
        return ;

I 7

D 14
    if (cmddbg == TRUE)
    {
        p_printf("Working on email ll") ;
        lldump(llentry) ;
    }

E 14

E 7
    if (llentry->status != ACTIVE)
        return ;
    /* build up the name */

D 7
    p_scpym(fname, llstart->mydata->mypath, llentry->datafile) ;

E 7

I 7
    p_scpym(fname, llstart->mydata->mypath, llentry->datafile, NULL) ;

D 14
    if (cmddbg == TRUE)
        p_printf("Reading file %s", fname) ;

E 14

E 7
    /* call up the editor */
    doword(fname) ;
    /* OK we've read the mail, mark it as read */
    llentry->read = RD ;
}
/* write a mail reply, the corresponding linked list
   entry exists as does the file, so ensure that
   it is listed as active after the edit */
VOID wrtemail(INT mailno, struct ll * llstart)
{
    struct ll * llentry ;
    TEXT fname [P_FNAMESIZE] ;

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL wrtemail (mailno = %d, llstart = OMITTED)", mailno) ;

E 14

E 3
    if((llentry = llnofind(mailno, llstart)) == NULL)
        return ;

I 7

D 14
    if (cmddbg == TRUE)
    {
        p_printf("ll structure for mail no %d is", mailno) ;
        lldump(llentry) ;
    }

E 14

E 7
    /* build up the name */

D 7
    p_scpym(fname, llstart->mydata->mypath, llentry->datafile) ;

E 7

I 7
    p_scpym(fname, llstart->mydata->mypath, llentry->datafile, NULL) ;

D 14
    if (cmddbg == TRUE)
    {
        p_printf("working on name %s", fname) ;
        p_getch() ;
    }

E 14

E 7
    /* call up the editor */
    doword(fname) ;

I 7

D 14
    if (cmddbg == TRUE)
        p_printf("wrtemail, returned from doword") ;

E 14

E 7
    /* OK we've got a file ensure it's active */
    llentry->status = ACTIVE ;
}
/* delete a mail from the linked lists */
VOID delmail (INT mailno, struct ll * llstart)
{
    struct ll * llentry ;

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL delmail (mailno = %d, llstart = OMITTED)", mailno) ;

E 14

E 3
    if ((llentry = llnofind(mailno, llstart)) == NULL)
        return ;
    llentry->status = DELETED ;
}
/* undelete the mail from the internal linked lists */
VOID udelmail (INT mailno, struct ll * llptr)
{
    struct ll * llentry ;

I 3

D 14
    if (cmddbg == TRUE)
        p_printf("CALL udelmail (mailno = %d, llptr = OMITTED)", mailno) ;

E 14

E 3
    if ((llentry = llnofind(mailno, llptr)) == NULL)
        return ;
    llentry->status = ACTIVE ;
}
/* end of functions for working the mailbox in view */

/* start of ancilary data file functions */
/* delfile - physicaly delete the data file */
INT delfile(struct ll * llcur, struct ll * llstart)
{
    TEXT dfname[P_FNAMESIZE] ;

I 3

D 14
    if (filedbg == TRUE)
        p_printf("CALL: delfile (llcur = OMITTED, llstart = OMITTED)");

E 14

E 3
    /* build up the filesname */
    p_scpym(dfname, llstart->mydata->mypath, llcur->datafile, NULL) ;
    if (p_delete(dfname) == 0)
        return(TRUE) ;
    else

D 6
        return(FALSE) ;

E 6

I 6
    {

D 16
        p_printf("FILE ERROR: delfile, error in deleting file %s", dfname) ;

E 16

I 16
        uDisplayText("FILE ERROR: delfile,","error in deleting file", dfname, NULL) ;

E 16
        return(FILEERR) ;
    }

E 6
}

/* cpyfile - copy from the file in origll to the file in newll
   assume the file exists */
INT cpyfile (struct ll * newll, struct ll * outhead, struct ll * origll, struct ll * inhead)
{
    VOID * infd, * outfd ;
    INT ret ;
    TEXT infname[P_FNAMESIZE] , outfname[P_FNAMESIZE] ;

D 9
    TEXT buff [P_FBLKSIZE] ;

E 9

I 9

D 10
    TEXT buff [MAXLINE] ;

E 10

I 10
    TEXT buff [P_FMAXRSIZE], tmp[P_FMAXRSIZE+3] ;

E 10

E 9

I 3

D 14
    if (filedbg == TRUE)
        p_printf("CALL: cpyfile (newll = OMITTED, outhead = OMITTED origll = OMITTED, inhead = OMITTED)");

E 14

E 3
    /* munge the filenames */
    p_scpym(infname, inhead->mydata->mypath, origll->datafile, NULL) ;
    p_scpym(outfname, outhead->mydata->mypath, newll->datafile, NULL) ;

I 6

D 14
    if (filedbg == TRUE)
    {
        p_printf("infname is %s", infname) ;
        p_printf("outfname is %s", outfname) ;
        p_getch() ;
    }

E 14

E 6
    /* open the files */

D 7
    ret = p_open(&infd, infname, P_FOPEN | P_FSTREAM | P_FSHARE) ;

E 7

I 7

D 10
    ret = p_open(&infd, infname, P_FOPEN | P_FSTREAM_TEXT | P_FSHARE) ;

E 10

I 10
    ret = p_open(&infd, infname, P_FTEXT | P_FSHARE) ;

E 10

E 7

D 6
    ret = p_open(&outfd, outfname, P_FOPEN | P_FSTREAM | P_FUPDATE) ;

E 6

I 6
    if (ret != 0)
    {

D 7
        p_printf("FILE ERROR: cpyfile, error in opening %s as input", infname) ;

E 7

I 7

D 16
        p_printf("FILE ERROR: cpyfile, error in opening %s as input", infname) ;

E 16
        p_errs(buff, ret) ;

D 16
        p_printf("%s", buff) ;

E 16

I 16
        uDisplayText("FILE ERROR: cpyfile,","error in opening input", infname, buff, NULL) ;

E 16

E 7
        return(FILEERR) ;
    }

D 7
    ret = p_open(&outfd, outfname, P_FOPEN | P_FSTREAM | P_FREPLACE) ;

E 7

I 7

D 10
    ret = p_open(&outfd, outfname, P_FOPEN | P_FSTREAM_TEXT | P_FREPLACE) ;

E 10

I 10
    ret = p_open(&outfd, outfname, P_FTEXT | P_FUPDATE | P_FREPLACE) ;

E 10

E 7
    if (ret != 0)
    {

D 16
        p_printf("FILE ERROR: cpyfile, error in opening %s as output", outfname) ;

E 16

I 7
        p_errs(buff, ret) ;

D 16
        p_printf("%s", buff) ;

E 16

I 16
        uDisplayText("FILE ERROR: cpyfile,","error in opening output", outfname, buff, NULL) ;

E 16

E 7
        p_close(infd) ;
        return(FILEERR) ;
    }

I 9

D 10
    /* Insert the start infoamation */
    ret = p_write(outfd, STARTINCL, p_slen(STARTINCL)) ;
    if (ret < 0)
    {
        p_printf("FILE ERROR: cpyfile, error in writting include start(%d)", ret) ;
        P_errs(buff, ret) ;
        p_printf("%s", buff) ;
        p_close(infd) ;
        p_close(outfd) ;
        return(FILEERR) ;
    }

E 10

E 9

E 6
    /* copy the files */
    ret = 1 ;
    while(ret >= 0)
    {

D 9
        ret = p_read(infd, buff, P_FBLKSIZE) ;

E 9

I 9

D 10
        ret = p_read(infd, buff, MAXLINE) ;

E 9
        if (ret <= 0)

E 10

I 10
        ret = p_read(infd, buff, P_FMAXRSIZE) ;
        if (ret < 0)

E 10

I 9
        {

D 14
            if (filedbg == TRUE)
            {
                p_printf("finished copy, ret is %d", ret) ;
                p_errs(buff, ret) ;
                p_printf("%s", buff) ;
                p_getch() ;
            }

E 14

E 9
            break ;

I 9
        }
        /* terminate the string */
        buff[ret] = '\0' ;

I 10
        p_scpym(tmp, "> ", buff, NULL) ;

E 10

D 14
        if (filedbg == TRUE)
        {

D 10
            p_printf(":%s:", buff) ;

E 10

I 10
            p_printf(":%s:", tmp) ;

E 10
            p_getch() ;
        }

E 14

E 9

D 10
        p_write(outfd, buff, ret) ;
    }

I 9
    /* write the end information */
    ret = p_write(outfd, ENDINCL, p_slen(ENDINCL)) ;
    if (ret < 0)
    {
        p_printf("FILE ERROR: cpyfile, error in writting include end") ;
        p_errs(buff, ret) ;
        p_printf("%s", buff) ;
        p_close(infd) ;
        p_close(outfd) ;
        return(FILEERR) ;

E 10

I 10
        p_write(outfd, tmp, p_slen(tmp)) ;

E 10
    }

E 9
    /* close the files */
    p_close(infd) ;
    p_close(outfd) ;
    return(TRUE) ;
}


/* newfile, determine a safe new filename and create it */
INT newfile(struct ll * llcur, struct ll * llstart)
{

D 6
    TEXT myname[P_FNAMESIZE+1],  *myptr;

E 6

I 6
    TEXT mytempl[P_FNAMESIZE+1],  tmppath[P_FNAMESIZE+1];

E 6
    VOID * fd ;

D 3
    INT fstart, flen ;

E 3

I 3

D 6
    INT fstart, flen, ret ;

E 3
    P_FPARSE crk ;

E 6

I 6
    INT ret, i ;

E 6

I 3

D 14
    if (filedbg == TRUE)
        p_printf("CALL: newfile(llcur = OMITTED, llstart = OMITTED)") ;

E 14

E 3

D 6
    /* build up the name */
    p_scpym(myname, llstart->mydata->mypath, OUTSKELETON, NULL) ;

D 3
    if (p_open(&fd, myname, P_FCREATE | P_FUNIQUE) >= 0)

E 3

I 3
    if ((ret = p_open(&fd, myname, P_FCREATE | P_FUNIQUE)) >= 0)

E 6

I 6
    /* build up the name OUTSKELETON is assumed to contain a %d */
    p_scpym(mytempl, llstart->mydata->mypath, OUTSKELETON, NULL) ;
    for (i = 0 ; i < MAXEMAILOUT ; i ++ )
    {
        /* basicaly run around untill we have a number for i
           that does not corespond to a file name */
        p_atos(tmppath, mytempl, i) ;

D 14
        if (filedbg == TRUE)
        {
            p_printf("newfile is working on %s", tmppath) ;
            p_getch() ;
        }


E 14
        ret = fileexist(tmppath) ;
        if (ret == TRUE)
        {
            /* the file exists, continue */

D 14
            if (filedbg == TRUE)
            {
                p_printf("FILE: %s exists", tmppath) ;
            }

E 14
            continue ;
        }
        else if (ret == FALSE)
        {
            /* the file does not exist */

D 14
            if (filedbg == TRUE)
            {
                p_printf("FILE: %s does not exist", tmppath) ;
            }

E 14
            break ;
        }
        else
        {

D 16
            p_printf("FILE ERROR: newemail, Directory, Device or other error recieved from fileexists when testing %s", tmppath) ;

E 16

I 16
            uDisplayText("FILE ERROR: newemail,","Directory, Device or other error","recieved from fileexists when testing", tmppath, NULL) ;

E 16
            return(FILEERR) ;
        }
    }
    if (i >= MAXEMAILOUT)

E 6

E 3
    {

I 6

D 16
        p_printf("FILE ERROR: newfile, maximum of %d outgoing emails exceeded (%s)", MAXEMAILOUT, tmppath) ;

E 16

I 16
        uDisplayText("FILE ERROR: newfile,","maximum number outgoing emails exceeded", tmppath, NULL) ;

E 16
        return(FILEERR) ;
    }

D 7
    if ((ret = p_open(&fd, tmppath, P_FCREATE | P_FSTREAM)) >= 0)

E 7

I 7

D 9
    if ((ret = p_open(&fd, tmppath, P_FCREATE | P_FSTREAM_TEXT)) >= 0)

E 9

I 9
    if ((ret = p_open(&fd, tmppath, P_FCREATE | P_FTEXT)) >= 0)

E 9

E 7
    {

E 6
        p_close(fd) ;

D 6
        /* figure out the name that we have created */
        p_fparse(myname, NULL, myname, &crk) ;
        /* the filename starts at the total of system+device+path and
           is name+ext long */
        fstart = (INT) (crk.system + crk.device + crk.path) ;
        flen = (INT) (crk.name + crk.ext) ;
        /* munge myname as required */
        myptr = &myname[fstart] ;
        myptr[flen] = '\0' ;
        p_scpy(llcur->datafile, myptr) ;

E 6

I 6
        p_atos(llcur->datafile, OUTSKELETON, i) ;

E 6
        return(TRUE) ;
    }
    else

I 3
    {

D 6
        p_printf("FILE ERROR: newfile, error in creating new file %s", myname) ;

E 6

I 6

D 16
        p_printf("FILE ERROR: newfile, error in creating new file %s", mytempl) ;

E 16

I 16
        uDisplayText("FILE ERROR: newfile,","error in creating new file", mytempl, NULL) ;

E 16

E 6

E 3

D 5
        return(FALSE) ;

E 5

I 5
        return(FILEERR) ;

E 5

I 3
    }

E 3
}
/* end of ancilary data file functions */

/* start of meta file operations code */
/* the meta file consists of line terminated data in the following format */
/* the full path component, E.g. LOC::M\MAIL\ */
/* mu current email adress, e.g. [e-mail] the following repeated */
/* datafile name, E.g. in1.msg or out1.msg */
/* to, a list of recieved addresses, e.g. [e-mail] MUST contain at least one address */
/* from, the origionator of the email */
/* subject, obvious */
/* cc, the cc list */
/* bcc, the bcc list (empty on reciept */
/* read, N if the email is unread, R if read */
/*at the end of the repeats */
/* END */
/* No other items */
/* */
/* read in the data descriptions */
INT readmeta(TEXT * fname, struct ll * itemlist)
{
    VOID * fd ;
    INT ret ;

I 3

D 14
    if (mtadbg == TRUE)
        p_printf("CALL: readmeta (fname = %s, itemlist = OMITTED)", fname) ;

E 14

E 3
    ret = p_open(&fd, fname, P_FTEXT | P_FSHARE) ;
    if (ret < 0)

D 3
        return (FALSE) ;

E 3

I 3
    {

D 16
        p_printf("FILE ERROR:  readmeta, error in opening %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR:  readmeta,","error in opening", fname, NULL) ;

E 16

D 5
        return (ERR) ;

E 5

I 5
        return (FILEERR) ;

E 5
    }

E 3
    /* load the one off data */

I 3
    ret = getf(fd, itemlist->mydata->mypath) ;
    if ( ret == FALSE)
    {

D 16
        p_printf("FILE ERROR: readmeta, error in reading my path from %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: readmeta,","error in reading my path from", fname, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    getf(fd, itemlist->mydata->myaddr) ;

D 3
    getf(fd, itemlist->mydata->mypath) ;
    while(readhdr(fd, itemlist)== TRUE)

E 3

I 3
    if (ret == FALSE)
    {

D 16
        p_printf("FILE ERROR: readmeta, error in reading my address from %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: readmeta,","error in reading my address from", fname, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    while((ret = readhdr(fd, itemlist))== TRUE)

E 3
        ;
    p_close(fd) ;

I 3

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 4
        p_printf("FILE ERROR: readmeta, error in reading meat record from %s", fname) ;

E 4

I 4

D 16
        p_printf("FILE ERROR: readmeta, error in reading meta record from %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: readmeta,","error in reading meta record from", fname, NULL) ;

E 16

E 4

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    return(TRUE) ;
}

/* write the data descriptions out */
INT wrtmeta(TEXT * fname, struct ll * itemlist)
{
    VOID * fd ;
    INT ret ;

I 6


E 6

D 3
    p_delete(fname) ; /* delete the origional file */

E 3

I 3

D 14
    if (mtadbg == TRUE)
        p_printf("CALL: wrtmeta (fname = %s, itemlist = OMITTED)", fname) ;

E 14
    ret = p_delete(fname) ; /* delete the origional file */
    if (ret < 0)
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in deleting %s prior to output", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in deleting",fname,"prior to output", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    ret = p_open(&fd, fname, P_FTEXT | P_FUPDATE | P_FREPLACE) ;
    if (ret < 0)

D 3
        return(FALSE) ;

E 3

I 3
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in opening %s for output", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in opening", fname, "for output", NULL) ;

E 16
        p_close(fd) ;

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    /* write the one off data */

D 3
    putf(fd, itemlist->mydata->myaddr) ;
    putf(fd, itemlist->mydata->mypath) ;

E 3

I 3
    ret = putf(fd, itemlist->mydata->mypath) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in writting my path to %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in writting my path to", fname, NULL) ;

E 16
        p_close(fd) ;

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, itemlist->mydata->myaddr) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in writting my address to %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in writting my address to", fname, NULL) ;

E 16
        p_close(fd) ;

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    while(itemlist != NULL)

D 3
        wrthdr(fd, itemlist) ;
    putf(fd, "END") ;

E 3

I 3
    {
        ret = wrthdr(fd, itemlist) ;

D 5
        if (ret == ERR)

E 5

I 5
        if (ret == FILEERR)

E 5
            break ;
        itemlist = itemlist->next ;
    }

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in writting record to %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in writting record to", fname, NULL) ;

E 16
        p_close(fd) ;

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, "END") ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrtmeta, error in writting terminator (END) to %s", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrtmeta,","error in writting terminator (END) to", fname, NULL) ;

E 16
        p_close(fd) ;

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    p_close(fd) ;
    return(TRUE) ;
}

/* read the from, subject and return path etc from the data file */
INT readhdr(VOID * fd, struct ll * itemlist)
{
    struct ll * newll ;
    TEXT datafile[20] ;

D 9
    TEXT to[100] ;
    TEXT from[100] ;
    TEXT subject[100];
    TEXT cc[100];
    TEXT bcc[100];
    TEXT cread[100] ;

E 9

I 9
    TEXT to[HDRLEN] ;
    TEXT from[HDRLEN] ;
    TEXT subject[HDRLEN];
    TEXT cc[HDRLEN];
    TEXT bcc[HDRLEN];
    TEXT cread[HDRLEN] ;

E 9

D 3
    INT read ;


E 3

I 3
    INT read, ret ;

D 14
    if (mtadbg == TRUE)
        p_printf("CALL: readhdr(fd = OMITTED, itemlist = OMITTED)");

E 14

E 3
    /* read in an entry */

D 3
    getf(fd, datafile) ;

E 3

I 3
    ret = getf(fd, datafile) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading datafile") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading datafile", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    if (p_scmp(datafile, "END") == 0)
        return(FALSE) ;

D 3
    getf(fd, to) ;
    getf(fd, from) ;
    getf(fd, subject) ;
    getf(fd, cc) ;
    getf(fd, bcc) ;
    getf(fd, cread) ;


E 3

I 3
    ret = getf(fd, to) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading to") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading to", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = getf(fd, from) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading from") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading from", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = getf(fd, subject) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading subject") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading subject", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = getf(fd, cc) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading cc") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading cc", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = getf(fd, bcc) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading bcc") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading bcc", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = getf(fd, cread) ;

D 5
    if (ret == ERR)

E 5

I 5
    if (ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: readhdr, error in reading read") ;

E 16

I 16
        uDisplayText("FILE ERROR: readhdr,","error in reading read", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    if (cread[0] == 'R')
        read = RD ;
    else
        read = NEW ;

    /* get a new ll structure */
    newll = llnew ();
    /* fill in the structure */

D 4
    llfill(newll, datafile, to, from, subject, cc, bcc, ACTIVE, read, itemlist->no + 1) ;
    /* apply the sequence number */
    newll->no = itemlist->count + 1 ;

E 4

I 4
    llfill(newll, datafile, to, from, subject, cc, bcc, ACTIVE, read, itemlist->count + 1) ;

E 4
    /* add the new item into the list */
    lladd(newll, itemlist) ;
    return(TRUE) ;
}
/* write a subject and destination etc to the data file */
INT wrthdr(VOID * fd, struct ll * item)
{
    INT ret ;

D 3
    ret = TRUE ;

E 3

I 3

D 14
    if (mtadbg == TRUE)
        p_printf("CALL: wrthdr(fd = OMITTED, item = OMITTED)");

E 14

E 3
    /* only outut the record if its active */
    if (item->status != ACTIVE)
        return(TRUE) ;

D 3
    putf(fd, item->datafile);
    putf(fd, item->to) ;
    putf(fd, item->from) ;
    putf(fd, item->subject) ;
    putf(fd, item->cc) ;
    putf(fd, item->bcc) ;

E 3

I 3
    ret = putf(fd, item->datafile);

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting datafile (%s)", item->datafile) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting datafile", item->datafile, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, item->to) ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting to (%s)", item->to) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting to", item->to, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, item->from) ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting from (%s)", item->from) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting from", item->from, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, item->subject) ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting subject (%s)", item->subject) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting subject", item->subject, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, item->cc) ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting cc (%s)", item->cc) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting cc", item->cc, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    ret = putf(fd, item->bcc) ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting bcc (%s)", item->bcc) ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting bcc", item->bcc, NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }

E 3
    if (item->read == RD)

D 3
        putf(fd, "R") ;

E 3

I 3
        ret = putf(fd, "R") ;

E 3
    else

D 3
        putf(fd, "N") ;
    return(ret) ;

E 3

I 3
        ret = putf(fd, "N") ;

D 5
    if ( ret == ERR)

E 5

I 5
    if ( ret == FILEERR)

E 5
    {

D 16
        p_printf("FILE ERROR: wrthdr, error in writting read (%s)", item->read == RD ? "R" : "N") ;

E 16

I 16
        uDisplayText("FILE ERROR: wrthdr,","error in writting read", item->read == RD ? "R" : "N", NULL) ;

E 16

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    }
    return(TRUE) ;

E 3
}
/* end of meta file operations code */

/* start of ancillary file and keyboard IO code */
/* read a line of text from file handle */
INT getf(VOID * fd, TEXT * line)
{
    INT ret ;

I 3

D 14
    if (ancdbg == TRUE)
        p_printf("CALL: getf(fd = OMITTED, line = OMITTED)");

E 14

E 3

D 9
    ret = p_read(fd, (VOID *) line, 100) ;

E 9

I 9
    ret = p_read(fd, (VOID *) line, HDRLEN) ;

E 9
    if (ret < 0)

D 3
        return(FALSE) ;
    else
        return(TRUE) ;

E 3

I 3

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5
    line[ret] = '\0' ;

D 16
    if (ancdbg == TRUE)
    {
        p_printf("ret is %d, line is :%s:", ret, line) ;
        p_getch() ;
    }

E 16

    return(TRUE) ;

E 3
}
/* write a line of text to file handle */
INT putf(VOID * fd, TEXT * line)
{
    INT ret ;

I 3

D 14
    if (ancdbg == TRUE)
        p_printf("CALL: putf (fd = OMITTED, line = %s)", line) ;

E 14

E 3
    ret = p_write(fd, (VOID *) line, p_slen(line)) ;
    if (ret < 0)

D 3
        return(FALSE) ;
    else
        return(TRUE) ;

E 3

I 3

D 5
        return(ERR) ;

E 5

I 5
        return(FILEERR) ;

E 5

D 16
    if (ancdbg == TRUE)
    {
        p_printf("ret is %d, line is :%s:", ret, line) ;
        p_getch() ;
    }

E 16

    return(TRUE) ;

E 3
}


D 17
/* getinp, read a line from the keyboard */
VOID getinp(TEXT * in)
{

I 3

D 14
    if (ancdbg == TRUE)
        p_printf("CALL: getinp(in = OMITTED)");

E 14

E 3
    p_gets(in) ;
}


E 17

D 16
/* print output without a newline */
VOID putnonl (TEXT * line)
{

I 3

D 14
    if (ancdbg == TRUE)
        p_printf("CALL: putnonl(line = %s)", line);

E 14

E 3
    p_puts(line) ;

D 11
    p_puts(" ") ;

E 11
}

E 16
/* end of ancillary file and keyboard IO code */

I 6
/* does the file given in fname exist return TRUE or FALSE
   if any other error than E_FILE_NXIST return FILEERR */
INT fileexist(TEXT * fname)
{
    P_INFO pinf ;
    INT ret ;

D 14

    if (filedbg == TRUE)
        p_printf("CALL: fileexist(fname = %s)", fname) ;

E 14
    ret = p_finfo(fname, &pinf) ;
    if (ret == 0)
    {

D 14
        if (filedbg == TRUE)
            p_printf("FILE %s exists", fname) ;

E 14
        return(TRUE) ;
    }
    else if (ret == E_FILE_NXIST)
    {

D 14
        if (filedbg == TRUE)
            p_printf("FILE %s does not exist", fname) ;

E 14
        return(FALSE) ;
    }
    else if ((ret == E_FILE_DEVICE) || (ret == E_FILE_NOTREADY) || (ret == E_FILE_DIR))
    {
        /* this is a major problem with the path */

D 11
        p_printf("FILE ERROR: fileexist, Directory or Device does not exist", fname) ;

E 11

I 11

D 16
        p_printf("FILE ERROR: fileexist, Directory or Device does not exist (%s)", fname) ;

E 16

I 16
        uDisplayText("FILE ERROR: fileexist,","Directory or Device does not exist", fname, NULL) ;

E 16

E 11
        return(FILEERR) ;
    }
    else /* some other unexpected error */
    {

D 16
        p_printf("FILE ERROR: fileexist, unxepected error code from p_finfo") ;

E 16

I 16
        uDisplayText("FILE ERROR: fileexist,","unxepected error code from p_finfo", NULL) ;

E 16
        return(FILEERR) ;
    }

I 16
}
/* start of window functions */
/* Print the output list */
VOID redolist(VOID)
{
    TEXT str[100] ;

I 20
    UINT border ;

E 20
    /* print the headers around the current email */
    /* disphdrs will arrange for the current item to be bold and ITEMS_IN_LIST
       to be printed (if possible ) */
    disphdrs(currlist) ;
    /* do the borders, aqquire the current gc */
    gSetGC0(gchdr) ;
    /* if mailno is greater then ITEMS_IN_HALF_LIST + 1 then put an up arrow

D 19
       on the display */

E 19

I 19
       on the display if there are items on the bottom of the display */

I 20
    border = W_BORD_CUSHION|W_BORD_CORNER_4 ;

E 20

E 19

D 17
    if (mailno > (ITEMS_IN_HALF_LIST +1)
        gBorder(W_BORD_CUSHION|W__BORD_CORNER_4|W_BORD_TOP_ON) ;

E 17

I 17
    if (mailno > (ITEMS_ON_HALF_SCREEN +1))

D 20
        gBorder(W_BORD_CUSHION|W_BORD_CORNER_4|W_BORD_TOP_ON) ;

E 20

I 20
        border = border | W_BORD_TOP_ON ;

E 20

E 17
    else

D 17
        gBorder(W_BORD_CUSHION|W__BORD_CORNER_4|W_BORD_TOP_OFF) ;
    /* if currlist->count - mailno is greater than ITEMS_IN_HALF LIST + 1 then put a

E 17

I 17

D 20
        gBorder(W_BORD_CUSHION|W_BORD_CORNER_4|W_BORD_TOP_OFF) ;

E 20

I 20
        border = border |W_BORD_TOP_OFF ;

E 20
    /* if currlist->count - mailno is greater than ITEMS_ON_HALF_SCREEN + 1 then put a

E 17
       down arrow on the display */

D 17
    if ((currlist->count - mailno) > (ITEMS_IN_HALF_LIST +1))
        gBorder(W_BORD_CUSHION|W__BORD_CORNER_4|W_BORD_BOT_ON) ;

E 17

I 17

D 19
    if ((currlist->count - mailno) > (ITEMS_ON_HALF_SCREEN +1))

E 19

I 19
    if (mailno < (currlist->count - ITEMS_ON_HALF_SCREEN))

E 19

D 20
        gBorder(W_BORD_CUSHION|W_BORD_CORNER_4|W_BORD_BOT_ON) ;

E 20

I 20
        border = border |W_BORD_BOT_ON ;

E 20

E 17
    else

D 17
        gBorder(W_BORD_CUSHION|W__BORD_CORNER_4|W_BORD_BOT_OFF) ;

E 17

I 17

D 20
        gBorder(W_BORD_CUSHION|W_BORD_CORNER_4|W_BORD_BOT_OFF) ;

E 20

I 20
        border = border |W_BORD_BOT_OFF ;

E 20

E 17


I 20
    gBorder(border) ;

E 20
    /* update the status message */
    p_atos(str, "%s, Mail no %d of %d", currlist == inlist ? "Incomming list" : "Outgoing List", mailno, currlist->count) ;
    statusmsg(str) ;
}


VOID statusmsg(TEXT * str)
{

D 18
    TEXT tmp[200] ;

E 18

I 18
    TEXT tmp[300] ;

I 20
    /* get hold of the current context */

E 20

E 18
    gSetGC0(gcstatus) ;

I 20
    /* sometimes the border gets trashed so rederw it */
    gBorder(W_BORD_CUSHION|W_BORD_CORNER_4) ;

E 20

D 17
    p_scpym(tmp, str, spacestr, NULL) ;

E 17

I 17
    p_scpym(tmp, str, blank, NULL) ;

E 17
    gPrintClipText(5,12,tmp, p_slen(tmp), 220) ;
}

INT askincl()
{
    struct ll * llptr ;
    INT ret ;

    /* only include the current email if mailno is valid */
    llptr = llnofind(mailno, currlist) ;
    if (llptr == NULL)
        return(FALSE) ;
    uOpenDialog("Include Current Email ?") ;
    uAddButtonList("Yes", 'y', "No", 'n', NULL) ;
    ret = uRunDialog() ;
    if (ret == 'y')
        return(TRUE) ;
    else
        return(FALSE) ;

E 16
}

E 6

E 2

E 1