MojoX Build Cleaner Utility

[coconParticipant]

This is a simple utility I made a few months ago, to allow you to cleanup the build directories. From console I made a refreshing update into GUI, that way it will be much more useful.

buildcleaner.monkey2

Monkey

Namespace buildcleaner #import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Class BuildCleanerWindow Extends Window Private Field context:Context Field textView:TextView Public Method New() Super.New("Monkey2 Build Cleaner", 640, 480, WindowFlags.Resizable) ' context context = New Context ' root path Local pathLabel := New Label("Search Path: ") Local pathField := New TextField Local pathDock := New DockingView pathDock.AddView(pathLabel, "left", "20%") pathDock.AddView(pathField, "right", "80%") ' version path Local verLabel := New Label("Search Version: ") Local verField := New TextField Local verDock := New DockingView verDock.AddView(verLabel, "left", "20%") verDock.AddView(verField, "right", "80%") ' button Local butSearch := New Button("Search") Local butDelete := New Button("Delete") Local butDock := New DockingView butDock.AddView(butSearch, "left", "50%") butDock.AddView(butDelete, "right", "50%") butSearch.Clicked = Lambda() context.State = "Search" context.BaseDirectory = pathField.Text context.VersionPattern = verField.Text Operations.UpdateProcess(context) End butDelete.Clicked = Lambda() If context.State = "Delete" Operations.UpdateProcess(context) End End ' report textView = New TextView textView.Text = "Welcome To Monkey2 Build Cleaner This utility will help you clean Monkey2 ~qbuildv~q and ~qproduct~q directories. Set the ~qSearch Path~q as the initial directory from where the searching will be initiated, this will include any subdirectories below that match the criteria. Optionally you can set an identifier to ~qSearch Version~q field so you can limit the search results even further into specific versions. Leaving the version field blank will lead you to include just everything. Then press the ~qSearch~q button to start searching for the subdirectories, once the search is completed press the ~qDelete~q button to initiate the deletion process. " ' main dock Local mainDock := New DockingView mainDock.AddView(pathDock, "top") mainDock.AddView(verDock , "top") mainDock.AddView(butDock , "top") mainDock.AddView(textView, "top", "100%", True) ContentView = mainDock ' test pathField.Text = "D:\Programming\monkey2" End Method ReportClear() textView.Text = "" End Method Report(s:String) textView.Text += s + "~n" End End Function Main() New AppInstance New BuildCleanerWindow App.Run() End Class Context Field BaseDirectory:String Field VersionPattern:String Field SearchResults:List<String> Field State:String Field ErrorMessage:String Property HasVersion:Bool() Return VersionPattern <> Null And VersionPattern.Length > 0 End Property HasResults:Bool() Return SearchResults <> Null And SearchResults.Count() > 0 End End Class Operations Abstract Function UpdateProcess(context:Context) Utils.Window().ReportClear() Select context.State Case "Search" Utils.ValidateContextInputFields(context) DirectorySearch.StartSearch(context) If Not context.HasResults Utils.Window().Report("No Results Found") context.State = "Search" Else Utils.Window().Report("Results Found:~n") DirectoryOperations.Report(context) context.State = "Delete" End Case "Delete" Utils.Window().Report("Deleting Directories~n") DirectoryOperations.DeleteDirectories(context) Utils.Window().Report("~nCompleted") context.State = "Search" End End End Class DirectorySearch Abstract Private Global directoryStack:Stack<String> Function IsDirectory:Bool(path:String) Return GetFileType(path) = FileType.Directory End Function TestDirectoryToIgnore:Bool(path:String) Return path.Contains(".git") = False End Function TestDirectoryToInclude:Bool(context:Context, path:String) Local containsBuild := path.Contains(".buildv") Local containsProduct := path.Contains(".products") Local containsPattern := path.Contains(context.VersionPattern) If containsProduct Then Return True If context.HasVersion If containsBuild And containsPattern Then Return True Else If containsBuild Then Return True End Return False End Function PushSubdirectoriesToStack(path:String) For Local p := Eachin LoadDir(path) Local fullPath := path+"/"+p If IsDirectory(fullPath) If TestDirectoryToIgnore(fullPath) directoryStack.Push(fullPath) End End Next End Public Function StartSearch(context:Context) context.SearchResults = New List<String> directoryStack = New Stack<String> directoryStack.Push(context.BaseDirectory) While directoryStack.Length > 0 Local dir := directoryStack.Pop() If TestDirectoryToInclude(context, dir) context.SearchResults.Add(dir) Continue End PushSubdirectoriesToStack(dir) End End End Class DirectoryOperations Abstract Function Report(context:Context) If context.HasResults For Local i := Eachin context.SearchResults Utils.Window().Report(i) Next End End Function DeleteDirectories(context:Context) For Local r := Eachin context.SearchResults DeleteDir(r, True) Utils.Window().Report("Deleted: " + r) Next End End Class Utils Abstract Function ValidateContextInputFields(context:Context) context.BaseDirectory = CleanPath(context.BaseDirectory) End Function CleanPath:String(path:String) Return path.Replace( "\","/" ).Replace("~q", "") End Function Window:BuildCleanerWindow() Return Cast<BuildCleanerWindow>(App.ActiveWindow) End 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 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246

