52 lines
867 B
C
52 lines
867 B
C
#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);
|
|
}
|
|
}
|