#include <ctype.h>
#include <system.h>
#include "em_decl.h"
#include "as.h"


assemble( str)
char *str;
{
	char buf[512] , *b_ptr, *arg_format();
	int nr;

	b_ptr = buf;

	out( "fprint( codefile,\"");

	while ( *str) {
		switch  ( *str) {
		  case '$' :   if ( *(str+1) == '$') {
				        *b_ptr++ = '$';
					str = str + 2;
			       	}
			      	else {
					nr = atoi( str+1) - 1;
					*b_ptr = '\0';
					out( "%s%s\", %s);", buf,
						   arg_format( nr),
						   C_instr_info->arg_conv[nr]);
				        out( "fprint( codefile,\"");
					b_ptr = buf;
					str = str + 2;
				}
				break;
		  default  :    *b_ptr++ = *str++;
		}
	}

	*b_ptr = '\0';
	out( "%s\\n\");\n", buf);
}


char *arg_format( nr)
int nr;
{
	switch ( C_instr_info->arg_type[nr]) {
	  case ARITH : return( ARITH_FMT);
	  case STRING: return( "%s");
	  case INT   : return( INT_FMT);
	}
}