aboutsummaryrefslogtreecommitdiff
path: root/src/ExtractionHaskell
diff options
context:
space:
mode:
authorGravatar Andres Erbsen <andreser@mit.edu>2019-01-08 01:59:52 -0500
committerGravatar Andres Erbsen <andreser@mit.edu>2019-01-09 12:44:11 -0500
commit3ec21c64b3682465ca8e159a187689b207c71de4 (patch)
tree2294367302480f1f4c29a2266e2d1c7c8af3ee48 /src/ExtractionHaskell
parentdf7920808566c0d70b5388a0a750b40044635eb6 (diff)
move src/Experiments/NewPipeline/ to src/
Diffstat (limited to 'src/ExtractionHaskell')
-rw-r--r--src/ExtractionHaskell/saturated_solinas.v4
-rw-r--r--src/ExtractionHaskell/unsaturated_solinas.v4
-rw-r--r--src/ExtractionHaskell/word_by_word_montgomery.v4
3 files changed, 12 insertions, 0 deletions
diff --git a/src/ExtractionHaskell/saturated_solinas.v b/src/ExtractionHaskell/saturated_solinas.v
new file mode 100644
index 000000000..18d1b9074
--- /dev/null
+++ b/src/ExtractionHaskell/saturated_solinas.v
@@ -0,0 +1,4 @@
+Require Import Crypto.StandaloneHaskellMain.
+
+(*Redirect "/tmp/saturated_solinas.hs"*) Recursive Extraction SaturatedSolinas.main.
+(* cat /tmp/solinas.hs.out | sed -f haskell.sed > ../../solinas.hs *)
diff --git a/src/ExtractionHaskell/unsaturated_solinas.v b/src/ExtractionHaskell/unsaturated_solinas.v
new file mode 100644
index 000000000..d4caf6ec5
--- /dev/null
+++ b/src/ExtractionHaskell/unsaturated_solinas.v
@@ -0,0 +1,4 @@
+Require Import Crypto.StandaloneHaskellMain.
+
+(*Redirect "/tmp/unsaturated_solinas.hs" *)Recursive Extraction UnsaturatedSolinas.main.
+(* cat /tmp/solinas.hs.out | sed -f haskell.sed > ../../solinas.hs *)
diff --git a/src/ExtractionHaskell/word_by_word_montgomery.v b/src/ExtractionHaskell/word_by_word_montgomery.v
new file mode 100644
index 000000000..366b6d82e
--- /dev/null
+++ b/src/ExtractionHaskell/word_by_word_montgomery.v
@@ -0,0 +1,4 @@
+Require Import Crypto.StandaloneHaskellMain.
+
+(*Redirect "/tmp/word_by_word_montgomery.hs" *)Recursive Extraction WordByWordMontgomery.main.
+(* cat /tmp/solinas.hs.out | sed -f haskell.sed > ../../solinas.hs *)