PureBasic Forum

; Last update: 191217
EnableExplicit

;/Applications/plist "%FILE" "%EXECUTABLE"

OpenConsole()

Global SourceFolder.s,SourceFileName.s, SourceFilePath.s, ExecutableFile.s, LogFile.s
Enumeration LogLevel
  #LogNothing
  #LogErrors
  #LogAll
EndEnumeration
Global LogLevel = #LogErrors

Procedure LPrint(msg.s, level = #LogErrors)
  Protected file
 
  If level > LogLevel
    ProcedureReturn
  EndIf
  PrintN(msg)
 
  file = OpenFile(#PB_Any, LogFile, #PB_File_Append)
  If file
    WriteStringN(file, msg)
    CloseFile(file)
  EndIf   
EndProcedure

Procedure Init()
  Protected c, ext.s
 
  ;SourceFilePath = ""
  ;ExecutableFile = ""
  If SourceFilePath = ""
    c = CountProgramParameters()
    If And c = 2
      SourceFilePath = ProgramParameter(0)
      If SourceFilePath = ""
        LPrint("Please save source first.", #LogErrors)
        ProcedureReturn #False
      EndIf
      ExecutableFile = ProgramParameter(1)
    Else
      LPrint(~"Usage: plist \"%FILE\" \"%EXECUTABLE\" (After Compile/Run)", #LogErrors)
      ProcedureReturn #False
    EndIf
  EndIf
  SourceFolder = GetPathPart(SourceFilePath)
  SourceFileName = GetFilePart(SourceFilePath)
  LogFile = SourceFolder + SourceFileName + "-plist.log" 
  DeleteFile(LogFile)
  ext = GetExtensionPart(ExecutableFile)
  If ext <> "app"
      LPrint("Application (.app) expected", #LogAll)
    ProcedureReturn #False
  EndIf   
  LPrint("SourceFilePath: " + SourceFilePath, #LogAll)
  LPrint("ExecutableFile: " + ExecutableFile, #LogAll) 
  ProcedureReturn #True
EndProcedure

Procedure Go()
  Protected src.s, dest.s, name.s, cmd.s
  name = GetFilePart(SourceFilePath, #PB_FileSystem_NoExtension)
  src = SourceFolder + name + ".plist"
  If FileSize(src) = -1
    src = SourceFolder + "Info.plist"
  EndIf
  dest = ExecutableFile + "/Contents/Info.plist"
  CopyFile(dest, SourceFolder + "Backup-" + name + ".plist") ; Backup original PB plist
  If FileSize(src) > 0
    If CopyFile(src, dest) 
      LPrint("Info.plist updated", #LogAll)
    Else
      LPrint("Info.plist could not be updated (" + dest + ")", #LogErrors)
    EndIf
  Else
    LPrint("No Info.plist found (" + src + ")", #LogAll)
  EndIf
  src = SourceFolder + name + ".Resources/"
  If FileSize(src) <> -2
    src = SourceFolder + "Resources/"
  EndIf
  dest = ExecutableFile + "/Contents/Resources/"
  If FileSize(src) = -2
    If FindString(dest, src) = 0
      cmd = "cp -rp '" + src + "' '" + dest + "'"
      If RunProgram("/bin/sh", "-c " + #DQUOTE$ + cmd + #DQUOTE$, "")
      ;If CopyDirectory(src, dest, "", #PB_FileSystem_Recursive | #PB_FileSystem_Force) ; !CopyDirectory does not include executable permissions...
        LPrint("Resources folder updated", #LogAll)
        ;cmd = "find '" + dest + "' -type f -not -name '*.*' -exec chmod +x \{\} \;"
        ;RunProgram("/bin/sh", "-c " + #DQUOTE$ + cmd + #DQUOTE$, "")
      Else
        LPrint("Resources folder could not be updated (" + dest + ")", #LogErrors)
      EndIf
    EndIf
  EndIf
EndProcedure

If Init()
  Go()
EndIf

If FileSize(LogFile) > 0
  RunProgram("open", "-a TextEdit.app " + #DQUOTE$ + LogFile + #DQUOTE$, "")
EndIf

CloseConsole()

Global BundlePath.s = PeekS(CocoaMessage(0, CocoaMessage(0, CocoaMessage(0, 0, "NSBundle mainBundle"), "bundlePath"), "UTF8String"), -1, #PB_UTF8)
Global ResourcesPath.s = BundlePath + "/Contents/Resources/"