Posted to tcl by kostix at Sun Mar 22 21:07:57 GMT 2009view pretty
% sqlite db :memory:
% db eval { create table foo (foo) }
% set a s'trin'g
s'trin'g
% db eval { insert into foo (foo) values ($a) }
% db eval { select * from foo }
s'trin'g
% sqlite db :memory:
% db eval { create table foo (foo) }
% set a s'trin'g
s'trin'g
% db eval { insert into foo (foo) values ($a) }
% db eval { select * from foo }
s'trin'g