PureBoard

Code: Alles auswählen

Procedure PatchPB()
  Result=#False
  in$= CompilerPath$+"pbcompiler.exe"
  out$= CompilerPath$+"PBCompiler-jaPBe.exe"
  ;
  len=FileSize(in$)
  If len>0
    ;
    PBVersion$ = GetPBCompilerVersion(in$) ; gnozal
    ;
    Mem_PbPatch=AllocateMemory(len+10)
    *start.Byte=Mem_PbPatch
    *buf.Byte=*start
    If *buf
      If ReadFile(#File_PBPatch,in$)
        ReadData(*buf,len)
        CloseFile(#File_PBPatch)
      EndIf
      For i=1 To len
        ;lcclnk.exe
        If *buf\b=#LinkerFirstChar1 Or *buf\b=#LinkerFirstChar2
          If CompareMemoryString(*buf,#Linker,#True,10)=0
            *buf\b='f' 
          EndIf
        EndIf
        ; If *buf\b='p' Or *buf\b='P'
          ; If CompareMemoryString(*buf,"PureBasic v",#True,11)=0
            ; *ver.BYTE=*buf+11
            ; PBVersion$=""
            ; While *ver\b<>0 And *ver\b<>13 And *ver\b<>10 And *ver\b<>'-'
              ; PBVersion$+Chr(*ver\b)
              ; *ver+1
            ; Wend
            ; PBVersion$=Trim(PBVersion$)
          ; EndIf
        ; EndIf
        *buf+1
      Next
      
      If FileSize(out$)>0
        If DeleteFile(out$)=0
          ;japbe läuft schon->alles OK
          FreeMemory(Mem_PbPatch)
          ProcedureReturn #True
        EndIf
      EndIf
      
      If CreateFile(#File_PBPatch,out$)
        WriteData(*start,len)
        CloseFile(#File_PBPatch)
        
        If SavePackMem(?FakeLCC, CompilerPath$+#FLinker)
          Result=#True
        EndIf
      EndIf
      FreeMemory(Mem_PbPatch)
    EndIf
  EndIf
  ProcedureReturn Result
EndProcedure