summaryrefslogtreecommitdiff
path: root/pack.c
diff options
context:
space:
mode:
authorYukihiro Matsumoto <matz@ruby-lang.org>1994-12-08 14:17:29 +0900
committerTakashi Kokubun <takashikkbn@gmail.com>2019-08-17 22:09:30 +0900
commit00e36aa09f54925c2f9c30524b48f4f54a9adb23 (patch)
tree57bf15576109b53406796c66b29d5e11d9fd99c0 /pack.c
parent4dfd93c72a9a221c5575c5888483f2fb55c82117 (diff)
version 0.60v0_60
https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.60.tar.gz Thu Dec 8 14:17:29 1994 Yukihiro Matsumoto (matz@ix-02) * 0.60 released - alpha test baseline.
Diffstat (limited to 'pack.c')
-rw-r--r--pack.c42
1 files changed, 21 insertions, 21 deletions
diff --git a/pack.c b/pack.c
index fbedc67..af7f8c2 100644
--- a/pack.c
+++ b/pack.c
@@ -3,7 +3,7 @@
pack.c -
$Author: matz $
- $Date: 1994/10/14 06:19:34 $
+ $Date: 1994/12/06 09:30:08 $
created at: Thu Feb 10 15:17:05 JST 1994
Copyright (C) 1994 Yukihiro Matsumoto
@@ -529,7 +529,7 @@ Fpck_unpack(str, fmt)
}
case 'a':
if (len > send - s) len = send - s;
- Fary_push(ary, str_new(s, len));
+ ary_push(ary, str_new(s, len));
s += len;
break;
@@ -541,7 +541,7 @@ Fpck_unpack(str, fmt)
if (p[-1] == '*' || len > (send - s) * 8)
len = (send - s) * 8;
- Fary_push(ary, bitstr = str_new(0, len + 1));
+ ary_push(ary, bitstr = str_new(0, len + 1));
t = RSTRING(bitstr)->ptr;
for (i=0; i<len; i++) {
if (i & 7) bits >>= 1;
@@ -560,7 +560,7 @@ Fpck_unpack(str, fmt)
if (p[-1] == '*' || len > (send - s) * 8)
len = (send - s) * 8;
- Fary_push(ary, bitstr = str_new(0, len + 1));
+ ary_push(ary, bitstr = str_new(0, len + 1));
t = RSTRING(bitstr)->ptr;
for (i=0; i<len; i++) {
if (i & 7) bits <<= 1;
@@ -579,7 +579,7 @@ Fpck_unpack(str, fmt)
if (p[-1] == '*' || len > (send - s) * 2)
len = (send - s) * 2;
- Fary_push(ary, bitstr = str_new(0, len + 1));
+ ary_push(ary, bitstr = str_new(0, len + 1));
t = RSTRING(bitstr)->ptr;
for (i=0; i<len; i++) {
if (i & 1)
@@ -600,7 +600,7 @@ Fpck_unpack(str, fmt)
if (p[-1] == '*' || len > (send - s) * 2)
len = (send - s) * 2;
- Fary_push(ary, bitstr = str_new(0, len + 1));
+ ary_push(ary, bitstr = str_new(0, len + 1));
t = RSTRING(bitstr)->ptr;
for (i=0; i<len; i++) {
if (i & 1)
@@ -618,7 +618,7 @@ Fpck_unpack(str, fmt)
len = send - s;
while (len-- > 0) {
char c = *s++;
- Fary_push(ary, INT2FIX(c));
+ ary_push(ary, INT2FIX(c));
}
break;
@@ -627,7 +627,7 @@ Fpck_unpack(str, fmt)
len = send - s;
while (len-- > 0) {
unsigned char c = *s++;
- Fary_push(ary, INT2FIX(c));
+ ary_push(ary, INT2FIX(c));
}
break;
@@ -638,7 +638,7 @@ Fpck_unpack(str, fmt)
short tmp;
memcpy(&tmp, s, sizeof(short));
s += sizeof(short);
- Fary_push(ary, INT2FIX(tmp));
+ ary_push(ary, INT2FIX(tmp));
}
break;
@@ -649,7 +649,7 @@ Fpck_unpack(str, fmt)
unsigned short tmp;
memcpy(&tmp, s, sizeof(unsigned short));
s += sizeof(unsigned short);
- Fary_push(ary, INT2FIX(tmp));
+ ary_push(ary, INT2FIX(tmp));
}
break;
@@ -660,7 +660,7 @@ Fpck_unpack(str, fmt)
int tmp;
memcpy(&tmp, s, sizeof(int));
s += sizeof(int);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -671,7 +671,7 @@ Fpck_unpack(str, fmt)
unsigned int tmp;
memcpy(&tmp, s, sizeof(unsigned int));
s += sizeof(unsigned int);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -682,7 +682,7 @@ Fpck_unpack(str, fmt)
long tmp;
memcpy(&tmp, s, sizeof(long));
s += sizeof(long);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -693,7 +693,7 @@ Fpck_unpack(str, fmt)
unsigned long tmp;
memcpy(&tmp, s, sizeof(unsigned long));
s += sizeof(unsigned long);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -705,7 +705,7 @@ Fpck_unpack(str, fmt)
memcpy(&tmp, s, sizeof(short));
s += sizeof(short);
tmp = ntohs(tmp);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -717,7 +717,7 @@ Fpck_unpack(str, fmt)
memcpy(&tmp, s, sizeof(long));
s += sizeof(long);
tmp = ntohl(tmp);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -729,7 +729,7 @@ Fpck_unpack(str, fmt)
float tmp;
memcpy(&tmp, s, sizeof(float));
s += sizeof(float);
- Fary_push(ary, float_new((double)tmp));
+ ary_push(ary, float_new((double)tmp));
}
break;
@@ -741,7 +741,7 @@ Fpck_unpack(str, fmt)
double tmp;
memcpy(&tmp, s, sizeof(double));
s += sizeof(double);
- Fary_push(ary, float_new(tmp));
+ ary_push(ary, float_new(tmp));
}
break;
@@ -753,7 +753,7 @@ Fpck_unpack(str, fmt)
memcpy(&tmp, s, sizeof(short));
s += sizeof(short);
tmp = vtohs(tmp);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -765,7 +765,7 @@ Fpck_unpack(str, fmt)
memcpy(&tmp, s, sizeof(long));
s += sizeof(long);
tmp = vtohl(tmp);
- Fary_push(ary, int2inum(tmp));
+ ary_push(ary, int2inum(tmp));
}
break;
@@ -812,7 +812,7 @@ Fpck_unpack(str, fmt)
s += 2;
}
RSTRING(str)->len = total;
- Fary_push(ary, str);
+ ary_push(ary, str);
}
break;