Namespace buildcleaner   #import "<std>" #import "<mojo>" #import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class BuildCleanerWindow Extends Window Private Field context:Context Field textView:TextView Public Method New() Super.New("Monkey2 Build Cleaner", 640, 480, WindowFlags.Resizable) ' context context = New Context ' root path Local pathLabel := New Label("Search Path: ") Local pathField := New TextField Local pathDock  := New DockingView pathDock.AddView(pathLabel, "left", "20%") pathDock.AddView(pathField, "right", "80%") ' version path Local verLabel := New Label("Search Version: ") Local verField := New TextField Local verDock  := New DockingView verDock.AddView(verLabel, "left", "20%") verDock.AddView(verField, "right", "80%")   ' button Local butSearch := New Button("Search") Local butDelete := New Button("Delete") Local butDock   := New DockingView butDock.AddView(butSearch, "left", "50%") butDock.AddView(butDelete, "right", "50%") butSearch.Clicked = Lambda() context.State = "Search" context.BaseDirectory = pathField.Text context.VersionPattern = verField.Text Operations.UpdateProcess(context) End   butDelete.Clicked = Lambda() If context.State = "Delete" Operations.UpdateProcess(context) End End ' report textView = New TextView textView.Text = "Welcome To Monkey2 Build Cleaner This utility will help you clean Monkey2 ~qbuildv~q and ~qproduct~q directories.   Set the ~qSearch Path~q as the initial directory from where the searching will be initiated, this will include any subdirectories below that match the criteria.   Optionally you can set an identifier to ~qSearch Version~q field so you can limit the search results even further into specific versions. Leaving the version field blank will lead you to include just everything.   Then press the ~qSearch~q button to start searching for the subdirectories, once the search is completed press the ~qDelete~q button to initiate the deletion process. "   ' main dock Local mainDock := New DockingView mainDock.AddView(pathDock, "top") mainDock.AddView(verDock , "top") mainDock.AddView(butDock , "top") mainDock.AddView(textView, "top", "100%", True) ContentView = mainDock ' test pathField.Text = "D:\Programming\monkey2" End   Method ReportClear() textView.Text = "" End   Method Report(s:String) textView.Text += s + "~n" End End   Function Main() New AppInstance New BuildCleanerWindow App.Run() End   Class Context Field BaseDirectory:String Field VersionPattern:String Field SearchResults:List<String> Field State:String Field ErrorMessage:String   Property HasVersion:Bool() Return VersionPattern <> Null And VersionPattern.Length > 0 End   Property HasResults:Bool() Return SearchResults <> Null And SearchResults.Count() > 0 End End   Class Operations Abstract Function UpdateProcess(context:Context) Utils.Window().ReportClear() Select context.State Case "Search" Utils.ValidateContextInputFields(context) DirectorySearch.StartSearch(context) If Not context.HasResults Utils.Window().Report("No Results Found") context.State = "Search" Else Utils.Window().Report("Results Found:~n") DirectoryOperations.Report(context) context.State = "Delete" End Case "Delete" Utils.Window().Report("Deleting Directories~n") DirectoryOperations.DeleteDirectories(context) Utils.Window().Report("~nCompleted") context.State = "Search" End End End   Class DirectorySearch Abstract Private   Global directoryStack:Stack<String>   Function IsDirectory:Bool(path:String) Return GetFileType(path) = FileType.Directory End   Function TestDirectoryToIgnore:Bool(path:String) Return path.Contains(".git") = False End   Function TestDirectoryToInclude:Bool(context:Context, path:String) Local containsBuild    := path.Contains(".buildv") Local containsProduct  := path.Contains(".products") Local containsPattern  := path.Contains(context.VersionPattern) If containsProduct Then Return True If context.HasVersion If containsBuild And containsPattern Then Return True Else If containsBuild Then Return True End Return False End   Function PushSubdirectoriesToStack(path:String) For Local p := Eachin LoadDir(path) Local fullPath := path+"/"+p If IsDirectory(fullPath) If TestDirectoryToIgnore(fullPath) directoryStack.Push(fullPath) End End Next End   Public   Function StartSearch(context:Context) context.SearchResults = New List<String> directoryStack = New Stack<String>   directoryStack.Push(context.BaseDirectory)   While directoryStack.Length > 0 Local dir := directoryStack.Pop()   If TestDirectoryToInclude(context, dir) context.SearchResults.Add(dir) Continue End   PushSubdirectoriesToStack(dir) End End End   Class DirectoryOperations Abstract Function Report(context:Context) If context.HasResults For Local i := Eachin context.SearchResults Utils.Window().Report(i) Next End End   Function DeleteDirectories(context:Context) For Local r := Eachin context.SearchResults DeleteDir(r, True) Utils.Window().Report("Deleted: " + r) Next End End   Class Utils Abstract Function ValidateContextInputFields(context:Context) context.BaseDirectory = CleanPath(context.BaseDirectory) End   Function CleanPath:String(path:String) Return path.Replace( "\","/" ).Replace("~q", "") End   Function Window:BuildCleanerWindow() Return Cast<BuildCleanerWindow>(App.ActiveWindow) End End

Attachments:

1. 

   2017-09-27-09_54_17-Monkey2-Build-Cleaner.png
   

2. 

   2017-09-27-09_54_33-Monkey2-Build-Cleaner.png
   

3. 

   2017-09-27-09_54_48-Monkey2-Build-Cleaner.png
   

[TomToadParticipant]

Very useful. Thanks for sharing.

[nerobotParticipant]

Similar feature is right inside of Ted2Go IDE – right click on project name and select menu item “Clean (delete .buildv)”.

It works if you have a .buildv right inside project folder. So you can’t clean modules inside of ‘monkey2’ project.

I can add recursive search if needed.

[coconParticipant]

Thanks for the feedback.

If you have any suggestions let me know.

nerobot: I will respond to the Ted2Go thread for more information.

[Author]

Posts