hg/stx-libbasic2: UnitConverter.st@72eab7e77029 (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
1135 9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	462	Scaling at:#exa put:1000000000000000000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	463	Scaling at:#peta put:1000000000000000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	464	Scaling at:#tera put:1000000000000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	465	Scaling at:#giga put:1000000000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	466	Scaling at:#mega put:1000000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	467	Scaling at:#myria put:10000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	468	Scaling at:#kilo put:1000.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	469	Scaling at:#hecto put:100.
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	470	Scaling at:#deci put:(1/10).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	471	Scaling at:#centi put:(1/100).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	472	Scaling at:#milli put:(1/1000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	473	Scaling at:#micro put:(1/1000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	474	Scaling at:#nano put:(1/1000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	475	Scaling at:#pico put:(1/1000000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	476	Scaling at:#femto put:(1/1000000000000000).
9a343ebe206b * empty log message * Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	477	Scaling at:#atto put:(1/1000000000000000000).
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	478	! !
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	479
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	480	!UnitConverter class methodsFor:'accessing'!
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	481
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	482	scalings
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	483	"return the set of known scaling prefixes"
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	^ Scaling keys
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	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	488	UnitConverter scalings
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
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	491	"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	492	"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	493	!
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	units
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	496	"return the set of known units"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	497
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	498	\|setOfUnits\|
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	setOfUnits := IdentitySet new.
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	501	Conversions keysAndValuesDo:[:srcUnit :conversionInfo \|
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	502	setOfUnits add:srcUnit.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	503	conversionInfo keysDo:[:targetUnit \|
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	504	setOfUnits add:targetUnit
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	505	]
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	506	].
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	507	^ setOfUnits
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	508
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	509	"
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	510	UnitConverter units
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
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	513	"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	514	"Modified: 6.8.1997 / 16:57:47 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517	!UnitConverter class methodsFor:'conversions'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519	convert:howMany from:sourceUnit to:destUnit
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	"given a value in sourceUnit (symbolic), try to convert it
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521	to destUnit (symbolic); return nil, if the conversion is
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	unknown."
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	524	\|u conversions alias rslt sU dU const val unit
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	525	i suNumerator suDenominator duNumerator duDenominator uN uD
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	526	sF1 sF2 dF1 dF2
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	527	s d\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	529	"/ Transcript showCR:('try ' , sourceUnit , '->' , destUnit).
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	530
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	531	Conversions isNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	532	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	533	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	534
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	"/ somehow, recursion must end ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	sourceUnit == destUnit ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	537	^ howMany
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	540	sourceUnit isSymbol ifFalse:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	541	s := sourceUnit withoutSeparators.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	542	sU := s asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	543	sU notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	544	^ self convert:howMany from:sU to:destUnit
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	545	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	546	(s startsWith:$() ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	547	(s endsWith:$)) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	548	s := s copyFrom:2 to:(s size - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	549	^ self convert:howMany from:s 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	].
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	552	].
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	553	destUnit isSymbol ifFalse:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	554	d := destUnit withoutSeparators.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	555	dU := d asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	556	dU notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	557	^ self convert:howMany from:sourceUnit to:dU
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	558	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	559	(d startsWith:$() ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	560	(d endsWith:$)) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	561	d := d copyFrom:2 to:(d size - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	562	^ self convert:howMany from:sourceUnit to:d
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	].
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	565	].
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	566
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	"/ first, get rid of scalers ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	u := self unscaled:sourceUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	u notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	571	^ self convert:(howMany*(u value)) from:(u key) to:destUnit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	].
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:destUnit.
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:sourceUnit to:(u key)
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	"/ and of aliases ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	alias := Aliases at:sourceUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	alias notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	583	^ self convert:howMany from:alias to:destUnit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585	alias := Aliases at:destUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	alias notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	587	^ self convert:howMany from:sourceUnit to:alias
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	590	"/ any constants ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	591
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	592	(Constants includesKey:sourceUnit) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	593	const := Constants at:sourceUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	594	val := const at:1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	595	unit := const at:2.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	596	^ self convert:(howMany*val) from:unit to:destUnit
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	597	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	598
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	599	"/ compounds (^ , / or *) are very naively parsed
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	600	"/ 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	601	"/ 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	602
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	603
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	"/ working with squares or cubics ?
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	606	((sourceUnit endsWith:'^2') and:[destUnit endsWith:'^2']) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	607	sU := (sourceUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	608	dU := (destUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	609	(sU notNil and:[dU notNil]) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	610	^ (self convert:(howMany sqrt) from:sU to:dU) squared
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	611	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	612	^ self noConversionFrom:sourceUnit to:destUnit.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	].
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	614	((sourceUnit endsWith:'^3') and:[destUnit endsWith:'^3']) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	615	sU := (sourceUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	616	dU := (destUnit copyWithoutLast:2) asSymbolIfInterned.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	617	(sU notNil and:[dU notNil]) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	618	^ (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	619	].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	620	^ self noConversionFrom:sourceUnit to:destUnit.
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	621	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	622
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	623	"/ working with fractions ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	624
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	625	((sourceUnit includes:$/) and:[destUnit includes:$/]) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	626	"/ look for a constant conversion factor
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	627	i := sourceUnit indexOf:$/.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	628	suNumerator := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	629	suDenominator := sourceUnit copyFrom:(i + 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	630	i := destUnit indexOf:$/.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	631	duNumerator := destUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	632	duDenominator := destUnit copyFrom:(i + 1).
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	633
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	634	uN := self convert:howMany from:suNumerator to:duNumerator.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	635	uN notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	636	uD := self convert:1 from:suDenominator to:duDenominator.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	637	uD notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	638	^ uN / uD
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	639	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	640	].
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	641	].
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	642
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	643	"/ working with products ?
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	644
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	645	((sourceUnit includes:$) and:[destUnit includes:$]) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	646	i := sourceUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	647	sF1 := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	648	sF2 := sourceUnit copyFrom:(i + 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	649	i := destUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	650	dF1 := destUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	651	dF2 := destUnit copyFrom:(i + 1).
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	652
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	653	u := self convert:howMany from:sF1 to:dF1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	654	u notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	655	u := self convert:u from:sF2 to:dF2.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	656	u notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	657	^ u
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	658	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	659	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	"/ the real work comes here ...
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	"/ is there a direct conversion in the dataBase ?
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	rslt := self convertDirect:howMany from:sourceUnit to:destUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	rslt notNil ifTrue:[^ rslt].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	"/ try inverse conversion ...
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:1 from:destUnit to:sourceUnit.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672	rslt notNil ifTrue:[ ^ howMany / rslt].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	674	"/ here's the deep recursion ...
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	"/ try indirect conversion from source
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	conversions := Conversions at:sourceUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	conversions notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	681	conversions keysAndValuesDo:[:intermediateUnit :factor1 \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	682	\|factor2\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	684	factor2 := self convert:factor1 from:intermediateUnit to:destUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	685	factor2 notNil ifTrue:[^ factor2 * howMany].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	686	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	"/ try indirect conversion from dest
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691	conversions := Conversions at:destUnit ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	conversions notNil ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	693	conversions keysAndValuesDo:[:intermediateUnit :factor1 \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	694	\|factor2\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	696	factor2 := self convert:(factor1) from:intermediateUnit to:sourceUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	697	factor2 notNil ifTrue:[^ howMany / factor2].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	698	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	701	"/ 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	702
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	703	(sourceUnit includes:$*) ifTrue:[
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	704	i := sourceUnit indexOf:$*.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	705	sF1 := sourceUnit copyTo:(i - 1).
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	706	sF2 := sourceUnit copyFrom:(i + 1).
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	707
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	708	"/ see what we have ...
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	709
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	710	self units do:[:aUnit \|
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	711	\|pref iUnit factor2 rslt\|
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	pref := sF1 , '*'.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	714	(aUnit startsWith:pref) ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	715	"/ ok; want a/b -> x
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	716	"/ found a/c -> any
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	717	"/ what about c->b ?
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	718
1031 956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	719	iUnit := aUnit copyFrom:pref size + 1.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	720	factor2 := self convert:1 from:sF2 to:iUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	721	factor2 notNil ifTrue:[
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	722	"/ good ...
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	723	rslt := self convert:(factor2 * howMany)
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	724	from:aUnit to:destUnit.
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	725	rslt notNil ifTrue:[^ rslt].
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	726	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	727	]
956850b2b7ef * empty log message * Claus Gittinger <cg@exept.de> parents: 983 diff changeset	728	].
555 14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	729	].
14f0caf53e2f more examples; added conversion rule (product expansion) Claus Gittinger <cg@exept.de> parents: 550 diff changeset	730
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	731	^ self noConversionFrom:sourceUnit to:destUnit.
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	"direct - how many meters are there in two inches:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	UnitConverter convert:2 from:#inch to:#meter
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	735	UnitConverter convert:37 from:#degrees to:#fahrenheit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737	reverse - how many inches are there in one meter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738	UnitConverter convert:1 from:#meter to:#inch
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740	with alias:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	UnitConverter convert:1 from:#inch to:#m
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	UnitConverter convert:1 from:#inch to:#mm
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	UnitConverter convert:1 from:#inch to:#millimeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	UnitConverter convert:1 from:#inch to:#nanometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	UnitConverter convert:1 from:#mm to:#km
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	UnitConverter convert:1 from:#km to:#foot
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748	indirect:
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749	UnitConverter convert:1 from:#mm to:#twip
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	UnitConverter convert:1 from:#inch to:#twip
369 eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	751	UnitConverter convert:1 from:'letterH' to:#point
eba5bf03291a handle nonSymbols Claus Gittinger <cg@exept.de> parents: 365 diff changeset	752	UnitConverter convert:1 from:'letterlH' to:#point
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	753
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	754	UnitConverter convert:5 from:#barrel to:#liter
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	755	UnitConverter convert:10 from:#kilogram to:#carat
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	756
5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	757	UnitConverter convert:1 from:#liter to:#floz
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760	"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	761	"Modified: 6.8.1997 / 18:10:22 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	764	fileSizeStringFor:nBytes
1143 ad4a5f867538 comment Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	765	"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	766	Provided here since this is so common..."
ad4a5f867538 comment Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	767
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	768	\|unitString n\|
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	769
1148 72eab7e77029 * empty log message * Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	770	nBytes < (1000 * 1024 * 1024) ifTrue:[
72eab7e77029 * empty log message * Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	771	nBytes < (1000 * 1024) ifTrue:[
1132 2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	772	nBytes < 1024 ifTrue:[
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	773	n := nBytes.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	774	unitString := ' '.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	775	] ifFalse:[
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	776	n := (nBytes * 10 // 1024 / 10.0).
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	777	unitString := ' K'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	778	]
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	779	] ifFalse:[
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	780	n := (nBytes * 10 // 1024 // 1024 / 10.0).
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	781	unitString := ' M'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	782	].
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	783	] ifFalse:[
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	784	n := (nBytes * 10 // 1024 // 1024 // 1024 / 10.0).
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	785	unitString := ' G'
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	786	].
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	787
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	788	^ n printString , unitString.
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	789
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	790	"
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	791	self fileSizeStringFor:10
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	792	self fileSizeStringFor:100
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	793	self fileSizeStringFor:1000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	794	self fileSizeStringFor:10000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	795	self fileSizeStringFor:100000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	796	self fileSizeStringFor:1000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	797	self fileSizeStringFor:10000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	798	self fileSizeStringFor:100000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	799	self fileSizeStringFor:1000000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	800	self fileSizeStringFor:10000000000
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	801	"
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	802	!
2f0305cb691b fileSizeString added (Kb/Mb/Gb) Claus Gittinger <cg@exept.de> parents: 1031 diff changeset	803
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804	inchToMillimeter:inches
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	805	"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	806
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807	^ inches * 25.4
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809	"Created: 31.5.1996 / 13:37:31 / cg"
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	810	"Modified: 31.5.1996 / 18:08:14 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	millimeterToInch:mm
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	814	"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	815
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	^ mm / 25.4
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818	"Created: 31.5.1996 / 13:37:48 / cg"
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	819	"Modified: 31.5.1996 / 18:08:20 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821
516 973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	822	!UnitConverter class methodsFor:'missing conversion'!
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	823
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	824	noConversionFrom:sourceUnit to:destUnit
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	825	Transcript showCR:'no conversion ' , sourceUnit printString , ' -> ' , destUnit printString.
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	826	^ nil
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	827
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	828	"Created: 29.3.1997 / 17:56:03 / cg"
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	829	! !
973e10f68449 calorie factor was wrong Claus Gittinger <cg@exept.de> parents: 515 diff changeset	830
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831	!UnitConverter class methodsFor:'private'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	addConversion:factor from:sourceMetric to:destMetric
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834	"add a conversion"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	\|conversion\|
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	conversion := Conversions at:sourceMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839	conversion isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	840	conversion := IdentityDictionary new.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	841	Conversions at:sourceMetric put:conversion
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843	conversion at:destMetric put:factor.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844	^ conversion
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	"Created: 31.5.1996 / 13:51:25 / cg"
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	847	"Modified: 29.3.1997 / 17:19:31 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	convertDirect:howMany from:sourceMetric to:destMetric
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851	"given a value in sourceMetric (symbolic), try to convert it
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	to destMetric (symbolic);
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853	Only direct conversions are tried; return nil, if the conversion is unknown."
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855	\|conversion factor\|
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	857	Conversions isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	858	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	859	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	860
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861	conversion := Conversions at:sourceMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	conversion isNil ifTrue:[^ nil].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864	factor := conversion at:destMetric ifAbsent:nil.
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	factor isNil ifTrue:[^ nil].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	867	factor isNumber ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	868	^ howMany * factor
364 5482dd3adb76 checkin from browser Claus Gittinger <cg@exept.de> parents: 363 diff changeset	869	].
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	870	^ factor value:howMany
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	UnitConverter convertDirect:1 from:#inch to:#meter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	UnitConverter convertDirect:1 from:#inch to:#millimeter
515 d7fedc8d697a celsius -> fahrenheit Claus Gittinger <cg@exept.de> parents: 453 diff changeset	875	UnitConverter convertDirect:1 from:#degrees to:#fahrenheit
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	"Created: 31.5.1996 / 13:54:33 / cg"
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	879	"Modified: 22.7.1997 / 13:57:52 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	unscaled:what
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	"given a unit, return the base and a factor as assoc,
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	or nil if not found"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	886	Conversions isNil ifTrue:[
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	887	self initializeConversions
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	888	].
72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	889
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	Scaling keysAndValuesDo:[:name :factor \|
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	891	\|rest\|
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892
601 9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	893	(what startsWith:name) ifTrue:[
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	894	rest := what copyFrom:(name size+1).
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	895	rest := rest asSymbolIfInterned.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	896	rest notNil ifTrue:[
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	897	^ rest -> factor.
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	898	]
9f043e153af4 * empty log message * Claus Gittinger <cg@exept.de> parents: 564 diff changeset	899	].
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	].
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	^ nil
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	UnitConverter unscaled:#millimeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	UnitConverter unscaled:#nanometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	UnitConverter unscaled:#kilometer
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	UnitConverter unscaled:#fuzzymeter
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908	"
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909
550 72ca4b0e5e5c lazy initialization Claus Gittinger <cg@exept.de> parents: 516 diff changeset	910	"Modified: 22.7.1997 / 13:57:46 / cg"
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	! !
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	!UnitConverter class methodsFor:'documentation'!
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914
0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915	version
1148 72eab7e77029 * empty log message * Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	916	^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.25 2003-02-20 15:04:48 cg Exp $'
363 0fb59dabb315 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 20 Feb 2003 16:04:48 +0100
changeset 1148	72eab7e77029
parent 1143	ad4a5f867538
child 1161	840c447a1d73
permissions	-rw-r--r--