annotate libphobos/src/std/demangle.d @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 // Written in the D programming language.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 /**
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 * Demangle D mangled names.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 *
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 * Copyright: Copyright Digital Mars 2000 - 2009.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 * License: $(HTTP www.boost.org/LICENSE_1_0.txt, Boost License 1.0).
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 * Authors: $(HTTP digitalmars.com, Walter Bright),
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 * Thomas K$(UUML)hne, Frits van Bommel
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 * Source: $(PHOBOSSRC std/_demangle.d)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 * $(SCRIPT inhibitQuickIndex = 1;)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 /*
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 * Copyright Digital Mars 2000 - 2009.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 * Distributed under the Boost Software License, Version 1.0.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 * (See accompanying file LICENSE_1_0.txt or copy at
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 * http://www.boost.org/LICENSE_1_0.txt)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 module std.demangle;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 /+
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 private class MangleException : Exception
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 this()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26 super("MangleException");
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 +/
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 /*****************************
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 * Demangle D mangled names.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 *
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 * If it is not a D mangled name, it returns its argument name.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 * Example:
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 * This program reads standard in and writes it to standard out,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 * pretty-printing any found D mangled names.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38 -------------------
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 import core.stdc.stdio : stdin;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
40 import std.stdio;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
41 import std.ascii;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
42 import std.demangle;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
43
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
44 void test(int x, float y) { }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
45
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
46 int main()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
47 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
48 string buffer;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
49 bool inword;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
50 int c;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
51
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
52 writefln("Try typing in: %s", test.mangleof);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
53 while ((c = fgetc(stdin)) != EOF)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
54 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
55 if (inword)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
56 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
57 if (c == '_' || isAlphaNum(c))
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
58 buffer ~= cast(char) c;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
59 else
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
60 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
61 inword = false;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
62 write(demangle(buffer), cast(char) c);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
63 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
64 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
65 else
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
66 { if (c == '_' || isAlpha(c))
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
67 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
68 inword = true;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
69 buffer.length = 0;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
70 buffer ~= cast(char) c;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
71 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
72 else
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
73 write(cast(char) c);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
74 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
75 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
76 if (inword)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
77 write(demangle(buffer));
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
78 return 0;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
79 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
80 -------------------
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
81 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
82
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
83 string demangle(string name)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
84 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
85 import core.demangle : demangle;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
86 import std.exception : assumeUnique;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
87 auto ret = demangle(name);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
88 return assumeUnique(ret);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
89 }