# menu for DCT, by Shiar

# 2004-09-15 23:32 - moved from 1.6 main

package DCT::Menu;

use strict;
use utf8;

use vars qw($VERSION @ISA @EXPORT);
require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(@menus);

$VERSION = 1.006.002;

our @menus = (
	[qw(refresh math>8 prog> mode>7 unit>11)],
	[qw(main>0 log alog ln exp sin cos tan 0 asin acos atan)], #1 math
	[qw(main>0 dec bin oct hex logic>3 bit>4)], #2 base
	[qw(base>2 and or xor not)], #3 base logic
	[qw(base>2 rl sl asr sr rr)], #4 base bit
	[qw(base>2 rlb slb srb rrb)], #5 base byte
	[qw(main>0 sq sqrt ^ xroot)], #6
	[qw(main>0 number_format angle_measure coord_system)], #7 mode
	[qw(main>0
		vector> matrix> list> hyperbolic>9 real>10 base>2
		probability> fft> complex> constants>
	)], #8 math
	[qw(math>8
		sinh cosh tanh asinh acosh atanh
		expm lnp1
	)], #9 math hyperbolic
	[qw(math>8
		% %ch %t min max mod
		abs sign mant xpon ip fp
		rnd trnc floor ceil r>d d>r
	)], #10 math real
	[qw(main>0
		tools> length>12 area>13 volume>14 time>15 speed>16
		mass>17 force>18 energy>19 power>20 pressure>21 temperature>22
		electric_current>23 angle>24 light>25 radiation>26 viscosity>27
	)], #11 units
#		mm cm m in ft yd km mile mmile lt-yr mil Ang fermi rod fath)],
	[qw(unit>11
		_m _cm _mm _yd _ft _in _Mpc _pc _lyr _au _km _mi
		_nmi _miUS _chain _rd _fath _ftUS _Mil _μ _Å _fermi
	)], #12 length
	[qw(unit>11
		_m^2 _cm^2 _b _yd^2 _ft^2 _in^2
		_km^2 _ha _a _mi^2 _miUS^2 _acre
	)], #13 area
	[qw(unit>11
		_m^3 _st _cm^3 _yd^3 _ft^3 _in^3
		_l _galUK _galC _gal _qt _pt
		_ml _cu _ozfl _ozUK _tbsp _tsp
		_bbl _bu _pk _fbm
	)], #14 volume
	[qw(unit>11
		_yr _d _h _min _s _Hz
	)], #15 time
	[qw(unit>11
		_m/s _cm/s _ft/s _kph _mph _knot
		_c _ga
	)], #16 speed
	[qw(unit>11
		_kg _g _Lb _oz _slug _lbt
		_ton _tonUS _t _ozt _ct _grain
		_u _mol
	)], #17 mass
	[qw(unit>11
		_N _dyn _gf _kip _lbf _pdl
	)], #18 force
	[qw(unit>11
		_J _erg _Kcal _Cal _Btu _ftxlbf
		_therm _MeV _eV
	)], #19 energy
	[qw(unit>11
		_W _hp
	)], #20 power
	[qw(unit>11
		_Pa _atm _bar _psi _torr _mmHg
		_inHg _inH2O
	)], #21 pressure
	[qw(unit>11
	)], #22 temperature
	[qw(unit>11
	)], #23 electric_current
	[qw(unit>11
	)], #24 angle
	[qw(unit>11
	)], #25 light
	[qw(unit>11
	)], #26 radiation
	[qw(unit>11
	)], #27 viscosity
); # @menus

1;

