代码搜索结果
找到约 10,000 项符合
R 的代码
r_dim.c
double r_dim(a,b)
float *a, *b;
{
return( *a > *b ? *a - *b : 0);
}
r_acos.c
double r_acos(x)
float *x;
{
double acos();
return( acos(*x) );
}
ss6r
.SH
Section 6<mark>R</mark>: The <mark>R</mark>atfo<mark>r</mark> Language Yacc Envi<mark>r</mark>onment
.PP
Fo<mark>r</mark> <mark>r</mark>easons of po<mark>r</mark>tability o<mark>r</mark> compatibility with existing
softwa<mark>r</mark>e, it may be desi<mark>r</mark>ed to use Yacc to gene<mark>r</mark>ate pa<mark>r</mark>se<mark>r</mark>s
in <mark>R</mark>atfo<mark>r</mark>, o<mark>r</mark>, by ...
r1.c
#include "r.h"
char scrat[500];
int brkptr -1;
int brkstk[10];
int forptr 0;
int forstk[10];
repcode() {
outcont(0);
yyval = genlab();
outcont(yyval);
brkstk[++brkptr] = yyval+1;
genlab();
ge
r2.c
#include "r.h"
char outbuf[80];
int outp 0;
int cont 0;
outcode(p) char *p; {
int i,j,c,c1;
char *q;
if( p == 0 ){
outbuf[outp] = '\0';
printf("%s\n", outbuf);
outp = cont = 0;
return;
}
r5.s
/
/
/ <mark>r</mark>5 -- long intege<mark>r</mark> a<mark>r</mark>ithmetic
.globl iad4
.globl isb4
.globl imp4
.globl idv4
.globl ing4
.globl <mark>r</mark>e<mark>r</mark><mark>r</mark>
iad4:
js<mark>r</mark> pc,load
addf f<mark>r</mark>0,f<mark>r</mark>1
b<mark>r</mark> sto<mark>r</mark>e
isb4:
js<mark>r</mark> pc,load
subf f<mark>r</mark>0,f<mark>r</mark>1
b<mark>r</mark> sto<mark>r</m ...
r2.s
/
/
/ r2 -- comparison of 4-byte integers
.globl ilt4
.globl ile4
.globl ieq4
.globl ine4
.globl ige4
.globl igt4
.globl lan2
.globl lor2
.globl lnt2
.globl ieq2
.globl ile2
.globl igt2
.globl ige2
r3.s
/
/
/ r3 -- comparisons
.globl lif2
.globl lif1
.globl rif4
.globl iif2
.globl iif4
.globl rif8
lif2:
lif1:
tst (sp)+
bne 1f
mov (r4),r4
jmp *(r4)+
1:
tst (r4)+
jmp *(r4)+
rif8:
setd
tstf
r1.s
/
/
/ r1 -- fortran runtime
.globl gas1
.globl gas2
.globl gas4
.globl gas8
.globl stop
.globl lval
.globl rval4
.globl rval8
.globl do1
.globl do12
.globl do14
.globl do2
.globl do22
.globl do24
.g
r7.s
/
/
/ r7 -- fortran runtime
achk = 1 / 1 to check array bounds
.globl lvalp
.globl rval1p
.globl rval2p
.globl rval4p
.globl rval8p
.globl alval
.globl alvalp
.globl arval
.globl arvalp
.globl rerr