@@ SQL Wrapper object.
@@
@@ Version: 1.1.
@@
@@ Originally authored by: Walker@M*U*S*H
@@
@@ Placed into the public domain. Friday, June 13th, 2008.
@@
@create SQL Wrapper
@set SQL Wrapper = VISUAL
@set SQL Wrapper = NO_COMMAND
@power SQL Wrapper = SQL_OK
@describe SQL Wrapper = SQL Wrapper. Detailed in a CPO post that will be linked here 
&GLOB2LIKE SQL Wrapper="[regeditall(sqlescape(%0),\[_\%\],\\$0,((?:\[^\\\\\]|^)(?:\\\\\\\\\\\\\\\\)*)(\[?\\*\]),$1[switch($2,\\?,_,\\*,\%)])]"
&MAPQUERY SQL Wrapper=localize(setq(i,1)[mapsql(%0,u(prepare,%1,%2,%3,%4,%5,%6,%7,%8,%9),firstof(elements(%1,2,:),%r),elements(%1,3,:))])
&PREPARE SQL Wrapper=regeditall(firstof(v(sql`[before(%0,:)]`[config(sql_platform)]),v(sql`[before(%0,:)])),(\[_@\]?)\\?(?:<(\\d+)>)?,u(switch($1,_,glob2like,@,sqlarray,sqlescape),v(if(strlen($2),add($2,1),setr(i,inc(%qi))))))
&QUERY SQL Wrapper=localize(setq(i,0)[sql(eval(me,prepare),firstof(elements(%0,2,:),%b),firstof(elements(%0,3,:),%b))])
&SQL SQL Wrapper=SQL tree. no_command.
@set SQL Wrapper/SQL=no_command
&SQLARRAY SQL Wrapper=([map(#lambda/"\[sqlescape(\%0)\]",%0,%b,\,)])
&SQLESCAPE SQL Wrapper="[sqlescape(%0)]"
&UPDATE SQL Wrapper=localize(if(strlen(setr(0,eval(me,query))),%q0,firstof(sql(select last_insert_id(),1))))