--- parser3/www/htdocs/Attic/index.html 2002/08/07 07:32:52 1.90
+++ parser3/www/htdocs/Attic/index.html 2002/08/15 09:10:09 1.111
@@ -1,5 +1,5 @@
-#@USE
-#t.p
+@USE
+/derived.p
@auto[filespec]
$selffilespec[$filespec]
@@ -22,6 +22,11 @@ $selffilespec[$filespec]
## $.default{2}
# ]
# ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
+# ^file::load[text;^string:sql{select 'from sql server' }]
+# ^string:sql{select '^^hello[]' }] $ORIGINS(1)
+# ^process{ ^^h[]}
+# ^process{^string:sql{select '1
+# ^^hello[]' }] }
#}
#^eval(2)
#^tcrashlocaljunctionsv2[]
@@ -72,7 +77,6 @@ $selffilespec[$filespec]
#^precisionProblem[]
#^xpath[]
#^ttablesetlang[]
-#^mail3[]
#^ttime[]
#^tupper[]
#^treplace[]
@@ -183,21 +187,107 @@ $selffilespec[$filespec]
#^tfilespec[]
#^tcrypt[]
#^cryptdocsample[]
-^sendtests[]
#^tnormalize[]
#^xmltransformbyxdoc[]
#^sergestrandef[]
#^tstdin[]
#^tfind[]
-#^calendar[]
#^mimet[]
#^cgit[]
#^joinlimit[]
#^tableclonelimit[]
-^transparams[]
+#^transparams[]
+#^sendtests[]
+#^wwrapperpass[]
+#^badpos[]
+#^processtest[]
+#^mail3[]
+#^mail4[]
+#^datesaving[]
+#^badconstructor[]
+#^calendar[]
+#^monthdays(8)
+#^xdoctypetest[]
+#^xtabletest[]
+^staticstest[]
+#^staticstest2[]
OK
+@staticstest2[]
+^$derived:derived_var=$derived:derived_var
+^$derived:a=$derived:a
+$derived:a[changed] ^$derived:a=$derived:a
+$derived:derived_var[changed]
+^$derived:derived_var=$derived:derived_var
+
+@staticstest[]
+$derived[^derived::create[]]
+^derived.test[]
+
+^$derived.a=$derived.a
+^$derived.x=$derived.x
+
+^if($derived is derived){derived is derived}{error: derived is not derived}
+^if($derived is table){derived is table}{error:derived is not table}
+
+^^eval(^$derived)=^eval($derived)
+^^if(^$derived)=^if($derived){y}{n}
+
+
+@xdoctypetest[]
+$xdoc[^xdoc::create[x]]
+^if($xdoc is xdoc){y}{n}
+
+@xtabletest[]
+$xtableo[^xtable::create[]]
+^if($xtableo is table){y}{n}
+#^xtableo.columns[]
+
+@monthdays[month]
+$from[^date::create(2000;$month;1)]
+$to[^date::create($from)] ^to.roll[month](+1)
+$result($to-$from)
+
+@badconstructor[]
+^date::now[]
+
+@datesaving[]
+$now[^date::now[]]
+$now.daylightsaving
+$now.yearday
+#
+$date[^date::create(2002;1;3)]
+$date.daylightsaving
+$date.yearday
+
+@mail4[]
+^mail:send[
+ $.from[paf@mail.design.ru]
+ $.to[paf@mail.design.ru]
+ $.subject[^taint[uri][москва]=2]
+ $.text[^taint[uri][москва]=]
+ $.html{link}
+]
+@processtest[]
+ $f[^file::load[text;piece.p]] ^process{$f.text}
+ $ORIGINS(1)
+
+
+@badpos[]
+$s[123]
+^s.mid(0;2)
+
+@wwrapperpass[]
+$h[^hash::create[]]
+$h.a(1)
+^my_method[^if(1){$h}]
+работает. так и должно быть?
+
+@my_method[p]
+^p._count[]
+
+
@tableclonelimit[]
$source[^table::create{a
aa
@@ -227,7 +317,8 @@ xx
#^dest.join[$source;$.limit(2)]
#^dest.join[$source;$.offset(1)$.limit(1)]
#^dest.join[$source;$.offset(1)$.limit(2)]
-^dest.join[$source;$.offset[cur]$.limit(1)]
+#^dest.join[$source;$.offset[cur]$.limit(1)]
+^dest.join[$source;$.limit(0)]
^dest.menu{$dest.a}[,]
@@ -1182,13 +1273,13 @@ $t[^table::set{^untaint{^taint[$a-tab-b]
@mail3[]
^mail:send[
- $.from[Александр Петросян ]
- $.to[Александр Петросян ]
- $.subject[проверка4]
+ $.from[Александр Петросян ]
+ $.to[Александр Петросян ]
+ $.subject[проверка2]
$.body[
$.text[
$.content-type[$.value[text/plain] $.charset[windows-1251]]
- $.body[проверка]
+ $.body[проверка^taint[uri][москва]=]
]
$.attachment[
$.value[^file::load[text;index.html]]
@@ -1648,11 +1739,11 @@ $abc[abc]
@calendar[]
$year(2002)
-$month(8)
+$month(12)
${year}-${month}:
$week_days[^date:calendar[rus]($year;$month)]
-^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday; ^; ^;} }=$week_days.week=
}
+^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday; ^; ^;} }=$week_days.week,$week_days.year=
}
@thash[]