X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FMakefile;h=e5a20a1f3212c7bf9cf6b4725d88eb7ce6f67242;hb=16bbb2d6b16d5647d944f18f0fd6d4dd3df431fe;hp=10271b7ce21c3f1d27d47ef6a1396d1178eaebb4;hpb=48b202cd4ccd3ffc10f9a134314f747fdee30d36;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Makefile b/matita/matita/contribs/lambda_delta/Makefile
index 10271b7ce..e5a20a1f3 100644
--- a/matita/matita/contribs/lambda_delta/Makefile
+++ b/matita/matita/contribs/lambda_delta/Makefile
@@ -25,6 +25,13 @@ stats: $(PACKAGES:%=%.stats)
 
 %.stats: CHARS = $(shell cat $(MAS) | wc -c)
 
+%.stats: C1 = $(shell grep "inductive\|record" $(MAS) | wc -l)
+%.stats: C2 = $(shell grep "definition\|let rec" $(MAS) | wc -l)
+%.stats: P1 = $(shell grep "theorem " $(MAS) | wc -l)
+%.stats: P2 = $(shell grep "lemma " $(MAS) | wc -l)
+
+%.stats: TBL = ld_$*_sum
+
 %.stats:
 	@printf '\x1B[1;40;37m'
 	@printf '%-15s %-42s' 'Statistics for:' $*	
@@ -42,9 +49,9 @@ stats: $(PACKAGES:%=%.stats)
 #	@printf '   %-6s %3i' Files `ls *.v | wc -l`
 	@printf '\x1B[0m\n'	
 	@printf '\x1B[1;40;32m'
-	@printf '%-8s %6i' Theorems `grep theorem $(MAS) | wc -l`
-	@printf '   %-8s %5i' Lemmas `grep lemma $(MAS) | wc -l`
-	@printf '   %-6s %3i' Facts `grep fact $(MAS) | wc -l`
+	@printf '%-8s %6i' Theorems `grep "theorem " $(MAS) | wc -l`
+	@printf '   %-8s %5i' Lemmas `grep "lemma " $(MAS) | wc -l`
+	@printf '   %-6s %3i' Facts `grep "fact " $(MAS) | wc -l`
 	@printf '   %-6s %3i' Proofs `grep qed $(MAS) | wc -l`
 	@printf '\x1B[0m\n'	
 	@printf '\x1B[1;40;33m'
@@ -58,3 +65,20 @@ stats: $(PACKAGES:%=%.stats)
 	@printf '   %-6s %3i' Marks `grep "(\*\*)" $(MAS) | wc -l`
 	@printf '   %-10s' ''
 	@printf '\x1B[0m\n'
+	@printf 'name "$(TBL)"\n\n'                    > $*/$(TBL).tbl
+	@printf 'table {\n'                           >> $*/$(TBL).tbl
+	@printf '   class "grey" [ "category"\n'      >> $*/$(TBL).tbl
+	@printf '      [ "objects" * ]\n'             >> $*/$(TBL).tbl
+	@printf '   ]\n'                              >> $*/$(TBL).tbl
+	@printf '   class "green" [ "propositions"\n' >> $*/$(TBL).tbl
+	@printf '      [ "theorems" "$(P1)" * ]\n'    >> $*/$(TBL).tbl
+	@printf '      [ "lemmas"   "$(P2)" * ]\n'    >> $*/$(TBL).tbl
+	@printf '   ]\n'                              >> $*/$(TBL).tbl
+	@printf '   class "yellow" [ "concepts"\n'    >> $*/$(TBL).tbl
+	@printf '      [ "declared" "$(C1)" * ]\n'    >> $*/$(TBL).tbl
+	@printf '      [ "defined"  "$(C2)" * ]\n'    >> $*/$(TBL).tbl
+	@printf '   ]\n'                              >> $*/$(TBL).tbl
+	@printf '}\n\n'                               >> $*/$(TBL).tbl
+	@printf 'class "component" { 0 }\n\n'         >> $*/$(TBL).tbl
+	@printf 'class "plane" { 1 } { 3 } \n\n'      >> $*/$(TBL).tbl
+	@printf 'class "number" { 2 } { 4 } \n\n'     >> $*/$(TBL).tbl