--- parser3/www/htdocs/Attic/_bug.html	2004/03/25 11:51:19	1.35
+++ parser3/www/htdocs/Attic/_bug.html	2004/06/18 15:55:47	1.48
@@ -1,66 +1,16 @@
-@auto[]
-$request:charset[windows-1251]
-$response:charset[windows-1251]
+^connect[oracle://mts_imprimatur2:imp2@mts]{
+#    ^void:sql{create table paf(a clob)}
+#    ^void:sql{insert into paf (a) values (/**a**/'a')}
+#    ^void:sql{insert into paf (a) values (:unk)}
+	^void:sql{delete from pif}
+	^void:sql{call paf(:a)}[
+		$.bind[
+			$.a[2]
+		]
+	]
+	^int:sql{select count(*) from pif}
+	"^string:sql{select a from pif}"
 
-
-@main[]
-$table[^table::create{pet
-cat	milk}]
-$hash[^table.hash[pet]]
-^display[$hash]
-
-@main[]
-^connect[mysql://root@localhost/paf]{
-
-$hash[^hash::sql{select 'cat' as pet
-#, 'milk' as food
-}]
-^display_hash[$hash]
-
-
-}
-
-@main[]
-^connect[mysql://root@localhost/paf]{
-	$participants[^hash::sql{select 'feodor' as participant }]
-}
-
-#:даст хеш такой структуры:
-$participantsZ[
-	$.alex(1)
-	$.boris(1)
-]
-
-#:из которого можно эффективно извлекать информацию, например, так:
-$person[feodor]
-$person ^if($participants.$person){участвует}{не участвует} в мероприятии
+#	^string:sql{select a from paf}
+	OK
 }
-
-
-@display_hash[hash]
-#$hash.a.a
-^hash.foreach[k;v]{hash $k=(
-^if($v is hash){^display_hash[$v]}{
-^if($v is bool){bool ^if($v){true;false}}{string $v}
-}
-}[,]
-
-)^#0A}]
-
-
-@main[]
-$name[ Вася ]
-"$name"
-"^name.trim[]"
-
-$path[/section/subsection/]
-^path.trim[end;/]
-
-@main[]
-$xdoc[^xdoc::create{<?xml version="1.0"?>
-<document xmlns:s="urn:special">
-	<s:code>string</s:code>
-</document>
-}]
-$xdoc.search-namespaces.s[urn:special]
-^xdoc.selectString[string(//s:code)]