Subversion Repositories Kolibri OS

#define _MAIN_

#ifdef _UNIX_

#define DIV_PATH ':'			//äåëèòåëü ïóòåé â ïåðåìåííîé îêðóæåíèÿ PATH

#define DIV_FOLD '/'			//ýòèì ñèìâîëîì ðàçäåëÿþòñÿ ïàïêè â ïóòè ê ôàéëó

#endif

#ifdef _WIN32_

#define DIV_PATH ';'

#define DIV_FOLD '\\'

#endif

#ifdef _KOS_

#define DIV_PATH ';'

#define DIV_FOLD '/'

#endif

#include 

#include 

#include 

#include 

#include "tok.h"

static char **_Argv; //!!! simplest way to make your own variable

unsigned char compilerstr[]="SPHINX C-- 0.239";

char *rawfilename;					/* file name */

char *rawext;

LISTCOM *listcom;

EWAR wartype={NULL,NULL},errfile={NULL,NULL};

int numfindpath=0;

char *findpath[16];

char modelmem=TINY;

char *stubfile=NULL;

char *winstub=NULL;

FILE *hout=NULL;

char *namestartupfile="startup.h--";

char outext[4]="com";

short extflag=TRUE;//ðàñøèðåíèå ìîæíî ïðèñâîèòü

//int scrsize;

unsigned char gwarning=FALSE;

unsigned char sobj=FALSE;

unsigned char usestub=TRUE;

unsigned char dpmistub=FALSE;

short dllflag=FALSE;

static int numstr;

char meinfo[]=

	"\nEdition of this version by\n"

	"    Mishel Sheker\n"

	"    Fido 2:5021/3.40\n"

	"    E-Mail sheker@mail.ru\n"

	"    Russia";

time_t systime;

struct tm timeptr;

char comsymbios=FALSE;

char fobj=FALSE;	//ïðèçíàê ãåíåðàöèè obj

unsigned int	startptr = 0x100; 			// start address

unsigned char wconsole=FALSE;	//ïðèçíàê ãåíåðàöèè êîíñîëüíîãî ïðèëîæåíèÿ windows

unsigned char optstr=FALSE;	//îïòèìèçàöèÿ ñòðîêîâûõ êîíñòàíò

unsigned char crif=TRUE;	//check reply include file

unsigned char idasm=FALSE;	//àññåìáëåðíûå èíñòðóêöèè ñ÷èòàòü èäåíòèôèêàòîðàìè

unsigned char wbss=2;	//ïîñò ïåðåìåííûå â îòäåëüíóþ ñåêöèþ

unsigned char use_env=FALSE;	//ïåðåìåííàÿ îêðóæåíèÿ

int numrel=0;	//÷èñëî ýëåìåíòîâ â òàáëèöå ïåðåìåùåíèé

unsigned char useordinal=FALSE;

unsigned char useDOS4GW=FALSE;

unsigned char clearpost=FALSE;

unsigned char uselea=TRUE;

unsigned char regoverstack=TRUE;

unsigned char shortimport=FALSE;

unsigned char useinline=2;

unsigned char ocoff=FALSE;

unsigned char ESPloc=FALSE;

int startupfile=-1;

int alignproc=8,aligncycle=8;

char *usage[]={

"USAGE: C-- [options] [FILE_NAME.INI] [SOURCE_FILE_NAME]",

"",

"                       C-- COMPILER OPTIONS",

"",

"                           OPTIMIZATION",

"/OC  optimize for code size           /DE  enable temporary expansion variable",

"/OS  optimize for speed               /OST enable optimization string",

"/ON  enable optimization number       /AP[=n] align start function",

"/UST use startup code for variables   /AC[=n] align start cycles",

#ifdef OPTVARCONST

"/ORV replace variable on constant     /OIR skip repeated initializing register",

#else

"                                      /OIR skip repeated initializing register",

#endif

"",

"                          CODE GENERATION",

"/2   80286 code optimizations         /SA=#### start code address",

"/3   80386 code optimizations         /AL=## set value insert byte",

"/4   80486 code optimizations         /WFA fast call API functions",

"/5   pentium code optimizations       /IV  initial all variables",

"/A   enable address alignment         /SUV=#### start address variables",

"/AS[=n] def. alignment in structures  /LRS load in registers over stack",

"/UL  use 'lea' for adding registers   /JS  join stack calling functions",

"/BA  byte access to array",//             /ASP addressing local variable via ESP",

"",

"                           PREPROCESSOR",

"/IP=  include file path         /IA   assembly instructions as identifier",

"/D= defined identifier        /CRI- not check include file on repeated",

"/MIF= main input file           /IND= import name from dll",

"/SF=  other startup file",

"",

"                              LINKING",

"/AT    insert ATEXIT support block    /NS    disable stub",

"/ARGC  insert parse command line      /S=#####  set stack size",

"/P     insert parse command line      /WIB=##### set image base address",

"/C     insert CTRL ignoring code   /WFU   add Fix Up table, for Windows",

"/R     insert resize memory block     /WMB   create Windows mono block",

"/ENV   insert variable with environ   /WS= set name stub file for win32",

"/J0    disable initial jump to main() /WBSS  set post data in bss section",

"/J1    initial jump to main() short   /WO    call API functions on ordinals",

"/J2    initial jump to main() near    /CPA   clear post area",

"/STUB=  set name stub file      /WSI   short import table, for Windows",

"/DOS4GW file running with DOS4GW      /WAF=#### align Windows file (def 512)",

"/STM   startup code in main function",

"",

"                           OUTPUT FILES",

"/TEXE DOS EXE file (model TINY)       /D32  EXE file (32bit code for DOS)",

"/EXE  DOS EXE file (model SMALL)      /W32  EXE for Windows32 GUI",

"/OBJ  OBJ output file                 /W32C EXE for Windows32 console",

"/SOBJ slave OBJ output file           /DLL  DLL for Windows32",

"/COFF OBJ COFF output file            /DBG  create debug information",

"/SYM  COM file symbiosis              /LST  create assembly listing",

"/SYS  device (SYS) file               /B32  32bit binary files",

"/MEOS executable file for MeOS        /MAP  create function map file",

"/EXT=  set file extension",

"",

"                           MISCELLANEOUS",

"/HELP /H /? help, this info           /WORDS list of C-- reserved words",

"/W         enable warning             /LAI   list of assembler instructions",

"/WF= direct warnings to a file  /ME    display my name and my address",

"/MER=##    set maximum number errors  /X     disable SPHINX C-- header in output",

"/NW=##     disable selected warnings  /WE=## selected warning will be error",

//" /SCD        split code and date",

NULL};

