Function serror

general/package/comgt/src/comgt.c:295–324

Report script errors and quit */

/* Report script errors and quit */
void serror(char *text, int exitcode) {
  int a,line;
  char lmsg[STRINGL];
  verbose=1;
  //dodump();
  vmsg("-- Error Report --");
  a=pc;
  pc=lastpc;
  //printwhere();
  pc=a;
  while(pc!=0 && (script[pc]==' ' || script[pc]=='\t')) pc--;
  strcpy(lmsg,"----> ");
  for(a=6;a<STRINGL;a++) lmsg[a]=' ';
  for(a=0;a<pc-lastpc;a++) {
    if(script[a+lastpc]=='\t') lmsg[a+8]='\t';
  }
  a+=6;
  lmsg[a++]='^';
  lmsg[a]=0;
  vmsg(lmsg);
  a=0; line=1;
  while(a<pc) {
    if(script[a++]=='\n') {
      if(a<pc) line++;
    }
  }
  sprintf(lmsg,"Error @%d, line %d, %s. (%d)\n",pc,line,text,exitcode);
  vmsg(lmsg);
  ext(exitcode);
}

void skipspaces(void) {
  while(script[pc]==' ' || script[pc]=='\t' ) pc++;