Displaying 2 results from an estimated 2 matches for "riprotect".
Did you mean:
reprotect
2006 Apr 12
0
headerfile translation to Delphi (Pascal) completed
...for j := 0 to _nb^ - 1 do begin
_ab[i + j]:= _ab[i + j] + _a[i]*_b[j]
end {for};
end {for};
end {ConvC};
{ ConvCallRInternals }
function ConvCallRInternals( _a, _b: pSExp ): pSExp; cdecl;
var
i, j, na, nb, nab: aRLen;
pxa, pxb, pxab: pDoubleArr;
begin
_a:= riProtect( riCoerceVector( _a, setRealSxp ) );
_b:= riProtect( riCoerceVector( _b, setRealSxp ) );
na:= riLength( _a ); nb:= riLength( _b ); nab:= na + nb - 1;
result:= riProtect( riAllocVector( setRealSxp, nab ) );
pxa:= riReal( _a ); pxb:= riReal( _b );
pxab:= riReal( result );
fo...
2006 Apr 25
1
protection needed?
...;s about the variable _skipLines in the call "function ReadXls(
_file, _sheet, _type, _header, _colHeader, _skipLines: pSExp ): pSExp;
cdecl;".
I did:
skipLines:= riInteger( riCoerceVector( _skipLines, setIntSxp ) )[0];
but am unsure if I would have to something along:
skipInt:= riProtect( riCoerceVector( _skipLines, setIntSxp ) );
skipLines:= riInteger( skipInt )[0];
riUnprotect( 1 );
According to the manual the second is probably more appropriate but as
I found some places in the R sources where no protection was made, I
decided to ask. Thanks a lot !
--
Regards,
Hans-Pe...