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 c

⟦5cc310720⟧ TextFile

    Length: 2111 (0x83f)
    Types: TextFile
    Names: »chan.c«

Derivation

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

TextFile

#define D_NATSTAT
#define D_NEWSVERBS
#define D_NATSTR
#define D_FILES
#include        "empdef.h"

chan()
{
        register char   *cp;
        register char   c;
        char     *getstar(), *copy(), *getlogn();
        int     ruid;

        cp = getstar(argp[1], "country name, representative or user? ");
        cleared();
        getnat(cnum);
        switch( *cp ) {
        case 'c':
                cp = getstar(argp[2], "New country name -- ");
                *(cp+19) = '\0';
                for( c=0; getnat(c) != -1; c++ ) {
                        if( same(cp, nat.nat_cnam) == 0 ) continue;
                        printf("Country #%d is already called `%s'!", c, nat.nat_cnam);
                        return(SYN_RETURN);
                }
                getnat(cnum);
                copy(cp, nat.nat_cnam);
                nreport(cnum, N_NAME_CHNG, 0);
                break;
        case 'r':
                cp = getstar(argp[2], "New representative name -- ");
                *(cp+19) = '\0';
                copy(cp, nat.nat_pnam);
                break;
        case 'u':
                ruid = myruid();
                if( nat.nat_nuid == 0 ) {
                        printf("Currently anyone");
                } else {
                        printf("Currently only %s", getlogn(nat.nat_nuid));
                }
                printf(" can use this country.\n");
                printf("You may reset it to only you (%s) or to anyone.\n", getlogn(ruid));
                cp = getstar(argp[2], "Which? (answer \"me\" or \"any\") ");
                if( *cp == 'm' ) {
                        nat.nat_nuid = ruid;
                        break;
                }
                if( *cp == 'a' ) {
                        nat.nat_nuid = 0;
                        break;
                }
                printf("Let's just leave it as is, then.\n");
                break;
        default:
                printf("Only \"country\", \"representative\" or \"user\" can change.");
                return(SYN_RETURN);
        }
        putnat(cnum);
        return(NORM_RETURN);
}