charset database user pass hostname port host xml-stylesheet nport conn errno res resn row col CLIENT_MULTI_STATEMENTS 0 unix_socket nport database DROP pass DROP user DROP hostname DROP conn mysql_real_connect conn 0 EQ errno 2003 EQ `#mysql-no-conn STHROW conn conn mysql_close DROP 0 conn! conn mysql_errno DUP errno! errno 2006 = MySQL server has gone away (connect) DROP `#mysql-gone-away STHROW conn mysql_error ASCIIZ> set-last-err-txt errno 2003 = Can't connect to MySQL server (close-conn) it can't reuse the connection object in this case last-err-txt STHROW charset DUP 2DROP `utf8 DROP MYSQL_SET_CHARSET_NAME conn mysql_options treat-err 1 SP@ MYSQL_OPT_RECONNECT conn mysql_options treat-err DROP conn mysql_new_conn conn! set-conn-options (connect) treat-err 0 errno! 0. set-last-err-txt conn free-res-all (close-conn) close pass! user! hostname! database! query next-result? next-row? next-col? get-value 0. query-value res row next-col? get-value 0. Generally speaking, it is not necessary. We can just save the consumer-xt and don't use the intermediate buffering. buf::write xml-stylesheet NIP store-chunk xml-stylesheet store-chunk ]]> store-chunk 0. xml-stylesheet! It should be set on each query xml-stylesheet! buf::clear ]]> store-chunk store-xml-stylesheet >R query store-response buf::next-chunk DUP R@ EXECUTE R> EXECUTE