intex9c.c

Go to the documentation of this file.

#include "stack-c.h"

extern int as2osc  __PARAMS((char *thechain));

/*--------------------------------------------------------
 * A string argument passed to as2osc
 *--------------------------------------------------------*/

int intex9c(fname)
     char* fname;
{ 
  int l1,m1,n1;
  static int minlhs=1, minrhs=1, maxlhs=1, maxrhs=1;

  CheckRhs(minrhs,maxrhs) ;
  CheckLhs(minlhs,maxlhs) ;

  GetRhsVar( 1, "c", &m1, &n1, &l1);

  as2osc(cstk(l1));

  LhsVar(1) = 1;
  return(0);
}

---