smartbuild – A tool for updating the modules.

[coconParticipant]

This tool was based on Degac’s cool idea. It will try to build modules only if any source file is more recent than any of the library files. It will detect this timestamp difference and if there is any, it will run the mx2cc tool.

Monkey

' set build settings ' target name = smartbuild ' application type = console ' ' to run it from the command line see this example ' smartbuild D:\Programming\monkey2\bin\mx2cc_windows.exe D:\Programming\monkey2\modules desktop #Import "<libc>" #Import "<std>" Using std.. Class Config Abstract Global RootDir:String = "" Global Mx2cc:String = "" Global Target:String = "" Function Set:Bool() Return Config.Mx2cc <> "" And Mx2cc <> "" And Target <> "" End End Class Module Field Name:String Field Location:String Property FullPath:String() Return CombinePath(Location, Name) End Field SourceTime:Long Field BuildTime:Long End Class ModuleCollection Abstract Public Global Modules := New List<Module> Global ModulesToUpdate := New List<Module> Function ScanModules() RetreiveModules() DetectBuildTimes() DetectSourceTimes() DetectModulesToUpdate() End Private Function RetreiveModules() For Local item := Eachin LoadDir(Config.RootDir) Local m := New Module m.Name = item m.Location = Config.RootDir.Replace("\", "/") Modules.Add(m) Next End Function DetectSourceTimeForModule(module:Module, path:String = "") Local includedFiles := New String[](".h", ".c", ".cpp", ".monkey2") If path = "" Then path = module.FullPath For Local item := Eachin LoadDir(path) ' before doing anything skip the buildv directories If item.Contains(".buildv") Then Continue ' repeat this function again with recursion to visit all directories DetectSourceTimeForModule(module, CombinePath(path, item)) ' check for files with valid extensions For Local i := Eachin includedFiles Local filePath := CombinePath(path, item) If i = ExtractExt(filePath) ' update the source time to the most recent one Local sourceTime := GetFileTime(CombinePath(path, item)) If sourceTime > module.SourceTime module.SourceTime = sourceTime Return End End Next Next End Function DetectSourceTimes() For Local module := Eachin Modules DetectSourceTimeForModule(module) Next End Function DetectBuildTimeForModule(module:Module, path:String = "") Local includedFiles := New String[](".a", ".so", ".dylib") For Local item := Eachin LoadDir(path) ' repeat this function again with recursion to visit all directories DetectBuildTimeForModule(module, CombinePath(path, item)) ' check for files with valid extensions For Local i := Eachin includedFiles Local libPath := CombinePath(path, item) If i = ExtractExt(libPath) ' update the build time to the most recent one Local libTime := GetFileTime(libPath) If module.BuildTime < libTime module.BuildTime = libTime Return End End Next Next End Function DetectBuildTimes() For Local module := Eachin Modules ' locate the buildv direcory Local buildPath := "" For Local item := Eachin LoadDir(module.FullPath) If item.Contains(".buildv") buildPath = CombinePath(module.FullPath, item) End Next If buildPath = "" Then Continue ' locate the compiled library DetectBuildTimeForModule(module, buildPath) Next End Function DetectModulesToUpdate() For Local m := Eachin Modules If m.SourceTime > m.BuildTime ModulesToUpdate.Add(m) End Next End Public Function HasModulesToUpdate:Bool() Return ModulesToUpdate.Count() > 0 End Function ModulesToUpdateMx2cc:String() If Not HasModulesToUpdate() Then Return "" Local out := "" For Local m := Eachin ModulesToUpdate out += m.Name + " " Next Return out End End Function Main() SetAppArgsConfiguration() 'SetUserConfiguration() If Not Config.Set() Return End BuildModules() End Function SetAppArgsConfiguration() Local args := AppArgs() If args.Length <> 4 Print("Usage: smartbuild mx2cc_location module_location mx2cc_target") Return End Config.Mx2cc = args[1] Config.RootDir = args[2] Config.Target = args[3] End Function SetUserConfiguration() Config.Mx2cc = "D:\Programming\monkey2\bin\mx2cc_windows.exe" Config.RootDir = "D:\Programming\monkey2\modules" Config.Target = "desktop" End Function BuildModules() ' scan for modules ModuleCollection.ScanModules() ' exit if there are no modules to update If Not ModuleCollection.HasModulesToUpdate() Print("Completed Without Rebuilding") Return End ' prepare the mx2cc parameters and run it Local modules := ModuleCollection.ModulesToUpdateMx2cc() Local cmdDebug := Config.Mx2cc + " makemods -config=release -target=" + Config.Target + " " + modules Local cmdRelease := Config.Mx2cc + " makemods -config=debug -target=" + Config.Target + " " + modules ' start building process Print("Modules To Rebuild") Print(modules) Print("") Print(cmdDebug) libc.system(cmdDebug) Print("") Print(cmdRelease) libc.system(cmdRelease) Print("") End Function CombinePath:String(p1:String, p2:String) Return p1 + "/" + p2 End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214

