[bmx] mcc (module cleaner) by plash [ 1+ years ago ]

[BlitzBot]

Title : mcc (module cleaner)
Author : plash
Posted : 1+ years ago

Description : mcc deletes the compiled modules format ('.a' and '.i'), as well as '.bmx' folders in a module folder.

I built this for module releases (give it the mod folder and you have less space in your download), and for backing-up my source.

Commands:
-help (list commands, or 'help $COMMAND$' to get information on a command)
-dir (set the directory to be searched, if this is not used mcc will ask for a folder)
-recursive [or -r] (do recursive search, can be 'on', 'off', 'true', 'false' etc)

COMPILING NOTES: Remember to turn on command-line build! (for MaxIDE users, that is GUI mode off)

<a href="http://hosted.filefront.com/poqls/2336671" target="_blank">Binary and source packages</a>
Current Version: 0.79

Code :

Code (blitzmax) Select Expand

Rem

MCC is public-domain

CHANGES (v0.79)
Changed file checking routine and added support for threaded compilations ('.mt')

CHANGES (v0.78)
Inital, public release

Copyright Tim Howard 2008 (aka Plash)

End Rem

SuperStrict


Framework brl.standardio

Import brl.system

'Take away the directory
Global appargslen:Int = AppArgs.Length - 1

Global VERSION:String = "0.79"
Global prop_dir:String = "", prop_recursive:Int = True

Global plats:String[] = ["win32", "linux", "macos"]

Print("MCC -- version " + VERSION)

'Internally, blitzmax sends its directory to itself, we need to skip over this line
If appargslen > 0 'AppArgs.Length > 1

For Local i:Int = 1 To appargslen
 Local a:String = AppArgs[i].ToLower()

Select(a)
Case "-dir", "/dir"
If (appargslen - (i - 1)) >= 2
 Local b:String = AppArgs[i + 1]

Select(b.ToLower())
Case "/?"
Print("USAGE:")
Print("~t-dir ~q/directory/path~q")
Print()

Print("DESCRIPTION:")
Print("~tSet the path to remove files from (will recursively search all")
Print("~tchild directories if 'recursive' is turned on)")

Default

If (appargslen - (i - 1)) >= 2
 Local tmp:String

tmp = AppArgs[i + 1]

If tmp[0] = 34 And tmp[tmp.Length - 1] = 34

prop_dir = tmp[1..tmp.Length - 1]

Else

prop_dir = tmp

End If

prop_dir = prop_dir.Replace("", "/")
If prop_dir[prop_dir.Length - 1] = 47 Then prop_dir = prop_dir[0..prop_dir.Length - 1]

i:+1
Else

InvalidNOps(a + " " + b)

End If

End Select

Else

InvalidNOps(a)

End If

Case "-recursive", "-r", "/recursive", "/r"
If (appargslen - (i - 1)) >= 2
 Local b:String = AppArgs[i + 1]

Select(b.ToLower())
Case "/?"
Print("USAGE:")
Print("~t-recursive 1, true, on/0, false, off")
Print()

Print("DESCRIPTION:")
Print("~tIf set to true, the directory ('-help dir') will be recursively searched")

Default

If (appargslen - (i - 1)) >= 2
 Local tmp:String

tmp = AppArgs[i + 1].ToLower()

Select(tmp)
Case "1", "true", "on"
prop_recursive = True

Case "0", "false", "off"
prop_recursive = False

End Select

i:+1
Else

InvalidNOps(a + " " + b)

End If

End Select

Else

InvalidNOps(a)

End If

Case "-help", "/help"
If (appargslen - (i - 1)) >= 2
 Local b:String = AppArgs[i + 1]

Select(b.ToLower())
Case "dir"
Print("USAGE:")
Print("~t-dir ~q/directory/path~q")
Print()

Print("DESCRIPTION:")
Print("~tSet the path to remove files from (will recursively search all")
Print("~tchild directories if 'recursive' is turned on)")

Case "recursive", "r"
Print("USAGE:")
Print("~t-recursive 1, true, on/0, false, off")
Print()

Print("DESCRIPTION:")
Print("~tIf set to true, the directory ('-help dir') will be recursively searched")

Case "help"
Print("DESCRIPTION:")
Print("~tGives informa-- wait a second.. haha! funny, very funny.")

Case "/?"
Print("USAGE:")
Print("~t-help $COMMAND$ ~t~t(for help on a command)")
Print("~t-help ~t~t(for a list of commands)")
Print()

Print("DESCRIPTION:")
Print("~tGives information on commands")

Default
Print("Unknown command, type '-help' for a list of commands")

End Select

Else

Print("LIST OF PROPERTIES/COMMANDS:")
Print("~t-dir ~t~t(type '-dir /?', or '-help dir' for more information)")
Print("~t-recursive ~t(type '-recursive /?', or '-help recursive' for more information)")
Print()
Print("~t-help ~t~t(type '-help' for this list, or '-help $COMMAND$' for command information)")

