rustweb 0.6.1

�cL�4





�
�






�
�1���86�d2
FT

IZ
Y!
"
#
$
%
&
'
(
)
�
�
�
�9$
s&

�(
%L
q

sys

|

�	
t
s
�

1


R
 !
6#
Q'l)
"L
p

sys
�
'

r
�u








�
 G
F
E
D
C
B
A
K
/favicon.icoimage/x-icon>�

�
^
y
x
w
Z�@
0
�
.�	7
/
�@D


�'�z
3

George Barwood�F�]�,Kw
~

�smtp.ma*�geebee2+�rxzjfer,smtp.gmail.com�george.-�dgpfqyd.


�+
email.Retry������
[���EXEC (%y
���EXEC �
z
���EXEC ^
)'{
���EXEC �
>
�/favicon.ico
�/Uploado
^
v
�
|
{
z
�O
N
M
L
K
J
I
H

�o
n
m
l
k
j
i
h

�W
V
U
T
S
R
Q
P

���������q1+
,
-
>
�����
�
�
�
�
�
�
�
����LE dbo.Cust( La

���_
^
]
\
[
Z
Y
X

��������g
f
e
d
c
b
a
`

(/)/*/+/,/-/./�����������������









 /!/"/#/$/%/&////////////////	/
///
///
//////�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.�.x.y.z.{.|.}.~.p.q.r.s.t.u.v.A/B/C/D/E/F/G/H/I/J/K/L/k/l/m/n/o/p/q/r/s/t/u/v/w/h.i.j.k.l.m.n.`.a.b.c.d.e.f.X.Y.Z.[.\.].^.P.Q.R.S.T.U.V.H.I.J.K.L.M.N.@.A.B.C.D.E.F.8.9.:.;.<.=.>.0.1.2.3.4.5.6.(.).*.+.,.-... .!.".#.$.%.&................	.
...
...
......�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�/�/�/�/�/�/�/�/�/�/�/�/�/�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-�-0/1/2/3/4/5/6/7/�-�-�-�-�-�-�-x-y-z-{-|-}-~-p-q-r-s-t-u-v-h-i-j-k-l-m-n-`-a-b-c-d-e-f-X-Y-Z-[-\-]-^-P-Q-R-S-T-U-V-H-I-J-K-L-M-N-@-A-B-C-D-E-F-8-9-:-;-<-=->-0-1-2-3-4-5-6-(-)-*-+-,---.- -!-"-#-$-%-&----------------	-
---
---
------�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,�,x,y,z,{,|,},~,p,q,r,s,t,u,v,h,i,j,k,l,m,n,`,a,b,c,d,e,f,�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/�/X,Y,Z,[,\,],^,P,Q,R,S,T,U,V,H,I,J,K,L,M,N,@,A,B,C,D,E,F,8,9,:,;,<,=,>,0,1,2,3,4,5,6,(,),*,+,,,-,.,V/W/X/Y/Z/[/\/]/^/_/`/a/ ,!,",#,$,%,&,,,,,,,,,,,,,,,,	,
,,,
,,,
,,,,,,�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+�+x+y+z+{+|+}+~+p+q+r+s+t+u+v+h+i+j+k+l+m+n+`+a+b+c+d+e+f+X+Y+Z+[+\+]+^+P+Q+R+S+T+U+V+H+I+J+K+L+M+N+@+A+B+C+D+E+F+8+9+:+;+<+=+>+0+1+2+3+4+5+6+(+)+*+++,+-+.+ +!+"+#+$+%+&++++++++++++++++	+
+++
+++
++++++�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�2�2�2�2�2�2�2
�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*�*x*y*z*{*|*}*~*p*q*r*s*t*u*v*h*i*j*k*l*m*n*`*a*b*c*d*e*f*X*Y*Z*[*\*]*^*P*Q*R*S*T*U*V*H*I*J*K*L*M*N*@*A*B*C*D*E*F*8*9*:*;*<*=*>*0*1*2*3*4*5*6*(*)***+*,*-*.* *!*"*#*$*%*&****************	*
***
***
******�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�2�2�2�2�2�2�2
�2�2�2�2�2�2�2
�2�2�2�2�2�2�2
�2�2�2�2�2�2�2

�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)�)x)y)z){)|)})~)p)q)r)s)t)u)v)h)i)j)k)l)m)n)�2�2�2�2�2�2�2
�2�2�2�2�2�2�2
`)a)b)c)d)e)f)X)Y)Z)[)\)])^)P)Q)R)S)T)U)V)H)I)J)K)L)M)N)@)A)B)C)D)E)F)8)9):);)<)=)>)0)1)2)3)4)5)6)()))*)+),)-).) )!)")#)$)%)&))))))))))))))))	)
)))
)))
))))))�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(�(x(y(z({(|(}(~(p(q(r(s(t(u(v(h(i(j(k(l(m(n(`(a(b(c(d(e(f(X(Y(Z([(\(](^(P(Q(R(S(T(U(V(H(I(J(K(L(M(N(@(A(B(C(D(E(F(8(9(:(;(<(=(>(0(1(2(3(4(5(6((()(*(+(,(-(.( (!("(#($(%(&((((((((((((((((	(
(((
((�2�2�2�2�2�2�2
(
((((((�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'�'x'y'z'{'|'}'~'p'q'r's't'u'v'h'i'j'k'l'm'n'`'a'b'c'd'e'f'X'Y'Z'['\']'^'P'Q'R'S'T'U'V'H'I'J'K'L'M'N'@'A'B'C'D'E'F'8'9':';'<'='>'0'1'2'3'4'5'6'(')'*'+','-'.' '!'"'#'$'%'&''''''''''''''''	'
'''
'''
''''''�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�2�2�2�2�2�2�2
�2�2�2�2�2�2�2
�2�2�2�2�2�2�2
{2|2}2~22�2�2

�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&s2t2u2v2w2x2y2
k2l2m2n2o2p2q2
�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&�&x&y&z&{&|&}&~&p&q&r&s&t&u&v&h&i&j&k&l&m&n&`&a&b&c&d&e&f&X&Y&Z&[&\&]&^&P&Q&R&S&T&U&V&H&I&J&K&L&M&N&@&A&B&C&D&E&F&8&9&:&;&<&=&>&0&1&2&3&4&5&6&(&)&*&+&,&-&.& &!&"&#&$&%&&&&&&&&&&&&&&&&&&	&
&&&
&&&
&&&&&&�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%�%x%y%z%{%|%}%~%p%q%r%s%t%u%v%h%i%j%k%l%m%n%`%a%b%c%d%e%f%X%Y%Z%[%\%]%^%P%Q%R%S%T%U%V%H%I%J%K%L%M%N%c2d2e2f2g2h2i2
@%A%B%C%D%E%F%8%9%:%;%<%=%>%0%1%2%3%4%5%6%(%)%*%+%,%-%.% %!%"%#%$%%%&%%%%%%%%%%%%%%%%	%
%%%
%%%
%%%%%%�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$x$y$z${$|$}$~$p$q$r$s$t$u$v$h$i$j$k$l$m$n$`$a$b$c$d$e$f$X$Y$Z$[$\$]$^$P$Q$R$S$T$U$V$H$I$J$K$L$M$N$@$A$B$C$D$E$F$8$9$:$;$<$=$>$0$1$2$3$4$5$6$($)$*$+$,$-$.$ $!$"$#$$$%$&$[2\2]2^2_2`2a2
S2T2U2V2W2X2Y2
K2L2M2N2O2P2Q2
C2D2E2F2G2H2I2

$$$$$$$$$$$$$$$	$
$$$
$$$
$$$$$$�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#;2<2=2>2?2@2A2
�#�#�#�#�#�#�#32425262728292
�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#�#x#y#z#{#|#}#~#p#q#r#s#t#u#v#h#i#j#k#l#m#n#`#a#b#c#d#e#f#X#Y#Z#[#\#]#^#P#Q#R#S#T#U#V#H#I#J#K#L#M#N#@#A#B#C#D#E#F#8#9#:#;#<#=#>#0#1#2#3#4#5#6#(#)#*#+#,#-#.# #!#"###$#%#&################	#
###
###
######�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"�"+2,2-2.2/20212
�"�"�"�"�"�"�"x"y"z"{"|"}"~"p"q"r"s"t"u"v"h"i"j"k"l"m"n"`"a"b"c"d"e"f"X"Y"Z"["\"]"^"P"Q"R"S"T"U"V"H"I"J"K"L"M"N"@"A"B"C"D"E"F"8"9":";"<"=">"0"1"2"3"4"5"6"(")"*"+","-"." "!"""#"$"%"&""""""""""""""""	"
"""
"""
""""""�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!�!x!y!z!{!|!}!~!p!q!r!s!t!u!v!h!i!j!k!l!m!n!`!a!b!c!d!e!f!#2$2%2&2'2(2)2
22222 2!2
2222222
22
22222

X!Y!Z![!\!]!^!P!Q!R!S!T!U!V!H!I!J!K!L!M!N!@!A!B!C!D!E!F!8!9!:!;!<!=!>!0!1!2!3!4!5!6!(!)!*!+!,!-!.!222222	2
 !!!"!#!$!%!&!�1�1�1�1�12
2
!!!!!!!!!!!!!!!	!
!!!
!!!
!!!!!!� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � x y z { | } ~ p q r s t u v h i j k l m n ` a b c d e f X Y Z [ \ ] ^ P Q R S T U V H I J K L M N @ A B C D E F 8 9 : ; < = > 0 1 2 3 4 5 6 ( ) * + , - .   ! " # $ % &                	 
   
   
      ��������������������������������������������������1�1�1�1�1�1�1
���������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


�������������������������������������������������������������������������������������1�1�1�1�1�1�1
�1�1�1�1�1�1�1
�1�1�1�1�1�1�1
��������1�1�1�1�1�1�1

���������������������xyz{|}~pqrstuvhijklmn�1�1�1�1�1�1�1
`abcdef�1�1�1�1�1�1�1
XYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


�1�1�1�1�1�1�1
����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


�����������������������������1�1�1�1�1�1�1
�1�1�1�1�1�1�1
�1�1�1�1�1�1�1
��������1�1�1�1�1�1�1

��������������������������������������������������1�1�1�1�1�1�1
�1�1�1�1�1�1�1
����������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF�1�1�1�1�1�1�1
89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&{1|1}1~11�1�1
s1t1u1v1w1x1y1
k1l1m1n1o1p1q1
c1d1e1f1g1h1i1

	


����������������������������[1\1]1^1_1`1a1
S1T1U1V1W1X1Y1
������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������K1L1M1N1O1P1Q1
xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefC1D1E1F1G1H1I1
;1<1=1>1?1@1A1
XYZ[\]^31415161718191
+1,1-1.1/10111

PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&#1$1%1&1'1(1)1
11111 1!1
	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


��������������������������������������������������������1111111
��������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


������������������������������������������������������������������������������������11
11111
�������111111	1
�0�0�0�0�01
1
�0�0�0�0�0�0�0

���������������������xyz{|}~pqrstuvhijklmn`abcdef�0�0�0�0�0�0�0
�0�0�0�0�0�0�0
XYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUVHIJKLMN@ABCDEF89:;<=>0123456()*+,-. !"#$%&	


�0�0�0�0�0�0�0
����������������������������������������������������������������������������������������������������������������xyz{|}~pqrstuvhijklmn`abcdefXYZ[\]^PQRSTUV��
�
�
�
�

~
}

0�
�
�
�
�
�
�
@ABCDEF+�������9:;<=>1�������1234562�������)*+,-.3�������!"#$%&4�������5�������6�������	

7�������
8�������������9�������������:�������������;�������������<�������������=��������������0�0�0�0�0�0�0
�0�0�0�0�0�0�0
�0�0�0�0�0�0�0
�0�0�0�0�0�0�0

>�������������C�������������D�������������E�������������F�������������G�������������H��������������0�0�0�0�0�0�0
�0�0�0�0�0�0�0
I�������������L�������������M�������������N�������yz{|}~O�������qrstuvP�������ijklmnQ�������abcdefR�������YZ[\]^S�������QRSTUVT�������IJKLMNU�������ABCDEFV�������9:;<=>W�������123456X�������)*+,-.Y�������!"#$%&Z�������[�������\�������	

]�������
^�������������_�������������`�������������a�������������b�������������c�������������d�������������e�������������f�������������g�������������h�������������i�������������j�������������k�������������l�������������m�������������n�������yz{|}~o�������qrstuvp�������ijklmnq�������abcdefr�������YZ[\]^s�������QRSTUVt�������IJKLMNu�������ABCDEFv�������9:;<=>�0�0�0�0�0�0�0
w�������123456y�������)*+,-.z�������!"#$%&{�������|�������}�������	

~�������
���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456��������)*+,-.��������!"#$%&�����������������0�0�0�0�0�0�0
�0�0�0�0�0�0�0
�0�0�0�0�0�0�0
�0�0�0�0�0�0�0

��������	

��������
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
{0|0}0~00�0�0
���������
�
�
�
�
�
s0t0u0v0w0x0y0
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
���������
�
�
�
�
�
��������y
z
{
|
}
~
��������q
r
s
t
u
v
��������i
j
k
l
m
n
��������a
b
c
d
e
f
��������Y
Z
[
\
]
^
��������Q
R
S
T
U
V
��������I
J
K
L
M
N
��������A
B
C
D
E
F
��������9
:
;
<
=
>
��������1
2
3
4
5
6
��������)
*
+
,
-
.
��������!
"
#
$
%
&
��������





��������





��������	







��������






����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������yz{|}~k0l0m0n0o0p0q0
��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456��������)*+,-.��������!"#$%&������������������������	

��������
����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUVc0d0e0f0g0h0i0
[0\0]0^0_0`0a0
S0T0U0V0W0X0Y0
K0L0M0N0O0P0Q0

��������IJKLMN
�������ABCDEF�������9:;<=>�������123456�������)*+,-.�������!"#$%&�������C0D0E0F0G0H0I0
�������;0<0=0>0?0@0A0
	�������	

�������
��������
�
�
�
�
�

��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
��������
�
�
�
�
�
�������y
z
{
|
}
~
�������q
r
s
t
u
v
�������i
j
k
l
m
n
�������a
b
c
d
e
f
 �������Y
Z
[
\
]
^
!�������Q
R
S
T
U
V
"�������I
J
K
L
M
N
#�������A
B
C
D
E
F
$�������9
:
;
<
=
>
%�������1
2
3
4
5
6
&�������)
*
+
,
-
.
'�������!
"
#
$
%
&
(�������





)�������





*�������	






+�������






,��������	�	�	�	�	�	-��������	�	�	�	�	�	.��������	�	�	�	�	�	/��������	�	�	�	�	�	0��������	�	�	�	�	�	1��������	�	�	�	�	�	2��������	�	�	�	�	�	3��������	�	�	�	�	�	4��������	�	�	�	�	�	30405060708090
5��������	�	�	�	�	�	7��������	�	�	�	�	�	8��������	�	�	�	�	�	9��������	�	�	�	�	�	:��������	�	�	�	�	�	;��������	�	�	�	�	�	<��������	�	�	�	�	�	=�������y	z	{	|	}	~	>�������q	r	s	t	u	v	?�������i	j	k	l	m	n	@�������a	b	c	d	e	f	A�������Y	Z	[	\	]	^	B�������Q	R	S	T	U	V	C�������I	J	K	L	M	N	D�������A	B	C	D	E	F	E�������9	:	;	<	=	>	F�������1	2	3	4	5	6	G�������)	*	+	,	-	.	H�������!	"	#	$	%	&	I�������						J�������						K�������		
			
		L�������
						M�������������N�������������O�������������P�������������Q�������������R�������������S�������������T�������������U�������������V�������������W�������������X�������������Y�������������Z�������������+0,0-0.0/00010
#0$0%0&0'0(0)0
00000 0!0
0000000

[�������������`�������������a�������yz{|}~b�������qrstuvc�������ijklmnd�������abcdefe�������YZ[\]^00
00000
f�������QRSTUV000000	0
h�������IJKLMNj�������ABCDEFk�������9:;<=>l�������123456m�������)*+,-.n�������!"#$%&o�������p�������q�������	

r�������
s�������������t�������������u�������������v�������������w�������������x�������������y�������������z�������������{�������������|�������������}�������������~����������������������������������������������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456��������)*+,-.��������!"#$%&������������������������	

��������
���������������/�/�/�/�/0
0
��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456��������)*+,-.��������!"#$%&������������������������	

��������
�������������������������������������������������������������������������������������/�/�/�/�/�/�/
�/�/�/�/�/�/�/
�/�/�/�/�/�/�/
���������������/�/�/�/�/�/�/

���������������������������������������������������������������������������������������������������/�/�/�/�/�/�/
�/�/�/�/�/�/�/
������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456��������)*+,-.��������!"#$%&������������������������	

��������
����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������yz{|}~��������qrstuv��������ijklmn��������abcdef��������YZ[\]^��������QRSTUV��������IJKLMN��������ABCDEF��������9:;<=>��������123456�/�/�/�/�/�/�/
��������)*+,-.��������!"#$%&������������������������	

��������
�����������������������������������������������������������������������������������
��������������������������������������������������������������������������������������������������������	�������������
��������������������yz{|}~�������qrstuv
�������ijklmn�������abcdef�������YZ[\]^�������QRSTUV�������IJKLMN�������ABCDEF�������9:;<=>�������123456�������)*+,-.�������!"#$%&���������������/�/�/�/�/�/�/
�/�/�/�/�/�/�/
�������	

�/�/�/�/�/�/�/
y/z/{/|/}/~//

�������
������������� �������������!�������������"�������������#�������������$�������������c/d/e/f/g/h/i/
N/O/P/Q/R/S/T/
%�������������(�������������)�������������*�������������+�������������,�������������-�������������.�������������/�������������0�������������1�������yz{|}~2�������qrstuv3�������ijklmn4�������abcdef5�������YZ[\]^��
�
�
�
�
�
�
�
6�������@ABCDE8�������89:;<=9�������012345:�������()*+,-;������� !"#$%<�������=�������>�������	

?�������
@��������
�
�
�
�
�
A��������
�
�
�
�
�
B��������
�
�
�
�
�
C��������
�
�
�
�
�
D��������
�
�
�
�
�
E��������
�
�
�
�
�
F��������
�
�
�
�
�
G��������
�
�
�
�
�
H��������
�
�
�
�
�
I��������
�
�
�
�
�
J��������
�
�
�
�
�
K��������
�
�
�
�
�
��
�
�
�
�
�
�
�
��
�
�
�
�
�
�
�
��
�
�
�
�
�
�
�
��
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
��
�
�
�
�
�
�
�
��
�

�����9/:/;/</=/>/?/
�
�
�
�
�
�
�
J�
�
ser.
     In addition, the salt string in login.Hash shou���������h"


 
!
"
#
$
%
�
�&
'
(
)
�
�
�
�t
END
��*
?
�
�
�
�
�
�







���C3D3E3F3G3H3:3;3<3=3>3?3@323334353637383�

+3,3-3.3/303�5
4
3
2
1
0
/
.
�=
<
;
:
9
8
7
6
%CREATE FN schema.name ( param1 type1, param2 type2... ) AS BEGIN statements END
<p>A stored function ( no retu
"�rior batch before being used. A GO statement may be used to signify the start of a new batch.
<h2>Stored Functions</h2>
<h3>C
!�result ( which should be a list of SQL statements ).
<p>Note that database objects ( tables, function ) must be created in a p
0 �rminated.
<h2>Batch execution</h2><p>EXECUTE ( string-expression )
<p>Evaluates the string expression, and then executes the 
�label consists of a name followed by a colon (:)
<h3>BREAK</h3><p>BREAK
<p>Execution of the enclosing FOR or WHILE loop is te
!#�ool-exp evaluates to true. See also BREAK.
<h3>GOTO</h3><p>GOTO label
<p>Control is transferred to the labelled statement. A 
�ent2 ( if specified ) is executed.
<h3>WHILE</h3><p>WHILE bool-exp Statement
<p>Statement is repeatedly executed as long as b
"&�
<p>IF bool-exp THEN Statement1 [ ELSE Statement2 ]
<p>If% bool-exp evaluates to true Statement1 is executed, otherwise Statem
�in order. A BEGIN..END compound statement can be used whenever a single statement is allowed.
<h3>IF .. THEN ... ELSE ...</h3>
%'�
<h2>Control flow statements</h2>
<h3>BEGIN .. END</h3><p>BEGIN Statement1 Statement2 ... END
<p>The statements are executed 
�table which satisfies the WHERE condition, with the named local variables being assigned expressions which depend on the rows.

$,�.... FROM table [ WHERE bool-exp ] [ORDER BY expressions] Statement
<p>Statement is repeatedly executed for each row from the 
�n. If there is no such row, the values of the local variables remain unchanged.
<h3>FOR</h3><p>FOR name1 = exp1, name2 = exp2 
)+�riables are assigned. If the FROM clause is specified, the values are taken from a table row which satisfies the WHERE conditio
�ered if there is a loop ).
<h3>SET</h3>
<p>SET name1 = exp1, name2 = exp2 .... [ FROM table ] [ WHER%E bool-exp ]
<p>Local va
*.�with the specified types. The variables are initialised to default values ( but only once, not each time the DECLARE is encount
�tion and assignment statements</h2>
<h3>DECLARE</h3><p>DECLARE name1 type1, name2 type2 ....
<p>Local variables are declared 
-/�chema.tablename WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are removed.
<h2>Local variable declara
� Exp2 .... WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are updated.
<h3>DELETE</h3><p>DELETE FROM s
(4�client for further processing and eventual display. 
<h3>UPDATE</h3><p>UPDATE schema.tablename SET Colname1 = Exp1, Colname2 =
� stand-alone statement, the results are passed to the code that invoked the batch, and may be displayed to a user or sent to a 
13�ression, the order is reversed ( descending order ).
<p>The SELECT expressions can be given names using AS.
<p>When used as a

�d, bas%ed on the list of expressions and the WHERE and ORDER BY clauses.
<p>If the keyword DESC is placed after an ORDER BY exp28� ).
<h3>SELECT</h3><p>SELECT expressions FROM source-table [WHERE bool-exp ] [ORDER BY expressions]
<p>A new table is compute
�ed values are inserted into the table. The values may be any expressions ( possibly involving local variables or function calls
57
�
<p>INSERT INTO schema.tablename ( Colname1, Colname2 ... ) VALUES ( Val1, Val2... ) [,] ( Val3, Val4 ...) ...
<p>The specifi
	�ed before using ALTER TABLE. They can be added again afterwards.
</ul>
<h2>Data manipulation statements</h2>
<h3>INSERT</h3>
69�column is removed from the table.</li>
</ul>
<p>Note: currently, any indexes that have been added to a table need to be dropp:�en float and double, and modification of the number of bytes stored inline for binary and string.</li>
<li>DROP Colname : the 
A�PARSEINT( s string ) : parses an integer from s.<Z the days in a 400 year cycle ( 400 * 365 +
�st |= CASE WHEN  list = '' THEN col ELSE ',' | col END
  RETURN '(' | list | ')'
END
ACETE FROM sys.Table WHERE Id = t
ENDble WHERE Id = t
  DELETE FROM sys.Column WHERE Table = t
  DELE
�er data */
  DELETE FROM browse.Table WHERE Id = t
  DELETE FROM sys.Column WHERE Table = t
  DELEBH�s.Column WHERE Table = t
  BEGIN
    DELETE FROM browse.Column WHERE Id = id
  END
  /* Delete oth
� END
  DELETE FROM sys.Index WHERE Table = t
   /* Delete the column data */
  FOR id = Id FROM sy
EG� id = Id FROM sys.Index WHERE Table = t
  BEGIN
    DELETE FROM sys.IndexColumn WHERE Index = id
 
�sid EXECUTE( 'DROP TABLE ' | sys.Dot(schema,name) )
  DELETE FROM sys.Schema WHERE Id = sid
END = 
FI
� sid EXECUTE( 'DROP FN ' | sys.Dot(schema,name) )
  FOR name = Name FROM sys.Table WHERE Schema = J�sys.Column WHERE Table = table
    SET result |= '|'',''|' | col
  RETURN resul[ �
t}�    ext.trans_wait = true;
        }
        ee.tr.set_extension(ext);
        0
    }
}

/*
/// Compile call to BINPACK.
fn c_
|� -> i64 {
        let mut ext = ee.tr.get_extension();
        if let Some(mut ext) = ext.downcast_mut::<TransExt>() {
        

{�/ Compiled call to TRANSWAIT
struct TransWait {}
impl CExp<i64> for TransWait {
    fn eval(&self, ee: &mut EvalEnv, _d: &[u8])
z�fn c_trans_wait(b: &Block, args: &mut [Expr]) -> CExpPtr<i64> {
    check_types(b, args, &[]);
    Box::new(TransWait {})
}

//
y�            ext.tx_email = true;
        }
        ee.tr.set_extension(ext);
        0
    }
}

/// Compile call to TRANSWAIT.

x�: &[u8]) -> i64 {
        let mut ext = ee.tr.get_extension();
        if let Some(mut ext) = ext.downcast_mut::<TransExt>() {

w�ilTx {})
}

/// Compiled call to EMAILTX
struct EmailTx {}
impl CExp<i64> for EmailTx {
    fn eval(&self, ee: &mut EvalEnv, _d
v� call to EMAILTX.
fn c_emaXtes = c_value(b, &mut args[0]);
    Box::new(Binunpack { bytes })
}

/// Compiled call to BINUNPACK.
struct Binunpack {
 28��BINUNPACK.
fn c_binunpack(b: &Block, args: &mut [Expr]) -> CExpPtr<Value> {
    check_types(b, args, &[DataKind::Binary]);
    
��&data);
            Value::RcBinary(Rc::new(cb))
        } else {
            panic!();
        }
    }
}

/// Compile call to 
57��a) = self.bytes.eval(ee, d) {
            let mut comp = flate3::Compressor::new();
            let cb: Vec<u8> = comp.deflate(
��,
}
impl CExp<Value> for Binpack {
    fn eval(&self, ee: &mut EvalEnv, d: &[u8]) -> Value {
        if let Value::RcBinary(dat
69�e(b, &mut args[0]);
    Box::new(Binpack { bytes })
}

/// Compiled call to BINPACK.
struct Binpack {
    bytes: CExpPtr<Value>:~�binpack(b: &Block, args: &mut [Expr]) -> CExpPtr<Value> {
    check_types(b, args, &[DataKind::Binary]);
    let bytes = c_valu
X

   /// Trace query time
*.�� /// Login cookies for replication
   #[clap(short, long, value_parser, default_value = "")]
   login: String,

   /// Memory l
��0.0")]
   ip: String,

   /// Server to replicate
   #[clap(short, long, value_parser, default_value = "")]
   rep: String,

  
-/��ser!(u16).range(1..))]
   port: u16,

   /// Ip Address to listen on
   #[clap(short, long, value_parser, default_value = "0.0.
��lap(author, version, about, long_about = None)]
struct Args {
   /// Port to listen on
   #[clap(value_parser = clap::value_par
(4��e::RcBinary(Rc::new(ucb))
        } else {
            panic!();
        }
    }
}
*/

use clap::Parser;

#[derive(Parser)]
#[c
��if let Value::RcBinary(data) = self.bytes.eval(ee, d) {
            let ucb: Vec<u8> = flate3::inflate(&data);
            Valu
13��   bytes: CExpPtr<Value>,
}
impl CExp<Value> for Binunpack {
    fn eval(&self, ee: &mut EvalEnv, d: &[u8]) -> Value {
        
��let byX
   DECLARE cu int SET cu = login.get(0) IF cu = 0 RETURN

   EXE
��ame�Alex�LastName�Barwood�x�101��hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1��欹��+�FirstN
%'��web.Main()�/EditRow��b1�/ShowTable?s=dbo&n=Cust�b2�/ShowRow?s=dbo&n=Cust&k=8�k�8�n�Cust�s�dbo��$submit�Save�Age�63�City��FirstN
��elete��hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���1ȹk=21�k�21�n�File�s�web��$submit�D
$,��web.Main()�/EditRow��b1�/ShowSchema?s=web�b2�/ShowTable?s=web&n=File�b3�/ShowRow?s=web&n=File&k=21�k�21�n�File�s�web��$submit�D
��e_parser, default_value_t = false)]
   tracemem: bool,

}
��submit���Upload���/v�(Trace memory trimming
   #[clap(long, valu
)+��
   #[clap(long, value_parser, default_value_t = false)]
   tracetime: bool,

   /// Trace memory trimming
   #[clap(long, valu
��imit for page cache (in MB)
   #[clap(short, long, value_parser, default_value_t = 10)]
   mem: usize,Xt>Exact</a>
<p><a href=/CheckAll>Check all functions compile ok</a> 

<h3>Schemas</h3>'
   SELECT '<a href=
��riptAll?mode=1>Script entire database</a> 
  | <a target=_blank href=/ScriptAll?mode=2>Filtered</a>    
  | <a target=_blank 
��ef=/ListLogins>Logins</a>
<p><a href=/ListFile>Files</a>
<p><a href=/FileUpload>File Upload</a>
<p><a target=_blank href=/Sc
0��ary</a>
<p><a target=_blank href="/">Public Site Home Page</a>
<h3>System</h3>
<p><a href=/Execute>Execute SQL</a>
<p><a hr
��_fastest_web_frameworks_are_written/

<p><a href="/ShowTable?s=dbo&n=Cust">Customers</a> | <a href="/OrderSummary">Order Summ
!#�� displaying record. Suppress editing of some fields. File editing. https://www.reddit.com/r/rust/comments/wooiwi/3_of_the_top_5
��C web.Head('System Menu')
   SELECT '
<p>Martin Dent project. Archive project. Port BMIB. Start a blog. Add extra fields when
"&��web.Main()�/EditFunc��n�/Menu�s�handler��def�3() AS
BEGINXsword' )
    S
�� IF pw != '' 
  BEGIN
    UPDATE login.user SET HashedPassword = login.hash(pw|k) WHERE Id = k
    EXEC web.Head( 'Password 
��get(1) IF cu = 0 RETURN

  DECLARE k int SET k = PARSEINT( web.Query('k') )

  DECLARE pw string SET pw = web.Form('pw')
 
��web.Main()�/EditFunc��b1�/ShowSchema?s=handler�n�/SetPassword�s�handler��def�'() AS 
BEGIN 
  DECLARE cu int SET cu = login.
��l��$submit�Save��hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���8�ɣmsg�n�Queue�p�3�s�emai
��web.Main()�/AddChild��b1�/ShowSchema?s=email�b2�/ShowTable?s=email&n=Msg�b3�/ShowRow?s=email&n=Msg&k=3�f�msg�n�Queue�p�3�s�emai
��39943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1������
 BY Name

   EXEC web.Trailer()
END��hpw�B0xceb28932f942
��ShowSchema?s=' | Name | '>' | Name | '</a> | ' FROM sys.Schema ORDER BY Name

   EXEC web.Trailer()
END��hpw�B0xceb28932f942
��href=/ScriptExacXord')
    SET result = Id FROM login.user WHERE Name = us
��
     In addition, the salt string in login.Hash should be changed.
  */
  RETURN 1 -- Login disabled.

  IF username != ''
��in is initially disabled. Remove or comment out the line below enable Login after Login password has been setup for some user.

��ed in user. Note: role is not yet checked */

  DECLARE username string SET username = web.Form('username')

  /*
     Log
��web.Main()�/EditFunc��b1�/ShowSchema?s=login�n�get�s�login��def��( role int ) RETURNS int AS
BEGIN
  /* Get the current logg
���B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���G��N>'
    EXEC web.Trailer()
  END
END��hpw
��ELECT '<form method=post><p>Enter password: <input name=pw><input type=submit></form>'
    EXEC web.Trailer()
  END
END��hpw
��Set')
    SELECT '<p>Password set'
    EXEC web.Trailer()
  END
  ELSE
  BEGIN
    EXEC web.Head( 'Set PasXue=Login></form>'
  EXEC web.Trailer()

  RETURN 0
END��hpw�B0xceb28932f94239943ca565f2ee11c9839b
��eb.Head( 'Login' )
  SELECT '<form method=post>User Name <input name=username><br>Password <input type=password name=password>
��ARE hpwt binary SET hpwt = HashedPassword FROM login.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXEC w
	��RE hpwf string SET hpwf = web.Cookie('hpw')

  IF uids != ''
  BEGIN
    DECLARE uid int SET uid = PARSEINT(uids)
    DECL
��okie( 'hpw', '' | hpw, '' )
      RETURN result
    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
  DECLA

��ND HashedPassword = hpw
    IF result > 0
    BEGIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCo
��ername
    DECLARE hpw binary SET hpw = login.hash( password|result )
    SET result = Id FROM login.user WHERE Id = result A

��
  BEGIN
    DECLARE password string SET password = web.Form('passwX �
t��sername
    DECLARE hpw binary SET hpw = login.hash( password|result )
    SET result = Id FROM login.user WHERE Id = result 
��'
  BEGIN
    DECLARE password string SET password = web.Form('password')
    SET result = Id FROM login.user WHERE Name = u

��
     In addition, the salt string in login.Hash should be changed.
  */
  RETURN 1 -- Login disabled.

  IF username != '
��gin is initially disabled. Remove or comment out the line below enable Login after Login password has been setup for some user.
��ged in user. Note: role is not yet checked */

  DECLARE username string SET username = web.Form('username')

  /*
     Lo
��web.Main()�/EditFunc��b1�/ShowSchema?s=login�n�getx�s�login��def��( role int ) RETURNS int AS
BEGIN
  /* Get the current log
�]27d320318f2cbdedb52fcdf95cfd93�uid�1���S�0� EXEC web.Trailer()

  RETURN 0
END��hpw�B0xceb28932f94239943ca565f2ee11c9839b
��<br><input type=submit val&�,:�tring SET def = web.Form('def')
  IF def != '' 
  BEGIN
    EXECUTE( 'ALTER FN ' | sys.Dot(s,n) | def )
    SET ex = EXCEPTION(
;�)
  END
  ELSE SET def = Def FROM sys.Function WHERE Schema = sid AND Name = n 
  EXEC web.Head( 'Edit ' | n )
  IF ex != '' SE
=�howSchema?s=' | s | '>' | s | '</a> . ' | n 
     | CASE WHEN s = 'handler' THEN ' <a href=' | n | '>Go</a>' ELSE '' END
     |
?�'
     | '<br><textarea name=sql rows=20 cols=100' | CASE WHEN sql='' THEN ' placeholder="Enter SQL here. See Manual for detai
>� '<br><textarea name=def rows=40 cols=150>' | htm.Encode(def) | '</textarea>' 
     | '</form>' 
  EXEC web.Trailer()
END     |
<�LECT '<p>Error: ' | htm.Encode( ex )
  SELECT 
     '<p><form method=post>'
     | '<input type=submit value="ALTER"> <a href=S
A� ) -- Causes result tables to be displayed as HTML tables
    EXECUTE( sql ) 
    -- EXEC SETMODE( 0 )
    DECLARE ex string
C�LECT dbo.CustName(Id) AS N&ame, Age FROM dbo.Cust'
     | '<br>SELECT Cust, Total FROM dbo.Order'
     | '<br>SELECT EMAILTX()
B� SET ex = EXCEPTION()
    IF ex != '' SELECT '<p>Error : ' | htm.Encode(ex)
  END
  SELECT '<p>Example SQL:'
     | '<br>SE
@�ls."' ELSE '' END | '>' | htm.Encode(sql) | '</textarea>' 
     | '</form>' 
  IF sql != '' 
  BEGIN
    -- EXEC SETMODE( 1	E�stName string, Age int )'
     | '<br>CREATE FN handler.[/MyPage]() AS BEGIN END'
     | '<br>SELECT ''hash='' | ARGON( ''arg
G� rtest.OneTest()'
     | '<br>CREATE INDEX ByCust ON dbo.Order'
     | '<br>DROP INDEX ByCust ON dbo.Order'  
     | '<br>AL
F�on2i!'', ''delicious salt'' )'
     | '<br>EXEC web.SetCookie(''username'',''fred'',''Max-Age=1000000000'')'
     | '<br>EXEC
I�code'
     | '<br>DROP TABLE dbo.Cust'
     | '<br>SELECT VERIFYDB()'
     | '<br>SELECT REPACKFILE(0,''dbo'',''Order'')'
 
K�'' Len='' | BINLEN(data) FROM log.Transaction'

   EXEC web.Trailer&()
ENDERE true'
     | '<br>SELECT ''&lt;p>Id='' | Id | 
J�    | '<br>EXEC dbo.MakeOrders(50000)'
     | '<br>DELETE FROM dbo.Order WHERE true'
     | '<br>SELECT ''&lt;p>Id='' | Id | 
H�TER TABLE dbo.Cust MODIFY FirstName string(20), ADD [City] string, PostCode string'
     | '<br>ALTER TABLE dbo.Cust DROP Post

M�s/' | FILEATTR(0,2), FILEATTR(0,1), BINLEN(content), content )
  END
  SELECT '<form method=post enctype="multipart/form-data">
O�ntLength | ' id=' | Id | ' <a href="/EditFile?k=' | Id | '">Edit Path</a>'
  FROM web.File
  EXEC web.Trailer()
END
N�<p><Input name=file type=file><p><input name=submit type=submit value=Upload></form>'
  EXEC web.Trailer()
ENDipart/form-data">
L� SET content =  FILECONTENT(0)
    
    INSERT INTO web.File( Path, ContentType, ContentLength, Content )
    VALUES ( '/UploadD�'
     | '<br>EXEC date.Test( 2020, 1, 1, 60 )'
     | '<br>EXEC date.TestRoundTrip()'
     | '<br>CREATE TABTlumn, which auto-increments on INSERT ( if no explicit value is supplied).<p>The data types are as follows:
<ul>
<li>in28<�ablename ( Colname1 Coltype1, Colname2 Coltype2, ... )
<p>Creates a new base table. Every base table is automatically given an
;�to organise database objects into logical categories.
<h2>Table definition</h2>
<h3>CREATE TABLE</h3><p>CREATE TABLE schema.t
57:�REATE SCHEMA name
<p>Creates a new schema. Every database object (Table, Function) has an associated schema. Schemas are used 
9�ntax is described, optional elements are enclosed in square brackets.
<h2>Schema definition</h2>
<h3>CREATE SCHEMA</h3>
<p>C
698�C web.Head('Manual')
SELECT '<h1>Manual</h1>
<p>This manual describes the various SQL statements that are available. Where sy:7�web.Main()�/EditFunc��n�/Manual�s�handler��def�4�() AS BEGIN

   DECLARE cu int SET cu = login.get(0) IF cu = 0 RETURN

EXE
Tme action1, action2 .... 
*.D�d retrieve. Local float and integer variables and arithmetic operations are all 64 bits (8 bytes). The lower precision only app
C�tored in a special system table if the length exceeds the reserved inline storage, meaning they are slightly slower to store an
-/B�o for numbers, a zero length string for string and binary, and false for the boolean type. The variable length data types are s
A� of bytes stored inline.</li>
<li>bool : boolean ( true or false ).</li>
</ul>

<p>Each data type has a default value : zer
(4@�mber of bytes stored inline.</li>
<li>binary(n) : a variable length string of bytes. n (optional, default 15) specifies number
?�bytes respectively.</li>
<li>string(n) : a variable length string of unicode characters. n (optional, default 15) specifies nu
13>�t(n), 1 <= n <= 8. Signed n-byte integer. Default is 8 bytes.</li>
<li>float, double : floating point numbers of size 4 and 8 
=� Id coT any expressions ( possibly involving local variables or function ca
K�h3>
<p>INSERT INTO schema.tablename ( Colname1, Colname2 ... ) VALUES ( Val1, Val2... ) [,] ( Val3, Val4 ...) ...
<p>The spec
%'J�opped before using ALTER TABLE. They can be added again afterwards.
</ul>
<h2>Data manipulation statements</h2>
<h3>INSERT</
I�he column is removed from the table.</li>
</ul>
<p>Note: currently, any indexes that have been added to a table need to be dr
$,H�tween float and double, and modification of the number of bytes stored inline for binary and string.</li>
<li>DROP Colname : t
G�ltype : the datatype of an existing column is changed. The only changes allowed are between the different sizes of integers, be
)+F�<p>The actions are as follows:
<ul>
<li>ADD Colname Coltype : a new column is added to the table.</li>
<li>MODIFY Colname Co
E�lies when a value is stored in column of a table.
<h3>ALTER TABLE</h3>
<p>ALTER TABLE schema.tablenaTme WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are removed.
<h2>Local variable decl
R�2 = Exp2 .... WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are updated.
<h3>DELETE</h3><p>DELETE FRO
Q� a client for further processing and eventual display. 
<h3>UPDATE</h3><p>UPDATE schema.tablename SET Colname1 = Exp1, Colname
0P�s a stand-alone statement, the results are passed to the code that invoked the batch, and may be displayed to a user or sent to
O�expression, the order is reversed ( descending order ).
<p>The SELECT expressions can be given names using AS.
<p>When used a
!#N�uted, based on the list of expressions and the WHERE and ORDER BY clauses.
<p>If the keyword DESC is placed after an ORDER BY 
M�lls ).
<h3>SELECT</h3><p>SELECT expressions FROM source-table [WHERE bool-exp ] [ORDER BY expressions]
<p>A new table is comp
"&L�ified values are inserted into the table. The values may beTents are execut
Z�he table which satisfies the WHERE condition, with the named local variables being assigned expressions which depend on the row
Y�p2 .... FROM table [ WHERE bool-exp ] [ORDER BY expressions] Statement
<p>Statement is repeatedly executed for each row from t
X�tion. If there is no such row, the values of the local variables remain unchanged.
<h3>FOR</h3><p>FOR name1 = exp1, name2 = ex
W� variables are assigned. If the FROM clause is specified, the values are taken from a table row which satisfies the WHERE condi
V�untered if there is a loop ).
<h3>SET</h3>
<p>SET name1 = exp1, name2 = exp2 .... [ FROM table ] [ WHERE bool-exp ]
<p>Local
U�ed with the specified types. The variables are initialised to default values ( but only once, not each time the DECLARE is enco
T�aration and assignment statements</h2>
<h3>DECLARE</h3><p>DECLARE name1 type1, name2 type2 ....
<p>Local variables are declar
S�M schema.tablena$ �
t9�'<p><input name="$submit" type=submit value=Save></form>'
  EXEC web.Trailer()
END( browse.FormInsertSql( t, c ) )
  SELECT 
8�'
  IF ex != '' SELECT '<p>Error: ' | ex
  SELECT '<form method=post>' 
  EXECUTE( browse.FormInsertSql( t, c ) )
  SELECT 

7� DECLARE title string SET title = 'Add ' | browse.TableTitle( t )
  EXEC web.Head( title )
  SELECT '<b>' | title | '</b><br>
6�.tablearg(t) | '&k=' | LASTID() | ba )
      EXEC web.Redirect( browse.backurl() )       
      RETURN 
    END
  END
 
 
5� IF ex = '' 
    BEGIN
      -- DECLARE ba string SET ba = browse.backargs()
      -- EXEC web.Redirect( 'ShowRow?' | browse
4� string
  IF web.Form( '$submit' ) != '' 
  BEGIN
    EXECUTE( browse.InsertSql( t, c, p ) ) 
    SET ex = EXCEPTION()
   
3�ser( colId, type, f )
  END
  RETURN 'UPDATE ' | sys.TableName( table ) | ' SET ' | alist | ' WHERE Id =' | k
END browse.ColPar
2�uote(col) | ')'
    SET al$ist |= CASE WHEN alist = '' THEN '' ELSE ' , ' END
      | sys.QuoteName(col) | ' = ' | browse.ColPar
1�r()
  END
  ELSE
  BEGIN
    EXEC web.Redirect( browse.backurl() )
  END
'
ENDe(t) | '' Table</a>''
    EXEC web.Traile
0�  SELECT ''<p><a href="/ShowTable?'' | browse.tablearg(t) | ''">'' | browse.TableTitle(t) | '' Table</a>''
    EXEC web.Traile
	/� '''|ba|'">Add</a>''
      FROM sys.Column WHERE Id = col
      EXECUTE( browse.ChildSql( col, k, '''|ba|''' ) )
    END
  
.�ECT ''<p><b>'' | browse.TableTitle( Table ) | ''</b>''
       | '' <a href="AddChild?'' | browse.fieldarg(col) | ''&p='' | k |

-�'| ba |'">Edit</a>'''
  | '
    DECLARE col int
    FOR col = Id FROM browse.Column WHERE RefersTo = t
    BEGIN
      SEL
,�FROM ' | sys.TableName(table) | ' WHERE Id = k'
  | ' SELECT ''<p><a href="/EditRow?'' | browse.tablearg(t) | ''&k='' | k | ''

+�unc | '(k)' END | '
      EXEC web.Head( title )
      SELECT ''<b>$'' | title | ''</b><br>''
  '
  | ' SELECT ' | cols | ' 
*�DECLARE title string SET title = browse.TableTitle( t )' 
        | CASE WHEN namefunc = '' THEN '' ELSE ' | '' '' | ' | namef
)�ET k = '|k|'

    DECLARE ok int SET ok = Id FROM ' | sys.TableName(table) | ' WHERE Id = k
    IF ok = k
    BEGIN
      
(�efunc = NameFunction FROM browse.Table WHERE Id = table
  RETURN '  
    DECLARE t int SET t = '|table|'
    DECLARE k int S
'�col | '|''">''|' | nf | '(' | col | ')' | '|''</a>''' 
        ELSE col
        END
  END
  DECLARE namefunc string SET nam
&�df != '' THEN df | '(' | col | ')'
        WHEN nf != '' THEN '''<a href="/ShowRow?' | browse.tablearg(ref) | ba | '&k=''|' | 
%�cols |= 
      CASE WHEN cols = '' THEN '' ELSE ' | ' END
      | '''<p>' | colname | ': '' | '
      | CASE 
        WHEN 
$�rowse.Column WHERE Id = colid
    IF ref > 0 SET nf = NameFunction FROM browse.Table WHERE Id = ref ELSE SET nf$ = ''
    SET 
#�  DECLARE ref int, nf string, df string
    SET ref = 0, nf = '', df = ''
    SET ref = RefersTo, df = DisplayFunction FROM b
"�e(' | Name | ')'
    ELSE Name
    END
  FROM sys.Column WHERE Table = table 
  ORDER BY browse.ColPos(Id), Id
  BEGIN
  
!�
     '<option ' | CASE WHEN sel = 0 THEN ' selected' ELSE '' END | ' value=0></option>'
     | '</select>'
END">' | options | 
 �n>'
  FROM sys.Schema
  ORDER BY Name
  SET options |= opt
  RETURN '<select id="' | col | '" name="' | col | '">' | options | 
�OR opt = '<option ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END 
  | ' value=' | Id | '>' | htm.Encode( Name ) | '</optio
� )
    END
  RETURN 'INSERT INTO ' | sys.TableName( table ) | browse.InsertNames( table ) | ' VALUES (' | vlist | ')'
ENDype, f
�E WHEN vlist = '' THEN '' ELSE ' , ' END | 
    CASE 
    WHEN colId = pc THEN '' | p
    ELSE browse.ColParser( colId, type, f
�t id="' | cn | '$" name="' | cn | '" size=' | size | ' value=' | htm.Attr(date.YearMonthDayToString(value)) | '>'
END
�l | '|'''|ba|'">''|' | nf | '(' | col | ')' | '|''</a>''' 
      ELSE col
      END
  END
END.tablearg(ref) | '&k=''|' | co
�!= '' THEN df | '(' | col | ')'
      WHEN nf != '' 
      THEN '''<a href="/ShowRow?' | browse.tablearg(ref) | '&k=''|' | co
0�rowse.Table WHERE Id = ref
    SET result |= CASE WHEN result = '' THEN '' ELSE '|'', ''|' END | 
      CASE 
      WHEN df 
�
    SET ref = RefersTo, df = DisplayFunction FROM browse.Column WHERE Id = colid
    IF ref > 0 SET nf = NameFunction FROM b
!#�table 
  ORDER BY browse.ColPos(Id), Id
  BEGIN
    DECLARE ref int, nf string, df string
    SET ref = 0, nf = '', df = ''
�THEN 'PARSEFLOAT(' | f | ')'
    WHEN type % 8 = 5 THEN 'browse.ParseBool(' | f | ')'
    ELSE f
  END
END   WHEN type % 8 = 4 
"&�  RETURN CASE 
    WHEN pf != '' THEN pf | '(' | f | ')'
  $  WHEN type % 8 = 3 THEN 'PARSEINT(' | f |')'
    WHEN type % 8 = 4 
� only 28 days in a non-leap-year.
  IF m >= 3 AND NOT date.IsLeapYear( y ) SET d = d - 1
  RETURN date.YearDay( y, d )
ENDbeing
%'�244 -- Sep
    WHEN m = 10 THEN 274 -- Oct
    WHEN m = 11 THEN 305 -- Nov
    ELSE 335 -- Dec
    END
  -- Allow for Feb being
�EN 121 -- May
    WHEN m = 6 THEN 152 -- Jun
    WHEN m = 7 THEN 182 -- Jul
    WHEN m = 8 THEN 213 -- Aug
    WHEN m = 9 THEN 
$,�m = 1 THEN 0 -- Jan
    WHEN m = 2 THEN 31 -- Feb
    WHEN m = 3 THEN 60 -- Mar
    WHEN m = 4 THEN 91 -- Apr
    WHEN m = 5 TH
�   ELSE 335 -- Dec
    END
  SET dim = d - fdm
  SET m = ( d - dim + 28 ) / 31
  RETURN date.YearMonthDay( y, m+1, dim+1 )
END 
)+�EN d < 244 THEN 213 -- Aug
    WHEN d < 274 THEN 244 -- Sep
    WHEN d < 305 THEN 274 -- Oct
    WHEN d < 335 THEN 305 -- Nov
 
� < 121 THEN 91 -- Apr
    WHEN d < 152 THEN 121 -- May
    WHEN d < 182 THEN 152 -- Jun
    WHEN d < 2$13 THEN 182 -- Jul
    WH
*.
� d + 1
  SET fdm = CASE 
    WHEN d < 31 THEN 0 -- Jan
    WHEN d < 60 THEN 31 -- Feb
    WHEN d < 91 THEN 60 -- Mar
    WHEN d
�N t % 8 = 2 THEN 'string(' | (p-1) | ')'
       WHEN t % 8 = 3 THEN 'int(' | p | ')'
       ELSE '???'
    END
  END
END    WHE
-/� THEN 'binary'
    WHEN t = 130 THEN 'string'
    ELSE 
    CASE 
       WHEN t % 8 = 1 THEN 'binary(' | (p-1) | ')'
       WHE

�Quote(ParseFunction)|')'
    FROM browse.Column WHERE Id = cid
  END
  SELECT '
GO'
ENDgleQuote(DisplayFunction)|','|sys.Single
(4	�InputCols|','|sys.SingleQuote(InputFunction)
      |','|InputRows|','|Style|','|sys.SingleQuote(DisplayFunction)|','|sys.Single
�sition|','|sys.SingleQuote(Label)
      |','|sys.SingleQuote(Description)
      |','|RefersTo|','|sys.SingleQuote(Default)|','|
13�efersTo],[Default],[InputCols],[InputFunction],[InputRows],[Style],[DisplayFunction],[ParseFunction]) 
VALUES (cid, '
      |Po
�mn WHE$RE Table = tid AND Name = ' | sys.SingleQuote(cname) | '
INSERT INTO browse.Column(Id,[Position],[Label],[Description],[R28�RE cid int, cname string
  FOR cid=Id, cname=Name FROM sys.Column WHERE Table = t
  BEGIN
    SELECT '
SET cid=Id FROM sys.Colu
�| sys.SingleQuote(Title) | ',' 
    | sys.SingleQuote(Description) | ',' | Role | ')'
  FROM browse.Table WHERE Id = t

  DECLA
57�id,'
    | sys.SingleQuote(NameFunction) |','|sys.SingleQuote(SelectFunction) 
    | ',' | sys.SingleQuote(DefaultOrder) | ',' 
�e(tname) 
SELECT '
INSERT INTO browse.Table(Id,NameFunction, SelectFunction, DefaultOrder, Title, Description, Role) 
VALUES (t
69
�Schema WHERE Name = ' | sys.SingleQuote(sname) | '
SET tid = Id FROM sys.Table WHERE Schema = sid AND Name = ' | sys.SingleQuot:�E Id = t
  SET sname = Name FROM sys.Schema WHERE Id = sid

  SELECT '
DECLARE tid int, sid int, cid int
SET sid = Id FROM sys.

�geebee2�george. �Sunday !�Test Re"


�geebee2#�mozhdar$Hi Moz!!This is a test


�george.%�george.&�Thursda'�Testing(

0

�Invalid/��P�Ȥ�

�permaneS��xk���


�permaneT�6"v���

�permaneU��~���
�permane0��;�����permane2y�
����
H
RS
���EXEC 4
T
���EXEC 8

U
���EXEC 9
V
���EXEC :
W
���EXEC >
X
���EXEC B
Y
���EXEC F
Z
���EXEC J
[
���EXEC N
\
���EXEC R
	]
���EXEC V
^
���EXEC Z

_
���EXEC ^
`
���EXEC b

a
���EXEC f
b
���EXEC j c
���EXEC n
d
���EXEC �
e
���EXEC �
f
���EXEC �

g
���EXEC �
h
���EXEC V
i
���EXEC q
j
���EXEC �
k
���EXEC �
l
���EXEC �
m
���EXEC u
n
���EXEC v
o
���EXEC �
p
���EXEC �
q
���EXEC �
r
���EXEC �
$s
���EXEC ]
t
���EXEC x
#!u
���EXEC �
v
���EXEC �&"w
���EXEC 7
x
�0
sys.SchemaName�browse.

sys.TableName�browse.


sys.IndexName

dbo.CustNamedbo.CustSelectCustomer

email.MsgNameemail.MsgSelect�email.S�email.S
]p��', '%3F' )
  --SET s = REPLACE( s, '/', '%2F' )
  --SET s = REPLACE( s, '#', '%23' )
  RETURN s
END
��
 (( 
 
����������	���3�7	��
�����(�*������
���\�����X	���R	�U��
�������������	���b	�8	�8�b	���
���]�����Z	���1�5	��
�	��	�]���	����	����`�7�7�`���
����������	����`�7�7�`���
��ame�Alex�LastName�Barwood�x�101��hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1������FirstN
��ame�Alex�LastName�Barwood�x�101��hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���
���FirstN
��web.Main()�/EditRow��b1�/ShowTable?s=dbo&n=Cust�b2�/ShowRow?s=dbo&n=Cust&k=8�k�8�n�Cust�s�dbo��$submit�Save�Age�63�City��FirstN

��web.Main()�/EditRow��b1�/ShowTable?s=dbo&n=Cust�b2�/ShowRow?s=dbo&n=Cust&k=8�k�8�n�Cust�s�dbo��$submit�Save�Age�63�City��FirstN
	�����(�*��	���R	�U��


� &mut *sm.st.x);
            }
            else
            {
       
�,9$
s&

�(
�\
!
]
[
^
�
_
�
`	a
Cb
	}[
�X

�W
2V

pT
�S
�R
Q
XP
�O
�NM
%\ �
`��SELECT ''(''|' | sys.ColValues(t) | '|'')
''' | ' FROM ' | sys.TableName(t) | filter )

    SELECT 'GO
'
END    EXECUTE( '
��'' END
    END    

    SELECT '
INSERT INTO ' | sys.TableName(t) | sys.ColNames(t) | ' VALUES 
'       

    EXECUTE( '

��        WHEN sname = 'log' OR sname = 'email' OR sname = 'login' OR sname = 'timed'
        THEN ' WHERE 1 = 0'
        ELSE 
�� = Schema FROM sys.Table WHERE Id = t
      DECLARE sname string SET sname = sys.SchemaName(schema)
      SET filter = CASE

��
    ELSE IF mode = 2
    BEGIN
      DECLARE tname string SET tname = sys.TableName(t) 
      DECLARE schema int SET schema
��
       WHEN t = 4 THEN ' WHERE Id > 6' -- Index
       WHEN t = 5 THEN ' WHERE Index > 6' -- IndexColumn
       ELSE '' END

��F next < now + 10 * 1000000 SET next = now + 10 * 1000000

  UPDATE timed.Job SET at = next WHERE fn = 'email.Retry'

END I
��il.Delayed
  BEGIN
    I\F t < next SET next = t
  END
 
  -- Minimum time for next call to email.Retry is 10 seconds.
  I
��for next call to email.Retry.
  DECLARE next int SET next = now + 24 * 3600 * 1000000
  FOR t = time + 600 * 1000000 FROM ema
��
    INSERT INTO email.Queue( msg ) VALUES ( m )
    DECLARE dummy int SET dummy = EMAILTX()
  END

  -- Calculate time to 
	�� != 0
  BEGIN
    DECLARE m int
    SET m = msg FROM email.Delayed WHERE Id = r
    DELETE FROM email.Delayed WHERE Id = r

��600 * 1000000 FROM email.Delayed 
  BEGIN
    IF now >= t
    BEGIN
      SET r = id
      BREAK
    END
  END

  IF r

�� * 60 + hour * 3600 + min * 60 + sec
  SET result = result * 1000000
ENDyear, month, day ) )
  SET result = result * 24 * 60
��''|sec)
  

  SET result = date.YearMonthDayToDays( date.YearMonthDay( year, month, day ) )
  SET result = result * 24 * 60

��  SET sec = PARSEINT( SUBSTRING( s, six + 1, LEN(s) ) )
  IF sec > 5\9 THROW 'Secondss must be 0..59 parsing time ' | htm.Attr(
��SEINT( SUBSTRING( s, mix + 1, six - mix - 1 ) )
  IF min > 59 THROW 'Minutes must be 0..59 parsing time ' | htm.Attr(''|min)

��NG( s, hix + 1, mix - hix - 1 ) )
  IF hour > 23 THROW 'Hour must be 0..23 parsing time ' | htm.Attr(''|hour)
  SET min = PAR
��sing date ' | htm.Attr(''|day)
  SET year = PARSEINT( SUBSTRING( s, yix + 1, hix - yix - 1 ) )
  SET hour = PARSEINT( SUBSTRI
��1
  END
 
  SET day = PARSEINT( SUBSTRING( s, dix+1, yix - dix - 1) )
  IF day < 1 OR day > 31 THROW 'Day must be 1..31 par
�� six = mix+1
  WHILE true
  BEGIN
    IF six > LEN(s) BREAK
    IF SUBSTRING( s, six, 1 ) = ':' BREAK
    SET six = six + 
��RING( s, mix, 1 ) = ':' BREAK
    SET mix = mix + 1
  END

  DECLARE six int -- Index of colon before seconds string
  SET
��mix int -- Index of colon before hour string
  SET mix = hix+1
  WHILE true
  BEGIN
    IF mix > LEN(s) BREA\K
    IF SUBST
��true
  BEGIN
    IF hix > LEN(s) BREAK
    IF SUBSTRING( s, hix, 1 ) = ' ' BREAK
    SET hix = hix + 1
  END

  DECLARE 
�� ' ' BREAK
    SET yix = yix + 1
  END

  DECLARE hix int -- Index of space before hour string
  SET hix = yix+1
  WHILE 
�� space before year string
  SET yix = dix+1
  WHILE true
  BEGIN
    IF yix > LEN(s) BREAK
    IF SUBSTRING( s, yix, 1 ) =
��  IF dix > LEN(s) BREAK
    IF SUBSTRING( s, dix, 1 ) = ' ' BREAK
    SET dix = dix + 1
  END
  DECLARE yix int -- Index of
��parsing date ' | htm.Attr(ms)
  DECLARE dix int -- Index of space beforee day string
  SET dix = 4
  WHILE true
  BEGIN
  
��t' THEN 10
    WHEN ms = 'Nov' THEN 11
    WHEN ms = 'Dec' THEN 12
    ELSE 0
  END  
  IF month = 0 THROW 'Unknown month 
��  WHEN ms = 'Jun' THEN 6
    WHEN ms = 'Jul' THEN 7
    WHEN ms = 'Aug' THEN 8
    WHEN ms = 'Sep' THEN 9
    WHEN ms = 'Oc
��Jan' THEN 1
   \ WHEN ms = 'Feb' THEN 2
    WHEN ms = 'Mar' THEN 3
    WHEN ms = 'Apr' THEN 4
    WHEN ms = 'May' THEN 5
  
�� '<input id="' | cn | '" name="' | cn | '" size=' | size | ' value=' | htm.Attr(date.MicroSecToString(value)) | '>'
END
��a = at FROM timed.Job
  BEGIN
    IF now >= a
      EXECUTE( 'EXEC ' | f | '()' )
  END
   
  EXEC timed.Sleep()
END
(��d.Job table with time for next retry.
    EXEC timed.Sleep() -- Set sleep time based on timed.Job table.
  END
ENDpdate time
��SERT INTO email.Delayed( msg, error, time )
    VALUES ( id, error, date.Ticks() )
    EXEC email.Retry() -- Will update time
!#��SE 'DELETE FROM rtestdata.[' | tname | '] WHERE y = ' | ( r%15)
  END
  
  SELECT 'sql=' | sql

  EXECUTE( sql )
 
END)'
    EL
�� = 1 THEN 'INSERT INTO rtestdata.[' | tname | '](x,y) VALUES ( rtest.repeat(''George'','|(r % 100)|'),' | (r % 10) | ')'
    EL
"&��e | '](x string, y int(3), z string )'
      END
    WHEN r\ % 10 = 0 THEN 'DROP TABLE rtestdata.[' | tname | ']'
    WHEN r % 2
��SE WHEN r % 2 =1 THEN 'CREATE TABLE rtestdata.[' | tname | '](x string, y int(5))'
      ELSE 'CREATE TABLE rtestdata.[' | tnam
%'��T exists = Name FROM sys.Table WHERE Schema = rtestdata AND Name = tname

  SET sql = CASE 
    WHEN exists = '' THEN 
      CA
��int
  SET a = r % 2

  DECLARE tname string
  SET tname = 't' | ( r / 100 ) % 7

  DECLARE exists string
  SET exists = ''
  SE$,��DER BY ' | orderBy ELSE '' END
  FROM sys.Table WHERE Id = t

  EXECUTE( sql )

  EXEC web.Trailer()
ENDy != '' THEN ' OR
��''| ''''|' 
    | browse.ColValues(Id,ba)  
    | ' FROM ' 
    | sys.TableName(Id)
    | CASE WHEN orderBy != '' THEN ' OR
)+��
  DECLARE sql string SET sql ='SELECT ''<br><a href="ShowRow?' | browse.tablearg(t)
    | '&k=''| Id | ''' | ba |'">Show</a> 
�� | browse.tablearg(t) | ba | '">Add</a>'

  DECLARE orderBy string SET orderBy = DefaultOrder FROM b\rowse.Table WHERE Id = t
*.��sys.QuoteName(Name) | ' ' | sys.IndexCols(Id)
  FROM sys.Index WHERE Table = t
*/
  SELECT '<p><b>Rows</b> <a href="AddRow?'
��>Settings</a>'   
    | '<p><b>Columns:</b> ' | browse.ColNames( t, ba )
/*
  SELECT '<p><b>Indexes</b>'
  SELECT '<br>' | -0�� title | ' Table'
  EXEC web.Head( title )
  SELECT '<b>' | title | '</b> <a href=/BrowseInfo?' | browse.tablearg(t) | ba | '
��
    EXEC sys.ScriptSchema(s,mode)
  FOR s = Id FROM sys.Schema
    EXEC sys.ScriptSchemaBrowse(s)
END/�� dates - conversions between Days ( from year 0 ), Year-Day, Year-Month-Day and string.
' 
EXEC web.Trailer()
ENDanipulating
�� tables and functions for displaying, editing arbitrary tables in the database.
<h3>date</h3><p>Has functions for manipulating
13��>Has handler functions, one for each web page.
<h3>htm</h3>
<p>Has functions related to encoding html.
<h3>browse</h3><p>Has
��the fuT database objects ( tables, function ) must be created in 
a� terminated.
<h2>Batch execution</h2><p>EXECUTE ( string-expression )
<p>Evaluates the string expression, and then executes t
`� A label consists of a name followed by a colon (:)
<h3>BREAK</h3><p>BREAK
<p>Execution of the enclosing FOR or WHILE loop is
_�s bool-exp evaluates to true. See also BREAK.
<h3>GOTO</h3><p>GOTO label
<p>Control is transferred to the labelled statement.
^�tement2 ( if specified ) is executed.
<h3>WHILE</h3><p>WHILE bool-exp Statement
<p>Statement is repeatedly executed as long a
]�h3>
<p>IF bool-exp THEN Statement1 [ ELSE Statement2 ]
<p>If bool-exp evaluates to true Statement1 is executed, otherwise Sta
\�ed in order. A BEGIN..END compound statement can be used whenever a single statement is allowed.
<h3>IF .. THEN ... ELSE ...</
[�s.
<h2>Control flow statements</h2>
<h3>BEGIN .. END</h3><p>BEGIN Statement1 Statement2 ... END
<p>The statem`rage::new("rustweb.rustdb"));
    let upd = Box::new(SimpleFileStorage::new("rustweb.upd"));
    let 
�
�ials = args.login;

    // Construct an AtomicFile. This ensures that updates to the database are "all or nothing".
    let fil
�
�rsing listen address:port");
    let is_master = args.rep == "";
    let replicate_source = args.rep;
    let replicate_credent
	�
�args.rep, args.login);

    let listen = format!("{}:{}", args.ip, args.port);
    let listen = listen.parse().expect("Error pa
�
�ber::init();

    let args = Args::parse();
    println!("ip={} port={} mem={} rep={} login={}", args.ip, args.port, args.mem, 

�
�ion/octet-stream��d�#![forbid(unsafe_code)]

#[tokio::main]
/// Execution starts here.
async fn main() {
    // console_subscri
�
�web.Main()�/FileUpload����hpw�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���file�main.rs�applicat
�
? false)]
   tracemem: bool,

}
  tracetime: bool,

   /// Trace memor`p�
�unc::Int(c_email_tx)),
        ("SLEEP", DataKind::Int, CompileFunc::Int(c_sleep)),
        ("TRANSWAIT", DataKind::Int, Compil
�
�
    let list = [
        ("ARGON", DataKind::Binary, CompileFunc::Value(c_argon)),
        ("EMAILTX", DataKind::Int, CompileF

�
�MAILTX and SLEEP as well as the standard functions.
    let mut bmap = BuiltinMap::default();
    standard_builtins(&mut bmap);
�
�emem;
    }
    // Construct map of "builtin" functions that can be called in SQL code.
    // Include extra functions ARGON, E
�
�stg));
    {
       let mut s = spd.stash.write().unwrap();
       s.mem_limit = args.mem * 1000000;
       s.trace = args.trac
�
�t readers never have to wait, they get a "virtual" read-only copy of the database.
    let spd = Arc::new(SharedPagedData::new(
�
�stg = Box::new(AtomicFile::new(file, upd));

    // SharedPagedData allows for one writer and multiple readers.
    // Note tha
�
�e = Box::new(SimpleFileSto (�

Name�
RootC

SchemaC
Name�
IdGenC
TableC
Name�
TypeC
	RootC

TableC
	Name�
IndexC


ColIdC
SchemaC

Name

Def�
Path�
ContentType�

ContentLengthC
Content�
PositionC
Label�
Description�
Re(�









	






	




#




2

 	
,!	""	
#	
$!$	%%	
&

'

).(

)

*(*

+<,
';-
.
&-/
0
1/1
2
 63
5

078
9�(

Schema


Table


ColumnM

Index


IndexColumn
	
Function�
File
ColumnJ	Table

Cust	
	Order�M
Msg


QueueE
	Gen


user
SmtpAccount
	SendError
JobDelayedTransaction�(

Schema

Table

Column
Index


IndexColumn

Function
File
Column
	Table


Cust
Order
	Msg
Queue
	Gen

user
SmtpAccount
	SendError
JobDelayed
Transaction
X













	


		
X










	


		
H


ByName
BySchemaName

ByTable

ByTableByIndex
BySchemaNameByPath

ByRefersTo
		 ByCust
@��-N '(' | list | ')'
END

P= 8 THEN 'Aug'
    WHEN m = 9 THEN 'Sep'

P
    WHEN m = 10 THEN 'Oct'
    WHEN m =
P 11 THEN 'Nov'
    WHEN m = 12 THEN 'Dec
5'
    ELSE '???'
  END
END= 12 THEN 'Dec
Q( days + i )
    SET i = i + 1
  END
END
P
  SELECT 'Finished test day=' | day | '
I date=' | date.DaysToString(day)
END | '
; ELSE '?weekday?'
    END
END
	7owse.InputString'
  END
END
	
P id="' | cn | '" name="' | cn | '" size=
Q' | size | ' value="' | value | '">'
END

PET requests maybe be assumed to be read-

Conly.
  EXEC rtest.OneTest() 
ENDe read-

P7, ( 501 * (@I%11+@I%7) ) / 100, date ) 
=
    SET @I=@I+1 
  END
END0, date ) 
=ysToYearMonthDay(date.Today())
#InputYearMonthDay
%arMonthDayToString
%ringToYearMonthDay
E body is plain text, 1 means HTML.
croSecToString
croSecToString
InputTime
croSecToString
ringToTime
croSecToString
SchemaSelect
TableSelect
mtpAccountName
!mtpAccountSelect
222@yahoo.com
0 #barwood@gmail.com
!Eventing test
#!"=try <b>Some bold text</b> Test
#222@yahoo.com
&"$'owzabaghi@gmail.com
%#barwood@gmail.com
'%&'barwood@outlook.com
'y 11 Aug Test
,$( <b>Html</b>+w3�Pq�Z�B��������]�
�'d
Etvu*il.yahoo.com
+222@yahoo.com
.),ijpiacmnm
-#barwood@gmail.com
/-.mgcrwlgda
/ email domain
8(0Pnt error (535): 5.7.8 Username and Passw
1?ord not accepted. Learn more atand Passw
312Pnt error (535): 5.7.8 Username and Passw
3?ord not accepted. Learn more atand Passw
624Pweb.Main()�/Execute���sql�%DELETE FROM l
5Pog.Transaction WHERE 1=1��hpw�B0xceb2893
756P2f94239943ca565f2ee11c9839b27d320318f2cb
7Cdedb52fcdf95cfd93�uid�1���riqō318f2cb
<483timed.Run()�������r�q�
93timed.Run()��������Iy�
;9:Pweb.Main()�/Execute���sql�"SELECT REPACK
;PFILE(0,'dbo','Order')��hpw�B0xceb28932f9
>:<P4239943ca565f2ee11c9839b27d320318f2cbded
==b52fcdf95cfd93�uid�1����l	�318f2cbded
?=>Pweb.Main()�/Execute���sql�"SELECT REPACK
?PFILE(0,'dbo','Order')��hpw�B0xceb28932f9
` @P4239943ca565f2ee11c9839b27d320318f2cbded
A=b52fcdf95cfd93�uid�1������318f2cbded
CABPweb.Main()�/Execute���sql�"SELECT REPACK
CPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
FBDP4239943ca565f2ee11c9839b27d320318f2cbded
E=b52fcdf95cfd93�uid�1������h318f2cbded
GEFPweb.Main()�/Execute���sql�#SELECT REPACK
GPFILE(-2,'dbo','Order')��hpw�B0xceb28932f
LDHP94239943ca565f2ee11c9839b27d320318f2cbde
I?db52fcdf95cfd93�uid�1����Go318f2cbde
KIJPweb.Main()�/Execute���sql�EXEC dbo.MakeO
KPrders(50000)��hpw�B0xceb28932f94239943ca
NJLP565f2ee11c9839b27d320318f2cbdedb52fcdf95
M+cfd93�uid�1���[�;�318f2cbdedb52fcdf95
OMNPweb.Main()�/Execute���sql�EXEC dbo.MakeO
OPrders(50000)��hpw�B0xceb28932f94239943ca
XHPP565f2ee11c9839b27d320318f2cbdedb52fcdf95
Q+cfd93�uid�1���[�nY318f2cbdedb52fcdf95
SQRPweb.Main()�/Execute���sql�"SELECT REPACK
SPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
VRTP4239943ca565f2ee11c9839b27d320318f2cbded
U=b52fcdf95cfd93�uid�1���d\��318f2cbded
WUVPweb.Main()�/Execute���sql�"SELECT REPACK
WPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
\TXP4239943ca565f2ee11c9839b27d320318f2cbded
Y=b52fcdf95cfd93�uid�1���d�@318f2cbded
[YZPweb.Main()�/Execute���sql�"SELECT REPACK
[PFILE(0,'dbo','Order')��hpw�B0xceb28932f9
^Z\P4239943ca565f2ee11c9839b27d320318f2cbded
]=b52fcdf95cfd93�uid�1���d��M318f2cbded
_]^Pweb.Main()�/Execute���sql�"SELECT REPACK
_PFILE(0,'dbo','Order')��hpw�B0xceb28932f9
qP`P4239943ca565f2ee11c9839b27d320318f2cbded
a=b52fcdf95cfd93�uid�1���d���318f2cbded
cabPweb.Main()�/Execute���sql�"SELECT REPACK
cPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
fbdP4239943ca565f2ee11c9839b27d320318f2cbded
e=b52fcdf95cfd93�uid�1���d��n318f2cbded
gefPweb.Main()�/Execute���sql�"SELECT REPACK
gPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
ldhP4239943ca565f2ee11c9839b27d320318f2cbded
i=b52fcdf95cfd93�uid�1���d���318f2cbded
kijPweb.Main()�/Execute���sql�"SELECT REPACK
kPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
njlP4239943ca565f2ee11c9839b27d320318f2cbded
m=b52fcdf95cfd93�uid�1���d�B�318f2cbded
omn3timed.Run()�������� �d
rPFILE(0,'dbo','Order')��hpw�B0xceb28932f9
qPweb.Main()�/Execute���sql�"SELECT REPACK
thsP4239943ca565f2ee11c9839b27d320318f2cbded
spt=b52fcdf95cfd93�uid�1���9ºr318f2cbded
u7email.Sent(3)�������:,�*rv3timed.Run()��������k�
x
@���' | sys.QuoteName( sname )

    DECLARE t int
    FOR t = Id FROM 

�sys.Table WHERE Schema = s ORDER BY Name
    BEGIN
      EXEC sys.S

�criptTable(t)
    END
  END

  /******* Script functions *******/
�

  SELECT '
CREATE FN ' | sys.Dot( sname,Name) | Def | '
GO' 
 
� FROM sys.Function  WHERE Schema = s ORDER BY Name

  /******* Scri
�pt Data *******/

  IF sname != 'sys' AND sname != 'browse'
  BEGI
�N
    FOR t = Id FROM sys.Table WHERE Schema = s ORDER BY Name
    
S  EXEC sys.ScriptData(t,mode)
  END
ENDhema = s ORDER BY Name
    
� | ' ON ' | sys.TableName(t) | sys.IndexCols(ix) | '
GO'
  END
END
	�sec % 60
  SET hour = min / 60
  SET min = min % 60
  RETURN date.
	
}DaysToString(  day ) | ' ' | hour | ':' | min | ':' | sec
ENDN date.
�C web.SetCookie('username','','Max-Age=0')
  */
  DECLARE x int
  SET

� x = HEADER( 'set-cookie', 
name | '=' | value | '; ' | expires )
ENDT

�>
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon">


�<title>' | title | '</title>
<style>
   body{font-family:sans-serif;}
�
</style>
</head>
<body>
<div class=menubar><div><div>
   <a href="/"
�>Home</a>
   <a href="/About">About Us</a>
   <a href="/Contact">Cont
=act us</a>
</div></div>

'
ENDAbout Us</a>
   <a href="/Contact">Cont
�Table = table
  ORDER BY browse.ColPos(Id), Id
  BEGIN
    SET res
�ult |= CASE WHEN result = '' THEN '' ELSE ', ' END | col
  END
ENDs
�f string
    SET ref = 0, inf = ''
    SET ref = RefersTo, inf = Inpu
�tFunction FROM browse.Column WHERE Id = colId
    IF ref > 0 AND inf 
�= '' SET inf = SelectFunction FROM browse.Table WHERE Id = ref
    IF
� inf = '' SET inf = browse.DefaultInput( type )
    SET sql |= 
     
� CASE WHEN sql = '' THEN '' ELSE ' | ' END
      | '''<p><label for="

�' | col | '">' | col | '</label>: '' | ' 
      | inf | '(' | colId |
� ',' | sys.QuoteName(col) | ')'
  END
  RETURN 'SELECT ' | sql | ' FR
kOM ' | sys.TableName( table ) | ' WHERE Id =' | k
ENDT ' | sql | ' FR
�| Id | '>' | htm.Encode( sys.TableName(Id) ) | '</option>'
  FROM sys
�.Table
  ORDER BY sys.TableName(Id)
  SET options |= opt
  RETURN '<s
�elect id="' | col | '" name="' | col | '">' | options | 
     '<optio
�n ' | CASE WHEN sel = 0 THEN ' selected' ELSE '' END | ' value=0></op
0 ;tion>'
     | '</select>'
END' selected' ELSE '' END | ' value=0></op
!�ECUTE( browse.InsertSql( t, 0, 0 ) ) 
    SET ex = EXCEPTION()
    
#!"�IF ex = '' 
    BEGIN
      DECLARE ba string SET ba = browse.backa
#�rgs()
      EXEC web.Redirect( 'ShowRow?' | browse.tablearg(t) | '&k
&"$�=' | LASTID() | ba )
      RETURN
    END
  END
  
  EXEC web.He
%�ad( 'Add ' | browse.TableTitle( t 
) )
  IF ex != '' SELECT '<p>Error
'%&�: ' | htm.Encode( ex )
  SELECT '<form method=post>' 
  EXECUTE( br
'�owse.FormInsertSql( t, 0 ) )
  SELECT '<p><input name="$submit" type
,$(m=submit value=Save></form>'
  EXEC web.Trailer()
END="$submit" type
)�d = c

  DECLARE ok int SET ok = 0
  SET ok = Id FROM browse.Column W
+)*�HERE Id = c
  IF ok != c INSERT INTO browse.Column( Id ) VALUES ( c )
+�

  IF web.Form( '$submit' ) != '' 
  BEGIN
    EXECUTE( browse.Updat
.*,�eSql( tid, c ) ) 
    EXEC web.Redirect( 'ShowTable?k=' | t )
  END
 
-� ELSE
  BEGIN
    EXEC web.Head( 'Column ' | colName )
    SELECT '<h
/-.�1>Column ' | colName | '</h1><form method=post>' 
    EXECUTE( browse
/�.FormUpdateSql( tid, c ) )
    SELECT '<p><input name="$submit" type=
8(0wsubmit value=Save></form>'
    EXEC web.Trailer()
  END
ENDmit" type=
1� k
    EXEC web.Redirect('ListFile')
  END
  ELSE
  BEGIN
    EXEC we
312
�b.Head( 'Edit File' )
    SELECT '<h1>Edit File Path</h1>'
    SELECT
3� '<form method=post>Path: <input name=path size=50 value="' | Path | 
624�'">'
      | '<p><input type=submit value=Save></form>'
    FROM web.
5eFile WHERE Id = k
    EXEC web.Trailer()
  END
ENDorm>'
    FROM web.
756�bmit' )
  IF submit != '' 
  BEGIN
    IF submit = 'Save'
    BEG
7�IN
      EXECUTE( browse.UpdateSql( t, k ) ) 
      SET ex = EXCEPT
<48�ION()
      IF ex = '' 
      BEGIN
        EXEC web.Redirect( bro
9�wse.backurl() )
        RETURN
      END
    END
    ELSE IF subm
;9:�it = 'Delete'
    BEGIN
      EXECUTE( 'DELETE FROM ' | sys.TableNa
;�me( t ) | ' WHERE Id =' | k )
      EXEC web.Redirect( browse.backur
>:<�l() )
      RETURN
    END      
  END
 
  EXEC web.Head( 'Edit 
=�' | browse.TableTitle( t ) )
  IF ex != '' SELECT '<p>Error: ' | htm
?=>�.Encode(ex)

  SELECT '<form method=pos
t>'  
  EXECUTE( browse.For
?�mUpdateSql( t, k ) )
  SELECT '<p><input name="$submit" type=submit 
P @�value=Save></form>'

  SELECT '<form method=post><input name="$subm
A�it" type=submit value=Delete></form>'
  EXEC web.Trailer()
END$submA\E    EXEC web.Trailer()
  END
ENDme=pw><input type=submit></form>'

[�=post><p>Enter password: <input name=pw><input type=submit></form>'
YFZ� BEGIN
    EXEC web.Head( 'Set Password' )
    SELECT '<form method
Y�   SELECT '<p>Password set'
    EXEC web.Trailer()
  END
  ELSE
 
EGX� login.hash(pw|k) WHERE Id = k
    EXEC web.Head( 'Password Set')
 
G�' | Id | '>' | htm.Encode( dbo.CustName(Id) ) | '</option>'
  FROM dbLBH�o.Cust
  ORDER BY LastName, FirstName
  SET options |= opt

  RETURN 
I�'<select id="' | col | '" name="' | col | '">' | options 
    | '<opt
KIJ�ion ' | CASE WHEN sel = 0 THEN ' selected' ELSE '' END | ' value=0></
K=opti
on>'
    | '</select>'
END ' selected' ELSE '' END | ' value=0></
NJL� value=' | Id | '>' | htm.Encode( email.SmtpAccountName(Id) ) | '</op
M�tion>'
  FROM email.SmtpAccount
  ORDER BY Id
  SET options |= opt
OMN�

  RETURN '<select id="' | col | '" name="' | col | '">' | options
O� 
    | '<option ' | CASE WHEN sel = 0 THEN ' selected' ELSE '' END XHP]| ' value=0></option>'
    | '</select>'
END selected' ELSE '' END 
QU sid AND Name = tname

  RETURN tid
END
SQR� | web.UrlEncode(pv)
    SET pv = v

    SET n = n + 1
  END
END
Ssnt error (554): 6.6.0 Error sending message for delivery.
VRTynt error (535): 5.7.0 (#AUTH005) Too many bad auth attempts.
Uynt error (535): 5.7.0 (#AUTH005) Too many bad auth attempts.
WUV�web.Main()�/Execute���sql�EXEC dbo.MakeOrders(0)��hpw�B0xceb28932f942
W�39943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cY ����et=_blank href=/ScriptAll?mode=1>Script entire database</a> 
  | <a target=_blank href=/ScriptAll
��ins>Logins</a>
<p><a href=/ListFile>Files</a>
<p><a href=/FileUpload>File Upload</a>
<p><a targ

��blic Site Home Page</a>
<h3>System</h3>
<p><a href=/Execute>Execute SQL</a>
<p><a href=/ListLog
��n=Cust">Customers</a> | <a href="/OrderSummary">Order Summary</a>
<p><a target=_blank href="/">Pu
��0) IF cu = 0 RETURN

   EXEC web.Head('System Menu')
   SELECT '
<p><a href="/ShowTable?s=dbo&
��web.Main()�/EditFunc��n�/Menu�s�handler��def�5() AS
BEGIN
   DECLARE cu int SET cu = login.get(
�� Name | '>' | Name | '</a> | ' FROM sys.Schema ORDER BY Name

   EXEC web.Trailer()
ENDma?s=' |
��kAll>Check all functions compile ok</a> 

<h3>Schemas</h3>'
   SELECT '<a href=ShowSchema?s=' |

��iptAll?mode=2>Filtered</a>    
  | <a target=_blank href=/ScriptExact>Exact</a>
<p><a href=/Chec
��a target=Y_blank href=/ScriptAll?mode=1>Script entire database</a> 
  | <a target=_blank href=/Scr	��istLogins>Logins</a>
<p><a href=/ListFile>Files</a>
<p><a href=/FileUpload>File Upload</a>
<p><
��"/">Public Site Home Page</a>
<h3>System</h3>
<p><a href=/Execute>Execute SQL</a>
<p><a href=/L��GIN
  /* Get the current logged in user. Note: role is not yet checked */

  DECLARE username s
��ment out the line below enable Login after Login password has been setup for some user.
     In a
��tring SET username = web.Form('username')

  /*
     Login is initially disabled. Remove or com

��web.Main()�/EditFunc��b1�/ShowSchema?s=login�n�getx�s�login��def�h( role int ) RETURNS int AS
BE
L��   DECLARE password string SET password = web.Form('password')
    SET result = Id FROM login.use
��esult = Id FROM login.user WHERE Id = result AND HashedPassword = hpw
    IF result > 0
    BEGI
��r WHERE Name = username
    DECLARYE hpw binary SET hpw = login.hash( password|result )
    SET r
��input type=submit value=Login></form>'
  EXEC web.Trailer()

  RETURN 0
END���渘���rd><br><
��m method=post>User Name <input name=username><br>Password <input type=password name=password><br><�� Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXEC web.Head( 'Login' )
  SELECT '<for
O��N
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCookie( 'hpw', '' | hpw, ��ddition, the salt string in login.Hash should be changed.
  */

  IF username != ''
  BEGIN
 ��w�B0xceb28932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���K�0RN 0
END��hp��=password><br><input type=submit value=Login></form>'
  EXEC web.Trailer()

  RETURN 0
END��hp��
  SELECT '<form method=post>User Name <input name=username><br>Password <input type=password name
��ogin.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
Y
  END

  EXEC web.Head( 'Login' )

��DECLARE uid int SET uid = PARSEINT(uids)
    DECLARE hpwt binary SET hpwt = HashedPassword FROM l
��ookie('uid')
  DECLARE hpwf string SET hpwf = web.Cookie('hpw')

  IF uids != ''
  BEGIN
    
��pw', '' | hpw, '' )
      RETURN result
    END
  END

  DECLARE uids string SET uids = web.C
��t > 0
    BEGIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCookie( 'h
J0��ame = username AND HashedPassword = hpw /* Binary comparison not yet implemented! */
    IF resul
��DECLARE hpw binary SET hpw = login.hash( password )

    SET result = Id FROM login.user WHERE N
!#�� IF username != ''
  BEGIN
    DECLARE password string SET password = web.Form('password')
    
��dition, the salt string in login.Hash should be changed.
  */
  RETURN 1 -- Login disabled.

 
"&��ent out the line below enable Login after Login password has been setup for some user.
Y
     In ad
��ring SET username = web.Form('username')

  /*
     Login is initially disabled. Remove or comm
%'��IN
  /* Get the current logged in user. Note: role is not yet checked */

  DECLARE username st
��web.Main()�/EditFunc��b1�/ShowSchema?s=login�n�get�s�login��def�x( role int ) RETURNS int AS
BEG
$,��    SET result = result | '&b' | n | '=' | web.UrlEncode(v)
    SET n = n + 1
  END
ENDELSE
  
�'b' | n )
    IF v = ''
      RETURN result | '&b' | n | '=' | web.UrlEncode(keep)
    ELSE
  
)+~�

  SET keep = web.Path() | keep

  SET n = 1
  WHILE 1 = 1
  BEGIN
    SET v = web.Query( 
}� keep | CASE WHEN keep = '' THEN '?' ELSE '&' END | name | '=' | v
    SET n = n + 1
  END      
*.|�= 5 THEN 'f'
      ELSE 's'     
    END
    SET v = web.Query(name)
    IF v != '' SET keep =
{�E 
      WHEN n = 2 THEN 'n'
      WHEN n = 3 THEN 'k'
      WHEN n = 4 THEN 'p'
      WHEN n 
-/z�ECTY d
  ELSE
  BEGIN
    DECLARE dummy int SET dummy = TRANSWAIT()
  END
END
y� < next SET next = t
  END

  DECLARE dummy int
  SET dummy = SLEEP( next-now )
END(@l�' | CASE WHEN sel = 0 THEN ' selected' ELSE '' END | ' value=0></option>'
    | '</select>'
ENDon 
k�options |= opt

  RETURN '<select id="' | col | '" name="' | col | '">' | options 
    | '<option 
13j�' | Id | '>' | htm.Encode( email.MsgName(Id) ) | '</option>'
  FROM email.Msg
  ORDER BY Id
  SET 
i5
  EXEC web.Trailer()
END' | Name | '</a>'
  FROM sys.Function WHERE Schema = sid ORDER BY Name

26h� | '&n=' | Name | ba | '">' | Name | '</a>'
  FROM sys.Function WHERE Schema = sid ORDER BY Name

g�Schema = sid ORDER BY Name
  SELECT '<h2>Functions</h2>' 
  SELECT '<p><a href="EditFunc?s=' | s
57f�<p><a href="ShowTable?' | browse.tablearg(Id) | ba | '">' | Name | '</a>'
  FROM sys.Table WHERE 
e�ead( 'Schema ' | s )
  SELECYT '<h1>Schema ' | s | '</h1>'
  SELECT '<h2>Tables</h2>'
  SELECT '
4<d�le>'
  SELECT '<p>Grand total =' | gsum | ' count=' | gcount
  EXEC web.Trailer()
ENDECT '</tab
c� align=right>' | count
    SET gsum = gsum + sum, gcount = gcount + count
  END
  SELECT '</tab
9;b�Cust&k=' | cust | ba | '>' | dbo.CustName(cust) | '</a>' 
      | '<td align=right>' | sum | '<td
a�ust 
      SET sum = sum + total, count = count + 1
    SELECT '<tr><td><a href=ShowRow?s=dbo&n=
:>`�LastName
  BEGIN
    SET sum = 0, count = 0
    FOR total = Total FROM dbo.Order WHERE Cust = c
_� int, sum int, count int, gsum int, gcount int
  FOR cust = Id FROM dbo.Cust ORDER BY FirstName, 
=?T�T '<p>' | n | ' functions checked, errors=' | err | '.'
  EXEC web.Trailer()
END END
  END
  SELEC
S�: ' | htm.Encode(ex)
        SET err = err + 1
      END
      SET n = n + 1
    END
  END
  SELEC
8DR�  DECLARE ex string SET ex = EXCEPTION()
      IF ex !=Y '' 
      BEGIN
        SELECT '<br>Error 
Q� SELECT '<br>Checking ' | sname | '.' | fname
      EXECUTE( 'CHECK ' | sname | '.' | fname )
    
ACP� BEGIN
    FOR fname = sys.QuoteName(Name) FROM sys.Function WHERE Schema = sid
    BEGIN
      --
O�ype=submit value=Save></form>'
    EXEC web.Trailer()
  END
ENDLECT '<p><input name="$submit" tBFN�hod=post>' 
    EXECUTE( browse.FormUpdateSql( tid, k ) )
    SELECT '<p><input name="$submit" t
M�  ELSE
  BEGIN
    EXEC web.Head( 'Browse Info for ' | sys.TableName(k) )
    SELECT '<form metEHL�browse.UpdateSql( tid, k ) ) 
    EXEC web.Redirect( 'ShowTable?' | browse.tablearg(k) )
  END

K�RT INTO browse.Table( Id ) VALUES ( k )
  IF web.Form( '$submit' ) != '' 
  BEGIN
    EXECUTE( 
GIJU"' | ' value=' | htm.Attr(value) | '>'
ENDput id="' | cn | '" name="' | cn | '" size="' | cols | '
��?mode=2>Filtered</a>    
  | <a target=_blank href=/ScriptExact>Exact</a>
<p><aY href=/CheckAll>C
��heck all functions compile ok</a> 

<h3>Schemas</h3>'
   SELECT '<a href=ShowSchema?s=' | Name 
��| '>' | Name | '</a> | ' FROM sys.Schema ORDER BY Name

   EXEC web.Trailer()
END��hpw�B0xceb28
MK��932f94239943ca565f2ee11c9839b27d320318f2cbdedb52fcdf95cfd93�uid�1���WBжer()
END��hpw�B0xceb28
�� SET uid = PARSEINT(uids)
    DECLARE hpwt binary SET hpwt = HashedPassword FROM login.user WHERE
�� DECLARE hpwf string SET hpwf = web.Cookie('hpw')

  IF uids != ''
  BEGIN
    DECLARE uid int
NP��'' )
      RETURN result
    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
 
��N
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCookie( 'hpw', '' | hpw, ZS��esult = Id FROM login.user WHERE Id = result AND HashedPassword = hpw
    IF result > 0
    BEGI
��r WHERE Name = username
    DECLARE hpw binary SET hpw = login.hash( password|result )
    SET r
RT�Z P�I�ue) | '</textarea>'
  ELSE
    RETURN '<input id="' | cn | '" name="' | cn | '" size="' | cols | '
H�N value = '' THEN 'placeholder=' | htm.Attr(description) ELSE '' END
      | '">' | htm.Encode(val

G�a id="' | cn | '" name="' | cn | '" cols="' | cols | '"' | '" rows="' | rows |'"'
      | CASE WHE
F�FROM browse.Column WHERE Id = colId
  IF cols = 0 SET cols = 50
  IF rows > 0
    RETURN '<textare
E�t type=number id="' | cn | '" name="' | cn | '" size=' | size | ' value=' | value | '>'
END
D�put id="' | cn | '" name="' | cn | '" size="' | size | '"' | ' value="' | value | '">'
END
C� END
  RETURN CASE WHEN sql = '' THEN '' ELSE 'SELECT ' | sql END
ENDId | ',' | default | ')'
 
B�for="' | col | '">' | col | '</label>: '' | ' 
      | inf | '(' | colId | ',' | default | ')'
 
A�t( type, ref )
 
    SET sql |= CASE WHEN sql = '' THEN '' ELSE ' | ' END
      | '''<p><label 
@�= '' SET Zinf = browse.DefaultInput( type )
    IF default = '' SET default = browse.DefaultDefaul
	?�    IF ref > 0 AND inf = '' SET inf = SelectFunction FROM browse.Table WHERE Id = ref
    IF inf 
>� SET ref = RefersTo,  inf = InputFunction, default = Default FROM browse.Column WHERE Id = colId


=�GIN
    DECLARE ref int, inf string, default string
    SET ref = 0, inf = '', default = ''
   
<wDER BY ' | ob ELSE '' END
   | ' SELECT ''</TABLE>'''
END = ' | k | CASE WHEN ob != '' THEN ' OR

;� | ' FROM ' | sys.TableName( table ) | ' WHERE ' | kcol | ' = ' | k | CASE WHEN ob != '' THEN ' OR
:� href="ShowRow?' | browse.tablearg(table) | '&k=''| Id | ''' | ba | '">Show</a> '''
     | result
9� Id = colId
  RETURN 
   'SELECT ''<TABLE><TR><TH>' | th | ''' '
   | 'SELECT ' | '''<TR><TD><a
8�LSE colName END
  END
  DECLARE kcol string SET kcol = sys.QuoteName(Name) FROM sys.Column WHERE
7�'' 
        ELSE col
        END,Z
        th = th | '<TH>' | CASE WHEN label != '' THEN label E
6�'<a href="/ShowRow?t=' | ref | ba | '&k=''|' | col | '|''">''|' | nf | '(' | col | ')' | '|''</a>'
5� | CASE 
        WHEN df != '' THEN df | '(' | col | ')'
        WHEN nf != '' 
        THEN ''
4�  SET result |= '|''<TD' | CASE WHEN type % 8 != 2 THEN ' align=right' ELSE '' END | '>''|'
     
3�n FROM browse.Table WHERE Id = ref
    SET ob = DefaultOrder FROM browse.Table WHERE Id = ref
  
2�bel, df = DisplayFunction FROM browse.Column WHERE Id = colid
    IF ref > 0 SET nf = NameFunctio
1�ng, label string, df string
    SET ref = 0, nf = '', df = ''
    SET ref = RefersTo, label = La
0�e = table AND Id != colId
  ORDER BY browse.ColPos(Id), Id
  BEGIN
    DECLARE ref int, nf stri
/� 8 = 2 THEN 'htm.Encode(' | Name | ')' ELSE Name END, colName = Name
  FROM sys.Column WHERE Tabl
.�der FROM browse.Table WHERE Id = table
  FOR colid = Id, typZe = Type,
    col = CASE WHEN Type %
-�
  DECLARE table int SET table = Table FROM sys.Column WHERE Id = colId
  
  SET ob = DefaultOr
,�e')
      SELECT 'Unknown page Path=' | path
      EXEC web.pubtrail()
    END
  END
ENDnknown pag
+� web.SendBinary( ct, content )
    END    
    ELSE
    BEGIN
      EXEC web.pubhead( 'Unknown pag
*�ntentType, content = Content FROM web.File WHERE Path = path
    IF ok = path
    BEGIN
      EXEC0)�il()
    END
  END
  ELSE
  BEGIN
    DECLARE ct string, content binary
    SET ok = Path, ct = Co
(�CT '<h1>Error</h1><pre>'
      SELECT htm.Encode( ex )
      SELECT '</pre>'
      EXEC web.pubtra
!#'�ng
    SET ex = EXCEPTION()
    IF ex != ''
    BEGIN
      EXEC web.pubhead( 'Error' )
      SELE
&�="EditFunc?s=handler&n=' | web.Path() | '">Code</a> ' | date.NowString() | ' UTC</div>'
ENDk href
"&%�ew Window</a>
| <a href=/Manual>Manual</a>
| <a href=/Logout>Logout</a>
| <a target=[il_tx(b: &Block, args: &mut [Expr]) -> CExpPtr<i64> {
    check_types(b, args, &[]);
    Box::new(Ema
u�    ext.sleep = if to <= 0 { 1 } else { to as u64 };
        }
        ee.tr.set_extension(ext);
        0
    }
}

/// Compile
t�l(ee, d);
        let mut ext = ee.tr.get_extension();
        if let Some(mut ext) = ext.downcast_mut::<TransExt>() {
        
	s�CExpPtr<i64>,
}
impl CExp<i64> for Sleep {
    fn eval(&self, ee: &mut EvalEnv, d: &[u8]) -> i64 {
        let to = self.to.eva
r�d::Int]);
    let to = c_int(b, &mut args[0]);
    Box::new(Sleep { to })
}

/// Compiled call to SLEEP
struct Sleep {
    to: 

q�  }
}

/// Compile call to SLEEP.
fn c_sleep(b: &Block, args: &mut [Expr]) -> CExpPtr<i64> {
    check_types(b, args, &[DataKin
p�.salt.eval(ee, d).str();

        let result = argon2i_simple(&pw, &salt).to_vec();
        Value::RcBinary(Rc::new(result))
  

o�fn eval(&self, ee: &mut EvalEnv, d: &[u8]) -> Value {
        let pw %;��@�rrence of pat is replaced with sub.</li>
<li>LASTID() : returns the last Id value allocated by an INSERT statement.</li>
<li>
?�t ) : binary version of SUBSTRING.</li>
<li>REPLACE( s string, pat string, sub string ) : returns a copy of s where every occu

>�nt, len int ) : returns the substring of s from start (1-based) length len.</li>
<li>BINSUBSTRING( s binary, start int, len in
=�>
<li>BINLEN( s binary ) : returns the length of s, which must be a binary expression.</li> 
<li>SUBSTRING( s string, start i
<�c.
<h3>Pre-defined functions</h3>
<ul>
<li>LEN( s string ) : returns the length of s, which must be a string expression.</li
;�erator  ( result is true if either arg is true )</li>
</ul>
<p>Brackets can be used where necessary, for example ( a + b ) * 
:�se, false if arg is true ).</li>
<li>AND : boolean operator ( result is true if both args are true )</li>
<li>OR : boolean op
9�essary.</li>
<li>= != > <% >= <= : comparison of any data type.</li>
<li>NOT : boolean negation ( result is true if arg is fal
8�.</li>
<li>| : concatenation of string/binary values. The second expression is automatically converted to string/binary if nec
7�and remainder (after division) of numbers. Remainder only applies to integers.</li>
<li>+ - : addition, subtraction of numbers
	6�nd NOT which is only unary ) in order of precedence, high to low, are as follows:
<ul>
<li>*  / % : multiplication, division 
5�name consists of only letters (A-Z,a-z).
<h3>Operators</h3>
<p>The operators ( all binary, except for - which can be unary, a

4�d are written without the square brackets, often in upper case only by convention ). The square brackets can be omitted if the 
3� enclosed in square brackets and are case sensitive ( although language keywords such as CREATE SELECT are case insensitive, an

2�adecimal preceded by 0x. Integers are a list of digits (0-9). The boo%l literals are true and false.
<h3>Names</h3><p>Names are
1�quotes. If a single quote is needed in a string literal, it is written as two single quotes. Binary literals are written in hex
0� with the first bool expression which evaluates to true.
<h3>Literals</h3>
<p>String literals are written enclosed in single 
/�on, which has syntax CASE WHEN bool1 THEN exp1 WHEN bool2 THEN exp2 .... ELSE exp END - the result is the expression associated
.�ns from tables. These may be combined using operators, stored functions, pre-defined functions. There is also the CASE expressi
-�or.

<h2>Expressions</h2>
<p>Expressions are composed from literals, named local variables, local parameters and named colum
,�HECK</h3>
<p>CHECK schema.name
<p>Checks that a function compiles ok. EXCEPTION() should be used to check if there is any err
+�unction with no return value.
<p>The pre-defined local variable result can be assigned instead to set the retura {
        spd: spd.clone(),
        bmap: bmap.clone(),
        tx,
        email_tx,
        sleep_tx,
        wait_tx,28�
�ool>();
    let (wait_tx, _wait_rx) = broadcast::channel::<()>(16);

    // Construct shared state.
    let ss = Arc::new(Share
�
�nel::<()>();
    let (sleep_tx, sleep_rx) = mpsc::unbounded_channel::<u64>();
    let (sync_tx, sync_rx) = oneshot::channel::<b
57�
�ication channels.
    let (tx, mut rx) = mpsc::channel::<ServerMessage>(1);
    let (email_tx, email_rx) = mpsc::unbounded_chan
�
� in list {
        bmap.insert(name.to_string(), (typ, cf));
    }
    let bmap = Arc::new(bmap);

    // Construct task commun
69�
�NPACK",
            DataKind::Binary,
            CompileFunc::Value(c_binunpack),
        ),
*/
    ];
    for (name, typ, cf):�
�eFunc::Int(c_trans_wait)),
/*
        ("BINPACK", DataKind::Binary, CompileFunc::Value(c_binpack)),
        (
            "BINU
aop {
            let mut 
*.�
�      let wapd = AccessPagedData::new_writer(spd);

        let db = Database::new(wapd, if is_master { init::INITSQL } else { 
�
� thread::spawn(move || {
        let ss = ssc;

        // Get write-access to database ( there will only be one of these ).
  
-/�
� move { sync_loop(sync_rx, ssc).await });
    }

    // Start the task that updates the database.
    let ssc = ss.clone();
   
�
�(sleep_rx, ssc).await });
    } else {
        // Start the sync task.
        let ssc = ss.clone();
        tokio::spawn(async
(4�
�rx, ssc).await });

        // Start the sleep task.
        let ssc = ss.clone();
        tokio::spawn(async move { sleep_loop
�
� is_master {
        // Start the email task.
        let ssc = ss.clone();
        tokio::spawn(async move { email_loop(email_
13�
�
        is_master,
        replicate_source,
        replicate_credentials,
        tracetime: args.tracetime,
    });

    if
�
�dStatea
            let updates = db.save();
            if updates > 0 {
 
�
�mut row = t.row();
                    row.id = t.alloc_id() as i64;
                    row.values[0] = ser;
                 
%'�
� rmp_serde::to_vec(&sm.st.x.qy).unwrap();
                    let ser = Value::RcBinary(Rc::new(ser));
                    let 
�
�, "Transaction")) {
                    // Append serialised transaction to log.Transaction table
                    let ser =
$,�
�.x);
            }

            if sm.st.log && db.changed() {
                if let Some(t) = db.get_table(&ObjRef::new("log"
�
�         db.run_timed(&sql, &mut *sm.st.x);
            }
            else
            {
              db.run(&sql, &mut *sm.st
)+�
�sm = rx.blocking_recv().unwrap();
            let sql = sm.st.x.qy.sql.clone();
            if ss.tracetime
            {
     
�
�"" }, bmap);
        if !is_master {
            let _ = sync_tx.send(db.is_new);
        }
        loaExtension, Form, Multipart, Path, Query},
    routing::get,
    Router,
};
use rustdb::{
    c_int, c_value, ch
�
�e mimalloc::MiMalloc;

/// Memory allocator ( MiMalloc ).
#[global_allocator]
static MEMALLOC: MiMalloc = MiMalloc;

use axum::
�
�
        .serve(app.into_make_service())
        .await
        .unwrap();
}

/// Database initialisation string.
mod init;

us
0�
�anagerLayer::new())
            .layer(Extension(ss.clone())),
    );

    // Run the axum app.
    axum::Server::bind(&listen)
�
�let app = Router::new().route("/*key", get(h_get).post(h_post)).layer(
        ServiceBuilder::new()
            .layer(CookieM
!#�
�_x = sm.reply.send(sm.st);

            ss.trim_cache();
        }
    });

    // Build the axum app with a single route.
    
�
�               let _ = ss.wait_tx.send(());
                println!("Pages updated={updates}");
            }
            let 
"&�
�   t.insert(&db, &mut row);
                }
            }a Signals there 
�
�result
    }
}

/// Message to server task, includes oneshot Sender for reply.
struct ServerMessage {
    st: ServerTrans,
    
�
�         x: Box::new(GenTransaction::new()),
            log: true,
        };
        result.x.ext = TransExt::new();
        
�
�s {
    x: Box<GenTransaction>,
    log: bool,
}

impl ServerTrans {
    fn new() -> Self {
        let mut result = Self {
   
�
�_cookies::{CookieManagerLayer, Cookies};

/// Transaction to be sent to server task, implements IntoResponse.
struct ServerTran
�
�tions::BTreeMap, rc::Rc, sync::Arc, thread};

use tokio::sync::{broadcast, mpsc, oneshot};
use tower::ServiceBuilder;
use tower
�
�e, EvalEnv, Expr, GenTransaction, ObjRef, Part,
    SharedPagedData, SimpleFileStorage, Transaction, Value,
};
use std::{collec
�
�eck_types, standard_builtins, AccessPagedData, AtomicFile, Block, BuiltinMap,
    CExp, CExpPtr, CompileFunc, DataKind, Databas
�
�{
    extract::{ast::Sender<()>,
    /// Server is master ( not replicating
�
�e sent.
    email_tx: mpsc::UnboundedSender<()>,
    /// For setting sleep time.
    sleep_tx: mpsc::UnboundedSender<u64>,
    
�
�eries to server task.
    tx: mpsc::Sender<ServerMessage>,
    /// For notifying email loop that emails are in Queue ready to b
�
�PagedData>,
    /// Map of builtin SQL functions for Database.
    bmap: Arc<BuiltinMap>,
    /// Sender channel for sending qu
�
�
}

/// State shared with handlers.
struct SharedState {
    /// Shared storage used for read-only queries.
    spd: Arc<Shared
�
�ction to be logged
    trans_wait: bool,
}

impl TransExt {
    fn new() -> Box<Self> {
        Box::new(Self::default())
    }
�
�is new email to be sent.
    tx_email: bool,
    /// Signals time to sleep.
    sleep: u64,
    /// Signals wait for new transa
�
�reply: oneshot::Sender<ServerTrans>,
}

/// Extra transaction data.
#[derive(Default)]
struct TransExt {
    ///asend(());
                }
            }
        }
        st
    }

    fn trim_cache(&self) {
    

�                    let _ = self.sleep_tx.send(ext.sleep);
                }
                if ext.tx_email {
                
�ext = st.x.get_extension();
            if let Some(ext) = ext.downcast_ref::<TransExt>() {
                if ext.sleep > 0 {

	�
�        if self.is_master {
            // Check if email needs sending or sleep time has been specified, etc.
            let 
�
�::<ServerTrans>();
        let _err = self.tx.send(ServerMessage { st, reply }).await;
        let mut st = rx.await.unwrap();


�
�
}

impl SharedState {
    async fn process(&self, st: ServerTrans) -> ServerTrans {
        let (reply, rx) = oneshot::channel
�
� another database ).
    is_master: bool,
    replicate_source: String,
    replicate_credentials: String,
    tracetime: bool,

�
�/// For notifying tasks waiting for transaction.
    wait_tx: broadcaa �
t	�= st.x.qy.sql.clone();
        if tracetime
        {
          db.run_timed(&sql, &mut *st.x);
        }
        else
        
� read-only.
        let apd = AccessPagedData::new_reader(spd);
        let db = Database::new(apd, "", bmap);
        let sql 

�();

    let tracetime = ss.tracetime;
    let mut st = tokio::task::spawn_blocking(move || {
        // GET requests should be
�map_cookies(cookies);

    let mut wait_rx = ss.wait_tx.subscribe();
    let spd = ss.spd.clone();
    let bmap = ss.bmap.clone
�verTrans.
    let mut st = ServerTrans::new();
    st.x.qy.path = path.0;
    st.x.qy.params = params.0;
    st.x.qy.cookies = 
� path: Path<String>,
    params: Query<BTreeMap<String, String>>,
    cookies: Cookies,
) -> ServerTrans {
    // Build the Ser
�    self.spd.trim_cache();
    }
}

/// Handler for http GET requests.
async fn h_get(
    ss: Extension<Arc<SharedState>>,
   
�    let _ = self.email_tx.brverTrans::new();
/*
    if !state.is_master {
        st.x.rp.status_code = 421; // Misdirected Request
        return s28�eMap<String, String>>>,
    multipart: Option<Multipart>,
) -> ServerTrans {
    // Build the Server Transaction.
    let mut s
�dState>>,
    path: Path<String>,
    params: Query<BTreeMap<String, String>>,
    cookies: Cookies,
    form: Option<Form<BTre
57
�     }
    }
    ss.trim_cache();
    st
}

/// Handler for http POST requests.
async fn h_post(
    state: Extension<Arc<Share
�   _ = wait_rx.recv() => {}
               _ = tokio::time::sleep(core::time::Duration::from_secs(600)) => {}
            }
   
69�;
    if let Some(ext) = ext.downcast_ref::<TransExt>() {
        if ext.trans_wait {
            tokio::select! {
            :
�{
          db.run(&sql, &mut *st.x);
        }
        st
    })
    .await
    .unwrap();

    let ext = st.x.get_extension()
b    }
        res
    }
}
*.�     for (name, value) in &self.x.rp.headers {
            res.headers_mut().append(
                HeaderName::from_lowercase
� Response::builder().body(bf).unwrap();

        *res.status_mut() = StatusCode::from_u16(self.x.rp.status_code).unwrap();

   
-/�{
    fn into_response(self) -> Response<BoxBody> {
        let bf = boxed(Full::from(self.x.rp.output));
        let mut res =
�der::HeaderName, status::StatusCode, HeaderValue, Response},
    response::IntoResponse,
};

impl IntoResponse for ServerTrans 
(4� // Process the Server Transaction.
    state.process(st).await
}

use axum::{
    body::{boxed, BoxBody, Full},
    http::{hea
�me(Form(form)) = form {
        st.x.qy.form = form;
    } else {
        st.x.qy.parts = map_parts(multipart).await;
    }
   
13�t;
    }
*/
    st.x.qy.path = path.0;
    st.x.qy.params = params.0;
    st.x.qy.cookies = map_cookies(cookies);
    if let So
�t = Sebser = rget(state.clone(), &url).await;
        if !ser.is_empty() {

�d, "", state.bmap.clone());
            let lt = db.table("log", "Transaction");
            lt.id_gen.get()
        };
       
%'�        let tid = {
            let apd = AccessPagedData::new_reader(state.spd.clone());
            let db = Database::new(ap
�.qy.sql = Arc::new(sql);
        state.process(st).await;
        println!("New slave database initialised");
    }
    loop {

$,�= std::str::from_utf8(&sql).unwrap().to_string();
        let mut st = ServerTrans::new();
        st.log = false;
        st.x
�db_is_new = rx.await.unwrap();
    if db_is_new {
        let sql = rget(state.clone(), "/ScriptExact").await;
        let sql 
)+�

/// task for syncing with master database
async fn sync_loop(rx: oneshot::Receiver<bool>, state: Arc<SharedState>) {
    let 
�(name.as_bytes()).unwrap(),
                HeaderValue::from_str(value).unwrap(),
            );
    b error.
async fn rget(state: Arc<SharedState>, query: &str) -> Vec<u8> {
    // get a client builder
    let cl
%�         }
            Err(_) => {
                return;
            }
        }
    }
}

/// Get data from master server, re
$�   Ok(e) => {
                if e >= core::time::Duration::from_secs(secs) {
                    return;
                }
   
0#�.step_by(10) {
        tokio::time::sleep(core::time::Duration::from_secs(10)).await;
        match start.elapsed() {
         
"�checks real time elapsed.
async fn sleep_real(secs: u64) {
    let start = std::time::SystemTime::now();
    for _ in (0..secs)
!#!�ess(st).await;
            println!("Slave database updated Transaction Id={tid}");
        }
    }
}

/// Sleep function that 
 �            let mut st = ServerTrans::new();
            st.x.qy = rmp_serde::from_slice(&ser).unwrap();
            state.proc
"&� let url = format!("/GetTransaction?k={tid}");
        let b               
-�led to get bytes err={e}" ); }
                         }
                     } else {
                         println!("rget
,�.await {
                            Ok(b) => { return b.to_vec(); }
                            Err(e) => { println!("rget fai
+�tatus = r.status();
                     if status.is_success()
                     {
                         match r.bytes()
*�end() =>
            {
                match response
                {
                  Ok(r) => {
                     let s
)�ery)
            .header("Cookie", state.replicate_credentials.clone());

        tokio::select! {
            response = req.s
(�);
    loop {
        let mut retry_delay = true;
        let req = client
            .get(state.replicate_source.clone() + qu
'�ient = reqwest::Client::builder()
        .default_headers(reqwest::header::HeaderMap::new())
        .build()
        .unwrap(
&�tries in case ofb if state.is_master
              {
                let mu
4�     tokio::select! {
            ns = rx.recv() => { sleep_micro = ns.unwrap(); }
            _ = tokio::time::sleep(core::tim
3�n sleep_loop(mut rx: mpsc::UnboundedReceiver<u64>, state: Arc<SharedState>) {
    let mut sleep_micro = 5000000;
    loop {
   
2�Duration::from_secs(10)).await;
        }
    }
}

/// task for sleeping - calls timed.Run once sleep time has elapsed.
async f
1�
        if retry_delay {
            // Wait before retrying after error/timeout.
            tokio::time::sleep(tokio::time::
0�     {
              println!( "rget timed out after 800 seconds" );
              retry_delay = false;
            }
        }
/� println!("rget send error {e}");
                  }
               }
            }
            _ = sleep_real(800) =>
       
.� bad response status = {status}");
                     }
                  }
                  Err(e) => {
    b = qt.access(p, off);
                let msg = a.int(0) as u64;

                if let Some((pp, of
;�      let at = db.table("email", "SmtpAccount");

            for (pp, off) in qt.scan(&db) {
                let p = &pp.borro
:�"", state.bmap.clone());
            let qt = db.table("email", "Queue");
            let mt = db.table("email", "Msg");
      
	9�rx.recv().await;
            let apd = AccessPagedData::new_reader(state.spd.clone());
            let db = Database::new(apd, 
8�undedReceiver<()>, state: Arc<SharedState>) {
    loop {
        let mut send_list = Vec::new();
        {
            let _ = 

7�s(st).await;
              }
            }
        }
    }
}

/// task that sends emails
async fn email_loop(mut rx: mpsc::Unbo
6�t st = ServerTrans::new();
                st.x.qy.sql = Arc::new("EXEC timed.Run()".to_string());
                state.proces

5�e::Duration::from_micros(sleep_micro)) =>
            {
             b �
tC�((
                            msg,
                            (from, to, title, body, format),
                            (s
B�    let username = a.str(&db, 1);
                        let password = a.str(&db, 2);

                        send_list.push

A�();
                        let a = at.access(p, off);
                        let server = a.str(&db, 0);
                    
@�t(5) as u64;

                    if let Some((pp, off)) = at.id_get(&db, account) {
                        let p = &pp.borrow
?�                    let body = a.str(&db, 3);
                    let format = a.int(4);
                    let account = a.in
>�          let from = a.str(&db, 0);
                    let to = a.str(&db, 1);
                    let title = a.str(&db, 2);

=�f)) = mt.id_get(&db, msg) {
                    let p = &pp.borrow();
                    let a = mt.access(p, off);
          
<�w();
                let a%n value.
<h3>C
*�RETURN</h3>
<p>RETURN expression
<p>Returns a value from a stored function. RETURN with no expression returns from a stored f
)� type2... ) RETURNS type AS BEGIN statements END
<p>A stored function is created which can later be used in expressions.
<h3>
(�n is raised, with the error message being set to the string.
<h3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, param2
'� string). If any exception occurs, the database is left unchanged.
<h3>THROW</h3>
<p>THROW string-expression 
<p>An exceptio
&� a function or batch. EXCEPTION() can be used to obtain a string describing the most recent exception (and clears the exception
%�The stored function is called with the supplied parameters.
<h3>Exceptions</h3><p>An exception will terminate the execution of
$�rn value ) is created, which can later be called by an EXEC statement.
<h3>EXEC</h3><p>EXEC schema.name( exp1, exp2 ... )
<p>
#�REATE FN</h3><p>[= self.password.eval(ee, d).str();
        let salt = self
n�piled call to ARGON.
struct Argon {
    password: CExpPtr<Value>,
    salt: CExpPtr<Value>,
}
impl CExp<Value> for Argon {
    
m�password = c_value(b, &mut args[0]);
    let salt = c_value(b, &mut args[1]);
    Box::new(Argon { password, salt })
}

/// Com
l�gon(b: &Block, args: &mut [Expr]) -> CExpPtr<Value> {
    check_types(b, args, &[DataKind::String, DataKind::String]);
    let 
k�
        }
    }
    result
}

/////////////////////////////

use argon2rs::argon2i_simple;

/// Compile call to ARGON.
fn c_ar
j�ntent_type = content_type;
            part.data = Arc::new(data);
            part.text = text;
            result.push(part);
i�      let mut part = Part::default();
            part.name = name;
            part.file_name = file_name;
            part.co
h�       }
            } else if let Ok(bytes) = field.bytes().await {
                data = bytes.to_vec()
     @
MaryPoppinsCLondon
ClareSmith 

RonJones-
PeterPerfect$
George
Washington
RonWilliams1BenJohnsonAlexBarwood?e
n|y	InputTime
zStringToTime
{Retry
|Sleep
}/GetTransaction
�tableid
�tableargST�fieldarg���fieldid
�/ScriptExact
�

ScriptData
�	/VerifyDB
�backargs��	UrlEncode
�backurl
�
getx
Summarybee/Rtest
f
/ScriptAlldhg/SetPassword�h/ShowRowgji/ShowSchema
j
/ShowTableikkCustName�l
CustSelect
fpm
MakeOrderswnMsgName
moo	MsgSelect{pSentnrq	OneTest
r	repeatvts
get
t
hashsxuSmtpAccountName
vSmtpAccountSelect
uqwLogSendError
xRuHXQTableSelect
R
TableTitleQS	UpdateSqlR�T
/~VU	/AddChild
V/AddRow
UWW/BrowseColInfo
X/BrowseInfo\Y	/CheckAll
Z	/EditFile
Y[[	/EditFunc
\/EditRowZ^]/Execute
^/FileUpload]__	/ListFile}`/ListLoginsPla/Logout
b/Manual
acc/Menu
d
/Orderme:>=ChildSql
>ColNames
=??	ColParser
@ColPos `A	ColValues
BDefaultDefault
ACCDefaultInput
D
FormInsertSql
BFE
FormUpdateSql
FInputBinary
EGG	InputBool
HInputDoubleDLIInputInt
JInputStringIKKInputYearMonthDayyLInsertNamesJNM	InsertSql
N	ParseBool
MOOSchemaSelect
PShowSqlDay
$,)YearMonthDay
*YearMonthDayToDays
)++YearMonthDayToString
,YearMonthDayToYearDay
*.-Attr
.Encode
-//Cookie
0Form(81Head
2Main
133Path
4Query
265Redirect
6
SendBinary
577SetContentType
8	SetCookie4<9Trailer�:pubhead9;;pubtrail
<BrowseColumnNa

TypeName
DaysToString

DaysToYearDay
DaysToYearMonthDay
IsLeapYear
MicroSecToString

MonthToString
	NowStringStringToDayszStringToYearMonthDayTest
 
TestRoundTrip
0!Ticks
"Today
!##TodayYMD
$WeekDayToString
"&%YearDay
&
YearDayToDays
%''YearDayToString
(YearDayToYearMonth@8"



ClearTable

ColName


ColNames

	ColValues

Cols

Dot


DropColumn

	DropIndex	

DropSchema


	DropTable
	
	IndexCols

	IndexName


	QuoteName


SchemaName

ScriptBrowse�
ScriptSchema

ScriptSchemaBrowse

ScriptTable

SingleQuote

	TableName!s.SingleQuote(' | Name | ')'
    WHEN Id = 2 OR Id = 9 THEN '''ALLOCPAGE()'''
    ELSE Name
  END
  FROM 

ColNames�( table int ) RETURNS string AS
BEGIN
  DECLARE col string
  SET result = '(Id'
  FOR col = Name FROM sys.Column WHERE Table = table
    SET result |= ',' | sys.QuoteName(col)
  RETURN result | ')'
END

ColName�( table int, colId int ) RETURNS string AS
BEGIN
  DECLARE i int
  SET i = 0
  FOR result = Name FROM sys.Column WHERE Table = table
  BEGIN
    IF i = colId RETURN result
    SET i = i + 1
  END
  RETURN '?bad colId?'  
END



ClearTableU(t int) AS 
BEGIN 
  EXECUTE( 'DELETE FROM ' | sys.TableName(t) | ' WHERE true' )
END!ng ) AS 
BEGIN 
  DELETE FROM sys.Column WHERE Table = t AND Name = cname

  /* Could delete browse column info as well (todo)*/
END

Doty( schema string, name string ) RETURNS string AS
BEGIN
  RETURN sys.QuoteName( schema ) | '.' | sys.QuoteName( name )
END

Cols�( table int ) RETURNS string AS
BEGIN
  DECLARE col string, list string
  FOR col = sys.QuoteName(Name) | ' ' | sys.TypeName(Type)
  FROM sys.Column WHERE Table = table
    SET list |= CASE WHEN  list = '' THEN col ELSE ',' | col END
  RETUR

	ColValues�( table int ) RETURNS string AS
BEGIN
  DECLARE col string
  SET result = 'Id'
  FOR col = CASE 
    WHEN Type % 8 = 2 THEN 'sy!umn WHERE Index = index
    SET li


	DropTable�( t int ) AS 
/* Note: this should not be called directly, instead use DROP TABLE statement */
BEGIN
  /* Delete the rows */
  EXECUTE( 'DELETE FROM ' | sys.TableName(t) | ' WHERE true' )

  DECLARE id int
  /* Delete the Index data */
  FOR
	

DropSchema�( sid int ) AS
/* Note: this should not be called directly, instead use DROP SCHEMA statement */
BEGIN
  DECLARE schema string, name string
  SET schema = Name FROM sys.Schema WHERE Id = sid
  FOR name = Name FROM sys.Function WHERE Schema =


	DropIndex�( ix int ) AS
BEGIN
  /* Note: this should not be called directly, instead use DROP INDEX statement */
  DELETE FROM sys.IndexColumn WHERE Index = ix
  DELETE FROM sys.Index WHERE Id = ix
END

DropColumn�( t int, cname stri!END



	QuoteNameU( s string ) RETURNS string AS
BEGIN
  RETURN '[' | REPLACE( s, ']', ']]' ) | ']'
END

	IndexNamel( index int ) RETURNS string AS
BEGIN
  SET result = sys.QuoteName(Name) FROM sys.Index WHERE Id = index
END

	IndexCols�( index int ) RETURNS string AS
BEGIN
  DECLARE table int, list string, col string
  SET table = Table FROM sys.Index WHERE Id = index
  FOR col = sys.QuoteName(sys.ColName( table, ColId )) FROM sys.IndexCol!rowse�( s int ) AS
BEGIN
  DECLARE t int
  FOR t = Id FROM sys.Table WHERE Schema = s ORDER BY Name
  BEGIN
    EXEC sys.ScriptBrowse(t)
  END
END

ScriptSchema�( s int, mode int ) AS
BEGIN
  DECLARE sname string SET sname = sys.SchemaName(s)

  /* Create the schema, tables, indexes */
  
  IF sname != 'sys'
  BEGIN
    SELECT '
--############################################
CREATE SCHEMA 


ScriptBrowse�( t int ) AS
BEGIN
  -- Script browse information for Table t.
  -- Looks up Table and Column Id values (tid,cid) by name in case they change.
  DECLARE sid int, tname string, sname string
  SET sid = Schema, tname = Name FROM sys.Table WHER


SchemaNamea( schema int) RETURNS string AS 
BEGIN 
  SET result = Name FROM sys.Schema WHERE Id = schema
!   WHEN t = 68 THEN 'double'
    WHEN t = 67 THEN 'int'
    WHEN t = 129

	TableName�( table int ) RETURNS string AS
BEGIN
  DECLARE schema int, name string
  SET schema = Schema, name = Name FROM sys.Table WHERE Id = table
  IF name = '' RETURN ''
  SET result = sys.Dot( Name, name ) FROM sys.Schema WHERE Id = schema
END

SingleQuoteZ( s string ) RETURNS string AS
BEGIN
  RETURN '''' | REPLACE( s, '''', '''''' ) | ''''
END

ScriptTable�( t int ) AS
BEGIN
  SELECT '
CREATE TABLE ' | sys.TableName(t) | sys.Cols(t) | ' 
GO'
  DECLARE ix int, name string
  FOR ix = Id, name = Name FROM sys.Index WHERE Table = t
  BEGIN
    SELECT '
CREATE INDEX ' | sys.QuoteName(name)
	
ScriptSchemaB!oYearMonthDay( date.DaysToYearDay( days ) )
END

DaysToYearDay�( days int ) RETURNS int AS
BEGIN
  -- Given a date represented by the number of days since 1 Jan 0000
  -- calculate a date in Year/Day representation stored as
  -- year * 512 + day where day is 1..366, the day in the year.
  
  DECLARE ye	
DaysToString�( date int ) RETURNS string AS
BEGIN
  RETURN -- date.WeekDayToString( 1 + (date+5) % 7 ) | ' ' | 
    date.YearMonthDayToString( date.DaysToYearMonthDay( date ) )
END

TypeName�( t int ) RETURNS string AS 
BEGIN 
  DECLARE p int
  SET p = t / 8
  RETURN CASE 
    WHEN t = 0 THEN 'none'
    WHEN t = 13 THEN 'bool'
    WHEN t = 36 THEN 'float' 
 !�6
MonthToString�( m int ) RETURNS string AS
BEGIN
  RETURN CASE
    WHEN m = 1 THEN 'Jan'
    WHEN m = 2 THEN 'Feb'
    WHEN m = 3 THEN 'Mar'
    WHEN m = 4 THEN 'Apr'
    WHEN m = 5 THEN 'May'
    WHEN m = 6 THEN 'Jun'
    WHEN m = 7 THEN 'Jul'
    WHEN m 

MicroSecToString�(micro int) RETURNS string AS
BEGIN
  DECLARE day int, sec int, min int, hour int
  SET sec = micro / 1000000
  SET day = sec / 86400 -- 86400 = 24 * 60 * 60, seconds in a day.
  SET sec = sec % 86400
  SET min = sec / 60
  SET sec = 	


IsLeapYearZ( y int ) RETURNS bool AS
BEGIN
  RETURN y % 4 = 0 AND ( y % 100 != 0 OR y % 400 = 0 )
END
DaysToYearMonthDayg( days int ) RETURNS int AS
BEGIN
  RETURN date.YearDayT#MonthDayToDays( ymd )
  DECLARE i int
  SET i = 0
  WHILE i < n
  BEGIN
    SELECT '<br>' | date.DaysToString
StringToYearMonthDay`( s string ) RETURNS int AS
BEGIN
  RETURN date.DaysToYearMonthDay( date.StringToDays( s ) )
END
StringToDays�( s string ) RETURNS int AS
BEGIN
  -- Typical input is 'Feb 2 2020'
  DECLARE ms string, month int
  SET ms = SUBSTRING( s, 1, 3 )
  SET month = CASE 
    WHEN ms = 'Jan' THEN 1
    WHEN ms = 'Feb' THEN 2
    WHEN ms = 'Mar' THEN 3
    WHEN
	NowStringM() RETURNS string AS
BEGIN
  RETURN date.MicroSecToString( date.Ticks() )
END#BEGIN
  DECLARE sec int, day int
  SET sec = date.Ticks() / 1000000
  SET day = sec / 86400
  RETURN day
END
!Ticks�() RETURNS int AS
BEGIN
  -- Microseconds since 1 Jan 0000
  RETURN GLOBAL(0) + 62135596800000000 /* 719162 * 24 * 3600 * 1000000 */
     + 366 * 24 * 3600 * 1000000
END
 
TestRoundTrip�() AS
BEGIN
  DECLARE day int
  SET day = 0
  WHILE day < 1000000
  BEGIN
    IF date.YearMonthDayToDays( date.DaysToYearMonthDay(day) ) != day
    BEGIN
      SELECT 'Test failed day = ' | day
      BREAK
    END
    SET day = day + 1
  END
Test�( y int, m int, d int, n int ) AS 
BEGIN
  DECLARE ymd int, days int
  SET ymd = date.YearMonthDay( y, m, d )
  SET days = date.Year#-- using the Gregorian calendar wh
%YearDayH( year int, day int ) RETURNS int AS
BEGIN
  RETURN year * 512 + day
END
$WeekDayToString�( wd int ) RETURNS string AS
BEGIN
  RETURN CASE
    WHEN wd = 1 THEN 'Mon'
    WHEN wd = 2 THEN 'Tue'
    WHEN wd = 3 THEN 'Wed'
    WHEN wd = 4 THEN 'Thu'
    WHEN wd = 5 THEN 'Fri'
    WHEN wd = 6 THEN 'Sat'
    WHEN wd = 7 THEN 'Sun'
   
#TodayYMDQ() RETURNS int AS 
BEGIN
  SET result = date.DaysToYearMonthDay(date.Today())
END"Today�() RETURNS int AS
#ND

(YearDayToYearMonthDay�( yd int ) RETURNS int AS
BEGIN
  DECLARE y int, d int, leap bool, fdm int, m int, dim int
  SET y = yd / 512
  SET d = yd % 512 - 1
  SET leap = date.IsLeapYear( y )
  -- Jan = 0..30, Feb = 0..27 or 0..28  
  IF NOT leap AND d >= 59 SET d =

'YearDayToStringp( yd int ) RETURNS string AS
BEGIN
   RETURN date.YearMonthDayToString( date.YearDayToYearMonthDay( yd ) )  
END
&
YearDayToDays�( yd int ) RETURNS int AS
BEGIN
  -- Given a date in Year/Day representation stored as y * 512 + d where 1 <= d <= 366 ( so d is day in year )
  -- returns the number of days since "day zero" (1 Jan 0000)
  #oYearDay�( ymd int ) RETURNS int AS
BEGIN
  DECLARE y int, m int, d int
  -- Extract y, m, d from ymd
  SET d = ymd % 32, m = ymd / 32  
  SET y = m / 16, m = m % 16
  -- Incorporate m into d ( assuming Feb has 29 days ).
  SET d = d + CASE
    WHEN 
+YearMonthDayToString�( ymd int ) RETURNS string AS
BEGIN
  DECLARE y int, m int, d int
  SET d = ymd % 32
  SET m = ymd / 32
  SET y = m / 16
  SET m = m % 16
  RETURN date.MonthToString(m) | ' ' | d | ' ' |  y
END

*YearMonthDayToDayse( ymd int ) RETURNS int AS
BEGIN
  RETURN date.YearDayToDays( date.YearMonthDayToYearDay( ymd ) )
END
)YearMonthDay`( year int, month int, day int ) RETURNS int AS
BEGIN
  RETURN year * 512 + month * 32 + day
E#
/CookieC( name string ) RETURNS string AS
BEGIN
  RETURN ARG( 3, name )
END
.Encode�( s string ) RETURNS string AS
BEGIN
  SET s = REPLACE( s,'&', '&amp;' )
  SET s = REPLACE( s, '<', '&lt;' )
  RETURN s
END
-Attr�( s string ) RETURNS string AS
BEGIN
  SET s = REPLACE( s, '&', '&amp;' )
  SET s = REPLACE( s, '"', '&quot;' )
  RETURN '"' | s | '"'
END
	,YearMonthDayT#
2Main�() AS 
BEGIN 
  DECLARE path string SET path = web.Path()
  DECLARE ok string SET ok = Name FROM sys.Function WHERE Name = path AND Schema = 6
  IF ok = path
  BEGIN
    EXECUTE( 'EXEC ' | sys.Dot('handler',path) | '()' )
    DECLARE ex stri'
1Head�( title string ) AS 
BEGIN 
  EXEC web.SetContentType( 'text/html;charset=utf-8' )

  DECLARE back string SET back = browse.backurl()

  SELECT '<html>
<head>
<meta http-equiv="Content-type" content="text/html;charset=UTF-8">
<meta !
0FormC( name string ) RETURNS string AS
BEGIN
  RETURN ARG( 2, name )
END#�66
SendBinarym( contenttype string, content binary ) AS
BEGIN
  EXEC web.SetContentType( contenttype )
  SELECT content
END
5Redirectk( url string ) AS
BEGIN
  DECLARE x int
  SET x = HEADER( 'location', url )
  SET x = STATUSCODE( 303 )
END

4QueryC( name string ) RETURNS string AS
BEGIN
  RETURN ARG( 1, name )
END
3Path1() RETURNS string AS
BEGIN
  RETURN ARG(0,'')
END'-type" content="text/html;charset=UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1"

9Trailer)() AS
BEGIN
  SELECT '</body></html>'
END
8	SetCookie�( name string, value string, expires string ) AS
BEGIN
  /* Expires can be either in seconds e.g. Max-Age=1000000000
     or Expires=Wed, 09 Jun 2021 10:18:14 GMT
     or blank for temporary cookie

     To delete a cookie use e.g.

     EXE
7SetContentTypeP( ct string ) AS
BEGIN
  DECLARE x int
  SET x = HEADER( 'contenttype', ct )
END' ba string ) RETURNS string AS 
BEGIN 
  /* Returns SQL to display a child table, with hyperlinks where a column refers to another table */
  DECLARE col string, colid int, colName string, type int, th string, ob string-
<BrowseColumnName�( k int ) RETURNS string AS 
BEGIN
  SET result = sys.TableName( Table ) | '.' | sys.QuoteName( Name )
  FROM sys.Column WHERE Id = k
END
;pubtrail�() AS 
BEGIN 

SELECT  '<div class=outer3><div>Copyright © ' | ( date.TodayYMD() / 512 ) | '  Whatever Limited</div></div></body></html>'

END
:pubhead�( title string ) AS 
BEGIN 
  EXEC web.SetContentType( 'text/html;charset=utf-8' )
  SELECT '<html>
<head>
<meta http-equiv="Content'
  FROM sys.Column WHERE Table = 
@ColPosv( c int ) RETURNS int AS
BEGIN
  DECLARE pos int
  SET pos = Position FROM browse.Column WHERE Id = c
  RETURN pos
END
?	ColParser�( colId int, type int, f string ) RETURNS string AS
BEGIN
  -- ColId not currently used, but in future user-specified parser could be fetched from Parse.Column
  DECLARE pf string
  SET pf = ParseFunction FROM browse.Column WHERE Id = colId

>ColNames�( table int, ba string ) RETURNS string AS
BEGIN
  DECLARE col string
  FOR col = '<a href="/BrowseColInfo?k=' | Id | ba | '">' | Name | '</a>' 
    | ' ' | sys.TypeName(Type) /* | ' pos=' | browse.ColPos(Id) */
  FROM sys.Column WHERE =ChildSql�( colId int, k int,'lId int
  FOR col = Name, type = Type, colId = Id FROM sys.Column 
    WHERE Table = table AND Id != pc
    ORDER BY browse.ColPos(Id), Id
  BE=

CDefaultInput�( type int ) RETURNS string AS
BEGIN
  RETURN CASE 
  WHEN type % 8 = 3 THEN 'browse.InputInt'
  WHEN type % 8 = 1 THEN 'browse.InputBinary'
  WHEN type % 8 = 4 THEN 'browse.InputDouble'
  WHEN type % 8 = 5 THEN 'browse.InputBool'
  ELSE 'br	
BDefaultDefault�( type int, ref int ) RETURNS string AS
BEGIN
  RETURN CASE
    WHEN type % 8 = 2 THEN ''''''
    WHEN type % 8 = 1 THEN '0x'
    WHEN type % 8 = 5 THEN 'false'
    ELSE '0'
    END
END
A	ColValues�( table int, ba string ) RETURNS string AS
BEGIN
  DECLARE col string, colid int
  FOR colid = Id, col = CASE 
    WHEN Type % 8 = 2 THEN 'htm.Encode(sys.SingleQuote(' | Name | '))'
    ELSE Name
  END'�( colId int, value bool ) RETURNS string AS
BEGIN
  DECLARE cn string 
  SET cn = Name FROM sys.Column WHERE Id = colId
  RETURN '<input type=checkbox id="' | cn | '" name="' | cn | '"' | CASE WHEN value THEN ' checked' ELSE '' END | '>'
END
FInputBinary�( colId int, value binary ) RETURNS string AS 
BEGIN 
  DECLARE cn string SET cn = Name FROM sys.Column WHERE Id = colId
  DECLARE size int SET size = InputCols FROM browse.Column WHERE Id = colId
  IF size = 0 SET size = 50
  RETURN '<input


E
FormUpdateSql�( table int, k int ) RETURNS string AS
BEGIN
  DECLARE sql string, col string, colId int, type int
  FOR col = Name, colId = Id, type = Type FROM sys.Column WHERE Table = table
  ORDER BY browse.ColPos(Id), Id
  BEGIN
    DECLARE ref int, in
D
FormInsertSql�( table int, pc int ) RETURNS string AS
BEGIN
  DECLARE sql string, col string, type int, co'owse.Column WHERE Id = colId
  IF size = 0 SET size = 10
  RETURN '<inpu
JInputString�( colId int, value string ) RETURNS string AS 
BEGIN 
  DECLARE cn string SET cn = Name FROM sys.Column WHERE Id = colId 
  DECLARE cols int, rows int, description string
  SET cols = InputCols, rows = InputRows, description = Description
  F
IInputInt�( colId int, value int) RETURNS string AS 
BEGIN 
  DECLARE cn string 
  SET cn = Name FROM sys.Column WHERE Id = colId
  DECLARE size int
  SET size = InputCols FROM browse.Column WHERE Id = colId
  IF size = 0 SET size = 10
  RETURN '<inpuE
HInputDouble�( colId int, value double ) RETURNS string AS 
BEGIN 
  DECLARE cn string SET cn = Name FROM sys.Column WHERE Id = colId
  DECLARE size int 
  SET size = InputCols FROM browse.Column WHERE Id = colId
  IF size = 0 SET size = 15
  RETURN '<inD
	G	InputBool'
M	InsertSql�( table int, pc int, p int ) RETURNS string AS
BEGIN
  DECLARE vlist string, f string, type int, colId int
  FOR f = 'web.Form(' | sys.SingleQuote(Name) | ')', type = Type, colId = Id
  FROM sys.Column WHERE Table = table 
  SET vlist |= CAS
LInsertNames�( table int ) RETURNS string AS
BEGIN
  DECLARE col string
  FOR col = Name FROM sys.Column WHERE Table = table
    SET result |= CASE WHEN result = '' THEN '' ELSE ',' END | sys.QuoteName(col)
  RETURN '(' | result | ')'
END
KInputYearMonthDay�( colId int, value int) RETURNS string AS 
BEGIN 
  DECLARE cn string 
  SET cn = Name FROM sys.Column WHERE Id = colId
  DECLARE size int
  SET size = InputCols FROM br'�6QTableSelect�( colId int, sel int ) RETURNS string AS
BEGIN
  DECLARE col string SET col = Name FROM sys.Column WHERE Id = colId
  DECLARE opt string, options string
  FOR opt = '<option ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END 
  | ' value=' 
PShowSql�(table int, k int) RETURNS string AS
BEGIN
  DECLARE ba string SET ba = browse.backargs()

  DECLARE cols string, col string, colname string, colid int
  FOR colid = Id, colname = Name, col = CASE 
    WHEN Type % 8 = 2 THEN 'htm.Encod"

OSchemaSelect�( colId int, sel int ) RETURNS string AS
BEGIN
  DECLARE col string SET col = Name FROM sys.Column WHERE Id = colId
  DECLARE opt string, options string, sels string
  SET sels = web.Form( col )
  IF sels != '' SET sel = PARSEINT( sels )
  F
N	ParseBool8( s string ) RETURNS bool AS
BEGIN
  RETURN s = 'on'
END) SET p = PARSEINT( web.Query('p') )
  DECLARE t int SET t = Table FROM sys.Column WHERE Id = c
  DECLARE ex4
T
/�() AS 
BEGIN 
   EXEC web.pubhead('Home')
   
   SELECT '
<div class=outer><div>
<h1>Some website</h1>
<p>Welcome to my website.
</div></div>
'
   EXEC web.pubtrail()
END
S	UpdateSql�( table int, k int ) RETURNS string AS
BEGIN
  DECLARE alist string, col string, type int, colId int
  FOR colId = Id, col = Name, type = Type FROM sys.Column WHERE Table = table
  BEGIN
    DECLARE f string SET f = 'web.Form(' | sys.SingleQ2
R
TableTitle�( table int ) RETURNS string AS
BEGIN
  SET result = Title FROM browse.Table WHERE Id = table
  IF result = '' SET result = Name FROM sys.Table WHERE Id = table
END)CLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE k int SET k = browse.tableid()

  DECLARE tid int SET tid = 9
  DECLARE ok int SET ok = 0
  SET ok = Id FROM browse.Table WHERE Id = k
  IF ok != k INSEK
W/BrowseColInfo�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE tid int SET tid = 8
  DECLARE c int SET c = PARSEINT( web.Query( 'k' ) )
  DECLARE t int, colName string
  SET t = Table, colName = Name FROM sys.Column WHERE I)
V/AddRow�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE t int SET t = browse.tableid()

  DECLARE ex string
  IF web.Form( '$submit' ) != '' 
  BEGIN
    DECLARE lastid int
    SET lastid = LASTID()
    EX!
U	/AddChild�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE c int SET c = browse.fieldid()

  DECLARE p int)string SET submit = web.Form( '$su6
[	/EditFunc�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE s string SET s = web.Query('s')
  DECLARE n string SET n = web.Query('n')
  DECLARE sid int SET sid = Id FROM sys.Schema WHERE Name = s
  DECLARE def string, ex s:
Z	/EditFile�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE k int SET k = PARSEINT( web.Query('k') )
  DECLARE path string SET path = web.Form('path')
  IF path != '' 
  BEGIN
    UPDATE web.File SET Path = path WHERE Id =1
Y	/CheckAll�() AS 
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.Head('Check All Functions compile')
  DECLARE sid int, sname string, fname string, err int, n int

  FOR sid = Id, sname = sys.QuoteName(Name) FROM sys.Schema
 PX/BrowseInfo�() AS 
BEGIN
  DE))
  SELECT '<h1>Files</h1>' 
  SELECT '<p>Path=<a target=_blank href="' | Path | '">' | Path | '</a> Type= ' | ContentType 
   | ' Length=' | ConteO

^/FileUpload�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.Head( 'File upload' )
  IF FILEATTR(0,0) = 'file' 
  BEGIN
    SELECT '<p>Filename=' | FILEATTR(0,2) | ' ContentType=' | FILEATTR(0,1)
    DECLARE content binaryL
]/Execute�() AS 
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE sql string SET sql = web.Form('sql')
  EXEC web.Head( 'Execute' )
  SELECT 
     '<p><form method=post>'
     | 'SQL to <input type=submit value=Execute>?
\/EditRow�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE t int SET t = browse.tableid()
  DECLARE k int SET k = PARSEINT( web.Query('k') )
  DECLARE ex string
  DECLARE submit )�() AS BEGIN

DECLARE cu int SET cu = login.get(0) IF cu = 0 RETURN

EXEC web.Head('Manual')
SELECT '<h1>Manual</h1>
<p>This manual describes the various SQL statements that are available. Where syntax is described, optional elements ar�
a/Logout�() AS 
BEGIN 
    EXEC web.SetCookie( 'uid', '', '' )
    EXEC web.SetCookie( 'hpw', '', '' )
    EXEC web.Head( 'Logout' )
    SELECT '<p>Logged out.'
    EXEC web.Trailer()
END

`/ListLogins�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.Head('Logins')

  SELECT '<p>' | Name | ' <a href="/SetPassword?k=' | Id | '">Set Password</a>'
  FROM login.user
  ORDER BY Name

  EXEC web.Trailer()
END
_	/ListFile�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.Head( 'Files' )INT(web.Query('mode'))

  DECLARE s int
  FOR s = Id FROM sys.Schema
�
e/Rtest�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  -- Can be invoked repeatedly with e.g. for /l %x in (1, 1, 100) do curl -X POST http://localhost:3000/Rtest
  -- Depending on the server, a POST request is needed, as G
d
/OrderSummary�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE ba string SET ba = browse.backargs()

  EXEC web.Head( 'Order Summary' )
  SELECT '<table><tr><th>Cust<th>Total<th>Count</tr>'

  DECLARE cust int, total_
c/Menu�() AS
BEGIN
   DECLARE cu int SET cu = login.get(0) IF cu = 0 RETURN

   EXEC web.Head('System Menu')
   SELECT '
<p><a href="/ShowTable?s=dbo&n=Cust">Customers</a> | <a href="/OrderSummary">Order Summary</a>
<p><a target=_blank href=�
	b/Manual)cu = 0 RETURN

  DECLARE ba string SET ba = browse.backargs()

  DECLARE s string SET s = web.Query('s')
  DECLARE sid int SET sid = Id FROM sys.Schema WHERE Name = s
  EXEC web.He
h/ShowRow�() AS 
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE t int SET t = browse.tableid()

  DECLARE k int SET k = PARSEINT( web.Query('k') )  

  EXECUTE( browse.ShowSql(t,k) )
END
g/SetPassword�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE k int SET k = PARSEINT( web.Query('k') )

  DECLARE pw string SET pw = web.Form('pw')
  IF pw != '' 
  BEGIN
    UPDATE login.user SET HashedPassword =X
f
/ScriptAll�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.SetContentType( 'text/plain;charset=utf-8' )

  DECLARE mode int SET mode = PARSE)�6l
CustSelect�( colId int, sel int ) RETURNS string AS
BEGIN
  DECLARE col string SET col = Name FROM sys.Column WHERE Id = colId

  DECLARE opt string, options string

  FOR opt = '<option ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END 
  | ' value=G
kCustName�( cust int ) RETURNS string AS
BEGIN
  SET result = 'Cust ' | cust -- default in case Cust row does not exist
  SET result = FirstName | ' ' | LastName FROM dbo.Cust WHERE Id = cust
END

j
/ShowTable�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE ba string SET ba = browse.backargs()

  DECLARE t int SET t = browse.tableid()

  DECLARE title string SET title = browse.TableTitle( t )
  SET title =�
i/ShowSchema�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF "tring, options string

  FOR opt = '<option ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END 
  | ' value=j
nMsgName;(id int) RETURNS string AS
BEGIN
  SET result = '' | id
ENDm
MakeOrders�(n int) AS
BEGIN 
  DELETE FROM dbo.Order WHERE 1 = 1
  DECLARE date int SET date = date.DaysToYearMonthDay(date.Today())
  DECLARE @I int 
  SET @I=0 
  WHILE @I < n
  BEGIN 
    INSERT INTO dbo.[Order](Cust,Total,Date) VALUES(1+@I%
�backurl�() RETURNS string AS
BEGIN
  DECLARE n int
  SET n = 1
  WHILE 1 = 1
  BEGIN
    DECLARE v string, pv string, bs string
    SET v = web.Query('b' | n )
    IF v = '' RETURN pv | bs

    IF pv != '' SET  bs = bs | '&b' | (n-1) | '='R" RETURNS string AS
BEGIN
  WHILE n > 0
  BEGIN
    SET result |= s
    SET n = n - 1
  END
END
q	OneTest�() AS
BEGIN 
  DECLARE rtestdata int
  SET rtestdata = Id FROM sys.Schema WHERE Name = 'rtestdata'

  DECLARE r int
  SET r = x FROM rtest.Gen
  SET r = r * 48271 % 2147483647
  UPDATE rtest.Gen SET x = r WHERE true

  DECLARE sql string, a �
pSent�(id int) AS
BEGIN
  DELETE FROM email.Queue WHERE msg = id

  -- Test retry.
  -- EXEC email.LogSendError( id, 1, 'Testing retry!' )
END
o	MsgSelect�( colId int, sel int ) RETURNS string AS
BEGIN
  DECLARE col string SET col = Name FROM sys.Column WHERE Id = colId

  DECLARE opt s"EN ' selected' ELSE '' END 
  | 'L
uSmtpAccountName>(id int) RETURNS string AS
BEGIN
  SET result = '' | id
END
t
hashS(s string) RETURNS binary AS
BEGIN
  SET result = ARGON(s,'pomesoft saltiness')
END
s
get�( role int ) RETURNS int AS
BEGIN
  /* Get the current logged in user. Note: role is not yet checked */

  DECLARE username string SET username = web.Form('username')

  /*
     Login is initially disabled. Remove or comment out the lvr	repeatq( s string, n int )" sys.Column WHERE Id = colId
  DECLARE size int
  SET size = InputCols FROM browse.Column WHERE Id = colId
  IF size = 0 SET size = 20
  RETURN�

xRun�() AS 
/* 
  This function is called by the Rust program.
  The time interval (in milliseconds) is set using the built-in SLEEP function.
*/
BEGIN 

  DECLARE now int SET now = date.Ticks()

  DECLARE f string, a int
  FOR f = fn, �
wLogSendError�( id int, retry int, error string ) AS

BEGIN
  DELETE FROM email.Queue WHERE msg = id

  IF retry = 0
  BEGIN
    INSERT INTO email.SendError( msg, error, time )
    VALUES ( id, error, date.Ticks() )
  END
  ELSE
  BEGIN
    IN�vSmtpAccountSelect�( colId int, sel int ) RETURNS string AS
BEGIN
  DECLARE col string SET col = Name FROM sys.Column WHERE Id = colId

  DECLARE opt string, options string

  FOR opt = '<option ' | CASE WHEN Id = sel TH"�() AS 
BEGIN 
  /* Set sleep time based on timed.Job table */

  DECLARE now int, next int
  SET now = date.Ticks()

  SET next = now + 24 * 3600 * 1000000 -- 24 hours

  DECLARE t int
  FOR t = at FROM timed.Job
  BEGIN
    IF ty
{Retry�() AS 
BEGIN 
  DECLARE now int SET now = date.Ticks()
 
  -- Find a Delayed email that is due to be sent.
  -- Transient failures are retried after 600 seconds = ten minutes. 
  DECLARE id int, t int, r int
  FOR id = Id, t = time + �

zStringToTime�( s string ) RETURNS int AS
BEGIN
  -- Typical input is 'Feb 2 2020 20:15:31'
  DECLARE month int, day int, year int, hour int, min int, sec int

  DECLARE ms string
  SET ms = SUBSTRING( s, 1, 3 )
  SET month = CASE 
    WHEN ms = '�
y	InputTime�( colId int, value int) RETURNS string AS 
BEGIN 
  DECLARE cn string 
  SET cn = Name FROM"
END
�tablearg�( t int ) RETURNS string AS
BEGIN
  DECLARE sid int, s string, n string
  SET n = Name, sid = Schema FROM sys.Table WHERE Id = t
  SET s = Name FROM sys.Schema WHERE Id = sid
  RETURN 's=' | s | '&n=' | n
END�tableid�() RETURNS int AS
BEGIN
  DECLARE sname string, tname string, sid int, tid int
  SET sname = web.Query('s')
  SET tname = web.Query('n')

  SET sid = Id FROM sys.Schema WHERE Name = sname

  SET tid = Id FROM sys.Table WHERE Schema =Q
}/GetTransaction�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  DECLARE k int SET k = PARSEINT( web.Query('k') )

  DECLARE id int, d binary

  SET id = Id, d = data FROM log.Transaction WHERE Id = k

  IF id = k 
    SELz
	|Sleep"

    IF t < 6 SET filter = CASE 
       WHEN t = 1 THEN ' WHERE Id != 1' -- Sys
       WHEN t = 2 THEN ' WHERE Id > 6' -- Table
       WHEN t = 3 THEN ' WHERE Table > 6' -- Field
��/ScriptExact�() AS 
BEGIN 
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.SetContentType( 'text/plain;charset=utf-8' )

  DECLARE t int
  FOR t = Id FROM sys.Table
    EXEC sys.ScriptData(t,1)
END
�fieldid�() RETURNS int AS
BEGIN 
  DECLARE t int SET t = browse.tableid()
  DECLARE fname string SET fname = web.Query('f')
  DECLARE f int SET f = Id FROM sys.Column WHERE Table = t AND Name = fname
  RETURN f
END
�fieldarg�(f int) RETURNS string AS
BEGIN
  DECLARE t int, fname string
  SET t = Table, fname = Name FROM sys.Column WHERE Id = f
  RETURN browse.tablearg(t) | '&f=' | fname
"�6�	UrlEncode�( s string ) RETURNS string AS
BEGIN
  /* Would probably be better to do this using builtin function */
  SET s = REPLACE( s, '%', '%25' )
  SET s = REPLACE( s, '&', '%26' )
  SET s = REPLACE( s, '=', '%3D' )
  --SET s = REPLACE( s, '?�
�backargs�() RETURNS string AS 
BEGIN 
  DECLARE keep string

  /* Cleaner approach would be to iterate over all query args except b[n] */
  DECLARE n int, v string
  SET n = 1
  WHILE n < 6
  BEGIN
    DECLARE name string
    SET name = CAS{�	/VerifyDB�() AS
BEGIN
  DECLARE cu int SET cu = login.get(1) IF cu = 0 RETURN

  EXEC web.Head('Verify database')

  SELECT '<p>' | VERIFYDB()

  EXEC web.Trailer()
END
�

ScriptData�( t int, mode int ) AS
BEGIN
    DECLARE filter string
`
sys

datehtm

webbrowse
handler
dbo
email
	rtest

login
	timed
log
`
sys
date

htm
web
browse
handler
dbo
email

	rtest

login	timedlog
4A:5;
9><:=
>+3?
@
A
?=C
DDE
8CFEG
@BH
L
to�8(1title�
2body�
313format
5
msgC
628
xC
9Name�
75:HashedPassword�
;server�@4<username�
=password�
;9>accountC
?statusC
>:@msgC
Aerror�
?=CtimeC
Dfn�
B<EatC
FmsgCDAGerror�
HtimeC
ECLdata�
fersToC
Default�
	InputColsC

InputFunction�
	InputRowsC
StyleC
DisplayFunction�

ParseFunction�
 	NameFunction�0!	SelectFunction�
"	DefaultOrder�
#!#	Title�
$	Description�
&"%	RoleC
&
	FirstNameZ
'%'
LastName�
(
AgeC
,$)
City�
*

x
+)+CustC
,TotalC
.*-DateC
.InfoJ
/-/from�
0
H








		

�$



	




+

-
35
6
>
@
CEF
H


C�date.Mi
Edate.Ticks()�browse.�date.Mi�date.St
FH�date.Mi

+
-�date.Da�browse.�date.Ye�date.St
3�0 means
	5
6date.Ticks()�date.Mi
>
@�$



sys.TypeName





 ��
p�
�bF��
cG��
dHT�
eIy

fJ�
gK$

hL�"6
k$\
�#]
$^
-#
_
7'g
�%i
p.�i[0�
j\K/�
k]�/�
l^�.
�
m_�2�
n`�1�
oa$:�p�;
�:
p;
�:

�>&
@='
�EU
D n
��
�
1#�
�
2$��
�
3%�
�
4&A�

�
5'K�
�
6(��
�
7)��
�
3�

_�
 
��
"
��

#
��
+
��
,
8�
YT��
~
U�

V��
�
W��

�
X ��
�
Y!T�
�
Z"��
�
��
�
��
�
8�
�
]�

�
g�
�
�
�
��

M?O
?
N@{@
OA�A
PB
B
QCJ
RD�K
SETx

�
/�
��
�
�
 

��G�
C
s�
[
�
c
8�
�
;9	�

�
<:��
�
>=L�
�
��
�
'�
�
��
�
��

�
ǚ
�
h�
�
�


��
D

ۢ
E

	L�
F


q�

G

{�
O

�
P


��
}

c�
�

��
�

�
�

%�

�

/�
�

а
�

h�
�

*�

+C�

,��

-ٹ


.�


/��

0�
;
��
a
��
b
h�
c
��

e
��
l
8�
.��n�
i
L�
h%��*�
g
�
f%���
e
đ
d%����
b
��
a%��^�
`
<�
_%���
^
��
]%��֐
\
��
Z%����
Y
p�
X%��N�
W
,�
V%��
�
U
�
T%��Ə
S
��
R%����
Q
`�
P%��>�
O
�
N%����
M
؎
L%����
K
��
J%��r�
I
P�
H%��.�
G
�
F%���
E
ȍ
B%�Ǧ�
A
��
@%��b�
?
@�
>%���
=
��
<%��ڌ
;
��
:%�ϖ�
9
t�
8%��R�
7
0�
6%���
5
�
4%��ʋ
3
��
2%�׆�
1
d�
0%��B�
/
 �
.&����
-
܊
,%�ݺ�
*
+.
�
D�
�%dl"�
�
�
�%ikޙ
�
��
�%jn��
�
x�
�%moV�
�
4�
�%hx�
�
�
�%qsΘ
�
��
�%rv��
�
h�
�%uwF�
�
$�
�%t|�
�
��
�%y{��
�
��
�%z~z�
�
X�
�%}6�
�
�
�%@��
�
Ж
�%����
�
��
�%��j�
�
H�
�%��&�
�
�
�%���
�
��
�%����
�
|�
�%��Z�

8�
~%���
}
��
|%��Ҕ
{
��
z%����
y
l�
x%��J�
w
(�
v%���
u
�
t%��“
s
��
r%��~�
q
\�
p%��:�
o
�
n%����
m
Ԓ
l&����
k
��
j%.�
<�
�%*.�
�
��
�%-/֡
�
��
�%(8��
�
p�
�%13N�
�
,�
�%26
�
�
�
�%57Ơ
�
��
�%4<��
�
`�
�%9;>�
�
�
�%:>��
�
؟
�%=?��
�
��
�% `r�
�
P�
�%AC.�
�
�
�%BF�
�
Ȟ
�%EG��
�
��
�%DLb�
�
@�
�%IK�
�
��
�%JNڝ
�
��
�%MO��
�
t�
�%HXR�
�
0�
�%QS�
�
�
�%RVʜ
�
��
�%UW��
�
d�
�%T\B�
�
 �
�%Y[��
�
ܛ
�%Z^��
�
��
�%]_v�
�
T�
�%Pp2�
�
�
�%ac�
�
̚
�%bf��
�
��
�%egf�.
4�
'

���
&

�
%

��Ω
$

��
#

����
"

h�
!

��F�
 

$�


���


�


����


��


��z�


X�


��6�


�

!���


Ч

%
��


��

%j�


H�

%&�


�

%�



��

%	��


|�


%
Z�
	

8�

%
�


��

%ҥ


��

%��


l�

%J�



(�

%�
�
�
�%¤
�
��
�%~�
�
\�
�%:�
�
�
�%��
�
ԣ
�%0��
�
��
�%!#n�
�
L�
�%"&*�
�
�
�%%'�
�
Ģ
�%$,��
�
��
�%)+^�
.
,�
i

��
�
h

�
g

��Ʊ
f

��
e

����
d

`�
c

��>�
b

�
a

����
`

ذ
_

����
^

��
]

��r�
\

P�
[

��.�
Z

�
Y

���
X

ȯ
W

�Ǧ�
V

��
U

��b�
T

@�
S

���
R

��
Q

��ڮ
N

��
M

�ϖ�
L

t�
K

��R�
J

0�
I

���
H

�
C

��ʭ
B

��
A

�׆�
@

d�
?

��B�
>

 �
=

����
<

ܬ
;

�޺�
:

��
9

��v�
8

T�
7

��2�
6

�
5

���
4

̫
3

�檫
2

��
1

��f�
0

D�
/

��"�
.

�
-

��ު
,

��
+

�
*

x�
)

��V�
(
.�
�

t|�
�

�
�

y{��
�

��
�

z~z�
�

X�
�

}6�
�

�
�

@��
�

и
�

����
�

��
�

��j�
�

H�
�

��&�
�

�
�

���
�

��
�

����
�

|�
�

��Z�
�

8�
�

���
�

��
�

��Ҷ
�

��
�

����
�

l�
�

��J�
�

(�
�

���
�

�
�

��µ
�

��
�

��~�
�

\�
�

��:�
�

�
�

����


Դ
~

����
|

��
{

��n�
z

L�
y

��*�
x

�
w

���
v

ij
u

����
t

��
s

��^�
r

<�
q

���
p

��
o

��ֲ
n

��
m

����
l

p�
k

��N�
j
.�

:>��
�

��
�

=?��
�

��
�

 `r�
�

P�
�

AC.�
�

�
�

BF��
�

��
�

EG��
�

��
�

DLb�
�

@�
�

IK�
�

��
�

JNڿ
�

��
�

MO��
�

t�
�

HXR�
�

0�
�

QS�
�

�
�

RVʾ
�

��
�

UW��
�

d�
�

T\B�
�

 �
�

Y[��
�

ܽ
�

Z^��
�

��
�

]_v�
�

T�
�

Pp2�
�

�
�

ac�
�

̼
�

bf��
�

��
�

egf�
�

D�
�

dl"�
�

�
�

ik޻
�

��
�

jn��
�

x�
�

moV�
�

4�
�

hx�
�

�
�

qsκ
�

��
�

rv��
�

h�
�

uwF�
�

$.
����
*
��
)

��
(
��
'
j�
&
H�
%
&�
$
�
#
��
"
��
!
	��
 
|�


Z�

8�


�

��

��

��

��

l�

J�

(�

�

��

��

��

~�

\�

:�

�

��


��
	
0��

��

!#n�

L�


"&*�

�
�

%'��
�

��
�

$,��
�

��
�

)+^�
�

<�
�

*.�
�

��
�

-/��
�

��
�

(8��
�

p�
�

13N�
�

,�
�

26
�
�

��
�

57��
�

��
�

4<��
�

`�
�

9;>�
�

�
7����
k
��
j%����
i
��
h%��b�
g
@�
f%���
d
��
`%����
_
��
^%����
]
t�
\%��R�
[
0�
Z%���
Y
��
X%����
W
��
V%����
U
d�
T%��B�
S
 �
R%����
Q
��
P%����
O
��
N%��v�
M
T�
L%��2�
K
�
J%����
I
��
H%�ê�
G
��
F%��f�
E
D�
D%��"�
C
�
B%����
A
��
@%�˚�
?
x�
>%��V�
=
4�
<%���
:
��
9%����
8
��
7%�ӊ�
6
h�
5%��F�
4
$�
3%���
2
��
1%�ھ�
0
��
/&��z�
.
X�
-%��6�
,
-7
�
��
�%dl��
�
|�
�%ikZ�
�
8�
�%jn�
�
��
�%mo��
�
��
�%hx��
�
l�
�%qsJ�
�
(�
�%rv�
�
��
�%uw��
�
��
�%t|~�
�
\�
�%y{:�
�
�
�%z~��
�
��
�%}��
�
��
�%@�n�
�
L�
�%��*�
�
�
�%����
�
��
�%����
�
��
�%��^�
�
<�
�%���
�
��
�%����
�
��
�%����
�
p�
�%��N�

,�
~%��
�
}
��
|%����
{
��
z%����
y
`�
x%��>�
w
�
v%����
u
��
t%����
s
��
r%��r�
q
P�
p&��.�
o
�
m%7�
��
�%*.��
�
t�
�%-/R�
�
0�
�%(8�
�
��
�%13��
�
��
�%26��
�
d�
�%57B�
�
 �
�%4<��
�
��
�%9;��
�
��
�%:>v�
�
T�
�%=?2�
�
�
�% `��
�
��
�%AC��
�
��
�%BFf�
�
D�
�%EG"�
�
�
�%DL��
�
��
�%IK��
�
x�
�%JNV�
�
4�
�%MO�
�
��
�%HX��
�
��
�%QS��
�
h�
�%RVF�
�
$�
�%UW�
�
��
�%T\��
�
��
�%Y[z�
�
X�
�%Z^6�
�
�
�%]_��
�
��
�%Pp��
�
��
�%acj�
�
H�
�%bf&�
�
�
�%eg��7
��
.
����
-
l�
*
��J�
)
(�
(
���
'
��
&
����
%
��
$
��~�
!
\�

��:�

�

����

��

����

��
!��n�

L�
%
*�

�
%��

��
%��

��
%^�

<�
%	�


��
%
��

��

%
��
	
p�
%N�

,�
%
�

��
%��

��
%��


`�
%>�
�
�
�%��
�
��
�%��
�
��
�%r�
�
P�
�%0.�
�
�
�%!#��
�
��
�%"&��
�
��
�%%'b�
�
@�
�%$,�
�
��
�%)+��
7
��
k
����
j
d�
i
��B�
h
 �
g
����
f
��
e
����
d
��
c
��v�
b
T�
a
��2�
`
�
_
����
^
��
]
�ê�
\
��
[
��f�
Z
D�
X
��"�
W
�
V
����
U
��
T
�˚�
S
x�
R
��V�
Q
4�
P
���
O
��
N
����
M
��
L
�ӊ�
K
h�
J
��F�
I
$�
H
���
G
��
F
�ܾ�
E
��
D
��z�
C
X�
B
��6�
A
�
@
����
?
��
>
���
=
��
<
��j�
;
H�
:
��&�
9
�
8
����
7
��
6
���
5
|�
4
��Z�
3
8�
2
���
1
��
0
����
/7�
�
t|~�
�
\�
�
y{:�
�
�
�
z~��
�
��
�
}��
�
��
�
@�n�
�
L�
�
��*�
�
�
�
����
�
��
�
����
�
��
�
��^�
�
<�
�
���
�
��
�
����
�
��
�
����
�
p�
�
��N�
�
,�
�
��
�
�
��
�
����
�
��
�
����
�
`�
�
��>�
�
�
�
����
�
��
�
����
�
��
�
��r�
�
P�
�
��.�
�
�
}
����
|
��
{
����
z
��
y
��b�
x
@�
w
���
v
��
u
����
t
��
s
����
r
t�
q
��R�
p
0�
o
���
n
��
m
����
l7�
:>v
�
T
�
=?2
�

�
 `��
��
AC��
��
BFf�
D�
EG"�
�
DL��
�
��
�
IK��
�
x�
�
JNV�
�
4�
�
MO�
�
��
�
HX��
�
��
�
QS��
�
h�
�
RVF�
�
$�
�
UW�
�
��
�
T\��
�
��
�
Y[z�
�
X�
�
Z^6�
�
�
�
]_��
�
��
�
Pp��
�
��
�
acj�
�
H�
�
bf&�
�
�
�
eg��
�
��
�
dl��
�
|�
�
ikZ�
�
8�
�
jn�
�
��
�
mo��
�
��
�
hx��
�
l�
�
qsJ�
�
(�
�
rv�
�
��
�
uw��
�
�7
��n	,
L	+

*	*
	)
�(
�'
�&
�%
^$
<#
	"
�!

� 
�

�
p
N
,


�
�
�
�
`
>

�
�
�
�
r

P
0.


!#�	
�
"&�
�
%'b
@
$,
�
)+�

�
*.��
t�
-/R�
0�
(8�
��
13��
��
26��
d�
57B�
 �
4<�
�
�
�
9;�
�
�
[       }
      
g�       if content_type.is_empty() {
                if let Ok(s) = field.text().await {
                    text = s;
         
f� None => "".to_string(),
            };
            let mut data = Vec::new();
            let mut text = "".to_string();
     
e�       };
            let content_type = match field.content_type() {
                Some(s) => s.to_string(),
               
d�t file_name = match field.file_name() {
                Some(s) => s.to_string(),
                None => "".to_string(),
     
c�ile let Some(field) = mp.next_field().await.unwrap() {
            let name = field.name().unwrap().to_string();
            le
b�c fn map_parts(mp: Option<Multipart>) -> Vec<Part> {
    let mut result = Vec::new();
    if let Some(mut mp) = mp {
        wh
a�ue();
        result.insert(name.to_string(), value.to_string());
    }
    result
}

/// Get Vec of Parts from MultiPart.
asyn
`� String> {
    l[et mut result = BTreeMap::new();
    for cookie in cookies.list() {
        let (name, value) = cookie.name_val
_�tions for building ServerTrans.

/// Get BTreeMap of cookies from Cookies.
fn map_cookies(cookies: Cookies) -> BTreeMap<String,
^�;
    st.x.qy.sql = Arc::new(src);
    state.process(st).await;
}

/////////////////////////////////////////////
// Helper func
0]�r: String) {
    let mut st = ServerTrans::new();
    let src = format!("EXEC email.LogSendError({},{},'{}')", msg, retry, err)
\�e the database to reflect an error occurred sending an email.
async fn email_error(state: &SharedState, msg: u64, retry: i8, er
!#[� ServerTrans::new();
    st.x.qy.sql = Arc::new(format!("EXEC email.Sent({})", msg));
    state.process(st).await;
}

/// Updat
Z�
}

/// Update the database to reflect an email was sent.
async fn email_sent(state: &SharedState, msg: u64) {
    let mut st =
"&Y�ings
        .pool_config(PoolConfig::new().max_size(20))
 [       .build();

    let _result = sender.send(&email)?;
    Ok(())
X� // Configure expected authentication mechanism
        .authentication(vec![Mechanism::Plain])
        // Connection pool sett
%'W�elay(&server)?
        // Add credentials for authentication
        .credentials(Credentials::new(username, password))
       
V�)
        .singlepart(body)?;

    // Create TLS transport on port 587 with STARTTLS
    let sender = SmtpTransport::starttls_r
$,U�(body),
    };

    let email = Message::builder()
        .to(to.parse()?)
        .from(from.parse()?)
        .subject(title
T�Transport, Transport,
    };

    let body = match format {
        1 => SinglePart::html(body),
        _ => SinglePart::plain
)+S�ansport::smtp::{
            authentication::{Credentials, Mechanism},
            PoolConfig,
        },
        Message, Smtp
R�e, password): (String, String, String),
) -> Result<(), EmailError> {
    use lettre::{
        messagZ_blank href
$� | back| '">Back</a> | ' ELSE '' END | '
<a href=/Menu>Menu</a> 
| <a target=_blank href=/Menu>N
%'#� style="color:white;background:lightblue;padding:4px;">
' | CASE WHEN back != '' THEN '<a href="'
"�le>
   body{font-family:sans-serif;}
   body{ max-width:60em; }
</style>
</head>
<body>
<div
$,!�name="viewport" content="width=device-width, initial-scale=1">
<title>' | title | '</title>
<sty
 �e * 146097 
    + y * 365 
    + ( y + 3 ) / 4 - ( y + 99 ) / 100 + ( y + 399 ) / 400
    + d
ENDl
)+� 146097 is the number of the days in a 400 year cycle ( 400 * 365 + 97 leap years ).
  RETURN cycl
�lt days come from cycles, from years having at least 365 days, from leap years and finally d.
  --
*.�
  SET cycle = y / 400, y = y % 400 -- The Gregorian calendar repeats every 400 years.
 
  -- Resu
�DECLARE y int, d int, cycle int
  -- Extract y and d from yd.
  SET y = yd / 512, d = yd % 512 - 1
-/�ereZ days divisible by 4 are leap years, except if divisible by 100, except if divisible by 400.
  
�) ) )
  RETURN date.YearMonthDayToDays( date.YearMonthDay( year, month, day ) )
ENDssix + 1, LEN(s(@�st be 1..31 parsing date ' | htm.Attr(''|day)
  SET year = PARSEINT( SUBSTRING( s, ssix + 1, LEN(s
� SET day = PARSEINT( SUBSTRING( s, six+1, ssix - six - 1) )
  IF day < 1 OR day > 31 THROW 'Day mu
13� SUBSTRING( s, ssix, 1 ) = ' ' BREAK
    SET ssix = ssix + 1
  END
 
  DECLARE day int, year int
 
�  END
  DECLARE ssix int
  SET ssix = six+1
  WHILE true
  BEGIN
    IF ssix > LEN(s) BREAK
    IF
26�  BEGIN
    IF six > LEN(s) BREAK
    IF SUBSTRING( s, six, 1 ) = ' ' BREAK
    SET six = six + 1

�arsing date ' | htm.Attr(ms)
  DECLARE six int -- Index of first space
  SET six = 4
  WHILE true

57�'Nov' THEN 11
    WHEN ms = 'Dec' THEN 12
    ELSE 0
  END  
  IF month = 0 THROW 'Unknown month p
�7
    WHEN ms = 'Aug' THEN 8
[e::SinglePart,
        tr
*.Q�l using lettre.
fn send_email(
    (from, to, title, body, format): (String, String, String, String, i64),
    (server, usernam
P�for EmailError {
    fn from(e: lettre::transport::smtp::Error) -> Self {
        EmailError::Send(e)
    }
}

/// Send an emai
-/O�   fn from(e: lettre::error::Error) -> Self {
        EmailError::Lettre(e)
    }
}

impl From<lettre::transport::smtp::Error> 
N�re::address::AddressError) -> Self {
        EmailError::Address(e)
    }
}

impl From<lettre::error::Error> for EmailError {
 
(4M�or),
    Send(lettre::transport::smtp::Error),
}

impl From<lettre::address::AddressError> for EmailError {
    fn from(e: lett
L�num for send_email
#[derive(Debug)]
enum EmailError {
    Address(lettre::address::AddressError),
    Lettre(lettre::error::Err
13K�state, msg, retry, se.to_string()).await;
                    }
                },
            }
        }
    }
}

/// Error e
J�:Send([se) => {
                        let retry = if se.is_transient() { 1 } else { 0 };
                        email_error(&28I�                       email_error(&state, msg, 0, le.to_string()).await;
                    }
                    EmailError:
H�     email_error(&state, msg, 0, ae.to_string()).await;
                    }
                    EmailError::Lettre(le) => {
 
57G�nt(&state, msg).await,
                Err(e) => match e {
                    EmailError::Address(ae) => {
                   
F� account));
            let result = blocking_task.await.unwrap();
            match result {
                Ok(_) => email_se
69E� for (msg, email, account) in send_list {
            let blocking_task = tokio::task::spawn_blocking(move || send_email(email,:D�erver, username, password),
                        ));
                    }
                }
            }
        }
       
Z    WHEN ms = 'Sep' THEN 9
    WHEN ms = 'Oct' THEN 10
    WHEN ms = 
4<� ms = 'Apr' THEN 4
    WHEN ms = 'May' THEN 5
    WHEN ms = 'Jun' THEN 6
    WHEN ms = 'Jul' THEN 
� year ) THEN 366 ELSE 365 END
  END
  RETURN 512 * ( cycle * 400 + year ) + day + 1
ENDIsLeapYear(
9;�400
  
  IF day < 0
  BEGIN
    SET year = year - 1
    SET day = day + CASE WHEN date.IsLeapYear(
� 1, 4 => 1, 5 => 2 ..
  SET day = day - ( year + 3 ) / 4 + ( year + 99 ) / 100 - ( year + 399 ) / 
:>
�... not 300, 400, 404 ... not 500.
  -- Adjustment as function of y is 0 => 0, 1 => 1, 2 =>1, 3 =>
�just day to allow for leap years.
  -- Leap years are 0, 4, 8, 12 ... 96, not 100, 104 ... not 200
=?�146097
  SET year = days / 365
  SET day = days - year * 365 -- Same as days % 365
  -- Need to ad

� 97 leap years )
  SET cycle = days / 146097
  SET days = days - 146097 * cycle -- Same as days % 
8D	�ar int, day int, cycle int
  -- 146097 is the number of
fd93�uid�1���86�d2DT]web.Main()�/SetPassword��k�1��pw�pomegranatepeach246���毕kwSZC^�web.Main()�/Execute���sql�DROP FN login.getx��hpw�B0x46f65dd62c4b05e1[_�5071dc5a0e914297f7a0aaced2e0875d84018a27640d4574�uid�1��渠�stb05e1
Pweb.Main()�/Execute���sql�#CREATE FN logwyCin.getx() AS BEGIN END���渖�b� FN log
M �
t�pe : the datatype of an existing column is changed. The only changes allowed are between the different sizes of integers, betwe
�The actions are as follows:
<ul>
<li>ADD Colname Coltype : a new column is added to the table.</li>
<li>MODIFY Colname Colty

�s when a value is stored in column of a table.
<h3>ALTER TABLE</h3>
<p>ALTER TABLE schema.tablename action1, action2 .... <p>
�etrieve. Local float and integer variables and arithmetic operations are all 64 bits (8 bytes). The lower precision only applie
�ed in a special system table if the length exceeds the reserved inline storage, meaning they are slightly slower to store and r

�or numbers, a zero length string for string and binary, and false for the boolean type. The variable length data types are stor
� bytes stored inline.</li>
<li>bool : boolean ( true or false ).</li>
</ul>

<p>Each data type has a default value : zero f
��r of bytes stored inline.<%se</h3><p>Has tables and functions for displa
_�ying, editing arbitrary tables in the database.
<h3>date</h3><p>Has functions for manipulating dates - conversions between DayZX`�s ( from year 0 ), Year-Day, Year-Month-Day and string.
' 
EXEC web.Trailer()
END��hpw�B0x46f65dd62c4b05e15071dc5a0e914297f7[a]a0aaced2e0875d84018a27640d4574�uid�1��渢Eood string.
' 
EXEC web.Trailer()
END��hpw�B0x46f65dd62c4b05e15071dc5a0e914297f7
z�GIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCookie( 'hpw', '' | hpw, '' )
      RETURN result

{�    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
  DECLARE hpwf string SET hpwf = web.Cookie('hpw')

  I
^\|�F uids != ''
  BEGIN
    DECLARE uid int SET uid = PARSEINT(uids)
    DECLARE hpwt binary SET hpwt = HashedPassword FROM log
}�in.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXEC web.Head( 'Login' )
  SELECT '<form method=post>%/li>
<li>PARSEFLOAT( s string ) : parses a floating point number from s.</li>
K B�
<li>EXCEPTION() returns a string with any error that occurred during an EXECUTE statement.</li>
<li>REPACKFILE(k,schema,tabl
C�e) : A file is re-packed to free up pages. The result is an integer, the number of pages freed, or -1 if the table or index doe
><D�s not exist. k=0 => main file, k=1.. => an index, k in -4..-1 => byte storage files. 
<li>VERIFYDB() : verifies the logical pa
E�ge structure of the database. , the result is a string. Note: this needs exclusive access to the database to give consistent re
A=F�sults, as it can observe update activity in shared data structures. Calling it while another process is updating the database m
G�ay result in an exception.
<li>See the web schema for functions that can be used to access http requests.</li>
</ul>
<h3>Con
B@H�versions</h3>
<p>To be decided. Currently the only implicit conversion is to string for ope%rands of string concatenation.
<h2
I�>Indexes
<h3>CREATE INDEX</h3><p>CREATE INDEX indexname ON schema.tablename( Colname1, Colname2 ... )<p>Creates a new index. I
G?J�ndexes allow efficient access to rows other than by Id values. 
<p>For example, <br>CREATE INDEX ByCust ON dbo.Order(Cust) 
<
K�br>creates an index allowing the orders associated with a particular customer to be efficiently retrieved without scanning the 
FDL�entire order table.
<h2>Drop</h2>
<h3>DROP object-type object-name</h3><p>object-type can be any one of SCHEMA,TABLE or FUNCT
M�ION.
<p>The specified object is removed from the database. In the case of a SCHEMA, all objects in the SCHEMA are also removed
IEN�. In the case of TABLE, all the rows in the table are also removed.
<h3>DROP INDEX</h3><p>DROP INDEX indexname ON schema.table
O�name<p>The specified index is removed from the database.
<h2>Comments</h2>
<p>There are two kinds of comments. Single line co
JHP%�mments start with -- and extend to the end of the line. Delimited comments start with /* and are terminated by */. Comments hav
Q�e no effect, they are simply to help document the code.
<h2>Comparison with other SQL implementations</h2><p>There is a singleSCR� variable length string datatype "string" for unicode strings ( equivalent to nvarchar(max) in MSSQL ), no fixed length strings
S�.
<p>Similarly there is a single binary datatype "binary" equivalent to varbinary(max) in MSSQL.
<p>Every table automatically
NLT� gets an integer Id field ( it does not have to be specified ), which is automatically filled in if not specified in an INSERT 
U�statement. Id values must be unique ( an attempt to insert or assign a duplicate Id will raise an exception ). 
<p>WHERE condi
QMV�tion is not optional in UPDATE and DELETE statements - WHERE true can be used if you really want to UPDATE or DELETE all rows. 
W�This is a "safety" feature.
<p>Local v%ariables cannot be assigned with SELECT, instead SET or FOR is used, can be FROM a table
RPX�, e.g.
<p>DECLARE s string SET s = Name FROM sys.Schema WHERE Id = schema
<p>No cursors ( use FOR instead ).
<p>Local variab
Y�les cannot be assigned in a DECLARE statement.
<p>No default schemas. Schema of tables and functions must always be stated expWOZ�licitly.
<p>No nulls. Columns are initialised to default a value if not specified by INSERT, or when new columns are added to 
[�a table by ALTER TABLE.
<p>No triggers. No joins. No outer references.
<h2>Guide to the pre-defined schemas</h2>
<h3>sys</h3
VT\�>
<p>Has core system tables for language objects and related functions.
<h3>web</h3>
<p>Has the function that handles web re
]�quests ( web.main ) and other functions related to handling web requests.
<h3>handler</h3>
<p>Has handler functions, one for YU^�each web page.
<h3>htm</h3>
<p>Has functions related to encoding html.
<h3>browQ�(�ropped before using ALTER TABLE. They can be added again afterwards.
</ul>
<h2>Data manipulation statements</h2>
<h3>INSERT<
�the column is removed from the table.</li>
</ul>
<p>Note: currently, any indexes that have been added to a table need to be d

�etween float and double, and modification of the number of bytes stored inline for binary and string.</li>
<li>DROP Colname : 
�oltype : the datatype of an existing column is changed. The only changes allowed are between the different sizes of integers, b
� <p>The actions are as follows:
<ul>
<li>ADD Colname Coltype : a new column is added to the table.</li>
<li>MODIFY Colname C
�plies when a value is stored in column of a table.
<h3>ALTER TABLE</h3>
<p>ALTER TABLE schema.tablename action1, action2 ....
�nd retrieve. Local float and integer variables and arithmetic operations are all 64 bits (8 bytes). The lower precision only ap
�stored in a special systemQ table if the length exceeds the reserved inline storage, meaning they are slightly slower to store a
�ro for numbers, a zero length string for string and binary, and false for the boolean type. The variable length data types are 
�r of bytes stored inline.</li>
<li>bool : boolean ( true or false ).</li>
</ul>

<p>Each data type has a default value : ze
	�umber of bytes stored inline.</li>
<li>binary(n) : a variable length string of bytes. n (optional, default 15) specifies numbe
� bytes respectively.</li>
<li>string(n) : a variable length string of unicode characters. n (optional, default 15) specifies n

�nt(n), 1 <= n <= 8. Signed n-byte integer. Default is 8 bytes.</li>
<li>float, double : floating point numbers of size 4 and 8
�n Id column, which auto-increments on INSERT ( if no explicit value is supplied).<p>The data types are as follows:
<ul>
<li>i

�tablename ( Colname1 Coltype1, Colname2 Coltype2, ... )
<p>Creates aQ new base table. Every base table is automatically given a
� to organise database objects into logical categories.
<h2>Table definition</h2>
<h3>CREATE TABLE</h3><p>CREATE TABLE schema.�CREATE SCHEMA name
<p>Creates a new schema. Every database object (Table, Function) has an associated schema. Schemas are used

�yntax is described, optional elements are enclosed in square brackets.
<h2>Schema definition</h2>
<h3>CREATE SCHEMA</h3>
<p>�EC web.Head('Manual')
SELECT '<h1>Manual</h1>
<p>This manual describes the various SQL statements that are available. Where s
�web.Main()�/EditFunc��n�/Manual�s�handler��def�4�() AS BEGIN

   DECLARE cu int SET cu = login.getx(0) IF cu = 0 RETURN

EX
ir-Month-Day and string.
' 
EXEC web.Trailer()
ENDanipulating dates - conversions between Days ( from year 0 ), Year-Day, Yea
	�n the database.
<h3>date</h3><p>Has functions for manipulating dates - conversions between Days ( from year 0 )Pient for further processing and eventual display. 
<h3>UPDATE</h3><p>UPDATE schema.tablename SET Colname1 = Exp1, Colnam28$�as a stand-alone statement, the results are passed to the code that invoked the batch, and may be displayed to a user or sent t
#� expression, the order is reversed ( descending order ).
<p>The SELECT expressions can be given names using AS.
<p>When used 
57"�puted, based on the list of expressions and the WHERE and ORDER BY clauses.
<p>If the keyword DESC is placed after an ORDER BY
!�alls ).
<h3>SELECT</h3><p>SELECT expressions FROM source-table [WHERE bool-exp ] [ORDER BY expressions]
<p>A new table is com
69 �cified values are inserted into the table. The values may be any expressions ( possibly involving local variables or function c:�/h3>
<p>INSERT INTO schema.tablename ( Colname1, Colname2 ... ) VALUES ( Val1, Val2... ) [,] ( Val3, Val4 ...) ...
<p>The spe
Trror message being set to the string.
<h3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, par
h�ion string). If any exception occurs, the database is left unchanged.
<h3>THROW</h3>
<p>THROW string-expression 
<p>An excep
g� of a function or batch. EXCEPTION() can be used to obtain a string describing the most recent exception (and clears the except
	f�<p>The stored function is called with the supplied parameters.
<h3>Exceptions</h3><p>An exception will terminate the execution
e�eturn value ) is created, which can later be called by an EXEC statement.
<h3>EXEC</h3><p>EXEC schema.name( exp1, exp2 ... )


d�3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, param2 type2... ) AS BEGIN statements END
<p>A stored function ( no r
c�a prior batch before being used. A GO statement may be used to signify the start of a new batch.
<h2>Stored Functions</h2>
<h

b�he result ( which should be a list of SQL statements ).
<p>Note thatT �
tp�ssion, which has syntax CASE WHEN bool1 THEN exp1 WHEN bool2 THEN exp2 .... ELSE exp END - the result is the expression associa
o�lumns from tables. These may be combined using operators, stored functions, pre-defined functions. There is also the CASE expre

n�error.

<h2>Expressions</h2>
<p>Expressions are composed from literals, named local variables, local parameters and named co
m�3>CHECK</h3>
<p>CHECK schema.name
<p>Checks that a function compiles ok. EXCEPTION() should be used to check if there is any 
l�d function with no return value.
<p>The pre-defined local variable result can be assigned instead to set the return value.
<h
k�h3>RETURN</h3>
<p>RETURN expression
<p>Returns a value from a stored function. RETURN with no expression returns from a store
j�am2 type2... ) RETURNS type AS BEGIN statements END
<p>A stored function is created which can later be used in expressions.
<
i�tion is raised, with the ePecuted for each row from 
*.,�ition. If there is no such row, the values of the local variables remain unchanged.
<h3>FOR</h3><p>FOR name1 = exp1, name2 = e
+�l variables are assigned. If the FROM clause is specified, the values are taken from a table row which satisfies the WHERE cond
-/*�ountered if there is a loop ).
<h3>SET</h3>
<p>SET name1 = exp1, name2 = exp2 .... [ FROM table ] [ WHERE bool-exp ]
<p>Loca
)�red with the specified types. The variables are initialised to default values ( but only once, not each time the DECLARE is enc
(4(�laration and assignment statements</h2>
<h3>DECLARE</h3><p>DECLARE name1 type1, name2 type2 ....
<p>Local variables are decla
'�OM schema.tablename WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are removed.
<h2>Local variable dec
13&�e2 = Exp2 .... WHERE bool-exp
<p>Rows in the table which satisfy the WHERE condition are updated.
<h3>DELETE</h3><p>DELETE FR
%�o a clS s binary, start int, len
*.~�/li>
<li>BINLEN( s binary ) : returns the length of s, which must be a binary expression.</li> 
<li>SUBSTRING( s string, star
}� * c.
<h3>Pre-defined functions</h3>
<ul>
<li>LEN( s string ) : returns the length of s, which must be a string expression.<
-/|� operator  ( result is true if either arg is true )</li>
</ul>
<p>Brackets can be used where necessary, for example ( a + b )
{�false, false if arg is true ).</li>
<li>AND : boolean operator ( result is true if both args are true )</li>
<li>OR : boolean
(	z�necessary.</li>
<li>= != > < >= <= : comparison of any data type.</li>
<li>NOT : boolean negation ( result is true if arg is 
y�ers.</li>
<li>| : concatenation of string/binary values. The second expression is automatically converted to string/binary if 
13x�on and remainder (after division) of numbers. Remainder only applies to integers.</li>
<li>+ - : addition, subtraction of numb
w�, and SNote: this needs exclusive access to the database to give consistent
��does not exist. k=0 => main file, k=1.. => an index, k in -4..-1 => byte storage files. 
<li>VERIFYDB() : verifies the logical
%'��able) : A file is re-packed to free up pages. The result is an integer, the number of pages freed, or -1 if the table or index 
��li>
<li>EXCEPTION() returns a string with any error that occurred during an EXECUTE statement.</li>
<li>REPACKFILE(k,schema,t
$,��li>PARSEINT( s string ) : parses an integer from s.</li>
<li>PARSEFLOAT( s string ) : parses a floating point number from s.</
��ccurrence of pat is replaced with sub.</li>
<li>LASTID() : returns the last Id value allocated by an INSERT statement.</li>
<
)+�� int ) : binary version of SUBSTRING.</li>
<li>REPLACE( s string, pat string, sub string ) : returns a copy of s where every o
�t int, len int ) : returns the substring of s from start (1-based) length len.</li>
<li>BINSUBSTRING(Stable.
<h2>Drop</h2>
<h3>DROP object-type object-name</h3><p>object-type can be any one of SCHEMA,TABLE or FU
��
<br>creates an index allowing the orders associated with a particular customer to be efficiently retrieved without scanning t
��. Indexes allow efficient access to rows other than by Id values. 
<p>For example, <br>CREATE INDEX ByCust ON dbo.Order(Cust) 
0��<h2>Indexes
<h3>CREATE INDEX</h3><p>CREATE INDEX indexname ON schema.tablename( Colname1, Colname2 ... )<p>Creates a new index
��Conversions</h3>
<p>To be decided. Currently the only implicit conversion is to string for operands of string concatenation.

!#��e may result in an exception.
<li>See the web schema for functions that can be used to access http requests.</li>
</ul>
<h3>
�� results, as it can observe update activity in shared data structures. Calling it while another process is updating the databas
"&�� page structure of the database. , the result is a string. Sfied in an INSE
��ngs.
<p>Similarly there is a single binary datatype "binary" equivalent to varbinary(max) in MSSQL.
<p>Every table automatica
��gle variable length string datatype "string" for unicode strings ( equivalent to nvarchar(max) in MSSQL ), no fixed length stri
��have no effect, they are simply to help document the code.
<h2>Comparison with other SQL implementations</h2><p>There is a sin
�� comments start with -- and extend to the end of the line. Delimited comments start with /* and are terminated by */. Comments 
��blename<p>The specified index is removed from the database.
<h2>Comments</h2>
<p>There are two kinds of comments. Single line
��ved. In the case of TABLE, all the rows in the table are also removed.
<h3>DROP INDEX</h3><p>DROP INDEX indexname ON schema.ta
��NCTION.
<p>The specified object is removed from the database. In the case of a SCHEMA, all objects in the SCHEMA are also remo
��he entire order Snces.
<h2>Guide to the pre-defined schemas</h2>
<h3>sys<
��explicitly.
<p>No nulls. Columns are initialised to default a value if not specified by INSERT, or when new columns are added ��iables cannot be assigned in a DECLARE statement.
<p>No default schemas. Schema of tables and functions must always be stated 
��ble, e.g.
<p>DECLARE s string SET s = Name FROM sys.Schema WHERE Id = schema
<p>No cursors ( use FOR instead ).
<p>Local var
��s. This is a "safety" feature.
<p>Local variables cannot be assigned with SELECT, instead SET or FOR is used, can be FROM a ta
��ndition is not optional in UPDATE and DELETE statements - WHERE true can be used if you really want to UPDATE or DELETE all row
��RT statement. Id values must be unique ( an attempt to insert or assign a duplicate Id will raise an exception ). 
<p>WHERE co
��lly gets an integer Id field ( it does not have to be specified ), which is automatically filled in if not speciW0��AND HashedPassword = hpw
    IF result > 0
    BEGIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetC
��ookie( 'hpw', '' | hpw, '' )
      RETURN result
    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
  DECL
��LARE hpwt binary SET hpwt = HashedPassword FROM login.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXEC 
��><br><input type=submit value=Login></form>'
  EXEC web.Trailer()

  RETURN 0
END���渘`�kput type=password name=password
��web.Head( 'Login' )
  SELECT '<form method=post>User Name <input name=username><br>Password <input type=password name=password
��ARE hpwf string SET hpwf = web.Cookie('hpw')

  IF uids != ''
  BEGIN
    DECLARE uid int SET uid = PARSEINT(uids)
    DEC
��ld be changed.
  */

  IF username != ''
  BEGIN
    DECLARE password string SET password = web.Form('password')
    SET 
��lt = Id FROM login.user WHM/li>
<li>binary(n) : a variable length string of bytes. n (optional, default 15) specifies number of
��es respectively.</li>
<li>string(n) : a variable length string of unicode characters. n (optional, default 15) specifies numbe
��), 1 <= n <= 8. Signed n-byte integer. Default is 8 bytes.</li>
<li>float, double : floating point numbers of size 4 and 8 byt
	�� column, which auto-increments on INSERT ( if no explicit value is supplied).<p>The data types are as follows:
<ul>
<li>int(n
��ename ( Colname1 Coltype1, Colname2 Coltype2, ... )
<p>Creates a new base table. Every base table is automatically given an Id

��organise database objects into logical categories.
<h2>Table definition</h2>
<h3>CREATE TABLE</h3><p>CREATE TABLE schema.tabl
��TE SCHEMA name
<p>Creates a new schema. Every database object (Table, Function) has an associated schema. Schemas are used to 

��x is described, optional elements are enclosed in square brackets.
<PREAK</h3><p>BREAK
<p>Execution of the enclosing FOR or WHILE loop i
3�as bool-exp evaluates to true. See also BREAK.
<h3>GOTO</h3><p>GOTO label
<p>Control is transferred to the labelled statement
%'2�atement2 ( if specified ) is executed.
<h3>WHILE</h3><p>WHILE bool-exp Statement
<p>Statement is repeatedly executed as long 
1�/h3>
<p>IF bool-exp THEN Statement1 [ ELSE Statement2 ]
<p>If bool-exp evaluates to true Statement1 is executed, otherwise St
$,0�ted in order. A BEGIN..END compound statement can be used whenever a single statement is allowed.
<h3>IF .. THEN ... ELSE ...<
/�ws.
<h2>Control flow statements</h2>
<h3>BEGIN .. END</h3><p>BEGIN Statement1 Statement2 ... END
<p>The statements are execu
)+.�the table which satisfies the WHERE condition, with the named local variables being assigned expressions which depend on the ro
-�xp2 .... FROM table [ WHERE bool-exp ] [ORDER BY expressions] Statement
<p>Statement is repeatedly exPor batch. EXCEPTION() can be used to obtain a string describing the most recent exception (and clears the excep
:�
<p>The stored function is called with the supplied parameters.
<h3>Exceptions</h3><p>An exception will terminate the executio
9�return value ) is created, which can later be called by an EXEC statement.
<h3>EXEC</h3><p>EXEC schema.name( exp1, exp2 ... )

08�h3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, param2 type2... ) AS BEGIN statements END
<p>A stored function ( no 
7� a prior batch before being used. A GO statement may be used to signify the start of a new batch.
<h2>Stored Functions</h2>
<
!#6�the result ( which should be a list of SQL statements ).
<p>Note that database objects ( tables, function ) must be created in
5�s terminated.
<h2>Batch execution</h2><p>EXECUTE ( string-expression )
<p>Evaluates the string expression, and then executes 
"&4�. A label consists of a name followed by a colon (:)
<h3>BPo the CASE expr
B� error.

<h2>Expressions</h2>
<p>Expressions are composed from literals, named local variables, local parameters and named c
A�h3>CHECK</h3>
<p>CHECK schema.name
<p>Checks that a function compiles ok. EXCEPTION() should be used to check if there is any
@�ed function with no return value.
<p>The pre-defined local variable result can be assigned instead to set the return value.
<
?�<h3>RETURN</h3>
<p>RETURN expression
<p>Returns a value from a stored function. RETURN with no expression returns from a stor
>�ram2 type2... ) RETURNS type AS BEGIN statements END
<p>A stored function is created which can later be used in expressions.

=�ption is raised, with the error message being set to the string.
<h3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, pa
<�tion string). If any exception occurs, the database is left unchanged.
<h3>THROW</h3>
<p>THROW string-expression 
<p>An exce
;�n of a function PThe operators ( all binary, except for - which can be unar
I�, and are written without the square brackets, often in upper case only by convention ). The square brackets can be omitted if 
H� are enclosed in square brackets and are case sensitive ( although language keywords such as CREATE SELECT are case insensitive
G� hexadecimal preceded by 0x. Integers are a list of digits (0-9). The bool literals are true and false.
<h3>Names</h3><p>Names
F�gle quotes. If a single quote is needed in a string literal, it is written as two single quotes. Binary literals are written in
E�ated with the first bool expression which evaluates to true.
<h3>Literals</h3>
<p>String literals are written enclosed in sin
D�ession, which has syntax CASE WHEN bool1 THEN exp1 WHEN bool2 THEN exp2 .... ELSE exp END - the result is the expression associ
C�olumns from tables. These may be combined using operators, stored functions, pre-defined functions. There is alsPnctions</h3>
<ul>
<li>LEN( s string ) : returns the length of s, which must be a string expression.
P�n operator  ( result is true if either arg is true )</li>
</ul>
<p>Brackets can be used where necessary, for example ( a + b 
O� false, false if arg is true ).</li>
<li>AND : boolean operator ( result is true if both args are true )</li>
<li>OR : boolea
	N� necessary.</li>
<li>= != > < >= <= : comparison of any data type.</li>
<li>NOT : boolean negation ( result is true if arg is
M�bers.</li>
<li>| : concatenation of string/binary values. The second expression is automatically converted to string/binary if

L�ion and remainder (after division) of numbers. Remainder only applies to integers.</li>
<li>+ - : addition, subtraction of num
K�y, and NOT which is only unary ) in order of precedence, high to low, are as follows:
<ul>
<li>*  / % : multiplication, divis

J�the name consists of only letters (A-Z,a-z).
<h3>Operators</h3>
<p>P �
tX�table) : A file is re-packed to free up pages. The result is an integer, the number of pages freed, or -1 if the table or index
W�/li>
<li>EXCEPTION() returns a string with any error that occurred during an EXECUTE statement.</li>
<li>REPACKFILE(k,schema,

V�<li>PARSEINT( s string ) : parses an integer from s.</li>
<li>PARSEFLOAT( s string ) : parses a floating point number from s.<
U�occurrence of pat is replaced with sub.</li>
<li>LASTID() : returns the last Id value allocated by an INSERT statement.</li>

T�n int ) : binary version of SUBSTRING.</li>
<li>REPLACE( s string, pat string, sub string ) : returns a copy of s where every 
S�rt int, len int ) : returns the substring of s from start (1-based) length len.</li>
<li>BINSUBSTRING( s binary, start int, le
R�</li>
<li>BINLEN( s binary ) : returns the length of s, which must be a binary expression.</li> 
<li>SUBSTRING( s string, sta
Q�) * c.
<h3>Pre-defined fuOexes allow efficient access to rows other than by Id values. 
<p>For example, <br>CREATE INDEX ByCust ON dbo.Order(Cust)28^�
<h2>Indexes
<h3>CREATE INDEX</h3><p>CREATE INDEX indexname ON schema.tablename( Colname1, Colname2 ... )<p>Creates a new inde
]�>Conversions</h3>
<p>To be decided. Currently the only implicit conversion is to string for operands of string concatenation.

57\�se may result in an exception.
<li>See the web schema for functions that can be used to access http requests.</li>
</ul>
<h3
[�t results, as it can observe update activity in shared data structures. Calling it while another process is updating the databa
69Z�l page structure of the database. , the result is a string. Note: this needs exclusive access to the database to give consisten:Y� does not exist. k=0 => main file, k=1.. => an index, k in -4..-1 => byte storage files. 
<li>VERIFYDB() : verifies the logica
OQL ), no fixed length str
*.f� have no effect, they are simply to help document the code.
<h2>Comparison with other SQL implementations</h2><p>There is a si
e�e comments start with -- and extend to the end of the line. Delimited comments start with /* and are terminated by */. Comments
-/d�ablename<p>The specified index is removed from the database.
<h2>Comments</h2>
<p>There are two kinds of comments. Single lin
c�oved. In the case of TABLE, all the rows in the table are also removed.
<h3>DROP INDEX</h3><p>DROP INDEX indexname ON schema.t
(4b�UNCTION.
<p>The specified object is removed from the database. In the case of a SCHEMA, all objects in the SCHEMA are also rem
a�the entire order table.
<h2>Drop</h2>
<h3>DROP object-type object-name</h3><p>object-type can be any one of SCHEMA,TABLE or F
13`� 
<br>creates an index allowing the orders associated with a particular customer to be efficiently retrieved without scanning 
_�x. IndOefault schemas. Schema of tables and functions must always be stated
m�able, e.g.
<p>DECLARE s string SET s = Name FROM sys.Schema WHERE Id = schema
<p>No cursors ( use FOR instead ).
<p>Local va
%'l�ws. This is a "safety" feature.
<p>Local variables cannot be assigned with SELECT, instead SET or FOR is used, can be FROM a t
k�ondition is not optional in UPDATE and DELETE statements - WHERE true can be used if you really want to UPDATE or DELETE all ro
$,j�ERT statement. Id values must be unique ( an attempt to insert or assign a duplicate Id will raise an exception ). 
<p>WHERE c
i�ally gets an integer Id field ( it does not have to be specified ), which is automatically filled in if not specified in an INS
)+h�ings.
<p>Similarly there is a single binary datatype "binary" equivalent to varbinary(max) in MSSQL.
<p>Every table automatic
g�ngle variable length string datatype "string" for unicode strings ( equivalent to nvarchar(max) in MSSOr 0 ), Year-Day, Year-Month-Day and string.
' 
EXEC web.Trailer()
END���渝'? dates - conversions between
t�splaying, editing arbitrary tables in the database.
<h3>date</h3><p>Has functions for manipulating dates - conversions between
s�for each web page.
<h3>htm</h3>
<p>Has functions related to encoding html.
<h3>browse</h3><p>Has tables and functions for di
0r�b requests ( web.main ) and other functions related to handling web requests.
<h3>handler</h3>
<p>Has handler functions, one 
q�</h3>
<p>Has core system tables for language objects and related functions.
<h3>web</h3>
<p>Has the function that handles we
!#p� to a table by ALTER TABLE.
<p>No triggers. No joins. No outer references.
<h2>Guide to the pre-defined schemas</h2>
<h3>sys
o� explicitly.
<p>No nulls. Columns are initialised to default a value if not specified by INSERT, or when new columns are added
"&n�riables cannot be assigned in a DECLARE statement.
<p>No dO method=post>Us
|�F uids != ''
  BEGIN
    DECLARE uid int SET uid = PARSEINT(uids)
    DECLARE hpwt binary SET hpwt = HashedPassword FROM log
{�    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
  DECLARE hpwf string SET hpwf = web.Cookie('hpw')

  I
z�GIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.SetCookie( 'hpw', '' | hpw, '' )
      RETURN result

y�h( password|result )
    SET result = Id FROM login.user WHERE Id = result AND HashedPassword = hpw
    IF result > 0
    BE
x�d = web.Form('password')
    SET result = Id FROM login.user WHERE Name = username
    DECLARE hpw binary SET hpw = login.has
w�ld be changed.
  */
  -- RETURN 1 -- Login disabled.

  IF username != ''
  BEGIN
    DECLARE password string SET passwor
v�ine below enable Login after Login password has been setup for some user.
     In addition, the salt string in login.Hash shou
u� Days ( from yeaOssword')
    SET result = Id FROM login.user WHERE Name =
��
     In addition, the salt string in login.Hash should be changed.
  */
  -- RETURN 1 -- Login disabled.

  IF username !=
��in is initially disabled. Remove or comment out the line below enable Login after Login password has been setup for some user.

��ed in user. Note: role is not yet checked */

  DECLARE username string SET username = web.Form('username')

  /*
     Log
��web.Main()�/EditFunc��b1�/ShowSchema?s=login�n�get�s�login��def��( role int ) RETURNS int AS
BEGIN
  /* Get the current logg
EC web.Trailer()

  RETURN 0
ENDassword <input type=password name=password><br><input type=submit value=Login></form>'
  EXE
~�er Name <input name=username><br>Password <input type=password name=password><br><input type=submit value=Login></form>'
  EXE
}�in.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXEC web.Head( 'Login' )
  SELECT '<formS �
bq�ted with the first bool expression which evaluates to true.
<h3>Literals</h3>
<p>String literals are written enclosed in sing
r�le quotes. If a single quote is needed in a string literal, it is written as two single quotes. Binary literals are written in 
t�are enclosed in square brackets and are case sensitive ( although language keywords such as CREATE SELECT are case insensitive,
v�he name consists of only letters (A-Z,a-z).
<h3>Operators</h3>
<p>The operators ( all binary, except for - which can be unary
u� and are written without the square brackets, often in upper case only by convention ). The square brackets can be omitted if t
s�hexadecimal preceded by 0x. Integers are a list of digits (0-9). The bool literals are true and false.
<h3>Names</h3><p>Names 
x�on and remainder (after division) of numbers. Remainder only applies to integers.</li>
<li>+ - : addition, subtraction of numb
y�ers.</li>
<li>| : concateSnation of string/binary values. The second expression is automatically converted to string/binary if 
1w�, and NOT which is only unary ) in order of precedence, high to low, are as follows:
<ul>
<li>*  / % : multiplication, divisi��Days ( from year 0 ), Year-Day, Year-Month-Day and string.
' 
EXEC web.Trailer()
END���渜��~ dates - conversions between ��playing, editing arbitrary tables in the database.
<h3>date</h3><p>Has functions for manipulating dates - conversions between 
��or each web page.
<h3>htm</h3>
<p>Has functions related to encoding html.
<h3>browse</h3><p>Has tables and functions for dis

�� requests ( web.main ) and other functions related to handling web requests.
<h3>handler</h3>
<p>Has handler functions, one f
��/h3>
<p>Has core system tables for language objects and related functions.
<h3>web</h3>
<p>Has the function that handles web

��to a table by ALTER TABLE.
<p>No triggers. No joins. No outer refereMh2>Schema definition</h2>
<h3>CREATE SCHEMA</h3>
<p>CREA
��eb.Head('Manual')
SELECT '<h1>Manual</h1>
<p>This manual describes the various SQL statements that are available. Where synta
��web.Main()�/EditFunc��n�/Manual�s�handler��def�4�() AS BEGIN

DECLARE cu int SET cu = login.get(0) IF cu = 0 RETURN

EXEC w
�anth-Day and string.
' 
EXEC web.Trailer()
ENDanipulating dates - conversions between Days ( from year 0 ), Year-Day, Year-Mo
��e database.
<h3>date</h3><p>Has functions for manipulating dates - conversions between Days ( from year 0 ), Year-Day, Year-Mo
�� functions related to encoding html.
<h3>browse</h3><p>Has tables and functions for displaying, editing arbitrary tables in th
��ons related to handling web requests.
<h3>handler</h3>
<p>Has handler functions, one for each web page.
<h3>htm</h3>
<p>Has
��guage objects and related functions.
<h3>web</h3>
<p>Has the function that handles web requests ( web.main ) aMnd other functi
��ers. No joins. No outer references.
<h2>Guide to the pre-defined schemas</h2>
<h3>sys</h3>
<p>Has core system tables for lan
��nitialised to default a value if not specified by INSERT, or when new columns are added to a table by ALTER TABLE.
<p>No trigg
��statement.
<p>No default schemas. Schema of tables and functions must always be stated explicitly.
<p>No nulls. Columns are i
��Name FROM sys.Schema WHERE Id = schema
<p>No cursors ( use FOR instead ).
<p>Local variables cannot be assigned in a DECLARE 
��l variables cannot be assigned with SELECT, instead SET or FOR is used, can be FROM a table, e.g.
<p>DECLARE s string SET s = 
��ELETE statements - WHERE true can be used if you really want to UPDATE or DELETE all rows. This is a "safety" feature.
<p>Loca
��( an attempt to insert or assign a duplicate Id will raise an exception ). 
<p>WHERE condition is not optional in UPDATE and D
��not have to be sMpecified ), which is automatically filled in if not specified in an INSERT statement. Id values must be unique 
��nary datatype "binary" equivalent to varbinary(max) in MSSQL.
<p>Every table automatically gets an integer Id field ( it does 
��ring" for unicode strings ( equivalent to nvarchar(max) in MSSQL ), no fixed length strings.
<p>Similarly there is a single bi
0�� document the code.
<h2>Comparison with other SQL implementations</h2><p>There is a single variable length string datatype "st
��he end of the line. Delimited comments start with /* and are terminated by */. Comments have no effect, they are simply to help
!#��d from the database.
<h2>Comments</h2>
<p>There are two kinds of comments. Single line comments start with -- and extend to t
�� in the table are also removed.
<h3>DROP INDEX</h3><p>DROP INDEX indexname ON schema.tablename<p>The specified index is remove
"&��oved from the database. In the case of a SCHEMA, all objectMs in the SCHEMA are also removed. In the case of TABLE, all the rows
��<h3>DROP object-type object-name</h3><p>object-type can be any one of SCHEMA,TABLE or FUNCTION.
<p>The specified object is rem
%'��ers associated with a particular customer to be efficiently retrieved without scanning the entire order table.
<h2>Drop</h2>

��s other than by Id values. 
<p>For example, <br>CREATE INDEX ByCust ON dbo.Order(Cust) 
<br>creates an index allowing the ord
$,��EATE INDEX indexname ON schema.tablename( Colname1, Colname2 ... )<p>Creates a new index. Indexes allow efficient access to row
��rently the only implicit conversion is to string for operands of string concatenation.
<h2>Indexes
<h3>CREATE INDEX</h3><p>CR
)+��the web schema for functions that can be used to access http requests.</li>
</ul>
<h3>Conversions</h3>
<p>To be decided. Cur
��vity in shared data structures. Calling it while another process is updating the database may result iMn an exception.
<li>See 
*.��result is a string. Note: this needs exclusive access to the database to give consistent results, as it can observe update acti
�� => an index, k in -4..-1 => byte storage files. 
<li>VERIFYDB() : verifies the logical page structure of the database. , the 
-/��pages. The result is an integer, the number of pages freed, or -1 if the table or index does not exist. k=0 => main file, k=1..
��ith any error that occurred during an EXECUTE statement.</li>
<li>REPACKFILE(k,schema,table) : A file is re-packed to free up 
(4��eger from s.</li>
<li>PARSEFLOAT( s string ) : parses a floating point number from s.</li>
<li>EXCEPTION() returns a string w
��/li>
<li>LASTID() : returns the last Id value allocated by an INSERT statement.</li>
<li>PARSEINT( s string ) : parses an int
13��li>
<li>REPLACE( s string, pat string, sub string ) : returns a copy of s where every occurrence of pat is replaced with sub.<
��g of sM from start (1-based) length len.</li>
<li>BINSUBSTRING( s binary, start int, len int ) : binary version of SUBSTRING.</28��the length of s, which must be a binary expression.</li> 
<li>SUBSTRING( s string, start int, len int ) : returns the substrin
��<ul>
<li>LEN( s string ) : returns the length of s, which must be a string expression.</li>
<li>BINLEN( s binary ) : returns 
57��rg is true )</li>
</ul>
<p>Brackets can be used where necessary, for example ( a + b ) * c.
<h3>Pre-defined functions</h3>

��i>AND : boolean operator ( result is true if both args are true )</li>
<li>OR : boolean operator  ( result is true if either a
69��omparison of any data type.</li>
<li>NOT : boolean negation ( result is true if arg is false, false if arg is true ).</li>
<l:��ing/binary values. The second expression is automatically converted to string/binary if necessary.</li>
<li>= != > < >= <= : c
N �
t��mbers. Remainder only applies to integers.</li>
<li>+ - : addition, subtraction of numbers.</li>
<li>| : concatenation of str
��r of precedence, high to low, are as follows:
<ul>
<li>*  / % : multiplication, division and remainder (after division) of nu

��-z).
<h3>Operators</h3>
<p>The operators ( all binary, except for - which can be unary, and NOT which is only unary ) in orde
��ckets, often in upper case only by convention ). The square brackets can be omitted if the name consists of only letters (A-Z,a
�� case sensitive ( although language keywords such as CREATE SELECT are case insensitive, and are written without the square bra
��e a list of digits (0-9). The bool literals are true and false.
<h3>Names</h3><p>Names are enclosed in square brackets and are
��in a string literal, it is written as two single quotes. Binary literals are written in hexadecimal preceded by 0x. Integers ar
��h evaluates to true.
<h3>NLiterals</h3>
<p>String literals are written enclosed in single quotes. If a single quote is needed 
�� THEN exp1 WHEN bool2 THEN exp2 .... ELSE exp END - the result is the expression associated with the first bool expression whic
��d using operators, stored functions, pre-defined functions. There is also the CASE expression, which has syntax CASE WHEN bool1
	��essions are composed from literals, named local variables, local parameters and named columns from tables. These may be combine
��Checks that a function compiles ok. EXCEPTION() should be used to check if there is any error.

<h2>Expressions</h2>
<p>Expr

��e pre-defined local variable result can be assigned instead to set the return value.
<h3>CHECK</h3>
<p>CHECK schema.name
<p>
��p>Returns a value from a stored function. RETURN with no expression returns from a stored function with no return value.
<p>Th

��atements END
<p>A stored function is created which can later be usedN in expressions.
<h3>RETURN</h3>
<p>RETURN expression
<
��being set to the string.
<h3>CREATE FN</h3><p>CREATE FN schema.name ( param1 type1, param2 type2... ) RETURNS type AS BEGIN st
��he database is left unchanged.
<h3>THROW</h3>
<p>THROW string-expression 
<p>An exception is raised, with the error message 
��n be used to obtain a string describing the most recent exception (and clears the exception string). If any exception occurs, t
��he supplied parameters.
<h3>Exceptions</h3><p>An exception will terminate the execution of a function or batch. EXCEPTION() ca
��er be called by an EXEC statement.
<h3>EXEC</h3><p>EXEC schema.name( exp1, exp2 ... )
<p>The stored function is called with t
��e ( param1 type1, param2 type2... ) AS BEGIN statements END
<p>A stored function ( no return value ) is created, which can lat
��tatement may be used to signify the start of a new batch.
<h2>Stored Functions</h2>
<h3>CREATE FN</h3><p>CREATNE FN schema.nam
��QL statements ).
<p>Note that database objects ( tables, function ) must be created in a prior batch before being used. A GO s
��p>EXECUTE ( string-expression )
<p>Evaluates the string expression, and then executes the result ( which should be a list of S
�� a colon (:)
<h3>BREAK</h3><p>BREAK
<p>Execution of the enclosing FOR or WHILE loop is terminated.
<h2>Batch execution</h2><
��BREAK.
<h3>GOTO</h3><p>GOTO label
<p>Control is transferred to the labelled statement. A label consists of a name followed by
��<h3>WHILE</h3><p>WHILE bool-exp Statement
<p>Statement is repeatedly executed as long as bool-exp evaluates to true. See also 
��LSE Statement2 ]
<p>If bool-exp evaluates to true Statement1 is executed, otherwise Statement2 ( if specified ) is executed.

��ement can be used whenever a single statement is allowed.
<h3>IF .. THEN ... ELSE ...</h3>
<p>IF bool-exp THEN Statement1 [ E
��h3>BEGIN .. END<N/h3><p>BEGIN Statement1 Statement2 ... END
<p>The statements are executed in order. A BEGIN..END compound stat
��ition, with the named local variables being assigned expressions which depend on the rows.
<h2>Control flow statements</h2>
<
��ORDER BY expressions] Statement
<p>Statement is repeatedly executed for each row from the table which satisfies the WHERE cond
0��es of the local variables remain unchanged.
<h3>FOR</h3><p>FOR name1 = exp1, name2 = exp2 .... FROM table [ WHERE bool-exp ] [
��ause is specified, the values are taken from a table row which satisfies the WHERE condition. If there is no such row, the valu
!#��/h3>
<p>SET name1 = exp1, name2 = exp2 .... [ FROM table ] [ WHERE bool-exp ]
<p>Local variables are assigned. If the FROM cl
��les are initialised to default values ( but only once, not each time the DECLARE is encountered if there is a loop ).
<h3>SET<
"&��
<h3>DECLARE</h3><p>DECLARE name1 type1, name2 type2 ....
N<p>Local variables are declared with the specified types. The variab
��ows in the table which satisfy the WHERE condition are removed.
<h2>Local variable declaration and assignment statements</h2>

%'��n the table which satisfy the WHERE condition are updated.
<h3>DELETE</h3><p>DELETE FROM schema.tablename WHERE bool-exp
<p>R
��entual display. 
<h3>UPDATE</h3><p>UPDATE schema.tablename SET Colname1 = Exp1, Colname2 = Exp2 .... WHERE bool-exp
<p>Rows i
$,��are passed to the code that invoked the batch, and may be displayed to a user or sent to a client for further processing and ev
��cending order ).
<p>The SELECT expressions can be given names using AS.
<p>When used as a stand-alone statement, the results 
)+��and the WHERE and ORDER BY clauses.
<p>If the keyword DESC is placed after an ORDER BY expression, the order is reversed ( des
��sions FROM source-table [WHERE bool-exp ] [ORDER BY expressions]
<p>A new table is computed, based onN the list of expressions 
*.��e. The values may be any expressions ( possibly involving local variables or function calls ).
<h3>SELECT</h3><p>SELECT expres
��Colname1, Colname2 ... ) VALUES ( Val1, Val2... ) [,] ( Val3, Val4 ...) ...
<p>The specified values are inserted into the tabl
-/��n be added again afterwards.
</ul>
<h2>Data manipulation statements</h2>
<h3>INSERT</h3>
<p>INSERT INTO schema.tablename ( 
��i>
</ul>
<p>Note: currently, any indexes that have been added to a table need to be dropped before using ALTER TABLE. They ca
(4��n of the number of bytes stored inline for binary and string.</li>
<li>DROP Colname : the column is removed from the table.</l
��umn is changed. The only changes allowed are between the different sizes of integers, between float and double, and modificatio
13��li>ADD Colname Coltype : a new column is added to the table.</li>
<li>MODIFY Colname Coltype : the datatype of an existing col
��f a taNble.
<h3>ALTER TABLE</h3>
<p>ALTER TABLE schema.tablename action1, action2 .... <p>The actions are as follows:
<ul>
<28��iables and arithmetic operations are all 64 bits (8 bytes). The lower precision only applies when a value is stored in column o
��length exceeds the reserved inline storage, meaning they are slightly slower to store and retrieve. Local float and integer var
57�� string and binary, and false for the boolean type. The variable length data types are stored in a special system table if the 
�� : boolean ( true or false ).</li>
</ul>

<p>Each data type has a default value : zero for numbers, a zero length string for
69��binary(n) : a variable length string of bytes. n (optional, default 15) specifies number of bytes stored inline.</li>
<li>bool:�� : a variable length string of unicode characters. n (optional, default 15) specifies number of bytes stored inline.</li>
<li>
O �
t��r. Default is 8 bytes.</li>
<li>float, double : floating point numbers of size 4 and 8 bytes respectively.</li>
<li>string(n)
��SERT ( if no explicit value is supplied).<p>The data types are as follows:
<ul>
<li>int(n), 1 <= n <= 8. Signed n-byte intege

��Coltype2, ... )
<p>Creates a new base table. Every base table is automatically given an Id column, which auto-increments on IN
��al categories.
<h2>Table definition</h2>
<h3>CREATE TABLE</h3><p>CREATE TABLE schema.tablename ( Colname1 Coltype1, Colname2 
��ema. Every database object (Table, Function) has an associated schema. Schemas are used to organise database objects into logic
��e enclosed in square brackets.
<h2>Schema definition</h2>
<h3>CREATE SCHEMA</h3>
<p>CREATE SCHEMA name
<p>Creates a new sch
�c7f7a0aaced2e0875d84018a27640d4574�uid�1��渟x$N EXEC web.Trailer()

  RETURN 0
END��hpw�B0x46f65dd62c4b05e15071dc5a0e91429
��rd><br><input type=submit Ovalue=Login></form>'
  EXEC web.Trailer()

  RETURN 0
END��hpw�B0x46f65dd62c4b05e15071dc5a0e91429
��C web.Head( 'Login' )
  SELECT '<form method=post>User Name <input name=username><br>Password <input type=password name=passwo
��ECLARE hpwt binary SET hpwt = HashedPassword FROM login.user WHERE Id = uid
    IF hpwf = '' | hpwt RETURN uid
  END

  EXE
	��CLARE hpwf string SET hpwf = web.Cookie('hpw')

  IF uids != ''
  BEGIN
    DECLARE uid int SET uid = PARSEINT(uids)
    D
��tCookie( 'hpw', '' | hpw, '' )
      RETURN result
    END
  END

  DECLARE uids string SET uids = web.Cookie('uid')
  DE

��t AND HashedPassword = hpw
    IF result > 0
    BEGIN
      EXEC web.SetCookie( 'uid', '' | result, '' )
      EXEC web.Se
�� username
    DECLARE hpw binary SET hpw = login.hash( password|result )
    SET result = Id FROM login.user WHERE Id = resul

�� ''
  BEGIN
    DECLARE password string SET password = web.Form('pa