added char pseudo-function to create non-printable character constants

1 files changed, 14 insertions, 1 deletions

diff --git a/minie/e2c.c b/minie/e2c.c
index e4bfa05..f5394e6 100644
--- a/minie/e2c.c
+++ b/minie/e2c.c
@@ -626,6 +626,12 @@ static void register_internal_functions( void )
 	type.details.function.params[0] = TYPE_ARRAY;
 	type.details.function.internal = 1;
 	insert_symbol( type, "length" );
+	
+	type.type = TYPE_FUNCTION;
+	type.details.function.len = 1;
+	type.details.function.params[0] = TYPE_CHAR;
+	type.details.function.internal = 1;
+	insert_symbol( type, "char" );
 }
 
 static void register_internal_constants( void )
@@ -901,6 +907,7 @@ static void parameterList( void )
 	
 	/* prologue of 1-parameter function or procedure */
 	if( sym != S_comma ) {
+		/* handle internal 0-parameter functions and procedures */
 		/* TODO: add internal function maps as symbols and procedures */
 		if( strcmp( funcName, "length" ) == 0 ) {
 			/* we don't allow expression here, only simple variables */
@@ -908,7 +915,13 @@ static void parameterList( void )
 			emit( "%d", length( varName ) );
 			Expect( S_rparen );
 			return;
-		/* handle internal 0-parameter functions and procedures */
+		/* constructor for non-printable characters */
+		} else if( strcmp( funcName, "char" ) == 0 ) {
+			number( );
+			emit( "(char)%d", num );
+			sym = getSym( );
+			Expect( S_rparen );
+			return;
 		} else if( strcmp( funcName, "system.writeline" ) == 0 ) {
 			emit( "printf( \"%%s\\n\", " );
 		} else if( strcmp( funcName, "system.writestring" ) == 0 ) {