Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

embedimage, extend now build under gcc-2.9 (haiku/beos)

Browse source 
FossilOrigin-Name: 92aa302cfd693866025c0303a56547b2e491340554ce076454fbd53d27db7c7c
This commit is contained in:
crc 2018-01-27 20:25:18 +00:00
parent 00e50d913a
commit e97886ee65
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/embedimage.c
View file

@ -48,6 +48,7 @@ void output_header(int size) {
int main(int argc, char **argv) {
int32_t size = 0;
int32_t i;
if (argc == 2)
size = ngaLoadImage(argv[1]);
else
@ -55,7 +56,6 @@ int main(int argc, char **argv) {
output_header(size);
int32_t i;
i = 0;
while (i < size) {
if (i+1 < size)

18
tools/extend.c
View file

@ -122,6 +122,8 @@ void stats() {
}
int main(int argc, char **argv) {
int tokens;
FILE *fp;
printf("RETRO12\n");
printf("+ initialize\n");
ngaPrepare();
@ -130,11 +132,10 @@ int main(int argc, char **argv) {
stats();
dump_stack();
printf("+ load %s\n", argv[1]);
int tokens = include_file(argv[1]);
tokens = include_file(argv[1]);
printf(" processed %d tokens\n", tokens);
stats();
printf("+ save new image\n");
FILE *fp;
if ((fp = fopen("ngaImage", "wb")) == NULL) {
printf("Unable to save the ngaImage!\n");
exit(2);
@ -270,10 +271,11 @@ void execute(int cell) {
to process it. */
void evaluate(char *s) {
CELL interpret;
if (strlen(s) == 0)
return;
update_rx();
CELL interpret = d_xt_for("interpret", Dictionary);
interpret = d_xt_for("interpret", Dictionary);
string_inject(s, TIB);
stack_push(TIB);
execute(interpret);
@ -290,10 +292,11 @@ int not_eol(int ch) {
}
void read_token(FILE *file, char *token_buffer, int echo) {
int ch = getc(file);
int ch, count;
ch = getc(file);
if (echo != 0)
putchar(ch);
int count = 0;
count = 0;
while (not_eol(ch))
{
if ((ch == 8 || ch == 127) && count > 0) {
@ -314,10 +317,11 @@ void read_token(FILE *file, char *token_buffer, int echo) {
}
char *read_token_str(char *s, char *token_buffer, int echo) {
int ch = (char)*s++;
int ch, count;
ch = (char)*s++;
if (echo != 0)
putchar(ch);
int count = 0;
count = 0;
while (not_eol(ch))
{
if ((ch == 8 || ch == 127) && count > 0) {