--- parser3/www/htdocs/Attic/index.html	2002/02/18 15:21:01	1.9
+++ parser3/www/htdocs/Attic/index.html	2002/02/26 12:49:46	1.15
@@ -7,7 +7,8 @@ $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 @main[]
-^doubleprobs[]
+^xmlprobs[]
+#^doubleprobs[]
 #^math:random(-10)
 #^divnamestop[]
 #^arrayclone[]
@@ -102,10 +103,19 @@ $response:content-type[$.value[text/html
 <hr>
 OK
 
+@xmlprobs[]
+$xmlDataType[^xdoc::load[program.xml]]
+#<pre>^taint[^xmlDataType.string[]]
+$xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
+#=^xmlDataTypes._count[]=
+=^xmlDataTypes.0.getAttribute[type-id]=
+
 @doubleprobs[]
 $1(^math:radians(180))
 $2($math:PI)
-^^eval(^1.format[%.10f]-^2.format[%.10f])
+^if(^1.format[%.10f]==^2.format[%.10f]){y;n}
+^if($1==$2){y;n}
+^if(^math:radians(180)==$math:PI){y;n}
 
 
 @divnamestop[]