End If

End

Default
Print("Unknown command: " + a + " ~t~t(type '-help' for a list of commands)")
End

End Select

Next

Else

RQDir()

End If

If prop_dir = Null

RQDir()

End If

If FileType(prop_dir) = FILETYPE_DIR

Print("Removing 'win32', 'macos', 'linux' module compilations, and '.bmx' folders from ~q" + prop_dir + "/~q")
DoModRemove()

Else

Print("The path, ~q" + prop_dir + "~q, does not exist (or it is a file, and not a directory)")
End

End If


''
Function DoModRemove()

prop_dir:+"/"

DoFolder(prop_dir, prop_recursive)

End Function

Function DoFolder(path:String, orr_recursive:Int)
  Local dir:Int, file:String

dir = ReadDir(path)

Repeat

'No NextDir function :(
file = NextFile(dir)

If file = "" Then Exit
If file <> "." And file <> ".." Then

Select(FileType(path + file))
Case FILETYPE_FILE

If file[file.Length - 1] = 97 Or file[file.Length - 1] = 105
If IsFileBad(file, 1)

'Print(".." + MinimizePath(path) + file)
RemoveFile(path + file)

Else

If IsFileBad(file, 2)

'Print(".." + MinimizePath(path) + file)
RemoveFile(path + file)

End If

End If
End If

Case FILETYPE_DIR

'Print("dd: ~q" + file + "~q")
If file.ToLower() = ".bmx"

'Print(".." + MinimizePath(path) + file)
DeleteDir(path + file, True)

Else If orr_recursive = True And file[file.Length - 4..file.Length].ToLower() = ".mod"

DoFolder(path + file + "/", True)

End If

End Select

EndIf

Forever

CloseDir(dir)

End Function

Function IsFileBad:Int(file:String, _type:Int)
  Local fend:String, fendt:String

If _type = 1

fend = file[file.Length - 20..file.Length].ToLower()
fendt = file[file.Length - 23..file.Length].ToLower()

For Local i:Int = 0 To 2
If fend = ".release." + plats[i] + ".x86.a" Or fend = ".release." + plats[i] + ".x86.i"

Return(True)

Else If fendt = ".release.mt." + plats[i] + ".x86.a" Or fendt = ".release.mt." + plats[i] + ".x86.i"

Return(True)

End If
Next

Else If _type = 2

fend = file[file.Length - 18..file.Length].ToLower()
fendt = file[file.Length - 21..file.Length].ToLower()

For Local i:Int = 0 To 2

If fend = ".debug." + plats[i] + ".x86.a" Or fend = ".debug." + plats[i] + ".x86.i"

Return(True)

Else If fendt = ".debug.mt." + plats[i] + ".x86.a" Or fendt = ".debug.mt." + plats[i] + ".x86.i"

Return(True)

End If

Next

End If

Return(False)

End Function

Function RemoveFile(path:String)

Print(".." + MinimizePath(path))
DeleteFile(path)

End Function

Function MinimizePath:String(path:String)

  Local ind:Int, lind:Int = -1

Repeat
ind = path.Find("/", ind + 1)

If ind > -1

If path.Find("/", ind + 1)= -1 Then Exit

Else
Exit
End If

lind = ind
Forever

Return(path[lind..path.Length])

End Function


Function RQDir()

prop_dir = RequestDir("Select path for mcc", CurrentDir())

If prop_dir = Null

Print("No directory selected (cancelled)")
End

Else

prop_dir = prop_dir.Replace("", "/")
If prop_dir[prop_dir.Length - 1] = 47 Then prop_dir = prop_dir[0..prop_dir.Length - 1]

End If

End Function

Function InvalidNOps(cmd:String)

Print("ERROR: Invalid number of arguments, see '" + cmd + " /?'")
End

End Function

Comments :


Ked(Posted 1+ years ago)

 Why are you deleting the A and I files? Aren't those the compiled modules?


plash(Posted 1+ years ago)

 Yes those are the compiled modules (notice the name of the application).The reasons being:1) Less space used (good for backups, not essentially for ONE module, but when you backup your whole blitzmax/mod folder it tends to.. add up)2) I find it best to make the users compile the modules (to report any missing modules/code from the package, and for me: forgetting to compile the module before packaging it)3) I use this on any mods I copy from windows to Linux to, again, save space (no sense having win32 compilations on a Linux machine)


degac(Posted 1+ years ago)

 As you are working on it you should make it compatible with MultiThreading support...Example:

Code Select Expand

freeaudio.debug.win32.x86.i
freeaudio.debug.mt.win32.x86.a
freeaudio.release.mt.win32.x86.i
freeaudio.release.mt.win32.x86.a
Your program cant' reconigze the 'mt variation'


plash(Posted 1+ years ago)

 @degac: Done.


slenkar(Posted 1+ years ago)

 thanks, good app [/i]