PureBoard

Code: Alles auswählen

EnableExplicit

XIncludeFile "C:\Program Files\PureBasic\Examples\ScintillaHelper\ScintillaHelper.pbi"

Procedure Main()
  
  Protected WWE, Quit
  
  OpenWindow(0,#PB_Ignore,#PB_Ignore,100,100,"")
  
  Repeat
    
    WWE = WaitWindowEvent()
    
    Select WWE
        
      Case #PB_Event_CloseWindow
        Quit = #True
        
    EndSelect
    
  Until Quit = #True
  
EndProcedure

Main()

End

Code: Alles auswählen

Procedure _CreateHash(*pKey.CHARACTER, Mapsize.i)
  CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
    !MOV EAX,5381            ;Startwert hash
    !MOV EBX,EAX             ;für erste Addition in Schleife
    !MOV ESI,dword[p.p_pKey] ;oder LEA ESI,[v_pKey], aber wenn p_pKey eh schon da ist...
    !XOR EDX,EDX             ;EDX auf Null setzen
    !MOV CL,5                ;sollte so schneller sein
    !@@:
    !MOV DL,[ESI]            ;also kein Unicode!
    !OR DL,DL                ;Test auf Null
    !JZ @f                   ;ist Null, Sprung vorwärts
    !SHL EAX,CL              
    !ADD EAX,EBX
    !ADD EAX,EDX
    !MOV EBX,EAX             ;"alten" hash sichern
    !INC ESI
    !JMP @b                  ;Sprung rückwärts, nächsten Wert einlesen
    !@@:
    !MOV dword[p.p_pKey],esi ;wirklich Pointer erhöhen? Sonst weg
    !XOR EDX,EDX             ;schneller und richtiger (!) als CDQ ich gehe hier mal von vorzeichenlosen Werten aus
    !DIV dword[p.v_Mapsize]  ;EAX ist noch hash
    !MOV EAX,EDX             ;Divisions-Rest
  CompilerElse
    !MOV RAX,5381            ;Startwert hash
    !MOV RBX,RAX             ;für erste Addition in Schleife
    !MOV ESI,dword[p.p_pKey] ;oder LEA ESI,[v_pKey], aber wenn p_pKey eh schon da ist...
    !XOR RDX,RDX             ;EDX auf Null setzen
    !MOV CL,5                ;sollte so schneller sein
    !@@:
    !MOV DL,[ESI]            ;also kein Unicode!
    !OR DL,DL                ;Test auf Null
    !JZ @f                   ;ist Null, Sprung vorwärts
    !SHL RAX,CL              ;SHL = SAL; SAL wird selten angegeben
    !ADD RAX,RBX
    !ADD RAX,RDX
    !MOV RBX,RAX             ;"alten" hash sichern
    !INC ESI
    !JMP @b                  ;Sprung rückwärts, nächsten Wert einlesen
    !@@:
    !MOV dword[p.p_pKey],esi ;wirklich Pointer erhöhen? Sonst weg
    !XOR RDX,RDX             ;schneller und richtiger (!) als CDQ ich gehe hier mal von vorzeichenlosen Werten aus
    !DIV dword[p.v_Mapsize]  ;EAX ist noch hash
    !MOV RAX,RDX             ;Divisions-Rest
  CompilerEndIf
  ProcedureReturn        ;Gibt Hash in EAX zurück
EndProcedure

_CreateHash(@"test", 1000)