- first properties of strongly normalizing terms

[helm.git] / matita / matita / contribs / lambda_delta / Makefile

diff --git a/matita/matita/contribs/lambda_delta/Makefile b/matita/matita/contribs/lambda_delta/Makefile
index 9a7cdc1ec98f52113732098a9ae73035b5ec5b7e..e5a20a1f3212c7bf9cf6b4725d88eb7ce6f67242 100644 (file)
--- 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