#!/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