关闭

开始写代码STEP_4

559人阅读 评论(0) 收藏 举报

 

 

#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*intint);

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 *thisint 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*intint);

extern void CVariableDecl_Generate(CVariableDecl*, FILE*);

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

static const CVariableDecl_VMT vmt = { CVariableDecl_Generate };

void CVariableDecl_Initialize(CVariableDecl *thischar *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*intint);

extern void CFunctionDecl_Generate(CFunctionDecl*, FILE*);

#endif
#include "FunctionDecl.h"

static const CFunctionDecl_VMT vmt = { CFunctionDecl_Generate };

void CFunctionDecl_Initialize(CFunctionDecl *thischar *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 ");
}
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:586995次
    • 积分:8986
    • 等级:
    • 排名:第2084名
    • 原创:287篇
    • 转载:149篇
    • 译文:8篇
    • 评论:33条
    最新评论