Return to rdefault.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / src / iconx

Annotation of researchv10dc/cmd/icon/src/iconx/rdefault.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * File: rdefault.c
                      3:  *  Contents: defcset, deffile, defint, defshort, defstr
                      4:  */
                      5: 
                      6: #include "../h/rt.h"
                      7: 
                      8: /*
                      9:  * defcset(dp,cp,buf,def) - if dp is null, default to def;
                     10:  *  otherwise, convert to cset or die trying.
                     11:  */
                     12: 
                     13: defcset(dp, cp, buf, def)
                     14: struct descrip *dp;
                     15: int **cp;
                     16: int *buf, *def;
                     17:    {
                     18:    if (ChkNull(*dp)) {
                     19:       *cp = def;
                     20:       return 1;
                     21:       }
                     22:    if (cvcset(dp, cp, buf) == NULL)
                     23:       runerr(104, dp);
                     24:    return 0;
                     25:    }
                     26: 
                     27: 
                     28: /*
                     29:  * deffile - if dp is null, default to def; otherwise, make sure it's a file.
                     30:  */
                     31: 
                     32: deffile(dp, def)
                     33: struct descrip *dp, *def;
                     34:    {
                     35:    if (ChkNull(*dp)) {
                     36:       *dp = *def;
                     37:       return 1;
                     38:       }
                     39:    if (Qual(*dp) || (*dp).dword != D_File)
                     40:       runerr(105, dp);
                     41:    return 0;
                     42:    }
                     43: 
                     44: 
                     45: /*
                     46:  * defint - if dp is null, default to def; otherwise, convert to integer.
                     47:  *  Note that *lp gets the value.
                     48:  */
                     49: 
                     50: defint(dp, lp, def)
                     51: struct descrip *dp;
                     52: long *lp;
                     53: word def;
                     54:    {
                     55:    if (ChkNull(*dp)) {
                     56:       *lp = (long)def;
                     57:       return 1;
                     58:       }
                     59:    if (cvint(dp, lp) == NULL)
                     60:       runerr(101, dp);
                     61:    return 0;
                     62:    }
                     63: 
                     64: 
                     65: /*
                     66:  * defshort - if dp is null, default to def; otherwise, convert to short
                     67:  *  integer.  The result is an integer value in *dp.
                     68:  */
                     69: 
                     70: defshort(dp, def)
                     71: struct descrip *dp;
                     72: int def;
                     73:    {
                     74:    long l;
                     75: 
                     76:    if (ChkNull(*dp)) {
                     77:       dp->dword = D_Integer;
                     78:       IntVal(*dp) = (int)def;
                     79:       return 1;
                     80:       }
                     81:    switch (cvint(dp, &l)) {
                     82: 
                     83:       case T_Integer:
                     84:          Mkint(l, dp);
                     85:         break;
                     86: 
                     87:       case T_Longint:
                     88:          runerr(205, dp);
                     89: 
                     90:       default:
                     91:         runerr(101, dp);
                     92:       }
                     93:    return 0;
                     94:    }
                     95: 
                     96: 
                     97: /*
                     98:  * defstr - if dp is null, default to def; otherwise, convert to string.
                     99:  *  *dp gets a descriptor for the resulting string.  buf is used as
                    100:  *  a scratch buffer for the conversion (if necessary).
                    101:  */
                    102: 
                    103: defstr(dp, buf, def)
                    104: struct descrip *dp;
                    105: char *buf;
                    106: struct descrip *def;
                    107:    {
                    108:    if (ChkNull(*dp)) {
                    109:       *dp = *def;
                    110:       return 1;
                    111:       }
                    112:    if (cvstr(dp, buf) == NULL)
                    113:       runerr(103, dp);
                    114:    return 0;
                    115:    }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.