|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T q ┃
Length: 577 (0x241)
Types: TextFile
Names: »quit.c«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/elm/src/quit.c«
/** quit.c **/
/** quit: leave the current mailbox and quit the program.
(C) Copyright 1985, Dave Taylor
**/
#include "headers.h"
long bytes();
quit()
{
/* a wonderfully short routine!! */
if (leave_mbox(1) == -1)
return; /* new mail! (damn it) resync */
leave();
}
resync()
{
/** Resync on the current mailbox... This is simple: simply call
'newmbox' to read the file in again, set the size (to avoid
confusion in the main loop) and refresh the screen!
**/
newmbox(1, TRUE, TRUE);
mailfile_size = bytes(infile);
showscreen();
}