2479l1.orig100640 1061 330 340 6663313125 11074 0ustar mlrljedit#!/usr/bin/awk -f #centre: centre lines in file(s) or stdin #usage: centre [filenames] BEGIN { linelength = 80 spaces = "" } { for (i = 1; i < (linelength - length($0)) / 2; i++) spaces = spaces " " print spaces $0 } 2479l2.orig100640 1061 330 611 6663325110 11073 0ustar mlrljedit#!/bin/sh #weightconv: weights & measures converter table=/usr/local/lib/weights_and_measures case $# in 0|1) echo "weightconv: usage weightconv amount from [to]" 1>&2; exit 1;; esac amount=$1 from=$2 to=$3 rate=`grep "^$from $to" $table|awk '{print $3}'` case $rate in "") echo "weightconv: no rate found for $from to $to" 1>&2; exit 2;; esac echo $amount $rate | awk '{print $1*$2}'