char *dir[]={

	"ME",    "WORDS",   "SYM",   "LAI",

	"OBJ",   "SOBJ",    "J0",		 "J1",     "J2",    "C",     "R",

	"P",     "X",       "EXE",   "S",      "SYS",   "ARGC",  "TEXE",

	"ROM",   "W32",     "D32",   "W32C",   "AT",    "WFA",   "SA",

	"STM",   "SUV",     "UST",   "MIF",    "DLL", 	"DOS4GW","ENV",

	"CPA",   "WBSS",    "MEOS",  "SF",     "B32",   "WIB",   "DBG",

	"OS",    "OC",      "A",     "0",      "1",     "2",     "3",

	"4",     "5",       "6",     "7",      "8",     "9",     "W",

	"WF",    "DE",

	"ON",    "IP",      "STUB",  "NS",     "AP",    "D",     "OST",

	"CRI",   "IA",      "SCD",   "AL",     "WFU",   "IV",

	"MER",   "WMB",     "HELP",  "H",      "?",     "AC",    "WS",

	"IND",   "WO",      "NW",    "LST",    "AS",    "UL",    "LRS",

	"WSI",   "WAF",     "OIR",   "COFF",   "JS",    "BA",    "ASP",

#ifdef OPTVARCONST

	"ORV",

#endif

   "MAP",  "WE",   "EXT",   NULL};

enum {

	c_me,    c_key,     c_sym,   c_lasm,   c_endinfo=c_lasm,

	c_obj,   c_sobj,    c_j0,    c_j1,     c_j2,    c_ctrlc, c_r,

	c_p,     c_x,		    c_exe,   c_s,      c_sys,   c_arg,   c_texe,

	c_rom,   c_w32,     c_d32,   c_w32c,   c_at,    c_wfa,   c_sa,

	c_stm,   c_suv,     c_ust,   c_mif,    c_dll,   c_d4g,   c_env,

	c_cpa,   c_wbss,    c_meos,  c_sf,     c_b32,   c_wib,   c_dbg,

	c_endstart=c_dbg,

	c_os,    c_oc,      c_a,     c_0,      c_1,     c_2,     c_3,

	c_4,     c_5,       c_6,     c_7,      c_8,     c_9,     c_w,

	c_wf,    c_de,

	c_opnum, c_ip,      c_stub,  c_ns,     c_ap,    c_define,c_ost,

	c_cri,   c_ia,      c_scd,   c_al,     c_wfu,   c_iv,

	c_mer,   c_wmb,     c_help,  c_h,      c_hh,    c_ac,    c_ws,

	c_ind,   c_wo,      c_nw,    c_lst,    c_as,    c_ul,    c_lrs,

	c_wsi,   c_waf,     c_oir,   c_coff,   c_js,    c_ba,    c_asp,

#ifdef OPTVARCONST

	c_orv,

#endif

	c_map,   c_we,      c_ext,   c_end};

#define NUMEXT 6	//÷èñëî ðàçðåøåííûõ ðàñøèðåíèé êîìïèëèðóåìîãî ôàéëà

char extcompile[NUMEXT][4]={"c--","cmm","c","h--","hmm","h"};

#ifdef _KOS_

char __pgmname[256];

char __cmdline[256];

#endif

char *bufstr=NULL;	//áóôåð äëÿ ñòðîê èç ïðîöåäóð

