Changeset 22540

Show
Ignore:
Timestamp:
10/08/08 20:13:00 (6 weeks ago)
Author:
ruoso
Message:

[smop] ritest in place... but now I hit the "postcircumfix:<( )> signature" issue again!

Location:
v6/smop
Files:
1 added
5 modified

Legend:

Unmodified
Added
Removed

  • v6/smop/CMakeLists.txt

    r22533 r22540  
    146146    src/s1p_scalar.c 
    147147    src/s1p_str.c 
     148    src/s1p_ritest.c 
    148149    src/slime_capturize.c 
    149150    src/slime_currentframe.c 
    … …  
    196197    test/35_array_grep.m0ld 
    197198    test/36_adhoc_signature.m0ld 
     199    test/38_ritest.m0ld 
    198200) 
    199201    set(c_file) 

  • v6/smop/include/smop_s1p.h

    r22525 r22540  
    2727extern SMOP__Object* SMOP__S1P__AdhocSignature; 
    2828extern SMOP__Object* SMOP__S1P__PurePrototypeHow; 
     29extern SMOP__Object* SMOP__S1P__ritest; 
    2930extern SMOP__Object* SMOP__GlobalInterpreter; 
    3031 

  • v6/smop/src/internal.h

    r22533 r22540  
    103103     smop_s1p_grep_mold_init();             \ 
    104104     smop_s1p_array_iterator_mold_init();   \ 
     105     smop_s1p_ritest_init();                \ 
    105106 
    106107#define SMOP_BOOTSTRAP_DESTR_SEQUENCE       \ 
     108     smop_s1p_ritest_destr();              \ 
    107109     smop_s1p_array_iterator_mold_destr();  \ 
    108110     smop_s1p_grep_mold_destr();            \ 
    … …  
    174176void smop_s1p_endofiterator_init(); 
    175177void smop_s1p_endofiterator_destr(); 
     178void smop_s1p_ritest_init(); 
     179void smop_s1p_ritest_destr(); 
    176180 
    177181#endif 

  • v6/smop/src/s1p_ccode.c

    r22512 r22540  
    4646 
    4747    ret = func(interpreter,invocant,actualcap); 
    48  
     48     
    4949    SMOP_RELEASE(interpreter,capture); 
    5050    SMOP_RELEASE(interpreter,invocant); 

  • v6/smop/test/38_ritest.m0ld

    r22538 r22540  
    22my $scope; 
    33my $void; 
     4 
     5my $out_scalar = ¢SMOP__S1P__RootNamespace."postcircumfix:{ }"("$*OUT"); 
     6my $out = $out_scalar."FETCH"(); 
    47 
    58$void = $out."print"("1..3\n"); 
    … …  
    1821 
    1922nexttest: 
    20 $test = ¢SMOP__S1P__ritest."postcircumfix:( )("test", ¢SMOP__NATIVE__int); 
     23$test = ¢SMOP__S1P__ritest."postcircumfix:( )"("test", ¢SMOP__NATIVE__int); 
    2124$bool = $test."bool"(); 
    2225