mirror of https://github.com/RevCurtisP/C02.git
46 lines
1.2 KiB
C
46 lines
1.2 KiB
C
/*************************************
|
|
* C02 Common Definitions & Routines *
|
|
*************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
#include "common.h"
|
|
|
|
/* Error - Print Input File name & position and exit */
|
|
void exterr(int errnum) {
|
|
fprintf(stderr, "Line %d Column %d of File %s\n", curlin, curcol, inpnam);
|
|
fflush(stdout); fflush(stderr);
|
|
exit(errnum);
|
|
}
|
|
|
|
/* Error - print "Expected" error message *
|
|
and exit with general failure code *
|
|
Args: expected - Description of what was expected */
|
|
void expctd(char *expstr) {
|
|
fprintf(stderr, "Expected %s, but found '%c'\n", expstr, nxtchr);
|
|
exterr(EXIT_FAILURE);
|
|
}
|
|
|
|
/* Print current position in file */
|
|
void prtpos(void) { if (inpnam[0]) printf("(%s: %d,%d) ", inpnam, curlin, curcol); }
|
|
|
|
/* Set comment to string */
|
|
void setcmt(char *s) { strcpy(cmtasm, s); }
|
|
|
|
/* Append string to comment */
|
|
void addcmt(char *s) {
|
|
if (strlen(cmtasm)+strlen(s)<73) strcat(cmtasm, s);
|
|
}
|
|
|
|
/* Append character to comment */
|
|
void chrcmt(char c) {
|
|
if (strlen(cmtasm)>72) return;
|
|
if (cmtasm[0] == 0 && c == ' ') return;
|
|
int i = strlen(cmtasm);
|
|
cmtasm[i++] = c;
|
|
cmtasm[i] = 0;
|
|
}
|