/packages/gtk2/src/gtk2x11/scripts/gdkx11_h2pas.sh

 1#!/usr/bin/env bash
 2
 3#set -x
 4set -e
 5
 6# make sure, we are in the right directory
 7cd ../scripts
 8
 9CHeaderDir=../c_src/x11
10PascalIncDir=../include
11HTmpFile=temp.h
12PasTmpFile=temp.inc
13
14HFiles=$(ls $CHeaderDir/*.h)
15for HFile in $HFiles; do
16  echo $HFile
17  ShortHFile=$(echo $HFile | sed -e 's#.*/##')
18  ShortPascalFile=$(echo $ShortHFile | sed -e 's#\.h$#.inc#')
19  echo $ShortPascalFile
20  PascalFile=$PascalIncDir/$ShortPascalFile
21  cat $HFile | sed \
22    -e 's#G_BEGIN_DECLS##g' \
23    -e 's#G_END_DECLS##g' \
24    -e 's#G_CONST_RETURN#const#g' \
25    > $HTmpFile
26
27  h2pas -d -e -i -p -t -o $PasTmpFile $HTmpFile
28  cat $PasTmpFile | sed \
29    -e 's#\bT\(gint\)\b#\1#g' \
30    -e 's#\bT\(guint\)\b#\1#g' \
31    -e 's#\bT\(gboolean\)\b#\1#g' \
32    -e 's#\bT\(glong\)\b#\1#g' \
33    -e 's#\bT\(gulong\)\b#\1#g' \
34    -e 's#\bT\(gchar\)\b#\1#g' \
35    -e 's#\bT\(guchar\)\b#\1#g' \
36    -e 's#\bT\(gshort\)\b#\1#g' \
37    -e 's#\bT\(gushort\)\b#\1#g' \
38    -e 's#\bT\(gfloat\)\b#\1#g' \
39    -e 's#\bT\(gdouble\)\b#\1#g' \
40    -e 's#\bT\(gpointer\)\b#\1#g' \
41    -e 's#\bT\(gconstpointer\)\b#\1#g' \
42    -e 's#\bT\(guint32\)\b#\1#g' \
43    > $PascalFile
44done
45
46
47# end.
48