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 4bb1bea0af8b0e8620f580785347a117bdb0c037..44ec2a8f780afacd378be030352c2f1a925b4eaf 100644 (file)
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
@@ -1,9 +1,8 @@
-(* Copyright (C)  DooM 2D:Forever Developers
+(* Copyright (C)  Doom 2D: Forever Developers
  *
  * 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
@@ -41,7 +40,8 @@ procedure cbufClear ();
 
 var
   conbufDumpToStdOut: Boolean = false;
-
+  conbufConPrefix: Boolean = true;
+  conbufStdOutRawMode: Boolean = false;
 
 implementation
 
@@ -78,7 +78,13 @@ begin
     begin
       for np := 0 to count-1 do
       begin
-        if needCon then begin write(stdout, 'CON: '); needCon := false; end;
+        if needCon then
+        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;