Esempio n. 1
0
int
OUTPparam(int param, IFvalue *value, void *inCard)
{
    OUTPcard *card = (OUTPcard *)inCard;

    switch (param) {
    case OUTP_ALL_DEBUG:
        card->OUTPdcDebug = value->iValue;
        card->OUTPdcDebugGiven = TRUE;
        card->OUTPtranDebug = value->iValue;
        card->OUTPtranDebugGiven = TRUE;
        card->OUTPacDebug = value->iValue;
        card->OUTPacDebugGiven = TRUE;
        break;
    case OUTP_DC_DEBUG:
        card->OUTPdcDebug = value->iValue;
        card->OUTPdcDebugGiven = TRUE;
        break;
    case OUTP_TRAN_DEBUG:
        card->OUTPtranDebug = value->iValue;
        card->OUTPtranDebugGiven = TRUE;
        break;
    case OUTP_AC_DEBUG:
        card->OUTPacDebug = value->iValue;
        card->OUTPacDebugGiven = TRUE;
        break;
    case OUTP_GEOM:
        card->OUTPgeom = value->iValue;
        card->OUTPgeomGiven = TRUE;
        break;
    case OUTP_MESH:
        card->OUTPmesh = value->iValue;
        card->OUTPmeshGiven = TRUE;
        break;
    case OUTP_MATERIAL:
        card->OUTPmaterial = value->iValue;
        card->OUTPmaterialGiven = TRUE;
        break;
    case OUTP_GLOBALS:
        card->OUTPglobals = value->iValue;
        card->OUTPglobalsGiven = TRUE;
        break;
    case OUTP_STATS:
        card->OUTPstats = value->iValue;
        card->OUTPstatsGiven = TRUE;
        break;
    case OUTP_ROOTFILE:
        card->OUTProotFile = tildexpand(value->sValue); /*xxx*/
        card->OUTProotFileGiven = TRUE;
        break;
    case OUTP_RAWFILE:
        card->OUTPfileType = RAWFILE;
        card->OUTPfileTypeGiven = TRUE;
        break;
    case OUTP_HDF:
        return(E_UNSUPP);
        break;
    case OUTP_DOPING:
        card->OUTPdoping = value->iValue;
        card->OUTPdopingGiven = TRUE;
        break;
    case OUTP_PSI:
        card->OUTPpsi = value->iValue;
        card->OUTPpsiGiven = TRUE;
        break;
    case OUTP_EQU_PSI:
        card->OUTPequPsi = value->iValue;
        card->OUTPequPsiGiven = TRUE;
        break;
    case OUTP_VAC_PSI:
        card->OUTPvacPsi = value->iValue;
        card->OUTPvacPsiGiven = TRUE;
        break;
    case OUTP_N_CONC:
        card->OUTPnConc = value->iValue;
        card->OUTPnConcGiven = TRUE;
        break;
    case OUTP_P_CONC:
        card->OUTPpConc = value->iValue;
        card->OUTPpConcGiven = TRUE;
        break;
    case OUTP_PHIN:
        card->OUTPphin = value->iValue;
        card->OUTPphinGiven = TRUE;
        break;
    case OUTP_PHIP:
        card->OUTPphip = value->iValue;
        card->OUTPphipGiven = TRUE;
        break;
    case OUTP_PHIC:
        card->OUTPphic = value->iValue;
        card->OUTPphicGiven = TRUE;
        break;
    case OUTP_PHIV:
        card->OUTPphiv = value->iValue;
        card->OUTPphivGiven = TRUE;
        break;
    case OUTP_J_C:
        card->OUTPjc = value->iValue;
        card->OUTPjcGiven = TRUE;
        break;
    case OUTP_J_D:
        card->OUTPjd = value->iValue;
        card->OUTPjdGiven = TRUE;
        break;
    case OUTP_J_N:
        card->OUTPjn = value->iValue;
        card->OUTPjnGiven = TRUE;
        break;
    case OUTP_J_P:
        card->OUTPjp = value->iValue;
        card->OUTPjpGiven = TRUE;
        break;
    case OUTP_J_T:
        card->OUTPjt = value->iValue;
        card->OUTPjtGiven = TRUE;
        break;
    case OUTP_U_NET:
        card->OUTPuNet = value->iValue;
        card->OUTPuNetGiven = TRUE;
        break;
    case OUTP_MUN:
        card->OUTPmun = value->iValue;
        card->OUTPmunGiven = TRUE;
        break;
    case OUTP_MUP:
        card->OUTPmup = value->iValue;
        card->OUTPmupGiven = TRUE;
        break;
    default:
        return(E_BADPARM);
        break;
    }
    return(OK);
}
Esempio n. 2
0
char *
cp_tildexpand(char *s)
{
	return tildexpand(s);
}