added comment

This commit is contained in:
Felix Ruess
2011-12-15 16:48:07 +01:00
parent 39326bbe5b
commit 79e527b873
+2
View File
@@ -91,6 +91,8 @@ let parse_element = fun prefix s ->
"define" -> begin "define" -> begin
try try
begin begin
(* fail if units conversion is not found and just copy value instead,
this is important for integer values, you can't just multiply them with 1.0 *)
try try
let value = (ExtXml.float_attrib s "value") *. (code_unit_scale_of_tag s) in let value = (ExtXml.float_attrib s "value") *. (code_unit_scale_of_tag s) in
define (prefix^ExtXml.attrib s "name") (string_of_float value); define (prefix^ExtXml.attrib s "name") (string_of_float value);