- 论坛徽章:
- 0
|
回复 #6 windaoo 的帖子
runtime.c 的源程序如下:
#undef __STDC__
#include <stdio.h>
int *initArray(int size, int init)
{int i;
int *a = (int *)malloc(size*sizeof(int));
for(i=0;i<size;i++) a=init;
return a;
}
int *allocRecord(int size)
{int i;
int *p, *a;
p = a = (int *)malloc(size);
for(i=0;i<size;i+=sizeof(int)) *p++ = 0;
return a;
}
struct string {int length; unsigned char chars[1];};
int stringEqual(struct string *s, struct string *t)
{int i;
if (s==t) return 1;
if (s->length!=t->length) return 0;
for(i=0;i<s->length;i++) if (s->chars!=t->chars) return 0;
return 1;
}
void print(struct string *s)
{int i; unsigned char *p=s->chars;
for(i=0;i<s->length;i++,p++) putchar(*p);
}
void flush()
{
fflush(stdout);
}
struct string consts[256];
struct string empty={0,""};
int main()
{int i;
for(i=0;i<256;i++)
{consts.length=1;
consts.chars[0]=i;
}
return tigermain(0 /* static link */);
}
int ord(struct string *s)
{
if (s->length==0) return -1;
else return s->chars[0];
}
struct string *chr(int i)
{
if (i<0 || i>=256)
{printf("chr(%d) out of range\n",i); exit(1);}
return consts+i;
}
int size(struct string *s)
{
return s->length;
}
struct string *substring(struct string *s, int first, int n)
{
if (first<0 || first+n>s->length)
{printf("substring([%d],%d,%d) out of range\n",s->length,first,n);
exit(1);}
if (n==1) return consts+s->chars[first];
{struct string *t = (struct string *)malloc(sizeof(int)+n);
int i;
t->length=n;
for(i=0;i<n;i++) t->chars=s->chars[first+i];
return t;
}
}
struct string *concat(struct string *a, struct string *b)
{
if (a->length==0) return b;
else if (b->length==0) return a;
else {int i, n=a->length+b->length;
struct string *t = (struct string *)malloc(sizeof(int)+n);
t->length=n;
for (i=0;i<a->length;i++)
t->chars=a->chars;
for(i=0;i<b->length;i++)
t->chars[i+a->length]=b->chars;
return t;
}
}
int not(int i)
{ return !i;
}
#undef getchar
struct string *getchar()
{int i=getc(stdin);
if (i==EOF) return ∅
else return consts+i;
}
========================================
windaoo ,
我曾经尝试将 “#undef __STDC__ ” 这句去掉,然后编译,但结果提示函数 getchar 重复定义。
另外,runtime.c 是虎书里面自带的程序,我是假定它本身没有问题,因此当单独编译这个程序出错时,我感到很意外。同时,我也到网上查询了一下,但有没有太多实际的解决方法(对_STDC_的介绍倒是不少)。因此,想请教一下各位,碰到这个问题,有什么好的解决办法。 |
|