major cleanup of directory structure

.gitignore

+*.bak
+*.swp

avr_code.mlw → attic/avr_code.mlw

@@ -35,7 +35,7 @@ end
 
 module KaratAvr
 
-use import avrmodel2.AVRint
+use import avrmodel.AVRint
 use import int.Int
 use import int.EuclideanDivision
 use import bv.Pow2int
@@ -1234,7 +1234,7 @@ assert {   at(uint 3 reg 8)'L11 + pow2 24*uint 6 reg 8 + pow2 72*uint 3 reg 20 +
   std rZ 10 r21;
   std rZ 11 r22
 
-use avrmodel2.Shadow as S
+use avrmodel.Shadow as S
 
 lemma mul_bound_preserve:
   forall x y l. 0 <= x <= l -> 0 <= y <= l -> x*y <= l*l

gen_code.sed

+#!/bin/sed -f
+
+# this script translates avr assembler files to whyml; it requires GNU sed
+
+# remove assembler directives
+/^\s*[.]/d
+
+# remove carriage returns
+s///g
+
+# translate assembly comments into whyml comments
+s/ *; *\(.*\)$/; (* \1 *)/
+
+# add statement separators (except after comments)
+s/[^)]$/&;/
+
+# convert mnemonics into lowercase
+s/.*/\L&/
+
+# remove leading whitespace
+s/^ *;//g
+
+# translate X,Y,Z registers in st/ld opcodes
+/\<\(ld\|st\)d\?\>/s/[xyz]/r\U&/
+
+# translate load-and-increment mnemonics
+s/ld \(\w\+\), \(r[XY-Z]\)+/ld_inc \1, \2/
+
+# replace syntax that functions to separate arguments with juxtaposition
+s/[,+-] \?/ /g
+
+# replace labels with function entry points (only works on branchfree code)
+/^\(.*\):;$/s//let \1 () =/

gen_lemmas.sh

+#! /usr/bin/env bash
+
+# generate the rewrite rules to expand 'uint' into a power series; these will be proven in why3, so
+# this script is not part of the trusted code base
+
+echo "lemma uint_0:"
+echo  "  forall reg, lo. B.sum (reg,lo) 0 0 = 0"
+for i in `seq 1 32`; do
+	echo "lemma uint_$i:"
+	echo -n "  forall reg, lo. B.sum (reg,lo) 0 $i = reg[lo]"
+	for j in `seq 2 $i`; do
+		echo -n " + pow2 $((8*(j-1)))*reg[lo+$((j-1))]"
+	done
+	echo
+	echo "meta rewrite prop uint_$i"
+done

gen_pow.py

+#!/usr/bin/env python
+
+# generate the simple lemmas equating pow-evocations to constants
+
+for i in range(9,32):
+    print "lemma pow2_%(x)d: pow2 %(x)d = 0x%(y)x" % { 'x': 8*i, 'y': 2**(8*i) }