MySQL-protocol.r

Yes I have a suggestion: keep doing the excelent work :) I use mysql.r everyday and I find it just great! Hope you find the amount of needed time to keep the site on. Many regards and happy 2004 Carlos

Roger that. I use it daily without fail. One thing I have done is "hack" mysql-protocol (with Nenad's guidance) so that I can return one-dimensional lists when it suits me. I recommend that as a permanent feature. Tim -- Tim Johnson <[tim--johnsons-web--com]> http://www.alaska-internet-solutions.com<

Great to hear that the project isn't dead. It works very well and fast here too.

Yes, it would be nice to 'extract information more easily that way. -- Regards, Henrik Mikael Kristensen

When I and DocKimbel discussed that, he said (if I recall correctly), that he had run some tests and looked like there was less memory fragmentation and somewhat better performance with the 'flattened' approach. I would imagine, that with queries that return large amounts of it would be better to leave the processed block as "unflattened", since each "inner block" would constitute a seperate node. Also, it would be interesting to compare performance using lists as opposed to blocks. IOWS, if you look at DocKimbel's code, it looks like all data is being handled internally as block! Unfortunately, Rebol documentation does not distinguish between blocks and lists and in fact

No information on list! (word has no value) ;; and

USAGE: TO-LIST value DESCRIPTION: (undocumented) ARGUMENTS: value -- (Type: any) ;; not much 'help' there :-( But I believe that lists and blocks are implemented differently internally, but I'm ignorant as to how. any comments on this? tim -- Tim Johnson <[tim--johnsons-web--com]> http://www.alaska-internet-solutions.com<

Why change in 'convert-types? Couldn't one just as well change these lines in 'read-rows: row: make block! cols parse/all/case row-data [any [read-field (append row field)]] append/only rows row to either port/locals/flat? [ parse/all/case row-data [any [read-field (append rows field)]] ] [ row: make block! cols parse/all/case row-data [any [read-field (append row field)]] append/only rows row ] ? I'm ignorant. Please tell me what way is the best. Regards, HY

<Grin>I'm sorry, but I can't. I'm currently using version 0.9.9 And below are the changes I have made: ; ====================================================================================================== locals-class: make object! [ ; original words here ... flat?: true ; add by Tim Johnson ] ; ====================================================================================================== convert-types: func [p [port!] rows [block!] /local row i convert-body action cols col conv-func tmp ][ cols: p/locals/columns convert-body: make block! 1 action: [if tmp: sys-pick row (i)] foreach col cols [ i: index? find cols col if 'none <> conv-func: select p/locals/conv-list col/type [ append convert-body append/only compose action head sys-insert at compose [change at row (i) :tmp] 5 conv-func ] ] ;if not empty? convert-body [foreach row rows :convert-body] ; replaced below by Tim Johnson ; Begin Replacement by Tim Johnson if not empty? convert-body [ ; this and rest of function changed by Tim Johnson either p/locals/flat? [ row: rows forskip row length? cols :convert-body ][foreach row rows :convert-body] ] ; End Replacement by Tim Johnson ] ; ====================================================================================================== read-rows: func [port [port!] /part n [integer!] /local row-data row rows cols count ][ ; rows: make block! max any [n 0] port/locals/rows ; replaced by Tim Johnson ; cols: length? port/locals/columns ; replaced by Tim Johnson ; Begin Replacement by Tim Johnson row-count: max any [n 0] port/locals/rows cols: length? port/locals/columns rows: make block! either port/locals/flat? [row-count * cols][row-count] ; End Replacement count: 0 forever [ row-data: read-packet-via port if empty? row-data [return []] ; empty set row: make block! cols parse/all/case row-data [any [read-field (append row field)]] ; append/only rows row ; this line replaced by line below: Tim Johnson either port/locals/flat? [append rows row][append/only rows row] if port/locals/stream-end? or all [part n = count: count + 1][break] ; end of stream or rows # reached ] if port/locals/auto-conv? [convert-types port rows] recycle ; lot of garbage to recycle here ! :) rows ] -- Tim Johnson <[tim--johnsons-web--com]> http://www.alaska-internet-solutions.com