int sbufstr=SIZEBUF;	//íà÷àëüíûé ðàçìåð ýòîãî áóôåðà

void compile();

void PrintInfo(char **str);

void LoadIni(char *name);

//void CheckNumStr();

void ListId(int num,unsigned char *list,short *ofs);

void printmemsizes();

void print8item(char *str);

void doposts(void);

void GetMemExeDat();

void AddJmpApi();

void startsymbiosys(char *symfile);

int writeoutput();

void BadCommandLine(char *str);

void  CheckExtenshions();

void ImportName(char *name);

void WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ

void MakeExeHeader(EXE_DOS_HEADER *exeheader);

void CheckPageCode(unsigned int ofs);

int MakePE();

int MakeObj();

void CheckUndefClassProc();

/*

PAVEL YAKOV

char* strupr(char* s)

{

  char* p = s;

  while (*p = toupper(*p)) p++;

  return s;

}

char* strlwr(char* s)

{

  char* p = s;

  while (*p = tolower(*p)) p++;

  return s;

}

int strnicmp(const char* s1, const char* s2, int len)

{

  unsigned char c1,c2;

  if(!len)

	return 0;

  do{

    c1 = *s1++;

    c2 = *s2++;

    if (!c1||!c2)

      break;

    if (c1 == c2)

      continue;

    c1 = tolower(c1);

    c2 = tolower(c2);

    if (c1!=c2)

      break;

  } while (--len);

  return (int)c1 - (int)c2;

}

*/

/*

void PrintTegList(structteg *tteg)

{

	if(tteg){

		PrintTegList(tteg->left);

		PrintTegList(tteg->right);

		puts(tteg->name);

	}

} */

//unsigned long maxusedmem=0;

void ErrOpenFile(char *str)

{

	printf("Unable to open file %s.\n",str);

}

int main(int argc,char *argv[])

{

int count;

unsigned char pari=FALSE;

	char *buffer;

	printf("\nSPHINX C-- Compiler   Version %d.%d%s   %s\r\n",ver1,ver2,betta,__DATE__);

//	scrsize=24;

	if(argc>1){

		_Argv=argv;// This make portable code

		bufstr=(char *)MALLOC(SIZEBUF);

		output=(unsigned char *)MALLOC((size_t)MAXDATA);

		outputdata=output;

		postbuf=(postinfo *)MALLOC(MAXPOSTS*sizeof(postinfo));

		strcpy((char *)string,argv[0]);

		rawext=strrchr((char *)string,DIV_FOLD);

		if(rawext!=NULL){

			rawext[0]=0;

			IncludePath((char *)string);

		}

		rawfilename=getenv("C--");

		if(rawfilename!=NULL)IncludePath(rawfilename);

		rawfilename=rawext=NULL;

		LoadIni("c--.ini");

		for(count=1;count

			//if(argv[count][0]=='/'||argv[count][0]=='-'){

			if(argv[count][0]=='-'){

				if(SelectComand(argv[count]+1,&count)==c_end) BadCommandLine(argv[count]);

			}

			else{

				if(pari==FALSE){

					rawfilename=argv[count];

					pari=TRUE;

					if((rawext=strrchr(rawfilename,'.'))!=NULL){

						if(stricmp(rawext,".ini")==0){	//óêàçàí ini ôàéë

							rawfilename=NULL;

							rawext=NULL;

							LoadIni(argv[count]);

							if(rawfilename==NULL)pari=FALSE;

						}

						else{

							*rawext++=0;

							CheckExtenshions();

						}

					}

				}

			}

		}

	}

	if(rawfilename==NULL){

		PrintInfo(usage);

		exit( e_noinputspecified );

	}

	time(&systime); //òåêóùåå âðåìÿ

	memcpy(&timeptr,localtime(&systime),sizeof(tm));

	InitDefineConst();

	compile();

	if(error==0)exit(e_ok);

	exit(e_someerrors);

	return 0;

}

void CheckExtenshions()

{

int i;

	for(i=0;i

		if(stricmp(rawext,extcompile[i])==0)break;

	}

	if(i==NUMEXT){

	 	printf("Bad input file extension '%s'.",rawext);

	  exit(e_badinputfilename);

	}

}

void compile()

