Added source files C--.

git-svn-id: svn://kolibrios.org@6446 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/cmm/class.cpp

@@ -0,0 +1,88 @@
+#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();
+