home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / win_txl / global.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-13  |  7.5 KB  |  158 lines
  1. /************************************************************************
  2. *                .......................................                *
  3. *                .                                     .                *
  4. *                .       TOOLBOX - INTERPRETER         .                *
  5. *                .       HEADERDATEI->TXL.C            .                *
  6. *                .             GLOBAL.H                .                *
  7. *                .    M.Beising & K.Bauer & TOOLBOX    .                *
  8. *                .......................................                *
  9. *************************************************************************/
  10.  
  11. #define wX 10
  12. #define wY 10
  13. #define wW 620
  14. #define wH 250
  15.  
  16. extern PTNODE CreateTree(char Fktzeile[],int *ErrorPos,int *ErrorNr);
  17. extern void DelTree(PTNODE *ptnode);
  18. extern double Calc(PTNODE *ptnode);
  19. extern float random(void);
  20. extern void LiesDaten(void);
  21. extern void SaveDaten(void);
  22.  
  23. extern BOOL FAR PASCAL TypeHelp(HWND, unsigned, WORD, LONG);
  24. extern BOOL FAR PASCAL SetTextBox(HWND, unsigned, WORD, LONG);
  25. extern BOOL FAR PASCAL HelpBox(HWND, unsigned, WORD, LONG);
  26. extern BOOL FAR PASCAL Input(HWND, unsigned, WORD, LONG);
  27. extern BOOL FAR PASCAL About(HWND, unsigned, WORD, LONG);
  28. extern HANDLE FAR PASCAL OpenDlg(HWND, unsigned, WORD, LONG);
  29. extern void menuecommand(HWND hWnd,WORD wParam);
  30. extern void writeclipbrd(HWND hWnd,char *writestr);
  31. extern void MakeHelpPathName(char *szFileName);
  32. extern void readclipbrd(HWND hWnd,BOOL ausgabe);
  33. extern void writeclipbrd(HWND hWnd,char *writestr);
  34.  
  35. PRGZEILE *FirstLine,*ActLine,NewLine,*LastLine,*WaitLine=NULL;
  36. DWORD  dwTextlen,TOSCROLL;
  37. OFSTRUCT fileInfo;
  38. TEXTMETRIC tm;
  39. FORARRAY forcalc[FORWHILETIEFE];
  40.  
  41. unsigned char Leerstring[81]= ">                                                                               ";
  42. unsigned char Textstr[ZEILENLAENGE]= "?";
  43. unsigned char Questr[ZEILENLAENGE];
  44. unsigned char PrintBuf[ZEILENLAENGE];
  45. LPSTR Ersetzstr=NULL;
  46.  
  47.  
  48. char FileName[FNAMLEN];
  49. char ReadBuffer[ZEILENLAENGE];
  50. char Charakter,*LinePos;
  51. char IntegerZahl[25];
  52. char szAppName[10];
  53. char szAbout[10];
  54. char szMessage[30];
  55. char *LinePos,ScanBuffer[ZEILENLAENGE];
  56. char szHelpFileName[129];
  57. VAR  *FirstVar = NULL;
  58. VAR  Variable;
  59. RECT rect;
  60. HFONT oldFont,newFont;
  61. HPEN hOldPen,hWeissPen,hBlackPen,hBlauPen,hGruenPen,hTurkisPen;
  62. HPEN FARBPEN,hRedPen,hGrauPen,hViolettPen,hGelbPen;
  63. HBITMAP hBitmap,hOldBitmap;
  64. HANDLE hInst,hEditText;
  65. FARPROC lpProcTextBox,lpprocAbout,lpProcTemp,lpOpenDlg;
  66. HWND hWndglob,hWndEdit;
  67. HDC hPrnDC;
  68. LOGFONT mF;
  69. HCURSOR hHelpCursor;
  70.  
  71. HBRUSH hOldBrush,hBlackBrush,hBlauBrush,hGruenBrush,hTurkisBrush,hRedBrush;
  72. HBRUSH FARBBRUSH,hGrauBrush,hWeissBrush,hViolettBrush,hGelbBrush;
  73. POINT pt;
  74.  
  75. BOOL RUNBREAK=FALSE,LoadFile=FALSE,bText=FALSE,PrMsgBox=FALSE,Mono = FALSE;
  76. BOOL bHelp=FALSE,locate=FALSE,Edit=FALSE,TreeError=FALSE,IntError=TRUE,NeedNext;
  77. BOOL bCaret=FALSE,Anfang=TRUE,FontChange=FALSE,Drucker=FALSE,Mehr=FALSE;
  78.  
  79. int Brush=0,MessageLength,Steuer,Zeile=0,GetNextLine;
  80. int Backgrd=15,AktPos,ErrTyp,ErrPos,ErrNr,XW1,XW2,XW3,XW4,YW1,YW2,YW3,YW4;
  81. int charcnt=0,TXW1=0,TYW1=8,TXW2=8,TYW2=500,TXW3=0,TXW4=0,TYW3=0;
  82. int TORIENT=0,TESCP=0,TOutP=0,TCliP=0,TQual=0,TFam=10,oem=255,Pen=0;
  83. int icnt,ini,ForCnt=0,TextCol=-1,x=0,fio,Readcnt=0;
  84. unsigned int slen;
  85. WORD  what;
  86. DWORD FLOODFARBE,GRAU,GELB,TURKIS,ROT,GRUEN,VIOLETT,BLACK,WEISS,BLAU;
  87.  
  88. char *MFONT[]= { "System","Terminal",
  89.                      "Helvetica","Courier",
  90.                      "Tms Rmn","Roman",
  91.                      "Script","Modern" };
  92.  
  93. TOKBEF  TokBefDesc[] = {
  94.           { cinput,       "input"     ,       1,           1},
  95.           { cwtitle,      "titlewindow",      1,           1},
  96.           { crectangle,   "rectangle" ,       1,           1},
  97.           { clineto,      "line"      ,       1,           1},
  98.           { cellipse,     "ellipse"   ,       1,           1},
  99.           { croundrect,   "roundrect" ,       1,           1},
  100.           { carc,         "arc"       ,       1,           1},
  101.           { csetpxl,      "setpixel"  ,       1,           1},
  102.           { cmove,        "movewindow",       1,           1},
  103.           { cpie,         "pie"       ,       1,           1},
  104.           { csetprint,    "setprinter",       0,           0},
  105.           { cplay,        "play"      ,       1,           1},
  106.           { ccls,         "cls"       ,       0,           0},
  107.           { crun,         "run"       ,       0,           0},
  108.           { cdruck,       "print"     ,       0,           1},
  109.           { cneu,         "new"       ,       0,           0},
  110.           { cif,          "if"        ,       2,           1},
  111.           { cload,        "load"      ,       1,           1},
  112.           { csave,        "save"      ,       1,           1},
  113.           { cgoto,        "goto"      ,       1,           0},
  114.           { cende,        "end"       ,       0,           0},
  115.           { cexit,        "system"    ,       0,           0},
  116.           { cmerke,       "rem"       ,       0,           1},
  117.           { clist,        "list"      ,       0,           1},
  118.           { cset,         "let"       ,       3,           1},
  119.           { cscreen,      "setscreen" ,       0,           0},
  120.           { ctexttype,    "typeset"   ,       1,           1},
  121.           { cllist,       "llist"     ,       1,           1},
  122.           { clocate,      "locate"    ,       1,           1},
  123.           { cpolyline,    "polyline"  ,       1,           1},
  124.           { cflodfil,     "floodfill"  ,      1,           1},
  125.           { ctextcol,     "settextcolor",     1,           1},
  126.           { cbackgrd,     "setbkcolor",       1,           1},
  127.           { ccolor,       "setcolor"  ,       1,           1},
  128.           { cpencolor,    "setpencolor",      1,           1},
  129.           { messagebox,   "msgbox"    ,       1,           1},
  130.           { cviereck,     "viereck"   ,       1,           1},
  131.           { crectline,    "rectline"  ,       1,           1},
  132.           { cinline,      "inline"    ,       1,           1},
  133.           { cfor,         "for"       ,       1,           1},
  134.           { cnext,        "next"      ,       1,           1},
  135.           { cwhile,       "while"     ,       1,           1},
  136.           { cwend,        "wend"      ,       1,           1},
  137.           { ccursor,      "cursor"    ,       1,           1},
  138.           { crunb,        "runb"      ,       0,           0},
  139.           { ccommands,    "commands"  ,       0,           0},
  140.           { cbeep,        "messagebeep",      0,           0},
  141.           { creadclp,     "readclipboard",    1,           1},
  142.           { cwritclp,     "writeclipboard",   1,           1},
  143.           { cneu,         "neu"       ,       0,           0},
  144.           { crun,         "lauf"      ,       0,           0},
  145.           { cmerke,       "merke"     ,       0,           1},
  146.           { cdruck,       "drucke"    ,       0,           1},
  147.           { cset,         "setze"     ,       3,           1},
  148.           { cload,        "lade"      ,       1,           1},
  149.           { csave,        "speichere" ,       1,           1},
  150.           { cif,          "wenn"      ,       2,           1},
  151.           { clist,        "liste"     ,       0,           1},
  152.           { cgoto,        "gehezu"    ,       1,           0},
  153.           { cexit,        "verlasse"  ,       0,           0},
  154.           { cende,        "ende"      ,       0,           0},
  155.           { NULL,         NULL        ,       0,           0}
  156. };
  157.  
  158.