#include <stdio.h>                 
#include <string.h>

#include "stplugin.h"

STDLL stata_call(int argc, char *argv[])
{
	ST_retcode rc ;
	ST_double d ;
	char macname[40] ;	    /* 32 would be enough */
 	char buf[40] ;              

        if(argc != 2) { 
                return(198) ;  	    /* syntax error */
        }

	if(rc = SF_scal_use(argv[0],&d)) return(rc) ;   /* read scalar */

	strcpy(macname,"_") ;	         /* local macro  */
	strcat(macname,argv[1]) ;
	
	sprintf(buf, "%lf", d) ;    /* convert to string */

	if(rc = SF_macro_save(macname,buf)) return(rc) ; /* save macro */

	return(0) ;
}