wrfv2_fire/external/RSL/RSL/generate_invoke.csh

   1 # generates the case statement in invoke_pf.F
   2 # Usage:  generate_invoke.csh n
   3 #
   4 # where n is the number of cases to generate.
   5 #
   6 onintr cleanup
   7
   8 /bin/rm -f /tmp/foo1.$$
   9
  10 set n = $1
  11
  12 set i = 0
  13 while ( $i < $n )
  14   echo "," >> /tmp/foo1.$$
  15   @ i += 1
  16 end
  17
  18 set i = 0
  19 while ( $i < $n )
  20   @ ii = $i + 1
  21   sed "$ii,${n}s/.*,/&A($i),/" /tmp/foo1.$$ > /tmp/foo2.$$
  22   /bin/mv /tmp/foo2.$$ /tmp/foo1.$$
  23   @ i += 1
  24 end
  25
  26 cat -n /tmp/foo1.$$ | \
  27 sed -e 's/^/case/' -e 's/       / : /' -e 's/,/(*f)(/' -e 's/,$/); break ;/' \
  28 > /tmp/foo2.$$
  29
  30 echo 'case     0 : (*f)() ; break ;'
  31 cat /tmp/foo2.$$
  32
  33
  34 cleanup:
  35
  36 /bin/rm -f /tmp/foo[12].$$
  37