source: git/factory/ftest/totaldegree.m4 @ a40e7b

/* emacs edit mode for this file is -*- C++ -*- */
/* $Id: totaldegree.m4,v 1.4 1998-04-06 10:49:17 schmidt Exp $ */

ftestSetNameOfGame( totaldegree, `"
Usage: totaldegree [<options>] [<envSpec>] <f> [<x> <y>]
  calculates total degree of canonical form <f>.  If the
  variables <x> and <y> are specified, calculates total
  degree of <f> with respect to the polynomial variables
  between <x> and <y> (inclusively).
"'`' )

//{{{ docu
//
// ftestAlgorithm.m4 - ftestAlgorithm test program.
//
// To create ftestAlgorithm.cc, run m4 using the ftest_util.m4 library in
// the following way:
//
// m4 ftest_util.m4 ftestAlgorithm.m4 > ftestAlgorithm.cc
//
//}}}

ftestPreprocInit();

ftestGlobalInit();

//
// - main program.
//
int
main ( int argc, char ** argv )
{
    // initialization
    ftestMainInit();

    // declare input and output variables
    ftestOutVar( int, result );
    ftestInVar( CanonicalForm, f );
    ftestInVar( Variable, x );
    ftestInVar( Variable, y );

    // process argument list and set environment
    ftestGetOpts();
    ftestGetEnv();
    ftestGetInVar( f );
    ftestGetInVar( x, Variable() );
    ftestGetInVar( y, Variable() );

    // do the test!
    if ( ftestArgGiven( x ) ) {
        ftestRun( result = totaldegree( f, x, y ); );
    } else {
        ftestRun( result = totaldegree( f ); );
    }

    // print results
    if ( ftestArgGiven( x ) ) {
        ftestOutput( "totaldegree(f, x, y)", result );
    } else {
        ftestOutput( "totaldegree(f)", result );
    }

    // clean up
    ftestMainExit();
}