//------------------------------------------------------------ // Project: Open Tools for Xbase++ - // Repository : http://www.xbwin.com - // Author: Pablo Botella Navarro ( http://www.xbwin.com ) - //------------------------------------------------------------ #ifndef _OT4XB_CH_ #define _OT4XB_CH_ #pragma library ("ot4xb.lib") // --------------------------------------------------------------------------- #ifndef CRLF #define CRLF (Chr(13)+Chr(10)) #endif #xcommand DEFAULT := => := iif( == NIL, , ) #xtranslate BYNAME [, ] => :: := [; :: := ] #xtranslate BYNAME DEFAULT => :: := iif( == NIL , , ) #xtranslate BYNAME IFNONIL => if != NIL ; :: := ; end // #define MAX(x,y) ( iif( x > y , x , y) ) // #define MIN(x,y) ( iif( x < y , x , y) ) #xtranslate StrTrim() => LTrim(Str()) // --------------------------------------------------------------------------- #pragma Map( UUIDCREATE, "_UUIDCREATE" ) //---------------------------------------------------------------------------------------------------------------------- #ifdef OT4XB_DEBUG #ifndef OT4XB_ASSERT_ALL #define OT4XB_ASSERT_ALL #endif #xtranslate ot4xb_SendFLog() => ot4xb_lSendLogStrFL( __FILE__ , __LINE__ , ) #xtranslate ot4xb_SendLog() => ot4xb_lSendLogStr( ) #else #xtranslate ot4xb_SendLog( ) => #xtranslate ot4xb_SendFLog( ) => #endif //---------------------------------------------------------------------------------------------------------------------- #ifdef OT4XB_ASSERT_ALL #ifdef OT4XB_ASSERT_LEVEL #undef OT4XB_ASSERT_LEVEL #endif #define OT4XB_ASSERT_LEVEL 100 #endif //---------------------------------------------------------------------------------------------------------------------- #ifndef OT4XB_ASSERT_LEVEL #define OT4XB_ASSERT_LEVEL 0 #endif //---------------------------------------------------------------------------------------------------------------------- #if OT4XB_ASSERT_LEVEL > 0 #xtranslate _Assert_Range_(,,) => iif( (( \> ) .or. ( \< )),; ( TlsStackPush(Error():New()) ,TlsStackTop():severity := 2,; TlsStackTop():description := "Value out of range" ,; Eval(ErrorBlock(),TlsStackPop() ) ),) #else #xtranslate _Assert_Range_(,,) => NIL #endif //------------------------------------------------------------------------------------------------------------------------- #if OT4XB_ASSERT_LEVEL > 1 #xtranslate _Assert_fp_() => iif( == 0,; ( TlsStackPush(Error():New()) ,TlsStackTop():severity := 2,; TlsStackTop():description := "Function is not declared" ,; Eval(ErrorBlock(),TlsStackPop() )),) #else #xtranslate _Assert_fp_() => NIL #endif //---------------------------------------------------------------------------------------------------------------------- #if OT4XB_ASSERT_LEVEL > 2 #xtranslate _Assert_dll_fn_(,) => iif( nFpGet({<(dll)>,<(fn)>}) == 0,; ( TlsStackPush(Error():New()) ,TlsStackTop():severity := 2,; TlsStackTop():description := "Function "+<(fn)>+" not found in dll " + <(dll)> ,; Eval(ErrorBlock(),TlsStackPop() )),) #else #xtranslate _Assert_dll_fn_(,) => NIL #endif //---------------------------------------------------------------------------------------------------------------------- #define OT4XB_LOG_WND_CLASS "11CBDBE2_0AF0_4713_B463_269FA6E2654B" //---------------------------------------------------------------------------------------------------------------------- #define GWST_S_BASE 1 #define GWST_S_EXTRA 2 #define GWST_S_ALL 3 //---------------------------------------------------------------------------------------------------------------------- #xtranslate GwstArrayNext( ) => :_link_( :_addressof_() + :_sizeof_()) #xtranslate GwstArrayPrev( ) => :_link_( :_addressof_() + :_sizeof_()) //---------------------------------------------------------------------------------------------------------------------- #xtranslate GWSTSKIPBYTES( ) => ooo:_GwstSkipBytes( ) #xtranslate GWSTGETOFFSET() => ooo:_GwstGetOffset() #xtranslate GWSTSETOFFSET( ) => ooo:_GwstSetOffset( ) #xtranslate GWSTALIGNNEXTMEMBER( ) => ooo:_GwstAlignNextMember( ) #xtranslate GWSTBACK() => ooo:_GwstBack() #xcommand GWSTBACK => GWSTBACK() #xtranslate GWSTPARENT( [ ] ) => ooo:_GwstParent( [ () ] ) #xtranslate ADDGWSTSTYLEMEMBERS() => ooo:AddGwstStyleMembers() //----------------------------------------------------------------------------------------------------------------------- #xcommand BEGIN DYNAMIC CLASS [ FROM [, ] ] [<*more*>] => ; function () ; ; local ooo ; ; local oClass := ClassObject(<(Tag)>); [;] ; ; if oClass != NIL ; ; return oClass ; ; end ; ; ooo := TXbClass():New( <(Tag)>) ; [; ooo:Parent( () ) ]; [; ooo:Parent( () )] //----------------------------------------------------------------------------------------------------------------------- #xcommand END DYNAMIC CLASS => oClass := ooo:Create() ; ooo:Destroy() ; return oClass //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC VAR [FLAGS ] => ooo:_Var(<(cName)> [, ]) #xcommand DYNAMIC CLASS VAR [FLAGS ] => ooo:_ClassVar(<(cName)> [, ]) #xcommand DYNAMIC SHARED CLASS VAR [FLAGS ] => ooo:_SharedClassVar(<(cName)> [, ]) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY BLOCK => ooo:_Property( <(cName)> , ) #xcommand DYNAMIC CLASS PROPERTY BLOCK => ooo:_ClassProperty( <(cName)> , ) #xcommand DYNAMIC READONLY PROPERTY BLOCK => ooo:_ROProperty( <(cName)> , ) #xcommand DYNAMIC READONLY CLASS PROPERTY BLOCK => ooo:_ROClassProperty( <(cName)> , ) #xcommand DYNAMIC WRITEONLY PROPERTY BLOCK => ooo:_WOProperty( <(cName)> , ) #xcommand DYNAMIC WRITEONLY CLASS PROPERTY BLOCK => ooo:_WOClassProperty( <(cName)> , ) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY READ WRITE => ; ooo:_Property(<(cc)>, {|Self,v|iif( PCount() > 1 , , ) } ) #xcommand DYNAMIC CLASS PROPERTY READ WRITE => ; ooo:_ClassProperty(<(cc)>, {|Self,v|iif( PCount() > 1 , , ) } ) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY READ => ; ooo:_ROProperty(<(cc)>, {|Self| } ) #xcommand DYNAMIC CLASS PROPERTY READ => ; ooo:_ROClassProperty(<(cc)>, {|Self| } ) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY WRITE => ; ooo:_WOProperty(<(cc)>, {|Self,v| } ) #xcommand DYNAMIC CLASS PROPERTY WRITE => ; ooo:_WOClassProperty(<(cc)>, {|Self,v| } ) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY COMPILE => ooo:_Property( <(cName)> , (&()) ) #xcommand DYNAMIC CLASS PROPERTY COMPILE => ooo:_ClassProperty( <(cName)> , (&()) ) #xcommand DYNAMIC READONLY PROPERTY COMPILE => ooo:_ROProperty( <(cName)> , (&()) ) #xcommand DYNAMIC READONLY CLASS PROPERTY COMPILE => ooo:_ROClassProperty( <(cName)> , (&()) ) #xcommand DYNAMIC WRITEONLY PROPERTY COMPILE => ooo:_WOProperty( <(cName)> , (&()) ) #xcommand DYNAMIC WRITEONLY CLASS PROPERTY COMPILE => ooo:_WOClassProperty( <(cName)> , (&()) ) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY COMPILE INSERT [, ] => ; DYNAMIC PROPERTY COMPILE cPrintf( <(ss)> , [,]) #xcommand DYNAMIC CLASS PROPERTY COMPILE INSERT [, ] => ; DYNAMIC CLASS PROPERTY COMPILE cPrintf( <(ss)> , [,]) #xcommand DYNAMIC READONLY PROPERTY COMPILE INSERT [, ] => ; DYNAMIC READONLY PROPERTY COMPILE cPrintf( <(ss)> , [,]) #xcommand DYNAMIC READONLY CLASS PROPERTY COMPILE INSERT [, ] => ; DYNAMIC READONLY CLASS PROPERTY COMPILE cPrintf( <(ss)> , [,]) #xcommand DYNAMIC WRITEONLY PROPERTY COMPILE INSERT [, ] => ; DYNAMIC WRITEONLY PROPERTY COMPILE cPrintf( <(ss)> , [,]) #xcommand DYNAMIC WRITEONLY CLASS PROPERTY COMPILE INSERT [, ] => ; DYNAMIC WRITEONLY CLASS PROPERTY COMPILE cPrintf( <(ss)> , [,]) //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY COMPILE READ WRITE => ; DYNAMIC PROPERTY COMPILE "{|Self,v|iif( PCount() > 1 ," + +"," + +")}" #xcommand DYNAMIC CLASS PROPERTY COMPILE READ WRITE => ; DYNAMIC CLASS PROPERTY COMPILE "{|Self,v|iif( PCount() > 1 ," + +"," + +")}" #xcommand DYNAMIC PROPERTY COMPILE READ => ; DYNAMIC READONLY PROPERTY COMPILE "{|Self|" + +"}" #xcommand DYNAMIC CLASS PROPERTY COMPILE READ => ; DYNAMIC READONLY CLASS PROPERTY COMPILE "{|Self|" + +"}" #xcommand DYNAMIC PROPERTY COMPILE WRITE => ; DYNAMIC WRITEONLY PROPERTY COMPILE "{|Self,v|" + +"}" #xcommand DYNAMIC CLASS PROPERTY COMPILE WRITE => ; DYNAMIC WRITEONLY CLASS PROPERTY COMPILE "{|Self,v|" + +"}" //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY COMPILE READ WRITE INSERT [, ] => ; DYNAMIC PROPERTY COMPILE "{|Self,v|iif( PCount() > 1 ," + +"," + +")}" ; INSERT [, ] #xcommand DYNAMIC CLASS PROPERTY COMPILE READ WRITE INSERT [, ] => ; DYNAMIC CLASS PROPERTY COMPILE "{|Self,v|iif( PCount() > 1 ," + +"," + +")}" ; INSERT [, ] #xcommand DYNAMIC PROPERTY COMPILE READ INSERT [, ] => ; DYNAMIC READONLY PROPERTY COMPILE "{|Self|" + +"}" INSERT [, ] #xcommand DYNAMIC CLASS PROPERTY COMPILE READ INSERT [, ] => ; DYNAMIC READONLY CLASS PROPERTY COMPILE "{|Self|" + +"}" INSERT [, ] #xcommand DYNAMIC PROPERTY COMPILE WRITE INSERT [, ] => ; DYNAMIC WRITEONLY PROPERTY COMPILE "{|Self,v|" + +"}" INSERT [, ] #xcommand DYNAMIC CLASS PROPERTY COMPILE WRITE INSERT [, ] => ; DYNAMIC WRITEONLY CLASS PROPERTY COMPILE "{|Self,v|" + +"}" INSERT [, ] //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC PROPERTY IS MASK OF => ; DYNAMIC PROPERTY ; READ lAnd( :: , ) ; WRITE ( :: := iif(v,nOr( ::,),nAndNot(::,)) ) #xcommand DYNAMIC PROPERTY IS MASK OF READONLY => ; DYNAMIC PROPERTY ; READ lAnd( :: , ) #xcommand DYNAMIC PROPERTY IS CONSTANT => DYNAMIC PROPERTY READ //---------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC CLASS PROPERTY IS MASK OF => ; DYNAMIC CLASS PROPERTY ; READ lAnd( :: , ) ; WRITE ( :: := iif(v,nOr( ::,),nAndNot(::,)) ) #xcommand DYNAMIC CLASS PROPERTY IS MASK OF READONLY => ; DYNAMIC CLASS PROPERTY ; READ lAnd( :: , ) #xcommand DYNAMIC CLASS PROPERTY IS CONSTANT => DYNAMIC CLASS PROPERTY READ //----------------------------------------------------------------------------------------------------------------------- #xcommand DYNAMIC METHOD BLOCK => ooo:_Method( <(cName)> , ) #xcommand DYNAMIC METHOD COMPILE => ; ooo:_Method( <(cc)> , (&( <(ss)>)) ) #xcommand DYNAMIC METHOD COMPILE INSERT [, ] => ; ooo:_Method( <(cc)> , (&( cPrintf( <(ss)> , [,]))) ) #xcommand DYNAMIC CLASS METHOD BLOCK => ooo:_ClassMethod( <(cName)> , ) #xcommand DYNAMIC CLASS METHOD COMPILE => ; ooo:_ClassMethod( <(cc)> , (&( <(ss)>)) ) #xcommand DYNAMIC CLASS METHOD COMPILE INSERT [, ] => ; ooo:_ClassMethod( <(cc)> , (&( cPrintf( <(ss)> , [,]))) ) //----------------------------------------------------------------------------------------------------------------------- #xcommand BEGIN STRUCTURE [EXTENDING ] [<*more*>] => ; BEGIN DYNAMIC CLASS [] ; ; GWSTPARENT( [ ] ) //----------------------------------------------------------------------------------------------------------------------- #xcommand END STRUCTURE => END DYNAMIC CLASS //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER @ => ooo:_Child( <(m)> , () ) //---------------------------------------------------------------------------------------------------------------------- #xcommand BEGIN UNION => ooo:_GwstBeginUnion() #xcommand END UNION => ooo:_GwstEndUnion() //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER DWORDNET => ooo:_Member_DWordNet( <(m)> ) #xcommand MEMBER WORDNET => ooo:_Member_WordNet( <(m)> ) //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER BOOL => ooo:_Member_Bool( <(m)> ) #xcommand MEMBER BYTE => ooo:_Member_Byte( <(m)> ) #xcommand MEMBER U_INT8 => ooo:_Member_Byte( <(m)> ) #xcommand MEMBER WORD => ooo:_Member_Word( <(m)> ) #xcommand MEMBER INT16 => ooo:_Member_Int16( <(m)> ) #xcommand MEMBER U_INT16 => ooo:_Member_Word( <(m)> ) #xcommand MEMBER SHORT => ooo:_Member_Short( <(m)> ) #xcommand MEMBER DWORD => ooo:_Member_DWord( <(m)> ) #xcommand MEMBER S_INT32 => ooo:_Member_DWord( <(m)> ) #xcommand MEMBER ULONG => ooo:_Member_ULong( <(m)> ) #xcommand MEMBER LONG => ooo:_Member_Long( <(m)> ) #xcommand MEMBER UINT => ooo:_Member_UInt( <(m)> ) #xcommand MEMBER INT => ooo:_Member_Int( <(m)> ) #xcommand MEMBER ENUM => ooo:_Member_Int( <(m)> ) #xcommand MEMBER INT32 => ooo:_Member_Int32( <(m)> ) #xcommand MEMBER LPARAM => ooo:_Member_LParam( <(m)> ) #xcommand MEMBER WPARAM => ooo:_Member_WParam( <(m)> ) #xcommand MEMBER POINTER => ooo:_Member_Pointer( <(m)> ) #xcommand MEMBER POINTER32 => ooo:_Member_Pointer32( <(m)> ) #xcommand MEMBER HANDLE => ooo:_Member_Handle( <(m)> ) #xcommand MEMBER HWND => ooo:_Member_HWND( <(m)> ) #xcommand MEMBER HDC => ooo:_Member_HDC( <(m)> ) #xcommand MEMBER PCLIPVAR => ooo:_Member_Xbase( <(m)> ) #xcommand MEMBER PXBASEVAR => ooo:_Member_Xbase( <(m)> ) #xcommand MEMBER CODEBLOCK => ooo:_Member_Xbase( <(m)> ) #xcommand MEMBER LPXBASE => ooo:_Member_Xbase( <(m)> ) #xcommand MEMBER DWORD64 => ooo:_Member_DWord64( <(m)> ) #xcommand MEMBER DOUBLE => ooo:_Member_Double( <(m)> ) #xcommand MEMBER FLOAT => ooo:_Member_Float( <(m)> ) #xcommand MEMBER LPSTR => ooo:_Member_LPSTR( <(m)> ) #xcommand MEMBER DYNSZ => ooo:_Member_DYNSZ( <(m)> ) #xcommand MEMBER XDATE => ooo:_Member_XDate( <(m)> ) //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER S_INT8 => ooo:_Member_SINT8( <(m)> ) #xcommand MEMBER S_INT16 => ooo:_Member_SINT16( <(m)> ) #xcommand MEMBER U_INT32 => ooo:_Member_UINT32( <(m)> ) #xcommand MEMBER N_INT64 => ooo:_Member_NINT64( <(m)> ) #xcommand MEMBER BYTEBOOL => ooo:_Member_ByteBool( <(m)> ) //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER LPSTR DYNSZ => MEMBER LPSTR ; ; GWSTBACK() ; ; MEMBER DYNSZ //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER DYNSZ LPSTR => MEMBER LPSTR ; ; GWSTBACK() ; ; MEMBER DYNSZ //------------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER LPSTR STRZ_READ => ; MEMBER LPSTR ; ;DYNAMIC READONLY PROPERTY BLOCK \{|s| iif( s: == 0,"",PeekStr(s:,0,-1))\} //------------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER LPSTR STR_READ_CB CBFROM => ; MEMBER LPSTR ; ;DYNAMIC READONLY PROPERTY BLOCK \{|s| iif( s: == 0,"",PeekStr(s:,0,s:))\} //------------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER POINTER32 LINK CLASS => ; MEMBER POINTER32 ; ;DYNAMIC READONLY PROPERTY BLOCK {|s| iif( s: == 0,NIL,():New():_link_(s:,.F.))} //------------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER POINTER32 LINK => ; MEMBER POINTER32 ; ;DYNAMIC READONLY PROPERTY BLOCK {|s| iif( s: == 0,NIL,s:ClassObject():New():_link_(s:,.F.))} //---------------------------------------------------------------------------------------------------------------------- #xcommand MEMBER BINSTR SIZE => ooo:_Member_BINSTR( <(m)> , ) #xcommand MEMBER SZSTR SIZE => ooo:_Member_SZSTR( <(m)> , ) #xcommand MEMBER SZWSTR SIZE => ooo:_Member_SZWSTR( <(m)> , ) //---------------------------------------------------------------------------------------------------------------------- #xcommand DELEGATE METHOD WITH PARAMLIST; =>; INLINE METHOD () ; ; local n; ; local np := PCount(); ; local ap := Array(np); ; local xr := NIL; ; for n := 1 to np ; ; ap\[n\] := PValue(n); ; next; ; if lCallMethodPA(::,<(cm)>,ap,@xr); ; for n := 1 to np ; ; PValue(n,ap\[n\]) ; ; next ; ; end; ; return xr //---------------------------------------------------------------------------------------------------------------------- #xcommand DELEGATE METHOD ( [] [,] ); =>; INLINE METHOD ( [] [,] ) ; ; return :::( [@] [,@] ) //---------------------------------------------------------------------------------------------------------------------- #xcommand DELEGATE VAR =>; INLINE ACCESS ASSIGN METHOD (v) ; ; if( PCount() > 0); ; return ::: := v ; ; end; ; return ::: //---------------------------------------------------------------------------------------------------------------------- #xcommand DELEGATE VAR READONLY =>; INLINE ACCESS METHOD () ; ; return ::: //---------------------------------------------------------------------------------------------------------------------- //---------------------------------------------------------------------------------------------------------------------- #define MAKEINTRESOURCE(n) ( nAnd(n,0xFFFF) ) #define MAKEINTATOM(n) ( nAnd(n,0xFFFF) ) //---------------------------------------------------------------------------------------------------------------------- // Constants for nGetDriveType() #ifndef ___GETDRIVETYPE___ #define ___GETDRIVETYPE___ #define DRIVE_UNKNOWN 0 #define DRIVE_NO_ROOT_DIR 1 #define DRIVE_REMOVABLE 2 #define DRIVE_FIXED 3 #define DRIVE_REMOTE 4 #define DRIVE_CDROM 5 #define DRIVE_RAMDISK 6 #endif //---------------------------------------------------------------------------------------------------------------------- #define CREATE_NEW 1 #define CREATE_ALWAYS 2 #define OPEN_EXISTING 3 #define OPEN_ALWAYS 4 #define TRUNCATE_EXISTING 5 // --------------------------------------------------------------------------- #define FILE_SHARE_READ 0x00000001 #define FILE_SHARE_WRITE 0x00000002 #define FILE_SHARE_DELETE 0x00000004 #define FILE_ATTRIBUTE_READONLY 0x00000001 #define FILE_ATTRIBUTE_HIDDEN 0x00000002 #define FILE_ATTRIBUTE_SYSTEM 0x00000004 #define FILE_ATTRIBUTE_DIRECTORY 0x00000010 #define FILE_ATTRIBUTE_ARCHIVE 0x00000020 #define FILE_ATTRIBUTE_DEVICE 0x00000040 #define FILE_ATTRIBUTE_NORMAL 0x00000080 #define FILE_ATTRIBUTE_TEMPORARY 0x00000100 #define FILE_ATTRIBUTE_SPARSE_FILE 0x00000200 #define FILE_ATTRIBUTE_REPARSE_POINT 0x00000400 #define FILE_ATTRIBUTE_COMPRESSED 0x00000800 #define FILE_ATTRIBUTE_OFFLINE 0x00001000 #define FILE_ATTRIBUTE_NOT_CONTENT_INDEXED 0x00002000 #define FILE_ATTRIBUTE_ENCRYPTED 0x00004000 #define FILE_NOTIFY_CHANGE_FILE_NAME 0x00000001 #define FILE_NOTIFY_CHANGE_DIR_NAME 0x00000002 #define FILE_NOTIFY_CHANGE_ATTRIBUTES 0x00000004 #define FILE_NOTIFY_CHANGE_SIZE 0x00000008 #define FILE_NOTIFY_CHANGE_LAST_WRITE 0x00000010 #define FILE_NOTIFY_CHANGE_LAST_ACCESS 0x00000020 #define FILE_NOTIFY_CHANGE_CREATION 0x00000040 #define FILE_NOTIFY_CHANGE_SECURITY 0x00000100 #define FILE_ACTION_ADDED 0x00000001 #define FILE_ACTION_REMOVED 0x00000002 #define FILE_ACTION_MODIFIED 0x00000003 #define FILE_ACTION_RENAMED_OLD_NAME 0x00000004 #define FILE_ACTION_RENAMED_NEW_NAME 0x00000005 #define MAILSLOT_NO_MESSAGE dwminus(1) #define MAILSLOT_WAIT_FOREVER dwminus(1) #define FILE_CASE_SENSITIVE_SEARCH 0x00000001 #define FILE_CASE_PRESERVED_NAMES 0x00000002 #define FILE_UNICODE_ON_DISK 0x00000004 #define FILE_PERSISTENT_ACLS 0x00000008 #define FILE_FILE_COMPRESSION 0x00000010 #define FILE_VOLUME_QUOTAS 0x00000020 #define FILE_SUPPORTS_SPARSE_FILES 0x00000040 #define FILE_SUPPORTS_REPARSE_POINTS 0x00000080 #define FILE_SUPPORTS_REMOTE_STORAGE 0x00000100 #define FILE_VOLUME_IS_COMPRESSED 0x00008000 #define FILE_SUPPORTS_OBJECT_IDS 0x00010000 #define FILE_SUPPORTS_ENCRYPTION 0x00020000 #define FILE_NAMED_STREAMS 0x00040000 #define FILE_READ_ONLY_VOLUME 0x00080000 // --------------------------------------------------------------------------- #define FILE_READ_DATA ( 0x0001 ) // file & pipe #define FILE_LIST_DIRECTORY ( 0x0001 ) // directory #define FILE_WRITE_DATA ( 0x0002 ) // file & pipe #define FILE_ADD_FILE ( 0x0002 ) // directory #define FILE_APPEND_DATA ( 0x0004 ) // file #define FILE_ADD_SUBDIRECTORY ( 0x0004 ) // directory #define FILE_CREATE_PIPE_INSTANCE ( 0x0004 ) // named pipe #define FILE_READ_EA ( 0x0008 ) // file & directory #define FILE_WRITE_EA ( 0x0010 ) // file & directory #define FILE_EXECUTE ( 0x0020 ) // file #define FILE_TRAVERSE ( 0x0020 ) // directory #define FILE_DELETE_CHILD ( 0x0040 ) // directory #define FILE_READ_ATTRIBUTES ( 0x0080 ) // all #define FILE_WRITE_ATTRIBUTES ( 0x0100 ) // all // --------------------------------------------------------------------------- #define WinNT_h_DELETE (0x010000) #define WinNT_h_READ_CONTROL (0x020000) #define WinNT_h_WRITE_DAC (0x040000) #define WinNT_h_WRITE_OWNER (0x080000) #define WinNT_h_SYNCHRONIZE (0x100000) // --------------------------------------------------------------------------- #define STANDARD_RIGHTS_READ WinNT_h_READ_CONTROL #define STANDARD_RIGHTS_WRITE WinNT_h_READ_CONTROL #define STANDARD_RIGHTS_EXECUTE WinNT_h_READ_CONTROL #define STANDARD_RIGHTS_REQUIRED dwfix(0x000F,0x0000) #define STANDARD_RIGHTS_ALL dwfix(0x001F,0x0000) #define SPECIFIC_RIGHTS_ALL dwfix(0x0000,0xFFFF) #define ACCESS_SYSTEM_SECURITY dwfix(0x0100,0x0000) #define MAXIMUM_ALLOWED dwfix(0x0200,0x0000) #define GENERIC_READ dwfix(0x8000,0x0000) #define GENERIC_WRITE dwfix(0x4000,0x0000) #define GENERIC_EXECUTE dwfix(0x2000,0x0000) #define GENERIC_ALL dwfix(0x1000,0x0000) // --------------------------------------------------------------------------- #define FILE_ALL_ACCESS nOr(STANDARD_RIGHTS_REQUIRED , WinNT_h_SYNCHRONIZE , 0x1FF) #define FILE_GENERIC_READ nOr(STANDARD_RIGHTS_READ,FILE_READ_DATA,FILE_READ_ATTRIBUTES,FILE_READ_EA,WinNT_h_SYNCHRONIZE) #define FILE_GENERIC_WRITE nOr(STANDARD_RIGHTS_WRITE,FILE_WRITE_DATA,FILE_WRITE_ATTRIBUTES,FILE_WRITE_EA,FILE_APPEND_DATA,WinNT_h_SYNCHRONIZE) #define FILE_GENERIC_EXECUTE nOr(STANDARD_RIGHTS_EXECUTE,FILE_READ_ATTRIBUTES,FILE_EXECUTE,WinNT_h_SYNCHRONIZE) //---------------------------------------------------------------------------------------------------------------------- #xcommand PROPERTY IS MASK OF => ; INLINE ACCESS ASSIGN METHOD (bOnOff) ; ; if( PCount() > 0 ) ; ; if( bOnOff ) ; ; :: := nOr( :: , ) ; ; else ; ; :: := nAndNot( :: , ) ; ; end ; ; return bOnOff ; ;end ; ;return lAnd( :: , ) //---------------------------------------------------------------------------------------------------------------------- #xcommand PROPERTY IS MASK OF READONLY => ; INLINE ACCESS METHOD () ; ;return lAnd( :: , ) //---------------------------------------------------------------------------------------------------------------------- #xcommand PROPERTY IS CONSTANT => ; INLINE ACCESS METHOD () ; ; return //---------------------------------------------------------------------------------------------------------------------- #xcommand CLASS PROPERTY IS MASK OF => ; INLINE ACCESS ASSIGN CLASS METHOD (bOnOff) ; ; if( PCount() > 0 ) ; ; if( bOnOff ) ; ; :: := nOr( :: , ) ; ; else ; ; :: := nAndNot( :: , ) ; ; end ; ; return bOnOff ; ;end ; ;return lAnd( :: , ) //---------------------------------------------------------------------------------------------------------------------- #xcommand CLASS PROPERTY IS MASK OF READONLY => ; INLINE ACCESS CLASS METHOD () ; ;return lAnd( :: , ) //---------------------------------------------------------------------------------------------------------------------- #xcommand CLASS PROPERTY IS CONSTANT => ; INLINE ACCESS CLASS METHOD () ; ; return //---------------------------------------------------------------------------------------------------------------------- #xcommand BEGIN VARLEN STRUCTURE => ; BEGIN STRUCTURE local _cgb_ , _cpb_ ; ; _cgb_ := "{|s|s:_read_() " ; ; _cpb_ := "{|s,v,nn| nn := %u,s:_write_(v,0,nn)," #xcommand END VARLEN STRUCTURE => ; _cgb_ += "}" ; ; _cpb_ += "s}" ; ; DYNAMIC METHOD Get COMPILE _cgb_ ; ; DYNAMIC METHOD Put COMPILE _cpb_ INSERT ooo:GwstGetOffset() ; ; END STRUCTURE #xcommand VARLEN EXTRA MEMBER SIZE TO => ; DYNAMIC VAR __ ; ; DYNAMIC PROPERTY ; READ iif(::__ == NIL,"", ::__) ; WRITE ( :: := Len(v) , ::__ := v ) ; ; _cgb_ += " + s:" + <(cc)> ; ; _cpb_ += "s:__" + <(cc)> + " := PeekStr(@v,@nn,s:" + <(sz)> + ")," //----------------------------------------------------------------------------------------------------------------------- #xtranslate AS VOID => AS QTYPE "__vo" #xtranslate AS BOOL => AS QTYPE "__bo" #xtranslate AS INT8 => AS QTYPE "__sc" #xtranslate AS CHAR => AS INT8 #xtranslate AS BYTE => AS QTYPE "__uc" #xtranslate AS INT16 => AS QTYPE "__ss" #xtranslate AS SHORT => AS INT16 #xtranslate AS WORD => AS QTYPE "__us" #xtranslate AS INT32 => AS QTYPE "__sl" #xtranslate AS INT => AS INT32 #xtranslate AS LONG => AS INT32 #xtranslate AS HANDLE => AS INT32 #xtranslate AS DWORD => AS QTYPE "__ul" #xtranslate AS ULONG => AS DWORD #xtranslate AS UINT => AS DWORD #xtranslate AS INT64 => AS QTYPE "__sq" #xtranslate AS QWORD => AS QTYPE "__uq" #xtranslate AS FLOAT => AS QTYPE "__f4" #xtranslate AS DOUBLE => AS QTYPE "__f8" #xtranslate AS POINTER => AS QTYPE "__pt" #xtranslate AS POINTER32 => AS POINTER #xtranslate AS LPSTR => AS POINTER #xtranslate AS LPBYTE => AS POINTER #xtranslate AS LPVOID => AS POINTER #xtranslate AS LPBOOL => AS QTYPE "_@bo" #xtranslate AS LPINT8 => AS QTYPE "_@sc" #xtranslate AS LPCHAR => AS LPINT8 #xtranslate AS LPUINT8 => AS QTYPE "_@uc" #xtranslate AS LPINT16 => AS QTYPE "_@ss" #xtranslate AS LPSHORT => AS LPINT16 #xtranslate AS LPWORD => AS QTYPE "_@us" #xtranslate AS LPINT32 => AS QTYPE "_@sl" #xtranslate AS LPLONG => AS LPINT32 #xtranslate AS LPDWORD => AS QTYPE "_@ul" #xtranslate AS LPINT64 => AS QTYPE "_@sq" #xtranslate AS LPQWORD => AS QTYPE "_@uq" #xtranslate AS LPFLOAT => AS QTYPE "_@f4" #xtranslate AS LPDOUBLE => AS QTYPE "_@f8" #xtranslate AS STR2WIDE => AS QTYPE "c_sw" #xtranslate AS STR2WIDE_W => AS QTYPE "c@sw" #xtranslate AS ZSTRING => AS QTYPE "c_sz" #xtranslate AS HWND => AS QTYPE "__hw" //---------------------------------------------------------------------------------------------------------------------- #xtranslate AS WPARAM => AS LONG #xtranslate AS LPARAM => AS LONG #xtranslate AS LRESULT => AS LONG //----------------------------------------------------------------------------------------------------------------------- #xcommand DLL IMPORT AS QTYPE ; [ PARAM AS QTYPE ] ; [, PARAM AS QTYPE ] ; [SYMBOL ] ; [DEFAULT := ] ; [,DEFAULT := ] ; => ; function ( [] [,] ) ; ;local _fp_ := nGetProcAddress( <(cDll)> , iif(<.cfn.>,<(cfn)>,<(fn)>) ) ; [; DEFAULT := ] ; [; DEFAULT := ] ; ; return ( _Assert_fp_( _fp_ ) , FpQCall( _fp_ , [+ ] [+ ] [,@][,@] ) ) //---------------------------------------------------------------------------------------------------------------------- #xcommand STATIC DLL IMPORT AS QTYPE ; [ PARAM AS QTYPE ] ; [, PARAM AS QTYPE ] ; [SYMBOL ] ; [DEFAULT := ] ; [,DEFAULT := ] ; => ; static function ( [] [,] ) ; ;local _fp_ := nGetProcAddress( <(cDll)> , iif(<.cfn.>,<(cfn)>,<(fn)>) ) ; [; DEFAULT := ] ; [; DEFAULT := ] ; ; return ( _Assert_fp_( _fp_ ) , FpQCall( _fp_ , [+ ] [+ ] [,@][,@] ) ) //---------------------------------------------------------------------------------------------------------------------- #xcommand DLL XIMPORT AS QTYPE ; [ PARAM AS QTYPE ] ; [, PARAM AS QTYPE ] ; [SYMBOL ] ; [DEFAULT := ] ; [,DEFAULT := ] ; => ; function ( [] [,] ) ; ; static _fp_ := NIL; ;if _fp_ == NIL ; ; _fp_ := nGetProcAddress( <(cDll)> , iif(<.cfn.>,<(cfn)>,<(fn)>) ) ; ;end ; [; DEFAULT := ] ; [; DEFAULT := ] ; ; return ( _Assert_fp_( _fp_ ) , FpQCall( _fp_ , [+ ] [+ ] [,@][,@] ) ) //---------------------------------------------------------------------------------------------------------------------- #xcommand STATIC DLL XIMPORT AS QTYPE ; [ PARAM AS QTYPE ] ; [, PARAM AS QTYPE ] ; [SYMBOL ] ; [DEFAULT := ] ; [,DEFAULT := ] ; => ; static function ( [] [,] ) ; ; static _fp_ := NIL; ;if _fp_ == NIL ; ; _fp_ := nGetProcAddress( <(cDll)> , iif(<.cfn.>,<(cfn)>,<(fn)>) ) ; ;end ; [; DEFAULT := ] ; [; DEFAULT := ] ; ; return ( _Assert_fp_( _fp_ ) , FpQCall( _fp_ , [+ ] [+ ] [,@][,@] ) ) //---------------------------------------------------------------------------------------------------------------------- #xcommand QTEMPLATE AS QTYPE [ PARAM AS QTYPE ] [, PARAM AS QTYPE ] => ; ; := [+ ] [+ ] //---------------------------------------------------------------------------------------------------------------------- #xcommand local QTEMPLATE AS QTYPE [ PARAM AS QTYPE ] [, PARAM AS QTYPE ] => ; ; local := [+ ] [+ ] //---------------------------------------------------------------------------------------------------------------------- #xcommand static QTEMPLATE AS QTYPE [ PARAM AS QTYPE ] [, PARAM AS QTYPE ] => ; ; static := [+ ] [+ ] //---------------------------------------------------------------------------------------------------------------------- #xtranslate DLL IMPORT ( [ ] [, ] ) ; [<*more*>] ; => ; DLL IMPORT AS ; [ PARAM AS ] ; [, PARAM AS ] ; //---------------------------------------------------------------------------------------------------------------------- #xtranslate DLL XIMPORT ( [ ] [, ] ) ; [<*more*>] ; => ; DLL XIMPORT AS ; [ PARAM AS ] ; [, PARAM AS ] ; //---------------------------------------------------------------------------------------------------------------------- #if OT4XB_ASSERT_LEVEL > 2 #xtranslate @:([] [,] ) => ( _Assert_dll_fn_(<(dll)>,<(fn)>) , nFpCall( {<(dll)>,<(fn)>} [,] [,] ) ) #else #xtranslate @:([] [,] ) => nFpCall( {<(dll)>,<(fn)>} [,] [,] ) #endif //---------------------------------------------------------------------------------------------------------------------- #xtranslate MEMBER BINSTR DWORD ARRAY ITEMS => ; ooo:_Member_BINSTR( <(s)> , * 4 ) ; ; ooo:_Method( <(m)> , {|s,n,v| _Assert_Range_(n,0,(-1)), s:_lock_() , iif( PCount() > 2,; PokeDWord(s:_addressof_(<(s)>), n * 4,v),; v := PeekDWord(s:_addressof_(<(s)>), n * 4)),; s:_unlock_() , v } ) //---------------------------------------------------------------------------------------------------------------------- #xtranslate MEMBER BINSTR WORD ARRAY ITEMS => ; ooo:_Member_BINSTR( <(s)> , * 2 ) ; ; ooo:_Method( <(m)> , {|s,n,v| _Assert_Range_(n,0,(-1)), s:_lock_() , iif( PCount() > 2,; PokeWord(s:_addressof_(<(s)>), n * 2,v),; v := PeekWord(s:_addressof_(<(s)>), n * 2)),; s:_unlock_() , v } ) //---------------------------------------------------------------------------------------------------------------------- #xtranslate MEMBER BINSTR BYTE ARRAY ITEMS => ; ooo:_Member_BINSTR( <(s)> , ) ; ; ooo:_Method( <(m)> , {|s,n,v| _Assert_Range_(n,0,(-1)), s:_lock_() , iif( PCount() > 2,; PokeWord(s:_addressof_(<(s)>), n ,v),; v := PeekWord(s:_addressof_(<(s)>), n )),; s:_unlock_() , v } ) //---------------------------------------------------------------------------------------------------------------------- #xcommand WITH OBJECT => WithObjectStackPush() #xcommand END WITH => WithObjectStackPop() #xtranslate with.this =>WithObjectStackTop() #xtranslate .:<*more*> => WithObjectStackTop(): #xtranslate ..:<*more*> => WithObjectStackTop(1): #xtranslate ...:<*more*> => WithObjectStackTop(2): #xtranslate ....:<*more*> => WithObjectStackTop(3): #xtranslate .:():<*more*> => WithObjectStackTop(): //---------------------------------------------------------------------------------------------------------------------- #ifndef LANG_NEUTRAL #define LANG_NEUTRAL 0x00 #define LANG_INVARIANT 0x7f #define LANG_AFRIKAANS 0x36 #define LANG_ALBANIAN 0x1c #define LANG_ARABIC 0x01 #define LANG_ARMENIAN 0x2b #define LANG_ASSAMESE 0x4d #define LANG_AZERI 0x2c #define LANG_BASQUE 0x2d #define LANG_BELARUSIAN 0x23 #define LANG_BENGALI 0x45 #define LANG_BOSNIAN 0x1a #define LANG_BULGARIAN 0x02 #define LANG_CATALAN 0x03 #define LANG_CHINESE 0x04 #define LANG_CROATIAN 0x1a #define LANG_CZECH 0x05 #define LANG_DANISH 0x06 #define LANG_DIVEHI 0x65 #define LANG_DUTCH 0x13 #define LANG_ENGLISH 0x09 #define LANG_ESTONIAN 0x25 #define LANG_FAEROESE 0x38 #define LANG_FARSI 0x29 #define LANG_FINNISH 0x0b #define LANG_FRENCH 0x0c #define LANG_GALICIAN 0x56 #define LANG_GEORGIAN 0x37 #define LANG_GERMAN 0x07 #define LANG_GREEK 0x08 #define LANG_GUJARATI 0x47 #define LANG_HEBREW 0x0d #define LANG_HINDI 0x39 #define LANG_HUNGARIAN 0x0e #define LANG_ICELANDIC 0x0f #define LANG_INDONESIAN 0x21 #define LANG_ITALIAN 0x10 #define LANG_JAPANESE 0x11 #define LANG_KANNADA 0x4b #define LANG_KASHMIRI 0x60 #define LANG_KAZAK 0x3f #define LANG_KONKANI 0x57 #define LANG_KOREAN 0x12 #define LANG_KYRGYZ 0x40 #define LANG_LATVIAN 0x26 #define LANG_LITHUANIAN 0x27 #define LANG_MACEDONIAN 0x2f // the Former Yugoslav Republic of Macedonia #define LANG_MALAY 0x3e #define LANG_MALAYALAM 0x4c #define LANG_MALTESE 0x3a #define LANG_MANIPURI 0x58 #define LANG_MAORI 0x81 #define LANG_MARATHI 0x4e #define LANG_MONGOLIAN 0x50 #define LANG_NEPALI 0x61 #define LANG_NORWEGIAN 0x14 #define LANG_ORIYA 0x48 #define LANG_POLISH 0x15 #define LANG_PORTUGUESE 0x16 #define LANG_PUNJABI 0x46 #define LANG_QUECHUA 0x6b #define LANG_ROMANIAN 0x18 #define LANG_RUSSIAN 0x19 #define LANG_SAMI 0x3b #define LANG_SANSKRIT 0x4f #define LANG_SERBIAN 0x1a #define LANG_SINDHI 0x59 #define LANG_SLOVAK 0x1b #define LANG_SLOVENIAN 0x24 #define LANG_SOTHO 0x6c #define LANG_SPANISH 0x0a #define LANG_SWAHILI 0x41 #define LANG_SWEDISH 0x1d #define LANG_SYRIAC 0x5a #define LANG_TAMIL 0x49 #define LANG_TATAR 0x44 #define LANG_TELUGU 0x4a #define LANG_THAI 0x1e #define LANG_TSWANA 0x32 #define LANG_TURKISH 0x1f #define LANG_UKRAINIAN 0x22 #define LANG_URDU 0x20 #define LANG_UZBEK 0x43 #define LANG_VIETNAMESE 0x2a #define LANG_WELSH 0x52 #define LANG_XHOSA 0x34 #define LANG_ZULU 0x35 #define SUBLANG_NEUTRAL 0x00 // language neutral #define SUBLANG_DEFAULT 0x01 // user default #define SUBLANG_SYS_DEFAULT 0x02 // system default #define SUBLANG_ARABIC_SAUDI_ARABIA 0x01 // Arabic (Saudi Arabia) #define SUBLANG_ARABIC_IRAQ 0x02 // Arabic (Iraq) #define SUBLANG_ARABIC_EGYPT 0x03 // Arabic (Egypt) #define SUBLANG_ARABIC_LIBYA 0x04 // Arabic (Libya) #define SUBLANG_ARABIC_ALGERIA 0x05 // Arabic (Algeria) #define SUBLANG_ARABIC_MOROCCO 0x06 // Arabic (Morocco) #define SUBLANG_ARABIC_TUNISIA 0x07 // Arabic (Tunisia) #define SUBLANG_ARABIC_OMAN 0x08 // Arabic (Oman) #define SUBLANG_ARABIC_YEMEN 0x09 // Arabic (Yemen) #define SUBLANG_ARABIC_SYRIA 0x0a // Arabic (Syria) #define SUBLANG_ARABIC_JORDAN 0x0b // Arabic (Jordan) #define SUBLANG_ARABIC_LEBANON 0x0c // Arabic (Lebanon) #define SUBLANG_ARABIC_KUWAIT 0x0d // Arabic (Kuwait) #define SUBLANG_ARABIC_UAE 0x0e // Arabic (U.A.E) #define SUBLANG_ARABIC_BAHRAIN 0x0f // Arabic (Bahrain) #define SUBLANG_ARABIC_QATAR 0x10 // Arabic (Qatar) #define SUBLANG_AZERI_LATIN 0x01 // Azeri (Latin) #define SUBLANG_AZERI_CYRILLIC 0x02 // Azeri (Cyrillic) #define SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_LATIN 0x05 // Bosnian (Bosnia and Herzegovina - Latin) #define SUBLANG_CHINESE_TRADITIONAL 0x01 // Chinese (Taiwan) #define SUBLANG_CHINESE_SIMPLIFIED 0x02 // Chinese (PR China) #define SUBLANG_CHINESE_HONGKONG 0x03 // Chinese (Hong Kong S.A.R., P.R.C.) #define SUBLANG_CHINESE_SINGAPORE 0x04 // Chinese (Singapore) #define SUBLANG_CHINESE_MACAU 0x05 // Chinese (Macau S.A.R.) #define SUBLANG_CROATIAN_CROATIA 0x01 // Croatian (Croatia) #define SUBLANG_CROATIAN_BOSNIA_HERZEGOVINA_LATIN 0x04 // Croatian (Bosnia and Herzegovina - Latin) #define SUBLANG_DUTCH 0x01 // Dutch #define SUBLANG_DUTCH_BELGIAN 0x02 // Dutch (Belgian) #define SUBLANG_ENGLISH_US 0x01 // English (USA) #define SUBLANG_ENGLISH_UK 0x02 // English (UK) #define SUBLANG_ENGLISH_AUS 0x03 // English (Australian) #define SUBLANG_ENGLISH_CAN 0x04 // English (Canadian) #define SUBLANG_ENGLISH_NZ 0x05 // English (New Zealand) #define SUBLANG_ENGLISH_EIRE 0x06 // English (Irish) #define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07 // English (South Africa) #define SUBLANG_ENGLISH_JAMAICA 0x08 // English (Jamaica) #define SUBLANG_ENGLISH_CARIBBEAN 0x09 // English (Caribbean) #define SUBLANG_ENGLISH_BELIZE 0x0a // English (Belize) #define SUBLANG_ENGLISH_TRINIDAD 0x0b // English (Trinidad) #define SUBLANG_ENGLISH_ZIMBABWE 0x0c // English (Zimbabwe) #define SUBLANG_ENGLISH_PHILIPPINES 0x0d // English (Philippines) #define SUBLANG_FRENCH 0x01 // French #define SUBLANG_FRENCH_BELGIAN 0x02 // French (Belgian) #define SUBLANG_FRENCH_CANADIAN 0x03 // French (Canadian) #define SUBLANG_FRENCH_SWISS 0x04 // French (Swiss) #define SUBLANG_FRENCH_LUXEMBOURG 0x05 // French (Luxembourg) #define SUBLANG_FRENCH_MONACO 0x06 // French (Monaco) #define SUBLANG_GERMAN 0x01 // German #define SUBLANG_GERMAN_SWISS 0x02 // German (Swiss) #define SUBLANG_GERMAN_AUSTRIAN 0x03 // German (Austrian) #define SUBLANG_GERMAN_LUXEMBOURG 0x04 // German (Luxembourg) #define SUBLANG_GERMAN_LIECHTENSTEIN 0x05 // German (Liechtenstein) #define SUBLANG_ITALIAN 0x01 // Italian #define SUBLANG_ITALIAN_SWISS 0x02 // Italian (Swiss) #define SUBLANG_KASHMIRI_SASIA 0x02 // Kashmiri (South Asia) #define SUBLANG_KASHMIRI_INDIA 0x02 // For app compatibility only #define SUBLANG_KOREAN 0x01 // Korean (Extended Wansung) #define SUBLANG_LITHUANIAN 0x01 // Lithuanian #define SUBLANG_MALAY_MALAYSIA 0x01 // Malay (Malaysia) #define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02 // Malay (Brunei Darussalam) #define SUBLANG_NEPALI_INDIA 0x02 // Nepali (India) #define SUBLANG_NORWEGIAN_BOKMAL 0x01 // Norwegian (Bokmal) #define SUBLANG_NORWEGIAN_NYNORSK 0x02 // Norwegian (Nynorsk) #define SUBLANG_PORTUGUESE 0x02 // Portuguese #define SUBLANG_PORTUGUESE_BRAZILIAN 0x01 // Portuguese (Brazilian) #define SUBLANG_QUECHUA_BOLIVIA 0x01 // Quechua (Bolivia) #define SUBLANG_QUECHUA_ECUADOR 0x02 // Quechua (Ecuador) #define SUBLANG_QUECHUA_PERU 0x03 // Quechua (Peru) #define SUBLANG_SAMI_NORTHERN_NORWAY 0x01 // Northern Sami (Norway) #define SUBLANG_SAMI_NORTHERN_SWEDEN 0x02 // Northern Sami (Sweden) #define SUBLANG_SAMI_NORTHERN_FINLAND 0x03 // Northern Sami (Finland) #define SUBLANG_SAMI_LULE_NORWAY 0x04 // Lule Sami (Norway) #define SUBLANG_SAMI_LULE_SWEDEN 0x05 // Lule Sami (Sweden) #define SUBLANG_SAMI_SOUTHERN_NORWAY 0x06 // Southern Sami (Norway) #define SUBLANG_SAMI_SOUTHERN_SWEDEN 0x07 // Southern Sami (Sweden) #define SUBLANG_SAMI_SKOLT_FINLAND 0x08 // Skolt Sami (Finland) #define SUBLANG_SAMI_INARI_FINLAND 0x09 // Inari Sami (Finland) #define SUBLANG_SERBIAN_BOSNIA_HERZEGOVINA_LATIN 0x06 // Serbian (Bosnia and Herzegovina - Latin) #define SUBLANG_SERBIAN_BOSNIA_HERZEGOVINA_CYRILLIC 0x07 // Serbian (Bosnia and Herzegovina - Cyrillic) #define SUBLANG_SERBIAN_LATIN 0x02 // Serbian (Latin) #define SUBLANG_SERBIAN_CYRILLIC 0x03 // Serbian (Cyrillic) #define SUBLANG_SOTHO_NORTHERN_SOUTH_AFRICA 0x01 // Northern Sotho (South Africa) #define SUBLANG_SPANISH 0x01 // Spanish (Castilian) #define SUBLANG_SPANISH_MEXICAN 0x02 // Spanish (Mexican) #define SUBLANG_SPANISH_MODERN 0x03 // Spanish (Modern) #define SUBLANG_SPANISH_GUATEMALA 0x04 // Spanish (Guatemala) #define SUBLANG_SPANISH_COSTA_RICA 0x05 // Spanish (Costa Rica) #define SUBLANG_SPANISH_PANAMA 0x06 // Spanish (Panama) #define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07 // Spanish (Dominican Republic) #define SUBLANG_SPANISH_VENEZUELA 0x08 // Spanish (Venezuela) #define SUBLANG_SPANISH_COLOMBIA 0x09 // Spanish (Colombia) #define SUBLANG_SPANISH_PERU 0x0a // Spanish (Peru) #define SUBLANG_SPANISH_ARGENTINA 0x0b // Spanish (Argentina) #define SUBLANG_SPANISH_ECUADOR 0x0c // Spanish (Ecuador) #define SUBLANG_SPANISH_CHILE 0x0d // Spanish (Chile) #define SUBLANG_SPANISH_URUGUAY 0x0e // Spanish (Uruguay) #define SUBLANG_SPANISH_PARAGUAY 0x0f // Spanish (Paraguay) #define SUBLANG_SPANISH_BOLIVIA 0x10 // Spanish (Bolivia) #define SUBLANG_SPANISH_EL_SALVADOR 0x11 // Spanish (El Salvador) #define SUBLANG_SPANISH_HONDURAS 0x12 // Spanish (Honduras) #define SUBLANG_SPANISH_NICARAGUA 0x13 // Spanish (Nicaragua) #define SUBLANG_SPANISH_PUERTO_RICO 0x14 // Spanish (Puerto Rico) #define SUBLANG_SWEDISH 0x01 // Swedish #define SUBLANG_SWEDISH_FINLAND 0x02 // Swedish (Finland) #define SUBLANG_URDU_PAKISTAN 0x01 // Urdu (Pakistan) #define SUBLANG_URDU_INDIA 0x02 // Urdu (India) #define SUBLANG_UZBEK_LATIN 0x01 // Uzbek (Latin) #define SUBLANG_UZBEK_CYRILLIC 0x02 // Uzbek (Cyrillic) #endif // LANG_NEUTRAL //------------------------------------------------------------------------------------------------------------------------- //---------------------------------------------------------------------------------------------------------------------- #endif // _OT4XB_CH_