Changeset 297 for trunk/orca/ovalue.c

Show
Ignore:
Timestamp:
10/10/06 15:47:19 (2 years ago)
Author:
krobillard
Message:

Orca - Added /return refinement to 'quit.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/orca/ovalue.c

    r154 r297  
    18411841OR_NATIVE( orQuitNative ) 
    18421842{ 
     1843#define REF_QUIT_RETURN  a1 
     1844    OValue* a2 = a1 + 1; 
     1845    int code = 0; 
     1846 
     1847    if( orRefineSet(REF_QUIT_RETURN) ) 
     1848    { 
     1849        if( orIs(a2, OT_INTEGER) ) 
     1850            code = orInt(a2); 
     1851        else if( orIs(a2, OT_LOGIC) ) 
     1852            code = orLogic(a2) ? 0 : -1; 
     1853    } 
     1854 
    18431855    orSetError( a1, OR_ERROR_QUIT ); 
    18441856 
    1845     a1->error.msg     = 0; 
     1857    a1->error.msg     = code; 
    18461858    a1->error.block   = 0; 
    18471859    a1->error.nearVal = 0;