type.cpp

一个basic语言的编译工具。

#ifndef utype
#define utype

#include<bios.h>
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<dos.h>
#include<conio.h>
#include<mem.h>
#include<math.h>
#include<ctype.h>
#include<fcntl.h>

typedef unsigned int uint;
typedef unsigned char uchar;
typedef unsigned long ulong;

/*------------------------------------*/
void ERR(uchar);



/*------------------CODE---------------*/
uchar strcmpn(uchar huge*a,uchar huge*b);
void EXIT(char*a);
uchar far * Ma(uint l);
void Free(uchar huge*p);
class dosmem
{
 public:
  uchar far*p;
  dosmem(uint l);
  ~dosmem();
  uchar dosmem::modmem(uint l);
};

class Stack
{
 public:
  dosmem buf;
  uint sp,tl;
  Stack(uint l):buf((l+15)<<4)
   {tl=l;sp=l-1;}
  uint Stack::popaint();
  uchar Stack::popachar();
  float Stack::popafloat();
  void Stack::pushaint(uint a);
  void Stack::pushachar(uchar a);
  void Stack::pushafloat(float a);
  void Stack::clean();
};

uchar thelastchar(uchar*a);
void dellastchar(uchar*a);
#endif