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 21use warnings; 22use strict; 23 24my $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 34while (<>) 35{ 36 if (m/host_to_ccid_16/) 37 { 38 print $text; 39 <>; 40 next; 41 } 42 print; 43} 44