Changeset 37

Show
Ignore:
Timestamp:
02/09/06 15:37:17 (3 years ago)
Author:
krobillard
Message:

Added a few member access macros.
Renamed orCTermStr as orTermCStr.

Location:
trunk/orca
Files:
13 modified

Legend:

Unmodified
Added
Removed

  • trunk/orca/files.c

    r25 r37  
    8181    int logic = 0; 
    8282    OString* str = orSTRING(a1); 
    83     orCTermStr( str ); 
     83    orTermCStr( str ); 
    8484    if( orIsDir( str->charArray + a1->series.it ) > -1 ) 
    8585        logic = 1; 
    … …  
    9292    int size; 
    9393    OString* str = orSTRING(a1); 
    94     orCTermStr( str ); 
     94    orTermCStr( str ); 
    9595    size = orFileSize( str->charArray + a1->series.it ); 
    9696    if( size < 0 ) 
    … …  
    109109    int status; 
    110110    OString* str = orSTRING(a1); 
    111     orCTermStr( str ); 
     111    orTermCStr( str ); 
    112112    status = orIsDir( str->charArray + a1->series.it ); 
    113113    if( status < 0 ) 
    … …  
    121121    int status; 
    122122    OString* str = orSTRING(a1); 
    123     orCTermStr( str ); 
     123    orTermCStr( str ); 
    124124    status = orFileModified( str->charArray + a1->series.it, orRESULT ); 
    125125    if( status < 0 ) 
    … …  
    252252        OString* str = orSTRING(a1); 
    253253 
    254         orCTermStr( str ); 
     254        orTermCStr( str ); 
    255255 
    256256        fn = str->charArray + a1->series.it; 
    … …  
    376376        a2 = a1 + 1; 
    377377        file = orSTRING(a1); 
    378         orCTermStr( file ); 
     378        orTermCStr( file ); 
    379379 
    380380        if( orRefineSet(REF_APPEND) ) 

  • trunk/orca/gl/gx.c

    r33 r37  
    631631    { 
    632632        OString* str = orSTRING(val); 
    633         orCTermStr( str ); 
     633        orTermCStr( str ); 
    634634        TextureResource* tr = gxTexture( orC); 
    635635    } 
    … …  
    10771077    { 
    10781078        OString* str = orSTRING(a1); 
    1079         orCTermStr( str ); 
     1079        orTermCStr( str ); 
    10801080        audioPlayMusic( orStrChars(str,a1) ); 
    10811081    } 
    … …  
    15851585    { 
    15861586        str = orSTRING( a1 ); 
    1587         orCTermStr( str ); 
     1587        orTermCStr( str ); 
    15881588        file = orStrChars( str, a1 ); 
    15891589 

  • trunk/orca/gl/project.r

    r25 r37  
    4141        include_from %glv/unix 
    4242        sources [%glv/unix/glv.c] 
    43         libs_from %/usr/X11R6/lib64 [%X11 %Xxf86vm] 
    44         ;libs_from %/usr/X11R6/lib [%X11 %Xxf86vm] 
     43        ;libs_from %/usr/X11R6/lib64 [%X11 %Xxf86vm] 
     44        libs_from %/usr/X11R6/lib [%X11 %Xxf86vm] 
    4545 
    4646        include_from %/usr/include/freetype2 

  • trunk/orca/gl/ttf_load.c

    r1 r37  
    647647        ++arg; 
    648648        str = orSTRING(arg); 
    649         orCTermStr( str ); 
     649        orTermCStr( str ); 
    650650        codes = orStrChars( str, arg ); 
    651651    } 
    … …  
    676676 
    677677        str = orSTRING(a2); 
    678         orCTermStr( str ); 
     678        orTermCStr( str ); 
    679679        ffile = orStrChars( str, a2 ); 
    680680 

  • trunk/orca/ovalue.c

    r31 r37  
    12111211        OString* str = orSTRING( a1 ); 
    12121212 
    1213         orCTermStr( str ); 
     1213        orTermCStr( str ); 
    12141214 
    12151215        file = orStrChars( str, a1 ); 

  • trunk/orca/ovalue.h

    r31 r37  
    3131   O*    Structures and types 
    3232   or*   Functions, variables, macros 
    33 */ 
    34  
    35  
    36 // Interpreter configuration 
    37 /* 
    38 #define OR_CONFIG_NUMBER_ARRAYS     1 
    39 #define OR_CONFIG_BYTECODE          1 
    40 #define OR_CONFIG_COMPRESS          1 
    4133*/ 
    4234 
    … …  
    492484#define orIs(val,t)     ((val)->type == t) 
    493485 
     486#define orType(val)     (val)->type 
     487#define orInteger(val)  (val)->integer 
     488#define orDecimal(val)  (val)->num.decimal 
     489#define orTupleLen(val) (val)->argc 
     490 
    494491#define orIsWord(t)     ((t >= OT_WORD) && (t < OT_REFINEMENT)) 
    495492#define orIsSeries(t)   ((t >= OT_COMPLEX) && (t < OT_SERIES)) 
    … …  
    587584#define OR_CTERM_LEN        1 
    588585 
    589 #define orCTermStr(s) \ 
     586#define orTermCStr(s) \ 
    590587    if(s->used == s->avail) \ 
    591588        orArrayReserve(s,sizeof(char),s->used+1); \ 

  • trunk/orca/print.c

    r26 r37  
    669669    if( out->used ) 
    670670    { 
    671         orCTermStr( out ); 
     671        orTermCStr( out ); 
    672672    } 
    673673} 
    … …  
    11051105    if( out->used ) 
    11061106    { 
    1107         orCTermStr( out ); 
     1107        orTermCStr( out ); 
    11081108    } 
    11091109} 

  • trunk/orca/qt/qorca.cpp

    r25 r37  
    152152    const char* mold( const OValue* val ) 
    153153    { 
    154         orMold( this, val );    // Calls orCTermStr() for us. 
     154        orMold( this, val );    // Calls orTermCStr() for us. 
    155155        return charArray; 
    156156    } 
    … …  
    158158    const char* form( const OValue* val ) 
    159159    { 
    160         orForm( this, val );    // Calls orCTermStr() for us. 
     160        orForm( this, val );    // Calls orTermCStr() for us. 
    161161        return charArray; 
    162162    } 
    … …  
    301301{ 
    302302    OString* str = orSTRING( val ); 
    303     orCTermStr( str ); 
     303    orTermCStr( str ); 
    304304    return orStrChars( str, val ); 
    305305} 
    … …  
    841841        OValue* ref = REF_RF_PATH; 
    842842        str = orSTRING( ref ); 
    843         orCTermStr( str ); 
     843        orTermCStr( str ); 
    844844        dir = orStrChars( str, ref ); 
    845845    } 
    … …  
    850850 
    851851    str = orSTRING(a1); 
    852     orCTermStr( str ); 
     852    orTermCStr( str ); 
    853853    cp = orStrChars( str, a1 ); 
    854854 
    … …  
    10931093    str1 = orSTRING(a1); 
    10941094    str2 = orSTRING(a2); 
    1095     orCTermStr( str1 ); 
    1096     orCTermStr( str2 ); 
     1095    orTermCStr( str1 ); 
     1096    orTermCStr( str2 ); 
    10971097    cp1 = orStrChars(str1, a1); 
    10981098    cp2 = orStrChars(str2, a2); 

  • trunk/orca/qt/qorca.h

    r18 r37  
    209209{ 
    210210    OString* str = orSTRING( val ); 
    211     orCTermStr( str ); 
     211    orTermCStr( str ); 
    212212    return orStrChars( str, val ); 
    213213} 

  • trunk/orca/series.c

    r25 r37  
    20272027 
    20282028                str->used = out - str->charArray; 
    2029                 orCTermStr(str); 
     2029                orTermCStr(str); 
    20302030            } 
    20312031        } 
    … …  
    20832083            } 
    20842084 
    2085             orCTermStr(str); 
     2085            orTermCStr(str); 
    20862086        } 
    20872087    } 

  • trunk/orca/stdio.c

    r1 r37  
    7979 
    8080    str1 = orSTRING(a1); 
    81     orCTermStr( str1 ); 
     81    orTermCStr( str1 ); 
    8282    cp1 = orStrChars( str1, a1 ); 
    8383 
    8484    a2 = a1 + 1; 
    8585    str2 = orSTRING(a2); 
    86     orCTermStr( str2 ); 
     86    orTermCStr( str2 ); 
    8787    cp2 = orStrChars( str2, a2 ); 
    8888 
    … …  
    104104 
    105105    str = orSTRING(a1); 
    106     orCTermStr( str ); 
     106    orTermCStr( str ); 
    107107    cp = orStrChars( str, a1 ); 
    108108 
    … …  
    124124 
    125125    str = orSTRING(a1); 
    126     orCTermStr( str ); 
     126    orTermCStr( str ); 
    127127    cp = orStrChars( str, a1 ); 
    128128 

  • trunk/orca/unix/os.c

    r25 r37  
    177177    int argc; 
    178178 
    179     orCTermStr( str ); 
     179    orTermCStr( str ); 
    180180    cp = str->charArray + sindex; 
    181181 

  • trunk/orca/win32/os.c

    r1 r37  
    198198 
    199199    str = orSTRING( a1 ); 
    200     orCTermStr( str ); 
     200    orTermCStr( str ); 
    201201    cp  = orStrChars( str, a1 ); 
    202202 
    … …  
    295295 
    296296    str = orSTRING( a1 ); 
    297     orCTermStr( str ); 
     297    orTermCStr( str ); 
    298298    cp  = orStrChars( str, a1 ); 
    299299