Mercurial Hosting > luan
view src/luan/modules/mmake.luan @ 1088:bae2d0c2576c
change module naming convention
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Mon, 26 Dec 2016 22:29:36 -0700 |
parents | 1a68fc55a80c |
children | 4d6c1bb8f975 |
line wrap: on
line source
local Luan = require "luan:Luan.luan" local ipairs = Luan.ipairs local Table = require "luan:Table.luan" local Io = require "luan:Io.luan" local print = Io.print local String = require "luan:String.luan" local Time = require "luan:Time.luan" 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 s = String.gsub(s,[[\$]],[[\$\$]]) 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 ".")