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)