typedef comparision table

[musl-tables] / inctags.sh

diff --git a/inctags.sh b/inctags.sh
new file mode 100755 (executable)
index 0000000..c4c927d
--- /dev/null
+++ b/inctags.sh
@@ -0,0 +1,44 @@
+#!/bin/sh
+
+export LC_ALL=C
+
+dotags() {
+(
+       cd $1
+#      ctags -f /tmp/inc.tags -R -n -u --language-force=c --c-kinds=pxdstuv --fields=k --exclude='*.sh' --exclude .
+       ctags -f /tmp/inc.tags -R -n -u --links=no --langmap='c:.c.h' --languages=c --c-kinds=pxdstuv --fields=k --exclude='*.c' .
+#      # fix wchar_t bug of ctags
+#      awk '/typedef.* wchar_t/{print "wchar_t\tbits/alltypes.h\t" NR ";\"\tt"}' bits/alltypes.h >>/tmp/musl.tags
+)
+awk -v path=$1/ '
+BEGIN {
+       FS="\t"
+}
+function proto(t,h,n) {
+       cmd = "awk '\''NR==" n
+       if (t == "p")
+               cmd = cmd "{s=$0; if(s!~/;/){getline; s=s \" \" $0} print s; exit}"
+       else if (t == "d")
+               cmd = cmd "{s=$0; while(gsub(/\\\\$/,\"\",s)){getline; s=s $0} print s; exit}"
+       else
+               return ""
+       cmd = cmd "'\'' " path h
+       cmd | getline s
+       close(cmd)
+       gsub(/\t/, " ", s)
+       gsub(/ +/, " ", s)
+       return s
+}
+/^[^!]/ {
+       gsub(/[^0-9]*/,"",$3)
+       if ($4 == "s")
+               $1 = "struct " $1
+       if ($4 == "u")
+               $1 = "union " $1
+       print $1 "\t" $2 "\t" $4 "\t" $3 "\t" proto($4,$2,$3)
+}' /tmp/inc.tags |sort
+rm -f /tmp/inc.tags
+}
+
+dotags ../../lang/c/glibc >data/glibc.inc.tags
+dotags ../musl >data/musl.inc.tags