1/* Copyright (C) 2006 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
2
3 This program is free software; you can redistribute it and/or modify
4 it under the terms of the GNU General Public License as published by
5 the Free Software Foundation; version 2 of the License.
6
7 This program is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 GNU General Public License for more details.
11
12 You should have received a copy of the GNU General Public License
13 along with this program; if not, write to the Free Software
14 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA */
15
16/* Support rutiner with are using with dbug */
17
18#include "maria_def.h"
19
20void _ma_print_key(FILE *stream, MARIA_KEY *key)
21{
22 _ma_print_keydata(stream, key->keyinfo->seg, key->data, key->data_length);
23}
24
25
26/* Print a key in a user understandable format */
27
28void _ma_print_keydata(FILE *stream, register HA_KEYSEG *keyseg,
29 const uchar *key, uint length)
30{
31 int flag;
32 short int s_1;
33 long int l_1;
34 float f_1;
35 double d_1;
36 const uchar *end;
37 const uchar *key_end= key + length;
38
39 fputs("Key: \"",stream);
40 flag=0;
41 for (; keyseg->type && key < key_end ;keyseg++)
42 {
43 if (flag++)
44 putc('-',stream);
45 end= key+ keyseg->length;
46 if (keyseg->flag & HA_NULL_PART)
47 {
48 /* A NULL value is encoded by a 1-byte flag. Zero means NULL. */
49 if (! *(key++))
50 {
51 fprintf(stream,"NULL");
52 continue;
53 }
54 end++;
55 }
56
57 switch (keyseg->type) {
58 case HA_KEYTYPE_BINARY:
59 if (!(keyseg->flag & HA_SPACE_PACK) && keyseg->length == 1)
60 { /* packed binary digit */
61 fprintf(stream,"%d",(uint) *key++);
62 break;
63 }
64 /* fall through */
65 case HA_KEYTYPE_TEXT:
66 case HA_KEYTYPE_NUM:
67 if (keyseg->flag & HA_SPACE_PACK)
68 {
69 fprintf(stream,"%.*s",(int) *key,key+1);
70 key+= (int) *key+1;
71 }
72 else
73 {
74 fprintf(stream,"%.*s",(int) keyseg->length,key);
75 key=end;
76 }
77 break;
78 case HA_KEYTYPE_INT8:
79 fprintf(stream,"%d",(int) *((const signed char*) key));
80 key=end;
81 break;
82 case HA_KEYTYPE_SHORT_INT:
83 s_1= mi_sint2korr(key);
84 fprintf(stream,"%d",(int) s_1);
85 key=end;
86 break;
87 case HA_KEYTYPE_USHORT_INT:
88 {
89 ushort u_1;
90 u_1= mi_uint2korr(key);
91 fprintf(stream,"%u",(uint) u_1);
92 key=end;
93 break;
94 }
95 case HA_KEYTYPE_LONG_INT:
96 l_1=mi_sint4korr(key);
97 fprintf(stream,"%ld",l_1);
98 key=end;
99 break;
100 case HA_KEYTYPE_ULONG_INT:
101 l_1=mi_uint4korr(key);
102 fprintf(stream,"%lu",(ulong) l_1);
103 key=end;
104 break;
105 case HA_KEYTYPE_INT24:
106 fprintf(stream,"%ld",(long) mi_sint3korr(key));
107 key=end;
108 break;
109 case HA_KEYTYPE_UINT24:
110 fprintf(stream,"%lu",(ulong) mi_uint3korr(key));
111 key=end;
112 break;
113 case HA_KEYTYPE_FLOAT:
114 mi_float4get(f_1,key);
115 fprintf(stream,"%g",(double) f_1);
116 key=end;
117 break;
118 case HA_KEYTYPE_DOUBLE:
119 mi_float8get(d_1,key);
120 fprintf(stream,"%g",d_1);
121 key=end;
122 break;
123#ifdef HAVE_LONG_LONG
124 case HA_KEYTYPE_LONGLONG:
125 {
126 char buff[21];
127 longlong10_to_str(mi_sint8korr(key),buff,-10);
128 fprintf(stream,"%s",buff);
129 key=end;
130 break;
131 }
132 case HA_KEYTYPE_ULONGLONG:
133 {
134 char buff[21];
135 longlong10_to_str(mi_sint8korr(key),buff,10);
136 fprintf(stream,"%s",buff);
137 key=end;
138 break;
139 }
140#endif
141 case HA_KEYTYPE_BIT:
142 {
143 uint i;
144 fputs("0x",stream);
145 for (i=0 ; i < keyseg->length ; i++)
146 fprintf(stream, "%02x", (uint) *key++);
147 key= end;
148 break;
149 }
150 case HA_KEYTYPE_VARTEXT1: /* VARCHAR and TEXT */
151 case HA_KEYTYPE_VARTEXT2: /* VARCHAR and TEXT */
152 case HA_KEYTYPE_VARBINARY1: /* VARBINARY and BLOB */
153 case HA_KEYTYPE_VARBINARY2: /* VARBINARY and BLOB */
154 {
155 uint tmp_length;
156 get_key_length(tmp_length,key);
157 /*
158 The following command sometimes gives a warning from valgrind.
159 Not yet sure if the bug is in valgrind, glibc or mysqld
160 */
161 fprintf(stream,"%.*s",(int) tmp_length,key);
162 key+=tmp_length;
163 break;
164 }
165 default: break; /* This never happens */
166 }
167 }
168 fputs("\"\n",stream);
169 return;
170} /* print_key */
171
172
173#ifdef EXTRA_DEBUG
174
175my_bool _ma_check_table_is_closed(const char *name, const char *where)
176{
177 char filename[FN_REFLEN];
178 LIST *pos;
179 DBUG_ENTER("_ma_check_table_is_closed");
180
181 (void) fn_format(filename,name,"",MARIA_NAME_IEXT,4+16+32);
182 mysql_mutex_lock(&THR_LOCK_maria);
183 for (pos=maria_open_list ; pos ; pos=pos->next)
184 {
185 MARIA_HA *info=(MARIA_HA*) pos->data;
186 MARIA_SHARE *share= info->s;
187 if (!strcmp(share->unique_file_name.str, filename))
188 {
189 if (share->last_version)
190 {
191 fprintf(stderr,"Warning: Table: %s is open on %s\n", name,where);
192 DBUG_PRINT("warning",("Table: %s is open on %s", name,where));
193 mysql_mutex_unlock(&THR_LOCK_maria);
194 DBUG_RETURN(1);
195 }
196 }
197 }
198 mysql_mutex_unlock(&THR_LOCK_maria);
199 DBUG_RETURN(0);
200}
201#endif /* EXTRA_DEBUG */
202