' set build settings ' target name = smartbuild ' application type = console ' ' to run it from the command line see this example ' smartbuild D:\Programming\monkey2\bin\mx2cc_windows.exe D:\Programming\monkey2\modules desktop   #Import "<libc>" #Import "<std>" Using std..   Class Config Abstract Global RootDir:String = "" Global Mx2cc:String = "" Global Target:String = "" Function Set:Bool() Return Config.Mx2cc <> "" And Mx2cc <> "" And Target <> "" End End   Class Module Field Name:String Field Location:String Property FullPath:String() Return CombinePath(Location, Name) End Field SourceTime:Long Field BuildTime:Long End   Class ModuleCollection Abstract Public Global Modules := New List<Module> Global ModulesToUpdate := New List<Module> Function ScanModules() RetreiveModules() DetectBuildTimes() DetectSourceTimes() DetectModulesToUpdate() End Private Function RetreiveModules() For Local item := Eachin LoadDir(Config.RootDir) Local m := New Module m.Name = item m.Location = Config.RootDir.Replace("\", "/") Modules.Add(m) Next End Function DetectSourceTimeForModule(module:Module, path:String = "") Local includedFiles := New String[](".h", ".c", ".cpp", ".monkey2") If path = "" Then path = module.FullPath   For Local item := Eachin LoadDir(path) ' before doing anything skip the buildv directories If item.Contains(".buildv") Then Continue ' repeat this function again with recursion to visit all directories DetectSourceTimeForModule(module, CombinePath(path, item)) ' check for files with valid extensions For Local i := Eachin includedFiles Local filePath := CombinePath(path, item) If i = ExtractExt(filePath)   ' update the source time to the most recent one Local sourceTime := GetFileTime(CombinePath(path, item)) If sourceTime > module.SourceTime module.SourceTime = sourceTime Return End End Next Next End   Function DetectSourceTimes() For Local module := Eachin Modules DetectSourceTimeForModule(module) Next End   Function DetectBuildTimeForModule(module:Module, path:String = "") Local includedFiles := New String[](".a", ".so", ".dylib") For Local item := Eachin LoadDir(path) ' repeat this function again with recursion to visit all directories DetectBuildTimeForModule(module, CombinePath(path, item))   ' check for files with valid extensions For Local i := Eachin includedFiles Local libPath := CombinePath(path, item) If i = ExtractExt(libPath) ' update the build time to the most recent one Local libTime := GetFileTime(libPath) If module.BuildTime < libTime module.BuildTime = libTime Return End End Next Next End Function DetectBuildTimes() For Local module := Eachin Modules ' locate the buildv direcory Local buildPath := ""             For Local item := Eachin LoadDir(module.FullPath)                 If item.Contains(".buildv")                     buildPath = CombinePath(module.FullPath, item)                 End             Next If buildPath = "" Then Continue ' locate the compiled library DetectBuildTimeForModule(module, buildPath) Next End Function DetectModulesToUpdate() For Local m := Eachin Modules If m.SourceTime > m.BuildTime ModulesToUpdate.Add(m) End Next End Public Function HasModulesToUpdate:Bool() Return ModulesToUpdate.Count() > 0 End Function ModulesToUpdateMx2cc:String() If Not HasModulesToUpdate() Then Return "" Local out := "" For Local m := Eachin ModulesToUpdate out += m.Name + " " Next Return out End End   Function Main() SetAppArgsConfiguration() 'SetUserConfiguration() If Not Config.Set() Return End BuildModules() End   Function SetAppArgsConfiguration() Local args := AppArgs() If args.Length <> 4 Print("Usage: smartbuild mx2cc_location module_location mx2cc_target") Return End Config.Mx2cc = args[1] Config.RootDir = args[2] Config.Target = args[3] End   Function SetUserConfiguration() Config.Mx2cc = "D:\Programming\monkey2\bin\mx2cc_windows.exe" Config.RootDir = "D:\Programming\monkey2\modules" Config.Target = "desktop" End   Function BuildModules() ' scan for modules ModuleCollection.ScanModules() ' exit if there are no modules to update If Not ModuleCollection.HasModulesToUpdate() Print("Completed Without Rebuilding") Return End ' prepare the mx2cc parameters and run it Local modules    := ModuleCollection.ModulesToUpdateMx2cc() Local cmdDebug   := Config.Mx2cc + " makemods -config=release -target=" + Config.Target + " " + modules Local cmdRelease := Config.Mx2cc + " makemods -config=debug -target="   + Config.Target + " " + modules   ' start building process   Print("Modules To Rebuild") Print(modules) Print("") Print(cmdDebug) libc.system(cmdDebug) Print("") Print(cmdRelease) libc.system(cmdRelease) Print("") End   Function CombinePath:String(p1:String, p2:String) Return p1 + "/" + p2 End

Attachments:

1. 

   smartbuild1.png
   

2. 

   smartbuild2.png
   

[degacParticipant]

Wow, I like that someone found my concept/idea useful and make it real & working
I will read carefully your code to see your implementation (I still have an ‘old function/type’ style..!)
Hope that this thing will be one day a Monkey2 compiler ‘feature’ as default.

[coconParticipant]

I had also an idea about squeezing it in Ted2Go, perhaps in the summer I will go for it.

[Author]

Posts