mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 11:10:48 +02:00
17 lines
385 B
Bash
17 lines
385 B
Bash
#!/bin/sh
|
|
f=`basename $1 .h`
|
|
sed -f h2p1.sed <$1 >$1.new
|
|
mv $1.new $1
|
|
h2pas -e -S -c -D -l libc -i -p -o $f.out $*
|
|
sed -f h2p2.sed <${f}.out >${f}h.inc
|
|
cat <<EOF >>${f}h.inc
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
// Type
|
|
EOF
|
|
#
|
|
# end of script
|