var/external/bufr/preproc.sh.ok

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