You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
897 B
28 lines
897 B
15 years ago
|
# TODO write a print_kotextdocument that calls a print_kotextstring
|
||
|
|
# that uses something like printqstring does (to show the string on a single line)
|
||
|
|
|
||
|
|
# Print the contents of a KoTextString (use when debugging a core file)
|
||
|
|
# To reassemble the output of this function into a string, use gdb_output_to_text.pl
|
||
|
|
define print_kotextstring_noprocess
|
||
|
|
set $s = sizeof(KoTextStringChar)
|
||
|
|
set $str = $arg0
|
||
|
|
set $length = $str->data->shd->len / $s
|
||
|
|
set $arr = ((KoTextStringChar*)($str->data->shd->data))
|
||
|
|
set $i = 0
|
||
|
|
while $i < $length-1
|
||
|
|
print (char)($arr[$i++].c.ucs & 0xff)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
# Print the contents of a KoTextDocument (use when debugging a core file)
|
||
|
|
define print_kotextdocument_noprocess
|
||
|
|
set $textdoc = $arg0
|
||
|
|
set $p = $textdoc->fParag
|
||
|
|
while $p != $textdoc->lParag
|
||
|
|
print_kotextstring_noprocess $p->str
|
||
|
|
print -1
|
||
|
|
set $p = $p->n
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|