X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FMakefile;h=e5a20a1f3212c7bf9cf6b4725d88eb7ce6f67242;hb=fcd30dfead2fbc2889aa993fba0577dce8a90c88;hp=9a7cdc1ec98f52113732098a9ae73035b5ec5b7e;hpb=b0dce88ff4c55b5f811ce9e183418479f7d34d2a;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Makefile b/matita/matita/contribs/lambda_delta/Makefile
index 9a7cdc1ec..e5a20a1f3 100644
--- a/matita/matita/contribs/lambda_delta/Makefile
+++ b/matita/matita/contribs/lambda_delta/Makefile
@@ -25,36 +25,60 @@ 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 '\e[1;40;37m'
+	@printf '\x1B[1;40;37m'
 	@printf '%-15s %-42s' 'Statistics for:' $*	
-	@printf '\e[0m\n'	
-	@printf '\e[1;40;35m'
+	@printf '\x1B[0m\n'	
+	@printf '\x1B[1;40;35m'
 	@printf '%-8s %6i' Chars $(CHARS)
 	@printf '   %-8s %5i' Lines `cat $(MAS) | wc -l`
 	@printf '   %-6s %3i' Pages `echo $$(($(CHARS) / 5120))`
 	@printf '   %-10s' ''
-	@printf '\e[0m\n'
-	@printf '\e[1;40;36m'
+	@printf '\x1B[0m\n'
+	@printf '\x1B[1;40;36m'
 	@printf '%-8s %6i' Sources `ls $(MAS) | wc -l`
 	@printf '   %-40s' ''
 #	@printf '   %-8s %5i' Objs `ls *.vo | wc -l`
 #	@printf '   %-6s %3i' Files `ls *.v | wc -l`
-	@printf '\e[0m\n'	
-	@printf '\e[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 '\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 '   %-6s %3i' Proofs `grep qed $(MAS) | wc -l`
-	@printf '\e[0m\n'	
-	@printf '\e[1;40;33m'
+	@printf '\x1B[0m\n'	
+	@printf '\x1B[1;40;33m'
 	@printf '%-8s %6i' Defs `grep "definition\|let rec\|inductive\|record" $(MAS) | wc -l` 
 	@printf '   %-40s' ''
 #	@printf '   %-8s %5i' Local `grep "Local" *.v | wc -l`
-	@printf '\e[0m\n'
-	@printf '\e[1;40;31m'
+	@printf '\x1B[0m\n'
+	@printf '\x1B[1;40;31m'
 	@printf '%-8s %6i' Axioms `grep axiom $(MAS) | wc -l`
 	@printf '   %-8s %5i' Comments `grep "(\*[^*:]*$$" $(MAS) | wc -l`
 	@printf '   %-6s %3i' Marks `grep "(\*\*)" $(MAS) | wc -l`
 	@printf '   %-10s' ''
-	@printf '\e[0m\n'
+	@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