PureBasic Forums - English

Code: Select all

;   Description: Includes temporarily all include files of a directory into the code before compiling
;            OS: Windows, Linux, Mac
; English-Forum: 
;  French-Forum: 
;  German-Forum: 
; -----------------------------------------------------------------------------

; MIT License
; 
; Copyright (c) 2018 Sicro
; 
; Permission is hereby granted, free of charge, to any person obtaining a copy
; of this software and associated documentation files (the "Software"), to deal
; in the Software without restriction, including without limitation the rights
; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
; copies of the Software, and to permit persons to whom the Software is
; furnished to do so, subject to the following conditions:
; 
; The above copyright notice and this permission notice shall be included in all
; copies or substantial portions of the Software.
; 
; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
; SOFTWARE.

; Tool Settings:
; - Arguments: "IncludeFilesDirectoryPath" "%COMPILEFILE"
; - Event:     Before Compile/Run
; - Wait until tool quits
; - Hide Tool from the Main menu

CompilerIf #PB_Compiler_OS = #PB_OS_Linux
  ImportC "-no-pie" : EndImport
CompilerEndIf

Procedure ScanDir(Path$, List Files$())
  
  Select Right(Path$, 1)
      
    Case "/", "\"
      
    Default
      CompilerIf #PB_Compiler_OS = #PB_OS_Windows
        Path$ + "\"
      CompilerElse
        Path$ + "/"
      CompilerEndIf
      
  EndSelect
  
  Protected Directory = ExamineDirectory(#PB_Any, Path$, "")
  If Directory = 0 : ProcedureReturn : EndIf
  
  While NextDirectoryEntry(Directory)
    Select DirectoryEntryType(Directory)
        
      Case #PB_DirectoryEntry_File
        If AddElement(Files$())
          Files$() = Path$ + DirectoryEntryName(Directory)
        EndIf
        
      Case #PB_DirectoryEntry_Directory
        Select DirectoryEntryName(Directory)
          Case ".", ".."
          Default
            ScanDir(Path$ + DirectoryEntryName(Directory), Files$())
        EndSelect
        
    EndSelect
  Wend
  
  FinishDirectory(Directory)
  
EndProcedure

Procedure InsertIncludeFilesToCode(CodeFilePath$, List IncludeFiles$())
  
  Protected CodeForIncludeFiles$
  ForEach IncludeFiles$()
    CodeForIncludeFiles$ + ~"IncludeFile \"" + IncludeFiles$() + ~"\"" + #LF$
  Next
  
  Protected CodeFile = OpenFile(#PB_Any, CodeFilePath$)
  If CodeFile = 0 : ProcedureReturn : EndIf
  
  Protected CodeFileStringFormat = ReadStringFormat(CodeFile)
  Protected CodeFileContent$ = ReadString(CodeFile, #PB_File_IgnoreEOL | CodeFileStringFormat)
  
  CodeFileContent$ = CodeForIncludeFiles$ + CodeFileContent$
  
  FileSeek(CodeFile, 0)
  TruncateFile(CodeFile)
  WriteStringFormat(CodeFile, CodeFileStringFormat)
  WriteStringN(CodeFile, CodeFileContent$, CodeFileStringFormat)
  
  CloseFile(CodeFile)
  
EndProcedure

NewList IncludeFiles$()
Define IncludeFilesDirectory$ = ProgramParameter(0)
Define CompileFile$           = ProgramParameter(1)

If IncludeFilesDirectory$ = "" Or CompileFile$ = ""
  MessageRequester("PB-IDE-Tool 'InsertIncludeFiles'", "The tool settings are wrong!", #PB_MessageRequester_Error)
  End
EndIf

Select LCase(GetExtensionPart(CompileFile$))
  Case "pb", "pbi" ; This is needed to ignore the cfg files
    ScanDir(IncludeFilesDirectory$, IncludeFiles$())
    InsertIncludeFilesToCode(CompileFile$, IncludeFiles$())
EndSelect

Code: Select all

do_thing()

Code: Select all

CODESPUNK_HOME="C:\development\repositories\libcodespunk"

Code: Select all

XIncludeFile #CODESPUNK_HOME+"/purebasic/h.SAL.pb"
XIncludeFile #CODESPUNK_HOME+"/purebasic/h.Types.pb"

Code: Select all

Environment Variables (variable)
   -> Constants (inherit environment)
      -> Includes (relative to constants)