{

long segments_required;

union{

	long longhold;

	void *nextstr;

};

//ñîçäàòü èìÿ ôàéëà ñ ïðåäóïðåæäåíèÿìè è åñëè îí åñòü óäàëèòü

	errfile.name=(char *)MALLOC(strlen(rawfilename)+5);

	sprintf(errfile.name,"%s.err",rawfilename);

	if(stat(errfile.name,(struct stat *)string2)==0)remove(errfile.name);

//åñëè åñòü èìÿ ôàéëà äëÿ ïðåäóïðåæäåíèé ïðîâåðèòü åãî ñóùåñòâîâàíèå è óäàëèòü.

	if(wartype.name!=NULL){

		if(stat(wartype.name,(struct stat *)string2)==0)remove(wartype.name);

	}

	puts("Compiling Commenced . . .");

	if(rawext!=NULL)sprintf((char *)string,"%s.%s",rawfilename,rawext);

	else{

		for(unsigned int i=0;i

			sprintf((char *)string,"%s.%s",rawfilename,extcompile[i]);

			if(stat((char *)string,(struct stat *)string2)==0)break;

		}

	}

	linenumber=0;

	initregstat();

#ifdef OPTVARCONST

	CreateMainLVIC();

#endif

#ifdef __NEWLEX__

	inittokn();

#endif

	compilefile((char *)string,2); //ñîáñòâåííî ðàçáîðêà è êîìïèëÿöèÿ

	puts("Link . . .");

	if(comfile==file_w32&&wbss==2){

		wbss=FALSE;

		if(wconsole==FALSE)wbss=TRUE;

	}

	if(notdoneprestuff==TRUE)doprestuff();	//startup code

	if(endifcount>=0)preerror("?endif expected before end of file");

	AddObj();

	docalls();	//äîáàâèòü âíåøíèå ïðîöåäóðû

	addinitvar();

	CheckUndefClassProc();

	if(undefoffstart!=NULL){	//âûäàòü ñïèñîê íåèçâåñòíûõ ññûëîê

		UNDEFOFF *curptr=undefoffstart;

		for(;;){

			char holdstr[80];

			UNDEFOFF *ocurptr;

			linenumber=curptr->pos->line;

			sprintf(holdstr,"\'%s\' offset undefined",curptr->name);

			currentfileinfo=curptr->pos->file;

			preerror(holdstr);

			free(curptr->pos);

			if(curptr->next==NULL)break;

			ocurptr=curptr->next;

			free(curptr);

			curptr=ocurptr;

		}

		free(curptr);

	}

	while(liststring!=NULL){

		STRING_LIST *ins;

		ins=(STRING_LIST *)liststring;

		nextstr=ins->next;

		free(liststring);

		liststring=nextstr;

	}

	free(bufstr);

	if(warning==TRUE&&wact[7].usewarn)WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ

	if(numstrtbl)CreatStrTabRes();	//çàâåðøèòü ñîçäàíèå ðåñóðñîâ

	if(fobj==FALSE){

		if(comfile==file_w32&&error==0){

			AddJmpApi();	//êîñâåííûå âûçîâû API

			CreatWinStub();

		}

		longhold=outptr;

		if(comfile==file_rom){

			ooutptr=outptr;

			if(modelmem==SMALL){

				*(short *)&output[stackstartaddress]=(short)(((outptrdata+postsize+stacksize)/4+1)*4);

				*(short *)&output[dataromstart]=(short)(outptr+4);

				*(short *)&output[dataromsize]=(short)(outptrdata/2);

//				printf("outptr=%d outptrdate=%d outptrsize=%d\n",outptr,outptrdata,outptrsize);

				for(unsigned int i=0;i

			}

			if(romsize==0){

				unsigned int i=outptr/1024;

				if((outptr%1024)!=0)i++;

				if(i>32)i=64;

				else if(i>16)i=32;

				else if(i>8)i=16;

				else if(i>4)i=8;

				else if(i>2)i=4;

		 		romsize=i*1024;

				output[2]=(unsigned char)(romsize/512);

			}

			if(outptr>=romsize)preerror("The size of a code is more than the size of the ROM");

			for(;outptr

			unsigned char summa=0;

			for(unsigned int i=0;i

			output[romsize-1]-=summa;

			outptr=ooutptr;

		}

		else if(modelmem==SMALL&&comfile==file_exe){ // if an EXE file

			longhold+=AlignCD(CS,16);

//			if((outptr%16)!=0)outptr+=16-outptr%16;// paragraph align the end of the code seg

			if(((long)outptrdata+(long)postsize+(long)stacksize)>65535L)

					preerror("Data and stack total exceeds 64k");

		}

		else if(comfile==file_sys){

			for(int i=0;i

				searchvar((listcom+i)->name);

				*(short *)&output[syscom+i*2]=(unsigned short)itok.number;

			}

			free(listcom);

		}

		else longhold+=(long)postsize+(long)(stacksize);

		if(am32==0&&longhold>65535L&&!(modelmem==TINY&&(!resizemem)))preerror("Code, data and stack total exceeds 64k");

		if(posts>0)doposts();  //Óñòàíîâèòü àäðåñà âûçîâîâ ïðîöåäóð è ïåðåõîäîâ

		if(resizemem&&comfile==file_com){

			segments_required=(outptr+postsize+stacksize+15)/16;

			*(short *)&output[resizesizeaddress]=(short)segments_required;

			*(short *)&output[stackstartaddress]=(short)(segments_required*16);

		}

	}

	deinitregstat();

#ifdef OPTVARCONST

	KillMainLVIC();

#endif

//	puts("List Teg name:");

//	PrintTegList(tegtree);

	printf("COMPILING FINISHED.  Errors: %d\n",error);

	if(error==0){

		if(cpu>=1){

			char m1[12];

			switch(cpu){

				case 5:

					strcpy(m1,"Pentium");

					break;

				case 6:

					strcpy(m1,"MMX");

					break;

				case 7:

					strcpy(m1,"Pentium II");

					break;

				case 8:

					strcpy(m1,"Pentium III");

					break;

				case 9:

					strcpy(m1,"Pentium IV");

					break;

				default: sprintf(m1,"80%d86",cpu);

			}

			printf("CPU required: %s or greater.\n",m1);

		}

		runfilesize=outptr-startptr;

		if(comfile==file_rom)runfilesize=romsize;

		else if(modelmem==SMALL&&comfile==file_exe){

			runfilesize+=outptrdata-startptrdata+0x20;

			postsize+=postsize%2;

			stacksize=(stacksize+15)/16*16;

		}

		else if((comfile==file_exe||comfile==file_d32)&&modelmem==TINY)

				runfilesize+=0x20;

		printmemsizes();

		endinptr=outptr;

		if(writeoutput()==0)printf("Run File Saved (%ld bytes).\n",runfilesize);

		if(comfile==file_w32&&fobj==FALSE)printf("Created file of a format PE for Windows.\nFor alignment section code, added %u zero bytes.\n",filingzerope);

//		else if(FILEALIGN&&fobj==FALSE)printf("For alignment file, added %u zero bytes.\n",filingzerope);

	}

		if(pdbg)DoTDS();

}

void printmemsizes()

{

long stacklong;

unsigned int stackword;

unsigned int postword,codeword;

	postword=postsize;

	codeword=outptr-startptr;

	stackword=stacksize;

	if(comfile==file_com||(comfile==file_exe&&modelmem==TINY)){

		if(resizemem==0){

			stacklong=0xFFFE - outptr - postsize;

			stackword=stacklong;

		}

		codeword=codeword-datasize-alignersize;

	}

	else if(comfile==file_sys)stackword=sysstack;

	else if(comfile==file_exe||comfile==file_rom)datasize=outptrdata;

	else if(comfile==file_d32)codeword-=datasize;

	printf("Code: %u bytes, Data: %u bytes, Post: %u bytes, Stack: %u bytes\n"

			,codeword,datasize,postword,stackword);

	for(int i=0;i

		switch((postbuf+i)->type){

			case CODE_SIZE:

				*(short *)&output[(postbuf+i)->loc]+=codeword;

				break;

			case CODE_SIZE32:

				*(long *)&output[(postbuf+i)->loc]+=codeword;

				break;

			case DATA_SIZE:

				*(short *)&output[(postbuf+i)->loc]+=datasize;

				break;

			case DATA_SIZE32:

				*(long *)&output[(postbuf+i)->loc]+=datasize;

				break;

			case POST_SIZE:

				*(short *)&output[(postbuf+i)->loc]+=postword;

				break;

			case POST_SIZE32:

				*(long *)&output[(postbuf+i)->loc]+=postword;

				break;

			case STACK_SIZE:

				*(short *)&output[(postbuf+i)->loc]+=stackword;

				break;

			case STACK_SIZE32:

				*(long *)&output[(postbuf+i)->loc]+=stackword;

				break;

		}

	}

}

void PrintInfo(char **str)

{

	numstr=1;

	for(int i=0;str[i]!=NULL;i++){

		puts(str[i]);

//		CheckNumStr();

	}

}

/*void CheckNumStr()

{

#ifndef _UNIX_

	if(((numstr+1)%(scrsize-1))==0&&outfile!=0){

		puts("Press any key...");

		getch();

	}

	numstr++;

#endif

} */

void strbtrim(char *st)

{

int i;

char *p,*q;

	p=q=st;

	while(isspace(*p))p++;	//ïîêà íåçíà÷àùèå ñèìâîëû

	while(*p)*q++=*p++;     //ïåðåìåñòèòü ñòðîêó

	*q='\0';

	for(i=strlen(st)-1;isspace(st[i])&&i>=0;i--);

	st[i+1]='\0';

}

unsigned long getnumber(unsigned char *buf)

{

int temp2;

unsigned long retnum;

unsigned char *oinput;

unsigned int oinptr,oendinptr;

	if(!isdigit(buf[0]))return 0;

	oinptr=inptr;

	oinput=input;

	oendinptr=endinptr;

	input=buf;

	inptr=0;

	endinptr=256;

	retnum=scannumber(&temp2);

	inptr=oinptr;

	input=oinput;

	endinptr=oendinptr;

	return retnum;

}

int SelectComand(char *pptr,int *count)

{

int i;

unsigned char neg=FALSE;

char *ptr;

int len;

	if((ptr=strchr(pptr,';'))!=NULL)*ptr=0;// èùåì êîììåíòàðèé îòñåêàåì âñå ïîñëå íåãî

        if((ptr=strchr(pptr,'='))!=NULL){ // èùåì çíàê ðàâåíñòâà

		*ptr=0; // äåëèì

		ptr++;

	  strbtrim(ptr);	//óáðàòü ëèøíèå ïðîáåëû

	}

  strbtrim(pptr);	//óáðàòü ëèøíèå ïðîáåëû

	if(*pptr==0)return c_end+1;	//ïóñòàÿ ñòðîêà

	if((i=strlen(pptr))>1&&pptr[i-1]=='-'){

		neg=TRUE;

		pptr[i-1]=0;

	}

	strupr(pptr);

	for(i=0;dir[i]!=NULL;i++){

		if(strcmp(dir[i],pptr)==0){

			if((i<=c_endinfo)&&count==0){

				char buf[80];

				sprintf(buf,"Option '%s' is used only in command line",dir[i]);

				preerror(buf);

				return i;

			}

			if(i<=c_endstart&¬doneprestuff!=TRUE){

errlate:

				char buf[80];

				sprintf(buf,"Too late used '#pragma option %s'",dir[i]);

				preerror(buf);

				return i;

			}

			switch(i){

				case c_j0: jumptomain=(unsigned char)(neg!=FALSE?CALL_NEAR:CALL_NONE); header=(unsigned char)0^neg; break;

				case c_j1: jumptomain=(unsigned char)CALL_SHORT; header=(unsigned char)1; break;

				case c_j2: jumptomain=(unsigned char)(neg==FALSE?CALL_NEAR:CALL_NONE); header=(unsigned char)1^neg; break;

				case c_ctrlc: killctrlc=(unsigned char)1^neg; break;

				case c_os: optimizespeed=(unsigned char)1^neg; break;

				case c_oc: optimizespeed=(unsigned char)0^neg; break;

				case c_r: resizemem=(unsigned char)1^neg; break;

				case c_p: parsecommandline=(unsigned char)1^neg; break;

				case c_a: alignword=(unsigned char)1^neg; break;

				case c_sym:

					startptr=0x100;

					comsymbios=TRUE;

					*count=*count+1;

          startsymbiosys(_Argv[*count]);

					break;

				case c_0: chip=0; break;

				case c_1: chip=1; break;

				case c_2: chip=2; break;

				case c_3: chip=3; break;

				case c_4: chip=4; break;

				case c_5: chip=5; break;

				case c_6: chip=6; break;	//MMX

				case c_7: chip=7; break;  //Pro

				case c_8: chip=8; break;  //PII

				case c_9: chip=9; break;  //PIII

				case c_x: header=(unsigned char)0^neg; break;

				case c_exe:

					comfile=file_exe;

					modelmem=SMALL;

					splitdata=TRUE;

					GetMemExeDat();

					if(extflag) strcpy(outext,"exe");

					startptr=0; 			// start address

					startptrdata=0; 	// data start address

					dos1=2;

					dos2=0;

					break;

				case c_sys:

					comfile=file_sys;

					if(extflag) strcpy(outext,"sys");

					startptr=0; 		// start address

					startptrdata=0; 	// data start address

					jumptomain=CALL_NONE;

					header=0;

					break;

				case c_sobj:

					sobj=TRUE;

					FixUp=TRUE;

					jumptomain=CALL_NONE;

				case c_obj:

					fobj=TRUE;

//					if(comfile==file_d32)FixUp=TRUE;

					FastCallApi=FALSE;

					break;

				case c_me:

					puts(meinfo);

					exit( e_ok );

				case c_key:

					int j,jj;

					puts("LIST OF RESERVED IDENTIFIERS:");

					numstr=1;

					ListId(53,id,idofs);

					for(j=0;j

						puts(id2[j]);

//						CheckNumStr();

					}

					for(jj=0;jj<2;jj++){

						for(j=0;j<8;j++)printf("%s ",regs[jj][j]);

						puts("");

//						CheckNumStr();

					}

					for(j=0;j<8;j++)printf("%s ",begs[j]);

					puts("");

//					CheckNumStr();

					for(j=0;j<6;j++)printf("%s ",segs[j]);

					print8item("ST(%d) ");

					puts("ST");

					print8item("st(%d) ");

					puts("st");

					exit(e_ok);

				case c_lasm:

					puts("LIST OF SUPPORTED ASSEMBLER INSTRUCTIONS:");

					numstr=1;

					ListId(26,asmMnem,ofsmnem);

					exit(e_ok);

				case c_s:

					if(ptr==NULL)return c_end;

					if((stacksize=getnumber((unsigned char *)ptr))==0){

						puts("Bad stack size.");

						exit(e_unknowncommandline);

					}

					stacksize=Align(stacksize,4);

					break;

				case c_w:

					gwarning=(unsigned char)TRUE^neg;

					break;

				case c_wf:

					if(wartype.name)free(wartype.name);

					wartype.name=BackString(ptr);

					break;

				case c_de:

					divexpand=(unsigned char)TRUE^neg;

					break;

				case c_opnum:

					optnumber=(unsigned char)TRUE^neg;

					break;

				case c_ip:

					IncludePath(ptr);

					break;

				case c_arg:

					parsecommandline=(unsigned char)TRUE^neg;

					fargc=(unsigned char)TRUE^neg;

					break;

				case c_texe:

					if(extflag) strcpy(outext,"exe");

					comfile=file_exe;

					break;

				case c_rom:

					if(extflag) strcpy(outext,"rom");

					comfile=file_rom;

					startptr=0;

					startptrdata=0; 	// data start address

					GetMemExeDat();

					break;

				case c_dll:

					wconsole=TRUE;

					dllflag=TRUE;

					if(extflag) strcpy(outext,"dll");

					comfile=file_w32;

					FixUpTable=TRUE;

					goto nexpardll;

/*					FixUp=TRUE;

					startptrdata=startptr=0;

					am32=TRUE;

					if(chip<3)chip=3;

					if(FILEALIGN==0)FILEALIGN=512;

					break;*/

				case c_w32c:

					wconsole=TRUE;

					goto init_w32;

				case c_w32:

					wconsole=FALSE;

					dllflag=FALSE;

init_w32:

					comfile=file_w32;

					goto nexpar;

				case c_d32:

					comfile=file_d32;

nexpar:

					if(extflag) strcpy(outext,"exe");

nexpardll:

					FixUp=TRUE;

					startptrdata=startptr=0;

					am32=TRUE;

					if(chip<3)chip=3;

					if(FILEALIGN==0)FILEALIGN=512;

					break;

				case c_meos:

					comfile=file_meos;

					am32=TRUE;

					startptrdata=startptr=0;

					if(extflag) strcpy(outext,"");

					if(chip<3)chip=3;

					break;

				case c_b32:

					comfile=file_bin;

					am32=TRUE;

					startptrdata=startptr=0;

					if(extflag) strcpy(outext,"bin");

					FixUp=TRUE;

					ImageBase=0;

					if(chip<3)chip=3;

					break;

				case c_stub:

					if(stubfile)free(stubfile);

					stubfile=BackString(ptr);

					dpmistub=FALSE;

					if(stricmp(stubfile,"dpmi")==0){

						if(notdoneprestuff!=TRUE)goto errlate;

						dpmistub=TRUE;

						usestub=FALSE;

					}

					break;

				case c_ns:

					usestub=(unsigned char)0^neg;

					break;

				case c_ap:

					AlignProc=(unsigned char)1^neg;

					if(ptr!=NULL){

						alignproc=getnumber((unsigned char *)ptr);

						if(alignproc<1||alignproc>4096)alignproc=8;

					}

					break;

				case c_define:

					addconsttotree(ptr,TRUE);

					break;

				case c_ost:

					optstr=(unsigned char)TRUE^neg;

					break;

				case c_cri:

					crif=(unsigned char)1^neg;

					break;

				case c_ia:

					idasm=(unsigned char)1^neg;

					break;

				case c_dbg:

					dbg&=0xFE;

					char c;

					c=(unsigned char)1^neg;

					dbg|=c;

					if(!neg)InitDbg();

					break;

				case c_scd:

/*-----------------13.08.00 23:01-------------------

 áóäåò ââåäåíà ïîñëå äîðàáîòêè äèíàìè÷åñêèõ ïðîöåäóð

	--------------------------------------------------*/

					splitdata=(unsigned char)1^neg;

					if(modelmem==SMALL)splitdata=TRUE;

					break;

				case c_al:

					if(ptr==NULL)return c_end;

					aligner=(unsigned char)getnumber((unsigned char *)ptr);

					break;

				case c_at:

					atex=(unsigned char)1^neg;

					break;

				case c_wfa:

					FastCallApi=(unsigned char)1^neg;

					break;

				case c_wfu:

					FixUpTable=(unsigned char)1^neg;

					break;

				case c_wib:

					if(ptr==NULL)return c_end;

					ImageBase=getnumber((unsigned char *)ptr);

					break;

				case c_iv:

					notpost=(unsigned char)1^neg;

					break;

				case c_mer:

					if(ptr==NULL)return c_end;

					if((maxerrors=getnumber((unsigned char *)ptr))==0)maxerrors=16;

					break;

				case c_sa:

					if(ptr==NULL)return c_end;

					startptrdata=startptr=getnumber((unsigned char *)ptr);

					break;

				case c_stm:

					startuptomain=(unsigned char)1^neg;

					break;

				case c_suv:

					if(ptr==NULL)return c_end;

					startStartup=getnumber((unsigned char *)ptr);

					break;

				case c_wmb:

					WinMonoBlock=(unsigned char)1^neg;

					break;

				case c_ust:

					useStartup=(unsigned char)1^neg;

					break;

				case c_help:

				case c_h:

				case c_hh:

					PrintInfo(usage);

					exit(e_ok);

				case c_mif:

					if(ptr==NULL)return c_end;

					if(rawfilename!=NULL){

						free(rawfilename);

						rawfilename=NULL;

					}

					if(rawext!=NULL){

						free(rawext);

						rawext=NULL;

					}

					char *temp;

        	if((temp=strrchr(ptr,'.'))!=NULL){

						*temp++=0;

						rawext=BackString(temp);

						CheckExtenshions();

 	  	    }

					rawfilename=BackString(ptr);

					break;

				case c_ac:

					AlignCycle=(unsigned char)1^neg;

					if(ptr!=NULL){

						aligncycle=getnumber((unsigned char *)ptr);

						if(aligncycle<1&&aligncycle>4096)aligncycle=8;

					}

					break;

				case c_ws:	//dos-stub for windows programs

					if(winstub)free(winstub);

					winstub=BackString(ptr);

					break;

				case c_ind:

					ImportName(ptr);

					break;

				case c_wbss:

					wbss=(unsigned char)1^neg;

					break;

				case c_wo:

					useordinal=(unsigned char)1^neg;

					break;

				case c_nw:

					if(ptr==NULL)return c_end;

					len=getnumber((unsigned char *)ptr);

					if(len>0&&len<=WARNCOUNT)wact[len-1].usewarn=(unsigned char)0^neg;

					break;

				case c_we:

					if(ptr==NULL)return c_end;

					len=getnumber((unsigned char *)ptr);

					if(len>0&&len<=WARNCOUNT){

						if(neg)wact[len-1].fwarn=warningprint;

						else wact[len-1].fwarn=preerror3;

					}

					break;

				case c_lst:

					SetLST(neg);

					break;

				case c_d4g:

					useDOS4GW=(unsigned char)1^neg;

					break;

				case c_env:

					use_env=(unsigned char)1^neg;

					break;

				case c_cpa:

					clearpost=(unsigned char)1^neg;

					break;

				case c_ul:

					uselea=(unsigned char)1^neg;

					break;

				case c_as:

					if(ptr){

						len=getnumber((unsigned char *)ptr);

						if(caselong(len)!=NUMNUM)strpackdef=len;

					}

					else strpackdef=(neg==FALSE?8:1);

					strpackcur=strpackdef;

					break;

				case c_lrs:

					regoverstack=(unsigned char)1^neg;

					break;

				case c_wsi:

					shortimport=(unsigned char)1^neg;

					break;

				case c_waf:

					if(ptr!=NULL){

						FILEALIGN=Align(getnumber((unsigned char *)ptr),16);

					}

					break;

				case c_sf:

					if(ptr==NULL)return c_end;

					namestartupfile=BackString(ptr);

					break;

				case c_oir:

					optinitreg=(unsigned char)1^neg;

					break;

				case c_coff:

					ocoff=(unsigned char)1^neg;

					break;

				case c_js:

					addstack=(unsigned char)1^neg;

					if(addstack==0)RestoreStack();

					break;

				case c_ba:

					bytesize=(unsigned char)1^neg;

					break;

				case c_asp:

					if(blockproc)goto errlate;

					else ESPloc=(unsigned char)1^neg;

					break;

#ifdef OPTVARCONST

				case c_orv:

					replasevar=(unsigned char)1^neg;

					if(replasevar&&listvic)ClearLVIC();

					break;

				case c_map:

					mapfile=(unsigned char)1^neg;

					break;

#endif

				case c_ext:     //***lev***

					strcpy(outext,BackString(ptr)); //***lev***

					extflag=FALSE; //÷òîáû ðàñøèðåíèå íå ïåðåçàáèâàëîñü äðóãèìè êëþ÷àìè, åñëè îíè èäóò ïîçæå

					break;  //***lev***

			}

			break;

		}

	}

	return i;

}

void SetLST(unsigned char neg)

{

	if(((dbg&2)>>1)==neg){

		dbg&=0xFD;

		unsigned char c=(unsigned char)((1^neg)<<1);

		dbg|=c;

		if(neg){

			if((dbg&0xFE)==0)dbgact=TRUE;

			AddEndLine();

		}

		else{

			InitDbg();

			if(notdoneprestuff!=TRUE)dbgact=FALSE;	//startup cod

		}

	}

}

void print8item(char *str)

{

//	CheckNumStr();

	for(int j=0;j<8;j++)printf(str,j);

	puts("");

}

void _loadIni(FILE *inih)

{

	char m1[256];

	for(;;){

		if(fgets(m1,255,inih)==NULL)break;

		if(SelectComand(m1,0)==c_end)BadCommandLine(m1);

	}

	fclose(inih);

}

void LoadIni(char *name)

{

FILE *inih;

char m1[256];

							// load name

	if (inih = fopen(name,"rb"))

	{_loadIni(inih);return;}

	if(strcmp(name,"c--.ini")!=0)

			return;

							//load findpath[0]\c--.ini

	if (findpath[0]!=0)

	{

		sprintf(m1,"%s%s",findpath[0],name);

		if (inih = fopen(m1,"rb"))

		{_loadIni(inih);return;}

	}

							//load PATH[i=0..end]/c--.ini

	char* pth = getenv("PATH");

	if (pth != 0)

	{

		char* start;