X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/b2aba05a22d1f4036008c2d12874ddc9eb98edc0..7d9af85556b0e64c70e3641764b7b49a306723f3:/unitconv.pm?ds=sidebyside

diff --git a/unitconv.pm b/unitconv.pm
deleted file mode 100644
index 494aaa1..0000000
--- a/unitconv.pm
+++ /dev/null
@@ -1,62 +0,0 @@
-# unit convertor for DCT, by Shiar
-
-# 1.09.1 2004-10-02 23:05 - moved %unit specs from 1.9 main
-# 1.09.2 2004-10-11 22:05 - all code moved here as well
-
-use strict;
-use utf8;
-
-my %unit;
-
-{
-my $i = 0;
-$unit{$_->[0]} = { name=>$_->[0], type=>$i, val=>$_->[1] }
-for map {$i++; @$_} (
-	[
-		['m', 1],
-		['cm', .01],
-		['mm', .001],
-		['km', 1000],
-		['ft', .3048],
-		['in', .0254],
-		['yd', .9144],
-		['mile', 1609.344],
-		['nmile', 1852],
-		['lyr', 9.46052840488e+15],
-		['mil', 2.54e-5],
-	#		_m _cm _mm _yd _ft _in _Mpc _pc _lyr _au _km _mi
-	#		_nmi _miUS _chain _rd _fath _ftUS _Mil _μ _Å _fermi
-	], # lengths
-	[
-		['m^3', 1],
-		['cm^3', 1e-6],
-		['ft^3', .028316846592],
-		['in^3', 1.6387064e-5],
-	], # volume
-);
-} # create unit table
-
-$action{_m} = [0, sub {print "test\n"}];
-
-push @{ $hook{precmd} }, sub {
-	if ($_ =~ /^_/) {{
-		$_ = $unit{substr $_, 1} or next;
-		if (exists $val{unit} and $val{unit}{type}==$_->{type}) {
-			unshift @stack, $val{i} if defined $val{i};
-			$stack[0] *= delete($val{unit})->{val} / $_->{val};
-			showstack();
-			%val = (i=>undef, frac=>0);
-		} # convert
-		else {
-			$val{unit} = $_;
-		} # set source unit
-		return 1;
-	}} # conversion
-}; # precmd
-
-push @{ $hook{showentry} }, sub {
-	exists $val{unit} && '_'.$val{unit}{name};
-}; # showentry
-
-1;
-