class.cpp

#define _CLASS_

#include "tok.h"

structteg *searchteg = NULL;
int destructor = FALSE;

void notclassname(char *name) {
  char buf[90];
  sprintf(buf, "'%s' not class name", name);
  preerror(buf);
  nexttok(); //пропуск ::
  nexttok();
}

void notclassproc(char *classname, char *procname) {
  char buf[160];
  sprintf(buf, "'%s' not member class '%s'", procname, classname);
  preerror(buf);
}

void AddThis() {
  int lsize = (am32 == TRUE ? 4 : 2);
  localrec *lrec =
      addlocalvar("this", (am32 == TRUE ? tk_dwordvar : tk_wordvar), paramsize);
  lrec->rec.recsize = lsize;
  lrec->rec.type = tp_paramvar;
  lrec->fuse = USEDVAR;
  paramsize += lsize;
}

void doclassproc(unsigned int tproc) {
  int type = itok.rm; //тип возврата
  unsigned int flag = itok.flag;
  unsigned int npointr = itok.npointr;
  char classname[IDLENGTH];
  if ((searchteg = FindTeg(TRUE, itok.name)) != NULL) {
    strcpy(classname, itok.name);
    nexttok(); //пропуск ::
    if (tok2 == tk_tilda) {
      nexttok();
      destructor = TRUE;
      flag |= fs_destructor;
      type = tk_void;
    }
    nexttok();
    char *tn;
    char name[IDLENGTH];
    strcpy(name, itok.name);
    if ((tn = strchr(name, '@')) != NULL)
      *tn = 0;

    if (strcmp(classname, name) == 0 && (flag & fs_destructor) == 0)
      flag |= fs_constructor;
    if ((tok != tk_declare && tok != tk_undefproc) ||
        (itok.flag & f_classproc) == 0) {
      notclassproc(classname, name);
      searchteg = NULL;
      define_procedure();
      return;
    }
    if (tproc == 0) {
      if (CidOrID() == tk_ID)
        tproc = tk_fastcall;
      else
        tproc = (comfile == file_w32 ? tk_stdcall : tk_pascal);
    }
    flag |= (tproc - tk_pascal) * 2;
    if (type == tokens)
      type = am32 == FALSE ? tk_word : tk_dword;
    if (flag != itok.flag || type != itok.rm ||
        (unsigned short)npointr != itok.npointr) {
      //		printf("flag %08X - %08X\n",flag,itok.flag);
      //		printf("type %u - %u\n",type,itok.rm);
      redeclare(name);
    }
    if (dynamic_flag) {
      dynamic_proc();
      searchteg = NULL;
      return;
    }
    //		if(itok.flag&f_static)searchteg=NULL;
    if (AlignProc != FALSE)
      AlignCD(CS, alignproc);
    if (dbg)
      AddLine();
    setproc(1);
  } else {
    notclassname(itok.name);
    setproc(0);
  }
  dopoststrings();
}