Return to ovalue.c CVS log

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

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

1.1       root        1: /*
                      2:  * File: ovalue.c
                      3:  *  Contents: nonnull, null, value
                      4:  */
                      5: 
                      6: #include "../h/rt.h"
                      7: 
                      8: /*
                      9:  * \x - test x for nonnull value.
                     10:  */
                     11: 
                     12: OpDcl(nonnull,1,"\\")
                     13:    {
                     14: 
                     15:    /*
                     16:     * If x is not null, it is returned, otherwise, the function fails.
                     17:     *  Because the pre-dereference value of x is the return value (if
                     18:     *  any), x is copied into Arg0.
                     19:     */
                     20:    Arg0 = Arg1;
                     21:    DeRef(Arg1);
                     22:    if (ChkNull(Arg1))
                     23:       Fail;
                     24:    Return;
                     25:    }
                     26: 
                     27: 
                     28: /*
                     29:  * /x - test x for null value.
                     30:  */
                     31: 
                     32: OpDcl(null,1,"/")
                     33:    {
                     34: 
                     35:    /*
                     36:     * If x is null, it is returned, otherwise, the function fails.
                     37:     *  Because the pre-dereference value of x is the return value (if
                     38:     *  any), x is copied into Arg0.
                     39:     */
                     40:    Arg0 = Arg1;
                     41:    DeRef(Arg1);
                     42:    if (!ChkNull(Arg1))
                     43:       Fail;
                     44:    Return;
                     45:    }
                     46: 
                     47: 
                     48: /*
                     49:  * .x - produce value of x by dereferencing it.
                     50:  */
                     51: 
                     52: OpDcl(value,1,".")
                     53:    {
                     54: 
                     55:    Arg0 = Arg1;
                     56:    Return;
                     57:    }

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