Update/Rebuild time

[degacParticipant]

Hi
I’m toying with MX2 and sometimes I made some changes to modules to see the effects
Of course I need to compile the changes, BUT it takes very very long time!
There’s some options to accelerate things?
No matter if I use Update Modules or Rebuild Modules (while BlitzMax can/should compile – if wanted – just the pieces changed).

sitting down waiting

[peterigzParticipant]

If I make a change to a module then I just compile that module from the command line eg:

Monkey

mx2cc_windows makemods mojo

1	mx2cc_windows makemods mojo

[degacParticipant]

Many thanks!
(so obviuous now! :P)

[degacParticipant]

Ok, as I’m a very lazy person I created this (not full working at the moment) to find what modules should be rebuild because a change in the source code (of a file in them) has happened.

Monkey

''edit: ' 'as exercise I'm trying to write a little thing with this goal: check what module needs to be recompiled. 'The logic of the program should be: '1 * every module as a folder called MODULE_NAME.buildvXXXXX, where MODULE_NAME is the name of the folder TOO. '2 * scan every single module in the 'modules' folder and register the FileTime of the 'buildv/windows_release' folder (see #1) '3 * scan every single other file with .monkey2 extension in that folder: if just one has a more recent timestamps, that module is marked as 'to_be_compiled' '4 * at the end, launch the mx2cc_XXX commands to compile what needed. ' Namespace myapp #Import "<std>" Using std.. Global map_module:=New StringMap<Module> Class Module Field name:String Field path:String Field timestamp:ULong Field rebuild:int Field list_source:StringList 'just for debug Function Store:Module(_path:String,_file:String) Local m:=New Module 'find the timestamp of ' path+module/build xxx /windows_debug/module.a m.name=_file.Slice(0,_file.Find(".")).ToUpper() Local t1:=GetFileTime(_path+"/"+_file+"/windows_debug/"+m.name+".a") Local t2:=GetFileTime(_path+"/"+_file+"/windows_release/"+m.name+".a") m.timestamp=Max(t1,t2)'consider the younger m.path=_path+"/"+_file m.list_source=New StringList 'not really needed... just for debug map_module.Set(m.name,m) ' Print "Module '"+m.name+"' "+m.timestamp Return m End function End Class Function Main() 'scan Modules folder to check the latest 'change' Local path:="E:\monkey2-develop\modules" 'here my MX2 folder ReScan(path)'get the modules Print "Check source in modules scanned..." For Local k:=Eachin map_module.Keys Local v:=map_module.Get(k) If v SourceScan(path+"/"+v.name,v) End if next 'these are the modules that *should* be recompiled For Local k:=Eachin map_module.Keys local v:=map_module.Get(k) If v If v.rebuild<>0 Print v.name+" "+v.rebuild End if Next end Function SourceScan:Int(path:String,v:Module) 'check if exist any file younger than the module build 'it should be possible to add a filter to eliminate files and folder not to be scanned Local dirs:=LoadDir(path) Local codeext:=New String[]("monkey2","c","cpp","h") For Local f:=Eachin dirs For Local exx:=Eachin codeext If ExtractExt(f)="."+exx'monkey2" ' Print "--- ["+f+"]" If GetFileTime(path+"/"+f)>v.timestamp v.list_source.AddLast(f) v.rebuild=True Print "File <"+path+"> <"+f+">" End If End If next If GetFileType(path+"/"+f)=FileType.Directory SourceScan(path+"/"+f,v) Next Return 1 End Function Function ReScan:Int(path:String) Local getfolder:=StripDir(path) getfolder=StripDir(path) 'get the FOLDER NAME path=path.Replace("/","\") Local mname:=GetFolderName(path)+".buildv" Local dirs:=LoadDir(path) For Local f:=Eachin dirs If f.Contains(mname) Print "MODULE BUILD FOLDER <"+f+">" Module.Store(path,f) f="" End if If GetFileType(path+"/"+f)=FileType.Directory ReScan(path+"/"+f) End if next Return 1 End Function

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

''edit: ' 'as exercise I'm trying to write a little thing with this goal: check what module needs to be recompiled. 'The logic of the program should be: '1 * every module as a folder called MODULE_NAME.buildvXXXXX, where MODULE_NAME is the name of the folder TOO. '2 * scan every single module in the 'modules' folder and register the FileTime of the 'buildv/windows_release' folder (see #1) '3 * scan every single other file with .monkey2 extension in that folder: if just one has a more recent timestamps, that module is marked as 'to_be_compiled' '4 * at the end, launch the mx2cc_XXX commands to compile what needed. '   Namespace myapp   #Import "<std>" Using std..   Global map_module:=New StringMap<Module> Class Module Field name:String Field path:String Field timestamp:ULong Field rebuild:int Field list_source:StringList 'just for debug Function Store:Module(_path:String,_file:String) Local m:=New Module 'find the timestamp of ' path+module/build xxx /windows_debug/module.a m.name=_file.Slice(0,_file.Find(".")).ToUpper() Local t1:=GetFileTime(_path+"/"+_file+"/windows_debug/"+m.name+".a") Local t2:=GetFileTime(_path+"/"+_file+"/windows_release/"+m.name+".a") m.timestamp=Max(t1,t2)'consider the younger m.path=_path+"/"+_file m.list_source=New StringList 'not really needed... just for debug map_module.Set(m.name,m) ' Print "Module '"+m.name+"' "+m.timestamp Return m End function End Class   Function Main() 'scan Modules folder to check the latest 'change' Local path:="E:\monkey2-develop\modules" 'here my MX2 folder ReScan(path)'get the modules Print "Check source in modules scanned..." For Local k:=Eachin map_module.Keys Local v:=map_module.Get(k) If v SourceScan(path+"/"+v.name,v) End if next 'these are the modules that *should* be recompiled   For Local k:=Eachin map_module.Keys local v:=map_module.Get(k) If v If v.rebuild<>0 Print v.name+" "+v.rebuild End if Next end   Function SourceScan:Int(path:String,v:Module) 'check if exist any file younger than the module build         'it should be possible to add a filter to eliminate files and folder not to be scanned Local dirs:=LoadDir(path) Local codeext:=New String[]("monkey2","c","cpp","h") For Local f:=Eachin dirs For Local exx:=Eachin codeext If ExtractExt(f)="."+exx'monkey2" ' Print "--- ["+f+"]" If GetFileTime(path+"/"+f)>v.timestamp v.list_source.AddLast(f) v.rebuild=True Print "File <"+path+"> <"+f+">" End If End If next If GetFileType(path+"/"+f)=FileType.Directory SourceScan(path+"/"+f,v) Next Return 1 End Function   Function ReScan:Int(path:String) Local getfolder:=StripDir(path) getfolder=StripDir(path) 'get the FOLDER NAME path=path.Replace("/","\") Local mname:=GetFolderName(path)+".buildv"   Local dirs:=LoadDir(path) For Local f:=Eachin dirs If f.Contains(mname) Print "MODULE BUILD FOLDER <"+f+">" Module.Store(path,f) f="" End if If GetFileType(path+"/"+f)=FileType.Directory ReScan(path+"/"+f) End if next Return 1 End Function

SURELY not the best thing written in MX2, but it could be the starting point to integrate this in Ted2/Ted2Go (a specific menu to build MODULES CHANGED
ps: I checked only the folder ‘windows_debug’ and ‘windows_release’ as I’m working on Win.

edit: support for other source file (monkey2, c, cpp, h)

[Author]

Posts