/*
Copyright (C) Magna Carta Software, Inc. 1988-1990.  All Rights Reserved
C COMMUNICATIONS TOOLKIT
KPARMS.C -- ROUTINES TO SET AND RETRIEVE KERMIT PARAMETERS.
*/


#include <kermit.h>



/*
K_GET -- Get the value of Kermit file transfer parameters.
Parameters:
    KERMIT_PARMS *k -- pointer to the Kermit parms structure for transfer;
    short parm      -- parameter to set;
Return value:
    EOF -- invalid value for 'parm';
*/
short k_get(KERMIT_PARMS *k, short parm)
{
    short ret;

    switch (parm) {
        case KMMARK:
            ret = k->mmark;
            break;
        case KMMAXL:
            ret = k->mmaxl;
            break;
        case KMTIMEOUT:
            ret = k->mtimeout;
            break;
        case KMNPAD:
            ret = k->mnpad;
            break;
        case KMPADC:
            ret = k->mpadc;
            break;
        case KMEOL:
            ret = k->meol;
            break;
        case KMQCTL:
            ret = k->mqctl;
            break;
        case KMQBIN:
            ret = k->mqbin;
            break;
        case KMCHKT:
            ret = k->mchkt;
            break;
        case KMREPT:
            ret = k->mrept;
            break;
        case KMCAPAS:
            ret = k->mcapas;
            break;
        case KMARK:
            ret = k->mark;
            break;
        case KMAXL:
            ret = k->maxl;
            break;
        case KTIMEOUT:
            ret = k->timeout;
            break;
        case KNPAD:
            ret = k->npad;
            break;
        case KPADC:
            ret = k->padc;
            break;
        case KEOL:
            ret = k->eol;
            break;
        case KQCTL:
            ret = k->qctl;
            break;
        case KQBIN:
            ret = k->qbin;
            break;
        case KCHKT:
            ret = k->chkt;
            break;
        case KREPT:
            ret = k->rept;
            break;
        case KCAPAS:
            ret = k->capas;
            break;
        default:
            ret = EOF;
    }

    return (ret);
}

/*
K_SET -- Set the value of Kermit file transfer parameters.
Parameters:
    KERMIT_PARMS *k -- pointer to the Kermit parms structure for transfer;
    short parm      -- parameter to set;
    short val       -- value to assign 'parm';
Return value:
    EOF -- invalid value for 'parm';
*/
short k_set(KERMIT_PARMS *k, short parm, short val)
{
    short ret = 0;

    switch (parm) {
        case KMMARK:
            k->mmark    = (WORD) val;
            break;
        case KMMAXL:
            k->mmaxl    = (WORD) val;
            break;
        case KMTIMEOUT:
            k->mtimeout = (WORD) val;
            break;
        case KMNPAD:
            k->mnpad    = (WORD) val;
            break;
        case KMPADC:
            k->mpadc    = (WORD) val;
            break;
        case KMEOL:
            k->meol     = (WORD) val;
            break;
        case KMQCTL:
            k->mqctl    = (WORD) val;
            break;
        case KMQBIN:
            k->mqbin    = (WORD) val;
            break;
        case KMCHKT:
            k->mchkt    = (WORD) val;
            break;
        case KMREPT:
            k->mrept    = (WORD) val;
            break;
        case KMCAPAS:
            k->mcapas   = (WORD) val;
            break;

        case KMARK:
            k->mark     = (WORD) val;
            break;
        case KMAXL:
            k->maxl     = (WORD) val;
            break;
        case KTIMEOUT:
            k->timeout  = (WORD) val;
            break;
        case KNPAD:
            k->npad     = (WORD) val;
            break;
        case KPADC:
            k->padc     = (WORD) val;
            break;
        case KEOL:
            k->eol      = (WORD) val;
            break;
        case KQCTL:
            k->qctl     = (WORD) val;
            break;
        case KQBIN:
            k->qbin     = (WORD) val;
            break;
        case KCHKT:
            k->chkt     = (WORD) val;
            break;
        case KREPT:
            k->rept     = (WORD) val;
            break;
        case KCAPAS:
            k->capas    = (WORD) val;
            break;
        default:
            ret         = EOF;
    }

    return (ret);
}