var/external/bufr/preproc.sh

   1 #!/bin/sh
   2
   3 #-------------------------------------------------------------------------------
   4 #     Determine the byte-ordering scheme used by the local machine.
   5
   6 cat > endiantest.c << ENDIANTEST
   7
   8 #include <stdio.h>
   9
  10 #define Order(x)\
  11         fill((char *)&x, sizeof(x)); \
  12         for (i=1; i<=sizeof(x); i++) { \
  13             c=((x>>(byte_size*(sizeof(x)-i)))&mask); \
  14             putchar(c==0 ? '?' : (char)c); \
  15         } \
  16         printf("\n");
  17
  18 void fill(char *p, int size) {
  19         char *ab= "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  20         int i;
  21
  22         for (i=0; i<size; i++) p[i]= ab[i];
  23 }
  24
  25 void endian(int byte_size) {
  26         int j=0;
  27         unsigned int mask, i, c;
  28
  29         mask=0;
  30         for (i=1; i<=(unsigned)byte_size; i++) mask= (mask<<1)|1;
  31         Order(j);
  32 }
  33
  34 int cprop(void) {
  35         /* Properties of type char */
  36         char c;
  37         int byte_size;
  38
  39         c=1; byte_size=0;
  40         do { c<<=1; byte_size++; } while(c!=0);
  41
  42         return byte_size;
  43 }
  44
  45 int main(void)
  46 {
  47         int byte_size;
  48
  49         byte_size= cprop();
  50         endian(byte_size);
  51 }
  52 ENDIANTEST
  53
  54 $CC -o endiantest endiantest.c
  55
  56 if [ `./endiantest | cut -c1` = "A" ]
  57 then
  58     byte_order=BIG_ENDIAN
  59 else
  60     byte_order=LITTLE_ENDIAN
  61 fi
  62
  63 rm -f endiantest.c endiantest
  64
  65
  66 #-------------------------------------------------------------------------------
  67 #     Preprocess any Fortran *.F90 files into corresponding *.f files.
  68
  69 bn=`basename $1 .for`
  70 bnf=${bn}.f
  71 $CPP $CPPFLAGS -D$byte_order $1 > $bnf
  72
  73 #-------------------------------------------------------------------------------