aboutsummaryrefslogtreecommitdiffstats
path: root/phpBB/develop/unicode_testing.php
blob: ec3c71d0783ddc523331b213605b747c05014b0c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
<?php
//
// This file provides some useful functions for debugging the unicode/UTF-8 library
// It requires utf_tools.php to be loaded
//
die("Please read the first lines of this script for instructions on how to enable it");

if (!headers_sent())
{
	header('Content-type: text/html; charset=UTF-8');
}

/**
 * Converts unicode escape sequences (\u0123) into UTF-8 characters
 *
 * @param	string	A unicode sequence
 * @return	string	UTF-8 representation of the given unicode sequence
 */
function unicode_to_utf8($string)
{
	$utf8 = '';
	$chars = array();
	for ($i = 0; $i < strlen($string); $i++)
	{
		if (isset($string[$i + 5]) && substr($string, $i, 2) == '\\u' && ctype_xdigit(substr($string, $i + 2, 4)))
		{
			$utf8 .= utf8_from_unicode(array(base_convert(substr($string, $i + 2, 4), 16, 10)));
			$i += 5;
		}
		else
		{
			$utf8 .= $string[$i];
		}
	}
	return $utf8;
}

/**
 * Takes an array of ints representing the Unicode characters and returns
 * a UTF-8 string.
 *
 * @param array $array array of unicode code points representing a string
 * @return string UTF-8 character string
 */
function utf8_from_unicode($array)
{
	$str = '';
	foreach ($array as $value)
	{
		$str .= utf8_chr($value);
	}
	return $str;
}

/**
* Converts a UTF-8 string to unicode code points
*
* @param	string	$text		UTF-8 string
* @return	string				Unicode code points
*/
function utf8_to_unicode($text)
{
	return preg_replace_callback(
		'#[\\xC2-\\xF4][\\x80-\\xBF]?[\\x80-\\xBF]?[\\x80-\\xBF]#',
		'utf8_to_unicode_callback',
		preg_replace_callback(
			'#[\\x00-\\x7f]#',
			'utf8_to_unicode_callback',
			$text
		)
	);
}

/**
* Takes a UTF-8 char and replaces it with its unicode escape sequence. Attention, $m is an array
*
* @param	array	$m			0-based numerically indexed array passed by preg_replace_callback()
* @return	string				A unicode escape sequence
*/
function utf8_to_unicode_callback($m)
{
	return '\u' . str_pad(base_convert(utf8_ord($m[0]), 10, 16), 4, '0', STR_PAD_LEFT) . '';
}

