开始写代码STEP_4

 

 

#ifndef _DECLARATION_H
#define _DECLARATION_H
#include "Vector.h"
#include <stdio.h>
#include "Stmt.h"
#include "Port.h"

typedef struct Declaration_t CDeclaration;

typedef struct Declaration_VMT...{
  void (*generate)(CDeclaration*, FILE*);
}CDeclaration_VMT;

struct Declaration_t...{
  const CDeclaration_VMT *vmt;
  int srcLineNoBegin;
  int srcLineNoEnd;
};

extern void CDeclaration_Initialize(CDeclaration*, int, int);

extern void CDeclaration_Generate(CDeclaration*, FILE*);

#define Declaration_Generate(this,arg1)
  (((CDeclaration*)(this))->vmt->generate((CDeclaration*)(this),arg1))

#endif

 

#include "Declaration.h"

static const CDeclaration_VMT vmt = ...{ CDeclaration_Generate };

void CDeclaration_Initialize(CDeclaration *this, int no1, int no2)
...{
  ((CDeclaration*)this)->vmt = (const CDeclaration_VMT*)&vmt;

  this->srcLineNoBegin = no1;
  this->srcLineNoEnd = no2;
}

void CDeclaration_Generate(CDeclaration *this, FILE *output)
...{
#ifdef DEBUG
  fprintf(output, "CDeclaration_Generate ");
#endif
}

 

 

#ifndef _VARIABLE_DECL_H
#define _VARIABLE_DECL_H
#include "Expression.h"
#include "Declaration.h"

typedef struct VariableDecl_t CVariableDecl;

typedef struct VariableDecl_VMT...{
  void (*generate)(CVariableDecl*, FILE*);
}CVariableDecl_VMT;

struct VariableDecl_t...{
  CDeclaration super;
  char *name;
  CExpression *constraint;
  char *type;
};

extern void CVariableDecl_Initialize(CVariableDecl*, char*, CExpression*, char*, int, int);

extern void CVariableDecl_Generate(CVariableDecl*, FILE*);

#endif

#include <string.h>
#include "VariableDecl.h"

static const CVariableDecl_VMT vmt = ...{ CVariableDecl_Generate };

void CVariableDecl_Initialize(CVariableDecl *this, char *name, CExpression *constraint, char *type, int no1, int no2)
...{
  CDeclaration_Initialize((CDeclaration*)this, no1, no2);
  ((CDeclaration*)this)->vmt = (const CDeclaration_VMT*)&vmt;

  this->name = name;
  this->constraint = constraint;
  this->type = type;
}

void CVariableDecl_Generate(CVariableDecl *this, FILE *output)
...{

  fprintf(output, "Dim %s", this->name);

  if(this->constraint != 0)...{
    Expression_Generate(this->constraint, output);
  }
  
  if(!strncmp(this->type, "string", 6))...{
    fprintf(output, " As String ");
  }else if(!strncmp(this->type, "integer", 7))...{
    fprintf(output, " As Long ");
  }else...{
    fprintf(output, " As %s ", this->type);
  }
}

 

 

#ifndef _FUNCTION_DECL_H
#define _FUNCTION_DECL_H
#include "Declaration.h"

typedef struct FunctionDecl_t CFunctionDecl;

typedef struct FunctionDecl_VMT...{
  void (*generate)(CFunctionDecl*, FILE*);
}CFunctionDecl_VMT;

struct FunctionDecl_t...{
  CDeclaration super;
  Vector *decls;
  char *name;
  Vector *args;
  char *retType;
  Vector *stmts;
};

extern void CFunctionDecl_Initialize(CFunctionDecl*, char*, Vector*, Vector*, char*, Vector*, int, int);

extern void CFunctionDecl_Generate(CFunctionDecl*, FILE*);

#endif

#include "FunctionDecl.h"

static const CFunctionDecl_VMT vmt = ...{ CFunctionDecl_Generate };

void CFunctionDecl_Initialize(CFunctionDecl *this, char *name, Vector *decls, Vector* args, char *retType, Vector *stmts, int no1, int no2)...{
  CDeclaration_Initialize((CDeclaration*)this, no1, no2);
  ((CDeclaration*)this)->vmt = (const CDeclaration_VMT*)&vmt;

  this->decls = decls;
  this->name = name;
  this->args = args;
  this->retType = retType;
  this->stmts = stmts;
}

void CFunctionDecl_Generate(CFunctionDecl *this, FILE *output)...{
  int i, j;
  CDeclaration *decl = (CDeclaration*)this;
  
  fprintf(output, "Function %s(", this->name);

  if(this->args != 0)...{
    for(i = 0; i < size(this->args); i++)...{
      CPort *port = elementAt(this->args, i);
      Port_Generate(port, output);
      if(i < size(this->args) - 1)...{
        fprintf(output, ",");
      }
    }
  }

  fprintf(output, ") As %s ", this->retType);

  fprintf(output, "Dim s_(%d) as String ", decl->srcLineNoEnd - decl->srcLineNoBegin + 1);
  for(i = decl->srcLineNoBegin - 1, j = 0; i < decl->srcLineNoEnd; i++, j++)...{
    fprintf(output, "s_(%3d) = "%3d:%s" ", j, i + 1, getLineAt(i));
  }
  fprintf(output, "LoadSrc2 s_ ", this->name);  

  
  if(this->decls != 0)...{
    for(i = 0; i < size(this->decls); i++)...{
      Declaration_Generate(elementAt(this->decls, i), output);
    }
  }

  fprintf(output, "Dim loop_count As Integer ");

  if(this->stmts != 0)...{
    for(i = 0; i < size(this->stmts); i++)...{
      Stmt_Generate(elementAt(this->stmts, i), output);
    }
  }

  fprintf(output, "End Function ");
}