X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_io.c;h=dc5a9dc8cb85a1a20461ede5b4ce7b412d27aea7;hb=419d914ec44e5355d7f9446c98730ee0454acb26;hp=3f5790235931dc663f756a3a1b95dc454276e925;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth

diff --git a/csrc/pf_io.c b/csrc/pf_io.c
index 3f57902..dc5a9dc 100644
--- a/csrc/pf_io.c
+++ b/csrc/pf_io.c
@@ -39,7 +39,7 @@ void ioTerm( void )
 */
 void ioEmit( char c )
 {
-	int32 Result;
+	cell_t Result;
 	
 	Result = sdTerminalOut(c);
 	if( Result < 0 ) EXIT(1);
@@ -61,9 +61,9 @@ void ioEmit( char c )
 /***************************************************************
 ** Send an entire string..
 */
-void ioType( const char *s, int32 n )
+void ioType( const char *s, cell_t n )
 {
-	int32 i;
+	cell_t i;
 
 	for( i=0; i<n; i++)
 	{
@@ -74,9 +74,9 @@ void ioType( const char *s, int32 n )
 /***************************************************************
 ** Return single character from input device, always keyboard.
 */
-cell ioKey( void )
+cell_t ioKey( void )
 {
-	cell c;
+	cell_t c;
 	sdEnableInput();
 	c = sdTerminalIn();
 	sdDisableInput();
@@ -87,9 +87,10 @@ cell ioKey( void )
 ** Receive line from keyboard.
 ** Return number of characters enterred.
 */
-#define BACKSPACE  (8)
+#define SPACE      (0x20)
+#define BACKSPACE  (0x08)
 #define DELETE     (0x7F)
-cell ioAccept( char *buffer, cell maxChars )
+cell_t ioAccept( char *buffer, cell_t maxChars )
 {
 	int c;
 	int len;
@@ -135,6 +136,7 @@ DBUGX(("ioAccept(0x%x, 0x%x)\n", buffer, len ));
 
 gotline:
 	sdDisableInput();
+	sdTerminalEcho( SPACE );
 
 /* NUL terminate line to simplify printing when debugging. */
 	if( len < maxChars ) p[len] = '\0';
@@ -155,7 +157,7 @@ gotline:
 FileStream *PF_STDIN;
 FileStream *PF_STDOUT;
 
-int32  sdInputChar( FileStream *stream )
+cell_t  sdInputChar( FileStream *stream )
 {
 	UNIMPLEMENTED("sdInputChar");
 	TOUCH(stream);
@@ -169,12 +171,12 @@ FileStream *sdOpenFile( const char *FileName, const char *Mode )
 	TOUCH(Mode);
 	return NULL;
 }
-int32 sdFlushFile( FileStream * Stream  )
+cell_t sdFlushFile( FileStream * Stream  )
 {
 	TOUCH(Stream);
 	return 0;
 }
-int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  ) 
+cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  ) 
 { 
 	UNIMPLEMENTED("sdReadFile");
 	TOUCH(ptr);
@@ -183,7 +185,7 @@ int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )
 	TOUCH(Stream);
 	return 0; 
 }
-int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )
+cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  )
 { 
 	UNIMPLEMENTED("sdWriteFile");
 	TOUCH(ptr);
@@ -192,7 +194,7 @@ int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )
 	TOUCH(Stream);
 	return 0; 
 }
-int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode ) 
+cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode ) 
 { 
 	UNIMPLEMENTED("sdSeekFile");
 	TOUCH(Stream);
@@ -200,17 +202,24 @@ int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode )
 	TOUCH(Mode);
 	return 0; 
 }
-int32 sdTellFile( FileStream * Stream ) 
+cell_t sdTellFile( FileStream * Stream ) 
 { 
 	UNIMPLEMENTED("sdTellFile");
 	TOUCH(Stream);
 	return 0; 
 }
-int32 sdCloseFile( FileStream * Stream ) 
+cell_t sdCloseFile( FileStream * Stream ) 
 { 
 	UNIMPLEMENTED("sdCloseFile");
 	TOUCH(Stream);
 	return 0; 
 }
+
+FileStream *sdDeleteFile( const char *FileName )
+{
+	UNIMPLEMENTED("sdDeleteFile");
+	TOUCH(FileName);
+	return NULL;
+}
 #endif