X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fconbuf.pas;h=44ec2a8f780afacd378be030352c2f1a925b4eaf;hb=3fa3726fe9bf1c40052f2002e6b8b7f0337e1a68;hp=4bb1bea0af8b0e8620f580785347a117bdb0c037;hpb=58b15f7d5aee8dc280a2e407c11a1f0448eea7ef;p=d2df-sdl.git diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas index 4bb1bea..44ec2a8 100644 --- 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;