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 a3a7ecde8c1a53f7ee7da6e1849b69f5618e1dfb..44ec2a8f780afacd378be030352c2f1a925b4eaf 100644 (file)
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
@@ -2,8 +2,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -42,7 +41,7 @@ procedure cbufClear ();
 var
   conbufDumpToStdOut: Boolean = false;
   conbufConPrefix: Boolean = true;
-
+  conbufStdOutRawMode: Boolean = false;
 
 implementation
 
@@ -84,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;