gelinive

git clone git://bebou.netlib.re/gelinive
Log | Files | Refs | README |

commit 6a41d13516bb610e23d6254c18f6fe4743b845be
parent 1d3ddda759fd6febda5f4f8c3d93a02166cd4978
Auterice: Arthur Pons <arthur.pons@unistra.fr>
Date:   Mon, 11 Mar 2024 10:47:50 +0100

On met calcR et sumcol direct dans gelinive

En tant que fonctions
Je pense que c'était un découpage un peu trop fort
et futile ici (à l'instant du moins)

Diffstat:
D
calcR
 | 
16
----------------
M
gelinive
 | 
17
+++++++++++++++--
D
sumcol
 | 
6
------

3 files changed, 15 insertions(+), 24 deletions(-)
diff --git a/calcR b/calcR
@@ -1,16 +0,0 @@
-# q P n h e d R H
-# 1	0	0	0		46		100
-# 1	1	0	0		0		54
-# 1	1	1	5		2		54
-# 1	1	2	5		2		52
-# 1	1	2	5		2		50
-# 1	1	5	5		3		48
-# 1	1	6	5		3		45
-# 1	1	1	5		40		42
-# 1	1	5	10		2		2
-
-
-awk -F'\t' '{ if($5=="0"){ print "print \"/\n\"" } else { printf "(%s*%s)/%s+%s+%s\n", $3, $4, $5, $1, $2 } }' |
-bc -l |
-sed -E '/^[0-9]+\./ s/\..*//;'
-
diff --git a/gelinive b/gelinive
@@ -9,10 +9,23 @@ lowdown -M title=gelinive -M section=1 -stman manpage |
 exit 0
 fi
 
+calcR() {
+awk -F'\t' '{ if($5=="0"){ print "print \"/\n\"" } else { printf "(%s*%s)/%s+%s+%s\n", $3, $4, $5, $1, $2 } }' |
+bc -l |
+cut -d'.' -f1
+}
+
+sumcol() {
+awk -v col=${1:-1} '
+BEGIN { getline; tot=$col; print tot }
+{tot=$col+tot;print tot }
+'
+}
+
 tempdir=$(mktemp -d);trap "rm -rf $tempdir" EXIT
 
 cat $1 > $tempdir/in
-< $tempdir/in ./calcR |
+< $tempdir/in calcR |
 	paste $tempdir/in - > $tempdir/temp
-< $tempdir/temp ./sumcol 5 |
+< $tempdir/temp sumcol 5 |
 	paste $tempdir/temp -
diff --git a/sumcol b/sumcol
@@ -1,6 +0,0 @@
-#! /bin/sh
-
-awk -v col=${1:-1} '
-BEGIN { getline; tot=$col; print tot }
-{tot=$col+tot;print tot }
-'