MacOSX/convert_reader_h.pl

   1 #!/usr/bin/env perl
   2
   3 #    convert_reader_h.pl: convert reader.h.in in reader.h with
   4 #
   5 #    Copyright (C) 2008  Ludovic Rousseau  <ludovic.rousseau@free.fr>
   6 #
   7 #    This program is free software; you can redistribute it and/or modify
   8 #    it under the terms of the GNU General Public License as published by
   9 #    the Free Software Foundation; either version 2 of the License, or
  10 #    (at your option) any later version.
  11 #
  12 #    This program is distributed in the hope that it will be useful,
  13 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 #    GNU General Public License for more details.
  16 #
  17 #    You should have received a copy of the GNU General Public License along
  18 #    with this program; if not, write to the Free Software Foundation, Inc.,
  19 #    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20
  21 use warnings;
  22 use strict;
  23
  24 my $text =
  25 "#ifdef __BIG_ENDIAN__
  26 #define HOST_TO_CCID_16(x) ((((x) >> 8) & 0xFF) + ((x & 0xFF) << 8))
  27 #define HOST_TO_CCID_32(x) ((((x) >> 24) & 0xFF) + (((x) >> 8) & 0xFF00) + ((x & 0xFF00) << 8) + (((x) & 0xFF) << 24))
  28 #else
  29 #define HOST_TO_CCID_16(x) (x)
  30 #define HOST_TO_CCID_32(x) (x)
  31 #endif
  32 ";
  33
  34 while (<>)
  35 {
  36         if (m/host_to_ccid_16/)
  37         {
  38                 print $text;
  39                 <>;
  40                 next;
  41         }
  42         print;
  43 }