mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-04 06:11:55 +03:00
4938 lines
66 KiB
C++
4938 lines
66 KiB
C++
#define _TOKE_
|
||
|
||
#include <fcntl.h>
|
||
#include <unistd.h>
|
||
#include "tok.h"
|
||
|
||
|
||
unsigned char gotoendif=FALSE;
|
||
|
||
unsigned char atex=FALSE;
|
||
|
||
unsigned char usedirectiv=TRUE; //¨¤¥â ®¡à ¡®âª ¤¨à¥ªâ¨¢ë
|
||
|
||
unsigned char parsecommandline = 0; // parse command line flag
|
||
|
||
unsigned char sdp_mode=FALSE; //०¨¬ ¯à¨ã¤¨â¥«ì®© ¢ë£à㧪¨ ¤¨ ¬¨ç¥áª¨å ¯à®æ¥¤ãà
|
||
|
||
unsigned int startexit;
|
||
|
||
extern int maxerrors; // number of errors to stop at
|
||
|
||
unsigned int postnumflag; //ä« £ ¯®á«¥¤¥£® ¨¤¥â¨ä¨ª â®à ¢ ¢ëç¨á«¥¨¨ ®¬¥à
|
||
|
||
int calcnumber=FALSE;
|
||
|
||
|
||
|
||
char mesmain[]="main";
|
||
|
||
char *macroname[]={"inp","inportb","inport","inportd","outp","outportb",
|
||
|
||
"outport","outportd","sqrt","cos","sin","atan2",
|
||
|
||
"tan","log","log10","exp","atan","fabs",NULL};
|
||
|
||
enum{m_ib,m_ibt,m_iw,m_id,m_ob,m_obt,m_ow,m_od,m_sqrt,m_cos,m_sin,m_atan2,
|
||
|
||
m_tan,m_log,m_log10,m_exp,m_atan,m_fabs,m_end};
|
||
|
||
|
||
|
||
int FindProcLib(int);
|
||
|
||
int RetAtExit();
|
||
|
||
int ConvRetCode(int i);
|
||
|
||
int CompConst(int firstval);
|
||
|
||
int dirmode;
|
||
|
||
|
||
|
||
#define NUMIFDEF 32 //¬ ªá¨¬ «ì ï ¢«®¦¥®áâì ¤¨à¥ªâ¨¢ ifdef/ifndef
|
||
|
||
int endifcount=-1; // depth count of ?if
|
||
|
||
char ujo[]="Unknown #jumptomain option";
|
||
|
||
char toelse[]="#else use once in #if";
|
||
|
||
char ido[]="Unknown #inline option";
|
||
|
||
unsigned char startuptomain=FALSE;
|
||
|
||
unsigned char dosstring=FALSE;
|
||
|
||
unsigned char useelse[NUMIFDEF]; //ä« £¨ ¨á¯®«ì§®¢ ¨ï ¤¨à¥ªâ¨¢ë else
|
||
|
||
unsigned char jumptomain = CALL_NEAR; // jump to the main()
|
||
|
||
unsigned char resizemem = 1; // set owned memory block to 64K
|
||
|
||
unsigned char fargc=FALSE;
|
||
|
||
unsigned int startptrdata = 0x100; // data start address
|
||
|
||
unsigned int resizesizeaddress; /* location of resize memory size descr. */
|
||
|
||
unsigned int stackstartaddress; /* location of SP assignment */
|
||
|
||
|
||
|
||
/*-----------------18.09.98 23:20-------------------
|
||
|
||
<20>¥ «¨§ æ¨ï SYS
|
||
|
||
--------------------------------------------------*/
|
||
|
||
char sysname[8]="NO_NAME";
|
||
|
||
int sysatr=0x2000;
|
||
|
||
int sysstack=0;
|
||
|
||
int sysnumcom=0;
|
||
|
||
int syscom;
|
||
|
||
//¯¥à¥¬¥ë¥ ¤«ï ª®¬¯¨«ï樨 rom-bios
|
||
|
||
int unsigned romsize=0;
|
||
|
||
int dataromstart,dataromsize;
|
||
|
||
int dataseg=0x70;
|
||
|
||
|
||
|
||
unsigned int numdomain=0; //ç¨á«® ¯à®æ¥¤ãà § ¯ã᪠¥¬ëå ¤® main
|
||
|
||
char *domain; //¡ãä¥à ¨¬¥ ¯à®æ¥¤ãà § ¯ã᪠¥¬ëå ¤® main
|
||
|
||
|
||
|
||
int ifdefconst();
|
||
|
||
void CheckNumIF();
|
||
|
||
void KillVarOfTree(idrec **treestart);
|
||
|
||
void IncludeFile(char *fileincl,int tfind);
|
||
|
||
|
||
|
||
char *pragmalist[]={"option","line","startup","resource","pack","debug","indexregs",""};
|
||
|
||
enum{p_op,p_li,p_st,p_re,p_pa,p_db,p_idx,p_end};
|
||
|
||
int strpackdef=1;
|
||
|
||
int strpackcur=1;
|
||
|
||
struct STACKALIGN {
|
||
|
||
STACKALIGN *prev;
|
||
|
||
int size;
|
||
|
||
char id[IDLENGTH];
|
||
|
||
};
|
||
|
||
#ifdef DEBUGMODE
|
||
|
||
int debug=FALSE;
|
||
|
||
#endif
|
||
|
||
|
||
|
||
STACKALIGN *stackalign=NULL;
|
||
|
||
/* -------------- constant math procedures start --------------- */
|
||
|
||
|
||
|
||
int calcqwordnumber(unsigned long long *retnum,unsigned long long number,int operand)
|
||
|
||
{
|
||
|
||
unsigned long long value;
|
||
|
||
value=*retnum;
|
||
|
||
switch(operand){
|
||
|
||
case tk_minus: value-=number; break;
|
||
|
||
case tk_plus: value+=number; break;
|
||
|
||
case tk_xor: value^=number; break;
|
||
|
||
case tk_and: value&=number; break;
|
||
|
||
case tk_or: value|=number; break;
|
||
|
||
case tk_mod: value%=number; break;
|
||
|
||
case tk_div: value/=number; break;
|
||
|
||
case tk_mult: value*=number; break;
|
||
|
||
case tk_rr: value>>=number; break;
|
||
|
||
case tk_ll: value<<=number; break;
|
||
|
||
case tk_xorminus: value^=-number; break;
|
||
|
||
case tk_andminus: value&=-number; break;
|
||
|
||
case tk_orminus: value|=-number; break;
|
||
|
||
case tk_modminus: value%=-number; break;
|
||
|
||
case tk_divminus: value/=-number; break;
|
||
|
||
case tk_multminus: value*=-number; break;
|
||
|
||
case tk_rrminus: value>>=-number; break;
|
||
|
||
case tk_llminus: value<<=-number; break;
|
||
|
||
default: return FALSE;
|
||
|
||
}
|
||
|
||
*retnum=value;
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
|
||
|
||
unsigned long long doconstqwordmath()
|
||
|
||
{
|
||
|
||
unsigned long long value;
|
||
|
||
unsigned int htok;
|
||
|
||
int fundef; //ä« £ ¨á¯®«ì§®¢ ¨ï ¥¨§¢ ¤à¥á
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
numexpected();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
if(itok.rm==tk_float)value=*(float *)&itok.number;
|
||
|
||
else if(itok.rm==tk_double)value=*(double *)&itok.lnumber;
|
||
|
||
else value=itok.lnumber;
|
||
|
||
fundef=itok.rm;
|
||
|
||
postnumflag=itok.flag;
|
||
|
||
// usedirectiv=TRUE;
|
||
|
||
calcnumber=TRUE;
|
||
|
||
while(itok2.type==tp_opperand){
|
||
|
||
if(fundef==tk_undefofs&&tok2!=tk_plus&&tok2!=tk_minus)break;
|
||
|
||
nexttok();
|
||
|
||
htok=tok;
|
||
|
||
if(tok2!=tk_number){
|
||
|
||
if(tok2!=tk_dollar&&tok2!=tk_not){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else nexttok();
|
||
|
||
if(itok.rm==tk_float)itok.number=*(float *)&itok.number;
|
||
|
||
else if(itok.rm==tk_double)itok.lnumber=*(double *)&itok.lnumber;
|
||
|
||
if(calcqwordnumber(&value,itok.lnumber,htok)==FALSE)beep();
|
||
|
||
postnumflag^=itok.flag;
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
|
||
|
||
int calcdwordnumber(unsigned long *retnum,unsigned long number,int operand)
|
||
|
||
{
|
||
|
||
unsigned long value;
|
||
|
||
value=*retnum;
|
||
|
||
switch(operand){
|
||
|
||
case tk_minus: value-=number; break;
|
||
|
||
case tk_plus: value+=number; break;
|
||
|
||
case tk_xor: value^=number; break;
|
||
|
||
case tk_and: value&=number; break;
|
||
|
||
case tk_or: value|=number; break;
|
||
|
||
case tk_mod: value%=number; break;
|
||
|
||
case tk_div: value/=number; break;
|
||
|
||
case tk_mult: value*=number; break;
|
||
|
||
case tk_rr: value>>=number; break;
|
||
|
||
case tk_ll: value<<=number; break;
|
||
|
||
case tk_xorminus: value^=-number; break;
|
||
|
||
case tk_andminus: value&=-number; break;
|
||
|
||
case tk_orminus: value|=-number; break;
|
||
|
||
case tk_modminus: value%=-number; break;
|
||
|
||
case tk_divminus: value/=-number; break;
|
||
|
||
case tk_multminus: value*=-number; break;
|
||
|
||
case tk_rrminus: value>>=-number; break;
|
||
|
||
case tk_llminus: value<<=-number; break;
|
||
|
||
default: return FALSE;
|
||
|
||
}
|
||
|
||
*retnum=value;
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
|
||
|
||
unsigned long doconstdwordmath()
|
||
|
||
{
|
||
|
||
unsigned long value;
|
||
|
||
unsigned int htok;
|
||
|
||
int fundef; //ä« £ ¨á¯®«ì§®¢ ¨ï ¥¨§¢ ¤à¥á
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
numexpected();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
if(itok.rm==tk_float)value=*(float *)&itok.number;
|
||
|
||
else value=itok.number;
|
||
|
||
fundef=itok.rm;
|
||
|
||
postnumflag=itok.flag;
|
||
|
||
// usedirectiv=TRUE;
|
||
|
||
calcnumber=TRUE;
|
||
|
||
while(itok2.type==tp_opperand){
|
||
|
||
if(fundef==tk_undefofs&&tok2!=tk_plus&&tok2!=tk_minus)break;
|
||
|
||
nexttok();
|
||
|
||
htok=tok;
|
||
|
||
if(tok2!=tk_number){
|
||
|
||
if(tok2!=tk_dollar&&tok2!=tk_not){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else nexttok();
|
||
|
||
if(itok.rm==tk_float)itok.number=*(float *)&itok.number;
|
||
|
||
if(itok.rm==tk_double)itok.number=*(double *)&itok.lnumber;
|
||
|
||
if(calcdwordnumber(&value,itok.number,htok)==FALSE)beep();
|
||
|
||
postnumflag^=itok.flag;
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
|
||
|
||
int calclongnumber(long *retnum,long number,int operand)
|
||
|
||
{
|
||
|
||
long value;
|
||
|
||
value=*retnum;
|
||
|
||
switch(operand){
|
||
|
||
case tk_minus: value-=number; break;
|
||
|
||
case tk_plus: value+=number; break;
|
||
|
||
case tk_xor: value^=number; break;
|
||
|
||
case tk_and: value&=number; break;
|
||
|
||
case tk_or: value|=number; break;
|
||
|
||
case tk_mod: value%=number; break;
|
||
|
||
case tk_div: value/=number; break;
|
||
|
||
case tk_mult: value*=number; break;
|
||
|
||
case tk_rr: value>>=number; break;
|
||
|
||
case tk_ll: value<<=number; break;
|
||
|
||
case tk_xorminus: value^=-number; break;
|
||
|
||
case tk_andminus: value&=-number; break;
|
||
|
||
case tk_orminus: value|=-number; break;
|
||
|
||
case tk_modminus: value%=-number; break;
|
||
|
||
case tk_divminus: value/=-number; break;
|
||
|
||
case tk_multminus: value*=-number; break;
|
||
|
||
case tk_rrminus: value>>=-number; break;
|
||
|
||
case tk_llminus: value<<=-number; break;
|
||
|
||
default: return FALSE;
|
||
|
||
}
|
||
|
||
*retnum=value;
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
|
||
|
||
signed long doconstlongmath()
|
||
|
||
//¢ëç¨á«¨âì ¢ëà ¦¥¨¥
|
||
|
||
{
|
||
|
||
long value;
|
||
|
||
unsigned int htok;
|
||
|
||
int fundef; //ä« £ ¨á¯®«ì§®¢ ¨ï ¥¨§¢ ¤à¥á
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
numexpected();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
fundef=itok.rm;
|
||
|
||
if(itok.rm==tk_float)value=*(float *)&itok.number;
|
||
|
||
else value=itok.number;
|
||
|
||
// value=itok.number;
|
||
|
||
postnumflag=itok.flag;
|
||
|
||
// usedirectiv=TRUE;
|
||
|
||
calcnumber=TRUE;
|
||
|
||
while(itok2.type==tp_opperand){ //¯®ª ®¯¥à ¤
|
||
|
||
if(fundef==tk_undefofs&&tok2!=tk_plus&&tok2!=tk_minus)break;
|
||
|
||
nexttok();
|
||
|
||
// printf("tok=%d tok2=%d\n",tok,tok2);
|
||
|
||
htok=tok;
|
||
|
||
if(tok2!=tk_number){
|
||
|
||
if(tok2!=tk_dollar&&tok2!=tk_not){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else nexttok();
|
||
|
||
if(itok.rm==tk_float)itok.number=*(float *)&itok.number;
|
||
|
||
if(itok.rm==tk_double)itok.number=*(double *)&itok.lnumber;
|
||
|
||
if(calclongnumber(&value,itok.number,htok)==FALSE)beep();
|
||
|
||
postnumflag^=itok.flag;
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return(value);
|
||
|
||
}
|
||
|
||
|
||
|
||
int calcfloatnumber(float *retnum,float number,int operand)
|
||
|
||
{
|
||
|
||
float value;
|
||
|
||
value=*retnum;
|
||
|
||
switch(operand){
|
||
|
||
case tk_minus: value-=number; break;
|
||
|
||
case tk_plus: value+=number; break;
|
||
|
||
case tk_div: value/=number; break;
|
||
|
||
case tk_mult: value*=number; break;
|
||
|
||
case tk_divminus: value/=-number; break;
|
||
|
||
case tk_multminus: value*=-number; break;
|
||
|
||
default: return FALSE;
|
||
|
||
}
|
||
|
||
*retnum=value;
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
|
||
|
||
long doconstfloatmath()
|
||
|
||
//¢ëç¨á«¨âì ¢ëà ¦¥¨¥
|
||
|
||
{
|
||
|
||
float value;
|
||
|
||
postnumflag=0;
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
numexpected();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
if(itok.rm==tk_double)*(float *)&itok.number=itok.dnumber;
|
||
|
||
else if(itok.rm!=tk_float){
|
||
|
||
float temp=itok.number;
|
||
|
||
*(float *)&itok.number=temp;
|
||
|
||
}
|
||
|
||
value=itok.fnumber;
|
||
|
||
// usedirectiv=TRUE;
|
||
|
||
calcnumber=TRUE;
|
||
|
||
while(itok2.type==tp_opperand){ //¯®ª ®¯¥à ¤
|
||
|
||
nexttok();
|
||
|
||
if(tok2!=tk_number){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return *(long *) &value;//¥â ¨ª ª¨å ¤¥©á⢨©
|
||
|
||
}
|
||
|
||
if(itok2.rm==tk_double)*(float *)&itok2.number=itok2.dnumber;
|
||
|
||
else if(itok2.rm!=tk_float)*(float *)&itok2.number=itok2.number;
|
||
|
||
itok2.rm=tk_float;
|
||
|
||
if(calcfloatnumber(&value,itok2.fnumber,tok)==FALSE)beep();
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return *(long *) &value;
|
||
|
||
}
|
||
|
||
|
||
|
||
int calcdoublenumber(double *retnum,double number,int operand)
|
||
|
||
{
|
||
|
||
double value;
|
||
|
||
value=*retnum;
|
||
|
||
switch(operand){
|
||
|
||
case tk_minus: value-=number; break;
|
||
|
||
case tk_plus: value+=number; break;
|
||
|
||
case tk_div: value/=number; break;
|
||
|
||
case tk_mult: value*=number; break;
|
||
|
||
case tk_divminus: value/=-number; break;
|
||
|
||
case tk_multminus: value*=-number; break;
|
||
|
||
default: return FALSE;
|
||
|
||
}
|
||
|
||
*retnum=value;
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
|
||
|
||
long long doconstdoublemath()
|
||
|
||
//¢ëç¨á«¨âì ¢ëà ¦¥¨¥
|
||
|
||
{
|
||
|
||
double value;
|
||
|
||
postnumflag=0;
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok!=tk_number){
|
||
|
||
numexpected();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
if(itok.rm==tk_float){
|
||
|
||
itok.dnumber=*(float *)&itok.number;
|
||
|
||
itok.rm=tk_double;
|
||
|
||
}
|
||
|
||
else if(itok.rm!=tk_double){
|
||
|
||
itok.dnumber=itok.lnumber;
|
||
|
||
}
|
||
|
||
value=itok.dnumber;
|
||
|
||
// usedirectiv=TRUE;
|
||
|
||
calcnumber=TRUE;
|
||
|
||
while(itok2.type==tp_opperand){ //¯®ª ®¯¥à ¤
|
||
|
||
nexttok();
|
||
|
||
if(tok2!=tk_number){
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return *(long long *) &value;//¥â ¨ª ª¨å ¤¥©á⢨©
|
||
|
||
}
|
||
|
||
if(itok2.rm==tk_float)itok2.dnumber=*(float *)&itok2.number;
|
||
|
||
else if(itok2.rm!=tk_double)itok2.dnumber=itok2.lnumber;;
|
||
|
||
itok2.rm=tk_double;
|
||
|
||
if(calcdoublenumber(&value,itok2.dnumber,tok)==FALSE)beep();
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
calcnumber=FALSE;
|
||
|
||
return *(long long *) &value;
|
||
|
||
}
|
||
|
||
|
||
|
||
/* ================= simple syntax procedures start =================== */
|
||
|
||
|
||
|
||
void nextseminext()
|
||
|
||
{
|
||
|
||
nexttok();
|
||
|
||
seminext();
|
||
|
||
}
|
||
|
||
|
||
|
||
void seminext()
|
||
|
||
{
|
||
|
||
if(tok!=tk_semicolon)expected(';');
|
||
|
||
else nexttok();
|
||
|
||
}
|
||
|
||
|
||
|
||
void beep() /* beep for any internal errors */
|
||
|
||
{
|
||
|
||
printf("\a");
|
||
|
||
}
|
||
|
||
|
||
|
||
int expecting(int want)
|
||
|
||
/* compares current token with want token. If different, issues error
|
||
|
||
message and returns 1, else advances to next token and returns 0 */
|
||
|
||
{
|
||
|
||
if(want!=tok){
|
||
|
||
SwTok(want);
|
||
|
||
return(1);
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
|
||
|
||
void expectingoperand(int want)
|
||
|
||
/* compares current token with want token. If different, issues error
|
||
|
||
message and returns 1, else advances to next token and returns 0 */
|
||
|
||
{
|
||
|
||
if(want!=tok)SwTok(want);
|
||
|
||
else getoperand();
|
||
|
||
}
|
||
|
||
|
||
|
||
void SwTok(int want)
|
||
|
||
{
|
||
|
||
switch(want){
|
||
|
||
case tk_closebracket: expected(')'); break;
|
||
|
||
case tk_openbracket: expected('('); break;
|
||
|
||
case tk_semicolon: expected(';'); break;
|
||
|
||
case tk_colon: expected(':'); break;
|
||
|
||
case tk_openblock: expected('['); break;
|
||
|
||
case tk_closeblock: expected(']'); break;
|
||
|
||
case tk_openbrace: expected('{'); break;
|
||
|
||
case tk_closebrace: expected('}'); break;
|
||
|
||
case tk_camma: expected(','); break;
|
||
|
||
default: preerror("expecting a different token"); break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
/*-----------------03.07.99 22:48-------------------
|
||
|
||
‚ãâ२¥ ¯à®æ¥¤ãàë
|
||
|
||
--------------------------------------------------*/
|
||
|
||
void outprocedure(unsigned char *array,unsigned int length)
|
||
|
||
{
|
||
|
||
if((outptr+length)>=outptrsize)CheckCodeSize();
|
||
|
||
memcpy(output+outptr,array,length);
|
||
|
||
outptr+=length;
|
||
|
||
if(splitdata==0)outptrdata=outptr;
|
||
|
||
}
|
||
|
||
|
||
|
||
#define MMBANER 11
|
||
|
||
unsigned char aabaner[]={
|
||
|
||
0x53,0x50,0x48,0x49,0x4E,0x58,0x43,0x2d,0x2d,ver1,ver2}; // ¤¯¨áì SPHINXC--ver
|
||
|
||
|
||
|
||
#define MMEXP 18
|
||
|
||
unsigned char aaEXP[]={
|
||
|
||
0xD9,0xE8, // fld1
|
||
|
||
0xD9,0xEA, //fldl2e
|
||
|
||
0xD8,0xCA, //fmul st, st(2)
|
||
|
||
0xDD,0xD2, //fst st(2)
|
||
|
||
0xD9,0xF8, //fprem
|
||
|
||
0xD9,0xF0, //f2xm1
|
||
|
||
0xDE,0xC1, //faddp st(1), st
|
||
|
||
0xD9,0xFD, //fscale
|
||
|
||
0xDD,0xD9 }; //fstp st(1)
|
||
|
||
|
||
|
||
void CallExitProcess()
|
||
|
||
//¢ë§®¢ ¯à®æ¥¤ãàë ExitProcess
|
||
|
||
{
|
||
|
||
tok=tk_id;
|
||
|
||
searchvar("ExitProcess");
|
||
|
||
if(FastCallApi==TRUE){
|
||
|
||
outword(0x15FF);
|
||
|
||
AddApiToPost(itok.number);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
addacall((unsigned int)itok.number,(unsigned char)CALL_32);
|
||
|
||
callloc0(); /* produce CALL [#] */
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
int includeit(int type)
|
||
|
||
{
|
||
|
||
int i=0;
|
||
|
||
itok.post=1;
|
||
|
||
if(strcmp("ABORT",itok.name)==0){
|
||
|
||
RestoreStack();
|
||
|
||
clearregstat();
|
||
|
||
#ifdef OPTVARCONST
|
||
|
||
ClearLVIC();
|
||
|
||
#endif
|
||
|
||
type=0;
|
||
|
||
if(type==1&&dbg&2)AddCodeNullLine("ABORT()");
|
||
|
||
if(comfile==file_w32)outword(0xC031); //xor eax,eax
|
||
|
||
if(atex==TRUE)i=RetAtExit();
|
||
|
||
if(i==0){
|
||
|
||
if(comfile==file_exe)outdword(0x21CD4CB4);
|
||
|
||
else if(comfile==file_w32){
|
||
|
||
if(jumptomain!=CALL_NONE)jumploc(startexit);
|
||
|
||
else{
|
||
|
||
op(0x50);
|
||
|
||
CallExitProcess();
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else outword(0x20CD);
|
||
|
||
}
|
||
|
||
retproc=TRUE;
|
||
|
||
}
|
||
|
||
else if(strcmp("ATEXIT",itok.name)==0){
|
||
|
||
if(type&&AlignProc)AlignCD(CS,alignproc);
|
||
|
||
if(atex==FALSE)preerror("?atexit must be set for ATEXIT");
|
||
|
||
if(type==1&&dbg&2)AddCodeNullLine("ATEXIT()");
|
||
|
||
searchvar("__atexitproc");
|
||
|
||
itok2=itok;
|
||
|
||
searchvar("__numatexit");
|
||
|
||
if(am32){
|
||
|
||
op(0x51); //push ecx
|
||
|
||
outword(0x0D8B); //mov ecx,numatex
|
||
|
||
if(itok.post)setwordpost(&itok);
|
||
|
||
outdword(itok.number);
|
||
|
||
outdword(0x7310F983);
|
||
|
||
outdword(0x8D04890F); //cmp ecx,10 jnb bp mov [numatexit+4+ECX*4]=EAX
|
||
|
||
if(itok2.post)setwordpost(&itok2);
|
||
|
||
outdword(itok2.number);
|
||
|
||
outword(0x05FF); //inc numatexit
|
||
|
||
if(itok.post)setwordpost(&itok);
|
||
|
||
outdword(itok.number);
|
||
|
||
outword(0xC031); //xor eax,eax
|
||
|
||
//bp:
|
||
|
||
op(0x59); //pop ECX
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
outword(0x368B);
|
||
|
||
if(itok.post)setwordpost(&itok);
|
||
|
||
outword(itok.number);
|
||
|
||
op(0x83);
|
||
|
||
outdword(0x0C7310FE); //cmp si,10 jnb
|
||
|
||
outdword(0x8489F601); //si+=si
|
||
|
||
if(itok2.post)setwordpost(&itok2);
|
||
|
||
outword(itok2.number);
|
||
|
||
outword(0x06FF);
|
||
|
||
if(itok.post)setwordpost(&itok);
|
||
|
||
outword(itok.number);
|
||
|
||
outword(0xC031);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(strcmp("EXIT",itok.name)==0){
|
||
|
||
RestoreStack();
|
||
|
||
clearregstat();
|
||
|
||
#ifdef OPTVARCONST
|
||
|
||
ClearLVIC();
|
||
|
||
#endif
|
||
|
||
type=0;
|
||
|
||
if(dbg&2)AddCodeNullLine("EXIT()");
|
||
|
||
if(atex==TRUE)i=RetAtExit();
|
||
|
||
if(i==0){
|
||
|
||
if(comfile==file_w32){
|
||
|
||
if(jumptomain!=CALL_NONE)jumploc(startexit);
|
||
|
||
else{
|
||
|
||
op(0x50);
|
||
|
||
CallExitProcess();
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(comfile==file_meos){
|
||
|
||
outdword(0xCDFFC883);
|
||
|
||
op(0x40);
|
||
|
||
}
|
||
|
||
else outdword(0x21CD4CB4);
|
||
|
||
}
|
||
|
||
retproc=TRUE;
|
||
|
||
}
|
||
|
||
else return ConvRetCode(FindProcLib(type));
|
||
|
||
if(type==1)ret(); /* if it is a REG Proc not a MACRO */
|
||
|
||
return (am32==FALSE?tk_word:tk_dword);
|
||
|
||
}
|
||
|
||
|
||
|
||
int ConvRetCode(int i)
|
||
|
||
{
|
||
|
||
switch(i){
|
||
|
||
case 0: return tk_void;
|
||
|
||
case 1: return tk_char;
|
||
|
||
case 2: return tk_byte;
|
||
|
||
case 3: return tk_int;
|
||
|
||
case 4: return tk_word;
|
||
|
||
case 5: return tk_long;
|
||
|
||
case 6: return tk_dword;
|
||
|
||
case 7: return tk_float;
|
||
|
||
default: return -1;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
int RetAtExit()
|
||
|
||
{
|
||
|
||
if(comfile==file_exe||fobj!=FALSE||comfile==file_w32||comfile==file_meos){
|
||
|
||
jumploc(startexit);
|
||
|
||
return 1;
|
||
|
||
}
|
||
|
||
else callloc(startexit);
|
||
|
||
return 0;
|
||
|
||
}
|
||
|
||
|
||
|
||
int includeproc()
|
||
|
||
{
|
||
|
||
return ConvRetCode(FindProcLib(1));
|
||
|
||
}
|
||
|
||
|
||
|
||
/*-----------------18.01.99 22:42-------------------
|
||
|
||
Œ ªà®¯à®æ¥¤ãàë
|
||
|
||
--------------------------------------------------*/
|
||
|
||
int CheckMacros()
|
||
|
||
{
|
||
|
||
int m,app=0,s32=0;
|
||
|
||
unsigned int num;
|
||
|
||
char *ofsstr=NULL;
|
||
|
||
int razr;
|
||
|
||
for(m=0;m<m_end;m++)if(strcmp(macroname[m],(char *)string)==0)break;
|
||
|
||
if(m==m_end)return tokens;
|
||
|
||
nexttok();
|
||
|
||
ofsstr=GetLecsem(tk_closebracket,tk_camma);
|
||
|
||
nexttok();
|
||
|
||
if(m<m_sqrt){
|
||
|
||
switch(m){
|
||
|
||
case m_id:
|
||
|
||
s32++;
|
||
|
||
case m_iw:
|
||
|
||
app++;
|
||
|
||
case m_ib:
|
||
|
||
case m_ibt:
|
||
|
||
if(tok!=tk_closebracket){
|
||
|
||
if(tok==tk_number){
|
||
|
||
num=doconstlongmath();
|
||
|
||
if(num<256){
|
||
|
||
if(s32!=0)op66(r32);
|
||
|
||
else if(app==1)op66(r16);
|
||
|
||
op(0xe4+app);
|
||
|
||
op(num);
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(optimizespeed){
|
||
|
||
op(0xB8+DX); // MOV reg,#
|
||
|
||
if(am32)outdword(num);
|
||
|
||
else outword(num);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
op66(r16);
|
||
|
||
op(0xB8+DX); // MOV reg,#
|
||
|
||
outword(num);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else getintoreg(EDX,r16,0,&ofsstr);
|
||
|
||
if(ofsstr){
|
||
|
||
IDZToReg(ofsstr,DX,r16);
|
||
|
||
free(ofsstr);
|
||
|
||
ofsstr=NULL;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(s32!=0)op66(r32);
|
||
|
||
else if(app==1)op66(r16);
|
||
|
||
op(0xEC+app);
|
||
|
||
ClearReg(AL);
|
||
|
||
break;
|
||
|
||
case m_od:
|
||
|
||
s32++;
|
||
|
||
case m_ow:
|
||
|
||
app++;
|
||
|
||
case m_ob:
|
||
|
||
case m_obt:
|
||
|
||
if(tok!=tk_closebracket){
|
||
|
||
if(s32!=0){
|
||
|
||
do_e_axmath(0,r32,&ofsstr);
|
||
|
||
razr=r32;
|
||
|
||
}
|
||
|
||
else if(app!=0){
|
||
|
||
do_e_axmath(0,r16,&ofsstr);
|
||
|
||
razr=r16;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
doalmath(0,&ofsstr);
|
||
|
||
razr=r8;
|
||
|
||
}
|
||
|
||
if(ofsstr){
|
||
|
||
IDZToReg(ofsstr,AX,razr);
|
||
|
||
free(ofsstr);
|
||
|
||
ofsstr=NULL;
|
||
|
||
}
|
||
|
||
if(tok==tk_camma){
|
||
|
||
ofsstr=GetLecsem(tk_camma,tk_closebracket);
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
num=doconstlongmath();
|
||
|
||
if(num<256){
|
||
|
||
if(s32!=0)op66(r32);
|
||
|
||
else if(app==1)op66(r16);
|
||
|
||
op(0xe6+app);
|
||
|
||
op(num);
|
||
|
||
goto enout;
|
||
|
||
}
|
||
|
||
if(optimizespeed){
|
||
|
||
op(0xB8+DX); // MOV reg,#
|
||
|
||
if(am32)outdword(num);
|
||
|
||
else outword(num);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
op66(r16);
|
||
|
||
op(0xB8+DX); // MOV reg,#
|
||
|
||
outword(num);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else getintoreg(EDX,r16,0,&ofsstr);
|
||
|
||
if(ofsstr){
|
||
|
||
IDZToReg(ofsstr,DX,r16);
|
||
|
||
free(ofsstr);
|
||
|
||
ofsstr=NULL;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(s32!=0)op66(r32);
|
||
|
||
else if(app==1)op66(r16);
|
||
|
||
op(0xEE + app);
|
||
|
||
enout:
|
||
|
||
if(ofsstr)free(ofsstr);
|
||
|
||
return tk_void;
|
||
|
||
}
|
||
|
||
if(ofsstr)free(ofsstr);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
if(ofsstr)free(ofsstr);
|
||
|
||
if(tok==tk_closebracket){
|
||
|
||
missingpar(macroname[m]);
|
||
|
||
return(tokens);
|
||
|
||
}
|
||
|
||
doeaxfloatmath(tk_fpust);
|
||
|
||
switch(m){
|
||
|
||
case m_sqrt:
|
||
|
||
outword(0xFAD9); //FSQRT
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_cos:
|
||
|
||
outword(0xFFD9);
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_sin:
|
||
|
||
outword(0xFED9);
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_atan2:
|
||
|
||
if(expecting(tk_camma)){
|
||
|
||
missingpar(macroname[m]);
|
||
|
||
return tokens;
|
||
|
||
}
|
||
|
||
doeaxfloatmath(tk_fpust);
|
||
|
||
outword(0xF3D9); //FPATAN
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_tan:
|
||
|
||
outdword(0xD8DDF2D9); //FPTAN fstp st
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_log:
|
||
|
||
outword(0xEDD9); //fldln2
|
||
|
||
outdword(0xF1D9C9D9); //fxch st1 fyl2x
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_log10:
|
||
|
||
outword(0xECD9); //fldlg2
|
||
|
||
outdword(0xF1D9C9D9); //fxch st1 fyl2x
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_exp:
|
||
|
||
outprocedure(aaEXP,MMEXP);
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_atan:
|
||
|
||
outdword(0xF3D9E8D9); //FLD1 FPATAN
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
case m_fabs:
|
||
|
||
outword(0xE1D9); //FABS
|
||
|
||
return tk_fpust; //१ã«ìâ â ¢ á⥪¥ fpu
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(s32!=0)return tk_dword;
|
||
|
||
if(app!=0)return tk_word;
|
||
|
||
return tk_byte;
|
||
|
||
}
|
||
|
||
|
||
|
||
/*-----------------06.02.99 16:09-------------------
|
||
|
||
<20> ¡®â á ¢¥è¥© ¡¨¡«¨®â¥ª®©
|
||
|
||
--------------------------------------------------*/
|
||
|
||
typedef struct _IPROC_
|
||
|
||
{
|
||
|
||
unsigned short size;
|
||
|
||
unsigned short ofs;
|
||
|
||
unsigned char cpu;
|
||
|
||
}IPROC;
|
||
|
||
|
||
|
||
struct _HLIB_
|
||
|
||
{
|
||
|
||
char name[33];
|
||
|
||
unsigned char rettype;
|
||
|
||
unsigned short size;
|
||
|
||
unsigned char dosr[2];
|
||
|
||
IPROC info[4];
|
||
|
||
}hlib;
|
||
|
||
|
||
|
||
int FindProcLib(int type)
|
||
|
||
{
|
||
|
||
static int lhandl=-1;
|
||
|
||
long ofs=0;
|
||
|
||
char m1[80];
|
||
|
||
int index;
|
||
|
||
if(am32)return -1;
|
||
|
||
if(lhandl==-1){
|
||
|
||
sprintf(m1,"%s%s",findpath[0],"mainlib.ldp");
|
||
|
||
if((lhandl=open(m1,O_RDONLY|O_BINARY))==-1)return -1;
|
||
|
||
}
|
||
|
||
lseek(lhandl,0,SEEK_SET);
|
||
|
||
if(chip<3){
|
||
|
||
if(optimizespeed==0)index=0;
|
||
|
||
else index=1;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
if(optimizespeed==0)index=2;
|
||
|
||
else index=3;
|
||
|
||
}
|
||
|
||
for(;;){
|
||
|
||
if(read(lhandl,&hlib,sizeof(_HLIB_))!=sizeof(_HLIB_))break;
|
||
|
||
if(strcmp((char *)itok.name,hlib.name)==0){
|
||
|
||
int size;
|
||
|
||
if((outptr+hlib.size)>=outptrsize)CheckCodeSize();
|
||
|
||
lseek(lhandl,ofs+sizeof(_HLIB_)+hlib.info[index].ofs,SEEK_SET);
|
||
|
||
size=hlib.info[index].size;
|
||
|
||
if(type!=1)size--;
|
||
|
||
else if(dbg&2){
|
||
|
||
sprintf(m1,"%s()",itok.name);
|
||
|
||
AddCodeNullLine(m1);
|
||
|
||
}
|
||
|
||
if(read(lhandl,output+outptr,size)!=size)break;
|
||
|
||
outptr+=size;
|
||
|
||
if(splitdata==0)outptrdata=outptr;
|
||
|
||
if(cpu<hlib.info[index].cpu)cpu=hlib.info[index].cpu;
|
||
|
||
if(hlib.dosr[1]!=0){
|
||
|
||
if(hlib.dosr[1]>dos1){
|
||
|
||
dos1=hlib.dosr[1];
|
||
|
||
dos2=hlib.dosr[0];
|
||
|
||
}
|
||
|
||
else if(hlib.dosr[1]==dos1&&hlib.dosr[0]>dos2)dos2=hlib.dosr[0];
|
||
|
||
}
|
||
|
||
clearregstat();
|
||
|
||
#ifdef OPTVARCONST
|
||
|
||
ClearLVIC();
|
||
|
||
#endif
|
||
|
||
return hlib.rettype;
|
||
|
||
}
|
||
|
||
ofs+=sizeof(_HLIB_)+hlib.size;
|
||
|
||
lseek(lhandl,ofs,SEEK_SET);
|
||
|
||
}
|
||
|
||
return -1;
|
||
|
||
}
|
||
|
||
|
||
|
||
void addconsttotree(char *keystring,long long constvalue,int type)
|
||
|
||
//¢áâ ¢¨âì ª®áâ âã ¢ ¤¥à¥¢®
|
||
|
||
{
|
||
|
||
struct idrec *ptr,*newptr;
|
||
|
||
int cmpresult;
|
||
|
||
newptr=(struct idrec *)MALLOC(sizeof(struct idrec));//®¢ë© ¡«®ª ª®áâ âë
|
||
|
||
ptr=definestart;
|
||
|
||
if(ptr==NULL)definestart=newptr;
|
||
|
||
else{
|
||
|
||
while(((cmpresult=strcmp(ptr->recid,keystring))<0&&ptr->left!=NULL)||(cmpresult>0&&ptr->right!=NULL)){
|
||
|
||
if(cmpresult<0)ptr=ptr->left;
|
||
|
||
else if(cmpresult>0)ptr=ptr->right;
|
||
|
||
}
|
||
|
||
if(cmpresult<0)ptr->left=newptr;
|
||
|
||
else if(cmpresult>0)ptr->right=newptr;
|
||
|
||
else{
|
||
|
||
free(newptr);
|
||
|
||
if(ptr->newid){
|
||
|
||
free(ptr->newid);
|
||
|
||
ptr->newid=NULL;
|
||
|
||
}
|
||
|
||
if(ptr->sbuf){
|
||
|
||
free(ptr->sbuf);
|
||
|
||
ptr->sbuf=NULL;
|
||
|
||
}
|
||
|
||
ptr->recnumber=constvalue;
|
||
|
||
ptr->recrm=type;
|
||
|
||
ptr->rectok=tk_number;
|
||
|
||
ptr->recsegm=DS;
|
||
|
||
ptr->recpost=0;
|
||
|
||
ptr->flag=0;
|
||
|
||
ptr->recsize=0;
|
||
|
||
return;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
strcpy(newptr->recid,keystring);
|
||
|
||
newptr->newid=NULL;
|
||
|
||
newptr->rectok=tk_number;
|
||
|
||
newptr->reclnumber=constvalue;
|
||
|
||
newptr->recsegm=DS;
|
||
|
||
newptr->recrm=type;
|
||
|
||
newptr->recpost=0;
|
||
|
||
newptr->flag=0;
|
||
|
||
newptr->recsize=0;
|
||
|
||
newptr->left=NULL;
|
||
|
||
newptr->right=NULL;
|
||
|
||
// newptr->count=1;
|
||
|
||
}
|
||
|
||
|
||
|
||
void addtodefine(char *keystring)//¤®¡ ¢¨âì áâப㠢 ¤¥à¥¢® define
|
||
|
||
{
|
||
|
||
struct idrec *ptr,*newptr,*left=NULL,*right=NULL;
|
||
|
||
int cmpresult;
|
||
|
||
//¢ë¤¥«¨âì ¯ ¬ïâì ¯®¤ ®¢ãî ¯à®æ
|
||
|
||
newptr=(struct idrec *)MALLOC(sizeof(struct idrec));
|
||
|
||
ptr=definestart; // ç «® ¤¥à¥¢
|
||
|
||
if(ptr==NULL)definestart=newptr;
|
||
|
||
else{ //¯®¨áª áâப¨ ¢ ¤¥à¥¢¥
|
||
|
||
while(((cmpresult=strcmp(ptr->recid,keystring))<0&&ptr->left!=NULL)||
|
||
|
||
(cmpresult>0&&ptr->right!=NULL)){
|
||
|
||
if(cmpresult<0)ptr=ptr->left;
|
||
|
||
else if(cmpresult>0)ptr=ptr->right;
|
||
|
||
}
|
||
|
||
if(cmpresult<0)ptr->left=newptr; //áâப ¬¥ìè¥
|
||
|
||
else if(cmpresult>0)ptr->right=newptr;
|
||
|
||
else{
|
||
|
||
free(newptr);
|
||
|
||
newptr=ptr;
|
||
|
||
left=ptr->left;
|
||
|
||
right=ptr->right;
|
||
|
||
if(newptr->newid)free(newptr->newid);
|
||
|
||
if(newptr->sbuf)free(newptr->sbuf);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
strcpy(newptr->recid,keystring);//᪮¯¨à §¢ ¨¥
|
||
|
||
newptr->newid=NULL;
|
||
|
||
if(tok==tk_string){
|
||
|
||
newptr->newid=(char *)MALLOC(itok.number);
|
||
|
||
memcpy(newptr->newid,string,itok.number);
|
||
|
||
if(itok.rm==1)newptr->sbuf=BackString((char *)string3);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
if(string[0]!=0)newptr->newid=BackString((char *)string);
|
||
|
||
newptr->sbuf=NULL;
|
||
|
||
}
|
||
|
||
newptr->rectok=tok;
|
||
|
||
newptr->recnumber=itok.number;
|
||
|
||
newptr->recsegm=itok.segm;
|
||
|
||
newptr->recrm=itok.rm;
|
||
|
||
newptr->recpost=itok.post;
|
||
|
||
newptr->flag=itok.flag;
|
||
|
||
newptr->recsize=itok.size;
|
||
|
||
newptr->left=left;
|
||
|
||
newptr->right=right;
|
||
|
||
newptr->recsib=itok.sib;
|
||
|
||
newptr->line=linenumber;
|
||
|
||
newptr->file=currentfileinfo;
|
||
|
||
newptr->count=0;
|
||
|
||
newptr->type=itok.type;
|
||
|
||
newptr->npointr=itok.npointr;
|
||
|
||
itok.rec=newptr;
|
||
|
||
}
|
||
|
||
|
||
|
||
unsigned char get_directive_value() //return the 0 or 1 value for directive
|
||
|
||
{
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
if(doconstlongmath())return(1);//¥á«¨ § 票¥ ¥ ã«¥¢®¥ ¢¥àãâì 1
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
numexpected();
|
||
|
||
nexttok();
|
||
|
||
return(0);
|
||
|
||
}
|
||
|
||
|
||
|
||
int GetStringAsIt()
|
||
|
||
{
|
||
|
||
int tstr;
|
||
|
||
if(tok2==tk_string){
|
||
|
||
nexttok();
|
||
|
||
tstr=1;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
inptr=inptr2;
|
||
|
||
cha=cha2;
|
||
|
||
whitespace();
|
||
|
||
if(cha=='<'){
|
||
|
||
tstr=0;
|
||
|
||
for(int i=0;i<STRLEN;i++){
|
||
|
||
nextchar();
|
||
|
||
if(cha=='>'){
|
||
|
||
string3[i]=0;
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(cha==13||cha==26)goto errstr;
|
||
|
||
string3[i]=cha;
|
||
|
||
}
|
||
|
||
nextchar();
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
errstr:
|
||
|
||
stringexpected();
|
||
|
||
tstr=-1;
|
||
|
||
}
|
||
|
||
inptr2=inptr;
|
||
|
||
linenum2=linenumber;
|
||
|
||
cha2=cha;
|
||
|
||
}
|
||
|
||
return tstr;
|
||
|
||
}
|
||
|
||
|
||
|
||
void InitDefineConst()
|
||
|
||
{
|
||
|
||
addconsttotree("TRUE",TRUE);
|
||
|
||
addconsttotree("FALSE",FALSE);
|
||
|
||
addconsttotree("__SECOND__",timeptr.tm_sec);
|
||
|
||
addconsttotree("__MINUTE__",timeptr.tm_min);
|
||
|
||
addconsttotree("__HOUR__",timeptr.tm_hour);
|
||
|
||
addconsttotree("__DAY__",timeptr.tm_mday);
|
||
|
||
addconsttotree("__MONTH__",timeptr.tm_mon);
|
||
|
||
addconsttotree("__YEAR__",timeptr.tm_year+1900);
|
||
|
||
addconsttotree("__WEEKDAY__",timeptr.tm_wday);
|
||
|
||
addconsttotree("__VER1__",ver1);
|
||
|
||
addconsttotree("__VER2__",ver2);
|
||
|
||
tok=tk_string;
|
||
|
||
itok.flag=zero_term;
|
||
|
||
itok.rm=0;
|
||
|
||
strcpy((char *)string,(char *)compilerstr);
|
||
|
||
itok.number=strlen((char *)string);
|
||
|
||
addtodefine("__COMPILER__");
|
||
|
||
strcpy((char *)string,asctime(&timeptr));
|
||
|
||
itok.number=strlen((char *)string)-1;
|
||
|
||
string[itok.number]=0;
|
||
|
||
addtodefine("__DATESTR__");
|
||
|
||
DateToStr((char *)string);
|
||
|
||
itok.number=11;
|
||
|
||
addtodefine("__DATE__");
|
||
|
||
sprintf((char *)string,"%02d:%02d:%02d",timeptr.tm_hour,timeptr.tm_min,timeptr.tm_sec);
|
||
|
||
itok.number=8;
|
||
|
||
addtodefine("__TIME__");
|
||
|
||
strcpy((char *)string,"struct");
|
||
|
||
tok=tk_struct;
|
||
|
||
itok.number=6;
|
||
|
||
addtodefine("class");
|
||
|
||
}
|
||
|
||
|
||
|
||
char *AddTextToBuf(char *buf,int *size,int start,int add)
|
||
|
||
{
|
||
|
||
int addsize;
|
||
|
||
addsize=(add==0?itok.number-1:inptr)-start;
|
||
|
||
*size+=addsize;
|
||
|
||
if(!buf){
|
||
|
||
buf=(char *)MALLOC(*size+1+add);
|
||
|
||
buf[0]=0;
|
||
|
||
}
|
||
|
||
else buf=(char *)REALLOC(buf,*size+1+add);
|
||
|
||
// printf("size=%d %s\n",*size+1+add,(char *)(input+start));
|
||
|
||
strncat(buf,(char *)(input+start),addsize);
|
||
|
||
buf[*size]=0;
|
||
|
||
return buf;
|
||
|
||
}
|
||
|
||
|
||
|
||
void AddMacro(char *name,int numpar,char *paramstr)
|
||
|
||
{
|
||
|
||
int start,size;
|
||
|
||
char *bstring=NULL;
|
||
|
||
idrec *ptr;
|
||
|
||
start=inptr-1;
|
||
|
||
size=0;
|
||
|
||
do{
|
||
|
||
FastTok(2);
|
||
|
||
if(tok==tk_comment1){
|
||
|
||
inptr=itok.number;
|
||
|
||
cha=input[itok.number-1];
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(tok==tk_comment2){
|
||
|
||
bstring=AddTextToBuf(bstring,&size,start,0);
|
||
|
||
start=inptr-1;
|
||
|
||
}
|
||
|
||
}while(tok!=tk_endline&&tok!=tk_eof);
|
||
|
||
bstring=AddTextToBuf(bstring,&size,start,1);
|
||
|
||
strbtrim(bstring);
|
||
|
||
size=strlen(bstring);
|
||
|
||
bstring[size]=0x20;
|
||
|
||
bstring[size+1]=0;
|
||
|
||
inptr2=inptr;
|
||
|
||
cha2=cha;
|
||
|
||
linenum2=linenumber;
|
||
|
||
tok=tk_macro;
|
||
|
||
itok.size=numpar;
|
||
|
||
string[0]=0;
|
||
|
||
/* int i;
|
||
|
||
for(i=0,size=0;i<numpar;i++){
|
||
|
||
puts(paramstr+size);
|
||
|
||
size+=strlen(paramstr+size)+1;
|
||
|
||
}*/
|
||
|
||
|
||
|
||
// printf("tok=%d %s %s\n",tok,name,bstring);
|
||
|
||
addtodefine(name);
|
||
|
||
ptr=itok.rec;
|
||
|
||
ptr->newid=paramstr;
|
||
|
||
ptr->sbuf=bstring;
|
||
|
||
ptr->line=linenumber-1;
|
||
|
||
}
|
||
|
||
|
||
|
||
void GetMacro(char *name)
|
||
|
||
{
|
||
|
||
int size,nsize,numpar=0;
|
||
|
||
char *paramstr;
|
||
|
||
inptr=inptr2;
|
||
|
||
cha=cha2;
|
||
|
||
FastTok(0);
|
||
|
||
FastTok(1);
|
||
|
||
size=0;
|
||
|
||
while(tok!=tk_closebracket&&tok!=tk_eof){
|
||
|
||
if(tok!=tk_id)varexpected(numpar+1);
|
||
|
||
nsize=strlen(itok.name)+1;
|
||
|
||
if(size==0)paramstr=(char *)MALLOC(nsize);
|
||
|
||
else paramstr=(char *)REALLOC(paramstr,size+nsize);
|
||
|
||
strcpy(paramstr+size,itok.name);
|
||
|
||
size+=nsize;
|
||
|
||
numpar++;
|
||
|
||
FastTok(0);
|
||
|
||
if(tok!=tk_closebracket){
|
||
|
||
if(tok!=tk_camma)expected(',');
|
||
|
||
FastTok(1);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(tok==tk_eof)unexpectedeof();
|
||
|
||
AddMacro(name,numpar,paramstr);
|
||
|
||
}
|
||
|
||
|
||
|
||
int pushpop(int i)
|
||
|
||
{
|
||
|
||
STACKALIGN *newpar;
|
||
|
||
switch(i){
|
||
|
||
case 1:
|
||
|
||
newpar=(STACKALIGN *)MALLOC(sizeof(STACKALIGN));
|
||
|
||
newpar->prev=stackalign;
|
||
|
||
newpar->size=strpackcur;
|
||
|
||
newpar->id[0]=0;
|
||
|
||
stackalign=newpar;
|
||
|
||
return TRUE;
|
||
|
||
case 2:
|
||
|
||
newpar=stackalign->prev;
|
||
|
||
free(stackalign);
|
||
|
||
stackalign=newpar;
|
||
|
||
|
||
|
||
strpackcur=(stackalign!=NULL?stackalign->size:strpackdef);
|
||
|
||
return TRUE;
|
||
|
||
}
|
||
|
||
return FALSE;
|
||
|
||
}
|
||
|
||
|
||
|
||
void doifdef(int intok)
|
||
|
||
{
|
||
|
||
int defcond;
|
||
|
||
int curcond;
|
||
|
||
int bracket;
|
||
|
||
int notflag;
|
||
|
||
int next;
|
||
|
||
int locrez,endrez,lastoper;
|
||
|
||
int stopscan;
|
||
|
||
unsigned int i;
|
||
|
||
int oscanlexmode;
|
||
|
||
dirmode=dm_if;
|
||
|
||
/* string3[0]=cha2;
|
||
|
||
int j=1;
|
||
|
||
for(i=inptr2;input[i]>13;i++,j++)string3[j]=input[i];
|
||
|
||
string3[j]=0;
|
||
|
||
printf("%s (%u) %s %s",(startfileinfo+currentfileinfo)->filename,linenumber,itok.name,string3);
|
||
|
||
*/
|
||
|
||
defcond=intok;
|
||
|
||
if(intok==d_if||intok==d_elif)defcond=d_ifdef;
|
||
|
||
curcond=defcond;
|
||
|
||
oscanlexmode=scanlexmode;
|
||
|
||
bracket=0;
|
||
|
||
lastoper=tk_oror;
|
||
|
||
endrez=0;
|
||
|
||
stopscan=FALSE;
|
||
|
||
do{
|
||
|
||
scanlexmode=DEFLEX;
|
||
|
||
nexttok();
|
||
|
||
notflag=FALSE;
|
||
|
||
next=TRUE;
|
||
|
||
while(tok==tk_openbracket){
|
||
|
||
nexttok();
|
||
|
||
bracket++;
|
||
|
||
}
|
||
|
||
if(tok==tk_not){
|
||
|
||
notflag=TRUE;
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
if(tok==tk_id&&strcmp("defined",itok.name)==0){
|
||
|
||
nexttok();
|
||
|
||
curcond=(notflag==FALSE?d_ifdef:d_ifndef);
|
||
|
||
}
|
||
|
||
while(tok==tk_openbracket){
|
||
|
||
nexttok();
|
||
|
||
bracket++;
|
||
|
||
}
|
||
|
||
// printf("tok=%d type2=%d\n",tok,itok2.type);
|
||
|
||
if(tok==tk_number){
|
||
|
||
locrez=1;
|
||
|
||
if(itok2.type==tp_opperand){
|
||
|
||
i=doconstdwordmath();
|
||
|
||
next=0;
|
||
|
||
if(itok.type==tp_compare)locrez=CompConst(i);
|
||
|
||
}
|
||
|
||
else if(itok2.type==tp_compare){
|
||
|
||
i=itok.number;
|
||
|
||
nexttok();
|
||
|
||
locrez=CompConst(i);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if((locrez=ifdefconst())==2){
|
||
|
||
if(tok==tk_id||tok==tk_ID){
|
||
|
||
if(FindTeg(TRUE))locrez=1;
|
||
|
||
else locrez=0;
|
||
|
||
}
|
||
|
||
else locrez=1;
|
||
|
||
}
|
||
|
||
if(curcond==d_ifndef)locrez^=1;
|
||
|
||
if(stopscan==FALSE){
|
||
|
||
if(lastoper==tk_oror)endrez|=locrez;
|
||
|
||
else{
|
||
|
||
endrez&=locrez;
|
||
|
||
if(endrez==FALSE)stopscan=TRUE;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
// printf("lastoper=%d endrez=%d locrez=%d\n",lastoper,endrez,locrez);
|
||
|
||
if(next)nexttok();
|
||
|
||
while(tok==tk_closebracket){
|
||
|
||
nexttok();
|
||
|
||
bracket--;
|
||
|
||
}
|
||
|
||
if(tok==tk_endline||tok2==tk_endline){
|
||
|
||
scanlexmode=oscanlexmode;
|
||
|
||
// retoldscanmode(oscanlexmode);
|
||
|
||
dirmode=dm_other;
|
||
|
||
nexttok();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(tok==tk_oror||tok==tk_andand)lastoper=tok;
|
||
|
||
else{
|
||
|
||
preerror("bad token in 'ifdef/ifndef/if'");
|
||
|
||
// printf("tok=%d\n",tok);
|
||
|
||
}
|
||
|
||
}while(tok!=tk_eof&&tok!=tk_endline);
|
||
|
||
dirmode=dm_other;
|
||
|
||
scanlexmode=oscanlexmode;
|
||
|
||
// retoldscanmode(oscanlexmode);
|
||
|
||
if(bracket>0)preerror("missing ')'");
|
||
|
||
else if(bracket<0)preerror("extra ')'");
|
||
|
||
gotoendif=1^endrez;
|
||
|
||
if(intok!=d_elif){
|
||
|
||
endifcount++;
|
||
|
||
CheckNumIF();
|
||
|
||
useelse[endifcount]=1;
|
||
|
||
}
|
||
|
||
// printf(" %s endifcount=%d\n",endrez==0?"FALSE":"TRUE",endifcount);
|
||
|
||
}
|
||
|
||
|
||
|
||
void InitIdxRegs()
|
||
|
||
{
|
||
|
||
unsigned char lreg[8];
|
||
|
||
int i,j;
|
||
|
||
for(i=0;i<8;i++)lreg[i]=0;
|
||
|
||
nexttok();
|
||
|
||
// printf("tok=%d %s\n",tok,itok.name);
|
||
|
||
for(i=0;tok==tk_reg32||tok==tk_reg||tok==tk_beg;i++){
|
||
|
||
if(i<4){
|
||
|
||
if(tok==tk_beg&&itok.number>3)itok.number-=4;
|
||
|
||
idxregs[i]=itok.number;
|
||
|
||
if(lreg[itok.number])preerror("expected unique register for \"pragma indexregs\"");
|
||
|
||
lreg[itok.number]=1;
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_camma)nexttok();
|
||
|
||
}
|
||
|
||
lreg[ESP]=lreg[EBP]=1;
|
||
|
||
for(;i<4;i++){
|
||
|
||
if(lreg[idxregs[i]]==0)lreg[idxregs[i]]=1;
|
||
|
||
else{
|
||
|
||
for(j=7;j>=0;j--){
|
||
|
||
if(lreg[j]==0){
|
||
|
||
lreg[j]=1;
|
||
|
||
idxregs[i]=j;
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
void directive()
|
||
|
||
{
|
||
|
||
unsigned char next=1;
|
||
|
||
char holdid[IDLENGTH];
|
||
|
||
long longhold,longhold2;
|
||
|
||
long long llhold;
|
||
|
||
unsigned int i;
|
||
|
||
int oscanlexmode;
|
||
|
||
holdid[0]=DS;
|
||
|
||
usedirectiv=TRUE;
|
||
|
||
dirmode=dm_other;
|
||
|
||
switch(itok.number){
|
||
|
||
case d_alignc:
|
||
|
||
holdid[0]=CS;
|
||
|
||
case d_align: //¨á¯®«ì§®¢ âì ¡ ©â ¢áâ ¢ª¨ ¥á«¨ ¥ç¥âë© ¤à¥á
|
||
|
||
if(notdoneprestuff==TRUE)doprestuff(); // ç «ìë© ª®¤
|
||
|
||
i=2;
|
||
|
||
nexttok();
|
||
|
||
next=0;
|
||
|
||
if(tok==tk_number){
|
||
|
||
i=doconstlongmath();
|
||
|
||
if(i<2)i=2;
|
||
|
||
}
|
||
|
||
i=AlignCD(holdid[0],i);
|
||
|
||
if(holdid[0]==DS)alignersize+=i;
|
||
|
||
break;
|
||
|
||
case d_aligner://§ 票¥ ¡ ©â ¢áâ ¢ª¨
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
aligner=(unsigned char)doconstlongmath();//¢ëç¨á«¨âì § 票¥
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_alignw://¢ëà ¢¨¢ ¨¥ ¤à¥á®¢
|
||
|
||
alignword=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
// case d_beep: beep(); break;
|
||
|
||
case d_code: optimizespeed=0; break;
|
||
|
||
case d_ctrl:
|
||
|
||
killctrlc=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_define:
|
||
|
||
dirmode=dm_def0;
|
||
|
||
oscanlexmode=scanlexmode;
|
||
|
||
scanlexmode=DEFLEX2;
|
||
|
||
nexttok();
|
||
|
||
scanlexmode=DEFLEX;
|
||
|
||
dirmode=dm_def;
|
||
|
||
strcpy(holdid,itok.name);
|
||
|
||
// printf("1 line=%d\n",linenumber);
|
||
|
||
// printf("tok=%d %s\n",tok,itok.name);
|
||
|
||
if(tok==tk_id||tok==tk_ID){
|
||
|
||
if(cha2=='('){
|
||
|
||
GetMacro(holdid);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
longhold=inptr2;
|
||
|
||
longhold2=cha2;
|
||
|
||
nexttok();
|
||
|
||
// printf("2 line=%d\n",linenumber);
|
||
|
||
i=tk_dword;
|
||
|
||
if((tok==tk_float||tok==tk_double||tok==tk_qword)&&(tok2==tk_minus||tok2==tk_number)){
|
||
|
||
i=tok;
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
// printf("tok=%d tok2=%d %s %s\n",tok,tok2,itok.name,string);
|
||
|
||
if(tok!=tk_endline&&tok!=tk_minus&&tok!=tk_number&&tok2!=tk_endline&&tok2!=tk_semicolon){
|
||
|
||
inptr=longhold;
|
||
|
||
cha=longhold2;
|
||
|
||
AddMacro(holdid,0,NULL);
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
switch(tok){
|
||
|
||
case tk_structvar:
|
||
|
||
struct idrec *ptrs,*ptrsnew;
|
||
|
||
ptrs=itok.rec;
|
||
|
||
addtodefine(holdid);
|
||
|
||
ptrsnew=itok.rec;
|
||
|
||
if(ptrsnew->newid)free(ptrsnew->newid);
|
||
|
||
ptrsnew->newid=ptrs->newid;
|
||
|
||
break;
|
||
|
||
case tk_eof: unexpectedeof(); break;
|
||
|
||
case tk_string:
|
||
|
||
// printf("tok=%d tok2=%d %s %s\n",tok,tok2,itok.name,string);
|
||
|
||
if(cha2==13&&itok.name[0]==0){
|
||
|
||
cha2=input[inptr2];
|
||
|
||
inptr2++;
|
||
|
||
}
|
||
|
||
goto endef;
|
||
|
||
case tk_minus:
|
||
|
||
if(tok2==tk_number){
|
||
|
||
if(i==tk_dword&&(itok2.rm==tk_float||itok2.rm==tk_double||
|
||
|
||
itok2.rm==tk_qword))i=itok2.rm;
|
||
|
||
case tk_number:
|
||
|
||
if(i==tk_dword&&(itok.rm==tk_float||itok.rm==tk_double||itok.rm==tk_qword))i=itok.rm;
|
||
|
||
switch(i){
|
||
|
||
case tk_float:
|
||
|
||
llhold=doconstfloatmath();
|
||
|
||
break;
|
||
|
||
case tk_double:
|
||
|
||
llhold=doconstdoublemath();
|
||
|
||
break;
|
||
|
||
case tk_qword:
|
||
|
||
llhold=doconstqwordmath();
|
||
|
||
break;
|
||
|
||
default:
|
||
|
||
llhold=doconstdwordmath();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
itok.flag=(unsigned char)postnumflag;
|
||
|
||
addconsttotree(holdid,llhold,i);
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
case tk_proc:
|
||
|
||
case tk_apiproc:
|
||
|
||
case tk_declare:
|
||
|
||
case tk_undefproc:
|
||
|
||
tok=tk_id;
|
||
|
||
strcpy((char *)string,itok.name);
|
||
|
||
default:
|
||
|
||
endef:
|
||
|
||
if(itok.type!=tp_modif)itok.type=tp_ucnovn;
|
||
|
||
addtodefine(holdid); break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else idalreadydefined();
|
||
|
||
// retoldscanmode(oscanlexmode);
|
||
|
||
scanlexmode=oscanlexmode;
|
||
|
||
if(tok==tk_endline){
|
||
|
||
// nextchar();
|
||
|
||
nexttok();
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
// printf("3 line=%d cha=%02X\n",linenumber,cha2);
|
||
|
||
break;
|
||
|
||
case d_DOS:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
longhold=doconstlongmath();
|
||
|
||
longhold2=dos1*256+dos2;
|
||
|
||
if(longhold>longhold2){
|
||
|
||
dos1=(unsigned char)(longhold/256);
|
||
|
||
dos2=(unsigned char)(longhold%256);
|
||
|
||
}
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_endif:
|
||
|
||
if(endifcount==-1) preerror("?endif without preceeding ?if");
|
||
|
||
else endifcount--;
|
||
|
||
// printf("%s (%u) endif: endifcount=%d\n",(startfileinfo+currentfileinfo)->filename,linenumber,endifcount);
|
||
|
||
break;
|
||
|
||
case d_ifdef:
|
||
|
||
case d_if:
|
||
|
||
case d_ifndef:
|
||
|
||
doifdef(itok.number);
|
||
|
||
if(gotoendif==0)useelse[endifcount]|=2;
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_incl:
|
||
|
||
i=GetStringAsIt();
|
||
|
||
usedirectiv=FALSE;
|
||
|
||
if((int)i!=-1){
|
||
|
||
char *a;
|
||
|
||
if((a=strrchr((char *)string3,'.'))!=NULL){
|
||
|
||
if(stricmp(a,".obj")==0){
|
||
|
||
AddNameObj((char *)string3,i,0);
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(stricmp(a,".lib")==0){
|
||
|
||
AddNameObj((char *)string3,i,1);
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
// puts((char *)string3);
|
||
|
||
IncludeFile((char *)string3,i);
|
||
|
||
}
|
||
|
||
break;
|
||
|
||
case d_jump:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
jumptomain=CALL_NEAR;
|
||
|
||
if((unsigned int)itok.number==0){
|
||
|
||
jumptomain=CALL_NONE;
|
||
|
||
header=0;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(stricmp(itok.name,"NONE")==0){
|
||
|
||
jumptomain=CALL_NONE;
|
||
|
||
header=0;
|
||
|
||
}
|
||
|
||
else if(stricmp(itok.name,"SHORT")==0)jumptomain=CALL_SHORT;
|
||
|
||
else if(stricmp(itok.name,"NEAR")==0)jumptomain=CALL_NEAR;
|
||
|
||
else preerror(ujo);
|
||
|
||
break;
|
||
|
||
case d_error:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
maxerrors=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_command:
|
||
|
||
parsecommandline=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_argc:
|
||
|
||
parsecommandline=fargc=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_print:
|
||
|
||
nexttok();
|
||
|
||
i=0;
|
||
|
||
if(strcmp(itok.name,"error")==0){
|
||
|
||
i=1;
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
switch(tok){
|
||
|
||
case tk_string:
|
||
|
||
printf("%s",string);
|
||
|
||
break;
|
||
|
||
case tk_number:
|
||
|
||
printf("\n%u",itok.number);
|
||
|
||
break;
|
||
|
||
default: preerror("unsupported token for #print"); break;
|
||
|
||
}
|
||
|
||
if(i)exit(e_preprocess);
|
||
|
||
break;
|
||
|
||
case d_prnex:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number)printf("%X",itok.number);
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_random:
|
||
|
||
if(notdoneprestuff==TRUE)doprestuff();
|
||
|
||
op(rand());
|
||
|
||
break;
|
||
|
||
case d_resize:
|
||
|
||
resizemem=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_resmes:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_string){
|
||
|
||
itok.flag=dos_term;
|
||
|
||
addtotree("__RESIZEMESSAGE");
|
||
|
||
addconsttotree("__resizemessage",TRUE);
|
||
|
||
}
|
||
|
||
else stringexpected();
|
||
|
||
break;
|
||
|
||
case d_speed: optimizespeed=1; break;
|
||
|
||
case d_stack:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
longhold=doconstlongmath();
|
||
|
||
if(am32==FALSE&&(longhold>0xFEFF||longhold<0))preerror("invalid size for stack");
|
||
|
||
else{
|
||
|
||
if(comfile!=file_sys)stacksize=longhold;
|
||
|
||
else sysstack=longhold;
|
||
|
||
}
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_start:
|
||
|
||
nexttok();
|
||
|
||
if(comfile==file_com){
|
||
|
||
if(tok==tk_number){
|
||
|
||
startptrdata=startptr=doconstlongmath();
|
||
|
||
if(startStartup!=0x100)startStartup=startptr;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
numexpected();
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else OnlyComFile();
|
||
|
||
break;
|
||
|
||
case d_8086: case d_8088: chip=0; break;
|
||
|
||
case d_80186: chip=1; break;
|
||
|
||
case d_80286: chip=2; break;
|
||
|
||
case d_80386: chip=3; break;
|
||
|
||
case d_80486: chip=4; break;
|
||
|
||
case d_80586: chip=5; break;
|
||
|
||
case d_80686: chip=6; break;
|
||
|
||
case d_80786: chip=7; break;
|
||
|
||
case d_atr:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
sysatr=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_name:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_string){
|
||
|
||
int i;
|
||
|
||
for(i=0;i<8&&string[i]!=0;i++)sysname[i]=string[i];
|
||
|
||
for(;i<8;i++)sysname[i]=' ';
|
||
|
||
}
|
||
|
||
else stringexpected();
|
||
|
||
break;
|
||
|
||
case d_com: //ᯨ᮪ ª®¬ ¤ ¤«ï SYS
|
||
|
||
listcom=(LISTCOM *)MALLOC(sizeof(LISTCOM)*MAXSYSCOM);
|
||
|
||
do{
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_id||tok==tk_ID){
|
||
|
||
strncpy((listcom+sysnumcom)->name,(char *)string,32);
|
||
|
||
(listcom+sysnumcom)->name[32]=0;
|
||
|
||
sysnumcom++;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
idalreadydefined();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_semicolon)break;
|
||
|
||
if(tok!=tk_camma){
|
||
|
||
expected(',');
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}while(sysnumcom<=MAXSYSCOM);
|
||
|
||
if(sysnumcom>MAXSYSCOM)preerror("to many commands");
|
||
|
||
else if(sysnumcom!=0&&sysnumcom!=MAXSYSCOM)listcom=(LISTCOM *)REALLOC(listcom,sysnumcom*sizeof(LISTCOM));
|
||
|
||
break;
|
||
|
||
case d_sdp: //¢ë£à㧨âì ¤¨ ¬¨ç¥áª¨¥ ¯à®æ¥¤ãàë
|
||
|
||
next=notdoneprestuff;
|
||
|
||
sdp_mode=TRUE;
|
||
|
||
usedirectiv=FALSE;
|
||
|
||
docalls();
|
||
|
||
sdp_mode=FALSE;
|
||
|
||
notdoneprestuff=next;
|
||
|
||
next=1;
|
||
|
||
break;
|
||
|
||
case d_warning:
|
||
|
||
warning=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_ip:
|
||
|
||
if( GetStringAsIt()!=-1)IncludePath((char *)string3);
|
||
|
||
break;
|
||
|
||
case d_us: //¨á¯®«ì§®¢ âì ª®¤ STARTUP
|
||
|
||
if(comfile==file_com)useStartup=TRUE;
|
||
|
||
break;
|
||
|
||
case d_suv: // ¤à¥á ç « ¨á¯®«ì§®¢ ¨ï ¯®¤ ¥¨¨æ¨ «¨§¨à®¢ ë¥ ¯¥à¥¬¥ë¥
|
||
|
||
nexttok();
|
||
|
||
if(comfile==file_com){
|
||
|
||
if(tok==tk_number)startStartup=doconstlongmath();
|
||
|
||
else{
|
||
|
||
numexpected();
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else OnlyComFile();
|
||
|
||
break;
|
||
|
||
case d_iav: //¨¨æ¨ «¨§¨à®¢ âì ¢á¥ ¯¥à¥¬¥ë¥
|
||
|
||
notpost=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_atex: //¬¥å ¨§¬ ATEXIT
|
||
|
||
atex=TRUE;
|
||
|
||
break;
|
||
|
||
case d_dseg: //ᥣ¬¥â ¤ ëå ¤«ï rom-bios
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
dataseg=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_rsize: //à §¬¥à rom-bios
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
romsize=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
break;
|
||
|
||
case d_mdr: //¯¥à¥®á¨âì ¤ ë¥ ®¯¥à ¯ ¬ïâì
|
||
|
||
splitdata=modelmem=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_am32: //32 ¡¨â ï ¤à¥á æ¨ï
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_number)numexpected();
|
||
|
||
else am32=(unsigned char)(itok.number==0?FALSE:TRUE);
|
||
|
||
break;
|
||
|
||
case d_undef: //undef
|
||
|
||
oscanlexmode=scanlexmode;
|
||
|
||
scanlexmode=DEFLEX2;
|
||
|
||
nexttok();
|
||
|
||
scanlexmode=oscanlexmode;
|
||
|
||
// retoldscanmode(oscanlexmode);
|
||
|
||
if(tok==tk_string){
|
||
|
||
strcpy(itok.name,(char *)string);
|
||
|
||
KillVarOfTree(&treestart);
|
||
|
||
}
|
||
|
||
else KillVarOfTree(&definestart);
|
||
|
||
break;
|
||
|
||
case d_stm: //startuptomain
|
||
|
||
startuptomain=TRUE;
|
||
|
||
break;
|
||
|
||
case d_ib: //imagebase
|
||
|
||
nexttok();
|
||
|
||
ImageBase=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_fut: //fixuptable
|
||
|
||
FixUpTable=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_fca: //fastcallapi
|
||
|
||
FastCallApi=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_dstr:
|
||
|
||
dosstring=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_cv:
|
||
|
||
int v1,v2;
|
||
|
||
v1=v2=0;
|
||
|
||
cha=cha2;
|
||
|
||
inptr=inptr2;
|
||
|
||
linenumber=linenum2;
|
||
|
||
whitespace(); //¯à®¯ã᪠§ ç é¨å ᨬ¢®«®¢
|
||
|
||
while(isdigit(cha)){
|
||
|
||
v1=v1*10+(cha-'0');
|
||
|
||
nextchar();
|
||
|
||
}
|
||
|
||
if(cha!='.')expected('.');
|
||
|
||
nextchar();
|
||
|
||
i=0;
|
||
|
||
while(isdigit(cha)){
|
||
|
||
v2=v2*10+(cha-'0');
|
||
|
||
nextchar();
|
||
|
||
i++;
|
||
|
||
}
|
||
|
||
while(i<3){
|
||
|
||
v2=v2*10;
|
||
|
||
i++;
|
||
|
||
}
|
||
|
||
cha2=cha;
|
||
|
||
inptr2=inptr;
|
||
|
||
linenum2=linenumber;
|
||
|
||
if(v1>=ver1){
|
||
|
||
if(v1==ver1&&v2<=ver2)break;
|
||
|
||
}
|
||
|
||
sprintf((char *)string,"needed compiler version %0u.%03u or best",v1,v2);
|
||
|
||
preerror((char *)string);
|
||
|
||
break;
|
||
|
||
case d_else:
|
||
|
||
if(endifcount==-1) preerror("#else without preceeding #if");
|
||
|
||
else if((useelse[endifcount]&1)==0)preerror(toelse);
|
||
|
||
else useelse[endifcount]&=0xFE;
|
||
|
||
if(gotoendif==1) gotoendif=0;
|
||
|
||
else gotoendif=1;
|
||
|
||
break;
|
||
|
||
case d_elif:
|
||
|
||
if(endifcount==-1) preerror("#elif without preceeding #if");
|
||
|
||
doifdef(d_elif);
|
||
|
||
next=0;
|
||
|
||
gotoendif=1;
|
||
|
||
break;
|
||
|
||
case d_wmb: //ä®à¬¨à®¢ ¨¥ ®¤®£® ¡«®ª ¯®¤ win
|
||
|
||
WinMonoBlock=get_directive_value();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case d_pragma:
|
||
|
||
char *ptr;
|
||
|
||
inptr=inptr2;
|
||
|
||
cha=cha2;
|
||
|
||
FastTok(1);
|
||
|
||
// printf("%c %s\n",cha,itok.name);
|
||
|
||
i=0;
|
||
|
||
while(cha!=13&&cha!=26){
|
||
|
||
if(cha=='/'){
|
||
|
||
if(input[inptr]=='/'){
|
||
|
||
while(cha!=13&&cha!=26)nextchar();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(input[inptr]=='*'){
|
||
|
||
while(cha!=26){
|
||
|
||
nextchar();
|
||
|
||
if(cha=='*'&&input[inptr]=='/'){
|
||
|
||
nextchar();
|
||
|
||
nextchar();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(cha==13)linenumber++;
|
||
|
||
}
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
string[i++]=cha;
|
||
|
||
nextchar();
|
||
|
||
}
|
||
|
||
cha2=cha;
|
||
|
||
inptr2=inptr;
|
||
|
||
linenum2=linenumber;
|
||
|
||
string[i]=0;
|
||
|
||
strbtrim((char *)string);
|
||
|
||
// printf("%s %s\n",itok.name,string);
|
||
|
||
if(strlen((char *)string))ptr=BackString((char *)string);
|
||
|
||
else ptr=NULL;
|
||
|
||
for(i=0;i<p_end;i++)if(strcmp(itok.name,pragmalist[i])==0)break;
|
||
|
||
if(i!=p_li&&ptr==NULL){
|
||
|
||
unknownpragma(pragmalist[i]);
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
switch(i){
|
||
|
||
case p_op:
|
||
|
||
SelectComand(ptr,0);
|
||
|
||
break;
|
||
|
||
case p_li:
|
||
|
||
printf("%s (%u) %s\n",(startfileinfo+currentfileinfo)->filename,linenumber,ptr==NULL?"":ptr);
|
||
|
||
break;
|
||
|
||
case p_st:
|
||
|
||
i=0;
|
||
|
||
char c;
|
||
|
||
do{
|
||
|
||
c=ptr[i++];
|
||
|
||
}while(isalnum(c)||c=='_');
|
||
|
||
ptr[i]=0;
|
||
|
||
if(numdomain==0)domain=(char *)MALLOC(IDLENGTH);
|
||
|
||
else domain=(char *)REALLOC(domain,IDLENGTH*(numdomain+1));
|
||
|
||
strcpy(domain+numdomain*IDLENGTH,ptr);
|
||
|
||
numdomain++;
|
||
|
||
break;
|
||
|
||
case p_re:
|
||
|
||
if(strcmp(ptr,"start")==0){
|
||
|
||
scanlexmode=RESLEX;
|
||
|
||
input_res();
|
||
|
||
}
|
||
|
||
else if(strcmp(ptr,"end")==0)
|
||
|
||
scanlexmode=STDLEX;
|
||
|
||
// retoldscanmode(STDLEX);
|
||
|
||
else preerror("for '#pragma resource' used only 'start' or 'end'");
|
||
|
||
break;
|
||
|
||
case p_db:
|
||
|
||
#ifdef DEBUGMODE
|
||
|
||
if(strcmp(ptr,"start")==0){
|
||
|
||
debug=TRUE;
|
||
|
||
}
|
||
|
||
else if(strcmp(ptr,"end")==0)debug=FALSE;
|
||
|
||
else unknownpragma("debug");
|
||
|
||
#endif
|
||
|
||
break;
|
||
|
||
case p_pa:
|
||
|
||
// printf("ptr=%08X input=%08X tok=%d\n",ptr,input,tok);
|
||
|
||
SetNewStr(ptr);
|
||
|
||
displaytokerrors=1;
|
||
|
||
FastTok(1);
|
||
|
||
if(tok!=tk_openbracket){
|
||
|
||
expected('(');
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
FastTok(1);
|
||
|
||
if(tok==tk_closebracket)strpackcur=strpackdef;
|
||
|
||
i=0;
|
||
|
||
STACKALIGN *newpar;
|
||
|
||
while(tok!=tk_closebracket&&tok!=tk_eof){
|
||
|
||
switch(tok){
|
||
|
||
case tk_number:
|
||
|
||
if(caselong(itok.number)==NUMNUM){
|
||
|
||
preerror("bad align size");
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(pushpop(i))i=3;
|
||
|
||
strpackcur=itok.number;
|
||
|
||
break;
|
||
|
||
case tk_id:
|
||
|
||
if(strcmp(itok.name,"push")==0){
|
||
|
||
if(i)unknownpragma("pack(push)");
|
||
|
||
i=1;
|
||
|
||
}
|
||
|
||
else if(strcmp(itok.name,"pop")==0){
|
||
|
||
if(i)unknownpragma("pack(pop)");
|
||
|
||
i=2;
|
||
|
||
}
|
||
|
||
else if(strcmp(itok.name,"show")==0){
|
||
|
||
printf("%s (%u) Current packing alignment for structure = %d\n",(startfileinfo+currentfileinfo)->filename,linenumber,strpackcur);
|
||
|
||
i=3;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
switch(i){
|
||
|
||
case 0:
|
||
|
||
unknownpragma("pack");
|
||
|
||
break;
|
||
|
||
case 1:
|
||
|
||
newpar=(STACKALIGN *)MALLOC(sizeof(STACKALIGN));
|
||
|
||
newpar->prev=stackalign;
|
||
|
||
newpar->size=strpackcur;
|
||
|
||
strcpy(newpar->id,itok.name);
|
||
|
||
stackalign=newpar;
|
||
|
||
i=3;
|
||
|
||
break;
|
||
|
||
case 2:
|
||
|
||
while(stackalign!=NULL&&strcmp(itok.name,stackalign->id)!=0){
|
||
|
||
newpar=stackalign->prev;
|
||
|
||
free(stackalign);
|
||
|
||
stackalign=newpar;
|
||
|
||
}
|
||
|
||
if(stackalign==NULL){
|
||
|
||
strpackcur=strpackdef;
|
||
|
||
warpragmapackpop();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
newpar=stackalign->prev;
|
||
|
||
free(stackalign);
|
||
|
||
stackalign=newpar;
|
||
|
||
strpackcur=(stackalign==NULL?strpackdef:stackalign->size);
|
||
|
||
i=3;
|
||
|
||
break;
|
||
|
||
default:
|
||
|
||
unknownpragma("pack");
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
FastTok(1);
|
||
|
||
if(tok==tk_camma)FastTok(1);
|
||
|
||
}
|
||
|
||
pushpop(i);
|
||
|
||
// printf("ptr=%08X input=%08X tok=%d\n",ptr,input,tok);
|
||
|
||
inptr2=inptr;
|
||
|
||
cha2=cha;
|
||
|
||
while(ptr==(char*)input)nexttok();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
case p_idx:
|
||
|
||
SetNewStr(ptr);
|
||
|
||
inptr2=1;
|
||
|
||
InitIdxRegs();
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
default:
|
||
|
||
unknownpragma("");
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(ptr)free(ptr);
|
||
|
||
break;
|
||
|
||
case d_inline:
|
||
|
||
nexttok();
|
||
|
||
if(tok==tk_number){
|
||
|
||
if(itok.number>=0&&itok.number<=2)useinline=itok.number;
|
||
|
||
else preerror(ido);
|
||
|
||
}
|
||
|
||
else if(strcmp(itok.name,"AUTO")==0)useinline=2;
|
||
|
||
else preerror(ido);
|
||
|
||
break;
|
||
|
||
default:
|
||
|
||
preerror("compiler directive expected");
|
||
|
||
}
|
||
|
||
if(next)nexttok();
|
||
|
||
while(gotoendif){
|
||
|
||
if(tok==tk_question){
|
||
|
||
if(itok.number==d_endif){
|
||
|
||
gotoendif--;
|
||
|
||
endifcount--;
|
||
|
||
// printf("%s (%u) endif shadow: endifcount=%d\n",(startfileinfo+currentfileinfo)->filename,linenumber,endifcount);
|
||
|
||
}
|
||
|
||
else if(itok.number==d_ifdef||itok.number==d_ifndef||itok.number==d_if){
|
||
|
||
gotoendif++;
|
||
|
||
endifcount++;
|
||
|
||
// printf("%s (%u) if shadow: endifcount=%d\n",(startfileinfo+currentfileinfo)->filename,linenumber,endifcount);
|
||
|
||
CheckNumIF();
|
||
|
||
useelse[endifcount]=1;
|
||
|
||
}
|
||
|
||
else if(itok.number==d_else){
|
||
|
||
if((useelse[endifcount]&1)==0)preerror(toelse);
|
||
|
||
else useelse[endifcount]&=0xFE;
|
||
|
||
if(gotoendif==1&&useelse[endifcount]==0){
|
||
|
||
gotoendif=0;
|
||
|
||
useelse[endifcount]|=2;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(itok.number==d_elif){
|
||
|
||
if(gotoendif==1){
|
||
|
||
doifdef(d_elif);
|
||
|
||
if(gotoendif==0){
|
||
|
||
if((useelse[endifcount]&2)==0){
|
||
|
||
useelse[endifcount]|=2;
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
gotoendif=1;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(tok==tk_eof){
|
||
|
||
unexpectedeof();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(gotoendif)FindDirectiv();
|
||
|
||
else{
|
||
|
||
nexttok();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
usedirectiv=FALSE;
|
||
|
||
dirmode=dm_none;
|
||
|
||
}
|
||
|
||
|
||
|
||
void doenum()
|
||
|
||
{
|
||
|
||
long counter=0;
|
||
|
||
unsigned char next;
|
||
|
||
char holdid[IDLENGTH];
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_openbrace){
|
||
|
||
if(tok2!=tk_openbrace)expected('{');
|
||
|
||
nexttok();
|
||
|
||
}
|
||
|
||
do{
|
||
|
||
next=1;
|
||
|
||
nexttok();
|
||
|
||
switch(tok){
|
||
|
||
case tk_ID:
|
||
|
||
case tk_id:
|
||
|
||
strcpy(holdid,(char *)string);
|
||
|
||
if(tok2==tk_assign){
|
||
|
||
nexttok();
|
||
|
||
nexttok();
|
||
|
||
CheckMinusNum();
|
||
|
||
if(tok==tk_number){
|
||
|
||
counter=doconstlongmath();
|
||
|
||
next=0;
|
||
|
||
postnumflag=0;
|
||
|
||
}
|
||
|
||
else numexpected();
|
||
|
||
}
|
||
|
||
addconsttotree(holdid,counter);
|
||
|
||
counter++;
|
||
|
||
break;
|
||
|
||
case tk_closebrace:
|
||
|
||
next=0;
|
||
|
||
break;
|
||
|
||
default:
|
||
|
||
idalreadydefined();
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
if(next)nexttok();
|
||
|
||
}while(tok==tk_camma);
|
||
|
||
if(tok!=tk_closebrace)expected('}');
|
||
|
||
nextseminext();
|
||
|
||
}
|
||
|
||
|
||
|
||
int CompConst(int firstval)
|
||
|
||
{
|
||
|
||
int otok=tok;
|
||
|
||
nexttok();
|
||
|
||
if(tok!=tk_number)unknowncompop();
|
||
|
||
switch(otok){
|
||
|
||
case tk_equalto:
|
||
|
||
if(firstval==itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
case tk_notequal:
|
||
|
||
if(firstval!=itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
case tk_greater:
|
||
|
||
if(firstval>itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
case tk_less:
|
||
|
||
if(firstval<itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
case tk_greaterequal:
|
||
|
||
if(firstval>=itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
case tk_lessequal:
|
||
|
||
if(firstval<=itok.number)return TRUE;
|
||
|
||
break;
|
||
|
||
default: unknowncompop();
|
||
|
||
}
|
||
|
||
return FALSE;
|
||
|
||
}
|
||
|
||
|
||
|
||
int ifdefconst()
|
||
|
||
{
|
||
|
||
if(optimizespeed==TRUE){
|
||
|
||
if(strcmp((char *)string,"speed")==0)return TRUE;
|
||
|
||
}
|
||
|
||
else if(strcmp((char *)string,"codesize")==0)return TRUE;
|
||
|
||
if(strcmp((char *)string,"cpu")==0){
|
||
|
||
nexttok();
|
||
|
||
return CompConst(chip);
|
||
|
||
}
|
||
|
||
if(itok2.type==tp_compare){
|
||
|
||
// unknowncompop();
|
||
|
||
nexttok();
|
||
|
||
nexttok();
|
||
|
||
return FALSE;
|
||
|
||
}
|
||
|
||
if(comfile==file_w32&&strcmp((char *)string,"_WIN32")==0)return TRUE;
|
||
|
||
if(*(short *)&string[0]==0x5F5F){
|
||
|
||
if(comfile==file_w32){
|
||
|
||
if(strcmp((char *)string+2,"TLS__")==0)return TRUE;
|
||
|
||
if(dllflag&&strcmp((char *)string+2,"DLL__")==0)return TRUE;
|
||
|
||
else{
|
||
|
||
if(wconsole&&strcmp((char *)string+2,"CONSOLE__")==0)return TRUE;
|
||
|
||
else if(strcmp((char *)string+2,"WIN32__")==0)return TRUE;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(am32){
|
||
|
||
if(strcmp((char *)string+2,"FLAT__")==0)return TRUE;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
if(strcmp((char *)string+2,"MSDOS__")==0)return TRUE;
|
||
|
||
if(modelmem==TINY&&strcmp((char *)string+2,"TINY__")==0)return TRUE;
|
||
|
||
if(modelmem==SMALL&&strcmp((char *)string+2,"SMALL__")==0)return TRUE;
|
||
|
||
}
|
||
|
||
if(comfile==file_d32&&strcmp((char *)string+2,"DOS32__")==0)return TRUE;
|
||
|
||
if(comfile==file_com&&strcmp((char *)string+2,"COM__")==0)return TRUE;
|
||
|
||
if(comfile==file_sys&&strcmp((char *)string+2,"SYS__")==0)return TRUE;
|
||
|
||
if(comfile==file_rom&&strcmp((char *)string+2,"ROM__")==0)return TRUE;
|
||
|
||
if(comfile==file_bin&&strcmp((char *)string+2,"BIN32__")==0)return TRUE;
|
||
|
||
if(comfile==file_meos&&strcmp((char *)string+2,"MEOS__")==0)return TRUE;
|
||
|
||
if((sobj||fobj)&&strcmp((char *)string+2,"OBJ__")==0)return TRUE;
|
||
|
||
if(comfile==file_exe){
|
||
|
||
if(modelmem==TINY){
|
||
|
||
if(strcmp((char *)string+2,"TEXE__")==0)return TRUE;
|
||
|
||
}
|
||
|
||
else if(strcmp((char *)string+2,"EXE__")==0)return TRUE;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
return 2;
|
||
|
||
}
|
||
|
||
|
||
|
||
void CheckNumIF()
|
||
|
||
{
|
||
|
||
if(endifcount>=NUMIFDEF)preerror("#ifdef/#ifndef - too large enclosure");
|
||
|
||
}
|
||
|
||
|
||
|
||
static int firstincl=FALSE;
|
||
|
||
|
||
|
||
void IncludeFile(char *fileincl,int tfind)
|
||
|
||
{
|
||
|
||
unsigned char *holdinput;
|
||
|
||
unsigned int holdinptr,holdendinptr,holdlinenum;
|
||
|
||
unsigned char holdwarning;
|
||
|
||
unsigned char holdcha,holdendoffile;
|
||
|
||
int ofileinfo;
|
||
|
||
char *ostartline;
|
||
|
||
int oscanlexmode=scanlexmode;
|
||
|
||
int opostnumflag;
|
||
|
||
COM_MOD *ocurmod=cur_mod;
|
||
|
||
|
||
|
||
int oendifcount;
|
||
|
||
|
||
|
||
oendifcount=endifcount;
|
||
|
||
cur_mod=NULL;
|
||
|
||
if(!firstincl){
|
||
|
||
firstincl=TRUE;
|
||
|
||
if((dbg&1)&&am32==FALSE){
|
||
|
||
holdcha=dbgact;
|
||
|
||
dbgact=0;
|
||
|
||
AddLine();
|
||
|
||
dbgact=holdcha;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
scanlexmode=STDLEX;
|
||
|
||
opostnumflag=postnumflag;
|
||
|
||
holdinput=input; //á®åà ¥ª®â®à ¯¥à¥¬¥ë¥
|
||
|
||
holdinptr=inptr2;
|
||
|
||
holdcha=cha2;
|
||
|
||
holdlinenum=linenum2;
|
||
|
||
holdendinptr=endinptr;
|
||
|
||
holdendoffile=endoffile;
|
||
|
||
holdwarning=warning;
|
||
|
||
ostartline=startline;
|
||
|
||
ofileinfo=currentfileinfo;
|
||
|
||
(startfileinfo+currentfileinfo)->stlist=staticlist;
|
||
|
||
compilefile(fileincl,tfind);//®âª®¬¯¨«¨à®¢ âì
|
||
|
||
if(endifcount!=oendifcount){
|
||
|
||
sprintf((char *)string2,"num if prior %d after %d",oendifcount,endifcount);
|
||
|
||
preerror((char *)string2);
|
||
|
||
}
|
||
|
||
// (startfileinfo+currentfileinfo)->staticlist=staticlist;
|
||
|
||
currentfileinfo=ofileinfo;
|
||
|
||
staticlist=(startfileinfo+currentfileinfo)->stlist;
|
||
|
||
warning=holdwarning;
|
||
|
||
endoffile=holdendoffile;//¢®áâ ®¢¨âì ¯¥à¥¬¥ë¥
|
||
|
||
endinptr=holdendinptr;
|
||
|
||
input=holdinput;
|
||
|
||
inptr2=holdinptr;
|
||
|
||
cha2=holdcha;
|
||
|
||
linenumber=linenum2=holdlinenum;
|
||
|
||
startline=ostartline;
|
||
|
||
// retoldscanmode(oscanlexmode);
|
||
|
||
scanlexmode=oscanlexmode;
|
||
|
||
postnumflag=opostnumflag;
|
||
|
||
cur_mod=ocurmod;
|
||
|
||
}
|
||
|
||
|
||
|
||
/*-----------------31.05.99 21:39-------------------
|
||
|
||
¯®¤¤¥à¦ª startup
|
||
|
||
--------------------------------------------------*/
|
||
|
||
|
||
|
||
int startlabl(char *namelab)
|
||
|
||
{
|
||
|
||
//ITOK btok;
|
||
|
||
//int bb;
|
||
|
||
// if(searchtree(&btok,&bb,(unsigned char *)namelab)==FALSE)thisundefined(namelab);
|
||
|
||
searchvar(namelab);
|
||
|
||
return itok.number;
|
||
|
||
}
|
||
|
||
|
||
|
||
void searchvar(char *name,int err)
|
||
|
||
{
|
||
|
||
strcpy((char *)string,name);
|
||
|
||
if(searchtree(&itok,&tok,string)==FALSE&&err)thisundefined(name);
|
||
|
||
}
|
||
|
||
|
||
|
||
void doprestuff() //¨¨æ¨ «¨§ æ¨ï ç «ì®£® ª®¤ , like resize mem, jump to main...
|
||
|
||
{
|
||
|
||
ITOK oitok;
|
||
|
||
int otok,otok2;
|
||
|
||
unsigned int addresshold;
|
||
|
||
unsigned char ojmp;
|
||
|
||
char *bstring;
|
||
|
||
int odbg=dbg;
|
||
|
||
//á®åà ¨âì ¯ à ¬¥âàë
|
||
|
||
// if(FixUp==TRUE||comfile==file_w32)optnumber=FALSE;
|
||
|
||
oitok=itok;
|
||
|
||
bstring=BackString((char *)string);
|
||
|
||
otok=tok;
|
||
|
||
ojmp=0xff;
|
||
|
||
otok2=tok2;
|
||
|
||
// printf("tok=%d inptr=%d\n",tok,inptr);
|
||
|
||
if(notdoneprestuff==TRUE){
|
||
|
||
if(splitdata)startptrdata=0;
|
||
|
||
if(comfile!=file_w32||(dbg&2))dbgact=0;
|
||
|
||
}
|
||
|
||
if(startuptomain==TRUE&&comfile==file_com){
|
||
|
||
if(notdoneprestuff==TRUE){
|
||
|
||
outptr=startptr;
|
||
|
||
outptrdata=startptrdata;
|
||
|
||
if(jumptomain!=CALL_NONE){
|
||
|
||
tok=tk_ID;
|
||
|
||
strcpy(itok.name,mesmain);
|
||
|
||
tobedefined(jumptomain==CALL_NEAR?JMP_NEAR:CALL_SHORT,tk_void); /* put main on the to be defined stack */
|
||
|
||
if(jumptomain==CALL_NEAR )jumploc0();
|
||
|
||
else outword(0x00EB); // JMP short
|
||
|
||
}
|
||
|
||
endStartup=outptr;
|
||
|
||
notdoneprestuff=FALSE;
|
||
|
||
goto endp;
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
header=0; //ç⮡ ¥ ¡ë«® ¯®¢â®à®© ¤¯¨á¨ sphinx
|
||
|
||
ojmp=jumptomain;
|
||
|
||
jumptomain=CALL_NONE;
|
||
|
||
startuptomain=FALSE;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(comsymbios==FALSE){
|
||
|
||
outptr=startptr;
|
||
|
||
outptrdata=startptrdata;
|
||
|
||
}
|
||
|
||
notdoneprestuff=FALSE;
|
||
|
||
if(comfile==file_meos)outptrdata=outptr=startptr+sizeof(MEOSheader);
|
||
|
||
if(sobj){
|
||
|
||
outptrdata=outptr=startptrdata=startptr=0;
|
||
|
||
goto endp;
|
||
|
||
}
|
||
|
||
itok.post=1;
|
||
|
||
itok.segm=DS;
|
||
|
||
itok.number=0;
|
||
|
||
itok.flag=0;
|
||
|
||
itok.size=0;
|
||
|
||
itok.rm=(am32==FALSE?rm_d16:rm_d32);
|
||
|
||
tok=(am32==0?tk_wordvar:tk_dwordvar);
|
||
|
||
string[0]=0;
|
||
|
||
addtotree("__startpostvar");
|
||
|
||
itok.rec->count=1;
|
||
|
||
if(comfile==file_bin)goto endp;
|
||
|
||
else ImageBase=Align(ImageBase,0x10000);
|
||
|
||
if(jumptomain==CALL_NONE){
|
||
|
||
if(comfile==file_w32||comfile==file_exe||comfile==file_meos)goto endp;
|
||
|
||
if(comfile==file_com&&fargc==0&&parsecommandline==0&&atex==0&&use_env==0
|
||
|
||
&&clearpost==0&&resizemem==0&&killctrlc==0)goto endp;
|
||
|
||
}
|
||
|
||
if(comfile==file_sys){
|
||
|
||
addconsttotree("__SYSATRIB",sysatr);
|
||
|
||
tok=tk_string;
|
||
|
||
itok.number=8;
|
||
|
||
itok.flag=zero_term;
|
||
|
||
strncpy((char *)string,sysname,8);
|
||
|
||
addtotree("__SYSNAME");
|
||
|
||
if(sysstack!=0){
|
||
|
||
addconsttotree("__SYSSTACK",sysstack);
|
||
|
||
}
|
||
|
||
if(sysnumcom==0)preerror("list command expected");
|
||
|
||
else addconsttotree("__SYSNUMCOM",sysnumcom);
|
||
|
||
}
|
||
|
||
else if(comfile==file_rom){
|
||
|
||
resizemem=0;
|
||
|
||
addconsttotree("__ROMSIZE",romsize);
|
||
|
||
addconsttotree("__DATASEG",dataseg);
|
||
|
||
if(modelmem!=SMALL){
|
||
|
||
free(outputdata);
|
||
|
||
outputdata=output;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(comsymbios==TRUE){
|
||
|
||
addresshold=outptr;
|
||
|
||
addconsttotree("__STARTPTR",startptr);
|
||
|
||
addconsttotree("__STARTVALW",*(unsigned short *)&output[startptr]);
|
||
|
||
addconsttotree("__STARTVALB",output[startptr+2]);
|
||
|
||
}
|
||
|
||
if(comfile==file_w32&&wbss)clearpost=FALSE;
|
||
|
||
if(resizemem)addconsttotree("__resizemem",TRUE);
|
||
|
||
if(killctrlc)addconsttotree("__ctrl_c",TRUE);
|
||
|
||
if(parsecommandline)addconsttotree("__parsecommandline",TRUE);
|
||
|
||
if(atex)addconsttotree("__atexit",TRUE);
|
||
|
||
if(fargc)addconsttotree("__argc",TRUE);
|
||
|
||
if(use_env)addconsttotree("__environ",TRUE);
|
||
|
||
if(clearpost)addconsttotree("__clearpost",TRUE);
|
||
|
||
if(comfile==file_d32){
|
||
|
||
if(useDOS4GW)addconsttotree("__useDOS4GW",TRUE);
|
||
|
||
if(dpmistub&&(!usestub)){
|
||
|
||
addconsttotree("__DPMIonly",TRUE);
|
||
|
||
resizemem=TRUE;
|
||
|
||
jumptomain=CALL_NEAR;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(jumptomain==CALL_SHORT)addconsttotree("__shortjmp",TRUE);
|
||
|
||
else if(jumptomain==CALL_NONE)addconsttotree("__nonejmptomain",TRUE);
|
||
|
||
|
||
|
||
if(dbg){
|
||
|
||
if(am32==FALSE){
|
||
|
||
if(firstincl==FALSE){
|
||
|
||
firstincl=TRUE;
|
||
|
||
AddLine();
|
||
|
||
}
|
||
|
||
dbg=0;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
IncludeFile(namestartupfile,0);
|
||
|
||
dbg=odbg;
|
||
|
||
|
||
|
||
if((dbg&1)&&outptr==startptr)KillLastLine();
|
||
|
||
|
||
|
||
if(atex||(comfile==file_w32&&(!dllflag))){
|
||
|
||
startexit=startlabl("__startexit");
|
||
|
||
if(ojmp==0xff)endStartup=startexit;
|
||
|
||
}
|
||
|
||
else if(ojmp==0xff)endStartup=outptr;
|
||
|
||
if(sobj==FALSE&&fobj==FALSE&& //new 18.04.07 23:52
|
||
|
||
comfile==file_com){
|
||
|
||
if(resizemem){
|
||
|
||
resizesizeaddress=startlabl("__stackseg");
|
||
|
||
stackstartaddress=startlabl("__stackval");
|
||
|
||
}
|
||
|
||
}
|
||
|
||
else if(comfile==file_sys){
|
||
|
||
syscom=startlabl("__listcom");
|
||
|
||
}
|
||
|
||
else if(comfile==file_rom){
|
||
|
||
if(modelmem==SMALL){
|
||
|
||
stackstartaddress=startlabl("__stackstart");
|
||
|
||
dataromstart=startlabl("__startdata");
|
||
|
||
dataromsize=startlabl("__sizedata");
|
||
|
||
}
|
||
|
||
else{
|
||
|
||
useStartup=TRUE;
|
||
|
||
endStartup=0xfff0;
|
||
|
||
startStartup=0;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if(comsymbios==TRUE){
|
||
|
||
output[startptr]=0xE9;
|
||
|
||
addresshold=addresshold-(startptr+3); /* inital */
|
||
|
||
*(unsigned short *)&output[startptr+1]=(unsigned short)addresshold;
|
||
|
||
}
|
||
|
||
if(ojmp!=0xff)jumptomain=ojmp;
|
||
|
||
endp:
|
||
|
||
if(header){
|
||
|
||
outprocedure(aabaner,MMBANER);
|
||
|
||
alignersize+=MMBANER;
|
||
|
||
}
|
||
|
||
itok=oitok;
|
||
|
||
tok=otok;
|
||
|
||
tok2=otok2;
|
||
|
||
strcpy((char *)string,bstring);
|
||
|
||
free(bstring);
|
||
|
||
if(strcmp(itok.name,mesmain)==0)searchtree(&itok,&tok,(unsigned char *)&string);
|
||
|
||
if((comfile!=file_d32||dpmistub)&&stubfile!=NULL){
|
||
|
||
free(stubfile);
|
||
|
||
stubfile=NULL;
|
||
|
||
}
|
||
|
||
dbgact=0;
|
||
|
||
}
|
||
|
||
|
||
|
||
void KillVarOfTree(idrec **treestart)
|
||
|
||
{
|
||
|
||
struct idrec *ptr,*leftptr,*rightptr,*prev;
|
||
|
||
int cmpresult,ocmpresult=0;
|
||
|
||
ptr=*treestart; //¯®¨áª
|
||
|
||
while(ptr!=NULL&&(cmpresult=strcmp(ptr->recid,itok.name))!=0){
|
||
|
||
prev=ptr; //த¨â¥«ì
|
||
|
||
ocmpresult=cmpresult; //१ã«ìâ ⠯। áà ¢¥¨ï - ®¯à ¢ «¥¢®© ¨«¨ ¯à ¢®© ¢¥â¢¨
|
||
|
||
if(cmpresult<0)ptr=ptr->left;
|
||
|
||
else ptr=ptr->right;
|
||
|
||
}
|
||
|
||
if(ptr!=NULL){ // ©¤¥ ®¡ê¥ªâ 㤠«¥¨ï
|
||
|
||
if(ptr->newid)free(ptr->newid); //㤠«¨âì ¤®¯ ¨ä®à¬.
|
||
|
||
leftptr=ptr->left; //¤¨â¥
|
||
|
||
rightptr=ptr->right;//¤à㣮¥ ¤¨â¥
|
||
|
||
if(leftptr==NULL&&rightptr==NULL){ //¥á«¨ ¥â ¤¨â¥©
|
||
|
||
if(ocmpresult<0)prev->left=NULL; //⮠த¨â¥«ì ®áâ «áï á¨à®â®©
|
||
|
||
else if(ocmpresult>0)prev->right=NULL;
|
||
|
||
else *treestart=NULL; //㤠«¥ ª®à¥ì ¡¥§ ¢¥â¢¥©
|
||
|
||
}
|
||
|
||
else if(leftptr==NULL){ //®¤® ¤¨â¥ á¯à ¢
|
||
|
||
if(ocmpresult<0)prev->left=rightptr; //¯¥à¥¤ âì ¢ãª®¢ த¨â¥«î
|
||
|
||
else if(ocmpresult>0)prev->right=rightptr;
|
||
|
||
else *treestart=rightptr; //㤠«¥ ª®à¥ì á ®¤®© ¯à ¢®© ¢¥âª®©
|
||
|
||
}
|
||
|
||
else if(rightptr==NULL){ //⮦¥ ¥á«¨ ¤¨â¥ á«¥¢
|
||
|
||
if(ocmpresult<0)prev->left=leftptr;
|
||
|
||
else if(ocmpresult>0)prev->right=leftptr;
|
||
|
||
else *treestart=leftptr; //㤠«¥ ª®à¥ì á ®¤®© «¥¢®© ¢¥âª®©
|
||
|
||
}
|
||
|
||
else{ //¥á«¨ ¥áâì ®¡ ॡ¥ª
|
||
|
||
struct idrec *ostptr,*ptrf;
|
||
|
||
if(ocmpresult<0){ //¥á«¨ ¬ë ¤¨â¥ á«¥¢
|
||
|
||
prev->left=leftptr; //¯¥à¥¤ âì «¥¢®£® ॡ¥ª
|
||
|
||
ostptr=rightptr; //¯à ¢®£® ª ¯®¨áªã ¬¥áâ
|
||
|
||
}
|
||
|
||
else if(ocmpresult>0){ //¥á«¨ ¦¥ ¬ë ¤¨â¥ á¯à ¢
|
||
|
||
prev->right=rightptr; //¯¥à¥¤ âì ¯à ¢®£® ॡ¥ª
|
||
|
||
ostptr=leftptr; //«¥¢®£® ª ¯®¨áªã
|
||
|
||
}
|
||
|
||
else{ //¥á«¨ ã á ¥â த¨â¥«ï
|
||
|
||
*treestart=rightptr; //®¤¨ 㣠¤ áâ ®¢¨âáï £« ¢ë¬
|
||
|
||
ostptr=leftptr; //¤à㣮£® ª ¯®¨áªã
|
||
|
||
}
|
||
|
||
ptrf=*treestart; // ç «® ¤¥à¥¢
|
||
|
||
while(((cmpresult=strcmp(ptrf->recid,ostptr->recid))<0&&ptrf->left!=NULL)||
|
||
|
||
(cmpresult>0&&ptrf->right!=NULL)){
|
||
|
||
if(cmpresult<0)ptrf=ptrf->left;
|
||
|
||
else ptrf=ptrf->right;
|
||
|
||
}
|
||
|
||
if(cmpresult<0)ptrf->left=ostptr; //áâப ¬¥ìè¥
|
||
|
||
else ptrf->right=ostptr;
|
||
|
||
}
|
||
|
||
if(ptr->newid)free(ptr->newid);
|
||
|
||
if(ptr->sbuf)free(ptr->sbuf);
|
||
|
||
free(ptr);
|
||
|
||
}
|
||
|
||
}
|
||
|
||
/* end of TOKE.C */
|
||
|