ropes: Fix the behavior of `RopeBuffer.clear` when used with `to_s`.
[nit.git] / src / nitls.nit
index c058219..cde9656 100644 (file)
@@ -20,28 +20,64 @@ module nitls
 intrude import modelbuilder
 import ordered_tree
 
+class ProjTree
+       super OrderedTree[Object]
+
+       var opt_paths = false
+
+       redef fun display(o)
+       do
+               if o isa MGroup then
+                       if opt_paths then
+                               return o.filepath.as(not null)
+                       else
+                               return "{o.name} ({o.filepath.to_s})"
+                       end
+               else if o isa ModulePath then
+                       if opt_paths then
+                               return o.filepath
+                       else
+                               return "{o.name} ({o.filepath})"
+                       end
+               else
+                       abort
+               end
+       end
+end
+
 var tc = new ToolContext
-var model = new Model
-var mb = new ModelBuilder(model, tc)
 
 var opt_keep = new OptionBool("Ignore errors and files that are not a Nit source file", "-k", "--keep")
 var opt_recursive = new OptionBool("Process directories recussively", "-r", "--recursive")
 var opt_tree = new OptionBool("List source files in their groups and projects", "-t", "--tree")
 var opt_source = new OptionBool("List source files", "-s", "--source")
-var opt_project = new OptionBool("List projects paths (default)", "-p", "--project")
-var opt_depends = new OptionBool("List dependencies of given modules", "-M", "--depends")
+var opt_project = new OptionBool("List projects paths (default)", "-P", "--project")
+var opt_depends = new OptionBool("List dependencies of given modules", "-d", "--depends")
+var opt_make = new OptionBool("List dependencies suitable for a rule in a Makefile. Alias for -d, -p and -s", "-M")
+var opt_paths = new OptionBool("List only path (instead of name + path)", "-p", "--path")
 
-tc.option_context.add_option(opt_keep, opt_recursive, opt_tree, opt_source, opt_project, opt_depends)
+tc.option_context.add_option(opt_keep, opt_recursive, opt_tree, opt_source, opt_project, opt_depends, opt_paths, opt_make)
 tc.tooldescription = "Usage: nitls [OPTION]... <file.nit|directory>...\nLists the projects and/or paths of Nit sources files."
-tc.process_options
+tc.process_options(args)
 
-var sum = opt_tree.value.to_i + opt_source.value.to_i + opt_project.value.to_i + opt_depends.value.to_i
+if opt_make.value then
+       opt_depends.value = true
+       opt_paths.value = true
+       opt_source.value = true
+end
+
+var sum = opt_tree.value.to_i + opt_source.value.to_i + opt_project.value.to_i
 if sum > 1 then
        print "Error: options --tree, --source, and --project are exclusives."
        print tc.tooldescription
        exit 1
 end
 
+tc.keep_going = opt_keep.value
+
+var model = new Model
+var mb = new ModelBuilder(model, tc)
+
 if opt_depends.value then
        if opt_recursive.value then
                print "-M incompatible with -r"
@@ -49,41 +85,39 @@ if opt_depends.value then
        end
 
        mb.parse(tc.option_context.rest)
-       for x in model.mmodules do
-               print x.location.file.filename
+else
+       var files
+       if opt_recursive.value then
+               files = new Array[String]
+               for d in tc.option_context.rest do
+                       var pipe = new IProcess("find", d, "-name", "*.nit")
+                       while not pipe.eof do
+                               var l = pipe.read_line
+                               if l == "" then break # last line
+                               l = l.substring(0,l.length-1) # strip last oef
+                               files.add l
+                       end
+                       pipe.close
+                       pipe.wait
+                       if pipe.status != 0 and not opt_keep.value then exit 1
+               end
+       else
+               files = tc.option_context.rest
        end
-end
 
-if sum == 0 then opt_project.value = true
-
-var files
-if opt_recursive.value then
-       files = new Array[String]
-       for d in tc.option_context.rest do
-               var pipe = new IProcess("find", d, "-name", "*.nit")
-               while not pipe.eof do
-                       var l = pipe.read_line
-                       if l == "" then break # last line
-                       l = l.substring(0,l.length-1) # strip last oef
-                       files.add l
+       for a in files do
+               var mp = mb.identify_file(a)
+               if mp == null then
+                       tc.check_errors
                end
-               pipe.close
-               pipe.wait
-               if pipe.status != 0 and not opt_keep.value then exit 1
        end
-else
-       files = tc.option_context.rest
 end
 
-for a in files do
-       var mp = mb.identify_file(a)
-       if mp == null then
-               if not opt_keep.value then tc.check_errors
-       end
-end
+if sum == 0 then opt_project.value = true
 
 if opt_tree.value then
-       var ot = new OrderedTree[Object]
+       var ot = new ProjTree
+       ot.opt_paths = opt_paths.value
        for p in model.mprojects do
                for g in p.mgroups do
                        ot.add(g.parent, g)
@@ -101,7 +135,11 @@ if opt_source.value then
        for p in model.mprojects do
                for g in p.mgroups do
                        for mp in g.module_paths do
-                               list.add(mp.filepath)
+                               if opt_paths.value then
+                                       list.add(mp.filepath)
+                               else
+                                       list.add("{g.full_name}/{mp.name} ({mp.filepath})")
+                               end
                        end
                end
        end
@@ -112,7 +150,12 @@ end
 if opt_project.value then
        var list = new Array[String]
        for p in model.mprojects do
-               list.add(p.root.filepath.as(not null))
+               var path = p.root.filepath.as(not null)
+               if opt_paths.value then
+                       list.add(path)
+               else
+                       list.add("{p.name} ({path})")
+               end
        end
        alpha_comparator.sort(list)
        for l in list do print l