unit/0000775000000000000000000000000013034777607006743 5ustar unit/.travis.yml0000664000000000000000000000233412746435106011050 0ustar # run the testsuite on travis-ci.com --- # versions to run on env: - PG_SUPPORTED_VERSIONS=9.4 - PG_SUPPORTED_VERSIONS=9.5 - PG_SUPPORTED_VERSIONS=9.6 language: C before_install: # apt.postgresql.org is already configured, we just need to add 9.6 - | if [ "$PG_SUPPORTED_VERSIONS" = "9.6" ]; then # update pgdg-source.list sudo sed -i -e 's/main/main 9.6/' /etc/apt/sources.list.d/pgdg*.list fi - sudo apt-get -qq update install: - sudo apt-get install bison debhelper devscripts fakeroot flex postgresql-server-dev-$PG_SUPPORTED_VERSIONS postgresql-server-dev-all # install PostgreSQL $PG_SUPPORTED_VERSIONS if not there yet - | if [ ! -x /usr/lib/postgresql/$PG_SUPPORTED_VERSIONS/bin/postgres ]; then sudo apt-get install postgresql-common # upgrade pg-common first ... sudo /etc/init.d/postgresql stop # ... so we can stop postgresql again before installing the server sudo apt-get install postgresql-$PG_SUPPORTED_VERSIONS fi # stop the travis-provided cluster - sudo /etc/init.d/postgresql stop - pg_lsclusters - dpkg -l postgresql\* | cat script: - pg_buildext updatecontrol - dpkg-buildpackage -us -uc -rfakeroot - sudo debi - pg_buildext installcheck unit/.vimrc0000664000000000000000000000001612740142715010046 0ustar set ts=4 sw=4 unit/Makefile0000664000000000000000000000236013034777540010400 0ustar MODULE_big = unit OBJS = unit.o unitparse.yy.o unitparse.tab.o EXTENSION = unit DATA = unit--1.sql unit--1--2.sql unit--2.sql REGRESS = extension tables unit prefix functions derived compare aggregate iec #REGRESS += upgrade EXTRA_CLEAN = unitparse.yy.* powers powers.o unittest unittest.o unit-*.dump # unitparse.tab.* PG_CONFIG = pg_config PGXS := $(shell $(PG_CONFIG) --pgxs) include $(PGXS) PG_VERSION_NUM = $(shell awk '/PG_VERSION_NUM/ { print $$3 }' $(shell $(PG_CONFIG) --includedir-server)/pg_config.h) HAS_CROSSTAB = $(shell [ $(PG_VERSION_NUM) -ge 90600 ] && echo yes) ifeq ($(HAS_CROSSTAB),yes) REGRESS += crosstab convert endif unit.o: unit.c unit.h defined_units.h float8out_internal.h unitparse.yy.c: unitparse.l flex -o $@ $< unitparse.yy.o: unit.h defined_units.h unitparse.tab.c # actually unitparse.tab.h unitparse.tab.c: unitparse.y ifneq ($(shell bison --version | grep 'Bison..2'),) echo "### bison 2 detected, using pre-built unitparse.tab.c and .h files ###" # remove this hack once wheezy and precise are gone touch $@ else bison -d $< endif unitparse.tab.o: unit.h defined_units.h # test program unittest: unitparse.yy.o unitparse.tab.o unittest.o gcc -o $@ $^ -lm # powers-of-10 template powers: powers.c gcc -o $@ $^ -lm unit/README.md0000664000000000000000000000673213031726440010214 0ustar SI Units for PostgreSQL ======================= Christoph Berg **postgresql-unit** implements a *PostgreSQL datatype for SI units, plus byte*. The base units can be combined to named and unnamed derived units using operators defined in the PostgreSQL type system. SI prefixes are used for input and output, and quantities can be converted to arbitrary scale. Byte quantities can also use IEC binary prefixes for input and output. Some non-SI units are supported, namely *coherent* derived units such as *newton* and *joule*, *non-coherent* units such as *hours* and *litres*, and assorted *United States customary units* such as *inch* and *mile*. Requires PostgreSQL 9.4 or later (uses *psprintf()*), flex, and bison 3 (the pre-built grammar files are used if only bison 2 is available). [![Build Status](https://travis-ci.org/ChristophBerg/postgresql-unit.svg?branch=master)](https://travis-ci.org/ChristophBerg/postgresql-unit) Features -------- * SI base types: *meter (m), kilogram (kg), second (s), ampere (A), kelvin (K), mole (mol), candela (cd)* * *byte (B)* is also a base type * derived units coherent with SI: *radian (rad), steradian (sr), hertz (Hz), newton (N), pascal (Pa), joule (J), watt (W), coulomb (C), volt (V), farad (F), ohm (Ω), siemens (S), weber (Wb), tesla (T), henry (H), degree Celsius (°C, support limited), lumen (lm), lux (lx), becquerel (Bq), gray (Gy), sievert (Sv), katal (kat)* * non-coherent units: *minute (min), hour(h), day(d), hectare (ha), litre (l), tonne (t), bar, astronomical unit (au)* * United States customary units: *inch (in), foot (ft), yard (yd), mile (mi), ounce (oz), pound (lb)* * prefix multiples: *da, h, k, M, G, T, P, E, Z, Y* * prefix fractions: *d, c, m, μ, n, p, f, a, z, y* * IEC binary prefix multiples: *Ki, Mi, Gi, Ti, Pi, Ei, Zi, Yi* * operators: **+, -, *, /, ^**, conversion to arbitrary scale (**@**) Examples -------- ``` # CREATE extension unit; CREATE EXTENSION # SELECT '800 m'::unit + '500 m' AS length; length -------- 1.3 km # SELECT '120 km/h'::unit AS speed; speed ------------- 33.3333 m/s # SELECT '9.81 N'::unit / 'kg' AS gravity; gravity ------------ 9.81 m/s^2 # SELECT '2 MB/min'::unit @ 'GB/d' AS traffic; traffic ----------- 2.88 GB/d # SELECT '1 hl'::unit @ '0.5 l' AS bottles_of_beer; bottles_of_beer ----------------- 200 * 0.5 l # SET unit.byte_output_iec = on; # SELECT '4 TB'::unit AS disk_sold_as_4tb; disk_sold_as_4tb ---------------------- 3.63797880709171 TiB # SELECT '500 mi'::unit AS walk_500_miles; walk_500_miles ---------------- 804.672 km ``` Config ------ * `unit.byte_output_iec`: Set to `on` to format byte quantities using IEC binary prefixes (Ki, Mi, ...) on output by default. (Default: off) References ---------- * https://en.wikipedia.org/wiki/International_System_of_Units * http://physics.nist.gov/cuu/Units/index.html * https://en.wikipedia.org/wiki/Binary_prefix * https://en.wikipedia.org/wiki/United_States_customary_units License ------- Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. unit/build-9.4/0000775000000000000000000000000013032153475010337 5ustar unit/build-9.5/0000775000000000000000000000000013032153475010340 5ustar unit/debian/0000775000000000000000000000000013034777607010165 5ustar unit/debian/changelog0000664000000000000000000000114513034777607012040 0ustar postgresql-unit (2.0) unstable; urgency=medium * Support IEC binary prefixes for byte. * Support United States customary units: in, ft, yd, mi, oz, lb. * Add variance and stddev aggregates; bump extension version to 2. -- Christoph Berg Mon, 09 Jan 2017 22:24:23 +0100 postgresql-unit (1.1) unstable; urgency=medium * Use float8out_internal to format floats on output. -- Christoph Berg Mon, 31 Oct 2016 11:55:43 +0100 postgresql-unit (1.0) unstable; urgency=medium * Initial release. -- Christoph Berg Thu, 22 Sep 2016 15:42:55 +0200 unit/debian/compat0000664000000000000000000000000212746352356011362 0ustar 9 unit/debian/control0000664000000000000000000000151113034777415011563 0ustar Source: postgresql-unit Section: database Priority: optional Maintainer: Christoph Berg Build-Depends: bison, debhelper (>> 9), flex, postgresql-server-dev-all (>= 153~), Standards-Version: 3.9.8 Vcs-Git: https://github.com/ChristophBerg/postgresql-unit.git Vcs-Browser: https://github.com/ChristophBerg/postgresql-unit Homepage: https://github.com/ChristophBerg/postgresql-unit Package: postgresql-9.6-unit Architecture: any Depends: ${misc:Depends}, ${shlibs:Depends}, postgresql-9.6 Description: SI Units for PostgreSQL postgresql-unit implements a PostgreSQL datatype for SI units, plus byte. The base units can be combined to named and unnamed derived units using operators defined in the PostgreSQL type system. SI prefixes are used for input and output, and quantities can be converted to arbitrary scale. unit/debian/control.in0000664000000000000000000000152412746353123012167 0ustar Source: postgresql-unit Section: database Priority: optional Maintainer: Christoph Berg Build-Depends: bison, debhelper (>> 9), flex, postgresql-server-dev-all (>= 153~), Standards-Version: 3.9.8 Vcs-Git: https://github.com/ChristophBerg/postgresql-unit.git Vcs-Browser: https://github.com/ChristophBerg/postgresql-unit Homepage: https://github.com/ChristophBerg/postgresql-unit Package: postgresql-PGVERSION-unit Architecture: any Depends: ${misc:Depends}, ${shlibs:Depends}, postgresql-PGVERSION Description: SI Units for PostgreSQL postgresql-unit implements a PostgreSQL datatype for SI units, plus byte. The base units can be combined to named and unnamed derived units using operators defined in the PostgreSQL type system. SI prefixes are used for input and output, and quantities can be converted to arbitrary scale. unit/debian/copyright0000664000000000000000000000074212746360516012117 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Files: * Copyright: (C) 2016 Christoph Berg License: GPL-2+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. . The full text of the GPL is distributed as in /usr/share/common-licenses/GPL-2 on Debian systems. unit/debian/pgversions0000664000000000000000000000000512746435106012274 0ustar 9.4+ unit/debian/rules0000755000000000000000000000062712746352241011240 0ustar #!/usr/bin/make -f include /usr/share/postgresql-common/pgxs_debian_control.mk override_dh_auto_build: +pg_buildext build build-%v override_dh_auto_test: # nothing to do here, see debian/tests/* instead override_dh_auto_install: +pg_buildext install build-%v postgresql-%v-unit override_dh_installdocs: dh_installdocs --all README.* override_dh_auto_clean: +pg_buildext clean build-%v %: dh $@ unit/debian/tests/0000775000000000000000000000000012746500643011320 5ustar unit/debian/tests/control0000664000000000000000000000012512746352543012725 0ustar Depends: @, postgresql-server-dev-all Tests: installcheck Restrictions: allow-stderr unit/debian/tests/installcheck0000775000000000000000000000007112746476703013721 0ustar #!/bin/sh pg_buildext -i '--locale=C.UTF-8' installcheck unit/defined_units.h0000664000000000000000000001335113031153667011726 0ustar #ifndef _DEFINED_UNITS_H #define _DEFINED_UNITS_H 1 #include /* NULL */ #include "unit.h" const char *base_units[N_UNITS] = { "m", "kg", "s", "A", "K", "mol", "cd", "B", }; const struct derived_unit_t derived_units[] = { /* https://en.wikipedia.org/wiki/International_System_of_Units */ /* name m kg s A K mol cd B factor flags */ { "Hz", { 0, 0, -1, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* hertz frequency s^-1 */ { "N", { 1, 1, -2, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* newton force, weight kg·m·s^-2 */ { "Pa", { -1, 1, -2, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* pascal pressure, stress N/m^2 kg·m^-1·s^-2 */ { "J", { 2, 1, -2, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* joule energy, work, heat N·m kg·m^2·s^-2 */ { "W", { 2, 1, -3, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* watt power, radiant flux J/s kg·m^2·s^-3 */ { "C", { 0, 0, 1, 1, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* coulomb electric charge s·A */ { "V", { 2, 1, -3, -1, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* volt voltage W/A kg·m^2·s^-3·A^-1 */ { "F", { -2, -1, 4, 2, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* farad electric capacitance C/V kg^-1·m^-2·s^4·A^2 */ { "Ω", { 2, 1, -3, -2, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* ohm electric resistance, impedance V/A kg·m^2·s^-3·A^-2 */ { "S", { -2, -1, 3, 2, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* siemens electrical conductance A/V kg^-1·m^-2·s^3·A^2 */ { "Wb", { 2, 1, -2, -1, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* weber magnetic flux V·s kg·m^2·s^-2·A^-1 */ { "T", { 0, 1, -2, -1, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* tesla magnetic flux density Wb/m^2 kg·s^-2·A^-1 */ { "H", { 2, 1, -2, -2, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* henry inductance Wb/A kg·m^2·s^-2·A^-2 */ { "lx", { -2, 0, 0, 0, 0, 0, 1, 0,}, 1.0, U_DERIVED }, /* lux illuminance lm/m^2 m^-2·cd */ { "Gy", { 2, 0, -2, 0, 0, 0, 0, 0,}, 1.0, U_DERIVED }, /* gray absorbed dose (of ionizing radiation) J/kg m^2·s^-2 */ { "kat", { 0, 0, -1, 0, 0, 1, 0, 0,}, 1.0, U_DERIVED }, /* katal catalytic activity mol·s^-1 */ { "l", { 3, 0, 0, 0, 0, 0, 0, 0,}, .001, 0 }, /* liter 1e-3 m^3 */ { "g", { 0, 1, 0, 0, 0, 0, 0, 0,}, .001, 0 }, /* gram 1e-3 kg */ { "t", { 0, 1, 0, 0, 0, 0, 0, 0,}, 1000, 0 }, /* tonne 1e3 kg */ { "bar", { -1, 1, -2, 0, 0, 0, 0, 0,}, 100000, 0 }, /* bar 100 kPa */ { "min", { 0, 0, 1, 0, 0, 0, 0, 0,}, 60, 0 }, /* minute 60 s */ { "h", { 0, 0, 1, 0, 0, 0, 0, 0,}, 3600, 0 }, /* hour 60 min */ { "d", { 0, 0, 1, 0, 0, 0, 0, 0,}, 86400, 0 }, /* day 24 h */ { "a", { 0, 0, 1, 0, 0, 0, 0, 0,}, 365.25 * 86400, 0 }, /* julian year 365.25 d */ { "rad", { 0, 0, 0, 0, 0, 0, 0, 0,}, 1.0, 0 }, /* radian angle m·m^-1 */ { "sr", { 0, 0, 0, 0, 0, 0, 0, 0,}, 1.0, 0 }, /* steradian solid angle m^2·m^-2 */ { "ohm", { 2, 1, -3, -2, 0, 0, 0, 0,}, 1.0, 0 }, /* ohm electric resistance, impedance V/A kg·m^2·s^-3·A^-2 */ { "°C", { 0, 0, 0, 0, 1, 0, 0, 0,}, 1.0, 0 }, /* degree Celsius temperature relative to 273.15 K K */ { "lm", { 0, 0, 0, 0, 0, 0, 1, 0,}, 1.0, 0 }, /* lumen luminous flux cd·sr cd */ { "Bq", { 0, 0, -1, 0, 0, 0, 0, 0,}, 1.0, 0 }, /* becquerel radioactivity (decays per unit time) s^-1 */ { "Sv", { 2, 0, -2, 0, 0, 0, 0, 0,}, 1.0, 0 }, /* sievert equivalent dose (of ionizing radiation) J/kg m^2·s^-2 */ /* United States customary units */ { "in", { 1, 0, 0, 0, 0, 0, 0, 0,}, .0254, 0 }, /* inch 25.4 mm */ { "ft", { 1, 0, 0, 0, 0, 0, 0, 0,}, .3048, 0 }, /* foot 0.3048 m */ { "yd", { 1, 0, 0, 0, 0, 0, 0, 0,}, .9144, 0 }, /* yard 0.9144 m */ { "mi", { 1, 0, 0, 0, 0, 0, 0, 0,}, 1609.344, 0 }, /* mile 1.609344 km */ { "oz", { 0, 1, 0, 0, 0, 0, 0, 0,}, .028349523125, 0 }, /* ounce 28.349523125 g */ { "lb", { 0, 1, 0, 0, 0, 0, 0, 0,}, .45359237, 0 }, /* pound 453.59237 g */ { 0 } }; #endif /* _DEFINED_UNITS_H */ unit/do0000775000000000000000000000075613032012667007265 0ustar #!/bin/sh set -eux export PGDATABASE=postgres for PGVERSION in 9.6 9.5 9.4; do echo echo "### $PGVERSION ###" PG_CONFIG=/usr/lib/postgresql/$PGVERSION/bin/pg_config export PGCLUSTER="$PGVERSION/main" make clean make PG_CONFIG=$PG_CONFIG PROFILE="-Werror" sudo make install PG_CONFIG=$PG_CONFIG psql -c "DROP EXTENSION IF EXISTS unit CASCADE" if ! make installcheck REGRESS_OPTS="--use-existing --dbname=postgres" PG_CONFIG=$PG_CONFIG; then cat regression.diffs exit 1 fi done unit/expected/0000775000000000000000000000000013034777607010544 5ustar unit/expected/aggregate.out0000664000000000000000000001612713031230262013204 0ustar -- test aggregates CREATE TEMP TABLE u ( u unit ); -- empty SELECT sum(u) AS null_sum FROM u; null_sum ---------- (1 row) SELECT min(u) AS null_min FROM u; null_min ---------- (1 row) SELECT max(u) AS null_max FROM u; null_max ---------- (1 row) SELECT avg(u) AS null_avg FROM u; null_avg ---------- (1 row) SELECT var_pop(u) AS null_var_pop FROM u; null_var_pop -------------- (1 row) SELECT var_samp(u) AS null_var_samp FROM u; null_var_samp --------------- (1 row) SELECT variance(u) AS null_variance FROM u; null_variance --------------- (1 row) SELECT stddev_pop(u) AS null_stddev_pop FROM u; null_stddev_pop ----------------- (1 row) SELECT stddev_samp(u) AS null_stddev_samp FROM u; null_stddev_samp ------------------ (1 row) SELECT stddev(u) AS null_stddev FROM u; null_stddev ------------- (1 row) -- one NULL row INSERT INTO u VALUES (NULL); SELECT sum(u) AS null_sum FROM u; null_sum ---------- (1 row) SELECT min(u) AS null_min FROM u; null_min ---------- (1 row) SELECT max(u) AS null_max FROM u; null_max ---------- (1 row) SELECT avg(u) AS null_avg FROM u; null_avg ---------- (1 row) SELECT var_pop(u) AS null_var_pop FROM u; null_var_pop -------------- (1 row) SELECT var_samp(u) AS null_var_samp FROM u; null_var_samp --------------- (1 row) SELECT variance(u) AS null_variance FROM u; null_variance --------------- (1 row) SELECT stddev_pop(u) AS null_stddev_pop FROM u; null_stddev_pop ----------------- (1 row) SELECT stddev_samp(u) AS null_stddev_samp FROM u; null_stddev_samp ------------------ (1 row) SELECT stddev(u) AS null_stddev FROM u; null_stddev ------------- (1 row) -- one non-NULL row DELETE FROM u; INSERT INTO u VALUES (meter(5)); SELECT sum(u) AS five_meters FROM u; five_meters ------------- 5 m (1 row) SELECT min(u) AS five_meters FROM u; five_meters ------------- 5 m (1 row) SELECT max(u) AS five_meters FROM u; five_meters ------------- 5 m (1 row) SELECT avg(u) AS five_meters FROM u; five_meters ------------- 5 m (1 row) SELECT var_pop(u) AS zero_var_pop FROM u; zero_var_pop -------------- 0 (1 row) SELECT var_samp(u) AS zero_var_samp FROM u; zero_var_samp --------------- 0 (1 row) SELECT variance(u) AS zero_variance FROM u; zero_variance --------------- 0 (1 row) SELECT stddev_pop(u) AS zero_stddev_pop FROM u; zero_stddev_pop ----------------- 0 m (1 row) SELECT stddev_samp(u) AS zero_stddev_samp FROM u; zero_stddev_samp ------------------ 0 m (1 row) SELECT stddev(u) AS zero_stddev FROM u; zero_stddev ------------- 0 m (1 row) -- two rows, matching dimensions DELETE FROM u; INSERT INTO u VALUES (meter()), (meter(2)); SELECT sum(u) AS three_meters FROM u; three_meters -------------- 3 m (1 row) SELECT min(u) AS one_meter FROM u; one_meter ----------- 1 m (1 row) SELECT max(u) AS two_meters FROM u; two_meters ------------ 2 m (1 row) SELECT avg(u) AS oneandhalf_meters FROM u; oneandhalf_meters ------------------- 1.5 m (1 row) SELECT var_pop(u) FROM u; var_pop --------- 0.25 (1 row) SELECT var_samp(u) FROM u; var_samp ---------- 0.5 (1 row) SELECT variance(u) FROM u; variance ---------- 0.5 (1 row) SELECT stddev_pop(u) FROM u; stddev_pop ------------ 500 mm (1 row) SELECT stddev_samp(u) FROM u; stddev_samp --------------------- 707.106781186548 mm (1 row) SELECT stddev(u) FROM u; stddev --------------------- 707.106781186548 mm (1 row) DELETE FROM u; INSERT INTO u VALUES (kilogram(2)), (kilogram()); SELECT sum(u), sum(value(u)) FROM u; sum | sum ------+----- 3 kg | 3 (1 row) SELECT min(u), min(value(u)) FROM u; min | min ------+----- 1 kg | 1 (1 row) SELECT max(u), max(value(u)) FROM u; max | max ------+----- 2 kg | 2 (1 row) SELECT avg(u), avg(value(u)) FROM u; avg | avg --------+----- 1.5 kg | 1.5 (1 row) SELECT var_pop(u), var_pop(value(u)) FROM u; var_pop | var_pop ---------+--------- 0.25 | 0.25 (1 row) SELECT var_samp(u), var_samp(value(u)) FROM u; var_samp | var_samp ----------+---------- 0.5 | 0.5 (1 row) SELECT variance(u), variance(value(u)) FROM u; variance | variance ----------+---------- 0.5 | 0.5 (1 row) SELECT stddev_pop(u), stddev_pop(value(u)) FROM u; stddev_pop | stddev_pop ------------+------------ 500 g | 0.5 (1 row) SELECT stddev_samp(u), stddev_samp(value(u)) FROM u; stddev_samp | stddev_samp --------------------+------------------- 707.106781186548 g | 0.707106781186548 (1 row) SELECT stddev(u), stddev(value(u)) FROM u; stddev | stddev --------------------+------------------- 707.106781186548 g | 0.707106781186548 (1 row) -- three rows, one NULL INSERT INTO u VALUES (NULL); SELECT sum(u) AS three_kilogram FROM u; three_kilogram ---------------- 3 kg (1 row) SELECT min(u) AS one_kilogram FROM u; one_kilogram -------------- 1 kg (1 row) SELECT max(u) AS two_kilogram FROM u; two_kilogram -------------- 2 kg (1 row) SELECT avg(u) AS oneandhalf_kilogram FROM u; oneandhalf_kilogram --------------------- 1.5 kg (1 row) SELECT var_pop(u) FROM u; var_pop --------- 0.25 (1 row) SELECT var_samp(u) FROM u; var_samp ---------- 0.5 (1 row) SELECT variance(u) FROM u; variance ---------- 0.5 (1 row) SELECT stddev_pop(u) FROM u; stddev_pop ------------ 500 g (1 row) SELECT stddev_samp(u) FROM u; stddev_samp -------------------- 707.106781186548 g (1 row) SELECT stddev(u) FROM u; stddev -------------------- 707.106781186548 g (1 row) -- two rows, dimension mismatch DELETE FROM u; INSERT INTO u VALUES (ampere()), (kilogram(2)); SELECT sum(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" SELECT min(u) AS error FROM u; ERROR: dimension mismatch in "unit_least" operation: "1 A", "2 kg" SELECT max(u) AS error FROM u; ERROR: dimension mismatch in "unit_greatest" operation: "1 A", "2 kg" SELECT avg(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT var_pop(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT var_samp(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT variance(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT stddev_pop(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT stddev_samp(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 SELECT stddev(u) AS error FROM u; ERROR: dimension mismatch in "+" operation: "1 A", "2 kg" CONTEXT: SQL function "unit_accum" statement 1 unit/expected/compare.out0000664000000000000000000001611312750203664012714 0ustar -- test comparisons WITH v(u) AS (VALUES (NULL), ('-2'::unit), ('-1'::unit), ('-0'::unit), ('0'::unit), ('1'::unit), ('2'::unit), (meter()), (meter() * '2'), (kilogram()), (kilogram() * '2') ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, CASE WHEN unit_cmp(a, b) < 0 THEN '<' WHEN unit_cmp(a, b) = 0 THEN '=' WHEN unit_cmp(a, b) > 0 THEN '>' END AS cmp, a < b AS lt, a <= b AS le, a = b AS eq, a <> b AS ne, a >= b AS ge, a > b AS ge FROM va CROSS JOIN vb; a | b | cmp | lt | le | eq | ne | ge | ge ------+------+-----+----+----+----+----+----+---- | | | | | | | | | -2 | | | | | | | | -1 | | | | | | | | -0 | | | | | | | | 0 | | | | | | | | 1 | | | | | | | | 2 | | | | | | | | 1 m | | | | | | | | 2 m | | | | | | | | 1 kg | | | | | | | | 2 kg | | | | | | | -2 | | | | | | | | -2 | -2 | = | f | t | t | f | t | f -2 | -1 | < | t | t | f | t | f | f -2 | -0 | < | t | t | f | t | f | f -2 | 0 | < | t | t | f | t | f | f -2 | 1 | < | t | t | f | t | f | f -2 | 2 | < | t | t | f | t | f | f -2 | 1 m | < | t | t | f | t | f | f -2 | 2 m | < | t | t | f | t | f | f -2 | 1 kg | < | t | t | f | t | f | f -2 | 2 kg | < | t | t | f | t | f | f -1 | | | | | | | | -1 | -2 | > | f | f | f | t | t | t -1 | -1 | = | f | t | t | f | t | f -1 | -0 | < | t | t | f | t | f | f -1 | 0 | < | t | t | f | t | f | f -1 | 1 | < | t | t | f | t | f | f -1 | 2 | < | t | t | f | t | f | f -1 | 1 m | < | t | t | f | t | f | f -1 | 2 m | < | t | t | f | t | f | f -1 | 1 kg | < | t | t | f | t | f | f -1 | 2 kg | < | t | t | f | t | f | f -0 | | | | | | | | -0 | -2 | > | f | f | f | t | t | t -0 | -1 | > | f | f | f | t | t | t -0 | -0 | = | f | t | t | f | t | f -0 | 0 | = | f | t | t | f | t | f -0 | 1 | < | t | t | f | t | f | f -0 | 2 | < | t | t | f | t | f | f -0 | 1 m | < | t | t | f | t | f | f -0 | 2 m | < | t | t | f | t | f | f -0 | 1 kg | < | t | t | f | t | f | f -0 | 2 kg | < | t | t | f | t | f | f 0 | | | | | | | | 0 | -2 | > | f | f | f | t | t | t 0 | -1 | > | f | f | f | t | t | t 0 | -0 | = | f | t | t | f | t | f 0 | 0 | = | f | t | t | f | t | f 0 | 1 | < | t | t | f | t | f | f 0 | 2 | < | t | t | f | t | f | f 0 | 1 m | < | t | t | f | t | f | f 0 | 2 m | < | t | t | f | t | f | f 0 | 1 kg | < | t | t | f | t | f | f 0 | 2 kg | < | t | t | f | t | f | f 1 | | | | | | | | 1 | -2 | > | f | f | f | t | t | t 1 | -1 | > | f | f | f | t | t | t 1 | -0 | > | f | f | f | t | t | t 1 | 0 | > | f | f | f | t | t | t 1 | 1 | = | f | t | t | f | t | f 1 | 2 | < | t | t | f | t | f | f 1 | 1 m | < | t | t | f | t | f | f 1 | 2 m | < | t | t | f | t | f | f 1 | 1 kg | < | t | t | f | t | f | f 1 | 2 kg | < | t | t | f | t | f | f 2 | | | | | | | | 2 | -2 | > | f | f | f | t | t | t 2 | -1 | > | f | f | f | t | t | t 2 | -0 | > | f | f | f | t | t | t 2 | 0 | > | f | f | f | t | t | t 2 | 1 | > | f | f | f | t | t | t 2 | 2 | = | f | t | t | f | t | f 2 | 1 m | > | f | f | f | t | t | t 2 | 2 m | < | t | t | f | t | f | f 2 | 1 kg | > | f | f | f | t | t | t 2 | 2 kg | < | t | t | f | t | f | f 1 m | | | | | | | | 1 m | -2 | > | f | f | f | t | t | t 1 m | -1 | > | f | f | f | t | t | t 1 m | -0 | > | f | f | f | t | t | t 1 m | 0 | > | f | f | f | t | t | t 1 m | 1 | > | f | f | f | t | t | t 1 m | 2 | < | t | t | f | t | f | f 1 m | 1 m | = | f | t | t | f | t | f 1 m | 2 m | < | t | t | f | t | f | f 1 m | 1 kg | > | f | f | f | t | t | t 1 m | 2 kg | < | t | t | f | t | f | f 2 m | | | | | | | | 2 m | -2 | > | f | f | f | t | t | t 2 m | -1 | > | f | f | f | t | t | t 2 m | -0 | > | f | f | f | t | t | t 2 m | 0 | > | f | f | f | t | t | t 2 m | 1 | > | f | f | f | t | t | t 2 m | 2 | > | f | f | f | t | t | t 2 m | 1 m | > | f | f | f | t | t | t 2 m | 2 m | = | f | t | t | f | t | f 2 m | 1 kg | > | f | f | f | t | t | t 2 m | 2 kg | > | f | f | f | t | t | t 1 kg | | | | | | | | 1 kg | -2 | > | f | f | f | t | t | t 1 kg | -1 | > | f | f | f | t | t | t 1 kg | -0 | > | f | f | f | t | t | t 1 kg | 0 | > | f | f | f | t | t | t 1 kg | 1 | > | f | f | f | t | t | t 1 kg | 2 | < | t | t | f | t | f | f 1 kg | 1 m | < | t | t | f | t | f | f 1 kg | 2 m | < | t | t | f | t | f | f 1 kg | 1 kg | = | f | t | t | f | t | f 1 kg | 2 kg | < | t | t | f | t | f | f 2 kg | | | | | | | | 2 kg | -2 | > | f | f | f | t | t | t 2 kg | -1 | > | f | f | f | t | t | t 2 kg | -0 | > | f | f | f | t | t | t 2 kg | 0 | > | f | f | f | t | t | t 2 kg | 1 | > | f | f | f | t | t | t 2 kg | 2 | > | f | f | f | t | t | t 2 kg | 1 m | > | f | f | f | t | t | t 2 kg | 2 m | < | t | t | f | t | f | f 2 kg | 1 kg | > | f | f | f | t | t | t 2 kg | 2 kg | = | f | t | t | f | t | f (121 rows) -- test btree index CREATE TEMP TABLE u (u unit); INSERT INTO u SELECT meter(generate_series(1,10000)::double precision); INSERT INTO u SELECT generate_series(1,10000)::text::unit * kilogram(); ANALYZE u; CREATE INDEX ON u(u); SELECT * FROM u WHERE u = meter(400); u ------- 400 m (1 row) SELECT * FROM u WHERE u = '300' * kilogram(); u -------- 300 kg (1 row) EXPLAIN (COSTS OFF) SELECT * FROM u WHERE u = meter(400); QUERY PLAN ------------------------------------ Index Only Scan using u_u_idx on u Index Cond: (u = '400 m'::unit) (2 rows) EXPLAIN (COSTS OFF) SELECT * FROM u WHERE u = '300' * kilogram(); QUERY PLAN ------------------------------------ Index Only Scan using u_u_idx on u Index Cond: (u = '300 kg'::unit) (2 rows) unit/expected/convert.out0000664000000000000000000001463313031163723012745 0ustar -- length WITH l(u) AS (VALUES ('mm'), ('m'), ('km'), ('in'), ('ft'), ('yd'), ('mi')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview u | mm | m | km | in | ft | yd | mi ----+------------+------------+--------------+-----------------------+------------------------+------------------------+------------------------- mm | 1 mm | 0.001 m | 1e-06 km | 0.0393700787401575 in | 0.00328083989501312 ft | 0.00109361329833771 yd | 6.21371192237334e-07 mi m | 1000 mm | 1 m | 0.001 km | 39.3700787401575 in | 3.28083989501312 ft | 1.09361329833771 yd | 0.000621371192237334 mi km | 1000000 mm | 1000 m | 1 km | 39370.0787401575 in | 3280.83989501312 ft | 1093.61329833771 yd | 0.621371192237334 mi in | 25.4 mm | 0.0254 m | 2.54e-05 km | 1 in | 0.0833333333333333 ft | 0.0277777777777778 yd | 1.57828282828283e-05 mi ft | 304.8 mm | 0.3048 m | 0.0003048 km | 12 in | 1 ft | 0.333333333333333 yd | 0.000189393939393939 mi yd | 914.4 mm | 0.9144 m | 0.0009144 km | 36 in | 3 ft | 1 yd | 0.000568181818181818 mi mi | 1609344 mm | 1609.344 m | 1.609344 km | 63360 in | 5280 ft | 1760 yd | 1 mi (7 rows) -- area WITH l(u) AS (VALUES ('mm^2'), ('m^2'), ('km^2'), ('in^2'), ('ft^2'), ('yd^2'), ('mi^2')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview u | mm^2 | m^2 | km^2 | in^2 | ft^2 | yd^2 | mi^2 ------+--------------------+--------------------+---------------------+-------------------------+---------------------------+---------------------------+--------------------------- mm^2 | 1 mm^2 | 1e-06 m^2 | 1e-12 km^2 | 0.0015500031000062 in^2 | 1.07639104167097e-05 ft^2 | 1.19599004630108e-06 yd^2 | 3.86102158542446e-13 mi^2 m^2 | 1000000 mm^2 | 1 m^2 | 1e-06 km^2 | 1550.0031000062 in^2 | 10.7639104167097 ft^2 | 1.19599004630108 yd^2 | 3.86102158542446e-07 mi^2 km^2 | 1000000000000 mm^2 | 1000000 m^2 | 1 km^2 | 1550003100.0062 in^2 | 10763910.4167097 ft^2 | 1195990.04630108 yd^2 | 0.386102158542446 mi^2 in^2 | 645.16 mm^2 | 0.00064516 m^2 | 6.4516e-10 km^2 | 1 in^2 | 0.00694444444444444 ft^2 | 0.000771604938271605 yd^2 | 2.49097668605244e-10 mi^2 ft^2 | 92903.04 mm^2 | 0.09290304 m^2 | 9.290304e-08 km^2 | 144 in^2 | 1 ft^2 | 0.111111111111111 yd^2 | 3.58700642791552e-08 mi^2 yd^2 | 836127.36 mm^2 | 0.83612736 m^2 | 8.3612736e-07 km^2 | 1296 in^2 | 9 ft^2 | 1 yd^2 | 3.22830578512397e-07 mi^2 mi^2 | 2589988110336 mm^2 | 2589988.110336 m^2 | 2.589988110336 km^2 | 4014489600 in^2 | 27878400 ft^2 | 3097600 yd^2 | 1 mi^2 (7 rows) -- volume WITH l(u) AS (VALUES ('mm^3'), ('l'), ('m^3'), ('in^3'), ('ft^3'), ('yd^3')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview u | mm^3 | l | m^3 | in^3 | ft^3 | yd^3 ------+--------------------+-----------------+--------------------+---------------------------+---------------------------+--------------------------- mm^3 | 1 mm^3 | 1e-06 l | 1e-09 m^3 | 6.10237440947323e-05 in^3 | 3.53146667214886e-08 ft^3 | 1.30795061931439e-09 yd^3 l | 1000000 mm^3 | 1 l | 0.001 m^3 | 61.0237440947323 in^3 | 0.0353146667214886 ft^3 | 0.00130795061931439 yd^3 m^3 | 1000000000 mm^3 | 1000 l | 1 m^3 | 61023.7440947323 in^3 | 35.3146667214886 ft^3 | 1.30795061931439 yd^3 in^3 | 16387.064 mm^3 | 0.016387064 l | 1.6387064e-05 m^3 | 1 in^3 | 0.000578703703703704 ft^3 | 2.14334705075446e-05 yd^3 ft^3 | 28316846.592 mm^3 | 28.316846592 l | 0.028316846592 m^3 | 1728 in^3 | 1 ft^3 | 0.037037037037037 yd^3 yd^3 | 764554857.984 mm^3 | 764.554857984 l | 0.764554857984 m^3 | 46656 in^3 | 27 ft^3 | 1 yd^3 (6 rows) -- weight WITH l(u) AS (VALUES ('g'), ('kg'), ('t'), ('oz'), ('lb')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview u | g | kg | t | oz | lb ----+----------------+-------------------+--------------------+-----------------------+------------------------ g | 1 g | 0.001 kg | 1e-06 t | 0.0352739619495804 oz | 0.00220462262184878 lb kg | 1000 g | 1 kg | 0.001 t | 35.2739619495804 oz | 2.20462262184878 lb t | 1000000 g | 1000 kg | 1 t | 35273.9619495804 oz | 2204.62262184878 lb oz | 28.349523125 g | 0.028349523125 kg | 2.8349523125e-05 t | 1 oz | 0.0625 lb lb | 453.59237 g | 0.45359237 kg | 0.00045359237 t | 16 oz | 1 lb (5 rows) -- time WITH l(u) AS (VALUES ('s'), ('min'), ('h'), ('d'), ('a')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview u | s | min | h | d | a -----+------------+------------------------+------------------------+------------------------+------------------------ s | 1 s | 0.0166666666666667 min | 0.000277777777777778 h | 1.15740740740741e-05 d | 3.16880878140289e-08 a min | 60 s | 1 min | 0.0166666666666667 h | 0.000694444444444444 d | 1.90128526884174e-06 a h | 3600 s | 60 min | 1 h | 0.0416666666666667 d | 0.000114077116130504 a d | 86400 s | 1440 min | 24 h | 1 d | 0.0027378507871321 a a | 31557600 s | 525960 min | 8766 h | 365.25 d | 1 a (5 rows) unit/expected/crosstab.out0000664000000000000000000016542613031153735013116 0ustar -- test multiplication WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('0'), ('1'), ('2')) SELECT unit, i, unit * i FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview unit | -2 | -1 | 0 | 1 | 2 -------+--------+--------+-------+-------+------- 1 | -2 | -1 | 0 | 1 | 2 1 m | -2 m | -1 m | 0 m | 1 m | 2 m 1 kg | -2 kg | -1 kg | 0 kg | 1 kg | 2 kg 1 s | -2 s | -1 s | 0 s | 1 s | 2 s 1 A | -2 A | -1 A | 0 A | 1 A | 2 A 1 K | -2 K | -1 K | 0 K | 1 K | 2 K 1 mol | -2 mol | -1 mol | 0 mol | 1 mol | 2 mol 1 cd | -2 cd | -1 cd | 0 cd | 1 cd | 2 cd 1 B | -2 B | -1 B | 0 B | 1 B | 2 B 1 Hz | -2 Hz | -1 Hz | 0 Hz | 1 Hz | 2 Hz 1 N | -2 N | -1 N | 0 N | 1 N | 2 N 1 Pa | -2 Pa | -1 Pa | 0 Pa | 1 Pa | 2 Pa 1 J | -2 J | -1 J | 0 J | 1 J | 2 J 1 W | -2 W | -1 W | 0 W | 1 W | 2 W 1 C | -2 C | -1 C | 0 C | 1 C | 2 C 1 V | -2 V | -1 V | 0 V | 1 V | 2 V 1 F | -2 F | -1 F | 0 F | 1 F | 2 F 1 Ω | -2 Ω | -1 Ω | 0 Ω | 1 Ω | 2 Ω 1 S | -2 S | -1 S | 0 S | 1 S | 2 S 1 Wb | -2 Wb | -1 Wb | 0 Wb | 1 Wb | 2 Wb 1 T | -2 T | -1 T | 0 T | 1 T | 2 T 1 H | -2 H | -1 H | 0 H | 1 H | 2 H 1 lx | -2 lx | -1 lx | 0 lx | 1 lx | 2 lx 1 Gy | -2 Gy | -1 Gy | 0 Gy | 1 Gy | 2 Gy 1 kat | -2 kat | -1 kat | 0 kat | 1 kat | 2 kat (25 rows) SELECT a.unit AS a, b.unit AS b, a.unit * b.unit AS mul FROM units AS a CROSS JOIN units AS b WHERE (a.base OR a.coherent) AND NOT a.duplicate AND (b.base OR b.coherent) AND NOT b.duplicate \crosstabview a | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat -------+-------+------------------+--------------------+------------------+------------------+--------------------+----------------------+---------------------+--------------------+------------------+--------------------+------------------+--------------------+--------------------+------------------+--------------------+----------------------+----------------------+----------------------+--------------------+--------------------+----------------------+---------------------+------------------+---------------------- 1 | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat 1 m | 1 m | 1 m^2 | 1 m*kg | 1 m*s | 1 m*A | 1 m*K | 1 m*mol | 1 m*cd | 1 m*B | 1 m/s | 1 J | 1 kg/s^2 | 1 m^3*kg/s^2 | 1 m^3*kg/s^3 | 1 m*s*A | 1 m^3*kg/s^3*A | 1 s^4*A^2/m*kg | 1 m^3*kg/s^3*A^2 | 1 s^3*A^2/m*kg | 1 m^3*kg/s^2*A | 1 m*kg/s^2*A | 1 m^3*kg/s^2*A^2 | 1 cd/m | 1 m^3/s^2 | 1 m*mol/s 1 kg | 1 kg | 1 m*kg | 1 kg^2 | 1 kg*s | 1 kg*A | 1 kg*K | 1 kg*mol | 1 kg*cd | 1 kg*B | 1 kg/s | 1 m*kg^2/s^2 | 1 kg^2/m*s^2 | 1 m^2*kg^2/s^2 | 1 m^2*kg^2/s^3 | 1 kg*s*A | 1 m^2*kg^2/s^3*A | 1 s^4*A^2/m^2 | 1 m^2*kg^2/s^3*A^2 | 1 s^3*A^2/m^2 | 1 m^2*kg^2/s^2*A | 1 kg^2/s^2*A | 1 m^2*kg^2/s^2*A^2 | 1 kg*cd/m^2 | 1 J | 1 kg*mol/s 1 s | 1 s | 1 m*s | 1 kg*s | 1 s^2 | 1 C | 1 s*K | 1 s*mol | 1 s*cd | 1 s*B | 1 | 1 m*kg/s | 1 kg/m*s | 1 m^2*kg/s | 1 J | 1 s^2*A | 1 Wb | 1 s^5*A^2/m^2*kg | 1 H | 1 F | 1 m^2*kg/s*A | 1 kg/s*A | 1 m^2*kg/s*A^2 | 1 s*cd/m^2 | 1 m^2/s | 1 mol 1 A | 1 A | 1 m*A | 1 kg*A | 1 C | 1 A^2 | 1 A*K | 1 A*mol | 1 A*cd | 1 A*B | 1 A/s | 1 m*kg*A/s^2 | 1 kg*A/m*s^2 | 1 m^2*kg*A/s^2 | 1 m^2*kg*A/s^3 | 1 s*A^2 | 1 W | 1 s^4*A^3/m^2*kg | 1 V | 1 s^3*A^3/m^2*kg | 1 J | 1 kg/s^2 | 1 Wb | 1 A*cd/m^2 | 1 m^2*A/s^2 | 1 A*mol/s 1 K | 1 K | 1 m*K | 1 kg*K | 1 s*K | 1 A*K | 1 K^2 | 1 K*mol | 1 K*cd | 1 K*B | 1 K/s | 1 m*kg*K/s^2 | 1 kg*K/m*s^2 | 1 m^2*kg*K/s^2 | 1 m^2*kg*K/s^3 | 1 s*A*K | 1 m^2*kg*K/s^3*A | 1 s^4*A^2*K/m^2*kg | 1 m^2*kg*K/s^3*A^2 | 1 s^3*A^2*K/m^2*kg | 1 m^2*kg*K/s^2*A | 1 kg*K/s^2*A | 1 m^2*kg*K/s^2*A^2 | 1 K*cd/m^2 | 1 m^2*K/s^2 | 1 K*mol/s 1 mol | 1 mol | 1 m*mol | 1 kg*mol | 1 s*mol | 1 A*mol | 1 K*mol | 1 mol^2 | 1 mol*cd | 1 mol*B | 1 kat | 1 m*kg*mol/s^2 | 1 kg*mol/m*s^2 | 1 m^2*kg*mol/s^2 | 1 m^2*kg*mol/s^3 | 1 s*A*mol | 1 m^2*kg*mol/s^3*A | 1 s^4*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^3*A^2 | 1 s^3*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^2*A | 1 kg*mol/s^2*A | 1 m^2*kg*mol/s^2*A^2 | 1 mol*cd/m^2 | 1 m^2*mol/s^2 | 1 mol^2/s 1 cd | 1 cd | 1 m*cd | 1 kg*cd | 1 s*cd | 1 A*cd | 1 K*cd | 1 mol*cd | 1 cd^2 | 1 cd*B | 1 cd/s | 1 m*kg*cd/s^2 | 1 kg*cd/m*s^2 | 1 m^2*kg*cd/s^2 | 1 m^2*kg*cd/s^3 | 1 s*A*cd | 1 m^2*kg*cd/s^3*A | 1 s^4*A^2*cd/m^2*kg | 1 m^2*kg*cd/s^3*A^2 | 1 s^3*A^2*cd/m^2*kg | 1 m^2*kg*cd/s^2*A | 1 kg*cd/s^2*A | 1 m^2*kg*cd/s^2*A^2 | 1 cd^2/m^2 | 1 m^2*cd/s^2 | 1 mol*cd/s 1 B | 1 B | 1 m*B | 1 kg*B | 1 s*B | 1 A*B | 1 K*B | 1 mol*B | 1 cd*B | 1 B^2 | 1 B/s | 1 m*kg*B/s^2 | 1 kg*B/m*s^2 | 1 m^2*kg*B/s^2 | 1 m^2*kg*B/s^3 | 1 s*A*B | 1 m^2*kg*B/s^3*A | 1 s^4*A^2*B/m^2*kg | 1 m^2*kg*B/s^3*A^2 | 1 s^3*A^2*B/m^2*kg | 1 m^2*kg*B/s^2*A | 1 kg*B/s^2*A | 1 m^2*kg*B/s^2*A^2 | 1 cd*B/m^2 | 1 m^2*B/s^2 | 1 mol*B/s 1 Hz | 1 Hz | 1 m/s | 1 kg/s | 1 | 1 A/s | 1 K/s | 1 kat | 1 cd/s | 1 B/s | 1 s^-2 | 1 m*kg/s^3 | 1 kg/m*s^3 | 1 W | 1 m^2*kg/s^4 | 1 A | 1 m^2*kg/s^4*A | 1 S | 1 m^2*kg/s^4*A^2 | 1 s^2*A^2/m^2*kg | 1 V | 1 kg/s^3*A | 1 Ω | 1 cd/m^2*s | 1 m^2/s^3 | 1 mol/s^2 1 N | 1 N | 1 J | 1 m*kg^2/s^2 | 1 m*kg/s | 1 m*kg*A/s^2 | 1 m*kg*K/s^2 | 1 m*kg*mol/s^2 | 1 m*kg*cd/s^2 | 1 m*kg*B/s^2 | 1 m*kg/s^3 | 1 m^2*kg^2/s^4 | 1 kg^2/s^4 | 1 m^3*kg^2/s^4 | 1 m^3*kg^2/s^5 | 1 m*kg*A/s | 1 m^3*kg^2/s^5*A | 1 s^2*A^2/m | 1 m^3*kg^2/s^5*A^2 | 1 s*A^2/m | 1 m^3*kg^2/s^4*A | 1 m*kg^2/s^4*A | 1 m^3*kg^2/s^4*A^2 | 1 kg*cd/m*s^2 | 1 m^3*kg/s^4 | 1 m*kg*mol/s^3 1 Pa | 1 Pa | 1 kg/s^2 | 1 kg^2/m*s^2 | 1 kg/m*s | 1 kg*A/m*s^2 | 1 kg*K/m*s^2 | 1 kg*mol/m*s^2 | 1 kg*cd/m*s^2 | 1 kg*B/m*s^2 | 1 kg/m*s^3 | 1 kg^2/s^4 | 1 kg^2/m^2*s^4 | 1 m*kg^2/s^4 | 1 m*kg^2/s^5 | 1 kg*A/m*s | 1 m*kg^2/s^5*A | 1 s^2*A^2/m^3 | 1 m*kg^2/s^5*A^2 | 1 s*A^2/m^3 | 1 m*kg^2/s^4*A | 1 kg^2/m*s^4*A | 1 m*kg^2/s^4*A^2 | 1 kg*cd/m^3*s^2 | 1 m*kg/s^4 | 1 kg*mol/m*s^3 1 J | 1 J | 1 m^3*kg/s^2 | 1 m^2*kg^2/s^2 | 1 m^2*kg/s | 1 m^2*kg*A/s^2 | 1 m^2*kg*K/s^2 | 1 m^2*kg*mol/s^2 | 1 m^2*kg*cd/s^2 | 1 m^2*kg*B/s^2 | 1 W | 1 m^3*kg^2/s^4 | 1 m*kg^2/s^4 | 1 m^4*kg^2/s^4 | 1 m^4*kg^2/s^5 | 1 m^2*kg*A/s | 1 m^4*kg^2/s^5*A | 1 s^2*A^2 | 1 m^4*kg^2/s^5*A^2 | 1 s*A^2 | 1 m^4*kg^2/s^4*A | 1 m^2*kg^2/s^4*A | 1 m^4*kg^2/s^4*A^2 | 1 kg*cd/s^2 | 1 m^4*kg/s^4 | 1 m^2*kg*mol/s^3 1 W | 1 W | 1 m^3*kg/s^3 | 1 m^2*kg^2/s^3 | 1 J | 1 m^2*kg*A/s^3 | 1 m^2*kg*K/s^3 | 1 m^2*kg*mol/s^3 | 1 m^2*kg*cd/s^3 | 1 m^2*kg*B/s^3 | 1 m^2*kg/s^4 | 1 m^3*kg^2/s^5 | 1 m*kg^2/s^5 | 1 m^4*kg^2/s^5 | 1 m^4*kg^2/s^6 | 1 m^2*kg*A/s^2 | 1 m^4*kg^2/s^6*A | 1 s*A^2 | 1 m^4*kg^2/s^6*A^2 | 1 A^2 | 1 m^4*kg^2/s^5*A | 1 m^2*kg^2/s^5*A | 1 m^4*kg^2/s^5*A^2 | 1 kg*cd/s^3 | 1 m^4*kg/s^5 | 1 m^2*kg*mol/s^4 1 C | 1 C | 1 m*s*A | 1 kg*s*A | 1 s^2*A | 1 s*A^2 | 1 s*A*K | 1 s*A*mol | 1 s*A*cd | 1 s*A*B | 1 A | 1 m*kg*A/s | 1 kg*A/m*s | 1 m^2*kg*A/s | 1 m^2*kg*A/s^2 | 1 s^2*A^2 | 1 J | 1 s^5*A^3/m^2*kg | 1 Wb | 1 s^4*A^3/m^2*kg | 1 m^2*kg/s | 1 kg/s | 1 m^2*kg/s*A | 1 s*A*cd/m^2 | 1 m^2*A/s | 1 A*mol 1 V | 1 V | 1 m^3*kg/s^3*A | 1 m^2*kg^2/s^3*A | 1 Wb | 1 W | 1 m^2*kg*K/s^3*A | 1 m^2*kg*mol/s^3*A | 1 m^2*kg*cd/s^3*A | 1 m^2*kg*B/s^3*A | 1 m^2*kg/s^4*A | 1 m^3*kg^2/s^5*A | 1 m*kg^2/s^5*A | 1 m^4*kg^2/s^5*A | 1 m^4*kg^2/s^6*A | 1 J | 1 m^4*kg^2/s^6*A^2 | 1 C | 1 m^4*kg^2/s^6*A^3 | 1 A | 1 m^4*kg^2/s^5*A^2 | 1 m^2*kg^2/s^5*A^2 | 1 m^4*kg^2/s^5*A^3 | 1 kg*cd/s^3*A | 1 m^4*kg/s^5*A | 1 m^2*kg*mol/s^4*A 1 F | 1 F | 1 s^4*A^2/m*kg | 1 s^4*A^2/m^2 | 1 s^5*A^2/m^2*kg | 1 s^4*A^3/m^2*kg | 1 s^4*A^2*K/m^2*kg | 1 s^4*A^2*mol/m^2*kg | 1 s^4*A^2*cd/m^2*kg | 1 s^4*A^2*B/m^2*kg | 1 S | 1 s^2*A^2/m | 1 s^2*A^2/m^3 | 1 s^2*A^2 | 1 s*A^2 | 1 s^5*A^3/m^2*kg | 1 C | 1 s^8*A^4/m^4*kg^2 | 1 s | 1 s^7*A^4/m^4*kg^2 | 1 s^2*A | 1 s^2*A/m^2 | 1 s^2 | 1 s^4*A^2*cd/m^4*kg | 1 s^2*A^2/kg | 1 s^3*A^2*mol/m^2*kg 1 Ω | 1 Ω | 1 m^3*kg/s^3*A^2 | 1 m^2*kg^2/s^3*A^2 | 1 H | 1 V | 1 m^2*kg*K/s^3*A^2 | 1 m^2*kg*mol/s^3*A^2 | 1 m^2*kg*cd/s^3*A^2 | 1 m^2*kg*B/s^3*A^2 | 1 m^2*kg/s^4*A^2 | 1 m^3*kg^2/s^5*A^2 | 1 m*kg^2/s^5*A^2 | 1 m^4*kg^2/s^5*A^2 | 1 m^4*kg^2/s^6*A^2 | 1 Wb | 1 m^4*kg^2/s^6*A^3 | 1 s | 1 m^4*kg^2/s^6*A^4 | 1 | 1 m^4*kg^2/s^5*A^3 | 1 m^2*kg^2/s^5*A^3 | 1 m^4*kg^2/s^5*A^4 | 1 kg*cd/s^3*A^2 | 1 m^4*kg/s^5*A^2 | 1 m^2*kg*mol/s^4*A^2 1 S | 1 S | 1 s^3*A^2/m*kg | 1 s^3*A^2/m^2 | 1 F | 1 s^3*A^3/m^2*kg | 1 s^3*A^2*K/m^2*kg | 1 s^3*A^2*mol/m^2*kg | 1 s^3*A^2*cd/m^2*kg | 1 s^3*A^2*B/m^2*kg | 1 s^2*A^2/m^2*kg | 1 s*A^2/m | 1 s*A^2/m^3 | 1 s*A^2 | 1 A^2 | 1 s^4*A^3/m^2*kg | 1 A | 1 s^7*A^4/m^4*kg^2 | 1 | 1 s^6*A^4/m^4*kg^2 | 1 C | 1 s*A/m^2 | 1 s | 1 s^3*A^2*cd/m^4*kg | 1 s*A^2/kg | 1 s^2*A^2*mol/m^2*kg 1 Wb | 1 Wb | 1 m^3*kg/s^2*A | 1 m^2*kg^2/s^2*A | 1 m^2*kg/s*A | 1 J | 1 m^2*kg*K/s^2*A | 1 m^2*kg*mol/s^2*A | 1 m^2*kg*cd/s^2*A | 1 m^2*kg*B/s^2*A | 1 V | 1 m^3*kg^2/s^4*A | 1 m*kg^2/s^4*A | 1 m^4*kg^2/s^4*A | 1 m^4*kg^2/s^5*A | 1 m^2*kg/s | 1 m^4*kg^2/s^5*A^2 | 1 s^2*A | 1 m^4*kg^2/s^5*A^3 | 1 C | 1 m^4*kg^2/s^4*A^2 | 1 m^2*kg^2/s^4*A^2 | 1 m^4*kg^2/s^4*A^3 | 1 kg*cd/s^2*A | 1 m^4*kg/s^4*A | 1 m^2*kg*mol/s^3*A 1 T | 1 T | 1 m*kg/s^2*A | 1 kg^2/s^2*A | 1 kg/s*A | 1 kg/s^2 | 1 kg*K/s^2*A | 1 kg*mol/s^2*A | 1 kg*cd/s^2*A | 1 kg*B/s^2*A | 1 kg/s^3*A | 1 m*kg^2/s^4*A | 1 kg^2/m*s^4*A | 1 m^2*kg^2/s^4*A | 1 m^2*kg^2/s^5*A | 1 kg/s | 1 m^2*kg^2/s^5*A^2 | 1 s^2*A/m^2 | 1 m^2*kg^2/s^5*A^3 | 1 s*A/m^2 | 1 m^2*kg^2/s^4*A^2 | 1 kg^2/s^4*A^2 | 1 m^2*kg^2/s^4*A^3 | 1 kg*cd/m^2*s^2*A | 1 m^2*kg/s^4*A | 1 kg*mol/s^3*A 1 H | 1 H | 1 m^3*kg/s^2*A^2 | 1 m^2*kg^2/s^2*A^2 | 1 m^2*kg/s*A^2 | 1 Wb | 1 m^2*kg*K/s^2*A^2 | 1 m^2*kg*mol/s^2*A^2 | 1 m^2*kg*cd/s^2*A^2 | 1 m^2*kg*B/s^2*A^2 | 1 Ω | 1 m^3*kg^2/s^4*A^2 | 1 m*kg^2/s^4*A^2 | 1 m^4*kg^2/s^4*A^2 | 1 m^4*kg^2/s^5*A^2 | 1 m^2*kg/s*A | 1 m^4*kg^2/s^5*A^3 | 1 s^2 | 1 m^4*kg^2/s^5*A^4 | 1 s | 1 m^4*kg^2/s^4*A^3 | 1 m^2*kg^2/s^4*A^3 | 1 m^4*kg^2/s^4*A^4 | 1 kg*cd/s^2*A^2 | 1 m^4*kg/s^4*A^2 | 1 m^2*kg*mol/s^3*A^2 1 lx | 1 lx | 1 cd/m | 1 kg*cd/m^2 | 1 s*cd/m^2 | 1 A*cd/m^2 | 1 K*cd/m^2 | 1 mol*cd/m^2 | 1 cd^2/m^2 | 1 cd*B/m^2 | 1 cd/m^2*s | 1 kg*cd/m*s^2 | 1 kg*cd/m^3*s^2 | 1 kg*cd/s^2 | 1 kg*cd/s^3 | 1 s*A*cd/m^2 | 1 kg*cd/s^3*A | 1 s^4*A^2*cd/m^4*kg | 1 kg*cd/s^3*A^2 | 1 s^3*A^2*cd/m^4*kg | 1 kg*cd/s^2*A | 1 kg*cd/m^2*s^2*A | 1 kg*cd/s^2*A^2 | 1 cd^2/m^4 | 1 cd/s^2 | 1 mol*cd/m^2*s 1 Gy | 1 Gy | 1 m^3/s^2 | 1 J | 1 m^2/s | 1 m^2*A/s^2 | 1 m^2*K/s^2 | 1 m^2*mol/s^2 | 1 m^2*cd/s^2 | 1 m^2*B/s^2 | 1 m^2/s^3 | 1 m^3*kg/s^4 | 1 m*kg/s^4 | 1 m^4*kg/s^4 | 1 m^4*kg/s^5 | 1 m^2*A/s | 1 m^4*kg/s^5*A | 1 s^2*A^2/kg | 1 m^4*kg/s^5*A^2 | 1 s*A^2/kg | 1 m^4*kg/s^4*A | 1 m^2*kg/s^4*A | 1 m^4*kg/s^4*A^2 | 1 cd/s^2 | 1 m^4/s^4 | 1 m^2*mol/s^3 1 kat | 1 kat | 1 m*mol/s | 1 kg*mol/s | 1 mol | 1 A*mol/s | 1 K*mol/s | 1 mol^2/s | 1 mol*cd/s | 1 mol*B/s | 1 mol/s^2 | 1 m*kg*mol/s^3 | 1 kg*mol/m*s^3 | 1 m^2*kg*mol/s^3 | 1 m^2*kg*mol/s^4 | 1 A*mol | 1 m^2*kg*mol/s^4*A | 1 s^3*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^4*A^2 | 1 s^2*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^3*A | 1 kg*mol/s^3*A | 1 m^2*kg*mol/s^3*A^2 | 1 mol*cd/m^2*s | 1 m^2*mol/s^3 | 1 mol^2/s^2 (25 rows) SELECT f, unit, f * unit FROM factors CROSS JOIN units WHERE (base OR coherent) AND NOT duplicate \crosstabview f | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat ---------------+---------------+---------+----------+---------+---------+---------+-----------+----------+---------+----------+---------+----------+---------+---------+---------+---------+---------+---------+---------+----------+---------+---------+----------+----------+----------- 1e+27 | 1e+27 | 1e+27 m | 1e+27 kg | 1e+27 s | 1e+27 A | 1e+27 K | 1e+27 mol | 1e+27 cd | 1e+27 B | 1e+27 Hz | 1e+27 N | 1e+27 Pa | 1e+27 J | 1e+27 W | 1e+27 C | 1e+27 V | 1e+27 F | 1e+27 Ω | 1e+27 S | 1e+27 Wb | 1e+27 T | 1e+27 H | 1e+27 lx | 1e+27 Gy | 1e+27 kat 1e+24 | 1e+24 | 1 Ym | 1e+24 kg | 1 Ys | 1 YA | 1 YK | 1 Ymol | 1 Ycd | 1 YB | 1 YHz | 1 YN | 1 YPa | 1 YJ | 1 YW | 1 YC | 1 YV | 1 YF | 1 YΩ | 1 YS | 1 YWb | 1 YT | 1 YH | 1 Ylx | 1 YGy | 1 Ykat 1e+21 | 1e+21 | 1 Zm | 1 Yg | 1 Zs | 1 ZA | 1 ZK | 1 Zmol | 1 Zcd | 1 ZB | 1 ZHz | 1 ZN | 1 ZPa | 1 ZJ | 1 ZW | 1 ZC | 1 ZV | 1 ZF | 1 ZΩ | 1 ZS | 1 ZWb | 1 ZT | 1 ZH | 1 Zlx | 1 ZGy | 1 Zkat 1e+18 | 1e+18 | 1 Em | 1 Zg | 1 Es | 1 EA | 1 EK | 1 Emol | 1 Ecd | 1 EB | 1 EHz | 1 EN | 1 EPa | 1 EJ | 1 EW | 1 EC | 1 EV | 1 EF | 1 EΩ | 1 ES | 1 EWb | 1 ET | 1 EH | 1 Elx | 1 EGy | 1 Ekat 1e+15 | 1e+15 | 1 Pm | 1 Eg | 1 Ps | 1 PA | 1 PK | 1 Pmol | 1 Pcd | 1 PB | 1 PHz | 1 PN | 1 PPa | 1 PJ | 1 PW | 1 PC | 1 PV | 1 PF | 1 PΩ | 1 PS | 1 PWb | 1 PT | 1 PH | 1 Plx | 1 PGy | 1 Pkat 1000000000000 | 1000000000000 | 1 Tm | 1 Pg | 1 Ts | 1 TA | 1 TK | 1 Tmol | 1 Tcd | 1 TB | 1 THz | 1 TN | 1 TPa | 1 TJ | 1 TW | 1 TC | 1 TV | 1 TF | 1 TΩ | 1 TS | 1 TWb | 1 TT | 1 TH | 1 Tlx | 1 TGy | 1 Tkat 1000000000 | 1000000000 | 1 Gm | 1 Tg | 1 Gs | 1 GA | 1 GK | 1 Gmol | 1 Gcd | 1 GB | 1 GHz | 1 GN | 1 GPa | 1 GJ | 1 GW | 1 GC | 1 GV | 1 GF | 1 GΩ | 1 GS | 1 GWb | 1 GT | 1 GH | 1 Glx | 1 GGy | 1 Gkat 1000000 | 1000000 | 1 Mm | 1 Gg | 1 Ms | 1 MA | 1 MK | 1 Mmol | 1 Mcd | 1 MB | 1 MHz | 1 MN | 1 MPa | 1 MJ | 1 MW | 1 MC | 1 MV | 1 MF | 1 MΩ | 1 MS | 1 MWb | 1 MT | 1 MH | 1 Mlx | 1 MGy | 1 Mkat 1000 | 1000 | 1 km | 1 Mg | 1 ks | 1 kA | 1 kK | 1 kmol | 1 kcd | 1 kB | 1 kHz | 1 kN | 1 kPa | 1 kJ | 1 kW | 1 kC | 1 kV | 1 kF | 1 kΩ | 1 kS | 1 kWb | 1 kT | 1 kH | 1 klx | 1 kGy | 1 kkat 1 | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat 0.001 | 0.001 | 1 mm | 1 g | 1 ms | 1 mA | 1 mK | 1 mmol | 1 mcd | 1 mB | 1 mHz | 1 mN | 1 mPa | 1 mJ | 1 mW | 1 mC | 1 mV | 1 mF | 1 mΩ | 1 mS | 1 mWb | 1 mT | 1 mH | 1 mlx | 1 mGy | 1 mkat 1e-06 | 1e-06 | 1 µm | 1 mg | 1 µs | 1 µA | 1 µK | 1 µmol | 1 µcd | 1 µB | 1 µHz | 1 µN | 1 µPa | 1 µJ | 1 µW | 1 µC | 1 µV | 1 µF | 1 µΩ | 1 µS | 1 µWb | 1 µT | 1 µH | 1 µlx | 1 µGy | 1 µkat 1e-09 | 1e-09 | 1 nm | 1 µg | 1 ns | 1 nA | 1 nK | 1 nmol | 1 ncd | 1 nB | 1 nHz | 1 nN | 1 nPa | 1 nJ | 1 nW | 1 nC | 1 nV | 1 nF | 1 nΩ | 1 nS | 1 nWb | 1 nT | 1 nH | 1 nlx | 1 nGy | 1 nkat 1e-12 | 1e-12 | 1 pm | 1 ng | 1 ps | 1 pA | 1 pK | 1 pmol | 1 pcd | 1 pB | 1 pHz | 1 pN | 1 pPa | 1 pJ | 1 pW | 1 pC | 1 pV | 1 pF | 1 pΩ | 1 pS | 1 pWb | 1 pT | 1 pH | 1 plx | 1 pGy | 1 pkat 1e-15 | 1e-15 | 1 fm | 1 pg | 1 fs | 1 fA | 1 fK | 1 fmol | 1 fcd | 1 fB | 1 fHz | 1 fN | 1 fPa | 1 fJ | 1 fW | 1 fC | 1 fV | 1 fF | 1 fΩ | 1 fS | 1 fWb | 1 fT | 1 fH | 1 flx | 1 fGy | 1 fkat 1e-18 | 1e-18 | 1 am | 1 fg | 1 as | 1 aA | 1 aK | 1 amol | 1 acd | 1 aB | 1 aHz | 1 aN | 1 aPa | 1 aJ | 1 aW | 1 aC | 1 aV | 1 aF | 1 aΩ | 1 aS | 1 aWb | 1 aT | 1 aH | 1 alx | 1 aGy | 1 akat 1e-21 | 1e-21 | 1 zm | 1 ag | 1 zs | 1 zA | 1 zK | 1 zmol | 1 zcd | 1 zB | 1 zHz | 1 zN | 1 zPa | 1 zJ | 1 zW | 1 zC | 1 zV | 1 zF | 1 zΩ | 1 zS | 1 zWb | 1 zT | 1 zH | 1 zlx | 1 zGy | 1 zkat 1e-24 | 1e-24 | 1 ym | 1 zg | 1 ys | 1 yA | 1 yK | 1 ymol | 1 ycd | 1 yB | 1 yHz | 1 yN | 1 yPa | 1 yJ | 1 yW | 1 yC | 1 yV | 1 yF | 1 yΩ | 1 yS | 1 yWb | 1 yT | 1 yH | 1 ylx | 1 yGy | 1 ykat 1e-27 | 1e-27 | 1e-27 m | 1 yg | 1e-27 s | 1e-27 A | 1e-27 K | 1e-27 mol | 1e-27 cd | 1e-27 B | 1e-27 Hz | 1e-27 N | 1e-27 Pa | 1e-27 J | 1e-27 W | 1e-27 C | 1e-27 V | 1e-27 F | 1e-27 Ω | 1e-27 S | 1e-27 Wb | 1e-27 T | 1e-27 H | 1e-27 lx | 1e-27 Gy | 1e-27 kat 1e-30 | 1e-30 | 1e-30 m | 1e-30 kg | 1e-30 s | 1e-30 A | 1e-30 K | 1e-30 mol | 1e-30 cd | 1e-30 B | 1e-30 Hz | 1e-30 N | 1e-30 Pa | 1e-30 J | 1e-30 W | 1e-30 C | 1e-30 V | 1e-30 F | 1e-30 Ω | 1e-30 S | 1e-30 Wb | 1e-30 T | 1e-30 H | 1e-30 lx | 1e-30 Gy | 1e-30 kat 0 | 0 | 0 m | 0 kg | 0 s | 0 A | 0 K | 0 mol | 0 cd | 0 B | 0 Hz | 0 N | 0 Pa | 0 J | 0 W | 0 C | 0 V | 0 F | 0 Ω | 0 S | 0 Wb | 0 T | 0 H | 0 lx | 0 Gy | 0 kat (21 rows) -- test division WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('1'), ('2')) SELECT unit, i, unit / i FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview unit | -2 | -1 | 1 | 2 -------+-----------+--------+-------+---------- 1 | -0.5 | -1 | 1 | 0.5 1 m | -500 mm | -1 m | 1 m | 500 mm 1 kg | -500 g | -1 kg | 1 kg | 500 g 1 s | -500 ms | -1 s | 1 s | 500 ms 1 A | -500 mA | -1 A | 1 A | 500 mA 1 K | -500 mK | -1 K | 1 K | 500 mK 1 mol | -500 mmol | -1 mol | 1 mol | 500 mmol 1 cd | -500 mcd | -1 cd | 1 cd | 500 mcd 1 B | -500 mB | -1 B | 1 B | 500 mB 1 Hz | -500 mHz | -1 Hz | 1 Hz | 500 mHz 1 N | -500 mN | -1 N | 1 N | 500 mN 1 Pa | -500 mPa | -1 Pa | 1 Pa | 500 mPa 1 J | -500 mJ | -1 J | 1 J | 500 mJ 1 W | -500 mW | -1 W | 1 W | 500 mW 1 C | -500 mC | -1 C | 1 C | 500 mC 1 V | -500 mV | -1 V | 1 V | 500 mV 1 F | -500 mF | -1 F | 1 F | 500 mF 1 Ω | -500 mΩ | -1 Ω | 1 Ω | 500 mΩ 1 S | -500 mS | -1 S | 1 S | 500 mS 1 Wb | -500 mWb | -1 Wb | 1 Wb | 500 mWb 1 T | -500 mT | -1 T | 1 T | 500 mT 1 H | -500 mH | -1 H | 1 H | 500 mH 1 lx | -500 mlx | -1 lx | 1 lx | 500 mlx 1 Gy | -500 mGy | -1 Gy | 1 Gy | 500 mGy 1 kat | -500 mkat | -1 kat | 1 kat | 500 mkat (25 rows) WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('0'), ('1'), ('2')) SELECT i, unit, i / unit FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview i | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat ----+----+---------+----------+-------+---------+---------+-----------+----------+---------+------+-------------+-------------+---------------+---------------+--------------+-----------------+-------------------+------+------+-----------------+-------------+-------------------+-----------+------------+---------- -2 | -2 | -2 m^-1 | -2 kg^-1 | -2 Hz | -2 A^-1 | -2 K^-1 | -2 mol^-1 | -2 cd^-1 | -2 B^-1 | -2 s | -2 s^2/m*kg | -2 m*s^2/kg | -2 s^2/m^2*kg | -2 s^3/m^2*kg | -2 s^-1*A^-1 | -2 s^3*A/m^2*kg | -2 m^2*kg/s^4*A^2 | -2 S | -2 Ω | -2 s^2*A/m^2*kg | -2 s^2*A/kg | -2 s^2*A^2/m^2*kg | -2 m^2/cd | -2 s^2/m^2 | -2 s/mol -1 | -1 | -1 m^-1 | -1 kg^-1 | -1 Hz | -1 A^-1 | -1 K^-1 | -1 mol^-1 | -1 cd^-1 | -1 B^-1 | -1 s | -1 s^2/m*kg | -1 m*s^2/kg | -1 s^2/m^2*kg | -1 s^3/m^2*kg | -1 s^-1*A^-1 | -1 s^3*A/m^2*kg | -1 m^2*kg/s^4*A^2 | -1 S | -1 Ω | -1 s^2*A/m^2*kg | -1 s^2*A/kg | -1 s^2*A^2/m^2*kg | -1 m^2/cd | -1 s^2/m^2 | -1 s/mol 0 | 0 | 0 m^-1 | 0 kg^-1 | 0 Hz | 0 A^-1 | 0 K^-1 | 0 mol^-1 | 0 cd^-1 | 0 B^-1 | 0 s | 0 s^2/m*kg | 0 m*s^2/kg | 0 s^2/m^2*kg | 0 s^3/m^2*kg | 0 s^-1*A^-1 | 0 s^3*A/m^2*kg | 0 m^2*kg/s^4*A^2 | 0 S | 0 Ω | 0 s^2*A/m^2*kg | 0 s^2*A/kg | 0 s^2*A^2/m^2*kg | 0 m^2/cd | 0 s^2/m^2 | 0 s/mol 1 | 1 | 1 m^-1 | 1 kg^-1 | 1 Hz | 1 A^-1 | 1 K^-1 | 1 mol^-1 | 1 cd^-1 | 1 B^-1 | 1 s | 1 s^2/m*kg | 1 m*s^2/kg | 1 s^2/m^2*kg | 1 s^3/m^2*kg | 1 s^-1*A^-1 | 1 s^3*A/m^2*kg | 1 m^2*kg/s^4*A^2 | 1 S | 1 Ω | 1 s^2*A/m^2*kg | 1 s^2*A/kg | 1 s^2*A^2/m^2*kg | 1 m^2/cd | 1 s^2/m^2 | 1 s/mol 2 | 2 | 2 m^-1 | 2 kg^-1 | 2 Hz | 2 A^-1 | 2 K^-1 | 2 mol^-1 | 2 cd^-1 | 2 B^-1 | 2 s | 2 s^2/m*kg | 2 m*s^2/kg | 2 s^2/m^2*kg | 2 s^3/m^2*kg | 2 s^-1*A^-1 | 2 s^3*A/m^2*kg | 2 m^2*kg/s^4*A^2 | 2 S | 2 Ω | 2 s^2*A/m^2*kg | 2 s^2*A/kg | 2 s^2*A^2/m^2*kg | 2 m^2/cd | 2 s^2/m^2 | 2 s/mol (5 rows) SELECT a.unit AS a, b.unit AS b, a.unit / b.unit AS div FROM units AS a CROSS JOIN units AS b WHERE (a.base OR a.coherent) AND NOT a.duplicate AND (b.base OR b.coherent) AND NOT b.duplicate \crosstabview a | 1 | 1 m | 1 kg | 1 s | 1 A | 1 K | 1 mol | 1 cd | 1 B | 1 Hz | 1 N | 1 Pa | 1 J | 1 W | 1 C | 1 V | 1 F | 1 Ω | 1 S | 1 Wb | 1 T | 1 H | 1 lx | 1 Gy | 1 kat -------+-------+------------------+--------------------+------------------+------------------+--------------------+----------------------+---------------------+--------------------+------------------+--------------------+------------------+--------------------+--------------------+------------------+--------------------+----------------------+----------------------+----------------------+--------------------+--------------------+----------------------+---------------------+------------------+---------------------- 1 | 1 | 1 m^-1 | 1 kg^-1 | 1 Hz | 1 A^-1 | 1 K^-1 | 1 mol^-1 | 1 cd^-1 | 1 B^-1 | 1 s | 1 s^2/m*kg | 1 m*s^2/kg | 1 s^2/m^2*kg | 1 s^3/m^2*kg | 1 s^-1*A^-1 | 1 s^3*A/m^2*kg | 1 m^2*kg/s^4*A^2 | 1 S | 1 Ω | 1 s^2*A/m^2*kg | 1 s^2*A/kg | 1 s^2*A^2/m^2*kg | 1 m^2/cd | 1 s^2/m^2 | 1 s/mol 1 m | 1 m | 1 | 1 m/kg | 1 m/s | 1 m/A | 1 m/K | 1 m/mol | 1 m/cd | 1 m/B | 1 m*s | 1 s^2/kg | 1 m^2*s^2/kg | 1 s^2/m*kg | 1 s^3/m*kg | 1 m/s*A | 1 s^3*A/m*kg | 1 m^3*kg/s^4*A^2 | 1 s^3*A^2/m*kg | 1 m^3*kg/s^3*A^2 | 1 s^2*A/m*kg | 1 m*s^2*A/kg | 1 s^2*A^2/m*kg | 1 m^3/cd | 1 s^2/m | 1 m*s/mol 1 kg | 1 kg | 1 kg/m | 1 | 1 kg/s | 1 kg/A | 1 kg/K | 1 kg/mol | 1 kg/cd | 1 kg/B | 1 kg*s | 1 s^2/m | 1 m*s^2 | 1 s^2/m^2 | 1 s^3/m^2 | 1 kg/s*A | 1 s^3*A/m^2 | 1 m^2*kg^2/s^4*A^2 | 1 s^3*A^2/m^2 | 1 m^2*kg^2/s^3*A^2 | 1 s^2*A/m^2 | 1 s^2*A | 1 s^2*A^2/m^2 | 1 m^2*kg/cd | 1 kg*s^2/m^2 | 1 kg*s/mol 1 s | 1 s | 1 s/m | 1 s/kg | 1 | 1 s/A | 1 s/K | 1 s/mol | 1 s/cd | 1 s/B | 1 s^2 | 1 s^3/m*kg | 1 m*s^3/kg | 1 s^3/m^2*kg | 1 s^4/m^2*kg | 1 A^-1 | 1 s^4*A/m^2*kg | 1 Ω | 1 F | 1 H | 1 s^3*A/m^2*kg | 1 s^3*A/kg | 1 S | 1 m^2*s/cd | 1 s^3/m^2 | 1 s^2/mol 1 A | 1 A | 1 A/m | 1 A/kg | 1 A/s | 1 | 1 A/K | 1 A/mol | 1 A/cd | 1 A/B | 1 C | 1 s^2*A/m*kg | 1 m*s^2*A/kg | 1 s^2*A/m^2*kg | 1 s^3*A/m^2*kg | 1 Hz | 1 S | 1 m^2*kg/s^4*A | 1 s^3*A^3/m^2*kg | 1 V | 1 s^2*A^2/m^2*kg | 1 s^2*A^2/kg | 1 s^2*A^3/m^2*kg | 1 m^2*A/cd | 1 s^2*A/m^2 | 1 s*A/mol 1 K | 1 K | 1 K/m | 1 K/kg | 1 K/s | 1 K/A | 1 | 1 K/mol | 1 K/cd | 1 K/B | 1 s*K | 1 s^2*K/m*kg | 1 m*s^2*K/kg | 1 s^2*K/m^2*kg | 1 s^3*K/m^2*kg | 1 K/s*A | 1 s^3*A*K/m^2*kg | 1 m^2*kg*K/s^4*A^2 | 1 s^3*A^2*K/m^2*kg | 1 m^2*kg*K/s^3*A^2 | 1 s^2*A*K/m^2*kg | 1 s^2*A*K/kg | 1 s^2*A^2*K/m^2*kg | 1 m^2*K/cd | 1 s^2*K/m^2 | 1 s*K/mol 1 mol | 1 mol | 1 mol/m | 1 mol/kg | 1 kat | 1 mol/A | 1 mol/K | 1 | 1 mol/cd | 1 mol/B | 1 s*mol | 1 s^2*mol/m*kg | 1 m*s^2*mol/kg | 1 s^2*mol/m^2*kg | 1 s^3*mol/m^2*kg | 1 mol/s*A | 1 s^3*A*mol/m^2*kg | 1 m^2*kg*mol/s^4*A^2 | 1 s^3*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^3*A^2 | 1 s^2*A*mol/m^2*kg | 1 s^2*A*mol/kg | 1 s^2*A^2*mol/m^2*kg | 1 m^2*mol/cd | 1 s^2*mol/m^2 | 1 s 1 cd | 1 cd | 1 cd/m | 1 cd/kg | 1 cd/s | 1 cd/A | 1 cd/K | 1 cd/mol | 1 | 1 cd/B | 1 s*cd | 1 s^2*cd/m*kg | 1 m*s^2*cd/kg | 1 s^2*cd/m^2*kg | 1 s^3*cd/m^2*kg | 1 cd/s*A | 1 s^3*A*cd/m^2*kg | 1 m^2*kg*cd/s^4*A^2 | 1 s^3*A^2*cd/m^2*kg | 1 m^2*kg*cd/s^3*A^2 | 1 s^2*A*cd/m^2*kg | 1 s^2*A*cd/kg | 1 s^2*A^2*cd/m^2*kg | 1 m^2 | 1 s^2*cd/m^2 | 1 s*cd/mol 1 B | 1 B | 1 B/m | 1 B/kg | 1 B/s | 1 B/A | 1 B/K | 1 B/mol | 1 B/cd | 1 | 1 s*B | 1 s^2*B/m*kg | 1 m*s^2*B/kg | 1 s^2*B/m^2*kg | 1 s^3*B/m^2*kg | 1 B/s*A | 1 s^3*A*B/m^2*kg | 1 m^2*kg*B/s^4*A^2 | 1 s^3*A^2*B/m^2*kg | 1 m^2*kg*B/s^3*A^2 | 1 s^2*A*B/m^2*kg | 1 s^2*A*B/kg | 1 s^2*A^2*B/m^2*kg | 1 m^2*B/cd | 1 s^2*B/m^2 | 1 s*B/mol 1 Hz | 1 Hz | 1 m^-1*s^-1 | 1 kg^-1*s^-1 | 1 s^-2 | 1 s^-1*A^-1 | 1 s^-1*K^-1 | 1 s^-1*mol^-1 | 1 s^-1*cd^-1 | 1 s^-1*B^-1 | 1 | 1 s/m*kg | 1 m*s/kg | 1 s/m^2*kg | 1 s^2/m^2*kg | 1 s^-2*A^-1 | 1 s^2*A/m^2*kg | 1 m^2*kg/s^5*A^2 | 1 s^2*A^2/m^2*kg | 1 m^2*kg/s^4*A^2 | 1 s*A/m^2*kg | 1 s*A/kg | 1 s*A^2/m^2*kg | 1 m^2/s*cd | 1 s/m^2 | 1 mol^-1 1 N | 1 N | 1 kg/s^2 | 1 m/s^2 | 1 m*kg/s^3 | 1 m*kg/s^2*A | 1 m*kg/s^2*K | 1 m*kg/s^2*mol | 1 m*kg/s^2*cd | 1 m*kg/s^2*B | 1 m*kg/s | 1 | 1 m^2 | 1 m^-1 | 1 s/m | 1 m*kg/s^3*A | 1 s*A/m | 1 m^3*kg^2/s^6*A^2 | 1 s*A^2/m | 1 m^3*kg^2/s^5*A^2 | 1 A/m | 1 m*A | 1 A^2/m | 1 m^3*kg/s^2*cd | 1 kg/m | 1 m*kg/s*mol 1 Pa | 1 Pa | 1 kg/m^2*s^2 | 1 m^-1*s^-2 | 1 kg/m*s^3 | 1 kg/m*s^2*A | 1 kg/m*s^2*K | 1 kg/m*s^2*mol | 1 kg/m*s^2*cd | 1 kg/m*s^2*B | 1 kg/m*s | 1 m^-2 | 1 | 1 m^-3 | 1 s/m^3 | 1 kg/m*s^3*A | 1 s*A/m^3 | 1 m*kg^2/s^6*A^2 | 1 s*A^2/m^3 | 1 m*kg^2/s^5*A^2 | 1 A/m^3 | 1 A/m | 1 A^2/m^3 | 1 m*kg/s^2*cd | 1 kg/m^3 | 1 kg/m*s*mol 1 J | 1 J | 1 N | 1 Gy | 1 W | 1 Wb | 1 m^2*kg/s^2*K | 1 m^2*kg/s^2*mol | 1 m^2*kg/s^2*cd | 1 m^2*kg/s^2*B | 1 m^2*kg/s | 1 m | 1 m^3 | 1 | 1 s | 1 V | 1 C | 1 m^4*kg^2/s^6*A^2 | 1 s*A^2 | 1 m^4*kg^2/s^5*A^2 | 1 A | 1 m^2*A | 1 A^2 | 1 m^4*kg/s^2*cd | 1 kg | 1 m^2*kg/s*mol 1 W | 1 W | 1 m*kg/s^3 | 1 m^2/s^3 | 1 m^2*kg/s^4 | 1 V | 1 m^2*kg/s^3*K | 1 m^2*kg/s^3*mol | 1 m^2*kg/s^3*cd | 1 m^2*kg/s^3*B | 1 J | 1 m/s | 1 m^3/s | 1 Hz | 1 | 1 m^2*kg/s^4*A | 1 A | 1 m^4*kg^2/s^7*A^2 | 1 A^2 | 1 m^4*kg^2/s^6*A^2 | 1 A/s | 1 m^2*A/s | 1 A^2/s | 1 m^4*kg/s^3*cd | 1 kg/s | 1 m^2*kg/s^2*mol 1 C | 1 C | 1 s*A/m | 1 s*A/kg | 1 A | 1 s | 1 s*A/K | 1 s*A/mol | 1 s*A/cd | 1 s*A/B | 1 s^2*A | 1 s^3*A/m*kg | 1 m*s^3*A/kg | 1 s^3*A/m^2*kg | 1 s^4*A/m^2*kg | 1 | 1 F | 1 V | 1 s^4*A^3/m^2*kg | 1 Wb | 1 S | 1 s^3*A^2/kg | 1 s^3*A^3/m^2*kg | 1 m^2*s*A/cd | 1 s^3*A/m^2 | 1 s^2*A/mol 1 V | 1 V | 1 m*kg/s^3*A | 1 m^2/s^3*A | 1 m^2*kg/s^4*A | 1 Ω | 1 m^2*kg/s^3*A*K | 1 m^2*kg/s^3*A*mol | 1 m^2*kg/s^3*A*cd | 1 m^2*kg/s^3*A*B | 1 Wb | 1 m/s*A | 1 m^3/s*A | 1 s^-1*A^-1 | 1 A^-1 | 1 m^2*kg/s^4*A^2 | 1 | 1 m^4*kg^2/s^7*A^3 | 1 A | 1 m^4*kg^2/s^6*A^3 | 1 Hz | 1 m^2/s | 1 A/s | 1 m^4*kg/s^3*A*cd | 1 kg/s*A | 1 m^2*kg/s^2*A*mol 1 F | 1 F | 1 s^4*A^2/m^3*kg | 1 s^4*A^2/m^2*kg^2 | 1 S | 1 s^4*A/m^2*kg | 1 s^4*A^2/m^2*kg*K | 1 s^4*A^2/m^2*kg*mol | 1 s^4*A^2/m^2*kg*cd | 1 s^4*A^2/m^2*kg*B | 1 s^5*A^2/m^2*kg | 1 s^6*A^2/m^3*kg^2 | 1 s^6*A^2/m*kg^2 | 1 s^6*A^2/m^4*kg^2 | 1 s^7*A^2/m^4*kg^2 | 1 s^3*A/m^2*kg | 1 s^7*A^3/m^4*kg^2 | 1 | 1 s^7*A^4/m^4*kg^2 | 1 s | 1 s^6*A^3/m^4*kg^2 | 1 s^6*A^3/m^2*kg^2 | 1 s^6*A^4/m^4*kg^2 | 1 s^4*A^2/kg*cd | 1 s^6*A^2/m^4*kg | 1 s^5*A^2/m^2*kg*mol 1 Ω | 1 Ω | 1 m*kg/s^3*A^2 | 1 m^2/s^3*A^2 | 1 m^2*kg/s^4*A^2 | 1 m^2*kg/s^3*A^3 | 1 m^2*kg/s^3*A^2*K | 1 m^2*kg/s^3*A^2*mol | 1 m^2*kg/s^3*A^2*cd | 1 m^2*kg/s^3*A^2*B | 1 H | 1 m/s*A^2 | 1 m^3/s*A^2 | 1 s^-1*A^-2 | 1 A^-2 | 1 m^2*kg/s^4*A^3 | 1 A^-1 | 1 m^4*kg^2/s^7*A^4 | 1 | 1 m^4*kg^2/s^6*A^4 | 1 s^-1*A^-1 | 1 m^2/s*A | 1 Hz | 1 m^4*kg/s^3*A^2*cd | 1 kg/s*A^2 | 1 m^2*kg/s^2*A^2*mol 1 S | 1 S | 1 s^3*A^2/m^3*kg | 1 s^3*A^2/m^2*kg^2 | 1 s^2*A^2/m^2*kg | 1 s^3*A/m^2*kg | 1 s^3*A^2/m^2*kg*K | 1 s^3*A^2/m^2*kg*mol | 1 s^3*A^2/m^2*kg*cd | 1 s^3*A^2/m^2*kg*B | 1 F | 1 s^5*A^2/m^3*kg^2 | 1 s^5*A^2/m*kg^2 | 1 s^5*A^2/m^4*kg^2 | 1 s^6*A^2/m^4*kg^2 | 1 s^2*A/m^2*kg | 1 s^6*A^3/m^4*kg^2 | 1 Hz | 1 s^6*A^4/m^4*kg^2 | 1 | 1 s^5*A^3/m^4*kg^2 | 1 s^5*A^3/m^2*kg^2 | 1 s^5*A^4/m^4*kg^2 | 1 s^3*A^2/kg*cd | 1 s^5*A^2/m^4*kg | 1 s^4*A^2/m^2*kg*mol 1 Wb | 1 Wb | 1 m*kg/s^2*A | 1 m^2/s^2*A | 1 V | 1 H | 1 m^2*kg/s^2*A*K | 1 m^2*kg/s^2*A*mol | 1 m^2*kg/s^2*A*cd | 1 m^2*kg/s^2*A*B | 1 m^2*kg/s*A | 1 m/A | 1 m^3/A | 1 A^-1 | 1 s/A | 1 Ω | 1 s | 1 m^4*kg^2/s^6*A^3 | 1 C | 1 m^4*kg^2/s^5*A^3 | 1 | 1 m^2 | 1 A | 1 m^4*kg/s^2*A*cd | 1 kg/A | 1 m^2*kg/s*A*mol 1 T | 1 T | 1 kg/m*s^2*A | 1 s^-2*A^-1 | 1 kg/s^3*A | 1 kg/s^2*A^2 | 1 kg/s^2*A*K | 1 kg/s^2*A*mol | 1 kg/s^2*A*cd | 1 kg/s^2*A*B | 1 kg/s*A | 1 m^-1*A^-1 | 1 m/A | 1 m^-2*A^-1 | 1 s/m^2*A | 1 kg/s^3*A^2 | 1 s/m^2 | 1 m^2*kg^2/s^6*A^3 | 1 s*A/m^2 | 1 m^2*kg^2/s^5*A^3 | 1 m^-2 | 1 | 1 A/m^2 | 1 m^2*kg/s^2*A*cd | 1 kg/m^2*A | 1 kg/s*A*mol 1 H | 1 H | 1 m*kg/s^2*A^2 | 1 m^2/s^2*A^2 | 1 Ω | 1 m^2*kg/s^2*A^3 | 1 m^2*kg/s^2*A^2*K | 1 m^2*kg/s^2*A^2*mol | 1 m^2*kg/s^2*A^2*cd | 1 m^2*kg/s^2*A^2*B | 1 m^2*kg/s*A^2 | 1 m/A^2 | 1 m^3/A^2 | 1 A^-2 | 1 s/A^2 | 1 m^2*kg/s^3*A^3 | 1 s/A | 1 m^4*kg^2/s^6*A^4 | 1 s | 1 m^4*kg^2/s^5*A^4 | 1 A^-1 | 1 m^2/A | 1 | 1 m^4*kg/s^2*A^2*cd | 1 kg/A^2 | 1 m^2*kg/s*A^2*mol 1 lx | 1 lx | 1 cd/m^3 | 1 cd/m^2*kg | 1 cd/m^2*s | 1 cd/m^2*A | 1 cd/m^2*K | 1 cd/m^2*mol | 1 m^-2 | 1 cd/m^2*B | 1 s*cd/m^2 | 1 s^2*cd/m^3*kg | 1 s^2*cd/m*kg | 1 s^2*cd/m^4*kg | 1 s^3*cd/m^4*kg | 1 cd/m^2*s*A | 1 s^3*A*cd/m^4*kg | 1 kg*cd/s^4*A^2 | 1 s^3*A^2*cd/m^4*kg | 1 kg*cd/s^3*A^2 | 1 s^2*A*cd/m^4*kg | 1 s^2*A*cd/m^2*kg | 1 s^2*A^2*cd/m^4*kg | 1 | 1 s^2*cd/m^4 | 1 s*cd/m^2*mol 1 Gy | 1 Gy | 1 m/s^2 | 1 m^2/kg*s^2 | 1 m^2/s^3 | 1 m^2/s^2*A | 1 m^2/s^2*K | 1 m^2/s^2*mol | 1 m^2/s^2*cd | 1 m^2/s^2*B | 1 m^2/s | 1 m/kg | 1 m^3/kg | 1 kg^-1 | 1 s/kg | 1 m^2/s^3*A | 1 s*A/kg | 1 m^4*kg/s^6*A^2 | 1 s*A^2/kg | 1 m^4*kg/s^5*A^2 | 1 A/kg | 1 m^2*A/kg | 1 A^2/kg | 1 m^4/s^2*cd | 1 | 1 m^2/s*mol 1 kat | 1 kat | 1 mol/m*s | 1 mol/kg*s | 1 mol/s^2 | 1 mol/s*A | 1 mol/s*K | 1 Hz | 1 mol/s*cd | 1 mol/s*B | 1 mol | 1 s*mol/m*kg | 1 m*s*mol/kg | 1 s*mol/m^2*kg | 1 s^2*mol/m^2*kg | 1 mol/s^2*A | 1 s^2*A*mol/m^2*kg | 1 m^2*kg*mol/s^5*A^2 | 1 s^2*A^2*mol/m^2*kg | 1 m^2*kg*mol/s^4*A^2 | 1 s*A*mol/m^2*kg | 1 s*A*mol/kg | 1 s*A^2*mol/m^2*kg | 1 m^2*mol/s*cd | 1 s*mol/m^2 | 1 (25 rows) -- test comparisons WITH v(u) AS (VALUES ('-2'::unit), ('-1'::unit), (-kilogram()), (-meter()), ('-0'::unit), ('0'::unit), ('1'::unit), (kilogram()), (meter()), ('2'::unit), (kilogram(2)), (meter(2)) ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, CASE WHEN unit_cmp(a, b) < 0 THEN '<' WHEN unit_cmp(a, b) = 0 THEN '=' WHEN unit_cmp(a, b) > 0 THEN '>' END AS cmp FROM va CROSS JOIN vb \crosstabview a | -2 | -1 | -1 kg | -1 m | -0 | 0 | 1 | 1 kg | 1 m | 2 | 2 kg | 2 m -------+----+----+-------+------+----+---+---+------+-----+---+------+----- -2 | = | < | < | < | < | < | < | < | < | < | < | < -1 | > | = | < | < | < | < | < | < | < | < | < | < -1 kg | > | > | = | < | < | < | < | < | < | < | < | < -1 m | > | > | > | = | < | < | < | < | < | < | < | < -0 | > | > | > | > | = | = | < | < | < | < | < | < 0 | > | > | > | > | = | = | < | < | < | < | < | < 1 | > | > | > | > | > | > | = | < | < | < | < | < 1 kg | > | > | > | > | > | > | > | = | < | < | < | < 1 m | > | > | > | > | > | > | > | > | = | < | < | < 2 | > | > | > | > | > | > | > | > | > | = | < | < 2 kg | > | > | > | > | > | > | > | > | > | > | = | < 2 m | > | > | > | > | > | > | > | > | > | > | > | = (12 rows) -- test all prefix/unit combinations SELECT u, p, (p||u)::unit FROM prefixes CROSS JOIN units WHERE u <> 'kg' \crosstabview u | y | z | a | f | p | n | µ | mu | m | c | d | | da | h | k | M | G | T | P | E | Z | Y -----+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+-----------------+----------------+----------------+----------------+-----------------+-----------------+-----------------+-----------------+-----------------+-------------------+-----------------+-----------------+----------------- m/m | 1e-24 | 1e-21 | 1e-18 | 1e-15 | 1e-12 | 1e-09 | 1e-06 | 1e-06 | 0.001 | 0.01 | 0.1 | 1 | 10 | 100 | 1000 | 1000000 | 1000000000 | 1000000000000 | 1e+15 | 1e+18 | 1e+21 | 1e+24 m | 1 ym | 1 zm | 1 am | 1 fm | 1 pm | 1 nm | 1 µm | 1 µm | 1 mm | 10 mm | 100 mm | 1 m | 10 m | 100 m | 1 km | 1 Mm | 1 Gm | 1 Tm | 1 Pm | 1 Em | 1 Zm | 1 Ym s | 1 ys | 1 zs | 1 as | 1 fs | 1 ps | 1 ns | 1 µs | 1 µs | 1 ms | 10 ms | 100 ms | 1 s | 10 s | 100 s | 1 ks | 1 Ms | 1 Gs | 1 Ts | 1 Ps | 1 Es | 1 Zs | 1 Ys A | 1 yA | 1 zA | 1 aA | 1 fA | 1 pA | 1 nA | 1 µA | 1 µA | 1 mA | 10 mA | 100 mA | 1 A | 10 A | 100 A | 1 kA | 1 MA | 1 GA | 1 TA | 1 PA | 1 EA | 1 ZA | 1 YA K | 1 yK | 1 zK | 1 aK | 1 fK | 1 pK | 1 nK | 1 µK | 1 µK | 1 mK | 10 mK | 100 mK | 1 K | 10 K | 100 K | 1 kK | 1 MK | 1 GK | 1 TK | 1 PK | 1 EK | 1 ZK | 1 YK mol | 1 ymol | 1 zmol | 1 amol | 1 fmol | 1 pmol | 1 nmol | 1 µmol | 1 µmol | 1 mmol | 10 mmol | 100 mmol | 1 mol | 10 mol | 100 mol | 1 kmol | 1 Mmol | 1 Gmol | 1 Tmol | 1 Pmol | 1 Emol | 1 Zmol | 1 Ymol cd | 1 ycd | 1 zcd | 1 acd | 1 fcd | 1 pcd | 1 ncd | 1 µcd | 1 µcd | 1 mcd | 10 mcd | 100 mcd | 1 cd | 10 cd | 100 cd | 1 kcd | 1 Mcd | 1 Gcd | 1 Tcd | 1 Pcd | 1 Ecd | 1 Zcd | 1 Ycd B | 1 yB | 1 zB | 1 aB | 1 fB | 1 pB | 1 nB | 1 µB | 1 µB | 1 mB | 10 mB | 100 mB | 1 B | 10 B | 100 B | 1 kB | 1 MB | 1 GB | 1 TB | 1 PB | 1 EB | 1 ZB | 1 YB rad | 1e-24 | 1e-21 | 1e-18 | 1e-15 | 1e-12 | 1e-09 | 1e-06 | 1e-06 | 0.001 | 0.01 | 0.1 | 1 | 10 | 100 | 1000 | 1000000 | 1000000000 | 1000000000000 | 1e+15 | 1e+18 | 1e+21 | 1e+24 sr | 1e-24 | 1e-21 | 1e-18 | 1e-15 | 1e-12 | 1e-09 | 1e-06 | 1e-06 | 0.001 | 0.01 | 0.1 | 1 | 10 | 100 | 1000 | 1000000 | 1000000000 | 1000000000000 | 1e+15 | 1e+18 | 1e+21 | 1e+24 Hz | 1 yHz | 1 zHz | 1 aHz | 1 fHz | 1 pHz | 1 nHz | 1 µHz | 1 µHz | 1 mHz | 10 mHz | 100 mHz | 1 Hz | 10 Hz | 100 Hz | 1 kHz | 1 MHz | 1 GHz | 1 THz | 1 PHz | 1 EHz | 1 ZHz | 1 YHz N | 1 yN | 1 zN | 1 aN | 1 fN | 1 pN | 1 nN | 1 µN | 1 µN | 1 mN | 10 mN | 100 mN | 1 N | 10 N | 100 N | 1 kN | 1 MN | 1 GN | 1 TN | 1 PN | 1 EN | 1 ZN | 1 YN Pa | 1 yPa | 1 zPa | 1 aPa | 1 fPa | 1 pPa | 1 nPa | 1 µPa | 1 µPa | 1 mPa | 10 mPa | 100 mPa | 1 Pa | 10 Pa | 100 Pa | 1 kPa | 1 MPa | 1 GPa | 1 TPa | 1 PPa | 1 EPa | 1 ZPa | 1 YPa J | 1 yJ | 1 zJ | 1 aJ | 1 fJ | 1 pJ | 1 nJ | 1 µJ | 1 µJ | 1 mJ | 10 mJ | 100 mJ | 1 J | 10 J | 100 J | 1 kJ | 1 MJ | 1 GJ | 1 TJ | 1 PJ | 1 EJ | 1 ZJ | 1 YJ W | 1 yW | 1 zW | 1 aW | 1 fW | 1 pW | 1 nW | 1 µW | 1 µW | 1 mW | 10 mW | 100 mW | 1 W | 10 W | 100 W | 1 kW | 1 MW | 1 GW | 1 TW | 1 PW | 1 EW | 1 ZW | 1 YW C | 1 yC | 1 zC | 1 aC | 1 fC | 1 pC | 1 nC | 1 µC | 1 µC | 1 mC | 10 mC | 100 mC | 1 C | 10 C | 100 C | 1 kC | 1 MC | 1 GC | 1 TC | 1 PC | 1 EC | 1 ZC | 1 YC V | 1 yV | 1 zV | 1 aV | 1 fV | 1 pV | 1 nV | 1 µV | 1 µV | 1 mV | 10 mV | 100 mV | 1 V | 10 V | 100 V | 1 kV | 1 MV | 1 GV | 1 TV | 1 PV | 1 EV | 1 ZV | 1 YV F | 1 yF | 1 zF | 1 aF | 1 fF | 1 pF | 1 nF | 1 µF | 1 µF | 1 mF | 10 mF | 100 mF | 1 F | 10 F | 100 F | 1 kF | 1 MF | 1 GF | 1 TF | 1 PF | 1 EF | 1 ZF | 1 YF Ω | 1 yΩ | 1 zΩ | 1 aΩ | 1 fΩ | 1 pΩ | 1 nΩ | 1 µΩ | 1 µΩ | 1 mΩ | 10 mΩ | 100 mΩ | 1 Ω | 10 Ω | 100 Ω | 1 kΩ | 1 MΩ | 1 GΩ | 1 TΩ | 1 PΩ | 1 EΩ | 1 ZΩ | 1 YΩ ohm | 1 yΩ | 1 zΩ | 1 aΩ | 1 fΩ | 1 pΩ | 1 nΩ | 1 µΩ | 1 µΩ | 1 mΩ | 10 mΩ | 100 mΩ | 1 Ω | 10 Ω | 100 Ω | 1 kΩ | 1 MΩ | 1 GΩ | 1 TΩ | 1 PΩ | 1 EΩ | 1 ZΩ | 1 YΩ S | 1 yS | 1 zS | 1 aS | 1 fS | 1 pS | 1 nS | 1 µS | 1 µS | 1 mS | 10 mS | 100 mS | 1 S | 10 S | 100 S | 1 kS | 1 MS | 1 GS | 1 TS | 1 PS | 1 ES | 1 ZS | 1 YS Wb | 1 yWb | 1 zWb | 1 aWb | 1 fWb | 1 pWb | 1 nWb | 1 µWb | 1 µWb | 1 mWb | 10 mWb | 100 mWb | 1 Wb | 10 Wb | 100 Wb | 1 kWb | 1 MWb | 1 GWb | 1 TWb | 1 PWb | 1 EWb | 1 ZWb | 1 YWb T | 1 yT | 1 zT | 1 aT | 1 fT | 1 pT | 1 nT | 1 µT | 1 µT | 1 mT | 10 mT | 100 mT | 1 T | 10 T | 100 T | 1 kT | 1 MT | 1 GT | 1 TT | 1 PT | 1 ET | 1 ZT | 1 YT H | 1 yH | 1 zH | 1 aH | 1 fH | 1 pH | 1 nH | 1 µH | 1 µH | 1 mH | 10 mH | 100 mH | 1 H | 10 H | 100 H | 1 kH | 1 MH | 1 GH | 1 TH | 1 PH | 1 EH | 1 ZH | 1 YH °C | 1 yK | 1 zK | 1 aK | 1 fK | 1 pK | 1 nK | 1 µK | 1 µK | 1 mK | 10 mK | 100 mK | 1 K | 10 K | 100 K | 1 kK | 1 MK | 1 GK | 1 TK | 1 PK | 1 EK | 1 ZK | 1 YK lm | 1 ycd | 1 zcd | 1 acd | 1 fcd | 1 pcd | 1 ncd | 1 µcd | 1 µcd | 1 mcd | 10 mcd | 100 mcd | 1 cd | 10 cd | 100 cd | 1 kcd | 1 Mcd | 1 Gcd | 1 Tcd | 1 Pcd | 1 Ecd | 1 Zcd | 1 Ycd lx | 1 ylx | 1 zlx | 1 alx | 1 flx | 1 plx | 1 nlx | 1 µlx | 1 µlx | 1 mlx | 10 mlx | 100 mlx | 1 lx | 10 lx | 100 lx | 1 klx | 1 Mlx | 1 Glx | 1 Tlx | 1 Plx | 1 Elx | 1 Zlx | 1 Ylx Bq | 1 yHz | 1 zHz | 1 aHz | 1 fHz | 1 pHz | 1 nHz | 1 µHz | 1 µHz | 1 mHz | 10 mHz | 100 mHz | 1 Hz | 10 Hz | 100 Hz | 1 kHz | 1 MHz | 1 GHz | 1 THz | 1 PHz | 1 EHz | 1 ZHz | 1 YHz Gy | 1 yGy | 1 zGy | 1 aGy | 1 fGy | 1 pGy | 1 nGy | 1 µGy | 1 µGy | 1 mGy | 10 mGy | 100 mGy | 1 Gy | 10 Gy | 100 Gy | 1 kGy | 1 MGy | 1 GGy | 1 TGy | 1 PGy | 1 EGy | 1 ZGy | 1 YGy Sv | 1 yGy | 1 zGy | 1 aGy | 1 fGy | 1 pGy | 1 nGy | 1 µGy | 1 µGy | 1 mGy | 10 mGy | 100 mGy | 1 Gy | 10 Gy | 100 Gy | 1 kGy | 1 MGy | 1 GGy | 1 TGy | 1 PGy | 1 EGy | 1 ZGy | 1 YGy kat | 1 ykat | 1 zkat | 1 akat | 1 fkat | 1 pkat | 1 nkat | 1 µkat | 1 µkat | 1 mkat | 10 mkat | 100 mkat | 1 kat | 10 kat | 100 kat | 1 kkat | 1 Mkat | 1 Gkat | 1 Tkat | 1 Pkat | 1 Ekat | 1 Zkat | 1 Ykat g | 1 yg | 1 zg | 1 ag | 1 fg | 1 pg | 1 ng | 1 µg | 1 µg | 1 mg | 10 mg | 100 mg | 1 g | 10 g | 100 g | 1 kg | 1 Mg | 1 Gg | 1 Tg | 1 Pg | 1 Eg | 1 Zg | 1 Yg l | 1e-27 m^3 | 1e-24 m^3 | 1e-21 m^3 | 1e-18 m^3 | 1e-15 m^3 | 1e-12 m^3 | 1e-09 m^3 | 1e-09 m^3 | 1e-06 m^3 | 1e-05 m^3 | 0.0001 m^3 | 0.001 m^3 | 0.01 m^3 | 0.1 m^3 | 1 m^3 | 1000 m^3 | 1000000 m^3 | 1000000000 m^3 | 1000000000000 m^3 | 1e+15 m^3 | 1e+18 m^3 | 1e+21 m^3 t | 1 ag | 1 fg | 1 pg | 304.8 mm | 1 µg | 1 mg | 1 g | 1 g | 1 kg | 10 kg | 100 kg | 1 Mg | 10 Mg | 100 Mg | 1 Gg | 1 Tg | 1 Pg | 1 Eg | 1 Zg | 1 Yg | 1e+24 kg | 1e+27 kg bar | 100 zPa | 100 aPa | 100 fPa | 100 pPa | 100 nPa | 100 µPa | 100 mPa | 100 mPa | 100 Pa | 1 kPa | 10 kPa | 100 kPa | 1 MPa | 10 MPa | 100 MPa | 100 GPa | 100 TPa | 100 PPa | 100 EPa | 100 ZPa | 100 YPa | 1e+29 Pa min | 60 ys | 60 zs | 60 as | 60 fs | 60 ps | 60 ns | 60 µs | 60 µs | 60 ms | 600 ms | 6 s | 60 s | 600 s | 6 ks | 60 ks | 60 Ms | 60 Gs | 60 Ts | 60 Ps | 60 Es | 60 Zs | 60 Ys h | 3.6 zs | 3.6 as | 3.6 fs | 3.6 ps | 3.6 ns | 3.6 µs | 3.6 ms | 3.6 ms | 3.6 s | 36 s | 360 s | 3.6 ks | 36 ks | 360 ks | 3.6 Ms | 3.6 Gs | 3.6 Ts | 3.6 Ps | 3.6 Es | 3.6 Zs | 3.6 Ys | 3.6e+27 s d | 914.4 mm | 86.4 as | 86.4 fs | 86.4 ps | 86.4 ns | 86.4 µs | 86.4 ms | 86.4 ms | 86.4 s | 1 cd | 8.64 ks | 86.4 ks | 864 ks | 8.64 Ms | 86.4 Ms | 86.4 Gs | 86.4 Ts | 86.4 Ps | 86.4 Es | 86.4 Zs | 86.4 Ys | 8.64e+28 s a | 31.5576 as | 31.5576 fs | 31.5576 ps | 31.5576 ns | 31.5576 µs | 31.5576 ms | 31.5576 s | 31.5576 s | 31.5576 ks | 315.576 ks | 3.15576 Ms | 31.5576 Ms | 315.576 Ms | 3.15576 Gs | 31.5576 Gs | 31.5576 Ts | 31.5576 Ps | 31.5576 Es | 1 Pa | 31.5576 Ys | 3.15576e+28 s | 3.15576e+31 s in | 2.54e-26 m | 25.4 ym | 25.4 zm | 25.4 am | 25.4 fm | 25.4 pm | 25.4 nm | 25.4 nm | 60 s | 254 µm | 2.54 mm | 25.4 mm | 254 mm | 2.54 m | 25.4 m | 25.4 km | 25.4 Mm | 25.4 Gm | 25.4 Tm | 25.4 Pm | 25.4 Em | 25.4 Zm ft | 3.048e-25 m | 304.8 ym | 304.8 zm | 304.8 am | 304.8 fm | 304.8 pm | 304.8 nm | 304.8 nm | 304.8 µm | 3.048 mm | 30.48 mm | 304.8 mm | 3.048 m | 30.48 m | 304.8 m | 304.8 km | 304.8 Mm | 304.8 Gm | 304.8 Tm | 304.8 Pm | 304.8 Em | 304.8 Zm yd | 9.144e-25 m | 914.4 ym | 914.4 zm | 914.4 am | 914.4 fm | 914.4 pm | 914.4 nm | 914.4 nm | 914.4 µm | 9.144 mm | 91.44 mm | 914.4 mm | 9.144 m | 91.44 m | 914.4 m | 914.4 km | 914.4 Mm | 914.4 Gm | 914.4 Tm | 914.4 Pm | 914.4 Em | 914.4 Zm mi | 1.609344 zm | 1.609344 am | 1.609344 fm | 1.609344 pm | 1.609344 nm | 1.609344 µm | 1.609344 mm | 1.609344 mm | 1.609344 m | 16.09344 m | 160.9344 m | 1.609344 km | 16.09344 km | 160.9344 km | 1.609344 Mm | 1.609344 Gm | 1.609344 Tm | 1.609344 Pm | 1.609344 Em | 1.609344 Zm | 1.609344 Ym | 1.609344e+27 m oz | 28.349523125 yg | 28.349523125 zg | 28.349523125 ag | 28.349523125 fg | 28.349523125 pg | 28.349523125 ng | 28.349523125 µg | 28.349523125 µg | 28.349523125 mg | 283.49523125 mg | 2.8349523125 g | 28.349523125 g | 283.49523125 g | 2.8349523125 kg | 28.349523125 kg | 28.349523125 Mg | 28.349523125 Gg | 28.349523125 Tg | 28.349523125 Pg | 28.349523125 Eg | 28.349523125 Zg | 28.349523125 Yg lb | 453.59237 yg | 453.59237 zg | 453.59237 ag | 453.59237 fg | 453.59237 pg | 453.59237 ng | 453.59237 µg | 453.59237 µg | 453.59237 mg | 4.5359237 g | 45.359237 g | 453.59237 g | 4.5359237 kg | 45.359237 kg | 453.59237 kg | 453.59237 Mg | 453.59237 Gg | 453.59237 Tg | 453.59237 Pg | 453.59237 Eg | 453.59237 Zg | 453.59237 Yg (45 rows) unit/expected/derived.out0000664000000000000000000002267713030556050012714 0ustar -- derived units SELECT radian(); radian -------- 1 (1 row) SELECT steradian(); steradian ----------- 1 (1 row) SELECT hertz(); hertz ------- 1 Hz (1 row) SELECT newton(); newton -------- 1 N (1 row) SELECT pascal(); pascal -------- 1 Pa (1 row) SELECT joule(); joule ------- 1 J (1 row) SELECT watt(); watt ------ 1 W (1 row) SELECT coulomb(); coulomb --------- 1 C (1 row) SELECT volt(); volt ------ 1 V (1 row) SELECT farad(); farad ------- 1 F (1 row) SELECT ohm(); ohm ----- 1 Ω (1 row) SELECT siemens(); siemens --------- 1 S (1 row) SELECT weber(); weber ------- 1 Wb (1 row) SELECT tesla(); tesla ------- 1 T (1 row) SELECT henry(); henry ------- 1 H (1 row) SELECT celsius(); celsius ---------- 273.15 K (1 row) SELECT lumen(); lumen ------- 1 cd (1 row) SELECT lux(); lux ------ 1 lx (1 row) SELECT becquerel(); becquerel ----------- 1 Hz (1 row) SELECT gray(); gray ------ 1 Gy (1 row) SELECT sievert(); sievert --------- 1 Gy (1 row) SELECT katal(); katal ------- 1 kat (1 row) SELECT radian(2); radian -------- 2 (1 row) SELECT steradian(2); steradian ----------- 2 (1 row) SELECT hertz(2); hertz ------- 2 Hz (1 row) SELECT newton(2); newton -------- 2 N (1 row) SELECT pascal(2); pascal -------- 2 Pa (1 row) SELECT joule(2); joule ------- 2 J (1 row) SELECT watt(2); watt ------ 2 W (1 row) SELECT coulomb(2); coulomb --------- 2 C (1 row) SELECT volt(2); volt ------ 2 V (1 row) SELECT farad(2); farad ------- 2 F (1 row) SELECT ohm(2); ohm ----- 2 Ω (1 row) SELECT siemens(2); siemens --------- 2 S (1 row) SELECT weber(2); weber ------- 2 Wb (1 row) SELECT tesla(2); tesla ------- 2 T (1 row) SELECT henry(2); henry ------- 2 H (1 row) SELECT celsius(100); celsius ---------- 373.15 K (1 row) SELECT lumen(2); lumen ------- 2 cd (1 row) SELECT lux(2); lux ------ 2 lx (1 row) SELECT becquerel(2); becquerel ----------- 2 Hz (1 row) SELECT gray(2); gray ------ 2 Gy (1 row) SELECT sievert(2); sievert --------- 2 Gy (1 row) SELECT katal(2); katal ------- 2 kat (1 row) -- Non-SI units accepted for use with the SI SELECT minute(); minute -------- 60 s (1 row) SELECT hour(); hour -------- 3.6 ks (1 row) SELECT day(); day --------- 86.4 ks (1 row) SELECT degree_arc(); degree_arc -------------------- 0.0174532925199433 (1 row) SELECT minute_arc(); minute_arc ---------------------- 0.000290888208665722 (1 row) SELECT second_arc(); second_arc ---------------------- 4.84813681109536e-06 (1 row) SELECT hectare(); hectare ----------- 10000 m^2 (1 row) SELECT liter(); liter ----------- 0.001 m^3 (1 row) SELECT tonne(); tonne ------- 1 Mg (1 row) SELECT au(); au ---------------- 149.5978707 Gm (1 row) SELECT decibel(); decibel --------- 1 (1 row) SELECT minute(60); minute -------- 3.6 ks (1 row) SELECT hour(24); hour --------- 86.4 ks (1 row) SELECT day(1/24.0); day -------- 3.6 ks (1 row) SELECT degree_arc(360); degree_arc ------------------ 6.28318530717959 (1 row) SELECT minute_arc(60); minute_arc -------------------- 0.0174532925199433 (1 row) SELECT second_arc(60); second_arc ---------------------- 0.000290888208665722 (1 row) SELECT hectare(1/100.0); hectare --------- 100 m^2 (1 row) SELECT liter(1000); liter ------- 1 m^3 (1 row) SELECT tonne(1/1000.0); tonne ------- 1 kg (1 row) SELECT au(10); au ---------------- 1.495978707 Tm (1 row) SELECT decibel(-3); decibel ------------------- 0.501187233627272 (1 row) SELECT decibel(3); decibel ------------------ 1.99526231496888 (1 row) SELECT decibel(10); decibel --------- 10 (1 row) SELECT decibel(20); decibel --------- 100 (1 row) SET client_min_messages = warning; DROP TABLE IF EXISTS u; RESET client_min_messages; CREATE TABLE u AS SELECT unit AS u, 2000 * unit AS "2k", unit/5000 AS "200µ", 0.002/unit AS "500th_inverse", (40*unit)^2 AS "1600_square" FROM units WHERE base OR coherent; SELECT * FROM u; u | 2k | 200µ | 500th_inverse | 1600_square -------+--------+----------+----------------------+----------------------- 1 | 2000 | 0.0002 | 0.002 | 1600 1 m | 2 km | 200 µm | 0.002 m^-1 | 1600 m^2 1 kg | 2 Mg | 200 mg | 0.002 kg^-1 | 1600 kg^2 1 s | 2 ks | 200 µs | 2 mHz | 1600 s^2 1 A | 2 kA | 200 µA | 0.002 A^-1 | 1600 A^2 1 K | 2 kK | 200 µK | 0.002 K^-1 | 1600 K^2 1 mol | 2 kmol | 200 µmol | 0.002 mol^-1 | 1600 mol^2 1 cd | 2 kcd | 200 µcd | 0.002 cd^-1 | 1600 cd^2 1 B | 2 kB | 200 µB | 0.002 B^-1 | 1600 B^2 1 | 2000 | 0.0002 | 0.002 | 1600 1 | 2000 | 0.0002 | 0.002 | 1600 1 Hz | 2 kHz | 200 µHz | 2 ms | 1600 s^-2 1 N | 2 kN | 200 µN | 0.002 s^2/m*kg | 1600 m^2*kg^2/s^4 1 Pa | 2 kPa | 200 µPa | 0.002 m*s^2/kg | 1600 kg^2/m^2*s^4 1 J | 2 kJ | 200 µJ | 0.002 s^2/m^2*kg | 1600 m^4*kg^2/s^4 1 W | 2 kW | 200 µW | 0.002 s^3/m^2*kg | 1600 m^4*kg^2/s^6 1 C | 2 kC | 200 µC | 0.002 s^-1*A^-1 | 1600 s^2*A^2 1 V | 2 kV | 200 µV | 0.002 s^3*A/m^2*kg | 1600 m^4*kg^2/s^6*A^2 1 F | 2 kF | 200 µF | 0.002 m^2*kg/s^4*A^2 | 1600 s^8*A^4/m^4*kg^2 1 Ω | 2 kΩ | 200 µΩ | 2 mS | 1600 m^4*kg^2/s^6*A^4 1 Ω | 2 kΩ | 200 µΩ | 2 mS | 1600 m^4*kg^2/s^6*A^4 1 S | 2 kS | 200 µS | 2 mΩ | 1600 s^6*A^4/m^4*kg^2 1 Wb | 2 kWb | 200 µWb | 0.002 s^2*A/m^2*kg | 1600 m^4*kg^2/s^4*A^2 1 T | 2 kT | 200 µT | 0.002 s^2*A/kg | 1600 kg^2/s^4*A^2 1 H | 2 kH | 200 µH | 0.002 s^2*A^2/m^2*kg | 1600 m^4*kg^2/s^4*A^4 1 K | 2 kK | 200 µK | 0.002 K^-1 | 1600 K^2 1 cd | 2 kcd | 200 µcd | 0.002 cd^-1 | 1600 cd^2 1 lx | 2 klx | 200 µlx | 0.002 m^2/cd | 1600 cd^2/m^4 1 Hz | 2 kHz | 200 µHz | 2 ms | 1600 s^-2 1 Gy | 2 kGy | 200 µGy | 0.002 s^2/m^2 | 1600 m^4/s^4 1 Gy | 2 kGy | 200 µGy | 0.002 s^2/m^2 | 1600 m^4/s^4 1 kat | 2 kkat | 200 µkat | 2 ms/mol | 1600 mol^2/s^2 (32 rows) SELECT u, u::text::unit AS "text::unit", "2k"::text::unit, "200µ"::text::unit, "500th_inverse"::text::unit, "1600_square"::text::unit FROM u; u | text::unit | 2k | 200µ | 500th_inverse | 1600_square -------+------------+--------+----------+----------------------+----------------------- 1 | 1 | 2000 | 0.0002 | 0.002 | 1600 1 m | 1 m | 2 km | 200 µm | 0.002 m^-1 | 1600 m^2 1 kg | 1 kg | 2 Mg | 200 mg | 0.002 kg^-1 | 1600 kg^2 1 s | 1 s | 2 ks | 200 µs | 2 mHz | 1600 s^2 1 A | 1 A | 2 kA | 200 µA | 0.002 A^-1 | 1600 A^2 1 K | 1 K | 2 kK | 200 µK | 0.002 K^-1 | 1600 K^2 1 mol | 1 mol | 2 kmol | 200 µmol | 0.002 mol^-1 | 1600 mol^2 1 cd | 1 cd | 2 kcd | 200 µcd | 0.002 cd^-1 | 1600 cd^2 1 B | 1 B | 2 kB | 200 µB | 0.002 B^-1 | 1600 B^2 1 | 1 | 2000 | 0.0002 | 0.002 | 1600 1 | 1 | 2000 | 0.0002 | 0.002 | 1600 1 Hz | 1 Hz | 2 kHz | 200 µHz | 2 ms | 1600 s^-2 1 N | 1 N | 2 kN | 200 µN | 0.002 s^2/m*kg | 1600 m^2*kg^2/s^4 1 Pa | 1 Pa | 2 kPa | 200 µPa | 0.002 m*s^2/kg | 1600 kg^2/m^2*s^4 1 J | 1 J | 2 kJ | 200 µJ | 0.002 s^2/m^2*kg | 1600 m^4*kg^2/s^4 1 W | 1 W | 2 kW | 200 µW | 0.002 s^3/m^2*kg | 1600 m^4*kg^2/s^6 1 C | 1 C | 2 kC | 200 µC | 0.002 s^-1*A^-1 | 1600 s^2*A^2 1 V | 1 V | 2 kV | 200 µV | 0.002 s^3*A/m^2*kg | 1600 m^4*kg^2/s^6*A^2 1 F | 1 F | 2 kF | 200 µF | 0.002 m^2*kg/s^4*A^2 | 1600 s^8*A^4/m^4*kg^2 1 Ω | 1 Ω | 2 kΩ | 200 µΩ | 2 mS | 1600 m^4*kg^2/s^6*A^4 1 Ω | 1 Ω | 2 kΩ | 200 µΩ | 2 mS | 1600 m^4*kg^2/s^6*A^4 1 S | 1 S | 2 kS | 200 µS | 2 mΩ | 1600 s^6*A^4/m^4*kg^2 1 Wb | 1 Wb | 2 kWb | 200 µWb | 0.002 s^2*A/m^2*kg | 1600 m^4*kg^2/s^4*A^2 1 T | 1 T | 2 kT | 200 µT | 0.002 s^2*A/kg | 1600 kg^2/s^4*A^2 1 H | 1 H | 2 kH | 200 µH | 0.002 s^2*A^2/m^2*kg | 1600 m^4*kg^2/s^4*A^4 1 K | 1 K | 2 kK | 200 µK | 0.002 K^-1 | 1600 K^2 1 cd | 1 cd | 2 kcd | 200 µcd | 0.002 cd^-1 | 1600 cd^2 1 lx | 1 lx | 2 klx | 200 µlx | 0.002 m^2/cd | 1600 cd^2/m^4 1 Hz | 1 Hz | 2 kHz | 200 µHz | 2 ms | 1600 s^-2 1 Gy | 1 Gy | 2 kGy | 200 µGy | 0.002 s^2/m^2 | 1600 m^4/s^4 1 Gy | 1 Gy | 2 kGy | 200 µGy | 0.002 s^2/m^2 | 1600 m^4/s^4 1 kat | 1 kat | 2 kkat | 200 µkat | 2 ms/mol | 1600 mol^2/s^2 (32 rows) -- test i/o SELECT a.u, b.u, (a.u::unit*b.u::unit)::text, (a.u::unit*b.u::unit)::text::unit FROM units a CROSS JOIN units b WHERE (a.u::unit*b.u::unit)::text != (a.u::unit*b.u::unit)::text::unit::text; u | u | text | unit ---+---+------+------ (0 rows) unit/expected/extension.out0000664000000000000000000000014313032012707013264 0ustar SET client_min_messages = warning; CREATE EXTENSION IF NOT EXISTS unit; RESET client_min_messages; unit/expected/functions.out0000664000000000000000000002016413030003142013254 0ustar -- text extractors SELECT value('2'::unit); value ------- 2 (1 row) SELECT value(meter(2)); value ------- 2 (1 row) SELECT dimension('2'::unit); dimension ----------- 1 (1 row) SELECT dimension(kilogram(2)); dimension ----------- 1 kg (1 row) -- test unit addition/subtraction SELECT '1'::unit + '2' AS sum; sum ----- 3 (1 row) SELECT '1'::unit - '2' AS difference; difference ------------ -1 (1 row) SELECT '3 m'::unit - '1 µm' AS difference; difference ------------ 2.999999 m (1 row) SELECT '0' + meter() AS error; ERROR: dimension mismatch in "+" operation: "0", "1 m" SELECT meter() + '0' AS error; ERROR: dimension mismatch in "+" operation: "1 m", "0" SELECT meter() + kilogram() AS error; ERROR: dimension mismatch in "+" operation: "1 m", "1 kg" SELECT meter() - kilogram() AS error; ERROR: dimension mismatch in "-" operation: "1 m", "1 kg" -- test unit multiplication/division SELECT - '1'::unit AS negative; negative ---------- -1 (1 row) SELECT '2'::unit * '2' AS product; product --------- 4 (1 row) SELECT '5'::unit / '2' AS fraction; fraction ---------- 2.5 (1 row) SELECT '0'::unit / '2' AS zero; zero ------ 0 (1 row) SELECT '5'::unit / '0' AS division_by_zero; ERROR: division by zero-valued unit: "0" SELECT - second() AS minus_second; minus_second -------------- -1 s (1 row) SELECT meter() * '2' AS two_meters; two_meters ------------ 2 m (1 row) SELECT '3' * meter() AS three_meters; three_meters -------------- 3 m (1 row) SELECT meter() * meter() AS square_meter; square_meter -------------- 1 m^2 (1 row) SELECT meter() * kilogram() AS meter_kilogram; meter_kilogram ---------------- 1 m*kg (1 row) SELECT '1' / second(.02) AS hertz; hertz ------- 50 Hz (1 row) SELECT meter(9.81) / (second() * second()) AS acceleration; acceleration -------------- 9.81 m/s^2 (1 row) -- test unit/double operators SELECT 2 * meter() AS two_meters; two_meters ------------ 2 m (1 row) SELECT ampere() * 3 AS three_ampere; three_ampere -------------- 3 A (1 row) SELECT 4 / second() AS four_hertz; four_hertz ------------ 4 Hz (1 row) SELECT kelvin(10) / 5 AS two_kelvin; two_kelvin ------------ 2 K (1 row) SELECT 0 / candela() AS zero_by_candela; zero_by_candela ----------------- 0 cd^-1 (1 row) SELECT 1 / mole(0) AS error; ERROR: division by zero-valued unit: "0 mol" SELECT byte(0) / 2 AS zero_byte; zero_byte ----------- 0 B (1 row) SELECT kilogram(1) / 0 AS error; ERROR: division of unit by zero -- test exponentiation SELECT '6'::unit ^ 2 AS square; square -------- 36 (1 row) SELECT meter(100) ^ 2 AS square_meter; square_meter -------------- 10000 m^2 (1 row) SELECT kilogram(100) ^ 2 AS square_kilogram; square_kilogram ----------------- 10000 kg^2 (1 row) SELECT second(.02) ^ -1 AS hertz; hertz ------- 50 Hz (1 row) SELECT ampere(4) ^ 0 AS unity; unity ------- 1 (1 row) SELECT '0'::unit ^ 0 AS unity; unity ------- 1 (1 row) WITH v(u) AS (VALUES (NULL), ('0'::unit), ('1'::unit), ('2'::unit), (meter(0)), (meter()), (meter() * '2'), (kilogram(0)), (kilogram()), (kilogram() * '2') ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, -a AS neg, a * b AS mul, CASE WHEN value(b) = 0 THEN NULL ELSE a / b END AS div FROM va CROSS JOIN vb; a | b | neg | mul | div ------+------+-------+--------+----------- | | | | | 0 | | | | 1 | | | | 2 | | | | 0 m | | | | 1 m | | | | 2 m | | | | 0 kg | | | | 1 kg | | | | 2 kg | | | 0 | | -0 | | 0 | 0 | -0 | 0 | 0 | 1 | -0 | 0 | 0 0 | 2 | -0 | 0 | 0 0 | 0 m | -0 | 0 m | 0 | 1 m | -0 | 0 m | 0 m^-1 0 | 2 m | -0 | 0 m | 0 m^-1 0 | 0 kg | -0 | 0 kg | 0 | 1 kg | -0 | 0 kg | 0 kg^-1 0 | 2 kg | -0 | 0 kg | 0 kg^-1 1 | | -1 | | 1 | 0 | -1 | 0 | 1 | 1 | -1 | 1 | 1 1 | 2 | -1 | 2 | 0.5 1 | 0 m | -1 | 0 m | 1 | 1 m | -1 | 1 m | 1 m^-1 1 | 2 m | -1 | 2 m | 0.5 m^-1 1 | 0 kg | -1 | 0 kg | 1 | 1 kg | -1 | 1 kg | 1 kg^-1 1 | 2 kg | -1 | 2 kg | 0.5 kg^-1 2 | | -2 | | 2 | 0 | -2 | 0 | 2 | 1 | -2 | 2 | 2 2 | 2 | -2 | 4 | 1 2 | 0 m | -2 | 0 m | 2 | 1 m | -2 | 2 m | 2 m^-1 2 | 2 m | -2 | 4 m | 1 m^-1 2 | 0 kg | -2 | 0 kg | 2 | 1 kg | -2 | 2 kg | 2 kg^-1 2 | 2 kg | -2 | 4 kg | 1 kg^-1 0 m | | -0 m | | 0 m | 0 | -0 m | 0 m | 0 m | 1 | -0 m | 0 m | 0 m 0 m | 2 | -0 m | 0 m | 0 m 0 m | 0 m | -0 m | 0 m^2 | 0 m | 1 m | -0 m | 0 m^2 | 0 0 m | 2 m | -0 m | 0 m^2 | 0 0 m | 0 kg | -0 m | 0 m*kg | 0 m | 1 kg | -0 m | 0 m*kg | 0 m/kg 0 m | 2 kg | -0 m | 0 m*kg | 0 m/kg 1 m | | -1 m | | 1 m | 0 | -1 m | 0 m | 1 m | 1 | -1 m | 1 m | 1 m 1 m | 2 | -1 m | 2 m | 500 mm 1 m | 0 m | -1 m | 0 m^2 | 1 m | 1 m | -1 m | 1 m^2 | 1 1 m | 2 m | -1 m | 2 m^2 | 0.5 1 m | 0 kg | -1 m | 0 m*kg | 1 m | 1 kg | -1 m | 1 m*kg | 1 m/kg 1 m | 2 kg | -1 m | 2 m*kg | 500 mm/kg 2 m | | -2 m | | 2 m | 0 | -2 m | 0 m | 2 m | 1 | -2 m | 2 m | 2 m 2 m | 2 | -2 m | 4 m | 1 m 2 m | 0 m | -2 m | 0 m^2 | 2 m | 1 m | -2 m | 2 m^2 | 2 2 m | 2 m | -2 m | 4 m^2 | 1 2 m | 0 kg | -2 m | 0 m*kg | 2 m | 1 kg | -2 m | 2 m*kg | 2 m/kg 2 m | 2 kg | -2 m | 4 m*kg | 1 m/kg 0 kg | | -0 kg | | 0 kg | 0 | -0 kg | 0 kg | 0 kg | 1 | -0 kg | 0 kg | 0 kg 0 kg | 2 | -0 kg | 0 kg | 0 kg 0 kg | 0 m | -0 kg | 0 m*kg | 0 kg | 1 m | -0 kg | 0 m*kg | 0 kg/m 0 kg | 2 m | -0 kg | 0 m*kg | 0 kg/m 0 kg | 0 kg | -0 kg | 0 kg^2 | 0 kg | 1 kg | -0 kg | 0 kg^2 | 0 0 kg | 2 kg | -0 kg | 0 kg^2 | 0 1 kg | | -1 kg | | 1 kg | 0 | -1 kg | 0 kg | 1 kg | 1 | -1 kg | 1 kg | 1 kg 1 kg | 2 | -1 kg | 2 kg | 500 g 1 kg | 0 m | -1 kg | 0 m*kg | 1 kg | 1 m | -1 kg | 1 m*kg | 1 kg/m 1 kg | 2 m | -1 kg | 2 m*kg | 500 g/m 1 kg | 0 kg | -1 kg | 0 kg^2 | 1 kg | 1 kg | -1 kg | 1 kg^2 | 1 1 kg | 2 kg | -1 kg | 2 kg^2 | 0.5 2 kg | | -2 kg | | 2 kg | 0 | -2 kg | 0 kg | 2 kg | 1 | -2 kg | 2 kg | 2 kg 2 kg | 2 | -2 kg | 4 kg | 1 kg 2 kg | 0 m | -2 kg | 0 m*kg | 2 kg | 1 m | -2 kg | 2 m*kg | 2 kg/m 2 kg | 2 m | -2 kg | 4 m*kg | 1 kg/m 2 kg | 0 kg | -2 kg | 0 kg^2 | 2 kg | 1 kg | -2 kg | 2 kg^2 | 2 2 kg | 2 kg | -2 kg | 4 kg^2 | 1 (100 rows) WITH v(a) AS (VALUES (NULL), ('1'::unit), ('2'::unit), (meter()), (meter() * '2'), (kilogram()), (kilogram() * '2') ) SELECT a, a ^ -2 AS pow_2, a ^ -1 AS pow_1, a ^ 0 AS pow0, a ^ 1 AS pow1, a ^ 2 AS pow2 FROM v; a | pow_2 | pow_1 | pow0 | pow1 | pow2 ------+------------+-----------+------+------+-------- | | | | | 1 | 1 | 1 | 1 | 1 | 1 2 | 0.25 | 0.5 | 1 | 2 | 4 1 m | 1 m^-2 | 1 m^-1 | 1 | 1 m | 1 m^2 2 m | 0.25 m^-2 | 0.5 m^-1 | 1 | 2 m | 4 m^2 1 kg | 1 kg^-2 | 1 kg^-1 | 1 | 1 kg | 1 kg^2 2 kg | 0.25 kg^-2 | 0.5 kg^-1 | 1 | 2 kg | 4 kg^2 (7 rows) -- test conversion SELECT '1m'::unit @ 'mm'; ?column? ---------- 1000 mm (1 row) SELECT '10g'::unit @ 'mg'; ?column? ---------- 10000 mg (1 row) SELECT '5dm^3'::unit @ 'l'; ?column? ---------- 5 l (1 row) SELECT '9.81 m/s^2'::unit @ 'N/kg'; ?column? ----------- 9.81 N/kg (1 row) SELECT '16384 B'::unit @ '8192 B'; ?column? ------------ 2 * 8192 B (1 row) SELECT '1 hl'::unit @ '0.5 l'; ?column? ------------- 200 * 0.5 l (1 row) SELECT '5MB/min'::unit @ 'GB/d'; ?column? ---------- 7.2 GB/d (1 row) SELECT '5m'::unit @ 's' AS error; ERROR: dimension mismatch in "@" operation: "5 m", "1 s" unit/expected/iec.out0000664000000000000000000000533013030277550012022 0ustar VALUES ('1 mB'::unit), ('1 B'::unit), ('1 KiB'::unit), ('1 MiB'::unit), ('1 GiB'::unit), ('1 TiB'::unit), ('1 PiB'::unit), ('1 EiB'::unit), ('1 ZiB'::unit), ('1 YiB'::unit); column1 --------------------- 1 mB 1 B 1.024 kB 1.048576 MB 1.073741824 GB 1.099511627776 TB 1.12589990684262 PB 1.15292150460685 EB 1.18059162071741 ZB 1.20892581961463 YB (10 rows) VALUES ('1 B'::unit @ 'B'), ('1 KiB'::unit @ 'KiB'), ('1 MiB'::unit @ 'MiB'), ('1 GiB'::unit @ 'GiB'), ('1 TiB'::unit @ 'TiB'), ('1 PiB'::unit @ 'PiB'), ('1 EiB'::unit @ 'EiB'), ('1 ZiB'::unit @ 'ZiB'), ('1 YiB'::unit @ 'YiB'); column1 --------- 1 B 1 KiB 1 MiB 1 GiB 1 TiB 1 PiB 1 EiB 1 ZiB 1 YiB (9 rows) VALUES ('1 B'::unit @ 'B'), ('1 kB'::unit @ 'KiB'), ('1 MB'::unit @ 'MiB'), ('1 GB'::unit @ 'GiB'), ('1 TB'::unit @ 'TiB'), ('1 PB'::unit @ 'PiB'), ('1 EB'::unit @ 'EiB'), ('1 ZB'::unit @ 'ZiB'), ('1 YB'::unit @ 'YiB'); column1 ----------------------- 1 B 0.9765625 KiB 0.95367431640625 MiB 0.931322574615479 GiB 0.909494701772928 TiB 0.888178419700125 PiB 0.867361737988404 EiB 0.8470329472543 ZiB 0.827180612553028 YiB (9 rows) -- errors SELECT '1 kiB'::unit; ERROR: invalid input syntax for unit: "1 kiB", syntax error, unexpected ERROR, expecting $end LINE 1: SELECT '1 kiB'::unit; ^ SELECT '1 Ki'::unit; ERROR: invalid input syntax for unit: "1 Ki", syntax error, unexpected ERROR, expecting $end LINE 1: SELECT '1 Ki'::unit; ^ SELECT '1 Kim'::unit; ERROR: invalid input syntax for unit: "1 Kim", syntax error, unexpected ERROR, expecting $end LINE 1: SELECT '1 Kim'::unit; ^ -- binary prefix output SET unit.byte_output_iec = 'foobar'; ERROR: parameter "unit.byte_output_iec" requires a Boolean value SET unit.byte_output_iec = on; VALUES ('.001 B'::unit, '.001 B'::unit), ('1 B'::unit, '1 B'::unit), ('1 KiB'::unit, '1 kB'::unit), ('1 MiB'::unit, '1 MB'::unit), ('1 GiB'::unit, '1 GB'::unit), ('1 TiB'::unit, '1 TB'::unit), ('1 PiB'::unit, '1 PB'::unit), ('1 EiB'::unit, '1 EB'::unit), ('1 ZiB'::unit, '1 ZB'::unit), ('1 YiB'::unit, '1 YB'::unit), ('1024 YiB'::unit, '1000 YB'::unit); column1 | column2 ------------------------+---------------------- 0.001 B | 0.001 B 1 B | 1 B 1 KiB | 1000 B 1 MiB | 976.5625 KiB 1 GiB | 953.67431640625 MiB 1 TiB | 931.322574615479 GiB 1 PiB | 909.494701772928 TiB 1 EiB | 888.178419700125 PiB 1 ZiB | 867.361737988404 EiB 1 YiB | 847.0329472543 ZiB 1.23794003928538e+27 B | 827.180612553028 YiB (11 rows) unit/expected/prefix.out0000664000000000000000000000561613030527324012563 0ustar SELECT f, meter(f), kilogram(f) FROM factors; f | meter | kilogram ---------------+---------+---------- 1e+27 | 1e+27 m | 1e+27 kg 1e+24 | 1 Ym | 1e+24 kg 1e+21 | 1 Zm | 1 Yg 1e+18 | 1 Em | 1 Zg 1e+15 | 1 Pm | 1 Eg 1000000000000 | 1 Tm | 1 Pg 1000000000 | 1 Gm | 1 Tg 1000000 | 1 Mm | 1 Gg 1000 | 1 km | 1 Mg 1 | 1 m | 1 kg 0.001 | 1 mm | 1 g 1e-06 | 1 µm | 1 mg 1e-09 | 1 nm | 1 µg 1e-12 | 1 pm | 1 ng 1e-15 | 1 fm | 1 pg 1e-18 | 1 am | 1 fg 1e-21 | 1 zm | 1 ag 1e-24 | 1 ym | 1 zg 1e-27 | 1e-27 m | 1 yg 1e-30 | 1e-30 m | 1e-30 kg 0 | 0 m | 0 kg (21 rows) SELECT p, (p||'m/m')::unit AS factor, ('0.001 '||p||'m')::unit AS "0.001 m", (p||'m')::unit AS "meter", ('1000 '||p||'m')::unit AS "1000 m", ('0.001 '||p||'g')::unit AS "0.001 g", (p||'g')::unit AS "gram", ('1000 '||p||'g')::unit AS "1000 g" FROM prefixes; p | factor | 0.001 m | meter | 1000 m | 0.001 g | gram | 1000 g ----+---------------+---------+--------+---------+----------+--------+---------- y | 1e-24 | 1e-27 m | 1 ym | 1 zm | 1e-30 kg | 1 yg | 1 zg z | 1e-21 | 1 ym | 1 zm | 1 am | 1 yg | 1 zg | 1 ag a | 1e-18 | 1 zm | 1 am | 1 fm | 1 zg | 1 ag | 1 fg f | 1e-15 | 1 am | 1 fm | 1 pm | 1 ag | 1 fg | 1 pg p | 1e-12 | 1 fm | 1 pm | 1 nm | 1 fg | 1 pg | 1 ng n | 1e-09 | 1 pm | 1 nm | 1 µm | 1 pg | 1 ng | 1 µg µ | 1e-06 | 1 nm | 1 µm | 1 mm | 1 ng | 1 µg | 1 mg mu | 1e-06 | 1 nm | 1 µm | 1 mm | 1 ng | 1 µg | 1 mg m | 0.001 | 1 µm | 1 mm | 1 m | 1 µg | 1 mg | 1 g c | 0.01 | 10 µm | 10 mm | 10 m | 10 µg | 10 mg | 10 g d | 0.1 | 100 µm | 100 mm | 100 m | 100 µg | 100 mg | 100 g | 1 | 1 mm | 1 m | 1 km | 1 mg | 1 g | 1 kg da | 10 | 10 mm | 10 m | 10 km | 10 mg | 10 g | 10 kg h | 100 | 100 mm | 100 m | 100 km | 100 mg | 100 g | 100 kg k | 1000 | 1 m | 1 km | 1 Mm | 1 g | 1 kg | 1 Mg M | 1000000 | 1 km | 1 Mm | 1 Gm | 1 kg | 1 Mg | 1 Gg G | 1000000000 | 1 Mm | 1 Gm | 1 Tm | 1 Mg | 1 Gg | 1 Tg T | 1000000000000 | 1 Gm | 1 Tm | 1 Pm | 1 Gg | 1 Tg | 1 Pg P | 1e+15 | 1 Tm | 1 Pm | 1 Em | 1 Tg | 1 Pg | 1 Eg E | 1e+18 | 1 Pm | 1 Em | 1 Zm | 1 Pg | 1 Eg | 1 Zg Z | 1e+21 | 1 Em | 1 Zm | 1 Ym | 1 Eg | 1 Zg | 1 Yg Y | 1e+24 | 1 Zm | 1 Ym | 1e+27 m | 1 Zg | 1 Yg | 1e+24 kg (22 rows) unit/expected/tables.out0000664000000000000000000000603413031153735012535 0ustar SET client_min_messages = warning; DROP TABLE IF EXISTS prefixes; CREATE TABLE prefixes (p text); DELETE FROM prefixes; INSERT INTO prefixes VALUES ('y'),('z'),('a'),('f'),('p'),('n'),('µ'),('mu'),('m'),('c'),('d'), (''), ('da'),('h'),('k'),('M'),('G'),('T'),('P'),('E'),('Z'),('Y'); DROP TABLE IF EXISTS factors; CREATE TABLE factors (f double precision); DELETE FROM factors; INSERT INTO factors VALUES (1e27), (1e24), (1e21), (1e18), (1e15), (1e12), (1e9), (1e6), (1e3), (1), (1e-3), (1e-6), (1e-9), (1e-12), (1e-15), (1e-18), (1e-21), (1e-24), (1e-27), (1e-30), (0); DROP TABLE IF EXISTS units; CREATE TABLE units (u text, unit unit, base boolean, coherent boolean, duplicate boolean); COMMENT ON COLUMN units.duplicate IS 'For coherent units, this unit has the same dimension as some other base or coherent unit'; DELETE FROM units; COPY units (u, base, coherent, duplicate) FROM STDIN; UPDATE units SET unit = u::unit; SELECT * FROM units; u | unit | base | coherent | duplicate -----+----------------+------+----------+----------- m/m | 1 | t | f | f m | 1 m | t | f | f kg | 1 kg | t | f | f s | 1 s | t | f | f A | 1 A | t | f | f K | 1 K | t | f | f mol | 1 mol | t | f | f cd | 1 cd | t | f | f B | 1 B | t | f | f rad | 1 | f | t | t sr | 1 | f | t | t Hz | 1 Hz | f | t | f N | 1 N | f | t | f Pa | 1 Pa | f | t | f J | 1 J | f | t | f W | 1 W | f | t | f C | 1 C | f | t | f V | 1 V | f | t | f F | 1 F | f | t | f Ω | 1 Ω | f | t | f ohm | 1 Ω | f | t | t S | 1 S | f | t | f Wb | 1 Wb | f | t | f T | 1 T | f | t | f H | 1 H | f | t | f °C | 1 K | f | t | t lm | 1 cd | f | t | t lx | 1 lx | f | t | f Bq | 1 Hz | f | t | t Gy | 1 Gy | f | t | f Sv | 1 Gy | f | t | t kat | 1 kat | f | t | f g | 1 g | f | f | t l | 0.001 m^3 | f | f | f t | 1 Mg | f | f | f bar | 100 kPa | f | f | f min | 60 s | f | f | f h | 3.6 ks | f | f | f d | 86.4 ks | f | f | f a | 31.5576 Ms | f | f | f in | 25.4 mm | f | f | f ft | 304.8 mm | f | f | f yd | 914.4 mm | f | f | f mi | 1.609344 km | f | f | f oz | 28.349523125 g | f | f | f lb | 453.59237 g | f | f | f (46 rows) unit/expected/unit.out0000664000000000000000000001051213034777607012253 0ustar -- test input and output SELECT '1'::unit; -- unit_in unit ------ 1 (1 row) SELECT unit(1); -- dbl2unit unit ------ 1 (1 row) CREATE TEMP TABLE u (u unit); INSERT INTO u VALUES ('1'); SELECT * FROM u; u --- 1 (1 row) -- test constructors SELECT meter(); meter ------- 1 m (1 row) SELECT meter(2.0) AS two_meters; two_meters ------------ 2 m (1 row) SELECT kilogram(); kilogram ---------- 1 kg (1 row) SELECT kilogram(3.0) AS three_kilogram; three_kilogram ---------------- 3 kg (1 row) SELECT second(); second -------- 1 s (1 row) SELECT second(4.0) AS four_seconds; four_seconds -------------- 4 s (1 row) SELECT ampere(); ampere -------- 1 A (1 row) SELECT ampere(5.0) AS five_ampere; five_ampere ------------- 5 A (1 row) SELECT kelvin(); kelvin -------- 1 K (1 row) SELECT kelvin(6.0) AS six_kelvin; six_kelvin ------------ 6 K (1 row) SELECT mole(); mole ------- 1 mol (1 row) SELECT mole(7.0) AS seven_mole; seven_mole ------------ 7 mol (1 row) SELECT candela(); candela --------- 1 cd (1 row) SELECT candela(8.0) AS eight_candela; eight_candela --------------- 8 cd (1 row) SELECT byte(); byte ------ 1 B (1 row) SELECT byte(9.0) AS nine_byte; nine_byte ----------- 9 B (1 row) -- test dimensionless scales SELECT unit(0) AS zero, unit(1e-6) AS "1e-6", unit(0.001) AS "0.001", unit(1.0) AS "1", unit(1000.0) AS "1000"; zero | 1e-6 | 0.001 | 1 | 1000 ------+-------+-------+---+------ 0 | 1e-06 | 0.001 | 1 | 1000 (1 row) -- test SI prefixes SELECT meter(0) AS zero, meter(1e-6) AS "µm", meter(0.001) AS mm, meter(1.0) AS m, meter(1000.0) AS km; zero | µm | mm | m | km ------+------+------+-----+------ 0 m | 1 µm | 1 mm | 1 m | 1 km (1 row) SELECT kilogram(0) AS zero, kilogram(1e-6) AS mg, kilogram(0.001) AS g, kilogram(1.0) AS kg, kilogram(1000.0) AS "Mg"; zero | mg | g | kg | Mg ------+------+-----+------+------ 0 kg | 1 mg | 1 g | 1 kg | 1 Mg (1 row) -- test combined units (exactly one unit with exponent 1 in numerator) SELECT meter(0)/second() AS zero, meter(1e-6)/second() AS "µm", meter(0.001)/second() AS mm, meter(1.0)/second() AS m, meter(1000.0)/second() AS km; zero | µm | mm | m | km -------+--------+--------+-------+-------- 0 m/s | 1 µm/s | 1 mm/s | 1 m/s | 1 km/s (1 row) SELECT kilogram(0)/second() AS zero, kilogram(1e-6)/second() AS mg, kilogram(0.001)/second() AS g, kilogram(1.0)/second() AS kg, kilogram(1000.0)/second() AS "Mg"; zero | mg | g | kg | Mg --------+--------+-------+--------+-------- 0 kg/s | 1 mg/s | 1 g/s | 1 kg/s | 1 Mg/s (1 row) -- test parser SELECT '1 m'::unit; unit ------ 1 m (1 row) SELECT '-1 m/s'::unit; unit -------- -1 m/s (1 row) SELECT '10 dm^3'::unit, '10l'::unit; unit | unit ----------+---------- 0.01 m^3 | 0.01 m^3 (1 row) SELECT '9.81 kg*m/s^2'::unit, '9.81 kg*m/s*s'::unit, '9.81 kg*m/s/s'::unit; unit | unit | unit --------+--------+-------- 9.81 N | 9.81 N | 9.81 N (1 row) SELECT '1 foobar'::unit AS error; ERROR: invalid input syntax for unit: "1 foobar", syntax error, unexpected ERROR, expecting $end LINE 1: SELECT '1 foobar'::unit AS error; ^ -- problematic cases SELECT '1 cd'::unit AS candela; -- candela vs centiday candela --------- 1 cd (1 row) SELECT '1 Pa'::unit AS pascal; -- pascal vs petayear pascal -------- 1 Pa (1 row) SELECT '1 da'::unit AS deciyear; -- theoretically unambiguous, but flex wanted a workaround deciyear ------------ 3.15576 Ms (1 row) SELECT '1 yg'::unit AS yoctogram, '1.00001 yg'::unit AS actual_yoctogram; -- "yg" had rounding problems in the past yoctogram | actual_yoctogram -----------+------------------ 1 yg | 1.00001 yg (1 row) SELECT '1 min'::unit AS minute; -- minute vs milliinch minute -------- 60 s (1 row) SELECT '1 ft'::unit AS foot; -- foot vs femtotonne foot ---------- 304.8 mm (1 row) SELECT '1 yd'::unit AS yard; -- yard vs yoctoday yard ---------- 914.4 mm (1 row) -- check which prefix/unit combinations produce other dimensions (parser conflicts) SELECT p, u, (p||u)::unit FROM prefixes CROSS JOIN units WHERE u <> 'kg' AND dimension(u::unit) != dimension((p||u)::unit) ORDER BY lower(p), lower(u); p | u | unit ---+----+---------- c | d | 1 cd f | t | 304.8 mm m | in | 60 s P | a | 1 Pa y | d | 914.4 mm (5 rows) unit/expected/upgrade.out0000664000000000000000000000237613032012330012701 0ustar DROP EXTENSION IF EXISTS unit; NOTICE: extension "unit" does not exist, skipping CREATE EXTENSION IF NOT EXISTS unit VERSION "1"; CREATE TABLE IF NOT EXISTS pg_depend_save (LIKE pg_depend); NOTICE: relation "pg_depend_save" already exists, skipping BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-1.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; ALTER EXTENSION unit UPDATE TO "2"; BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-1-2.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; DROP EXTENSION unit; CREATE EXTENSION unit; BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-2.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; unit/float8out_internal.h0000664000000000000000000000072213031162155012715 0ustar /* minimal version of PG 9.6's float8out_internal function for use in 9.4 and 9.5 */ #define MAXDOUBLEWIDTH 128 #define DBL_DIG 15 extern int extra_float_digits; static char * float8out_internal(double num) { char *ascii = (char *) palloc(MAXDOUBLEWIDTH + 1); int ndig = DBL_DIG + extra_float_digits; if (isnan(num)) return strcpy(ascii, "NaN"); if (ndig < 1) ndig = 1; snprintf(ascii, MAXDOUBLEWIDTH + 1, "%.*g", ndig, num); return ascii; } unit/powers.c0000664000000000000000000000076712754276565010445 0ustar #include #define p(n, p, x) printf("#define POWER_%-3d %-22g /* %s %-22a */\n", n, x, p, x) int main () { p(27, " ", 1e27); p(24, "Y", 1e24); p(21, "Z", 1e21); p(18, "E", 1e18); p(15, "P", 1e15); p(12, "T", 1e12); p(9, "G", 1e9); p(6, "M", 1e6); p(3, "k", 1e3); p(0, " ", 1e0); p(-3, "m", 1e-3); p(-6, "µ", 1e-6); p(-9, "n", 1e-9); p(-12, "p", 1e-12); p(-15, "f", 1e-15); p(-18, "a", 1e-18); p(-21, "z", 1e-21); p(-24, "y", 1e-24); p(-27, " ", 1e-27); } unit/powers.h0000664000000000000000000000270012754276565010437 0ustar /* powers-of-10 constants */ /* some constants here are rounded down so >= comparisons work better */ #define POWER_27 1e+27 /* 0x1.9d971e4fe8402p+89 */ #define POWER_24 0x1.a784379d99db3p+79 /* Y 0x1.a784379d99db4p+79 */ #define POWER_21 1e+21 /* Z 0x1.b1ae4d6e2ef5p+69 */ #define POWER_18 1e+18 /* E 0x1.bc16d674ec8p+59 */ #define POWER_15 1e+15 /* P 0x1.c6bf52634p+49 */ #define POWER_12 1e+12 /* T 0x1.d1a94a2p+39 */ #define POWER_9 1e+09 /* G 0x1.dcd65p+29 */ #define POWER_6 1e+06 /* M 0x1.e848p+19 */ #define POWER_3 1000 /* k 0x1.f4p+9 */ #define POWER_0 1 /* 0x1p+0 */ #define POWER__3 0.001 /* m 0x1.0624dd2f1a9fcp-10 */ #define POWER__6 0x1.0c6f7a0b5ed8cp-20 /* µ 0x1.0c6f7a0b5ed8dp-20 */ #define POWER__9 1e-09 /* n 0x1.12e0be826d695p-30 */ #define POWER__12 0x1.19799812dea10p-40 /* p 0x1.19799812dea11p-40 */ #define POWER__15 1e-15 /* f 0x1.203af9ee75616p-50 */ #define POWER__18 0x1.2725dd1d243abp-60 /* a 0x1.2725dd1d243acp-60 */ #define POWER__21 0x1.2e3b40a0e9b4ep-70 /* z 0x1.2e3b40a0e9b4fp-70 */ #define POWER__24 0x1.357c299a88ea6p-80 /* y 0x1.357c299a88ea7p-80 */ #define POWER__27 0x1.3ce9a36f23c0fp-90 /* 0x1.3ce9a36f23c1p-90 */ unit/sql/0000775000000000000000000000000013034777607007542 5ustar unit/sql/aggregate.sql0000664000000000000000000000623013031227634012175 0ustar -- test aggregates CREATE TEMP TABLE u ( u unit ); -- empty SELECT sum(u) AS null_sum FROM u; SELECT min(u) AS null_min FROM u; SELECT max(u) AS null_max FROM u; SELECT avg(u) AS null_avg FROM u; SELECT var_pop(u) AS null_var_pop FROM u; SELECT var_samp(u) AS null_var_samp FROM u; SELECT variance(u) AS null_variance FROM u; SELECT stddev_pop(u) AS null_stddev_pop FROM u; SELECT stddev_samp(u) AS null_stddev_samp FROM u; SELECT stddev(u) AS null_stddev FROM u; -- one NULL row INSERT INTO u VALUES (NULL); SELECT sum(u) AS null_sum FROM u; SELECT min(u) AS null_min FROM u; SELECT max(u) AS null_max FROM u; SELECT avg(u) AS null_avg FROM u; SELECT var_pop(u) AS null_var_pop FROM u; SELECT var_samp(u) AS null_var_samp FROM u; SELECT variance(u) AS null_variance FROM u; SELECT stddev_pop(u) AS null_stddev_pop FROM u; SELECT stddev_samp(u) AS null_stddev_samp FROM u; SELECT stddev(u) AS null_stddev FROM u; -- one non-NULL row DELETE FROM u; INSERT INTO u VALUES (meter(5)); SELECT sum(u) AS five_meters FROM u; SELECT min(u) AS five_meters FROM u; SELECT max(u) AS five_meters FROM u; SELECT avg(u) AS five_meters FROM u; SELECT var_pop(u) AS zero_var_pop FROM u; SELECT var_samp(u) AS zero_var_samp FROM u; SELECT variance(u) AS zero_variance FROM u; SELECT stddev_pop(u) AS zero_stddev_pop FROM u; SELECT stddev_samp(u) AS zero_stddev_samp FROM u; SELECT stddev(u) AS zero_stddev FROM u; -- two rows, matching dimensions DELETE FROM u; INSERT INTO u VALUES (meter()), (meter(2)); SELECT sum(u) AS three_meters FROM u; SELECT min(u) AS one_meter FROM u; SELECT max(u) AS two_meters FROM u; SELECT avg(u) AS oneandhalf_meters FROM u; SELECT var_pop(u) FROM u; SELECT var_samp(u) FROM u; SELECT variance(u) FROM u; SELECT stddev_pop(u) FROM u; SELECT stddev_samp(u) FROM u; SELECT stddev(u) FROM u; DELETE FROM u; INSERT INTO u VALUES (kilogram(2)), (kilogram()); SELECT sum(u), sum(value(u)) FROM u; SELECT min(u), min(value(u)) FROM u; SELECT max(u), max(value(u)) FROM u; SELECT avg(u), avg(value(u)) FROM u; SELECT var_pop(u), var_pop(value(u)) FROM u; SELECT var_samp(u), var_samp(value(u)) FROM u; SELECT variance(u), variance(value(u)) FROM u; SELECT stddev_pop(u), stddev_pop(value(u)) FROM u; SELECT stddev_samp(u), stddev_samp(value(u)) FROM u; SELECT stddev(u), stddev(value(u)) FROM u; -- three rows, one NULL INSERT INTO u VALUES (NULL); SELECT sum(u) AS three_kilogram FROM u; SELECT min(u) AS one_kilogram FROM u; SELECT max(u) AS two_kilogram FROM u; SELECT avg(u) AS oneandhalf_kilogram FROM u; SELECT var_pop(u) FROM u; SELECT var_samp(u) FROM u; SELECT variance(u) FROM u; SELECT stddev_pop(u) FROM u; SELECT stddev_samp(u) FROM u; SELECT stddev(u) FROM u; -- two rows, dimension mismatch DELETE FROM u; INSERT INTO u VALUES (ampere()), (kilogram(2)); SELECT sum(u) AS error FROM u; SELECT min(u) AS error FROM u; SELECT max(u) AS error FROM u; SELECT avg(u) AS error FROM u; SELECT var_pop(u) AS error FROM u; SELECT var_samp(u) AS error FROM u; SELECT variance(u) AS error FROM u; SELECT stddev_pop(u) AS error FROM u; SELECT stddev_samp(u) AS error FROM u; SELECT stddev(u) AS error FROM u; unit/sql/compare.sql0000664000000000000000000000170712746476164011721 0ustar -- test comparisons WITH v(u) AS (VALUES (NULL), ('-2'::unit), ('-1'::unit), ('-0'::unit), ('0'::unit), ('1'::unit), ('2'::unit), (meter()), (meter() * '2'), (kilogram()), (kilogram() * '2') ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, CASE WHEN unit_cmp(a, b) < 0 THEN '<' WHEN unit_cmp(a, b) = 0 THEN '=' WHEN unit_cmp(a, b) > 0 THEN '>' END AS cmp, a < b AS lt, a <= b AS le, a = b AS eq, a <> b AS ne, a >= b AS ge, a > b AS ge FROM va CROSS JOIN vb; -- test btree index CREATE TEMP TABLE u (u unit); INSERT INTO u SELECT meter(generate_series(1,10000)::double precision); INSERT INTO u SELECT generate_series(1,10000)::text::unit * kilogram(); ANALYZE u; CREATE INDEX ON u(u); SELECT * FROM u WHERE u = meter(400); SELECT * FROM u WHERE u = '300' * kilogram(); EXPLAIN (COSTS OFF) SELECT * FROM u WHERE u = meter(400); EXPLAIN (COSTS OFF) SELECT * FROM u WHERE u = '300' * kilogram(); unit/sql/convert.sql0000664000000000000000000000160413031162756011732 0ustar -- length WITH l(u) AS (VALUES ('mm'), ('m'), ('km'), ('in'), ('ft'), ('yd'), ('mi')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview -- area WITH l(u) AS (VALUES ('mm^2'), ('m^2'), ('km^2'), ('in^2'), ('ft^2'), ('yd^2'), ('mi^2')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview -- volume WITH l(u) AS (VALUES ('mm^3'), ('l'), ('m^3'), ('in^3'), ('ft^3'), ('yd^3')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview -- weight WITH l(u) AS (VALUES ('g'), ('kg'), ('t'), ('oz'), ('lb')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview -- time WITH l(u) AS (VALUES ('s'), ('min'), ('h'), ('d'), ('a')) SELECT l1.u, l2.u, l1.u::unit @ l2.u::cstring FROM l l1 CROSS JOIN l l2 \crosstabview unit/sql/crosstab.sql0000664000000000000000000000324413030561070012063 0ustar -- test multiplication WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('0'), ('1'), ('2')) SELECT unit, i, unit * i FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview SELECT a.unit AS a, b.unit AS b, a.unit * b.unit AS mul FROM units AS a CROSS JOIN units AS b WHERE (a.base OR a.coherent) AND NOT a.duplicate AND (b.base OR b.coherent) AND NOT b.duplicate \crosstabview SELECT f, unit, f * unit FROM factors CROSS JOIN units WHERE (base OR coherent) AND NOT duplicate \crosstabview -- test division WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('1'), ('2')) SELECT unit, i, unit / i FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview WITH i(i) AS (VALUES ('-2'::unit), ('-1'), ('0'), ('1'), ('2')) SELECT i, unit, i / unit FROM units CROSS JOIN i WHERE (base OR coherent) AND NOT duplicate \crosstabview SELECT a.unit AS a, b.unit AS b, a.unit / b.unit AS div FROM units AS a CROSS JOIN units AS b WHERE (a.base OR a.coherent) AND NOT a.duplicate AND (b.base OR b.coherent) AND NOT b.duplicate \crosstabview -- test comparisons WITH v(u) AS (VALUES ('-2'::unit), ('-1'::unit), (-kilogram()), (-meter()), ('-0'::unit), ('0'::unit), ('1'::unit), (kilogram()), (meter()), ('2'::unit), (kilogram(2)), (meter(2)) ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, CASE WHEN unit_cmp(a, b) < 0 THEN '<' WHEN unit_cmp(a, b) = 0 THEN '=' WHEN unit_cmp(a, b) > 0 THEN '>' END AS cmp FROM va CROSS JOIN vb \crosstabview -- test all prefix/unit combinations SELECT u, p, (p||u)::unit FROM prefixes CROSS JOIN units WHERE u <> 'kg' \crosstabview unit/sql/derived.sql0000664000000000000000000000360713030553010011663 0ustar -- derived units SELECT radian(); SELECT steradian(); SELECT hertz(); SELECT newton(); SELECT pascal(); SELECT joule(); SELECT watt(); SELECT coulomb(); SELECT volt(); SELECT farad(); SELECT ohm(); SELECT siemens(); SELECT weber(); SELECT tesla(); SELECT henry(); SELECT celsius(); SELECT lumen(); SELECT lux(); SELECT becquerel(); SELECT gray(); SELECT sievert(); SELECT katal(); SELECT radian(2); SELECT steradian(2); SELECT hertz(2); SELECT newton(2); SELECT pascal(2); SELECT joule(2); SELECT watt(2); SELECT coulomb(2); SELECT volt(2); SELECT farad(2); SELECT ohm(2); SELECT siemens(2); SELECT weber(2); SELECT tesla(2); SELECT henry(2); SELECT celsius(100); SELECT lumen(2); SELECT lux(2); SELECT becquerel(2); SELECT gray(2); SELECT sievert(2); SELECT katal(2); -- Non-SI units accepted for use with the SI SELECT minute(); SELECT hour(); SELECT day(); SELECT degree_arc(); SELECT minute_arc(); SELECT second_arc(); SELECT hectare(); SELECT liter(); SELECT tonne(); SELECT au(); SELECT decibel(); SELECT minute(60); SELECT hour(24); SELECT day(1/24.0); SELECT degree_arc(360); SELECT minute_arc(60); SELECT second_arc(60); SELECT hectare(1/100.0); SELECT liter(1000); SELECT tonne(1/1000.0); SELECT au(10); SELECT decibel(-3); SELECT decibel(3); SELECT decibel(10); SELECT decibel(20); SET client_min_messages = warning; DROP TABLE IF EXISTS u; RESET client_min_messages; CREATE TABLE u AS SELECT unit AS u, 2000 * unit AS "2k", unit/5000 AS "200µ", 0.002/unit AS "500th_inverse", (40*unit)^2 AS "1600_square" FROM units WHERE base OR coherent; SELECT * FROM u; SELECT u, u::text::unit AS "text::unit", "2k"::text::unit, "200µ"::text::unit, "500th_inverse"::text::unit, "1600_square"::text::unit FROM u; -- test i/o SELECT a.u, b.u, (a.u::unit*b.u::unit)::text, (a.u::unit*b.u::unit)::text::unit FROM units a CROSS JOIN units b WHERE (a.u::unit*b.u::unit)::text != (a.u::unit*b.u::unit)::text::unit::text; unit/sql/extension.sql0000664000000000000000000000014313032012704012247 0ustar SET client_min_messages = warning; CREATE EXTENSION IF NOT EXISTS unit; RESET client_min_messages; unit/sql/functions.sql0000664000000000000000000000443413030003142012244 0ustar -- text extractors SELECT value('2'::unit); SELECT value(meter(2)); SELECT dimension('2'::unit); SELECT dimension(kilogram(2)); -- test unit addition/subtraction SELECT '1'::unit + '2' AS sum; SELECT '1'::unit - '2' AS difference; SELECT '3 m'::unit - '1 µm' AS difference; SELECT '0' + meter() AS error; SELECT meter() + '0' AS error; SELECT meter() + kilogram() AS error; SELECT meter() - kilogram() AS error; -- test unit multiplication/division SELECT - '1'::unit AS negative; SELECT '2'::unit * '2' AS product; SELECT '5'::unit / '2' AS fraction; SELECT '0'::unit / '2' AS zero; SELECT '5'::unit / '0' AS division_by_zero; SELECT - second() AS minus_second; SELECT meter() * '2' AS two_meters; SELECT '3' * meter() AS three_meters; SELECT meter() * meter() AS square_meter; SELECT meter() * kilogram() AS meter_kilogram; SELECT '1' / second(.02) AS hertz; SELECT meter(9.81) / (second() * second()) AS acceleration; -- test unit/double operators SELECT 2 * meter() AS two_meters; SELECT ampere() * 3 AS three_ampere; SELECT 4 / second() AS four_hertz; SELECT kelvin(10) / 5 AS two_kelvin; SELECT 0 / candela() AS zero_by_candela; SELECT 1 / mole(0) AS error; SELECT byte(0) / 2 AS zero_byte; SELECT kilogram(1) / 0 AS error; -- test exponentiation SELECT '6'::unit ^ 2 AS square; SELECT meter(100) ^ 2 AS square_meter; SELECT kilogram(100) ^ 2 AS square_kilogram; SELECT second(.02) ^ -1 AS hertz; SELECT ampere(4) ^ 0 AS unity; SELECT '0'::unit ^ 0 AS unity; WITH v(u) AS (VALUES (NULL), ('0'::unit), ('1'::unit), ('2'::unit), (meter(0)), (meter()), (meter() * '2'), (kilogram(0)), (kilogram()), (kilogram() * '2') ), va(a) AS (SELECT * FROM v), vb(b) AS (SELECT * FROM v) SELECT a, b, -a AS neg, a * b AS mul, CASE WHEN value(b) = 0 THEN NULL ELSE a / b END AS div FROM va CROSS JOIN vb; WITH v(a) AS (VALUES (NULL), ('1'::unit), ('2'::unit), (meter()), (meter() * '2'), (kilogram()), (kilogram() * '2') ) SELECT a, a ^ -2 AS pow_2, a ^ -1 AS pow_1, a ^ 0 AS pow0, a ^ 1 AS pow1, a ^ 2 AS pow2 FROM v; -- test conversion SELECT '1m'::unit @ 'mm'; SELECT '10g'::unit @ 'mg'; SELECT '5dm^3'::unit @ 'l'; SELECT '9.81 m/s^2'::unit @ 'N/kg'; SELECT '16384 B'::unit @ '8192 B'; SELECT '1 hl'::unit @ '0.5 l'; SELECT '5MB/min'::unit @ 'GB/d'; SELECT '5m'::unit @ 's' AS error; unit/sql/iec.sql0000664000000000000000000000224313030277546011015 0ustar VALUES ('1 mB'::unit), ('1 B'::unit), ('1 KiB'::unit), ('1 MiB'::unit), ('1 GiB'::unit), ('1 TiB'::unit), ('1 PiB'::unit), ('1 EiB'::unit), ('1 ZiB'::unit), ('1 YiB'::unit); VALUES ('1 B'::unit @ 'B'), ('1 KiB'::unit @ 'KiB'), ('1 MiB'::unit @ 'MiB'), ('1 GiB'::unit @ 'GiB'), ('1 TiB'::unit @ 'TiB'), ('1 PiB'::unit @ 'PiB'), ('1 EiB'::unit @ 'EiB'), ('1 ZiB'::unit @ 'ZiB'), ('1 YiB'::unit @ 'YiB'); VALUES ('1 B'::unit @ 'B'), ('1 kB'::unit @ 'KiB'), ('1 MB'::unit @ 'MiB'), ('1 GB'::unit @ 'GiB'), ('1 TB'::unit @ 'TiB'), ('1 PB'::unit @ 'PiB'), ('1 EB'::unit @ 'EiB'), ('1 ZB'::unit @ 'ZiB'), ('1 YB'::unit @ 'YiB'); -- errors SELECT '1 kiB'::unit; SELECT '1 Ki'::unit; SELECT '1 Kim'::unit; -- binary prefix output SET unit.byte_output_iec = 'foobar'; SET unit.byte_output_iec = on; VALUES ('.001 B'::unit, '.001 B'::unit), ('1 B'::unit, '1 B'::unit), ('1 KiB'::unit, '1 kB'::unit), ('1 MiB'::unit, '1 MB'::unit), ('1 GiB'::unit, '1 GB'::unit), ('1 TiB'::unit, '1 TB'::unit), ('1 PiB'::unit, '1 PB'::unit), ('1 EiB'::unit, '1 EB'::unit), ('1 ZiB'::unit, '1 ZB'::unit), ('1 YiB'::unit, '1 YB'::unit), ('1024 YiB'::unit, '1000 YB'::unit); unit/sql/prefix.sql0000664000000000000000000000050413030526357011545 0ustar SELECT f, meter(f), kilogram(f) FROM factors; SELECT p, (p||'m/m')::unit AS factor, ('0.001 '||p||'m')::unit AS "0.001 m", (p||'m')::unit AS "meter", ('1000 '||p||'m')::unit AS "1000 m", ('0.001 '||p||'g')::unit AS "0.001 g", (p||'g')::unit AS "gram", ('1000 '||p||'g')::unit AS "1000 g" FROM prefixes; unit/sql/tables.sql0000664000000000000000000000252413031153733011521 0ustar SET client_min_messages = warning; DROP TABLE IF EXISTS prefixes; CREATE TABLE prefixes (p text); DELETE FROM prefixes; INSERT INTO prefixes VALUES ('y'),('z'),('a'),('f'),('p'),('n'),('µ'),('mu'),('m'),('c'),('d'), (''), ('da'),('h'),('k'),('M'),('G'),('T'),('P'),('E'),('Z'),('Y'); DROP TABLE IF EXISTS factors; CREATE TABLE factors (f double precision); DELETE FROM factors; INSERT INTO factors VALUES (1e27), (1e24), (1e21), (1e18), (1e15), (1e12), (1e9), (1e6), (1e3), (1), (1e-3), (1e-6), (1e-9), (1e-12), (1e-15), (1e-18), (1e-21), (1e-24), (1e-27), (1e-30), (0); DROP TABLE IF EXISTS units; CREATE TABLE units (u text, unit unit, base boolean, coherent boolean, duplicate boolean); COMMENT ON COLUMN units.duplicate IS 'For coherent units, this unit has the same dimension as some other base or coherent unit'; DELETE FROM units; COPY units (u, base, coherent, duplicate) FROM STDIN; m/m t f f m t f f kg t f f s t f f A t f f K t f f mol t f f cd t f f B t f f rad f t t sr f t t Hz f t f N f t f Pa f t f J f t f W f t f C f t f V f t f F f t f Ω f t f ohm f t t S f t f Wb f t f T f t f H f t f °C f t t lm f t t lx f t f Bq f t t Gy f t f Sv f t t kat f t f g f f t l f f f t f f f bar f f f min f f f h f f f d f f f a f f f in f f f ft f f f yd f f f mi f f f oz f f f lb f f f \. UPDATE units SET unit = u::unit; SELECT * FROM units; unit/sql/unit.sql0000664000000000000000000000440213034777607011242 0ustar -- test input and output SELECT '1'::unit; -- unit_in SELECT unit(1); -- dbl2unit CREATE TEMP TABLE u (u unit); INSERT INTO u VALUES ('1'); SELECT * FROM u; -- test constructors SELECT meter(); SELECT meter(2.0) AS two_meters; SELECT kilogram(); SELECT kilogram(3.0) AS three_kilogram; SELECT second(); SELECT second(4.0) AS four_seconds; SELECT ampere(); SELECT ampere(5.0) AS five_ampere; SELECT kelvin(); SELECT kelvin(6.0) AS six_kelvin; SELECT mole(); SELECT mole(7.0) AS seven_mole; SELECT candela(); SELECT candela(8.0) AS eight_candela; SELECT byte(); SELECT byte(9.0) AS nine_byte; -- test dimensionless scales SELECT unit(0) AS zero, unit(1e-6) AS "1e-6", unit(0.001) AS "0.001", unit(1.0) AS "1", unit(1000.0) AS "1000"; -- test SI prefixes SELECT meter(0) AS zero, meter(1e-6) AS "µm", meter(0.001) AS mm, meter(1.0) AS m, meter(1000.0) AS km; SELECT kilogram(0) AS zero, kilogram(1e-6) AS mg, kilogram(0.001) AS g, kilogram(1.0) AS kg, kilogram(1000.0) AS "Mg"; -- test combined units (exactly one unit with exponent 1 in numerator) SELECT meter(0)/second() AS zero, meter(1e-6)/second() AS "µm", meter(0.001)/second() AS mm, meter(1.0)/second() AS m, meter(1000.0)/second() AS km; SELECT kilogram(0)/second() AS zero, kilogram(1e-6)/second() AS mg, kilogram(0.001)/second() AS g, kilogram(1.0)/second() AS kg, kilogram(1000.0)/second() AS "Mg"; -- test parser SELECT '1 m'::unit; SELECT '-1 m/s'::unit; SELECT '10 dm^3'::unit, '10l'::unit; SELECT '9.81 kg*m/s^2'::unit, '9.81 kg*m/s*s'::unit, '9.81 kg*m/s/s'::unit; SELECT '1 foobar'::unit AS error; -- problematic cases SELECT '1 cd'::unit AS candela; -- candela vs centiday SELECT '1 Pa'::unit AS pascal; -- pascal vs petayear SELECT '1 da'::unit AS deciyear; -- theoretically unambiguous, but flex wanted a workaround SELECT '1 yg'::unit AS yoctogram, '1.00001 yg'::unit AS actual_yoctogram; -- "yg" had rounding problems in the past SELECT '1 min'::unit AS minute; -- minute vs milliinch SELECT '1 ft'::unit AS foot; -- foot vs femtotonne SELECT '1 yd'::unit AS yard; -- yard vs yoctoday -- check which prefix/unit combinations produce other dimensions (parser conflicts) SELECT p, u, (p||u)::unit FROM prefixes CROSS JOIN units WHERE u <> 'kg' AND dimension(u::unit) != dimension((p||u)::unit) ORDER BY lower(p), lower(u); unit/sql/upgrade.sql0000664000000000000000000000222413032012002011653 0ustar DROP EXTENSION IF EXISTS unit; CREATE EXTENSION IF NOT EXISTS unit VERSION "1"; CREATE TABLE IF NOT EXISTS pg_depend_save (LIKE pg_depend); BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-1.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; ALTER EXTENSION unit UPDATE TO "2"; BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-1-2.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; DROP EXTENSION unit; CREATE EXTENSION unit; BEGIN; DELETE FROM pg_depend_save; WITH ext AS (DELETE FROM pg_depend WHERE refobjid = (SELECT oid FROM pg_extension WHERE extname = 'unit') RETURNING *) INSERT INTO pg_depend_save SELECT * FROM ext; COMMIT; \! pg_dump -f unit-2.dump -T pg_depend_save INSERT INTO pg_depend SELECT * FROM pg_depend_save; unit/unit--1--2.sql0000664000000000000000000000411413032012325011043 0ustar ALTER TYPE unit_accum_t ADD ATTRIBUTE squares double precision; CREATE OR REPLACE FUNCTION unit_accum(a unit_accum_t, u unit) RETURNS unit_accum_t AS $$SELECT (CASE WHEN a.s = '0'::unit THEN u ELSE a.s + u END, a.squares + value(u)^2, a.n + 1)::unit_accum_t$$ LANGUAGE SQL IMMUTABLE STRICT; -- update v1 avg() aggregate UPDATE pg_aggregate SET agginitval = '(0,0,0)' WHERE aggtransfn = 'unit_accum'::regproc AND agginitval = '(0,0)'; CREATE FUNCTION unit_var_pop(a unit_accum_t) RETURNS double precision AS $$SELECT CASE WHEN a.n > 0 THEN (a.squares - value(a.s)^2 / a.n) / a.n ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE var_pop(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_pop, initcond = '(0,0,0)' ); CREATE FUNCTION unit_var_samp(a unit_accum_t) RETURNS double precision AS $$SELECT CASE WHEN a.n > 1 THEN (a.squares - value(a.s)^2 / a.n) / (a.n - 1) WHEN a.n = 1 THEN 0 ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE var_samp(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_samp, initcond = '(0,0,0)' ); CREATE AGGREGATE variance(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_samp, initcond = '(0,0,0)' ); CREATE FUNCTION unit_stddev_pop(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 0 THEN sqrt((a.squares - value(a.s)^2 / a.n) / a.n) * dimension(a.s) ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE stddev_pop(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_pop, initcond = '(0,0,0)' ); CREATE FUNCTION unit_stddev_samp(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 1 THEN sqrt((a.squares - value(a.s)^2 / a.n) / (a.n - 1)) * dimension(a.s) WHEN a.n = 1 THEN 0 * dimension(a.s) ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE stddev_samp(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_samp, initcond = '(0,0,0)' ); CREATE AGGREGATE stddev(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_samp, initcond = '(0,0,0)' ); unit/unit--1.sql0000664000000000000000000003011212746232744010650 0ustar /* Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. */ -- type definition CREATE TYPE unit; CREATE OR REPLACE FUNCTION unit_in(cstring) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OR REPLACE FUNCTION unit_out(unit) RETURNS cstring AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE TYPE unit ( internallength = 16, input = unit_in, output = unit_out, alignment = double ); -- constructors CREATE FUNCTION unit(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'dbl2unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION meter(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_meter' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION kilogram(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_kilogram' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION second(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_second' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION ampere(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_ampere' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION kelvin(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_kelvin' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION mole(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_mole' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION candela(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_candela' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION byte(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_byte' LANGUAGE C IMMUTABLE STRICT; -- extractors CREATE FUNCTION value(unit) RETURNS double precision AS '$libdir/unit', 'unit_value' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION dimension(unit) RETURNS unit AS '$libdir/unit', 'unit_dimension' LANGUAGE C IMMUTABLE STRICT; -- operators CREATE FUNCTION unit_add(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR + ( leftarg = unit, rightarg = unit, procedure = unit_add, commutator = + ); CREATE FUNCTION unit_sub(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR - ( leftarg = unit, rightarg = unit, procedure = unit_sub ); CREATE FUNCTION unit_neg(unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR - ( rightarg = unit, procedure = unit_neg ); CREATE FUNCTION unit_mul(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = unit, rightarg = unit, procedure = unit_mul, commutator = * ); CREATE FUNCTION dbl_unit_mul(double precision, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = double precision, rightarg = unit, procedure = dbl_unit_mul, commutator = * ); CREATE FUNCTION unit_dbl_mul(unit, double precision) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = unit, rightarg = double precision, procedure = unit_dbl_mul, commutator = * ); CREATE FUNCTION unit_div(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = unit, rightarg = unit, procedure = unit_div ); CREATE FUNCTION dbl_unit_div(double precision, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = double precision, rightarg = unit, procedure = dbl_unit_div ); CREATE FUNCTION unit_dbl_div(unit, double precision) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = unit, rightarg = double precision, procedure = unit_dbl_div ); CREATE FUNCTION unit_pow(unit, int) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR ^ ( leftarg = unit, rightarg = int, procedure = unit_pow ); CREATE FUNCTION unit_at(unit, cstring) RETURNS cstring AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR @ ( leftarg = unit, rightarg = cstring, procedure = unit_at ); -- derived units CREATE FUNCTION radian (double precision DEFAULT 1.0) -- m·m^-1 RETURNS unit AS $$SELECT meter($1) / meter()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION steradian (double precision DEFAULT 1.0) -- m^2·m^-2 RETURNS unit AS $$SELECT meter($1) * meter() / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hertz (double precision DEFAULT 1.0) -- s^-1 RETURNS unit AS $$SELECT $1 / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION newton (double precision DEFAULT 1.0) -- kg·m·s^-2 RETURNS unit AS $$SELECT kilogram($1) * meter() / second()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION pascal (double precision DEFAULT 1.0) -- N/m^2 RETURNS unit AS $$SELECT newton($1) / meter()^2 $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION joule (double precision DEFAULT 1.0) -- N·m RETURNS unit AS $$SELECT newton($1) * meter()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION watt (double precision DEFAULT 1.0) -- J/s RETURNS unit AS $$SELECT joule($1) / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION coulomb (double precision DEFAULT 1.0) -- A·s RETURNS unit AS $$SELECT ampere($1) * second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION volt (double precision DEFAULT 1.0) -- W/A RETURNS unit AS $$SELECT watt($1) / ampere() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION farad (double precision DEFAULT 1.0) -- C/V RETURNS unit AS $$SELECT coulomb($1) / volt() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION ohm (double precision DEFAULT 1.0) -- V/A RETURNS unit AS $$SELECT volt($1) / ampere() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION siemens (double precision DEFAULT 1.0) -- A/V RETURNS unit AS $$SELECT ampere($1) / volt()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION weber (double precision DEFAULT 1.0) -- V·s RETURNS unit AS $$SELECT volt($1) * second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION tesla (double precision DEFAULT 1.0) -- Wb/m^2 RETURNS unit AS $$SELECT weber($1) / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION henry (double precision DEFAULT 1.0) -- Wb/A RETURNS unit AS $$SELECT weber($1) / ampere()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION celsius (double precision DEFAULT 0.0) -- K relative to 273.15, default to 0°C RETURNS unit AS $$SELECT kelvin($1 + 273.15)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION lumen (double precision DEFAULT 1.0) -- cd·sr RETURNS unit AS $$SELECT candela($1) * steradian()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION lux (double precision DEFAULT 1.0) -- lm/m^2 RETURNS unit AS $$SELECT lumen($1) / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION becquerel (double precision DEFAULT 1.0) -- s^-1 RETURNS unit AS $$SELECT $1 / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION gray (double precision DEFAULT 1.0) -- J/kg RETURNS unit AS $$SELECT joule($1) / kilogram()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION sievert (double precision DEFAULT 1.0) -- J/kg RETURNS unit AS $$SELECT joule($1)/ kilogram()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION katal (double precision DEFAULT 1.0) -- mol·s^-1 RETURNS unit AS $$SELECT mole($1) / second()$$ LANGUAGE SQL IMMUTABLE STRICT; -- Non-SI units accepted for use with the SI --minute, hour, day, degree of arc, minute of arc, second of arc, hectare, litre, tonne, astronomical unit and [deci]bel CREATE FUNCTION minute (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 60)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hour (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 3600)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION day (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 86400)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION degree_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION minute_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180 / 60$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION second_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180 / 3600$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hectare (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * meter(100)^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION liter (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * meter(0.1)^3$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION tonne (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT kilogram($1 * 1000)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION au (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT meter($1 * 149597870700)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION decibel (double precision DEFAULT 0.0) RETURNS double precision AS $$SELECT 10.0^($1 / 10.0)$$ LANGUAGE SQL IMMUTABLE STRICT; -- comparisons CREATE FUNCTION unit_lt(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_le(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_eq(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_ne(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_ge(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_gt(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR < ( leftarg = unit, rightarg = unit, procedure = unit_lt, commutator = > , negator = >= , restrict = scalarltsel, join = scalarltjoinsel ); CREATE OPERATOR <= ( leftarg = unit, rightarg = unit, procedure = unit_le, commutator = >= , negator = > , restrict = scalarltsel, join = scalarltjoinsel ); CREATE OPERATOR = ( leftarg = unit, rightarg = unit, procedure = unit_eq, commutator = = , negator = <> , restrict = eqsel, join = eqjoinsel ); CREATE OPERATOR <> ( leftarg = unit, rightarg = unit, procedure = unit_ne, commutator = <> , negator = = , restrict = neqsel, join = neqjoinsel ); CREATE OPERATOR >= ( leftarg = unit, rightarg = unit, procedure = unit_ge, commutator = <= , negator = < , restrict = scalargtsel, join = scalargtjoinsel ); CREATE OPERATOR > ( leftarg = unit, rightarg = unit, procedure = unit_gt, commutator = < , negator = <= , restrict = scalargtsel, join = scalargtjoinsel ); CREATE FUNCTION unit_cmp(unit, unit) RETURNS int4 AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR CLASS unit_ops DEFAULT FOR TYPE unit USING btree AS OPERATOR 1 < , OPERATOR 2 <= , OPERATOR 3 = , OPERATOR 4 >= , OPERATOR 5 > , FUNCTION 1 unit_cmp(unit, unit); -- aggregates CREATE AGGREGATE sum(unit) ( sfunc = unit_add, stype = unit ); CREATE FUNCTION unit_least(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE AGGREGATE min(unit) ( sfunc = unit_least, stype = unit ); CREATE FUNCTION unit_greatest(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE AGGREGATE max(unit) ( sfunc = unit_greatest, stype = unit ); CREATE TYPE unit_accum_t AS ( s unit, n bigint ); CREATE FUNCTION unit_accum(a unit_accum_t, u unit) RETURNS unit_accum_t AS $$SELECT (CASE WHEN a.s = '0'::unit THEN u ELSE a.s + u END, a.n + 1)::unit_accum_t$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION unit_avg(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 0 THEN a.s / a.n ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE avg(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_avg, initcond = '(0,0)' ); unit/unit--2.sql0000664000000000000000000003342013032012535010635 0ustar /* Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. */ -- type definition CREATE TYPE unit; CREATE OR REPLACE FUNCTION unit_in(cstring) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OR REPLACE FUNCTION unit_out(unit) RETURNS cstring AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE TYPE unit ( internallength = 16, input = unit_in, output = unit_out, alignment = double ); -- constructors CREATE FUNCTION unit(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'dbl2unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION meter(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_meter' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION kilogram(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_kilogram' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION second(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_second' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION ampere(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_ampere' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION kelvin(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_kelvin' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION mole(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_mole' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION candela(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_candela' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION byte(double precision DEFAULT 1.0) RETURNS unit AS '$libdir/unit', 'unit_byte' LANGUAGE C IMMUTABLE STRICT; -- extractors CREATE FUNCTION value(unit) RETURNS double precision AS '$libdir/unit', 'unit_value' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION dimension(unit) RETURNS unit AS '$libdir/unit', 'unit_dimension' LANGUAGE C IMMUTABLE STRICT; -- operators CREATE FUNCTION unit_add(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR + ( leftarg = unit, rightarg = unit, procedure = unit_add, commutator = + ); CREATE FUNCTION unit_sub(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR - ( leftarg = unit, rightarg = unit, procedure = unit_sub ); CREATE FUNCTION unit_neg(unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR - ( rightarg = unit, procedure = unit_neg ); CREATE FUNCTION unit_mul(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = unit, rightarg = unit, procedure = unit_mul, commutator = * ); CREATE FUNCTION dbl_unit_mul(double precision, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = double precision, rightarg = unit, procedure = dbl_unit_mul, commutator = * ); CREATE FUNCTION unit_dbl_mul(unit, double precision) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR * ( leftarg = unit, rightarg = double precision, procedure = unit_dbl_mul, commutator = * ); CREATE FUNCTION unit_div(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = unit, rightarg = unit, procedure = unit_div ); CREATE FUNCTION dbl_unit_div(double precision, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = double precision, rightarg = unit, procedure = dbl_unit_div ); CREATE FUNCTION unit_dbl_div(unit, double precision) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR / ( leftarg = unit, rightarg = double precision, procedure = unit_dbl_div ); CREATE FUNCTION unit_pow(unit, int) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR ^ ( leftarg = unit, rightarg = int, procedure = unit_pow ); CREATE FUNCTION unit_at(unit, cstring) RETURNS cstring AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR @ ( leftarg = unit, rightarg = cstring, procedure = unit_at ); -- derived units CREATE FUNCTION radian (double precision DEFAULT 1.0) -- m·m^-1 RETURNS unit AS $$SELECT meter($1) / meter()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION steradian (double precision DEFAULT 1.0) -- m^2·m^-2 RETURNS unit AS $$SELECT meter($1) * meter() / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hertz (double precision DEFAULT 1.0) -- s^-1 RETURNS unit AS $$SELECT $1 / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION newton (double precision DEFAULT 1.0) -- kg·m·s^-2 RETURNS unit AS $$SELECT kilogram($1) * meter() / second()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION pascal (double precision DEFAULT 1.0) -- N/m^2 RETURNS unit AS $$SELECT newton($1) / meter()^2 $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION joule (double precision DEFAULT 1.0) -- N·m RETURNS unit AS $$SELECT newton($1) * meter()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION watt (double precision DEFAULT 1.0) -- J/s RETURNS unit AS $$SELECT joule($1) / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION coulomb (double precision DEFAULT 1.0) -- A·s RETURNS unit AS $$SELECT ampere($1) * second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION volt (double precision DEFAULT 1.0) -- W/A RETURNS unit AS $$SELECT watt($1) / ampere() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION farad (double precision DEFAULT 1.0) -- C/V RETURNS unit AS $$SELECT coulomb($1) / volt() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION ohm (double precision DEFAULT 1.0) -- V/A RETURNS unit AS $$SELECT volt($1) / ampere() $$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION siemens (double precision DEFAULT 1.0) -- A/V RETURNS unit AS $$SELECT ampere($1) / volt()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION weber (double precision DEFAULT 1.0) -- V·s RETURNS unit AS $$SELECT volt($1) * second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION tesla (double precision DEFAULT 1.0) -- Wb/m^2 RETURNS unit AS $$SELECT weber($1) / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION henry (double precision DEFAULT 1.0) -- Wb/A RETURNS unit AS $$SELECT weber($1) / ampere()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION celsius (double precision DEFAULT 0.0) -- K relative to 273.15, default to 0°C RETURNS unit AS $$SELECT kelvin($1 + 273.15)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION lumen (double precision DEFAULT 1.0) -- cd·sr RETURNS unit AS $$SELECT candela($1) * steradian()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION lux (double precision DEFAULT 1.0) -- lm/m^2 RETURNS unit AS $$SELECT lumen($1) / meter()^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION becquerel (double precision DEFAULT 1.0) -- s^-1 RETURNS unit AS $$SELECT $1 / second()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION gray (double precision DEFAULT 1.0) -- J/kg RETURNS unit AS $$SELECT joule($1) / kilogram()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION sievert (double precision DEFAULT 1.0) -- J/kg RETURNS unit AS $$SELECT joule($1)/ kilogram()$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION katal (double precision DEFAULT 1.0) -- mol·s^-1 RETURNS unit AS $$SELECT mole($1) / second()$$ LANGUAGE SQL IMMUTABLE STRICT; -- Non-SI units accepted for use with the SI --minute, hour, day, degree of arc, minute of arc, second of arc, hectare, litre, tonne, astronomical unit and [deci]bel CREATE FUNCTION minute (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 60)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hour (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 3600)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION day (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT second($1 * 86400)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION degree_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION minute_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180 / 60$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION second_arc(double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * '1'::unit * pi() / 180 / 3600$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION hectare (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * meter(100)^2$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION liter (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT $1 * meter(0.1)^3$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION tonne (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT kilogram($1 * 1000)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION au (double precision DEFAULT 1.0) RETURNS unit AS $$SELECT meter($1 * 149597870700)$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION decibel (double precision DEFAULT 0.0) RETURNS double precision AS $$SELECT 10.0^($1 / 10.0)$$ LANGUAGE SQL IMMUTABLE STRICT; -- comparisons CREATE FUNCTION unit_lt(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_le(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_eq(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_ne(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_ge(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE FUNCTION unit_gt(unit, unit) RETURNS bool AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR < ( leftarg = unit, rightarg = unit, procedure = unit_lt, commutator = > , negator = >= , restrict = scalarltsel, join = scalarltjoinsel ); CREATE OPERATOR <= ( leftarg = unit, rightarg = unit, procedure = unit_le, commutator = >= , negator = > , restrict = scalarltsel, join = scalarltjoinsel ); CREATE OPERATOR = ( leftarg = unit, rightarg = unit, procedure = unit_eq, commutator = = , negator = <> , restrict = eqsel, join = eqjoinsel ); CREATE OPERATOR <> ( leftarg = unit, rightarg = unit, procedure = unit_ne, commutator = <> , negator = = , restrict = neqsel, join = neqjoinsel ); CREATE OPERATOR >= ( leftarg = unit, rightarg = unit, procedure = unit_ge, commutator = <= , negator = < , restrict = scalargtsel, join = scalargtjoinsel ); CREATE OPERATOR > ( leftarg = unit, rightarg = unit, procedure = unit_gt, commutator = < , negator = <= , restrict = scalargtsel, join = scalargtjoinsel ); CREATE FUNCTION unit_cmp(unit, unit) RETURNS int4 AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE OPERATOR CLASS unit_ops DEFAULT FOR TYPE unit USING btree AS OPERATOR 1 < , OPERATOR 2 <= , OPERATOR 3 = , OPERATOR 4 >= , OPERATOR 5 > , FUNCTION 1 unit_cmp(unit, unit); -- aggregates CREATE AGGREGATE sum(unit) ( sfunc = unit_add, stype = unit ); CREATE FUNCTION unit_least(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE AGGREGATE min(unit) ( sfunc = unit_least, stype = unit ); CREATE FUNCTION unit_greatest(unit, unit) RETURNS unit AS '$libdir/unit' LANGUAGE C IMMUTABLE STRICT; CREATE AGGREGATE max(unit) ( sfunc = unit_greatest, stype = unit ); CREATE TYPE unit_accum_t AS ( s unit, squares double precision, n bigint ); CREATE FUNCTION unit_accum(a unit_accum_t, u unit) RETURNS unit_accum_t AS $$SELECT (CASE WHEN a.s = '0'::unit THEN u ELSE a.s + u END, a.squares + value(u)^2, a.n + 1)::unit_accum_t$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE FUNCTION unit_avg(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 0 THEN a.s / a.n ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE avg(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_avg, initcond = '(0,0,0)' ); CREATE FUNCTION unit_var_pop(a unit_accum_t) RETURNS double precision AS $$SELECT CASE WHEN a.n > 0 THEN (a.squares - value(a.s)^2 / a.n) / a.n ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE var_pop(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_pop, initcond = '(0,0,0)' ); CREATE FUNCTION unit_var_samp(a unit_accum_t) RETURNS double precision AS $$SELECT CASE WHEN a.n > 1 THEN (a.squares - value(a.s)^2 / a.n) / (a.n - 1) WHEN a.n = 1 THEN 0 ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE var_samp(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_samp, initcond = '(0,0,0)' ); CREATE AGGREGATE variance(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_var_samp, initcond = '(0,0,0)' ); CREATE FUNCTION unit_stddev_pop(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 0 THEN sqrt((a.squares - value(a.s)^2 / a.n) / a.n) * dimension(a.s) ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE stddev_pop(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_pop, initcond = '(0,0,0)' ); CREATE FUNCTION unit_stddev_samp(a unit_accum_t) RETURNS unit AS $$SELECT CASE WHEN a.n > 1 THEN sqrt((a.squares - value(a.s)^2 / a.n) / (a.n - 1)) * dimension(a.s) WHEN a.n = 1 THEN 0 * dimension(a.s) ELSE NULL END$$ LANGUAGE SQL IMMUTABLE STRICT; CREATE AGGREGATE stddev_samp(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_samp, initcond = '(0,0,0)' ); CREATE AGGREGATE stddev(unit) ( sfunc = unit_accum, stype = unit_accum_t, finalfunc = unit_stddev_samp, initcond = '(0,0,0)' ); unit/unit.c0000664000000000000000000004224213031162170010046 0ustar /* Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. */ #include "postgres.h" #include "fmgr.h" #include "utils/guc.h" #include #include "unit.h" #include "defined_units.h" #include "powers.h" #if PG_VERSION_NUM >= 90600 #include "utils/builtins.h" /* float8out_internal */ #else #include "float8out_internal.h" #endif /* module initialization */ PG_MODULE_MAGIC; static bool unit_byte_output_iec; void _PG_init(void); void _PG_init(void) { DefineCustomBoolVariable("unit.byte_output_iec", "Output byte unit values with binary IEC prefixes", "Set to on to output byte unit values using binary IEC prefixes " "instead of decimal SI prefixes", &unit_byte_output_iec, false, PGC_USERSET, 0, /* no flags */ NULL, NULL, NULL); EmitWarningsOnPlaceholders("unit"); } /* internal functions */ /* format Unit as string */ static char * unit_cstring (Unit *unit) { int i; int n_numerator = 0; int u_numerator = -1; int derived_unit = -1; char *output; char *output_p; bool numerator = false; bool denominator = false; /* check if this is a combination of base units we have a specific name for */ for (i = 0; derived_units[i].name && derived_units[i].flags & U_DERIVED; i++) if (! memcmp(unit->units, derived_units[i].units, N_UNITS)) { derived_unit = i; break; } if (derived_unit == -1) /* otherwise, sum up positive exponents */ for (i = 0; i < N_UNITS; i++) { if (unit->units[i] > 0) { n_numerator += unit->units[i]; u_numerator = i; } } output_p = output = palloc(128); #define print_output(...) output_p += sprintf(output_p, __VA_ARGS__); /* case 1a: kg in numerator (exponent 1): print with SI prefix */ if (n_numerator == 1 && u_numerator == UNIT_kg) { double v_abs = fabs(unit->value); char *prefix = "k"; double factor = 1.0; if (v_abs >= POWER_24) { /* do nothing */ } else if (v_abs >= POWER_21) { prefix = "Y"; factor = 1e-21; } else if (v_abs >= POWER_18) { prefix = "Z"; factor = 1e-18; } else if (v_abs >= POWER_15) { prefix = "E"; factor = 1e-15; } else if (v_abs >= POWER_12) { prefix = "P"; factor = 1e-12; } else if (v_abs >= POWER_9) { prefix = "T"; factor = 1e-9; } else if (v_abs >= POWER_6) { prefix = "G"; factor = 1e-6; } else if (v_abs >= POWER_3) { prefix = "M"; factor = 1e-3; } else if (v_abs >= POWER_0) { prefix = "k"; } else if (v_abs >= POWER__3) { prefix = ""; factor = 1e3; } else if (v_abs >= POWER__6) { prefix = "m"; factor = 1e6; } else if (v_abs >= POWER__9) { prefix = "µ"; factor = 1e9; } else if (v_abs >= POWER__12) { prefix = "n"; factor = 1e12; } else if (v_abs >= POWER__15) { prefix = "p"; factor = 1e15; } else if (v_abs >= POWER__18) { prefix = "f"; factor = 1e18; } else if (v_abs >= POWER__21) { prefix = "a"; factor = 1e21; } else if (v_abs >= POWER__24) { prefix = "z"; factor = 1e24; } else if (v_abs >= POWER__27) { prefix = "y"; factor = 1e27; } /* else: smaller value or 0 (or -0), print using kg */ print_output("%s %sg", float8out_internal (unit->value * factor), prefix); /* gram with SI prefix */ numerator = true; /* case 1b: byte in numerator (exponent 1), and binary IEC prefix requested */ } else if (n_numerator == 1 && u_numerator == UNIT_B && unit_byte_output_iec) { double v_abs = fabs(unit->value); char *prefix = ""; double factor = 1.0; if (v_abs >= 0x1p+90) { // do nothing } else if (v_abs >= 0x1p+80) { prefix = "Yi"; factor = 0x1p-80; } else if (v_abs >= 0x1p+70) { prefix = "Zi"; factor = 0x1p-70; } else if (v_abs >= 0x1p+60) { prefix = "Ei"; factor = 0x1p-60; } else if (v_abs >= 0x1p+50) { prefix = "Pi"; factor = 0x1p-50; } else if (v_abs >= 0x1p+40) { prefix = "Ti"; factor = 0x1p-40; } else if (v_abs >= 0x1p+30) { prefix = "Gi"; factor = 0x1p-30; } else if (v_abs >= 0x1p+20) { prefix = "Mi"; factor = 0x1p-20; } else if (v_abs >= 0x1p+10) { prefix = "Ki"; factor = 0x1p-10; } /* else do nothing */ print_output("%s %sB", float8out_internal (unit->value * factor), prefix); /* byte with binary prefix */ numerator = true; /* case 2: derived unit, or numerator with exactly one unit (exponent 1) * not covered above */ } else if (derived_unit >= 0 || n_numerator == 1) { double v_abs = fabs(unit->value); char *prefix = ""; double factor = 1.0; if (v_abs >= 1e27) { // do nothing } else if (v_abs >= POWER_24) { prefix = "Y"; factor = 1e-24; } else if (v_abs >= POWER_21) { prefix = "Z"; factor = 1e-21; } else if (v_abs >= POWER_18) { prefix = "E"; factor = 1e-18; } else if (v_abs >= POWER_15) { prefix = "P"; factor = 1e-15; } else if (v_abs >= POWER_12) { prefix = "T"; factor = 1e-12; } else if (v_abs >= POWER_9) { prefix = "G"; factor = 1e-9; } else if (v_abs >= POWER_6) { prefix = "M"; factor = 1e-6; } else if (v_abs >= POWER_3) { prefix = "k"; factor = 1e-3; } else if (v_abs >= POWER_0) { // do nothing } else if (v_abs >= POWER__3) { prefix = "m"; factor = 1e3; } else if (v_abs >= POWER__6) { prefix = "µ"; factor = 1e6; } else if (v_abs >= POWER__9) { prefix = "n"; factor = 1e9; } else if (v_abs >= POWER__12) { prefix = "p"; factor = 1e12; } else if (v_abs >= POWER__15) { prefix = "f"; factor = 1e15; } else if (v_abs >= POWER__18) { prefix = "a"; factor = 1e18; } else if (v_abs >= POWER__21) { prefix = "z"; factor = 1e21; } else if (v_abs >= POWER__24) { prefix = "y"; factor = 1e24; } /* else do nothing */ /* case 2a: derived unit, print with SI prefix and exit */ if (derived_unit >= 0) { print_output("%s %s%s", float8out_internal (unit->value * factor), prefix, derived_units[i].name); return output; } /* case 2b: single unit in numerator (exponent 1), print with SI prefix and continue */ print_output("%s %s%s", float8out_internal (unit->value * factor), prefix, base_units[u_numerator]); numerator = true; /* case 3: zero or more than one unit in numerator */ } else { /* always use scientific notation here */ print_output("%s", float8out_internal (unit->value)); for (i = 0; i < N_UNITS; i++) /* format units in numerator */ if (unit->units[i] > 0) { print_output("%s%s", numerator ? "*" : " ", base_units[i]); if (unit->units[i] > 1) print_output("^%d", unit->units[i]); numerator = true; } } /* print units in denominator */ for (i = 0; i < N_UNITS; i++) /* format units in denominator */ if (unit->units[i] < 0) { if (numerator) { /* format as .../a^x*b^y */ print_output("%s%s", denominator ? "*" : "/", base_units[i]); if (unit->units[i] < -1) print_output("^%d", -unit->units[i]); } else { /* format as a^-x*b^-y */ print_output("%s%s^%d", denominator ? "*" : " ", base_units[i], unit->units[i]); } denominator = true; } /* done */ return output; } /* test if two Units have the same dimension */ static inline void test_same_dimension (char *op, Unit *a, Unit *b) { if (memcmp(a->units, b->units, N_UNITS)) ereport(ERROR, (errcode(ERRCODE_DATA_EXCEPTION), errmsg("dimension mismatch in \"%s\" operation: \"%s\", \"%s\"", op, unit_cstring(a), unit_cstring(b)))); } /* input and output */ char *yyerrstr; /* copy of error catched by yyuniterror() */ void yyuniterror (char *s); void yyuniterror (char *s) { /* store error for later use in unit_in */ yyerrstr = pstrdup(s); } PG_FUNCTION_INFO_V1 (unit_in); Datum unit_in (PG_FUNCTION_ARGS) { char *str = PG_GETARG_CSTRING(0); Unit *result; result = (Unit *) palloc(sizeof(Unit)); if (unit_parse(str, result) > 0) ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION), errmsg("invalid input syntax for unit: \"%s\", %s", str, yyerrstr))); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_out); Datum unit_out(PG_FUNCTION_ARGS) { Unit *unit = (Unit *) PG_GETARG_POINTER(0); PG_RETURN_CSTRING(unit_cstring(unit)); } /* constructors */ PG_FUNCTION_INFO_V1 (dbl2unit); Datum dbl2unit (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_meter); Datum unit_meter (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_m] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_kilogram); Datum unit_kilogram (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_kg] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_second); Datum unit_second (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_s] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_ampere); Datum unit_ampere (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_A] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_kelvin); Datum unit_kelvin (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_K] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_mole); Datum unit_mole (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_mol] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_candela); Datum unit_candela (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_cd] = 1; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1 (unit_byte); Datum unit_byte (PG_FUNCTION_ARGS) { Unit *result; result = (Unit *) palloc0(sizeof(Unit)); result->value = PG_GETARG_FLOAT8(0); result->units[UNIT_B] = 1; PG_RETURN_POINTER(result); } /* extractors */ PG_FUNCTION_INFO_V1(unit_value); Datum unit_value(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); PG_RETURN_FLOAT8(a->value); } PG_FUNCTION_INFO_V1(unit_dimension); Datum unit_dimension(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *result; result = (Unit *) palloc(sizeof(Unit)); result->value = 1; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } /* operators */ PG_FUNCTION_INFO_V1(unit_add); Datum unit_add(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; test_same_dimension("+", a, b); result = (Unit *) palloc(sizeof(Unit)); result->value = a->value + b->value; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_sub); Datum unit_sub(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; test_same_dimension("-", a, b); result = (Unit *) palloc(sizeof(Unit)); result->value = a->value - b->value; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_neg); Datum unit_neg(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *result; result = (Unit *) palloc(sizeof(Unit)); result->value = - a->value; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_mul); Datum unit_mul(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; int i; result = (Unit *) palloc(sizeof(Unit)); result->value = a->value * b->value; for (i = 0; i < N_UNITS; i++) result->units[i] = a->units[i] + b->units[i]; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(dbl_unit_mul); Datum dbl_unit_mul(PG_FUNCTION_ARGS) { double a = PG_GETARG_FLOAT8(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; result = (Unit *) palloc(sizeof(Unit)); result->value = a * b->value; memcpy(result->units, b->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_dbl_mul); Datum unit_dbl_mul(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); double b = PG_GETARG_FLOAT8(1); Unit *result; result = (Unit *) palloc(sizeof(Unit)); result->value = a->value * b; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_div); Datum unit_div(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; int i; if (b->value == 0) ereport(ERROR, (errcode(ERRCODE_DIVISION_BY_ZERO), errmsg("division by zero-valued unit: \"%s\"", unit_cstring(b)))); result = (Unit *) palloc(sizeof(Unit)); result->value = a->value / b->value; for (i = 0; i < N_UNITS; i++) result->units[i] = a->units[i] - b->units[i]; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(dbl_unit_div); Datum dbl_unit_div(PG_FUNCTION_ARGS) { double a = PG_GETARG_FLOAT8(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); Unit *result; int i; if (b->value == 0) ereport(ERROR, (errcode(ERRCODE_DIVISION_BY_ZERO), errmsg("division by zero-valued unit: \"%s\"", unit_cstring(b)))); result = (Unit *) palloc(sizeof(Unit)); result->value = a / b->value; for (i = 0; i < N_UNITS; i++) result->units[i] = - b->units[i]; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_dbl_div); Datum unit_dbl_div(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); double b = PG_GETARG_FLOAT8(1); Unit *result; if (b == 0) ereport(ERROR, (errcode(ERRCODE_DIVISION_BY_ZERO), errmsg("division of unit by zero"))); result = (Unit *) palloc(sizeof(Unit)); result->value = a->value / b; memcpy(result->units, a->units, N_UNITS); PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_pow); Datum unit_pow(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); int b = PG_GETARG_INT32(1); Unit *result; int i; result = (Unit *) palloc(sizeof(Unit)); result->value = pow(a->value, b); for (i = 0; i < N_UNITS; i++) result->units[i] = a->units[i] * b; PG_RETURN_POINTER(result); } PG_FUNCTION_INFO_V1(unit_at); Datum unit_at(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); char *b = PG_GETARG_CSTRING(1); Unit bu; //int i; if (unit_parse(b, &bu) > 0) ereport(ERROR, (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION), errmsg("invalid input syntax for unit: \"%s\", %s", b, yyerrstr))); test_same_dimension("@", a, &bu); if (bu.value == 0) ereport(ERROR, (errcode(ERRCODE_DIVISION_BY_ZERO), errmsg("division by zero-valued unit: \"%s\"", b))); PG_RETURN_CSTRING(psprintf("%s %s%s", float8out_internal (a->value / bu.value), (atof(b) > 0 ? "* " : ""), b)); } /* comparisons */ static int unit_cmp_internal(Unit *a, Unit *b) { if (a->value < b->value) return -1; if (a->value > b->value) return 1; return memcmp(a->units, b->units, N_UNITS); } PG_FUNCTION_INFO_V1(unit_lt); Datum unit_lt(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) < 0); } PG_FUNCTION_INFO_V1(unit_le); Datum unit_le(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) <= 0); } PG_FUNCTION_INFO_V1(unit_eq); Datum unit_eq(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) == 0); } PG_FUNCTION_INFO_V1(unit_ne); Datum unit_ne(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) != 0); } PG_FUNCTION_INFO_V1(unit_ge); Datum unit_ge(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) >= 0); } PG_FUNCTION_INFO_V1(unit_gt); Datum unit_gt(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_BOOL(unit_cmp_internal(a, b) > 0); } PG_FUNCTION_INFO_V1(unit_cmp); Datum unit_cmp(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); PG_RETURN_INT32(unit_cmp_internal(a, b)); } PG_FUNCTION_INFO_V1(unit_least); Datum unit_least(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); test_same_dimension("unit_least", a, b); if (unit_cmp_internal(a, b) <= 0) PG_RETURN_POINTER(a); PG_RETURN_POINTER(b); } PG_FUNCTION_INFO_V1(unit_greatest); Datum unit_greatest(PG_FUNCTION_ARGS) { Unit *a = (Unit *) PG_GETARG_POINTER(0); Unit *b = (Unit *) PG_GETARG_POINTER(1); test_same_dimension("unit_greatest", a, b); if (unit_cmp_internal(a, b) >= 0) PG_RETURN_POINTER(a); PG_RETURN_POINTER(b); } unit/unit.control0000664000000000000000000000010413031171003011266 0ustar default_version = '2' comment = 'unit extension' relocatable = true unit/unit.h0000664000000000000000000000133612745760633010075 0ustar #ifndef _UNIT_H #define _UNIT_H 1 /* indices */ #define UNIT_m 0 /* meter */ #define UNIT_kg 1 /* kilogram */ #define UNIT_s 2 /* second */ #define UNIT_A 3 /* ampere */ #define UNIT_K 4 /* kelvin */ #define UNIT_mol 5 /* mole */ #define UNIT_cd 6 /* candela */ #define UNIT_B 7 /* byte */ #define N_UNITS 8 extern const char *base_units[N_UNITS]; typedef enum unit_flags { U_DERIVED = 1, } unit_flags; struct derived_unit_t { char *name; signed char units[N_UNITS]; double factor; unit_flags flags; }; extern const struct derived_unit_t derived_units[]; typedef struct Unit { double value; signed char units[N_UNITS]; } Unit; int unit_parse (char *s, Unit *unit); /* in unit.y */ #endif /* _UNIT_H */ unit/unitparse.l0000664000000000000000000001030713031153667011122 0ustar /* Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. */ %{ #include "unit.h" #include "unitparse.tab.h" #define when(x) if (!strcmp(yytext, x)) %} %option prefix="yyunit" %option noyywrap %option nounput %option noinput DOUBLE_R [\-+]?[0-9]*\.?[0-9]+([eE][\-+]?[0-9]+)? PREFIX_R (y|z|a|f|p|n|µ|mu|m|c|d|da|h|k|M|G|T|P|E|Z|Y) PFX_f_R (y|z|a|p|n|µ|mu|m|c|d|da|h|k|M|G|T|P|E|Z|Y) /* PFX_f_R: prefixes without "f" */ PFX_m_R (y|z|a|f|p|n|µ|mu|c|d|da|h|k|M|G|T|P|E|Z|Y) /* PFX_m_R: prefixes without "m" */ PFX_yc_R (z|a|f|p|n|µ|mu|m|d|da|h|k|M|G|T|P|E|Z|Y) /* PFX_yc_R: prefixes without "y" and "c" */ PFX_P_R (y|z|a|f|p|n|µ|mu|m|c|d|da|h|k|M|G|T|E|Z|Y) /* PFX_P_R: prefixes without "P" */ IEC_PREFIX_R (Ki|Mi|Gi|Ti|Pi|Ei|Zi|Yi) UNIT_R (m|g|s|A|K|mol|cd|B|rad|sr|Hz|N|Pa|J|W|C|V|F|Ω|ohm|S|Wb|T|H|°C|lm|lx|Bq|Gy|Sv|kat|l|bar|min|h|ft|yd|mi|oz|lb|t|d|a|in) PUNIT_R (m|g|s|A|K|mol|cd|B|rad|sr|Hz|N|Pa|J|W|C|V|F|Ω|ohm|S|Wb|T|H|°C|lm|lx|Bq|Gy|Sv|kat|l|bar|min|h|ft|yd|mi|oz|lb) /* PUNIT_R: units with generic prefix handling. Omissions: * t: conflict with "ft" * d: conflict with "cd" and "yd" * a: conflict with "Pa" * in: conflict with "min" */ EXP_R \^[\-+]?[0-9]+ %% {DOUBLE_R} { yyunitlval.DOUBLE = atof(yytext); return DOUBLE; } {PFX_f_R}/t | /* exclude "f" prefix for "t" */ {PFX_m_R}/in | /* exclude "m" prefix for "in" */ {PFX_yc_R}/d | /* exclude "y" and "c" prefixes for "d" */ d/a | /* flex bug? Without this, we get invalid input syntax for unit: "da", syntax error, unexpected $end, expecting UNIT */ {PFX_P_R}/a | /* exclude "P" prefix for "a" */ {PREFIX_R}/{PUNIT_R} { /* generic prefix matching */ when ("y") yyunitlval.DOUBLE = 1e-24; else when ("z") yyunitlval.DOUBLE = 1e-21; else when ("a") yyunitlval.DOUBLE = 1e-18; else when ("f") yyunitlval.DOUBLE = 1e-15; else when ("p") yyunitlval.DOUBLE = 1e-12; else when ("n") yyunitlval.DOUBLE = 1e-9; else when ("µ") yyunitlval.DOUBLE = 1e-6; else when ("mu") yyunitlval.DOUBLE = 1e-6; else when ("m") yyunitlval.DOUBLE = 1e-3; else when ("c") yyunitlval.DOUBLE = 1e-2; else when ("d") yyunitlval.DOUBLE = 1e-1; else when ("da") yyunitlval.DOUBLE = 1e1; else when ("h") yyunitlval.DOUBLE = 1e2; else when ("k") yyunitlval.DOUBLE = 1e3; else when ("M") yyunitlval.DOUBLE = 1e6; else when ("G") yyunitlval.DOUBLE = 1e9; else when ("T") yyunitlval.DOUBLE = 1e12; else when ("P") yyunitlval.DOUBLE = 1e15; else when ("E") yyunitlval.DOUBLE = 1e18; else when ("Z") yyunitlval.DOUBLE = 1e21; else when ("Y") yyunitlval.DOUBLE = 1e24; else return ERROR; return PREFIX; } {IEC_PREFIX_R}/B { /* IEC binary prefixes for Bytes only */ when ("Ki") yyunitlval.DOUBLE = 0x1p+10; else when ("Mi") yyunitlval.DOUBLE = 0x1p+20; else when ("Gi") yyunitlval.DOUBLE = 0x1p+30; else when ("Ti") yyunitlval.DOUBLE = 0x1p+40; else when ("Pi") yyunitlval.DOUBLE = 0x1p+50; else when ("Ei") yyunitlval.DOUBLE = 0x1p+60; else when ("Zi") yyunitlval.DOUBLE = 0x1p+70; else when ("Yi") yyunitlval.DOUBLE = 0x1p+80; else return ERROR; return PREFIX; } {UNIT_R} { int i; yyunitlval.UNIT.value = 1; /* check if this is a base unit */ for (i = 0; i < N_UNITS; i++) { if (!strcmp(yytext, base_units[i])) { bzero(&yyunitlval.UNIT.units, N_UNITS); yyunitlval.UNIT.units[i] = 1; return UNIT; } } /* check if this is a combination of base units we have a specific name for */ for (i = 0; derived_units[i].name; i++) if (!strcmp(derived_units[i].name, yytext)) { yyunitlval.UNIT.value = derived_units[i].factor; memcpy(&yyunitlval.UNIT.units, derived_units[i].units, N_UNITS); return UNIT; } /* should not happen */ return ERROR; } {EXP_R} { yyunitlval.EXPONENT = atoi(yytext+1); return EXPONENT; } \* return '*'; \/ return '/'; [ \t\n]* /* eat whitespace */ . return ERROR; unit/unitparse.tab.c0000664000000000000000000013402213030005337011644 0ustar /* A Bison parser, made by GNU Bison 3.0.4. */ /* Bison implementation for Yacc-like parsers in C Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ /* C LALR(1) parser skeleton written by Richard Stallman, by simplifying the original so-called "semantic" parser. */ /* All symbols defined below should begin with yy or YY, to avoid infringing on user name space. This should be done even for local variables, as they might otherwise be expanded by user macros. There are some unavoidable exceptions within include files to define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ /* Identify Bison output. */ #define YYBISON 1 /* Bison version. */ #define YYBISON_VERSION "3.0.4" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" /* Pure parsers. */ #define YYPURE 0 /* Push parsers. */ #define YYPUSH 0 /* Pull parsers. */ #define YYPULL 1 /* Substitute the type names. */ #define YYSTYPE YYUNITSTYPE /* Substitute the variable and function names. */ #define yyparse yyunitparse #define yylex yyunitlex #define yyerror yyuniterror #define yydebug yyunitdebug #define yynerrs yyunitnerrs #define yylval yyunitlval #define yychar yyunitchar /* Copy the first part of user declarations. */ #line 15 "unitparse.y" /* yacc.c:339 */ #include /* bzero */ #include /* pow */ #include "unit.h" /* flex/bison prototypes */ int yylex (void); struct yyunit_buffer_state *yyunit_scan_string(char *str); void yyunit_delete_buffer(struct yyunit_buffer_state *buffer); void yyerror (char const *s); static Unit *yyunit; /* parsing result gets stored here */ #line 89 "unitparse.tab.c" /* yacc.c:339 */ # ifndef YY_NULLPTR # if defined __cplusplus && 201103L <= __cplusplus # define YY_NULLPTR nullptr # else # define YY_NULLPTR 0 # endif # endif /* Enabling verbose error messages. */ #ifdef YYERROR_VERBOSE # undef YYERROR_VERBOSE # define YYERROR_VERBOSE 1 #else # define YYERROR_VERBOSE 1 #endif /* In a future release of Bison, this section will be replaced by #include "unitparse.tab.h". */ #ifndef YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED # define YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED /* Debug traces. */ #ifndef YYUNITDEBUG # if defined YYDEBUG #if YYDEBUG # define YYUNITDEBUG 1 # else # define YYUNITDEBUG 0 # endif # else /* ! defined YYDEBUG */ # define YYUNITDEBUG 0 # endif /* ! defined YYDEBUG */ #endif /* ! defined YYUNITDEBUG */ #if YYUNITDEBUG extern int yyunitdebug; #endif /* Token type. */ #ifndef YYUNITTOKENTYPE # define YYUNITTOKENTYPE enum yyunittokentype { DOUBLE = 258, PREFIX = 259, UNIT = 260, EXPONENT = 261, ERROR = 262 }; #endif /* Value type. */ #if ! defined YYUNITSTYPE && ! defined YYUNITSTYPE_IS_DECLARED union YYUNITSTYPE { /* UNIT */ Unit UNIT; /* input */ Unit input; /* dimension */ Unit dimension; /* DOUBLE */ double DOUBLE; /* PREFIX */ double PREFIX; /* dbl */ double dbl; /* maybe_prefix */ double maybe_prefix; /* EXPONENT */ int EXPONENT; /* maybe_exp */ int maybe_exp; #line 164 "unitparse.tab.c" /* yacc.c:355 */ }; typedef union YYUNITSTYPE YYUNITSTYPE; # define YYUNITSTYPE_IS_TRIVIAL 1 # define YYUNITSTYPE_IS_DECLARED 1 #endif extern YYUNITSTYPE yyunitlval; int yyunitparse (void); #endif /* !YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED */ /* Copy the second part of user declarations. */ #line 181 "unitparse.tab.c" /* yacc.c:358 */ #ifdef short # undef short #endif #ifdef YYTYPE_UINT8 typedef YYTYPE_UINT8 yytype_uint8; #else typedef unsigned char yytype_uint8; #endif #ifdef YYTYPE_INT8 typedef YYTYPE_INT8 yytype_int8; #else typedef signed char yytype_int8; #endif #ifdef YYTYPE_UINT16 typedef YYTYPE_UINT16 yytype_uint16; #else typedef unsigned short int yytype_uint16; #endif #ifdef YYTYPE_INT16 typedef YYTYPE_INT16 yytype_int16; #else typedef short int yytype_int16; #endif #ifndef YYSIZE_T # ifdef __SIZE_TYPE__ # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t # elif ! defined YYSIZE_T # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else # define YYSIZE_T unsigned int # endif #endif #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) #ifndef YY_ # if defined YYENABLE_NLS && YYENABLE_NLS # if ENABLE_NLS # include /* INFRINGES ON USER NAME SPACE */ # define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ # define YY_(Msgid) Msgid # endif #endif #ifndef YY_ATTRIBUTE # if (defined __GNUC__ \ && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C # define YY_ATTRIBUTE(Spec) __attribute__(Spec) # else # define YY_ATTRIBUTE(Spec) /* empty */ # endif #endif #ifndef YY_ATTRIBUTE_PURE # define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) #endif #ifndef YY_ATTRIBUTE_UNUSED # define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) #endif #if !defined _Noreturn \ && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) # if defined _MSC_VER && 1200 <= _MSC_VER # define _Noreturn __declspec (noreturn) # else # define _Noreturn YY_ATTRIBUTE ((__noreturn__)) # endif #endif /* Suppress unused-variable warnings by "using" E. */ #if ! defined lint || defined __GNUC__ # define YYUSE(E) ((void) (E)) #else # define YYUSE(E) /* empty */ #endif #if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ /* Suppress an incorrect diagnostic about yylval being uninitialized. */ # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") # define YY_IGNORE_MAYBE_UNINITIALIZED_END \ _Pragma ("GCC diagnostic pop") #else # define YY_INITIAL_VALUE(Value) Value #endif #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_END #endif #ifndef YY_INITIAL_VALUE # define YY_INITIAL_VALUE(Value) /* Nothing. */ #endif #if ! defined yyoverflow || YYERROR_VERBOSE /* The parser invokes alloca or malloc; define the necessary symbols. */ # ifdef YYSTACK_USE_ALLOCA # if YYSTACK_USE_ALLOCA # ifdef __GNUC__ # define YYSTACK_ALLOC __builtin_alloca # elif defined __BUILTIN_VA_ARG_INCR # include /* INFRINGES ON USER NAME SPACE */ # elif defined _AIX # define YYSTACK_ALLOC __alloca # elif defined _MSC_VER # include /* INFRINGES ON USER NAME SPACE */ # define alloca _alloca # else # define YYSTACK_ALLOC alloca # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS # include /* INFRINGES ON USER NAME SPACE */ /* Use EXIT_SUCCESS as a witness for stdlib.h. */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # endif # endif # endif # ifdef YYSTACK_ALLOC /* Pacify GCC's 'empty if-body' warning. */ # define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) # ifndef YYSTACK_ALLOC_MAXIMUM /* The OS might guarantee only one guard page at the bottom of the stack, and a page size can be as small as 4096 bytes. So we cannot safely invoke alloca (N) if N exceeds 4096. Use a slightly smaller number to allow for a few compiler-allocated temporary stack slots. */ # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ # endif # else # define YYSTACK_ALLOC YYMALLOC # define YYSTACK_FREE YYFREE # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif # if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc # if ! defined malloc && ! defined EXIT_SUCCESS void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ # endif # endif # ifndef YYFREE # define YYFREE free # if ! defined free && ! defined EXIT_SUCCESS void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ #if (! defined yyoverflow \ && (! defined __cplusplus \ || (defined YYUNITSTYPE_IS_TRIVIAL && YYUNITSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { yytype_int16 yyss_alloc; YYSTYPE yyvs_alloc; }; /* The size of the maximum gap between one aligned stack and the next. */ # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) /* The size of an array large to enough to hold all stacks, each with N elements. */ # define YYSTACK_BYTES(N) \ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) # define YYCOPY_NEEDED 1 /* Relocate STACK from its old location to the new one. The local variables YYSIZE and YYSTACKSIZE give the old and new number of elements in the stack, and YYPTR gives the new location of the stack. Advance YYPTR to a properly aligned location for the next stack. */ # define YYSTACK_RELOCATE(Stack_alloc, Stack) \ do \ { \ YYSIZE_T yynewbytes; \ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ Stack = &yyptr->Stack_alloc; \ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ yyptr += yynewbytes / sizeof (*yyptr); \ } \ while (0) #endif #if defined YYCOPY_NEEDED && YYCOPY_NEEDED /* Copy COUNT objects from SRC to DST. The source and destination do not overlap. */ # ifndef YYCOPY # if defined __GNUC__ && 1 < __GNUC__ # define YYCOPY(Dst, Src, Count) \ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) # else # define YYCOPY(Dst, Src, Count) \ do \ { \ YYSIZE_T yyi; \ for (yyi = 0; yyi < (Count); yyi++) \ (Dst)[yyi] = (Src)[yyi]; \ } \ while (0) # endif # endif #endif /* !YYCOPY_NEEDED */ /* YYFINAL -- State number of the termination state. */ #define YYFINAL 4 /* YYLAST -- Last index in YYTABLE. */ #define YYLAST 10 /* YYNTOKENS -- Number of terminals. */ #define YYNTOKENS 10 /* YYNNTS -- Number of nonterminals. */ #define YYNNTS 6 /* YYNRULES -- Number of rules. */ #define YYNRULES 12 /* YYNSTATES -- Number of states. */ #define YYNSTATES 15 /* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned by yylex, with out-of-bounds checking. */ #define YYUNDEFTOK 2 #define YYMAXUTOK 262 #define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM as returned by yylex, without out-of-bounds checking. */ static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 9, 2, 2, 2, 2, 8, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7 }; #if YYUNITDEBUG /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint8 yyrline[] = { 0, 48, 48, 57, 58, 62, 63, 75, 81, 90, 91, 95, 96 }; #endif #if YYUNITDEBUG || YYERROR_VERBOSE || 1 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at YYNTOKENS, nonterminals. */ static const char *const yytname[] = { "$end", "error", "$undefined", "DOUBLE", "PREFIX", "UNIT", "EXPONENT", "ERROR", "'/'", "'*'", "$accept", "input", "dbl", "dimension", "maybe_prefix", "maybe_exp", YY_NULLPTR }; #endif # ifdef YYPRINT /* YYTOKNUM[NUM] -- (External) token number corresponding to the (internal) symbol number NUM (which must be that of a token). */ static const yytype_uint16 yytoknum[] = { 0, 256, 257, 258, 259, 260, 261, 262, 47, 42 }; # endif #define YYPACT_NINF -7 #define yypact_value_is_default(Yystate) \ (!!((Yystate) == (-7))) #define YYTABLE_NINF -10 #define yytable_value_is_error(Yytable_value) \ 0 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ static const yytype_int8 yypact[] = { 1, -7, 7, -4, -7, -7, -6, 3, -4, -4, 4, 0, 0, -7, -7 }; /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. Performed when YYTABLE does not specify something else to do. Zero means the default is an error. */ static const yytype_uint8 yydefact[] = { 3, 4, 0, 5, 1, 10, 2, 0, 5, 5, 11, 8, 7, 12, 6 }; /* YYPGOTO[NTERM-NUM]. */ static const yytype_int8 yypgoto[] = { -7, -7, -7, -3, -7, -7 }; /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int8 yydefgoto[] = { -1, 2, 3, 6, 7, 14 }; /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule whose number is the opposite. If YYTABLE_NINF, syntax error. */ static const yytype_int8 yytable[] = { 5, -9, 8, 9, 1, 11, 12, 4, 10, 9, 13 }; static const yytype_uint8 yycheck[] = { 4, 5, 8, 9, 3, 8, 9, 0, 5, 9, 6 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ static const yytype_uint8 yystos[] = { 0, 3, 11, 12, 0, 4, 13, 14, 8, 9, 5, 13, 13, 6, 15 }; /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ static const yytype_uint8 yyr1[] = { 0, 10, 11, 12, 12, 13, 13, 13, 13, 14, 14, 15, 15 }; /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ static const yytype_uint8 yyr2[] = { 0, 2, 2, 0, 1, 0, 3, 3, 3, 0, 1, 0, 1 }; #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY (-2) #define YYEOF 0 #define YYACCEPT goto yyacceptlab #define YYABORT goto yyabortlab #define YYERROR goto yyerrorlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(Token, Value) \ do \ if (yychar == YYEMPTY) \ { \ yychar = (Token); \ yylval = (Value); \ YYPOPSTACK (yylen); \ yystate = *yyssp; \ goto yybackup; \ } \ else \ { \ yyerror (YY_("syntax error: cannot back up")); \ YYERROR; \ } \ while (0) /* Error token number */ #define YYTERROR 1 #define YYERRCODE 256 /* Enable debugging if requested. */ #if YYUNITDEBUG # ifndef YYFPRINTF # include /* INFRINGES ON USER NAME SPACE */ # define YYFPRINTF fprintf # endif # define YYDPRINTF(Args) \ do { \ if (yydebug) \ YYFPRINTF Args; \ } while (0) /* This macro is provided for backward compatibility. */ #ifndef YY_LOCATION_PRINT # define YY_LOCATION_PRINT(File, Loc) ((void) 0) #endif # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ do { \ if (yydebug) \ { \ YYFPRINTF (stderr, "%s ", Title); \ yy_symbol_print (stderr, \ Type, Value); \ YYFPRINTF (stderr, "\n"); \ } \ } while (0) /*----------------------------------------. | Print this symbol's value on YYOUTPUT. | `----------------------------------------*/ static void yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) { FILE *yyo = yyoutput; YYUSE (yyo); if (!yyvaluep) return; # ifdef YYPRINT if (yytype < YYNTOKENS) YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); # endif YYUSE (yytype); } /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ static void yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) { YYFPRINTF (yyoutput, "%s %s (", yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); yy_symbol_value_print (yyoutput, yytype, yyvaluep); YYFPRINTF (yyoutput, ")"); } /*------------------------------------------------------------------. | yy_stack_print -- Print the state stack from its BOTTOM up to its | | TOP (included). | `------------------------------------------------------------------*/ static void yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) { int yybot = *yybottom; YYFPRINTF (stderr, " %d", yybot); } YYFPRINTF (stderr, "\n"); } # define YY_STACK_PRINT(Bottom, Top) \ do { \ if (yydebug) \ yy_stack_print ((Bottom), (Top)); \ } while (0) /*------------------------------------------------. | Report that the YYRULE is going to be reduced. | `------------------------------------------------*/ static void yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule) { unsigned long int yylno = yyrline[yyrule]; int yynrhs = yyr2[yyrule]; int yyi; YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", yyrule - 1, yylno); /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { YYFPRINTF (stderr, " $%d = ", yyi + 1); yy_symbol_print (stderr, yystos[yyssp[yyi + 1 - yynrhs]], &yyvsp[(yyi + 1) - (yynrhs)] ); YYFPRINTF (stderr, "\n"); } } # define YY_REDUCE_PRINT(Rule) \ do { \ if (yydebug) \ yy_reduce_print (yyssp, yyvsp, Rule); \ } while (0) /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ int yydebug; #else /* !YYUNITDEBUG */ # define YYDPRINTF(Args) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) # define YY_STACK_PRINT(Bottom, Top) # define YY_REDUCE_PRINT(Rule) #endif /* !YYUNITDEBUG */ /* YYINITDEPTH -- initial size of the parser's stacks. */ #ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only if the built-in stack extension method is used). Do not make this value too large; the results are undefined if YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) evaluated with infinite-precision integer arithmetic. */ #ifndef YYMAXDEPTH # define YYMAXDEPTH 10000 #endif #if YYERROR_VERBOSE # ifndef yystrlen # if defined __GLIBC__ && defined _STRING_H # define yystrlen strlen # else /* Return the length of YYSTR. */ static YYSIZE_T yystrlen (const char *yystr) { YYSIZE_T yylen; for (yylen = 0; yystr[yylen]; yylen++) continue; return yylen; } # endif # endif # ifndef yystpcpy # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE # define yystpcpy stpcpy # else /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in YYDEST. */ static char * yystpcpy (char *yydest, const char *yysrc) { char *yyd = yydest; const char *yys = yysrc; while ((*yyd++ = *yys++) != '\0') continue; return yyd - 1; } # endif # endif # ifndef yytnamerr /* Copy to YYRES the contents of YYSTR after stripping away unnecessary quotes and backslashes, so that it's suitable for yyerror. The heuristic is that double-quoting is unnecessary unless the string contains an apostrophe, a comma, or backslash (other than backslash-backslash). YYSTR is taken from yytname. If YYRES is null, do not copy; instead, return the length of what the result would have been. */ static YYSIZE_T yytnamerr (char *yyres, const char *yystr) { if (*yystr == '"') { YYSIZE_T yyn = 0; char const *yyp = yystr; for (;;) switch (*++yyp) { case '\'': case ',': goto do_not_strip_quotes; case '\\': if (*++yyp != '\\') goto do_not_strip_quotes; /* Fall through. */ default: if (yyres) yyres[yyn] = *yyp; yyn++; break; case '"': if (yyres) yyres[yyn] = '\0'; return yyn; } do_not_strip_quotes: ; } if (! yyres) return yystrlen (yystr); return yystpcpy (yyres, yystr) - yyres; } # endif /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message about the unexpected token YYTOKEN for the state stack whose top is YYSSP. Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is not large enough to hold the message. In that case, also set *YYMSG_ALLOC to the required number of bytes. Return 2 if the required number of bytes is too large to store. */ static int yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, yytype_int16 *yyssp, int yytoken) { YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); YYSIZE_T yysize = yysize0; enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; /* Internationalized format string. */ const char *yyformat = YY_NULLPTR; /* Arguments of yyformat. */ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; /* Number of reported tokens (one for the "unexpected", one per "expected"). */ int yycount = 0; /* There are many possibilities here to consider: - If this state is a consistent state with a default action, then the only way this function was invoked is if the default action is an error action. In that case, don't check for expected tokens because there are none. - The only way there can be no lookahead present (in yychar) is if this state is a consistent state with a default action. Thus, detecting the absence of a lookahead is sufficient to determine that there is no unexpected or expected token to report. In that case, just report a simple "syntax error". - Don't assume there isn't a lookahead just because this state is a consistent state with a default action. There might have been a previous inconsistent state, consistent state with a non-default action, or user semantic action that manipulated yychar. - Of course, the expected token list depends on states to have correct lookahead information, and it depends on the parser not to perform extra reductions after fetching a lookahead from the scanner and before detecting a syntax error. Thus, state merging (from LALR or IELR) and default reductions corrupt the expected token list. However, the list is correct for canonical LR with one exception: it will still contain any token that will not be accepted due to an error action in a later state. */ if (yytoken != YYEMPTY) { int yyn = yypact[*yyssp]; yyarg[yycount++] = yytname[yytoken]; if (!yypact_value_is_default (yyn)) { /* Start YYX at -YYN if negative to avoid negative indexes in YYCHECK. In other words, skip the first -YYN actions for this state because they are default actions. */ int yyxbegin = yyn < 0 ? -yyn : 0; /* Stay within bounds of both yycheck and yytname. */ int yychecklim = YYLAST - yyn + 1; int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; int yyx; for (yyx = yyxbegin; yyx < yyxend; ++yyx) if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR && !yytable_value_is_error (yytable[yyx + yyn])) { if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) { yycount = 1; yysize = yysize0; break; } yyarg[yycount++] = yytname[yyx]; { YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; } } } } switch (yycount) { # define YYCASE_(N, S) \ case N: \ yyformat = S; \ break YYCASE_(0, YY_("syntax error")); YYCASE_(1, YY_("syntax error, unexpected %s")); YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); # undef YYCASE_ } { YYSIZE_T yysize1 = yysize + yystrlen (yyformat); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; } if (*yymsg_alloc < yysize) { *yymsg_alloc = 2 * yysize; if (! (yysize <= *yymsg_alloc && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; return 1; } /* Avoid sprintf, as that infringes on the user's name space. Don't have undefined behavior even if the translation produced a string with the wrong number of "%s"s. */ { char *yyp = *yymsg; int yyi = 0; while ((*yyp = *yyformat) != '\0') if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) { yyp += yytnamerr (yyp, yyarg[yyi++]); yyformat += 2; } else { yyp++; yyformat++; } } return 0; } #endif /* YYERROR_VERBOSE */ /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ static void yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) { YYUSE (yyvaluep); if (!yymsg) yymsg = "Deleting"; YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN YYUSE (yytype); YY_IGNORE_MAYBE_UNINITIALIZED_END } /* The lookahead symbol. */ int yychar; /* The semantic value of the lookahead symbol. */ YYSTYPE yylval; /* Number of syntax errors so far. */ int yynerrs; /*----------. | yyparse. | `----------*/ int yyparse (void) { int yystate; /* Number of tokens to shift before error messages enabled. */ int yyerrstatus; /* The stacks and their tools: 'yyss': related to states. 'yyvs': related to semantic values. Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ /* The state stack. */ yytype_int16 yyssa[YYINITDEPTH]; yytype_int16 *yyss; yytype_int16 *yyssp; /* The semantic value stack. */ YYSTYPE yyvsa[YYINITDEPTH]; YYSTYPE *yyvs; YYSTYPE *yyvsp; YYSIZE_T yystacksize; int yyn; int yyresult; /* Lookahead token as an internal (translated) token number. */ int yytoken = 0; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; #if YYERROR_VERBOSE /* Buffer for error messages, and its allocated size. */ char yymsgbuf[128]; char *yymsg = yymsgbuf; YYSIZE_T yymsg_alloc = sizeof yymsgbuf; #endif #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) /* The number of symbols on the RHS of the reduced rule. Keep to zero when no symbol should be popped. */ int yylen = 0; yyssp = yyss = yyssa; yyvsp = yyvs = yyvsa; yystacksize = YYINITDEPTH; YYDPRINTF ((stderr, "Starting parse\n")); yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ goto yysetstate; /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | `------------------------------------------------------------*/ yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; yysetstate: *yyssp = yystate; if (yyss + yystacksize - 1 <= yyssp) { /* Get the current used size of the three stacks, in elements. */ YYSIZE_T yysize = yyssp - yyss + 1; #ifdef yyoverflow { /* Give user a chance to reallocate the stack. Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; yytype_int16 *yyss1 = yyss; /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow (YY_("memory exhausted"), &yyss1, yysize * sizeof (*yyssp), &yyvs1, yysize * sizeof (*yyvsp), &yystacksize); yyss = yyss1; yyvs = yyvs1; } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE goto yyexhaustedlab; # else /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) goto yyexhaustedlab; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) yystacksize = YYMAXDEPTH; { yytype_int16 *yyss1 = yyss; union yyalloc *yyptr = (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); if (! yyptr) goto yyexhaustedlab; YYSTACK_RELOCATE (yyss_alloc, yyss); YYSTACK_RELOCATE (yyvs_alloc, yyvs); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); } # endif #endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; YYDPRINTF ((stderr, "Stack size increased to %lu\n", (unsigned long int) yystacksize)); if (yyss + yystacksize - 1 <= yyssp) YYABORT; } YYDPRINTF ((stderr, "Entering state %d\n", yystate)); if (yystate == YYFINAL) YYACCEPT; goto yybackup; /*-----------. | yybackup. | `-----------*/ yybackup: /* Do appropriate processing given the current state. Read a lookahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ if (yychar == YYEMPTY) { YYDPRINTF ((stderr, "Reading a token: ")); yychar = yylex (); } if (yychar <= YYEOF) { yychar = yytoken = YYEOF; YYDPRINTF ((stderr, "Now at end of input.\n")); } else { yytoken = YYTRANSLATE (yychar); YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } /* If the proper action on seeing token YYTOKEN is to reduce or to detect an error, take that action. */ yyn += yytoken; if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) goto yydefault; yyn = yytable[yyn]; if (yyn <= 0) { if (yytable_value_is_error (yyn)) goto yyerrlab; yyn = -yyn; goto yyreduce; } /* Count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; /* Shift the lookahead token. */ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); /* Discard the shifted token. */ yychar = YYEMPTY; yystate = yyn; YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ yyreduce: /* yyn is the number of a rule to reduce with. */ yylen = yyr2[yyn]; /* If YYLEN is nonzero, implement the default value of the action: '$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison users should not rely upon it. Assigning to YYVAL unconditionally makes the parser a bit smaller, and it avoids a GCC warning that YYVAL may be used uninitialized. */ yyval = yyvsp[1-yylen]; YY_REDUCE_PRINT (yyn); switch (yyn) { case 2: #line 48 "unitparse.y" /* yacc.c:1646 */ { int i; yyunit->value = (*(double*)(&yyvsp[-1])) * (*(Unit*)(&yyvsp[0])).value; for (i = 0; i < N_UNITS; i++) yyunit->units[i] = (*(Unit*)(&yyvsp[0])).units[i]; } #line 1261 "unitparse.tab.c" /* yacc.c:1646 */ break; case 3: #line 57 "unitparse.y" /* yacc.c:1646 */ { (*(double*)(&yyval)) = 1.0; } #line 1267 "unitparse.tab.c" /* yacc.c:1646 */ break; case 5: #line 62 "unitparse.y" /* yacc.c:1646 */ { (*(Unit*)(&yyval)).value = 1.0; bzero(&(*(Unit*)(&yyval)).units, N_UNITS); } #line 1273 "unitparse.tab.c" /* yacc.c:1646 */ break; case 6: #line 63 "unitparse.y" /* yacc.c:1646 */ { int i; if ((*(int*)(&yyvsp[0])) != 1) { (*(Unit*)(&yyval)).value = pow((*(double*)(&yyvsp[-2])) * (*(Unit*)(&yyvsp[-1])).value, (*(int*)(&yyvsp[0]))); for (i = 0; i < N_UNITS; i++) (*(Unit*)(&yyval)).units[i] = (*(Unit*)(&yyvsp[-1])).units[i] * (*(int*)(&yyvsp[0])); } else { (*(Unit*)(&yyval)).value = (*(double*)(&yyvsp[-2])) * (*(Unit*)(&yyvsp[-1])).value; for (i = 0; i < N_UNITS; i++) (*(Unit*)(&yyval)).units[i] = (*(Unit*)(&yyvsp[-1])).units[i]; } } #line 1290 "unitparse.tab.c" /* yacc.c:1646 */ break; case 7: #line 75 "unitparse.y" /* yacc.c:1646 */ { int i; (*(Unit*)(&yyval)).value = (*(Unit*)(&yyvsp[-2])).value * (*(Unit*)(&yyvsp[0])).value; for (i = 0; i < N_UNITS; i++) (*(Unit*)(&yyval)).units[i] = (*(Unit*)(&yyvsp[-2])).units[i] + (*(Unit*)(&yyvsp[0])).units[i]; } #line 1301 "unitparse.tab.c" /* yacc.c:1646 */ break; case 8: #line 81 "unitparse.y" /* yacc.c:1646 */ { int i; (*(Unit*)(&yyval)).value = (*(Unit*)(&yyvsp[-2])).value / (*(Unit*)(&yyvsp[0])).value; for (i = 0; i < N_UNITS; i++) (*(Unit*)(&yyval)).units[i] = (*(Unit*)(&yyvsp[-2])).units[i] - (*(Unit*)(&yyvsp[0])).units[i]; } #line 1312 "unitparse.tab.c" /* yacc.c:1646 */ break; case 9: #line 90 "unitparse.y" /* yacc.c:1646 */ { (*(double*)(&yyval)) = 1.0; } #line 1318 "unitparse.tab.c" /* yacc.c:1646 */ break; case 11: #line 95 "unitparse.y" /* yacc.c:1646 */ { (*(int*)(&yyval)) = 1; } #line 1324 "unitparse.tab.c" /* yacc.c:1646 */ break; #line 1328 "unitparse.tab.c" /* yacc.c:1646 */ default: break; } /* User semantic actions sometimes alter yychar, and that requires that yytoken be updated with the new translation. We take the approach of translating immediately before every use of yytoken. One alternative is translating here after every semantic action, but that translation would be missed if the semantic action invokes YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an incorrect destructor might then be invoked immediately. In the case of YYERROR or YYBACKUP, subsequent parser actions might lead to an incorrect destructor call or verbose syntax error message before the lookahead is translated. */ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; /* Now 'shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTOKENS]; goto yynewstate; /*--------------------------------------. | yyerrlab -- here on detecting error. | `--------------------------------------*/ yyerrlab: /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); /* If not already recovering from an error, report this error. */ if (!yyerrstatus) { ++yynerrs; #if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); #else # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ yyssp, yytoken) { char const *yymsgp = YY_("syntax error"); int yysyntax_error_status; yysyntax_error_status = YYSYNTAX_ERROR; if (yysyntax_error_status == 0) yymsgp = yymsg; else if (yysyntax_error_status == 1) { if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); if (!yymsg) { yymsg = yymsgbuf; yymsg_alloc = sizeof yymsgbuf; yysyntax_error_status = 2; } else { yysyntax_error_status = YYSYNTAX_ERROR; yymsgp = yymsg; } } yyerror (yymsgp); if (yysyntax_error_status == 2) goto yyexhaustedlab; } # undef YYSYNTAX_ERROR #endif } if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an error, discard it. */ if (yychar <= YYEOF) { /* Return failure if at end of input. */ if (yychar == YYEOF) YYABORT; } else { yydestruct ("Error: discarding", yytoken, &yylval); yychar = YYEMPTY; } } /* Else will try to reuse lookahead token after shifting the error token. */ goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ yyerrorlab: /* Pacify compilers like GCC when the user code never invokes YYERROR and the label yyerrorlab therefore never appears in user code. */ if (/*CONSTCOND*/ 0) goto yyerrorlab; /* Do not reclaim the symbols of the rule whose action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: yyerrstatus = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact[yystate]; if (!yypact_value_is_default (yyn)) { yyn += YYTERROR; if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { yyn = yytable[yyn]; if (0 < yyn) break; } } /* Pop the current state because it cannot handle the error token. */ if (yyssp == yyss) YYABORT; yydestruct ("Error: popping", yystos[yystate], yyvsp); YYPOPSTACK (1); yystate = *yyssp; YY_STACK_PRINT (yyss, yyssp); } YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END /* Shift the error token. */ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); yystate = yyn; goto yynewstate; /*-------------------------------------. | yyacceptlab -- YYACCEPT comes here. | `-------------------------------------*/ yyacceptlab: yyresult = 0; goto yyreturn; /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; goto yyreturn; #if !defined yyoverflow || YYERROR_VERBOSE /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; /* Fall through. */ #endif yyreturn: if (yychar != YYEMPTY) { /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = YYTRANSLATE (yychar); yydestruct ("Cleanup: discarding lookahead", yytoken, &yylval); } /* Do not reclaim the symbols of the rule whose action triggered this YYABORT or YYACCEPT. */ YYPOPSTACK (yylen); YY_STACK_PRINT (yyss, yyssp); while (yyssp != yyss) { yydestruct ("Cleanup: popping", yystos[*yyssp], yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif #if YYERROR_VERBOSE if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); #endif return yyresult; } #line 99 "unitparse.y" /* yacc.c:1906 */ /* parse a given string and return the result via the second argument */ int unit_parse (char *s, Unit *unit) { struct yyunit_buffer_state *buf; int ret; yyunit = unit; buf = yyunit_scan_string(s); ret = yyunitparse(); yyunit_delete_buffer(buf); return ret; } unit/unitparse.tab.h0000664000000000000000000000534413030005337011655 0ustar /* A Bison parser, made by GNU Bison 3.0.4. */ /* Bison interface for Yacc-like parsers in C Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ #ifndef YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED # define YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED /* Debug traces. */ #ifndef YYUNITDEBUG # if defined YYDEBUG #if YYDEBUG # define YYUNITDEBUG 1 # else # define YYUNITDEBUG 0 # endif # else /* ! defined YYDEBUG */ # define YYUNITDEBUG 0 # endif /* ! defined YYDEBUG */ #endif /* ! defined YYUNITDEBUG */ #if YYUNITDEBUG extern int yyunitdebug; #endif /* Token type. */ #ifndef YYUNITTOKENTYPE # define YYUNITTOKENTYPE enum yyunittokentype { DOUBLE = 258, PREFIX = 259, UNIT = 260, EXPONENT = 261, ERROR = 262 }; #endif /* Value type. */ #if ! defined YYUNITSTYPE && ! defined YYUNITSTYPE_IS_DECLARED union YYUNITSTYPE { /* UNIT */ Unit UNIT; /* input */ Unit input; /* dimension */ Unit dimension; /* DOUBLE */ double DOUBLE; /* PREFIX */ double PREFIX; /* dbl */ double dbl; /* maybe_prefix */ double maybe_prefix; /* EXPONENT */ int EXPONENT; /* maybe_exp */ int maybe_exp; #line 89 "unitparse.tab.h" /* yacc.c:1909 */ }; typedef union YYUNITSTYPE YYUNITSTYPE; # define YYUNITSTYPE_IS_TRIVIAL 1 # define YYUNITSTYPE_IS_DECLARED 1 #endif extern YYUNITSTYPE yyunitlval; int yyunitparse (void); #endif /* !YY_YYUNIT_UNITPARSE_TAB_H_INCLUDED */ unit/unitparse.y0000664000000000000000000000450413030005336011125 0ustar /* Copyright (C) 2016 Christoph Berg This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. */ %{ #include /* bzero */ #include /* pow */ #include "unit.h" /* flex/bison prototypes */ int yylex (void); struct yyunit_buffer_state *yyunit_scan_string(char *str); void yyunit_delete_buffer(struct yyunit_buffer_state *buffer); void yyerror (char const *s); static Unit *yyunit; /* parsing result gets stored here */ %} %define parse.error verbose %define api.prefix {yyunit} %define api.value.type union %token DOUBLE %token PREFIX %token UNIT %token EXPONENT %token ERROR %type dbl maybe_prefix; %type input dimension %type maybe_exp %left '/' %precedence '*' /* * binds stronger than / */ %% input: dbl dimension { int i; yyunit->value = $1 * $2.value; for (i = 0; i < N_UNITS; i++) yyunit->units[i] = $2.units[i]; } ; dbl: %empty { $$ = 1.0; } | DOUBLE ; dimension: %empty { $$.value = 1.0; bzero(&$$.units, N_UNITS); } | maybe_prefix UNIT maybe_exp { int i; if ($3 != 1) { $$.value = pow($1 * $2.value, $3); for (i = 0; i < N_UNITS; i++) $$.units[i] = $2.units[i] * $3; } else { $$.value = $1 * $2.value; for (i = 0; i < N_UNITS; i++) $$.units[i] = $2.units[i]; } } | dimension '*' dimension { int i; $$.value = $1.value * $3.value; for (i = 0; i < N_UNITS; i++) $$.units[i] = $1.units[i] + $3.units[i]; } | dimension '/' dimension { int i; $$.value = $1.value / $3.value; for (i = 0; i < N_UNITS; i++) $$.units[i] = $1.units[i] - $3.units[i]; } ; maybe_prefix: %empty { $$ = 1.0; } | PREFIX ; maybe_exp: %empty { $$ = 1; } | EXPONENT ; %% /* parse a given string and return the result via the second argument */ int unit_parse (char *s, Unit *unit) { struct yyunit_buffer_state *buf; int ret; yyunit = unit; buf = yyunit_scan_string(s); ret = yyunitparse(); yyunit_delete_buffer(buf); return ret; } unit/unittest.c0000664000000000000000000000132112745504461010755 0ustar #include #include "unit.h" #include "defined_units.h" void yyuniterror (char const *s); void unitprint (Unit *unit); void parse (char *s); void yyuniterror (char const *s) { fprintf (stderr, "yyuniterror: %s\n", s); } void unitprint (Unit *unit) { int i; printf("%g", unit->value); for (i = 0; i < N_UNITS; i++) if (unit->units[i] != 0) printf(" %s^%d", base_units[i], unit->units[i]); printf("\n"); } void parse (char *s) { Unit unit; printf("%s:\t", s); if (unit_parse(s, &unit) > 0) printf ("parse error\n"); else unitprint(&unit); } int main (int argc, char **argv) { parse("2 km"); parse("km"); parse("2 s^2"); parse("22"); parse("4m/s"); parse("bad"); parse("9.81 m/s*s"); }