Mercurial Hosting > luan

comparison core/src/luan/modules/mmake.luan @ 348:6fd016d35ec1 0.2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve Hosting and fix mmake
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 12 Apr 2015 08:35:23 -0600
parents scripts/mmake.luan@7f7708e8fdd4
children 92c3d22745b8
comparison
equal deleted inserted replaced
347:612a283b3d14 348:6fd016d35ec1
1 local Luan = require "luan:Luan"
2 local ipairs = Luan.ipairs
3 local Table = require "luan:Table"
4 local Io = require "luan:Io"
5 local print = Io.print
6 local String = require "luan:String"
7 local Time = require "luan:Time"
8
9
10 compiler = Table.concat( { "javac -g -encoding UTF8", ... }, " " )
11
12 function mmake(dir)
13 local javas = {}
14 local dirs = {}
15 for _, file in ipairs(dir.children()) do
16 local name = file.name()
17 if name.match ".java$" ~= nil then
18 javas[#javas+1] = name.sub(1,-6)
19 end
20 if file.is_directory() and mmake(file) then
21 dirs[#dirs+1] = name
22 end
23 end
24 if #javas == 0 and #dirs == 0 then
25 return false;
26 end
27 local out = dir.child("Makefile").text_writer()
28 out.write( header() )
29 for _, s in ipairs(javas) do
30 out.write( "\\\n\t\t", s , ".class" )
31 end
32 for _, s in ipairs(dirs) do
33 out.write( "\n\tcd ", s, "; make all" )
34 end
35 out.write "\n\nclean:\n\trm -f *.class\n"
36 for _, s in ipairs(dirs) do
37 out.write( "\tcd ", s, "; make clean\n" )
38 end
39 out.close()
40 print(dir.to_string())
41 return true
42 end
43
44
45 function header()
46 return %>
47 # Makefile created on <%=Time.format(Time.now())%> by Mmake
48
49 .SUFFIXES: .java .class
50
51 .java.class:
52 <%=compiler%> $<
53
54 all: <%
55 end
56
57 mmake(Io.schemes.file ".")