Mercurial Hosting > luan
view core/src/luan/modules/mmake.luan @ 618:5e495e4e560b
add lucene indexed_only_fields
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Fri, 01 Jan 2016 01:24:10 -0700 |
parents | 9767da72545b |
children | 35dde32c02ab |
line wrap: on
line source
local Luan = require "luan:Luan" local ipairs = Luan.ipairs local Table = require "luan:Table" local Io = require "luan:Io" local print = Io.print local String = require "luan:String" local Time = require "luan:Time" local compiler = Table.concat( { "javac -g -encoding UTF8", ... }, " " ) local function header() return %> # Makefile created on <%=Time.format(Time.now())%> by Mmake .SUFFIXES: .java .class .java.class: <%=compiler%> $< all: <% end local function mmake(dir) local javas = {} local dirs = {} for _, file in ipairs(dir.children()) do local name = file.name() if String.matches(name,[[.*\.java]]) then javas[#javas+1] = String.sub(name,1,-6) end if file.is_directory() and mmake(file) then dirs[#dirs+1] = name end end if #javas == 0 and #dirs == 0 then return false; end local out = dir.child("Makefile").text_writer() out.write( header() ) for _, s in ipairs(javas) do out.write( "\\\n\t\t", s , ".class" ) end for _, s in ipairs(dirs) do out.write( "\n\tcd ", s, "; make all" ) end out.write "\n\nclean:\n\trm -f *.class\n" for _, s in ipairs(dirs) do out.write( "\tcd ", s, "; make clean\n" ) end out.close() print(dir.to_string()) return true end mmake(Io.schemes.file ".")