evo, konacno sam ispodesavao FBEdit kako mi odgovara i pocecu da radim na kompajleru za FBScript, tacnije prvo cu da napisem TokGen - alat za generisanje leksickih parsera...
evo moje VS-like teme za FBEdit:
Code:
[Themes]
.
.
.
6=Visual Studio,8388608,255,0,0,0,0,0,0,0,0,268435584,128,8388608,8404992,8421376,0,0,0,16777215,0,10485760,16777215,37781504,64,0,16777215,16777215,15329769,16777215,15132390,0,0,16777215,0,16777215,0,12644592,0,12644592,0,4194432
samo sto sam ja sve tokene ubacio u C0, C1, C10 i C11 grupe, pa mi sad [Edit] izgleda ovako:
Code:
EditFont=-15,0,Courier New
LnrFont=-12,0,Courier New
EditOpt=4,0,0,1,0,1,4,1,0,1,1,1,1,0,0,1,1,1,1,1
CodeFiles=.bas.bi.
CaseConvert=CWPp
CustColors=12644592,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Colors=8388608,255,0,0,0,0,0,0,0,0,268435584,128,8388608,8404992,8421376,0,0,0,0
C0="abs Abs access Access acos alias Alias allocate And Any append Append as As asc Asc asin asm atan2 atn Atn base Base Basic beep Beep bin bin$ Bin$ binary Binary bit bitreset bitset bload BLoad bsave BSave byref ByRef byval ByVal call Call callocate Calls Case Cast CByt cbyte CCur cdbl CDbl cdecl Cdecl chain Chain chdir ChDir ChDrive Chr chr$ Chr$ cint CInt circle clear Clear clng CLng clngint close Close cls Cls color Color Com command command$ Command$ common Common CompileLine CompileLine$ condbroadcast condcreate conddestroy condsignal condwait Const Constructor continue cos Cos cshort csign csng CSng csrlin CsrLin cubyte cuint culngint cunsg curdir CurDir$ cushort Cvb Cvc cvd Cvd cvi Cvi cvl Cvl cvs Cvs data Data date date$ Date$ deallocate Declare Def defbyte DefCur DefDbl defined DefInt DefLng defshort DefSng DefStr defubyte defuint defushort Destructor dim Dim dir dir$ Dir$ DisableBOPT DisableFold DisableIncDec DisablePeriodMsg DisableShifts DisableTest DisableTrim do Do draw dylibfree dylibload dylibsymbol dynamic Else ElseIf End EndIf enum environ Environ environ$ Environ$ eof Eof eqv Eqv erase Erase ErDev ErDev$ Erl err Err error Error Error$ escape Event exec exepath exit Exit exp Exp explicit Explicit export extern False Field FileAttr Files Fix fix flip For for Fortran Fre fre FreeFile freefile Function Get get getkey getmouse Go GoSub gosub GoTo goto hex Hex$ hex$ hibyte hiword If iif Imp imp InKey$ inkey$ Inp inp Input input Input$ input$ Instr instr Int int IoCtl IoCtl$ Is is Key Kill kill LBound lbound lcase LCase$ lcase$ left Left$ left$ Len len Let let Lib lib Line line LineNumber List lobyte Loc loc Local local Locate locate Lock lock Lof lof Log log Loop loop loword LPos LPrint LSet lset ltrim LTrim$ ltrim$ mid mid$ Mkb$ Mkc$ mkd Mkd$ mkd$ MkDir mkdir mki Mki$ mki$ mkl Mkl$ mkl$ mklongint mks Mks$ mks$ mkshort Mod mod multikey mutexcreate mutexdestroy mutexlock mutexunlock Name name Namespace Next next Not Null oct Oct$ oct$ Off Offset On on once Open open Operator Option option Or Out out Output output overload paint palette Pascal pascal pcopy Peek peek PeekByte PeekCurr peeki PeekLong peeks PeekWord Pen Play pmap point Pointer Poke poke PokeByte PokeCurr pokei PokeLong pokes PokeWord Pos pos Preserve preserve preset Print private procptr Property pset public Put put Random random Randomize randomize Read read reallocate ReDim redim Rem Reset reset Restore restore Resume resume resume Return return rgb right Right$ right$ RmDir rmdir Rnd rnd Rol Ror RSet rset rtrim RTrim$ rtrim$ Run run Sadd sadd Scope Screen screen screencopy screeninfo screenlock screenptr screenres screenset screenunlock Seek seek Seg Seg$ Select setenviron SetMem Sgn sgn Shared shared Shell shell Shl Shr Signal Sin sin sizeof Sleep sleep Sound space Space$ space$ Spc spc Sqr sqr Sseg Ssegadd Stack Static static Stdcall stdcall Step step Stick Stop stop Str Str$ str$ strcat strchr strcmp strcpy Strig String$ string$ strlen strncat strncmp strncpy strptr strrchr strstr Sub swap Syscall system Tab tab Tan tan Test TestNot Then threadcreate threadwait time Time$ time$ Timer timer To to trim Trim$ trim$ True Type UBound ubound ucase UCase$ ucase$ union unlock Until until Using using va_arg va_first va_next Val val val64 valint Var VarPtr varptr VarPtr$ VarSeg view wait wend while width WinCon window windowtitle WinGui with write Xor "
C1="#define #else #elseif #endif #endmacro #error #if #ifdef #ifndef #inclib #include #libpath #line #macro #pragma #print #undef "
C2=""
C3=""
C4=""
C5=""
C6=""
C7=""
C8=""
C9=""
C10="#define #include ACCELERATORS ALT AUTOCHECKBOX AUTORADIOBUTTON BEGIN BITMAP BLOCK CAPTION CLASS COMBOBOX CONTROL CURSOR DIALOGEX DISCARDABLE EDITTEXT END EXSTYLE FALSE FILEOS FILETYPE FILEVERSION FONT GROUPBOX ICON LISTBOX LTEXT MENU MENUITEM NOINVERT NULL POPUP PRODUCTVERSION PUSHBUTTON SEPARATOR SHIFT STRINGTABLE STYLE TRUE VALUE VERSIONINFO VIRTKEY "
C11="__DATE__ __FB_BIGENDIAN__ __FB_DEBUG__ __FB_DOS__ __FB_ERR__ __FB_LANG__ __FB_LINUX__ __FB_MAIN__ __FB_MIN_VERSION__ __FB_MT__ __FB_OPTION_BYVAL__ __FB_OPTION_DYNAMIC__ __FB_OPTION_ESCAPE__ __FB_OPTION_EXPLICIT__ __FB_OPTION_PRIVATE__ __FB_OUT_DLL__ __FB_OUT_EXE__ __FB_OUT_LIB__ __FB_OUT_OBJ__ __FB_SIGNATURE__ __FB_VER_MAJOR__ __FB_VER_MINOR__ __FB_VER_PATCH__ __FB_VERSION__ __FB_WIN32__ __FILE__ __File_Nq__ __FUNCTION__ __Function_Nq__ __LINE__ __PATH__ __TIME__ "
C12=""
C13=""
C14=""
C15=""
C16=""
C17=""
C18=""
C19=""