hg/stx-libbasic2: UnitConverter.st@cf61a7dfeca6 (annotated)

884 1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	1	"
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	2	COPYRIGHT (c) 1996 eXept Software AG
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	3	All Rights Reserved
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	4
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	5	This software is furnished under a license and may be used
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	6	only in accordance with the terms of that license and with the
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	7	inclusion of the above copyright notice. This software may not
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	8	be provided or otherwise made available to, or used by, any
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	9	other person. No title to or ownership of the software is
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	10	hereby transferred.
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	11	"
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	12
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	13
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	14
981 5bbc2823967e ounce thanks to christian Claus Gittinger <cg@exept.de> parents: 886 diff changeset	15	"{ Package: 'stx:libbasic2' }"
5bbc2823967e ounce thanks to christian Claus Gittinger <cg@exept.de> parents: 886 diff changeset	16
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	Object subclass:#UnitConverter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	instanceVariableNames:''
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	19	classVariableNames:'Conversions Scaling Aliases Constants'
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	poolDictionaries:''
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	category:'Magnitude-General'
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!UnitConverter class methodsFor:'documentation'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
884 1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	26	copyright
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	27	"
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	28	COPYRIGHT (c) 1996 eXept Software AG
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	29	All Rights Reserved
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	30
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	31	This software is furnished under a license and may be used
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	32	only in accordance with the terms of that license and with the
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	33	inclusion of the above copyright notice. This software may not
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	34	be provided or otherwise made available to, or used by, any
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	35	other person. No title to or ownership of the software is
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	36	hereby transferred.
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	37	"
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	38
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	39
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	40	!
1345b2f1cf43 copyrights Claus Gittinger <cg@exept.de> parents: 868 diff changeset	41
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	documentation
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	In order to collect various unit conversions into one central
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	manageable (and especially: browsable) place, all previously
564 9d5d54a11553 * empty log message * Claus Gittinger <cg@exept.de> parents: 556 diff changeset	46	spread knowledge about metric (and other) conversions has been
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	brought into this class.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	This class is purely functional, abstract and has no instances;
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	all queries are via class protocol.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	Choosing the Magnitudes category as its home is arbitrary.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	53	The supported units are setup in the classes initialize method;
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	54	supported are:
886 e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	55	meter - inch - feet - foot - yard
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	56	meter2 - acre - 'german-ar' 'german-hektar' are
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	57	liter - gallon - barrel - floz
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	58	celsius - fahrenheit
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	59	and many others.
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	60
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	61	The converter does a recursive search for a conversion;
d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	62	thus, if there is a conversion from #inch to #millimeter and another
d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	63	from #millimeter to #kilometer, conversion from #inch to #kilometer
d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	64	is found automatically.
d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	65
886 e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	66	No Warranty:
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	67	The numbers and conversion factors were obtained from the Unix
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	68	units command. Please check before using it - there might be
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	69	typos or wrong conversions in the setup code.
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	70
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	71
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	[author:]
886 e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	73	Claus Gittinger
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	see also:
886 e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	76	examples
e2f639b6b0f6 warning added to doc Claus Gittinger <cg@exept.de> parents: 884 diff changeset	77	/usr/share/lib/unittab (if present on your system)
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	examples
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	ever wanted to know, how many floz's are there in a european
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	Coce bottle ?
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	85	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	86	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	87	(UnitConverter convert:1 from:#liter to:#floz)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	88	[exEnd]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	89
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	90	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	91	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	92	(UnitConverter convert:43.5 from:#oz to:#gram)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	93	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	94
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	or, how many square-meters an acre is:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	96	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	97	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	98	(UnitConverter convert:1 from:#acre to:#'meter^2')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	99	[exEnd]
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	101
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	102	or europeans might want to know, what those
d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	103	fahrenheit numbers mean in an US weather report ;-):
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	104	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	105	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	106	(UnitConverter convert:80 from:#fahrenheit to:#celsius)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	107	asFixedPoint:1)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	108	[exEnd]
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	109
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	110
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	111	how fast do I drive ? :-)
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	112	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	113	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	114	UnitConverter convert:200 from:#'km/hr' to:#'mile/hr')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	115	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	116	how fast does Chris drive ? :-)
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	117	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	118	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	119	UnitConverter convert:65 from:#'mile/hr' to:#'km/hr')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	120	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	121
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	122
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	123	calories or joule ?
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	124	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	125	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	126	UnitConverter convert:0.18 from:#'kilocalorie' to:#'kilojoule')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	127	[exEnd]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	128	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	129	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	130	UnitConverter convert:2000 from:#'kilocalorie' to:#'kilojoule')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	131	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	132
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	133
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	134	distances:
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	135
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	136	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	137	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	138	UnitConverter convert:1 from:#'lightsecond' to:#'kilometer')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	139	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	140	thats the same:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	141	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	142	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	143	UnitConverter convert:1 from:#'lightspeed*s' to:#'kilometer')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	144	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	145	a days travel ...
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	146	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	147	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	148	UnitConverter convert:1 from:#'lightspeed*dy' to:#'kilometer')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	149	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	150	a year travel ...
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	151	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	152	Transcript showCR:(
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	153	UnitConverter convert:1 from:#'lightyear' to:#'kilometer')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	154	[exEnd]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	155
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	156
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	real estate buyers might want to know, how many acres
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	a german ar is:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	159	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	160	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	161	(UnitConverter convert:1 from:#'german-ar' to:#acre)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	162	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	163	- or how many square-feet are there in your living room:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	164	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	165	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	166	(UnitConverter convert:100 from:#'meter^2' to:#'foot^2')
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	167	[exEnd]
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	168	- or how about:
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	169	[exBegin]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	170	Transcript showCR:
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	171	(UnitConverter convert:3600 from:#'ftft' to:#'m,')
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	172	[exEnd]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	173
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	174
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	175	how many tea spoons are there in a cubic meter ?
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	176	(roughly, since a teaspoon is not a standard unit)
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	177	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	178	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	179	(UnitConverter convert:1 from:#'meter^3' to:#teaspoon)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	180	[exEnd]
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	181	how wide is a US page in inches:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	182	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	183	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	184	(UnitConverter convert:1 from:#'letterW' to:#inch)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	185	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	186	- in millimeter:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	187	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	188	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	189	(UnitConverter convert:1 from:#'letterW' to:#mm)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	190	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	191
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	192
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	193	the height of a US page in inches:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	194	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	195	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	196	(UnitConverter convert:1 from:#'letterH' to:#inch)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	197	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	198	- in millimeter:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	199	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	200	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	201	(UnitConverter convert:1 from:#'letterH' to:#mm)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	202	[exEnd]
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	203
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	204
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	205	the same for european A4 standard page:
982 fa890fb509d5 initialize example changed penk parents: 981 diff changeset	206	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	207	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	208	(UnitConverter convert:1 from:#'a4H' to:#mm)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	209	[exEnd]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	210	[exBegin]
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	211	Transcript showCR:
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	212	(UnitConverter convert:1 from:#'a4H' to:#inch)
fa890fb509d5 initialize example changed penk parents: 981 diff changeset	213	[exEnd]
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	!UnitConverter class methodsFor:'initialization'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	219	initializeConversions
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	"initialize common conversions"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	222	self initializeScaleFactors.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	223
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	Conversions := IdentityDictionary new.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	Aliases := IdentityDictionary new.
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	226	Constants := IdentityDictionary new.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	228	"/ ---------- velocity -------------
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	229
556 fdf0932239a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 555 diff changeset	230	Constants at:#lightspeed put:#(2.997925E8 #'m/s').
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	231
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	232
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	"/ -------------- length -------------
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	Aliases at:#km put:#kilometer.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	Aliases at:#m put:#meter.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	Aliases at:#dm put:#decimeter.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	Aliases at:#cm put:#centimeter.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	Aliases at:#mm put:#millimeter.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	Aliases at:#micron put:#micrometer.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	Aliases at:#nm put:#nanometer.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	Aliases at:#angstrom put:#decinanometer.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	"/ US
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	self addConversion:12 from:#foot to:#inch.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	self addConversion:3 from:#yard to:#foot.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	self addConversion:5280 from:#mile to:#foot.
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	248	self addConversion:0.001 from:#inch to:#mil.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	Aliases at:#feet put:#foot.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	Aliases at:#ft put:#foot.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	Aliases at:#yd put:#yard.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	Aliases at:#mi put:#mile.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	"/ inch to millimeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	self addConversion:(25.4/1000) from:#inch to:#meter.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	258	"/ nautic
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	259	self addConversion:1852 from:#'nautical-mile' to:#meter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	260
556 fdf0932239a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 555 diff changeset	261	Aliases at:#lightsecond put:#'lightspeed*s'.
fdf0932239a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 555 diff changeset	262	Aliases at:#lightyear put:#'lightspeed*yr'.
fdf0932239a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 555 diff changeset	263
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	264	self addConversion:((Constants at:#lightspeed) at:1) from:#'lightspeed*s' to:#'meter'.
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	265
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	266	"/ ---------- time -------------
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	267
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	268	self addConversion:60 from:#min to:#s.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	269	self addConversion:60 from:#hr to:#min.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	270	self addConversion:24 from:#dy to:#hr.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	271	self addConversion:365.24219879 from:#yr to:#dy.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	272
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	273
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	274	"/ ---------- printing -------------
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	275	self initializePrintValues.
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	276
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	277	"/ ---------------- area -------------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	278
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	279	"/ US
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	280	self addConversion:4840 from:#acre to:#'yard^2'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	281
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	282	self addConversion:100 from:#are to:#'meter^2'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	283	self addConversion:100 from:#hectare to:#are.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	284
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	285	"/ german area - add your countries, and return to me ...
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	286	Aliases at:#'german-ar' put:#are.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	287	Aliases at:#'german-hektar' put:#hectare.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	288
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	289
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	290	"/ ---------------- liquid ----------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	291
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	292	self addConversion:231 from:#gallon to:#'inch^3'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	293	self addConversion:(1/4) from:#quart to:#gallon. "/ well - at least here,
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	294	"/ thats also 1/4th of a good wine ;-)
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	295	self addConversion:(1/2) from:#pint to:#quart.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	296	self addConversion:(1/16) from:#floz to:#pint.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	297	self addConversion:(1/8) from:#fldr to:#floz.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	298
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	299	self addConversion:42 from:#barrel to:#gallon.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	300	self addConversion:35.23907 from:#bushel to:#liter.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	301
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	302	Aliases at:#cc put:#'cm^3'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	303	Aliases at:#liter put:#kilocc.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	304	Aliases at:#ml put:#milliliter.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	305	Aliases at:#gal put:#gallon.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	306	Aliases at:#qt put:#quart.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	307
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	308
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	309	"/ ---------------- mass ----------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	310
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	311	self addConversion:28.35 from:#ounce to:#gram.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	312	self addConversion:453.59237 from:#lb to:#gram.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	313	self addConversion:205 from:#carat to:#milligram.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	314
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	315	Aliases at:#oz put:#ounce.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	316	Aliases at:#lbs put:#lb.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	317
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	318	Aliases at:#gm put:#gram.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	319	Aliases at:#kg put:#kilogram.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	320
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	321	"/ well, a pint of beer is not always:
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	322	self addConversion:277.420 from:#'british-gallon' to:#'inch^3'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	323	self addConversion:(1/4) from:#'british-quart' to:#'british-gallon'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	324	self addConversion:(1/2) from:#'british-pint' to:#'british-quart'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	325	self addConversion:(1/16) from:#'british-floz' to:#'british-pint'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	326
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	327	"/ ---------------- energy ----------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	328
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	329	Aliases at:#cal put:#calorie.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	330	Aliases at:#nt put:#newton.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	331	Aliases at:#joule put:#'nt*m'.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	332
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	333	self addConversion:4.1868 from:#calorie to:#joule.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	334
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	335
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	336	"/ ---------------- cooking ----------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	337
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	338	self addConversion:4 from:#tablespoon to:#fldr.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	339	self addConversion:(4/3) from:#teaspoon to:#fldr.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	340
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	341
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	342	"/ ---------------- temperature ----------------
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	343
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	344	self addConversion:[:d \| d * 1.8 + 32] from:#celsius to:#fahrenheit.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	345	self addConversion:[:f \| f - 32 / 1.8] from:#fahrenheit to:#celsius.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	346
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	347	"
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	348	Conversions := nil.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	349	UnitConverter initializeConversions
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	350	"
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	351
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	352	"Created: / 22.7.1997 / 13:56:40 / cg"
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	353	"Modified: / 10.10.2001 / 14:39:04 / cg"
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	354	!
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	355
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	356	initializePrintValues
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	"/ inch to (roughly) a typesetter point
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	self addConversion:(1/72) from:#point to:#inch.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	"/ point to twips; 20 twips (as in Rich-Text-Format) make a point
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	self addConversion:(1/20) from:#twip to:#point.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	363	"/ US paper
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	364	self addConversion:11 from:#'letter-page-height' to:#inch.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	365	self addConversion:8.5 from:#'letter-page-width' to:#inch.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	366	self addConversion:8.5 from:#'letter-landscape-page-height' to:#inch.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	367	self addConversion:11 from:#'letter-landscape-page-width' to:#inch.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	368
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	369	self addConversion:14 from:#'legal-page-height' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	370	self addConversion:8.5 from:#'legal-page-width' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	371	self addConversion:8.5 from:#'legal-landscape-page-height' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	372	self addConversion:14 from:#'legal-landscape-page-width' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	373
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	374	self addConversion:11 from:#'ledger-page-height' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	375	self addConversion:17 from:#'ledger-page-width' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	376	self addConversion:17 from:#'ledger-landscape-page-height' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	377	self addConversion:11 from:#'ledger-landscape-page-width' to:#inch.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	378
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	379	"/ European paper
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	380	self addConversion:840 from:#'a1-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	381	self addConversion:592 from:#'a1-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	382	self addConversion:592 from:#'a1-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	383	self addConversion:840 from:#'a1-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	384
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	385	self addConversion:592 from:#'a2-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	386	self addConversion:420 from:#'a2-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	387	self addConversion:420 from:#'a2-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	388	self addConversion:592 from:#'a2-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	389
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	390	self addConversion:420 from:#'a3-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	391	self addConversion:296 from:#'a3-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	392	self addConversion:296 from:#'a3-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	393	self addConversion:420 from:#'a3-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	394
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	395	self addConversion:296 from:#'a4-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	396	self addConversion:210 from:#'a4-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	397	self addConversion:210 from:#'a4-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	398	self addConversion:296 from:#'a4-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	399
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	400	self addConversion:210 from:#'a5-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	401	self addConversion:148 from:#'a5-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	402	self addConversion:148 from:#'a5-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	403	self addConversion:210 from:#'a5-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	404
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	405	self addConversion:148 from:#'a6-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	406	self addConversion:105 from:#'a6-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	407	self addConversion:105 from:#'a6-landscape-page-height' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	408	self addConversion:148 from:#'a6-landscape-page-width' to:#millimeter.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	409
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	410	self addConversion:257 from:#'b5-page-height' to:#millimeter.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	411	self addConversion:182 from:#'b5-page-width' to:#millimeter.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	412	self addConversion:182 from:#'b5-landscape-page-height' to:#millimeter.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	413	self addConversion:257 from:#'b5-landscape-page-width' to:#millimeter.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	414
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	415
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	416	Aliases at:#letterW put:#'letter-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	417	Aliases at:#letterH put:#'letter-page-height'.
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	418	Aliases at:#legalW put:#'legal-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	419	Aliases at:#legalH put:#'legal-page-height'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	420	Aliases at:#ledgerW put:#'ledger-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	421	Aliases at:#ledgerH put:#'ledger-page-height'.
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	422	Aliases at:#a1W put:#'a1-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	423	Aliases at:#a1H put:#'a1-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	424	Aliases at:#a2W put:#'a2-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	425	Aliases at:#a2H put:#'a2-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	426	Aliases at:#a3W put:#'a3-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	427	Aliases at:#a3H put:#'a3-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	428	Aliases at:#a4W put:#'a4-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	429	Aliases at:#a4H put:#'a4-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	430	Aliases at:#a5W put:#'a5-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	431	Aliases at:#a5H put:#'a5-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	432	Aliases at:#a6W put:#'a6-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	433	Aliases at:#a6H put:#'a6-page-height'.
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	434	Aliases at:#b5W put:#'b5-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	435	Aliases at:#b5H put:#'b5-page-height'.
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	436
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	437	Aliases at:#letterlW put:#'letter-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	438	Aliases at:#letterlH put:#'letter-landscape-page-height'.
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	439	Aliases at:#legallW put:#'legal-landscape-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	440	Aliases at:#legallH put:#'legal-landscape-page-height'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	441	Aliases at:#ledgerlW put:#'ledger-landscape-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	442	Aliases at:#ledgerlH put:#'ledger-landscape-page-height'.
365 12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	443	Aliases at:#a1lW put:#'a1-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	444	Aliases at:#a1lH put:#'a1-landscape-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	445	Aliases at:#a2lW put:#'a2-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	446	Aliases at:#a2lH put:#'a2-landscape-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	447	Aliases at:#a3lW put:#'a3-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	448	Aliases at:#a3lH put:#'a3-landscape-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	449	Aliases at:#a4lW put:#'a4-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	450	Aliases at:#a4lH put:#'a4-landscape-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	451	Aliases at:#a5lW put:#'a5-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	452	Aliases at:#a5lH put:#'a5-landscape-page-height'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	453	Aliases at:#a6lW put:#'a6-landscape-page-width'.
12af10e01409 added page conversions Claus Gittinger <cg@exept.de> parents: 364 diff changeset	454	Aliases at:#a6lH put:#'a6-landscape-page-height'.
385 67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	455	Aliases at:#b5lW put:#'b5-landscape-page-width'.
67ac6014097c checkin from browser Claus Gittinger <cg@exept.de> parents: 369 diff changeset	456	Aliases at:#b5lH put:#'b5-landscape-page-height'.
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	457	!
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	459	initializeScaleFactors
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	460	Scaling := IdentityDictionary new.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461
1285 0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	462	Scaling at:#yotta put:1000000000000000000000000. "/ 10^24
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	463	Scaling at:#zetta put:1000000000000000000000. "/ 10^21
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	464	Scaling at:#exa put:1000000000000000000. "/ 10^18
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	465	Scaling at:#peta put:1000000000000000. "/ 10^15
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	466	Scaling at:#tera put:1000000000000. "/ 10^12
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	467	Scaling at:#giga put:1000000000. "/ 10^9
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	468	Scaling at:#mega put:1000000. "/ 10^6
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	469	Scaling at:#myria put:10000.
1285 0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	470	Scaling at:#kilo put:1000. "/ 10^3
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	471	Scaling at:#hecto put:100. "/ 10^2
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	472	Scaling at:#deca put:10. "/ 10^1
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	473	Scaling at:#deci put:(1/10).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	474	Scaling at:#centi put:(1/100).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	475	Scaling at:#milli put:(1/1000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	476	Scaling at:#micro put:(1/1000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	477	Scaling at:#nano put:(1/1000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	478	Scaling at:#pico put:(1/1000000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	479	Scaling at:#femto put:(1/1000000000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	480	Scaling at:#atto put:(1/1000000000000000000).
1285 0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	481	Scaling at:#zepto put:(1/1000000000000000000000).
0b70d88e4a74 * empty log message * Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	482	Scaling at:#yocto put:(1/1000000000000000000000000).
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	483	! !
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	484
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	485	!UnitConverter class methodsFor:'accessing'!
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	486
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	487	scalings
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	488	"return the set of known scaling prefixes"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	489
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	490	^ Scaling keys
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	491
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	492	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	493	UnitConverter scalings
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	494	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	495
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	496	"Created: 6.8.1997 / 16:53:19 / cg"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	497	"Modified: 6.8.1997 / 16:58:11 / cg"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	498	!
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	499
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	500	units
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	501	"return the set of known units"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	502
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	503	\|setOfUnits\|
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	504
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	505	setOfUnits := IdentitySet new.
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	506	Conversions keysAndValuesDo:[:srcUnit :conversionInfo \|
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	507	setOfUnits add:srcUnit.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	508	conversionInfo keysDo:[:targetUnit \|
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	509	setOfUnits add:targetUnit
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	510	]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	511	].
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	512	^ setOfUnits
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	513
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	514	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	515	UnitConverter units
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	516	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	517
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	518	"Created: 6.8.1997 / 16:57:08 / cg"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	519	"Modified: 6.8.1997 / 16:57:47 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	!UnitConverter class methodsFor:'conversions'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	524	convert:howMany from:sourceUnit to:destUnit
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525	"given a value in sourceUnit (symbolic), try to convert it
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	to destUnit (symbolic); return nil, if the conversion is
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527	unknown."
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	529	\|u conversions alias rslt sU dU const val unit
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	530	i suNumerator suDenominator duNumerator duDenominator uN uD
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	531	sF1 sF2 dF1 dF2
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	532	s d\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	534	"/ Transcript showCR:('try ' , sourceUnit , '->' , destUnit).
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	535
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	536	Conversions isNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	537	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	538	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	539
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540	"/ somehow, recursion must end ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	sourceUnit == destUnit ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	542	^ howMany
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	545	sourceUnit isSymbol ifFalse:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	546	s := sourceUnit withoutSeparators.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	547	sU := s asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	548	sU notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	549	^ self convert:howMany from:sU to:destUnit
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	550	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	551	(s startsWith:$() ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	552	(s endsWith:$)) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	553	s := s copyFrom:2 to:(s size - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	554	^ self convert:howMany from:s to:destUnit
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	555	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	556	].
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	557	].
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	558	destUnit isSymbol ifFalse:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	559	d := destUnit withoutSeparators.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	560	dU := d asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	561	dU notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	562	^ self convert:howMany from:sourceUnit to:dU
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	563	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	564	(d startsWith:$() ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	565	(d endsWith:$)) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	566	d := d copyFrom:2 to:(d size - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	567	^ self convert:howMany from:sourceUnit to:d
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	568	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	569	].
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	570	].
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	571
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	"/ first, get rid of scalers ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	u := self unscaled:sourceUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	u notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	576	^ self convert:(howMany*(u value)) from:(u key) to:destUnit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	u := self unscaled:destUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	u notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	581	^ self convert:(howMany/(u value)) from:sourceUnit to:(u key)
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	"/ and of aliases ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	alias := Aliases at:sourceUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	alias notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	588	^ self convert:howMany from:alias to:destUnit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590	alias := Aliases at:destUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591	alias notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	592	^ self convert:howMany from:sourceUnit to:alias
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	595	"/ any constants ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	596
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	597	(Constants includesKey:sourceUnit) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	598	const := Constants at:sourceUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	599	val := const at:1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	600	unit := const at:2.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	601	^ self convert:(howMany*val) from:unit to:destUnit
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	602	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	603
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	604	"/ compounds (^ , / or *) are very naively parsed
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	605	"/ need a full expression parser (tree) for full power.
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	606	"/ I leave that as an excercise to you ...
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	607
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	608
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609	"/ working with squares or cubics ?
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	611	((sourceUnit endsWith:'^2') and:[destUnit endsWith:'^2']) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	612	sU := (sourceUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	613	dU := (destUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	614	(sU notNil and:[dU notNil]) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	615	^ (self convert:(howMany sqrt) from:sU to:dU) squared
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	616	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	617	^ self noConversionFrom:sourceUnit to:destUnit.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	].
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	619	((sourceUnit endsWith:'^3') and:[destUnit endsWith:'^3']) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	620	sU := (sourceUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	621	dU := (destUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	622	(sU notNil and:[dU notNil]) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	623	^ (self convert:(howMany raisedTo:(1/3)) from:sU to:dU) raisedTo:3
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	624	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	625	^ self noConversionFrom:sourceUnit to:destUnit.
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	626	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	627
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	628	"/ working with fractions ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	629
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	630	((sourceUnit includes:$/) and:[destUnit includes:$/]) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	631	"/ look for a constant conversion factor
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	632	i := sourceUnit indexOf:$/.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	633	suNumerator := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	634	suDenominator := sourceUnit copyFrom:(i + 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	635	i := destUnit indexOf:$/.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	636	duNumerator := destUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	637	duDenominator := destUnit copyFrom:(i + 1).
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	638
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	639	uN := self convert:howMany from:suNumerator to:duNumerator.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	640	uN notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	641	uD := self convert:1 from:suDenominator to:duDenominator.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	642	uD notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	643	^ uN / uD
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	644	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	645	].
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	646	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	647
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	648	"/ working with products ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	649
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	650	((sourceUnit includes:$) and:[destUnit includes:$]) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	651	i := sourceUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	652	sF1 := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	653	sF2 := sourceUnit copyFrom:(i + 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	654	i := destUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	655	dF1 := destUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	656	dF2 := destUnit copyFrom:(i + 1).
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	657
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	658	u := self convert:howMany from:sF1 to:dF1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	659	u notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	660	u := self convert:u from:sF2 to:dF2.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	661	u notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	662	^ u
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	663	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	664	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	"/ the real work comes here ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	"/ is there a direct conversion in the dataBase ?
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	rslt := self convertDirect:howMany from:sourceUnit to:destUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672	rslt notNil ifTrue:[^ rslt].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	"/ try inverse conversion ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	rslt := self convertDirect:1 from:destUnit to:sourceUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	rslt notNil ifTrue:[ ^ howMany / rslt].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	679	"/ here's the deep recursion ...
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	"/ try indirect conversion from source
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	conversions := Conversions at:sourceUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	conversions notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	686	conversions keysAndValuesDo:[:intermediateUnit :factor1 \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	687	\|factor2\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	689	factor2 := self convert:factor1 from:intermediateUnit to:destUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	690	factor2 notNil ifTrue:[^ factor2 * howMany].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	691	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694	"/ try indirect conversion from dest
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	conversions := Conversions at:destUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	conversions notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	698	conversions keysAndValuesDo:[:intermediateUnit :factor1 \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	699	\|factor2\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	701	factor2 := self convert:(factor1) from:intermediateUnit to:sourceUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	702	factor2 notNil ifTrue:[^ howMany / factor2].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	703	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	706	"/ if working with a product, try each component
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	707
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	708	(sourceUnit includes:$*) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	709	i := sourceUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	710	sF1 := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	711	sF2 := sourceUnit copyFrom:(i + 1).
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	712
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	713	"/ see what we have ...
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	714
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	715	self units do:[:aUnit \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	716	\|pref iUnit factor2 rslt\|
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	717
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	718	pref := sF1 , '*'.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	719	(aUnit startsWith:pref) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	720	"/ ok; want a/b -> x
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	721	"/ found a/c -> any
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	722	"/ what about c->b ?
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	723
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	724	iUnit := aUnit copyFrom:pref size + 1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	725	factor2 := self convert:1 from:sF2 to:iUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	726	factor2 notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	727	"/ good ...
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	728	rslt := self convert:(factor2 * howMany)
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	729	from:aUnit to:destUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	730	rslt notNil ifTrue:[^ rslt].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	731	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	732	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	733	].
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	734	].
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	735
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	736	^ self noConversionFrom:sourceUnit to:destUnit.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738	"direct - how many meters are there in two inches:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739	UnitConverter convert:2 from:#inch to:#meter
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	740	UnitConverter convert:37 from:#degrees to:#fahrenheit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	reverse - how many inches are there in one meter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	UnitConverter convert:1 from:#meter to:#inch
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	with alias:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	UnitConverter convert:1 from:#inch to:#m
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	UnitConverter convert:1 from:#inch to:#mm
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748	UnitConverter convert:1 from:#inch to:#millimeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749	UnitConverter convert:1 from:#inch to:#nanometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	UnitConverter convert:1 from:#mm to:#km
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	UnitConverter convert:1 from:#km to:#foot
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	indirect:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754	UnitConverter convert:1 from:#mm to:#twip
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	UnitConverter convert:1 from:#inch to:#twip
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	756	UnitConverter convert:1 from:'letterH' to:#point
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	757	UnitConverter convert:1 from:'letterlH' to:#point
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	758
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	759	UnitConverter convert:5 from:#barrel to:#liter
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	760	UnitConverter convert:10 from:#kilogram to:#carat
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	761
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	762	UnitConverter convert:1 from:#liter to:#floz
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765	"Created: 31.5.1996 / 16:23:38 / cg"
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	766	"Modified: 6.8.1997 / 18:10:22 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768
1292 cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	769	fileSizeFromString:fileSizeString
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	770	"given a fileSize string (i.e. a number followed by optional Kb, Mb or Gb as required.
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	771	Provided here since this is so common..."
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	772
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	773	\|numericValue s scaleChar scale\|
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	774
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	775	fileSizeString isEmpty ifTrue:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	776	^ 0
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	777	].
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	778
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	779	scale := 1.
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	780	s := fileSizeString readStream.
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	781	numericValue := Number readFrom:s onError:[0].
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	782	s skipSeparators.
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	783	s atEnd ifFalse:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	784	scaleChar := s next asLowercase.
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	785	scaleChar = $k ifTrue:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	786	scale := 1024
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	787	] ifFalse:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	788	scaleChar = $m ifTrue:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	789	scale := 1024 * 1024
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	790	] ifFalse:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	791	scaleChar = $g ifTrue:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	792	scale := 1024 * 1024 * 1024
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	793	] ifFalse:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	794	scaleChar = $t ifTrue:[
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	795	scale := 1024 * 1024 * 1024 * 1024
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	796	]
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	797	]
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	798	]
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	799	].
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	800	].
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	801	^ (numericValue*scale) asInteger
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	802
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	803	"
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	804	self fileSizeFromString:'1234'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	805	self fileSizeFromString:'10 kB'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	806	self fileSizeFromString:'0.6 kB'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	807	self fileSizeFromString:'1.8 MB'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	808	self fileSizeFromString:'0.5 GB'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	809	self fileSizeFromString:'0.5 TB'
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	810	"
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	811	!
cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	812
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	813	fileSizeStringFor:nBytes
1143 ad4a5f867538 comment Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	814	"return a useful string for a size-in-bytes; returns Kb, Mb or Gb as required.
ad4a5f867538 comment Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	815	Provided here since this is so common..."
ad4a5f867538 comment Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	816
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	817	\|unitString n\|
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	818
1148 72eab7e77029 * empty log message * Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	819	nBytes < (1000 * 1024 * 1024) ifTrue:[
72eab7e77029 * empty log message * Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	820	nBytes < (1000 * 1024) ifTrue:[
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	821	nBytes < 1024 ifTrue:[
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	822	n := nBytes.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	823	unitString := ' '.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	824	] ifFalse:[
1161 840c447a1d73 checkin from browser Claus Gittinger <cg@exept.de> parents: 1148 diff changeset	825	n := (nBytes / 1024) asFixedPoint:1.
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	826	unitString := ' K'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	827	]
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	828	] ifFalse:[
1161 840c447a1d73 checkin from browser Claus Gittinger <cg@exept.de> parents: 1148 diff changeset	829	n := (nBytes / (1024 * 1024)) asFixedPoint:1.
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	830	unitString := ' M'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	831	].
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	832	] ifFalse:[
1161 840c447a1d73 checkin from browser Claus Gittinger <cg@exept.de> parents: 1148 diff changeset	833	n := (nBytes / 1024 / (1024 * 1024)) asFixedPoint:1.
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	834	unitString := ' G'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	835	].
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	836
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	837	^ n printString , unitString.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	838
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	839	"
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	840	self fileSizeStringFor:10
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	841	self fileSizeStringFor:100
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	842	self fileSizeStringFor:1000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	843	self fileSizeStringFor:10000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	844	self fileSizeStringFor:100000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	845	self fileSizeStringFor:1000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	846	self fileSizeStringFor:10000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	847	self fileSizeStringFor:100000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	848	self fileSizeStringFor:1000000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	849	self fileSizeStringFor:10000000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	850	"
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	851	!
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	852
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853	inchToMillimeter:inches
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	854	"convert inches to mm. Made this an extra method, since its so common."
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	^ inches * 25.4
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	857
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858	"Created: 31.5.1996 / 13:37:31 / cg"
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	859	"Modified: 31.5.1996 / 18:08:14 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	millimeterToInch:mm
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	863	"convert mm to inches. Made this an extra method, since its so common."
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	^ mm / 25.4
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	"Created: 31.5.1996 / 13:37:48 / cg"
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	868	"Modified: 31.5.1996 / 18:08:20 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	871	!UnitConverter class methodsFor:'missing conversion'!
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	872
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	873	noConversionFrom:sourceUnit to:destUnit
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	874	Transcript showCR:'no conversion ' , sourceUnit printString , ' -> ' , destUnit printString.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	875	^ nil
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	876
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	877	"Created: 29.3.1997 / 17:56:03 / cg"
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	878	! !
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	879
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	!UnitConverter class methodsFor:'private'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	addConversion:factor from:sourceMetric to:destMetric
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	"add a conversion"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	\|conversion\|
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	conversion := Conversions at:sourceMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	conversion isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	889	conversion := IdentityDictionary new.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	890	Conversions at:sourceMetric put:conversion
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892	conversion at:destMetric put:factor.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	^ conversion
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	"Created: 31.5.1996 / 13:51:25 / cg"
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	896	"Modified: 29.3.1997 / 17:19:31 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	convertDirect:howMany from:sourceMetric to:destMetric
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	"given a value in sourceMetric (symbolic), try to convert it
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	to destMetric (symbolic);
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	Only direct conversions are tried; return nil, if the conversion is unknown."
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	\|conversion factor\|
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	906	Conversions isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	907	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	908	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	909
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	conversion := Conversions at:sourceMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	conversion isNil ifTrue:[^ nil].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	factor := conversion at:destMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914	factor isNil ifTrue:[^ nil].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	916	factor isNumber ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	917	^ howMany * factor
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	918	].
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	919	^ factor value:howMany
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	UnitConverter convertDirect:1 from:#inch to:#meter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	UnitConverter convertDirect:1 from:#inch to:#millimeter
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	924	UnitConverter convertDirect:1 from:#degrees to:#fahrenheit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	"Created: 31.5.1996 / 13:54:33 / cg"
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	928	"Modified: 22.7.1997 / 13:57:52 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	unscaled:what
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	"given a unit, return the base and a factor as assoc,
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	or nil if not found"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	935	Conversions isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	936	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	937	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	938
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	Scaling keysAndValuesDo:[:name :factor \|
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	940	\|rest\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	942	(what startsWith:name) ifTrue:[
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	943	rest := what copyFrom:(name size+1).
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	944	rest := rest asSymbolIfInterned.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	945	rest notNil ifTrue:[
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	946	^ rest -> factor.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	947	]
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	948	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950	^ nil
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953	UnitConverter unscaled:#millimeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954	UnitConverter unscaled:#nanometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	UnitConverter unscaled:#kilometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956	UnitConverter unscaled:#fuzzymeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	958
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	959	"Modified: 22.7.1997 / 13:57:46 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	!UnitConverter class methodsFor:'documentation'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964	version
1292 cf61a7dfeca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	965	^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.28 2003-08-19 10:01:11 cg Exp $'
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 19 Aug 2003 12:01:11 +0200
changeset 1292	cf61a7dfeca6
parent 1285	0b70d88e4a74
child 1293	4504cf3db7d0
permissions	-rw-r--r--