console: read commands from stdin in headless mode

[d2df-sdl.git] / src / shared / conbuf.pas

diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas
index bc7a8f7d7054803327859f9522af7e5ac138b4be..44ec2a8f780afacd378be030352c2f1a925b4eaf 100644 (file)
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
@@ -41,7 +41,7 @@ procedure cbufClear ();
 var
   conbufDumpToStdOut: Boolean = false;
   conbufConPrefix: Boolean = true;
-
+  conbufStdOutRawMode: Boolean = false;
 
 implementation
 
@@ -83,6 +83,8 @@ begin
           if conbufConPrefix then write(stdout, 'CON: ');
           needCon := false;
         end;
+        if conbufStdOutRawMode and (buf[np] = #10) then
+          write(stdout, #13); // force carriage return in raw mode
         write(stdout, buf[np]);
         needCon := (buf[np] = #10);
       end;