forked from Lainports/freebsd-ports
3dc64c4bfa
PR: ports/156888 Submitted by: Pedro Giffuni <giffunip@tutopia.com> Approved by: Yoshihiro Ota <ota@j.email.ne.jp> (maintainer)
85 lines
2.1 KiB
C
85 lines
2.1 KiB
C
--- run.c.orig 2011-04-30 20:09:59.000000000 +0000
|
|
+++ run.c 2011-05-08 11:35:23.000000000 +0000
|
|
@@ -1506,13 +1506,71 @@
|
|
nextarg = nextarg->nnext;
|
|
}
|
|
break;
|
|
+ case FCOMPL:
|
|
+ u = ~((int)getfval(x));
|
|
+ break;
|
|
+ case FAND:
|
|
+ if (nextarg == 0) {
|
|
+ WARNING("and requires two arguments; returning 0");
|
|
+ u = 0;
|
|
+ break;
|
|
+ }
|
|
+ y = execute(a[1]->nnext);
|
|
+ u = ((int)getfval(x)) & ((int)getfval(y));
|
|
+ tempfree(y);
|
|
+ nextarg = nextarg->nnext;
|
|
+ break;
|
|
+ case FFOR:
|
|
+ if (nextarg == 0) {
|
|
+ WARNING("or requires two arguments; returning 0");
|
|
+ u = 0;
|
|
+ break;
|
|
+ }
|
|
+ y = execute(a[1]->nnext);
|
|
+ u = ((int)getfval(x)) | ((int)getfval(y));
|
|
+ tempfree(y);
|
|
+ nextarg = nextarg->nnext;
|
|
+ break;
|
|
+ case FXOR:
|
|
+ if (nextarg == 0) {
|
|
+ WARNING("or requires two arguments; returning 0");
|
|
+ u = 0;
|
|
+ break;
|
|
+ }
|
|
+ y = execute(a[1]->nnext);
|
|
+ u = ((int)getfval(x)) ^ ((int)getfval(y));
|
|
+ tempfree(y);
|
|
+ nextarg = nextarg->nnext;
|
|
+ break;
|
|
+ case FLSHIFT:
|
|
+ if (nextarg == 0) {
|
|
+ WARNING("or requires two arguments; returning 0");
|
|
+ u = 0;
|
|
+ break;
|
|
+ }
|
|
+ y = execute(a[1]->nnext);
|
|
+ u = ((int)getfval(x)) << ((int)getfval(y));
|
|
+ tempfree(y);
|
|
+ nextarg = nextarg->nnext;
|
|
+ break;
|
|
+ case FRSHIFT:
|
|
+ if (nextarg == 0) {
|
|
+ WARNING("or requires two arguments; returning 0");
|
|
+ u = 0;
|
|
+ break;
|
|
+ }
|
|
+ y = execute(a[1]->nnext);
|
|
+ u = ((int)getfval(x)) >> ((int)getfval(y));
|
|
+ tempfree(y);
|
|
+ nextarg = nextarg->nnext;
|
|
+ break;
|
|
case FSYSTEM:
|
|
fflush(stdout); /* in case something is buffered already */
|
|
u = (Awkfloat) system(getsval(x)) / 256; /* 256 is unix-dep */
|
|
break;
|
|
case FRAND:
|
|
- /* in principle, rand() returns something in 0..RAND_MAX */
|
|
- u = (Awkfloat) (rand() % RAND_MAX) / RAND_MAX;
|
|
+ /* in principle, random() returns something in 0..RAND_MAX */
|
|
+ u = (Awkfloat) (random() % RAND_MAX) / RAND_MAX;
|
|
break;
|
|
case FSRAND:
|
|
if (isrec(x)) /* no argument provided */
|
|
@@ -1520,7 +1578,7 @@
|
|
else
|
|
u = getfval(x);
|
|
tmp = u;
|
|
- srand((unsigned int) u);
|
|
+ srandom((unsigned int) u);
|
|
u = srand_seed;
|
|
srand_seed = tmp;
|
|
break;
|