29fb5456fbc3903eb010a7fa1e222b6015fbee18
[WebKit-https.git] / WebCore / khtml / misc / maketags
1 #!/usr/bin/perl
2 #   This file is part of the KDE libraries
3 #
4 #   Copyright (C) 1998 Waldo Bastian (bastian@kde.org)
5 #                 1999 Lars Knoll (knoll@kde.org)
6 #
7 #   This library is free software; you can redistribute it and/or
8 #   modify it under the terms of the GNU Library General Public
9 #   License as published by the Free Software Foundation; either
10 #   version 2 of the License, or (at your option) any later version.
11 #
12 #   This library is distributed in the hope that it will be useful,
13 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
14 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 #   Library General Public License for more details.
16 #
17 #   You should have received a copy of the GNU Library General Public License
18 #   along with this library; see the file COPYING.LIB.  If not, write to
19 #   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 #   Boston, MA 02111-1307, USA.
21 #
22 #----------------------------------------------------------------------------
23 #
24 #  KDE HTML Widget -- Script to generate htmltags.c and htmltags.h
25 #
26 open IN, "htmltags.in"
27   or die "Can't open in\n";
28 open header, ">htmltags.h"
29   or die "Can't open header\n";
30 open out, ">htmltags.gperf"
31   or die "Can't open out\n";
32
33 print out "%{\n/* This file is automatically generated from htmltags.in by maketags, do not edit */\n/* Copyright 1999 Lars Knoll */\n#include \"htmltags.h\"\n%}\n";
34 print out "struct tags {\n    const char *name;\n    int id;\n};\n%%\n";
35
36 print header "/* This file is automatically generated from
37 htmltags.in by maketags, do not edit */\n/* Copyright 1999 Lars Knoll */\n\n#ifndef KHTML_TAGS_H\n#define KHTML_TAGS_H\n\n#include \"dom/dom_string.h\"\n\n";
38
39 print header "DOM::DOMString getTagName(unsigned short id);\n";
40
41 $num = 0;
42 while (<IN>) {
43     chomp;
44     $attr = $_;
45     $num = $num + 1;
46     $up = uc($attr);
47     push(@a, "    \"$up\",");
48     push(@b, "    \"/$up\",");
49     $up =~ s/-/_/;
50     print out $attr . ", ID_" . $up . "\n";
51     print header "#define ID_" . $up . " " . $num . "\n";
52 }
53 print out "anchor, ID_A\n";
54 print out "image, ID_IMG\n";
55 print out "listing, ID_PRE\n";
56 $num = $num+1;
57 print header "#define ID_TEXT $num\n";
58 $num = $num+1;
59 print header "#define ID_COMMENT $num\n";
60 print header "#define ID_CLOSE_TAG $num\n";
61 print header "#define ID_LAST_TAG $num\n";
62
63 print out "%%\n";
64 close out;
65 print header "\n#endif\n";
66 close header;
67
68 my $result = system("/bin/sh", "-c", "gperf -a -L 'ANSI-C' -D -E -C -l -o -t -k '*' -NfindTag -Hhash_tag -Wwordlist_tag htmltags.gperf > htmltags.c");
69 if ($result) {
70   unlink "htmltags.c";
71   exit $result;
72 }
73
74 open(OUT, ">>htmltags.c");
75 print OUT "\n\nstatic const char * const tagList[] = {\n";
76 print OUT "\"\",\n";
77 while(defined ($line = shift @a))
78 {
79     print OUT $line."\n";
80 }
81 print OUT "\"TEXT\",\n";
82 print OUT "\"COMMENT\",\n";
83 while(defined ($line = shift @b))
84 {
85     print OUT $line."\n";
86 }
87 print OUT "    0\n};\n";
88 print OUT "DOM::DOMString getTagName(unsigned short id)\n{\n";
89 print OUT "    if(id > ID_CLOSE_TAG*2) id = ID_CLOSE_TAG+1;\n";
90 print OUT "    return DOM::DOMString(tagList[id]);\n";
91 print OUT "}\n";