DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T w

⟦39a1f20c9⟧ TextFile

    Length: 861 (0x35d)
    Types: TextFile
    Names: »wu.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire.V/V1.1/EMPSUBS/wu.c«

TextFile

#define D_FILES
#define D_NATSTR
#define D_TELSTR
#include        "empdef.h"

wu(from, to, letter)
char    *letter;
int     to, from;
{
        register        char    *cp;
        struct  telstr  tele;
        char    *mailbox();
        long    lseek();

        if( getnat(to) == -1 || nat.nat_stat == 0 ) return(-1);
        telf = open(mailbox(to), O_RDWR);
        if( telf == -1 ) return(-1);
        lseek(telf, 0L, 2);
        sigsave();
        tele.tel_from = from;
        time(&tele.tel_date);
        cp = letter;
        while( *cp++ ) continue;
        if( (tele.tel_length = cp - letter) > 512 ) {
                tele.tel_length = 512;
        }
        write(telf, &tele, sizeof(tele));
        write(telf, letter, tele.tel_length);
        close(telf);
        nat.nat_tgms++;
        if( putnat(to) == -1 ) return(-1);
        return(0);
}