# Used in lang_header
# Copyright (C) 2000 by Peter J. Gawthrop

case $2 in
    zero)
	  strip_comments <$1_sympar.txt  |\
          awk '{
          i++; printf("  %s %s = 0.0;\n", decl, tolower($1));
          }' decl=$3
          i++; printf("  %s %s = 0.0;\n",  tolower($1));
          }' 
	;;
    set)
	  strip_comments <$1_sympar.txt  |\
         awk '{
           i++; printf("  %s mttpar(%i) \t= %s;\n", decl, i, tolower($1));
         }' decl=$3
           i++; printf("  %s mttpar(%i) \t= %s;\n", i, tolower($1));
         }' 
        ;;
    *)
         strip_comments <$1_sympar.txt  |\
         awk '{
           i++; printf("  %s %s \t= mttpar(%i);\n", decl, tolower($1), i);
         }' decl=$3
           i++; printf("  %s %s \t= mttpar(%i%s);\n", decl, tolower($1), i, minusone);
         }' decl="$3" minusone="$4"
	;;
esac