Monkey2 Build Cleanup Utility

[coconParticipant]

I needed to create this cleanup utility to tidy up my filesystem, things got messy after the last months and there were multiple builds and products from previous versions.

Monkey

#Import "<std>" Using std.. Class DirectorySearch Private Field foundDirectories:List<String> Field directoryStack:Stack<String> Public Property FoundDirectories:String[]() Return foundDirectories.ToArray() End Private ' Special Directory Search Rules Method TestDirectoryIgnore:Bool(path:String) Return (path.Contains(".git")) = False End Method TestDirectoryFilter:Bool(path:String) Local searchBuild := ArgumentManager.GetWillFindBuild() Local searchProduct := ArgumentManager.GetWillFindProduct() Local containsBuild := path.Contains(".buildv") Local containsProduct := path.Contains(".products") If searchBuild And searchProduct Return containsBuild Or containsProduct Elseif searchBuild And Not searchProduct Return containsBuild Elseif Not searchBuild And searchProduct Return containsProduct End Return False End ' Path Search Method IsDirectory:Bool(path:String) Return GetFileType(path) = FileType.Directory End Method PushSubdirectoriesToStack(path:String) 'Print("Checked: " + path) For Local p := Eachin LoadDir(path) Local newpath := path+"/"+p If IsDirectory(newpath) If TestDirectoryIgnore(newpath) 'Print("Added: " + newpath) directoryStack.Push(newpath) End End Next End Method AddDirectoryToFound(directory:String) If TestDirectoryFilter(directory) foundDirectories.AddLast(directory) 'Print("Filtered: " + directory) End End Public Method Search:String[](baseDirectory:String) directoryStack = New Stack<String> foundDirectories = New List<String> directoryStack.Push(baseDirectory) While directoryStack.Length > 0 Local dirBase := directoryStack.Pop() AddDirectoryToFound(dirBase) PushSubdirectoriesToStack(dirBase) End Return foundDirectories.ToArray() End End Class DirectoryOperations Function PrintDirectories(directories:String[]) If directories.Length = 0 Then Return Print("~n") For Local d := Eachin directories Print(d) Next Print("Total Directories: " + directories.Length) Print("Finished~n") End Function DeleteDirectories(directories:String[]) For Local d := Eachin directories If DeleteDir(d, True) 'Print("Delete: " + d) End Next Print("Finished~n") End End Class ArgumentManager Private Global baseDirectory:String Global willPrint:Bool = False Global willDelete:Bool = False Global willFindBuild:Bool = False Global willFindProduct:Bool = False Global invalidArguments:Bool = False Function CleanPath:String(path:String) Return path.Replace( "\","/" ).Replace("~q", "") End Public Function GetBaseDirectory:String() Return baseDirectory End Function GetWillPrint:Bool() Return willPrint End Function GetWillDelete:Bool() Return willDelete End Function GetWillFindBuild:Bool() Return willFindBuild End Function GetWillFindProduct:Bool() Return willFindProduct End Function ArgumentsWereInvalid:Bool() Return invalidArguments End Function Parse() Local args := AppArgs() ' Usage Example If args.Length = 1 Print("Usage: ~qLocation of the base directory~q [build] [product] [print] [delete]") Print("~tbuild: It will find any ~q.buildv~q directory (contains the transpiled sources).") Print("~tproduct: It will find any ~q.products~q directory (contains the built targets).") Print("~tprint: It will print the found directories.") Print("~tdelete: It will delete the found directories.") Print("~tdelete: It will delete the found directories.") invalidArguments = True Return End ' Base Path Local directory := CleanPath(args[1]) If GetFileType(directory) = FileType.Directory baseDirectory = directory Else Print("First parameter should be the base directory.") invalidArguments = True Return End ' Other Arguments For Local i := 2 Until args.Length Local arg := args[i].ToLower() Select arg Case "build" willFindBuild = True Case "product" willFindProduct = True Case "print" willPrint = True Case "delete" willDelete = True End Next ' Last Validation Checks If Not willFindBuild And Not willFindProduct Print("Please use at least one of these parameters: [build] or [product]") invalidArguments = True End If Not willPrint And Not willDelete willPrint = True End End End Function Main() ArgumentManager.Parse() If ArgumentManager.ArgumentsWereInvalid() Then Return Local searcher := New DirectorySearch searcher.Search(ArgumentManager.GetBaseDirectory()) If ArgumentManager.GetWillPrint() DirectoryOperations.PrintDirectories(searcher.FoundDirectories) End If ArgumentManager.GetWillDelete() DirectoryOperations.DeleteDirectories(searcher.FoundDirectories) 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

