X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fconbuf.pas;h=a3a7ecde8c1a53f7ee7da6e1849b69f5618e1dfb;hb=883536c49995010477bfba3c16e34209e0b4d8ef;hp=4bb1bea0af8b0e8620f580785347a117bdb0c037;hpb=58b15f7d5aee8dc280a2e407c11a1f0448eea7ef;p=d2df-sdl.git diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas index 4bb1bea..a3a7ecd 100644 --- a/src/shared/conbuf.pas +++ b/src/shared/conbuf.pas @@ -1,4 +1,4 @@ -(* 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 @@ -41,6 +41,7 @@ procedure cbufClear (); var conbufDumpToStdOut: Boolean = false; + conbufConPrefix: Boolean = true; implementation @@ -78,7 +79,11 @@ 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; write(stdout, buf[np]); needCon := (buf[np] = #10); end;