← Back to branch summary

~jlukas79/+junk/mysql-server

« back to all changes in this revision

Viewing changes to storage/maria/ma_dbug.c

manual merge 6.0-main --> 6.0-bka-review

Show diffs side-by-side

added added

removed removed

Lines of Context:
storage/maria/ma_dbug.c
 
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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
 
15
 
 
16
/* Support rutiner with are using with dbug */
 
17
 
 
18
#include "maria_def.h"
 
19
 
 
20
void _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
 
 
28
void _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
  (void)(fputs("Key: \"",stream));
 
40
  flag=0;
 
41
  for (; keyseg->type && key < key_end ;keyseg++)
 
42
  {
 
43
    if (flag++)
 
44
      (void)(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
        (void)(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
        (void)(fprintf(stream,"%.*s",(int) *key,key+1));
 
70
        key+= (int) *key+1;
 
71
      }
 
72
      else
 
73
      {
 
74
        (void)(fprintf(stream,"%.*s",(int) keyseg->length,key));
 
75
        key=end;
 
76
      }
 
77
      break;
 
78
    case HA_KEYTYPE_INT8:
 
79
      (void)(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
      (void)(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
        (void)(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
      (void)(fprintf(stream,"%ld",l_1));
 
98
      key=end;
 
99
      break;
 
100
    case HA_KEYTYPE_ULONG_INT:
 
101
      l_1=mi_uint4korr(key);
 
102
      (void)(fprintf(stream,"%lu",(ulong) l_1));
 
103
      key=end;
 
104
      break;
 
105
    case HA_KEYTYPE_INT24:
 
106
      (void)(fprintf(stream,"%ld",(long) mi_sint3korr(key)));
 
107
      key=end;
 
108
      break;
 
109
    case HA_KEYTYPE_UINT24:
 
110
      (void)(fprintf(stream,"%lu",(ulong) mi_uint3korr(key)));
 
111
      key=end;
 
112
      break;
 
113
    case HA_KEYTYPE_FLOAT:
 
114
      mi_float4get(f_1,key);
 
115
      (void)(fprintf(stream,"%g",(double) f_1));
 
116
      key=end;
 
117
      break;
 
118
    case HA_KEYTYPE_DOUBLE:
 
119
      mi_float8get(d_1,key);
 
120
      (void)(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
      longlong2str(mi_sint8korr(key),buff,-10);
 
128
      (void)(fprintf(stream,"%s",buff));
 
129
      key=end;
 
130
      break;
 
131
    }
 
132
    case HA_KEYTYPE_ULONGLONG:
 
133
    {
 
134
      char buff[21];
 
135
      longlong2str(mi_sint8korr(key),buff,10);
 
136
      (void)(fprintf(stream,"%s",buff));
 
137
      key=end;
 
138
      break;
 
139
    }
 
140
    case HA_KEYTYPE_BIT:
 
141
    {
 
142
      uint i;
 
143
      fputs("0x",stream);
 
144
      for (i=0 ; i < keyseg->length ; i++)
 
145
        fprintf(stream, "%02x", (uint) *key++);
 
146
      key= end;
 
147
      break;
 
148
    }
 
149
 
 
150
#endif
 
151
    case HA_KEYTYPE_VARTEXT1:                   /* VARCHAR and TEXT */
 
152
    case HA_KEYTYPE_VARTEXT2:                   /* VARCHAR and TEXT */
 
153
    case HA_KEYTYPE_VARBINARY1:                 /* VARBINARY and BLOB */
 
154
    case HA_KEYTYPE_VARBINARY2:                 /* VARBINARY and BLOB */
 
155
    {
 
156
      uint tmp_length;
 
157
      get_key_length(tmp_length,key);
 
158
      /*
 
159
        The following command sometimes gives a warning from valgrind.
 
160
        Not yet sure if the bug is in valgrind, glibc or mysqld
 
161
      */
 
162
      (void)(fprintf(stream,"%.*s",(int) tmp_length,key));
 
163
      key+=tmp_length;
 
164
      break;
 
165
    }
 
166
    default: break;                     /* This never happens */
 
167
    }
 
168
  }
 
169
  (void)(fputs("\"\n",stream));
 
170
  return;
 
171
} /* print_key */
 
172
 
 
173
 
 
174
#ifdef EXTRA_DEBUG
 
175
 
 
176
my_bool _ma_check_table_is_closed(const char *name, const char *where)
 
177
{
 
178
  char filename[FN_REFLEN];
 
179
  LIST *pos;
 
180
  DBUG_ENTER("_ma_check_table_is_closed");
 
181
 
 
182
  (void) fn_format(filename,name,"",MARIA_NAME_IEXT,4+16+32);
 
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,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
        DBUG_RETURN(1);
 
194
      }
 
195
    }
 
196
  }
 
197
  DBUG_RETURN(0);
 
198
}
 
199
#endif /* EXTRA_DEBUG */