summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3a45ae3)
* sql/fdml.lisp: Apply patch from Kim Minh Kaplan
to change escaping of single quotes. Mild optimizations
for escaped string output.
* TODO: Add need to test single quote escaping
+8 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/fdml.lisp: Apply patch from Kim Minh Kaplan
+ to change escaping of single quotes. Mild optimizations
+ for escaped string output.
+ * TODO: Add need to test single quote escaping
+
7 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
* doc/ref-ooddl.xml, doc-ref-oodml.xml: documentation additions
* sql/ooddl.lisp: Added SMALLINT type
7 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
* doc/ref-ooddl.xml, doc-ref-oodml.xml: documentation additions
* sql/ooddl.lisp: Added SMALLINT type
* symbol slot
* generalized-boolean slot
* column and table constraints in CREATE-TABLE and DEF-VIEW-CLASS.
* symbol slot
* generalized-boolean slot
* column and table constraints in CREATE-TABLE and DEF-VIEW-CLASS.
+* escaping of single quotes
(type (simple-array * (*)) str))
(let ((len (length str)))
(declare (type fixnum len))
(type (simple-array * (*)) str))
(let ((len (length str)))
(declare (type fixnum len))
+empty-string+)
((and (null (position #\' str))
(null (position #\\ str)))
+empty-string+)
((and (null (position #\' str))
(null (position #\\ str)))
(do* ((i 0 (incf i))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
(do* ((i 0 (incf i))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
- (declare (type integer i j))
+ (declare (type fixnum i j))
(let ((char (aref str i)))
(let ((char (aref str i)))
- (cond ((eql char #\')
- (setf (aref buf j) #\\)
+ (declare (character char))
+ (cond ((char= char #\')
+ (setf (aref buf j) #\')
(incf j)
(setf (aref buf j) #\'))
(incf j)
(setf (aref buf j) #\'))
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))