Beispiel #1
0
/**
 * run-time syntax error
 */
void err_syntax(int keyword, const char *fmt) {
  if (!gsb_last_error) {
    char *buff = malloc(SB_TEXTLINE_SIZE + 1);
    char *fmt_p = (char *)fmt;

    prog_error = 0x80;
    buff[0] = '\0';
    if (keyword != -1) {
      if (kw_getfuncname(keyword, buff) ||
          kw_getprocname(keyword, buff) ||
          kw_getcmdname(keyword, buff)) {
        strcpy(buff, " ");
      }
    }

    while (*fmt_p) {
      if (*fmt_p == '%') {
        fmt_p++;
        switch (*fmt_p) {
        case 'S':
          strcat(buff, "STRING");
          break;
        case 'I':
          strcat(buff, "INTEGER");
          break;
        case 'F':
          strcat(buff, "REAL");
          break;
        case 'P':
          strcat(buff, "VARIABLE");
          break;
        case 'G':
          strcat(buff, "FUNC");
          break;
        case 'N':
          strcat(buff, "NUM");
          break;
        }
      } else {
        int len = strlen(buff);
        buff[len] = *fmt_p;
        buff[len + 1] = '\0';
      }
      fmt_p++;
    }
    err_common_msg(WORD_RTE, prog_file, prog_line, ERR_SYNTAX);
    log_printf("Expected:");
    log_printf(buff);
    log_printf("\n");
    free(buff);
  }
}
Beispiel #2
0
/**
 *
 * decompiler
 *
 */
