blob: 13e28e8abc7087c22553522b6292e4ec88e27c76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/bin/tcsh
echo "{ Auto bitmap data }" >bitmaps.pp
echo "Const" > bitmapaddr.pp
echo " BitmapFileData : Array[1..$#] of PAnsiString = (" > bitmapaddr.pp
echo "Const" > filenames.pp
echo " BitmapFileNames : Array[1..$#] of AnsiString = (" > filenames.pp
foreach f ($*)
setenv fn `basename $f .xpm`
setenv fl `cat $f | wc -l`
echo lentgth is $fl
echo " '${fn}'," >>filenames.pp
echo " BitmapData$fn : Array[0..${fl}-5] of AnsiString = ( // $f " >> bitmaps.pp
cat $f | sed 1,3d | sed \$d | tr \" \' | sed "s/^/ /" \
| sed -e 's+/\*+{+g' -e 's+\*/+}+g' >>bitmaps.pp
echo " ); " >> bitmaps.pp
echo " " >> bitmaps.pp
echo " @BitmapData${fn}," >> bitmapaddr.pp
end;
echo " );" >> filenames.pp
echo "" >> filenames.pp
echo " );" >> bitmapaddr.pp
echo "" >> bitmapaddr.pp
cat filenames.pp bitmaps.pp bitmapaddr.pp >out.pp
|