/**
* A wrapper function for the normalizer which takes care of including the class if required and modifies the passed strings
* to be in NFKC
*
* @param	mixed	$strings	a string or an array of strings to normalize
* @return	mixed				the normalized content, preserving array keys if array given.
*/
function utf8_normalize_nfkc($strings)
{
	if (empty($strings))
	{
		return $strings;
	}

	if (!class_exists('utf_normalizer'))
	{
		global $phpbb_root_path, $phpEx;
		include($phpbb_root_path . 'includes/utf/utf_normalizer.' . $phpEx);
	}

	if (!is_array($strings))
	{
		utf_normalizer::nfkc($strings);
	}
	else if (is_array($strings))
	{
		foreach ($strings as $key => $string)
		{
			utf_normalizer::nfkc($strings[$key]);
		}
	}

	return $strings;
}
lude <util.h> /*======================================================================*/ struct arm_plt_entry { int offset; int allocated:1; int inited:1; // has been set up }; struct arm_got_entry { int offset; int allocated : 1; unsigned reloc_done : 1; }; struct arm_file { struct obj_file root; struct obj_section *plt; struct obj_section *got; }; struct arm_symbol { struct obj_symbol root; struct arm_plt_entry pltent; struct arm_got_entry gotent; }; /*======================================================================*/ struct obj_file * arch_new_file (void) { struct arm_file *f; f = xmalloc(sizeof(*f)); f->got = NULL; return &f->root; } struct obj_section * arch_new_section (void) { return xmalloc(sizeof(struct obj_section)); } struct obj_symbol * arch_new_symbol (void) { struct arm_symbol *sym; sym = xmalloc(sizeof(*sym)); memset(&sym->gotent, 0, sizeof(sym->gotent)); memset(&sym->pltent, 0, sizeof(sym->pltent)); return &sym->root; } int arch_load_proc_section(struct obj_section *sec, int fp) { /* Assume it's just a debugging section that we can safely ignore ... */ sec->contents = NULL; return 0; } enum obj_reloc arch_apply_relocation (struct obj_file *f, struct obj_section *targsec, struct obj_section *symsec, struct obj_symbol *sym, Elf32_Rel *rel, Elf32_Addr v) { struct arm_file *afile = (struct arm_file *)f; struct arm_symbol *asym = (struct arm_symbol *)sym; Elf32_Addr *loc = (Elf32_Addr *)(targsec->contents + rel->r_offset); Elf32_Addr dot = targsec->header.sh_addr + rel->r_offset; Elf32_Addr got = afile->got ? afile->got->header.sh_addr : 0; Elf32_Addr plt = afile->plt ? afile->plt->header.sh_addr : 0; struct arm_plt_entry *pe; unsigned long *ip; enum obj_reloc ret = obj_reloc_ok; switch (ELF32_R_TYPE(rel->r_info)) { case R_ARM_NONE: break; case R_ARM_ABS32: *loc += v; break; case R_ARM_GOT32: /* needs an entry in the .got: set it, once */ if (! asym->gotent.reloc_done) { asym->gotent.reloc_done = 1; *(Elf32_Addr *)(afile->got->contents + asym->gotent.offset) = v; } /* make the reloc with_respect_to_.got */ *loc += asym->gotent.offset; break; /* relative reloc, always to _GLOBAL_OFFSET_TABLE_ (which is .got) similar to branch, but is full 32 bits relative */ case R_ARM_GOTPC: assert(got); *loc += got - dot; break; case R_ARM_PC24: case R_ARM_PLT32: /* find the plt entry and initialize it if necessary */ assert(asym != NULL); pe = (struct arm_plt_entry*) &asym->pltent; if (! pe->inited) { ip = (unsigned long *) (afile->plt->contents + pe->offset); ip[0] = 0xe51ff004; /* ldr pc,[pc,#-4] */ ip[1] = v; /* sym@ */ pe->inited = 1; } /* relative distance to target */ v -= dot; /* if the target is too far away.... */ if ((int)v < -0x02000000 || (int)v >= 0x02000000) { /* go via the plt */ v = plt + pe->offset - dot; } if (v & 3) ret = obj_reloc_dangerous; /* Convert to words. */ v >>= 2; /* merge the offset into the instruction. */ *loc = (*loc & ~0x00ffffff) | ((v + *loc) & 0x00ffffff); break; /* address relative to the got */ case R_ARM_GOTOFF: assert(got); *loc += v - got; break; default: printf("Warning: unhandled reloc %d\n",ELF32_R_TYPE(rel->r_info)); ret = obj_reloc_unhandled; break; } return ret; } int arch_create_got (struct obj_file *f) { struct arm_file *afile = (struct arm_file *) f; int i; struct obj_section *sec, *syms, *strs; ElfW(Rel) *rel, *relend; ElfW(Sym) *symtab, *extsym; const char *strtab, *name; struct arm_symbol *intsym; struct arm_plt_entry *pe; struct arm_got_entry *ge; int got_offset = 0, plt_offset = 0; for (i = 0; i < f->header.e_shnum; ++i) { sec = f->sections[i]; if (sec->header.sh_type != SHT_RELM) continue; syms = f->sections[sec->header.sh_link]; strs = f->sections[syms->header.sh_link]; rel = (ElfW(RelM) *) sec->contents; relend = rel + (sec->header.sh_size / sizeof(ElfW(RelM))); symtab = (ElfW(Sym) *) syms->contents; strtab = (const char *) strs->contents; for (; rel < relend; ++rel) { extsym = &symtab[ELF32_R_SYM(rel->r_info)]; switch(ELF32_R_TYPE(rel->r_info)) { case R_ARM_PC24: case R_ARM_PLT32: if (extsym->st_name) name = strtab + extsym->st_name; else name = f->sections[extsym->st_shndx]->name; intsym = (struct arm_symbol *) obj_find_symbol(f, name); pe = &intsym->pltent; if (! pe->allocated) { pe->allocated = 1; pe->offset = plt_offset; plt_offset += 8; pe->inited = 0; } break; /* these two don_t need got entries, but they need the .got to exist */ case R_ARM_GOTOFF: case R_ARM_GOTPC: if (got_offset==0) got_offset = 4; break; case R_ARM_GOT32: if (extsym->st_name) name = strtab + extsym->st_name; else name = f->sections[extsym->st_shndx]->name; intsym = (struct arm_symbol *) obj_find_symbol(f, name); ge = (struct arm_got_entry *) &intsym->gotent; if (! ge->allocated) { ge->allocated = 1; ge->offset = got_offset; got_offset += sizeof(void*); } break; default: continue; } } } /* if there was a _GLOBAL_OFFSET_TABLE_, then the .got section exists already; find it and use it */ if (got_offset) { struct obj_section* sec = obj_find_section(f, ".got"); if (sec) obj_extend_section(sec, got_offset); else { sec = obj_create_alloced_section(f, ".got", 8, got_offset); assert(sec); } afile->got = sec; } if (plt_offset) afile->plt = obj_create_alloced_section(f, ".plt", 8, plt_offset); return 1; } int arch_init_module (struct obj_file *f, struct module *mod) { return 1; } int arch_finalize_section_address(struct obj_file *f, Elf32_Addr base) { int i, n = f->header.e_shnum; f->baseaddr = base; for (i = 0; i < n; ++i) f->sections[i]->header.sh_addr += base; return 1; } int arch_archdata (struct obj_file *fin, struct obj_section *sec) { return 0; }