Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - shanquan2006

Pages1
#1
Whither newLISP? / Re: newlisp to get mysql table command lead to messy code
July 06, 2014, 02:17:51 AM
Quote from: "ralph.ronnquist"A quick glance into the source indicates that "println" is not very i18n friendly, though I don't have too much experience with it myself. Thus, my theory is that the string in newlisp is correct (i.e., the same as the other), but presented badly by println. Maybe a raw string output works better?
Code Select
(write 1 <text>)


I modefied the program with your mehod, but the question is sitll not to solve.  
Code Select
(write 1 ((((:fetch-all r) 0) 1) 1))  
 

and I checked mysql code is
Code Select

mysql> show variables like 'character%';
+--------------------------+----------------------------+
| Variable_name            | Value                      |
+--------------------------+----------------------------+
| character_set_client     | utf8                       |
| character_set_connection | utf8                       |
| character_set_database   | utf8                       |
| character_set_filesystem | binary                     |
| character_set_results    | utf8                       |
| character_set_server     | utf8                       |
| character_set_system     | utf8                       |
| character_sets_dir       | /usr/share/mysql/charsets/ |
+--------------------------+----------------------------+
#2
Whither newLISP? / Re: newlisp to get mysql table command lead to messy code
July 05, 2014, 07:32:26 PM
Quote from: "hotcore"Maybe you don't have installed the UTF-8 version? http://www.newlisp.org/index.cgi?page=Downloads">http://www.newlisp.org/index.cgi?page=Downloads


The version I installed is:

 
Code Select
-OptiPlex-3020:~$ newlisp --version
newLISP v.10.6.0 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h
#3
Whither newLISP? / newlisp to get mysql table command lead to messy code
July 03, 2014, 10:30:38 PM
I study newLisp for two weeks. Now I was trying to  connect mysql to get "create table sql", but it cause messy code .

 

the code is :
Code Select

 (:connect db mysql-host mysql-user mysql-pwd mysql-db mysql-port)
 (set 'r (:query db (append "show create table " mysql-table-name)))  
 (set 'mysql_sql ((((:fetch-all r) 0) 1) 1))  
 (println mysql_sql )

the result is :
Code Select
CREATE TABLE `tvsn` (
                `order_id` varchar(13) NOT NULL COMMENT '??ID',
                `sn` varchar(50) NOT NULL COMMENT '??SN?'
               ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='???????SN?'

but in mysqlclient, the result is :


Code Select
CREATE TABLE `tvsn` (
  `order_id` varchar(13) NOT NULL COMMENT '订单ID',
  `sn` varchar(50) NOT NULL COMMENT '电视SN码'
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='电视机SN码'        


some description of mysql.lsp  is:

;; @module Mysql

;; @author Jeff Ober <jeffober@gmail.com>, Kanen Flowers <kanendosei@gmail.com>

;; @version 1.05 beta

;; @location http://static.artfulcode.net/newlisp/mysql.lsp">http://static.artfulcode.net/newlisp/mysql.lsp

;; @package http://static.artfulcode.net/newlisp/mysql.qwerty">http://static.artfulcode.net/newlisp/mysql.qwerty

;; @description A new MySQL module to replace the distribution standard module (requires newlisp 10).



how to solve it ?
Pages1