void dump_bytecode(FILE * output) {
  int i, c, b, d, h, l, j;
  long lng;
  int len, new_ip;
  char cmd[33];
  FILE *fp;
  char_p_t *source = NULL;
  int lcount = 0, lsize = 0;

  // ///////////////
  // read source
  if (strstr(prog_file, ".bas")) {
    fp = fopen(prog_file, "rt");
    if (fp) {
      char buf[512];

      lsize = 1024;
      source = malloc(lsize * sizeof(char_p_t));
      lcount = 0;
      while (fgets(buf, 511, fp)) {
        source[lcount] = malloc(strlen(buf) + 1);
        strcpy(source[lcount], buf);
        lcount++;
        if (lcount >= lsize) {
          lsize += 1024;
          source = realloc(source, lsize * sizeof(char_p_t));
        }
      }
      fclose(fp);
    }
  }

  // ///////////////
  fprintf(output, "  program size   = %d\n", (int) prog_length);
  fprintf(output, "  variable-count = %d\n", (int) prog_varcount);
  fprintf(output, "  label-count    = %d\n", (int) prog_labcount);
  fprintf(output, "  lib-count      = %d\n", (int) prog_libcount);
  fprintf(output, "  symbol-count   = %d\n", (int) prog_symcount);

  // //////////////////
  // print label-table
  if (prog_labcount) {
    fprintf(output, "* label-table:\n");
    for (i = 0; i < prog_labcount; i++) {
      fprintf(output, "  %d = 0x%X (%d)\n", i, (int) tlab[i].ip, (int) tlab[i].ip);
    }
  } else {
    fprintf(output, "* no label-table\n");
  }

  // //////////////////
  // print libs
  if (prog_libcount) {
    fprintf(output, "* linked-libraries-table:\n");
    for (i = 0; i < prog_libcount; i++) {
      fprintf(output, "  %s: type '%s', lid 0x%0X\n", prog_libtable[i].lib,
          ((prog_libtable[i].type == 1) ? "unit" : "c-module"),
          ((prog_libtable[i].type ==
                  1) ? prog_libtable[i].id | UID_UNIT_BIT : prog_libtable[i].id)
          );
        }
      }
      else {
        fprintf(output, "* no linked-libraries\n");
      }

      // //////////////////
      // print symbol-table
  if (prog_symcount) {
    fprintf(output, "* import-symbol-table:\n");
    for (i = 0; i < prog_symcount; i++) {
      fprintf(output, "  %s: type %s, lid 0x%0X, sid %d, vid %d - tid %d, eidx %d\n", prog_symtable[i].symbol,
          (prog_symtable[i].type == stt_variable) ? "variable" : ((prog_symtable[i].type ==
                  stt_procedure) ? "procedure" :
              "function"), prog_symtable[i].lib_id,
          prog_symtable[i].sym_id, prog_symtable[i].var_id,
          prog_symtable[i].task_id, prog_symtable[i].exp_idx);
        }
      }
      else {
        fprintf(output, "* no import-symbol-table\n");
      }

      // //////////////////
      // print export symbol-table
  if (prog_expcount) {
    fprintf(output, "* export-symbol-table:\n");
    for (i = 0; i < prog_expcount; i++) {
      fprintf(output, "  %s: type %s, address %d, related variable id %d\n", prog_exptable[i].symbol,
          (prog_exptable[i].type == stt_variable) ? "variable" : ((prog_exptable[i].type ==
                  stt_procedure) ? "procedure" :
              "function"), prog_exptable[i].address,
          prog_exptable[i].vid);
        }
      }
      else {
        fprintf(output, "* no export-symbol-table\n");
      }

      // //////////////////
      // print code
  fprintf(output, "* byte-code:\n");
  do {
    b = code_getnext();
    h = b >> 4;
    l = b & 0xF;

    fprintf(output, "  %08d: %c%c %c; ", (int) prog_ip - 1, "0123456789ABCDEF"[h], "0123456789ABCDEF"[l],
        (b >= 32) ? b : 42);

    switch (b) {
    case kwTYPE_LINE:
      c = code_getaddr();
      if (source && lcount >= c) {
        fprintf(output, "line: %d\n%d: ", c, c);
        fprintf(output, "%s", source[c - 1]);
      } else {
        fprintf(output, "line: %d", c);
      }
      break;
    case kwTYPE_EVPUSH:
      fprintf(output, "push (r)esult");
      break;
    case kwTYPE_EVPOP:
      fprintf(output, "pop (l)eft");
      break;
    case kwTYPE_EOC:
      fprintf(output, "end-of-command");
      break;
    case kwTYPE_CALLF:
      // call build-in function
      lng = code_getaddr();
      kw_getfuncname(lng, cmd);
      fprintf(output, "%s; (build-in function %ld)", cmd, lng);
      break;
    case kwTYPE_CALLP:
      // call build-in procedure
      lng = code_getaddr();
      kw_getprocname(lng, cmd);
      fprintf(output, "%s; (build-in procedure %ld)", cmd, lng);
      break;
    case kwTYPE_CALLEXTF:
    case kwTYPE_CALLEXTP:      // [lib][index]
      // call external (module) function/procedure
      c = code_getaddr();
      d = code_getaddr();
      if (b == kwTYPE_CALLEXTF) {
        if (c & UID_UNIT_BIT) {
          fprintf(output, "call external (unit) function; lid 0x%X, sid %d", c, d);
        } else {
          sblmgr_getfuncname(c, prog_symtable[d].exp_idx, cmd);
          fprintf(output, "call external (c-lib) function; lid 0x%X, sid %d (%s)", c, d, cmd);
        }
      } else {
        if (c & UID_UNIT_BIT) {
          fprintf(output, "call external (unit) procedure; lid 0x%X, sid %d", c, d);
        } else {
          sblmgr_getprocname(c, prog_symtable[d].exp_idx, cmd);
          fprintf(output, "call external (c-lib) procedure; lid 0x%X, sid %d (%s)", c, d, cmd);
        }
      }
      break;
    case kwPROC:
      fprintf(output, "=== user defined procedure begin");
      break;
    case kwFUNC:
      fprintf(output, "=== user defined function begin");
      break;
    case kwFILEPRINT:
      fprintf(output, "file print");
      break;
    case kwFILEINPUT:
      fprintf(output, "file input");
      break;
    case kwLINEINPUT:
      fprintf(output, "line input");
      break;
    case kwFORSEP:
      fprintf(output, "for-sep");
      break;
    case kwLOOPSEP:
      fprintf(output, "loop-sep");
      break;
    case kwINPUTSEP:
      fprintf(output, "input-sep");
      break;
    case kwAPPEND:
      fprintf(output, "append");
      break;
    case kwARRAY:
      fprintf(output, "array");
      break;
    case kwTYPE_PARAM:
    case kwTYPE_CRVAR:
      c = code_getnext();
      if (b == kwTYPE_PARAM) {
        fprintf(output, "parameter %d: ", c);
      } else {
        fprintf(output, "local variable %d: ", c);
      }

      d = 0;
      for (j = 0; j < c; j++) {
        if (b == kwTYPE_PARAM) {
          d = code_getnext();
          if (d & 0x80) {
            fprintf(output, "&");
          }
        }
        fprintf(output, "%d ", code_getaddr());
      }
      break;
    case kwUSE:
      fprintf(output, "use %d ", code_getaddr());
      fprintf(output, "exit %d", code_getaddr());
      break;
    case kwTYPE_RET:
      fprintf(output, "=== return; user-defined proc/func end");
      break;
    case kwTYPE_CALL_UDP:
      // call user-defined-procedure
      fprintf(output, "call user-defined procedure %d", code_getaddr());
      code_skipaddr();
      break;
    case kwTYPE_CALL_UDF:
      // call user-defined-function
      fprintf(output, "call user-defined function %d", code_getaddr());
      fprintf(output, ", return-variable: %d", code_getaddr());
      break;
    case kwEXIT:
      fprintf(output, "exit ");
      c = code_getnext();
      switch (c) {
      case kwFORSEP:
        fprintf(output, "for");
        break;
      case kwLOOPSEP:
        fprintf(output, "loop");
        break;
      case kwPROCSEP:
        fprintf(output, "procedure");
        break;
      case kwFUNCSEP:
        fprintf(output, "function");
        break;
      default:
        fprintf(output, "last-stack-node (undefined)");
      }
      ;

      break;

    default:
      for (c = 0; keyword_table[c].name[0] != '\0'; c++) {
        if (b == keyword_table[c].code) {
          fprintf(output, "%s ", keyword_table[c].name);
          break;
        }
      }

      switch (b) {
      case kwTYPE_SEP:
        c = code_getnext();
        fprintf(output, "\'%c\' ", (c >= 32) ? c : '?');
        break;
      case kwTYPE_LOGOPR:
      case kwTYPE_CMPOPR:
      case kwTYPE_ADDOPR:
      case kwTYPE_MULOPR:
      case kwTYPE_POWOPR:
      case kwTYPE_UNROPR:
        c = code_getnext();
        fprintf(output, "data %d \'%c\' ", c, (c >= 32) ? c : '?');
        break;
      case kwTYPE_LEVEL_BEGIN:
        fprintf(output, "(");
        break;
      case kwTYPE_LEVEL_END:
        fprintf(output, ")");
        break;
      case kwONJMP:
        new_ip = code_getaddr();
        code_skipaddr();
        b = code_getnext();
        c = code_getnext();
        fprintf(output, "on %s count %d\n", ((b == kwGOTO) ? "goto" : "gosub"), c);
        fprintf(output, "      next address %d\n", new_ip);
        for (j = 0; j < c; j++) {
          fprintf(output, "       jump to %d\n", code_getaddr());
        }
        fprintf(output, "on %s expression:", ((b == kwGOTO) ? "goto" : "gosub"));
        break;
        case kwGOTO:
        new_ip = code_getaddr();
        fprintf(output, "; jump to %d ", new_ip);
        c = code_getnext();
        fprintf(output, "; pop %d stack nodes", c);
        break;
        case kwOPTION:
        c = code_getnext();
        new_ip = code_getaddr();
        fprintf(output, " option (%d) = %d", c, new_ip);
        break;
        case kwGOSUB:
        c = code_getaddr();
        fprintf(output, "id %d ", c);
        new_ip = tlab[c].ip;
        fprintf(output, "; jump to %d ", new_ip);
        break;
        case kwLET:
        break;
        case kwRESTORE:
        case kwTYPE_LINE:
        case kwLABEL:
        case kwTYPE_VAR:
        fprintf(output, "id %d ", code_getaddr());
        break;
        case kwTYPE_INT:
        lng = code_getint();
        fprintf(output, "value (int) %d (0x%X) ", (int)lng, (int)lng);
        break;
        case kwTYPE_NUM:
        fprintf(output, "value (real) " VAR_NUM_FMT " ", code_getreal());
        break;
        case kwTYPE_STR:
        len = code_getstrlen();
        fprintf(output, "\"");
        for (j = 0; j < len; j++) {
          fprintf(output, "%c", prog_source[prog_ip + j]);
        }
        fprintf(output, "\"");
        prog_ip += len;
        break;
        case kwIF:
        case kwFOR:
        case kwWHILE:
        case kwREPEAT:
        case kwELSE:
        case kwELIF:
        case kwENDIF:
        case kwNEXT:
        case kwWEND:
        case kwUNTIL:
        fprintf(output, "address1 (true?) %d, address2 (false?) %d ", code_getaddr(),
            code_getaddr());
        break;
      }
    }

    fprintf(output, "\n");
  } while (prog_ip < prog_length);

  // ///////////////
  // delete source
  if (source) {
    for (i = 0; i < lcount; i++) {
      free(source[i]);
    }
    free(source);
  }
}