#Import "<std>"   Using std..   Class DirectorySearch Private Field foundDirectories:List<String> Field directoryStack:Stack<String> Public Property FoundDirectories:String[]() Return foundDirectories.ToArray() End   Private   ' Special Directory Search Rules Method TestDirectoryIgnore:Bool(path:String) Return (path.Contains(".git")) = False End Method TestDirectoryFilter:Bool(path:String) Local searchBuild := ArgumentManager.GetWillFindBuild() Local searchProduct := ArgumentManager.GetWillFindProduct() Local containsBuild := path.Contains(".buildv") Local containsProduct := path.Contains(".products") If searchBuild And searchProduct Return containsBuild Or containsProduct Elseif searchBuild And Not searchProduct Return containsBuild Elseif Not searchBuild And searchProduct Return containsProduct End Return False End ' Path Search Method IsDirectory:Bool(path:String) Return GetFileType(path) = FileType.Directory End Method PushSubdirectoriesToStack(path:String) 'Print("Checked: " + path) For Local p := Eachin LoadDir(path) Local newpath := path+"/"+p If IsDirectory(newpath) If TestDirectoryIgnore(newpath) 'Print("Added: " + newpath) directoryStack.Push(newpath) End End Next End Method AddDirectoryToFound(directory:String) If TestDirectoryFilter(directory) foundDirectories.AddLast(directory) 'Print("Filtered: " + directory) End End Public Method Search:String[](baseDirectory:String) directoryStack = New Stack<String> foundDirectories = New List<String> directoryStack.Push(baseDirectory) While directoryStack.Length > 0 Local dirBase := directoryStack.Pop() AddDirectoryToFound(dirBase) PushSubdirectoriesToStack(dirBase) End Return foundDirectories.ToArray() End End   Class DirectoryOperations Function PrintDirectories(directories:String[]) If directories.Length = 0 Then Return Print("~n") For Local d := Eachin directories Print(d) Next Print("Total Directories: " + directories.Length) Print("Finished~n") End Function DeleteDirectories(directories:String[]) For Local d := Eachin directories If DeleteDir(d, True) 'Print("Delete: " + d) End Next Print("Finished~n") End End   Class ArgumentManager Private Global baseDirectory:String Global willPrint:Bool = False Global willDelete:Bool = False Global willFindBuild:Bool = False Global willFindProduct:Bool = False Global invalidArguments:Bool = False Function CleanPath:String(path:String) Return path.Replace( "\","/" ).Replace("~q", "") End Public Function GetBaseDirectory:String() Return baseDirectory End Function GetWillPrint:Bool() Return willPrint End Function GetWillDelete:Bool() Return willDelete End Function GetWillFindBuild:Bool() Return willFindBuild End Function GetWillFindProduct:Bool() Return willFindProduct End Function ArgumentsWereInvalid:Bool() Return invalidArguments End Function Parse() Local args := AppArgs() ' Usage Example If args.Length = 1 Print("Usage: ~qLocation of the base directory~q [build] [product] [print] [delete]") Print("~tbuild:  It will find any ~q.buildv~q directory (contains the transpiled sources).") Print("~tproduct: It will find any ~q.products~q directory (contains the built targets).") Print("~tprint:  It will print the found directories.") Print("~tdelete: It will delete the found directories.") Print("~tdelete: It will delete the found directories.") invalidArguments = True Return End ' Base Path Local directory := CleanPath(args[1]) If GetFileType(directory) = FileType.Directory baseDirectory = directory Else Print("First parameter should be the base directory.") invalidArguments = True Return End ' Other Arguments For Local i := 2 Until args.Length Local arg := args[i].ToLower() Select arg Case "build" willFindBuild = True Case "product" willFindProduct = True Case "print" willPrint = True Case "delete" willDelete = True End Next ' Last Validation Checks If Not willFindBuild And Not willFindProduct Print("Please use at least one of these parameters: [build] or [product]") invalidArguments = True End If Not willPrint And Not willDelete willPrint = True End End End   Function Main() ArgumentManager.Parse()   If ArgumentManager.ArgumentsWereInvalid() Then Return Local searcher := New DirectorySearch searcher.Search(ArgumentManager.GetBaseDirectory()) If ArgumentManager.GetWillPrint() DirectoryOperations.PrintDirectories(searcher.FoundDirectories) End If ArgumentManager.GetWillDelete() DirectoryOperations.DeleteDirectories(searcher.FoundDirectories) End End

Usage Example:

TeX

First argument must be a directory. Second argument might be any other argument available. This will print all of the build folders (argument order does not matter): monkey2buildclean.exe "D:\Programming\monkey2" build print monkey2buildclean.exe "D:\Programming\monkey2" print build This will print the build and the product folders (if neither print/delete are set, print will be implied): monkey2buildclean.exe "D:\Programming\monkey2" build product This will print and delete the build and product folders. monkey2buildclean.exe "D:\Programming\monkey2" build product print delete This will only delete the build and product folders, it won't print anything. monkey2buildclean.exe "D:\Programming\monkey2" build product delete

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

First argument must be a directory. Second argument might be any other argument available.   This will print all of the build folders (argument order does not matter): monkey2buildclean.exe "D:\Programming\monkey2" build print monkey2buildclean.exe "D:\Programming\monkey2" print build   This will print the build and the product folders (if neither print/delete are set, print will be implied): monkey2buildclean.exe "D:\Programming\monkey2" build product   This will print and delete the build and product folders. monkey2buildclean.exe "D:\Programming\monkey2" build product print delete   This will only delete the build and product folders, it won't print anything. monkey2buildclean.exe "D:\Programming\monkey2" build product delete

[Author]

Posts