M2 Lazy Import File Maker

[Abe _King_Participant]

My use-case: I see some people like to make quick prototype projects all in one file. Sometimes when it’s time to split it up into multiple files having to make all the imports of the project and keep them up to date can be a bit of a drag. This takes the pain away from writing all the imports by hand and just grabs all the monkey2 files in a directory and places it in one file that wraps them in an include file.

Basically just click and run it when you need it and it will do your job! Put an underscore at the beginning of folders or files you are discarding.

Monkey

#Import "<std>" Using std.. Const writefile:="imports.monkey2" Const importDir:="src" Const ignoreMatch:="_" Global cdir:String Global stream:FileStream Function Main() stream=FileStream.Open( writefile, "w" ) 'all files of the current dir cdir=CurrentDir() + importDir Local paths:= LoadRDir( cdir ) cdir=CurrentDir() For Local path:=Eachin paths If Not path.EndsWith(".monkey2") Continue Local relpath:=path.Replace( cdir, "") stream.WriteLine( "#Import ~q"+relpath+"~q") Next stream.Close() End Function LoadRDir:StringStack( path:String, s:StringStack=New StringStack ) Local paths:=LoadDir( path ) For Local _path:=Eachin paths ' ignore any file that begins with the ignore match If _path.StartsWith(ignoreMatch) Continue If GetFileType(path)=FileType.Directory LoadRDir( path +"/"+ _path, s) Else s.Push( path ) End Next Return s 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

#Import "<std>" Using std..   Const writefile:="imports.monkey2" Const importDir:="src" Const ignoreMatch:="_" Global cdir:String Global stream:FileStream   Function Main() stream=FileStream.Open( writefile, "w" ) 'all files of the current dir cdir=CurrentDir() + importDir Local paths:= LoadRDir( cdir ) cdir=CurrentDir() For Local path:=Eachin paths If Not path.EndsWith(".monkey2") Continue Local relpath:=path.Replace( cdir, "") stream.WriteLine( "#Import ~q"+relpath+"~q") Next stream.Close() End   Function LoadRDir:StringStack( path:String, s:StringStack=New StringStack ) Local paths:=LoadDir( path ) For Local _path:=Eachin paths ' ignore any file that begins with the ignore match If _path.StartsWith(ignoreMatch) Continue If GetFileType(path)=FileType.Directory LoadRDir( path +"/"+ _path, s) Else s.Push( path ) End Next Return s End

[Author]

Posts