1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Licensed under the Apache License, Version 2.0 (the "License");
4 # you may not use this file except in compliance with the License.
5 # You may obtain a copy of the License at
7 # http://www.apache.org/licenses/LICENSE-2.0
9 # Unless required by applicable law or agreed to in writing, software
10 # distributed under the License is distributed on an "AS IS" BASIS,
11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 # See the License for the specific language governing permissions and
13 # limitations under the License.
15 # Basic catalog generator for Nit packages
17 # See: <http://nitlanguage.org/catalog/>
19 # The tool scans packages and generates the HTML files of a catalog.
23 # * [X] scan packages and their `.ini`
24 # * [X] generate lists of packages
25 # * [X] generate a page per package with the readme and most metadata
26 # * [ ] link/include/be included in the documentation
27 # * [ ] propose `related packages`
28 # * [X] show directory content (a la nitls)
29 # * [X] gather git information from the working directory
30 # * [ ] gather git information from the repository
31 # * [ ] gather package information from github
32 # * [ ] gather people information from github
34 # * [X] separate information gathering from rendering
35 # * [ ] move up information gathering in (existing or new) service modules
36 # * [X] add command line options
37 # * [ ] harden HTML (escaping, path injection, etc)
38 # * [ ] nitcorn server with RESTful API
40 # ## Issues and limitations
42 # The tool works likee the other tools and expects to find valid Nit source code in the directories
44 # * cruft and temporary files will be collected
45 # * missing source file (e.g. not yet generated by nitcc) will make information
46 # incomplete (e.g. invalid module thus partial dependency and metrics)
48 # How to use the tool as the basis of a Nit code archive on the web usable with a package manager is not clear.
51 import md5
# To get gravatar images
52 import counter
# For statistics
53 import modelize
# To process and count classes and methods
57 # Metadata related to this package
58 var metadata
= new MPackageMetadata(self)
61 # The metadata extracted from a MPackage
62 class MPackageMetadata
64 # The mpacakge this metadata belongs to
65 var mpackage
: MPackage
67 # Return the associated metadata from the `ini`, if any
68 fun metadata
(key
: String): nullable String do
69 var ini
= mpackage
.ini
70 if ini
== null then return null
74 # The consolidated list of tags
75 var tags
: Array[String] is lazy
do
76 var tags
= new Array[String]
77 var string
= metadata
("package.tags")
78 if string
== null then return tags
79 for tag
in string
.split
(",") do
81 if tag
.is_empty
then continue
84 if tryit
!= null then tags
.add
"tryit"
85 if apk
!= null then tags
.add
"apk"
86 if tags
.is_empty
then tags
.add
"none"
90 # The list of all maintainers
91 var maintainers
= new Array[Person]
93 # The list of contributors
94 var contributors
= new Array[Person]
96 # The date of the most recent commit
97 var last_date
: nullable String = null
99 # The date of the oldest commit
100 var first_date
: nullable String = null
102 # Key: package.maintainer`
103 var maintainer
: nullable String is lazy
do return metadata
("package.maintainer")
105 # Key: `package.more_contributors`
106 var more_contributors
: Array[String] is lazy
do
107 var res
= new Array[String]
108 var string
= metadata
("package.more_contributors")
109 if string
== null then return res
110 for c
in string
.split
(",") do
112 if c
.is_empty
then continue
118 # Key: `package.license`
119 var license
: nullable String is lazy
do return metadata
("package.license")
121 # Key: `upstream.tryit`
122 var tryit
: nullable String is lazy
do return metadata
("upstream.tryit")
124 # Key: `upstream.apk`
125 var apk
: nullable String is lazy
do return metadata
("upstream.apk")
127 # Key: `upstream.homepage`
128 var homepage
: nullable String is lazy
do return metadata
("upstream.homepage")
130 # Key: `upstream.browse`
131 var browse
: nullable String is lazy
do return metadata
("upstream.browse")
133 # Package git clone address
134 var git
: nullable String is lazy
do return metadata
("upstream.git")
136 # Package issue tracker
137 var issues
: nullable String is lazy
do return metadata
("upstream.issues")
141 # Returns `log(self+1)`. Used to compute score of packages
142 fun score
: Float do return (self+1).to_f
.log
145 # A contributor/author/etc.
147 # It comes from git or the metadata
149 # TODO get more things from github by using the email as a key
150 # "https://api.github.com/search/users?q={email}+in:email"
152 # The name. Eg "John Doe"
153 var name
: String is writable
155 # The email, Eg "john.doe@example.com"
156 var email
: nullable String is writable
158 # Some homepage. Eg "http://example.com/~jdoe"
159 var page
: nullable String is writable
162 var gravatar
: nullable String is lazy
do
163 var email
= self.email
164 if email
== null then return null
165 return email
.md5
.to_lower
168 # Return a full-featured link to a person
172 var e
= name
.html_escape
175 res
+= "<a href=\"{page.html_escape}\
">"
177 var gravatar
= self.gravatar
178 if gravatar
!= null then
179 res
+= "<img src=\"https
://secure
.gravatar
.com
/avatar
/{gravatar}?size
=20&
;default
=retro\
"> "
182 if page
!= null then res
+= "</a>"
186 # The standard representation of a person.
189 # var jd = new Person("John Doe", "john.doe@example.com", "http://example.com/~jdoe")
190 # assert jd.to_s == "John Doe <john.doe@example.com> (http://example.com/~jdoe)"
193 # It can be used as the input of `parse`.
196 # var jd2 = new Person.parse(jd.to_s)
197 # assert jd2.to_s == jd.to_s
202 var email
= self.email
203 if email
!= null then res
+= " <{email}>"
205 if page
!= null then res
+= " ({page})"
209 # Crete a new person from its standard textual representation.
212 # var jd = new Person.parse("John Doe <john.doe@example.com> (http://example.com/~jdoe)")
213 # assert jd.name == "John Doe"
214 # assert jd.email == "john.doe@example.com"
215 # assert jd.page == "http://example.com/~jdoe"
218 # Emails and page are optional.
221 # var jd2 = new Person.parse("John Doe")
222 # assert jd2.name == "John Doe"
223 # assert jd2.email == null
224 # assert jd2.page == null
226 init parse
(person
: String)
231 # Regular expressions are broken, need to investigate.
234 #var re = "([^<(]*?)(<([^>]*?)>)?(\\((.*)\\))?".to_re
235 #var m = (person+" ").search(re)
236 #print "{person}: `{m or else "?"}` `{m[1] or else "?"}` `{m[3] or else "?"}` `{m[5] or else "?"}`"
238 var sp1
= person
.split_once_on
("<")
239 if sp1
.length
< 2 then
242 var sp2
= sp1
.last
.split_once_on
(">")
243 if sp2
.length
< 2 then
246 name
= sp1
.first
.trim
247 email
= sp2
.first
.trim
248 var sp3
= sp2
.last
.split_once_on
("(")
249 if sp3
.length
< 2 then
252 var sp4
= sp3
.last
.split_once_on
(")")
253 if sp4
.length
< 2 then
256 page
= sp4
.first
.trim
259 init(name
, email
, page
)
264 # The main class of the calatog generator that has the knowledge
268 # used to access the files and count source lines of code
269 var modelbuilder
: ModelBuilder
271 # List of all packages by their names
272 var mpackages
= new HashMap[String, MPackage]
275 var tag2proj
= new MultiHashMap[String, MPackage]
277 # Packages by category
278 var cat2proj
= new MultiHashMap[String, MPackage]
280 # Packages by maintainer
281 var maint2proj
= new MultiHashMap[Person, MPackage]
283 # Packages by contributors
284 var contrib2proj
= new MultiHashMap[Person, MPackage]
286 # Dependency between packages
287 var deps
= new POSet[MPackage]
289 # Number of modules by package
290 var mmodules
= new Counter[MPackage]
292 # Number of classes by package
293 var mclasses
= new Counter[MPackage]
295 # Number of methods by package
296 var mmethods
= new Counter[MPackage]
298 # Number of line of code by package
299 var loc
= new Counter[MPackage]
302 var errors
= new Counter[MPackage]
304 # Number of warnings and advices
305 var warnings
= new Counter[MPackage]
307 # Number of warnings per 1000 lines of code (w/kloc)
308 var warnings_per_kloc
= new Counter[MPackage]
310 # Documentation score (between 0 and 100)
311 var documentation_score
= new Counter[MPackage]
313 # Number of commits by package
314 var commits
= new Counter[MPackage]
318 # The score is loosely computed using other metrics
319 var score
= new Counter[MPackage]
321 # List of known people by their git string
322 var persons
= new HashMap[String, Person]
324 # Map person short names to person objects
325 var name2person
= new HashMap[String, Person]
327 # Package statistics cache
328 var mpackages_stats
= new HashMap[MPackage, MPackageStats]
330 # Scan, register and add a contributor to a package
331 fun register_contrib
(person
: String, mpackage
: MPackage): Person
333 var p
= persons
.get_or_null
(person
)
335 var new_p
= new Person.parse
(person
)
336 # Maybe, we already have this person in fact?
337 p
= persons
.get_or_null
(new_p
.to_s
)
343 var projs
= contrib2proj
[p
]
344 if not projs
.has
(mpackage
) then
346 mpackage
.metadata
.contributors
.add p
348 name2person
[p
.name
] = p
352 # Compute information for a package
353 fun package_page
(mpackage
: MPackage)
355 mpackages
[mpackage
.full_name
] = mpackage
357 var score
= score
[mpackage
].to_f
359 var mdoc
= mpackage
.mdoc_or_fallback
362 score
+= mdoc
.content
.length
.score
364 var metadata
= mpackage
.metadata
366 var tryit
= metadata
.tryit
367 if tryit
!= null then
370 var apk
= metadata
.apk
374 var homepage
= metadata
.homepage
375 if homepage
!= null then
378 var maintainer
= metadata
.maintainer
379 if maintainer
!= null then
381 var person
= register_contrib
(maintainer
, mpackage
)
382 mpackage
.metadata
.maintainers
.add person
383 var projs
= maint2proj
[person
]
384 if not projs
.has
(mpackage
) then projs
.add mpackage
386 var license
= metadata
.license
387 if license
!= null then
390 var browse
= metadata
.browse
391 if browse
!= null then
394 var tags
= metadata
.tags
396 tag2proj
[tag
].add mpackage
398 if tags
.not_empty
then
400 cat2proj
[cat
].add mpackage
401 score
+= tags
.length
.score
403 if deps
.has
(mpackage
) then
404 score
+= deps
[mpackage
].greaters
.length
.score
405 score
+= deps
[mpackage
].direct_greaters
.length
.score
406 score
+= deps
[mpackage
].smallers
.length
.score
407 score
+= deps
[mpackage
].direct_smallers
.length
.score
410 var contributors
= mpackage
.metadata
.contributors
411 var more_contributors
= metadata
.more_contributors
412 for c
in more_contributors
do
413 register_contrib
(c
, mpackage
)
415 score
+= contributors
.length
.to_f
422 # The documentation value of each entity is ad hoc.
423 var entity_score
= 0.0
425 for g
in mpackage
.mgroups
do
426 mmodules
+= g
.mmodules
.length
429 if g
.mdoc
!= null then doc_score
+= gs
430 for m
in g
.mmodules
do
431 var source
= m
.location
.file
432 if source
!= null then
433 for msg
in source
.messages
do
434 if msg
.level
== 2 then
441 var am
= modelbuilder
.mmodule2node
(m
)
443 var file
= am
.location
.file
445 loc
+= file
.line_starts
.length
- 1
449 if m
.is_test
then ms
/= 100.0
451 if m
.mdoc
!= null then doc_score
+= ms
else ms
/= 10.0
452 for cd
in m
.mclassdefs
do
454 if not cd
.is_intro
then cs
/= 100.0
455 if not cd
.mclass
.visibility
<= private_visibility
then cs
/= 100.0
457 if cd
.mdoc
!= null then doc_score
+= cs
459 for pd
in cd
.mpropdefs
do
461 if not pd
.is_intro
then ps
/= 100.0
462 if not pd
.mproperty
.visibility
<= private_visibility
then ps
/= 100.0
464 if pd
.mdoc
!= null then doc_score
+= ps
465 if not pd
isa MMethodDef then continue
471 self.mmodules
[mpackage
] = mmodules
472 self.mclasses
[mpackage
] = mclasses
473 self.mmethods
[mpackage
] = mmethods
474 self.loc
[mpackage
] = loc
475 self.errors
[mpackage
] = errors
476 self.warnings
[mpackage
] = warnings
478 self.warnings_per_kloc
[mpackage
] = warnings
* 1000 / loc
480 var documentation_score
= (100.0 * doc_score
/ entity_score
).to_i
481 self.documentation_score
[mpackage
] = documentation_score
482 #score += mmodules.score
483 score
+= mclasses
.score
484 score
+= mmethods
.score
486 score
+= documentation_score
.score
488 self.score
[mpackage
] = score
.to_i
491 # Collect more information on a package using the `git` tool.
492 fun git_info
(mpackage
: MPackage)
494 var ini
= mpackage
.ini
495 if ini
== null then return
497 var root
= mpackage
.root
498 if root
== null then return
500 # TODO use real git info
501 #var repo = ini.get_or_null("upstream.git")
502 #var branch = ini.get_or_null("upstream.git.branch")
503 #var directory = ini.get_or_null("upstream.git.directory")
505 var dirpath
= root
.filepath
506 if dirpath
== null then return
508 # Collect commits info
509 var res
= git_run
("log", "--no-merges", "--follow", "--pretty=tformat:%ad;%aN <%aE>", "--", dirpath
)
510 var contributors
= new Counter[String]
511 var commits
= res
.split
("\n")
512 if commits
.not_empty
and commits
.last
== "" then commits
.pop
513 self.commits
[mpackage
] = commits
.length
515 var s
= l
.split_once_on
(';')
516 if s
.length
!= 2 or s
.last
== "" then continue
518 # Collect date of last and first commit
519 if mpackage
.metadata
.last_date
== null then mpackage
.metadata
.last_date
= s
.first
520 mpackage
.metadata
.first_date
= s
.first
523 contributors
.inc
(s
.last
)
525 for c
in contributors
.sort
.reverse_iterator
do
526 register_contrib
(c
, mpackage
)
530 # Compose package stats
531 fun mpackage_stats
(mpackage
: MPackage): MPackageStats do
532 var stats
= new MPackageStats
533 stats
.mmodules
= mmodules
[mpackage
]
534 stats
.mclasses
= mclasses
[mpackage
]
535 stats
.mmethods
= mmethods
[mpackage
]
536 stats
.loc
= loc
[mpackage
]
537 stats
.errors
= errors
[mpackage
]
538 stats
.warnings
= warnings
[mpackage
]
539 stats
.warnings_per_kloc
= warnings_per_kloc
[mpackage
]
540 stats
.documentation_score
= documentation_score
[mpackage
]
541 stats
.commits
= commits
[mpackage
]
542 stats
.score
= score
[mpackage
]
544 mpackages_stats
[mpackage
] = stats
548 # Compose catalog stats
549 var catalog_stats
: CatalogStats is lazy
do
550 var stats
= new CatalogStats
551 stats
.packages
= mpackages
.length
552 stats
.maintainers
= maint2proj
.length
553 stats
.contributors
= contrib2proj
.length
554 stats
.tags
= tag2proj
.length
555 stats
.modules
= mmodules
.sum
556 stats
.classes
= mclasses
.sum
557 stats
.methods
= mmethods
.sum
569 # Number of maintainers
572 # Number of contributors
587 # Number of line of codes
591 # MPackage statistics for the catalog
603 # Number of lines of code
609 # Number of warnings and advices
612 # Number of warnings per 1000 lines of code (w/kloc)
613 var warnings_per_kloc
= 0
615 # Documentation score (between 0 and 100)
616 var documentation_score
= 0
618 # Number of commits by package
623 # The score is loosely computed using other metrics
627 # Sort the mpackages by their score
628 class CatalogScoreSorter
631 # Catalog used to access scores
634 redef type COMPARED: MPackage
636 redef fun compare
(a
, b
) do
637 if not catalog
.mpackages_stats
.has_key
(a
) then return 1
638 if not catalog
.mpackages_stats
.has_key
(b
) then return -1
639 var astats
= catalog
.mpackages_stats
[a
]
640 var bstats
= catalog
.mpackages_stats
[b
]
641 return bstats
.score
<=> astats
.score
645 # Sort tabs alphabetically
646 class CatalogTagsSorter
649 redef type COMPARED: String
651 redef fun compare
(a
, b
) do return a
<=> b
654 # Execute a git command and return the result
655 fun git_run
(command
: String...): String
657 # print "git {command.join(" ")}"
658 var p
= new ProcessReader("git", command
...)