Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 991 → Rev 992

/trunk_dos/OIDFILE.PAS
3,7 → 3,7
(************************************************)
(* OIDFILE.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-19 *)
(* Revision: 2022-10-10 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - Functions to handle an OID ASCII format *)
252,9 → 252,12
 
if cmd = 'DESC' then
begin
if Length(oid^.Description) + Length(line) + 2 <= 255 then
begin
oid^.Description := oid^.Description + line + #13#10;
end;
end;
end;
 
(* Sort sub IDs *)
ListBubbleSortSubIds(oid);
/trunk_dos/OIDPLUS.EXE
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk_dos/OIDPLUS.PAS
3,7 → 3,7
(************************************************)
(* OIDPLUS.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-09-26 *)
(* Revision: 2022-10-10 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - "OIDplus for DOS" program *)
22,7 → 22,7
Weid;
 
const
VERSIONINFO = 'Revision: 2022-09-26';
VERSIONINFO = 'Revision: 2022-10-10';
TITLEBAR_LEFT_TEXT = 'OIDplus';
DISKIO_SOUND_DEBUGGING = false;
DISKIO_SOUND_DELAY = 500;
813,6 → 813,7
if Trim(oid^.Description) <> '' then
begin
(* WriteLn('Description:'); *)
(* TODO: We should avoid that this is more than 10 lines *)
WriteLn(oid^.Description);
WriteLn('');
end
/trunk_dos/STRLIST.PAS
3,7 → 3,7
(************************************************)
(* STRLIST.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-19 *)
(* Revision: 2022-10-10 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - StringList implementation for Turbo Pascal *)
270,11 → 270,18
var
p: integer;
begin
str := str + separator;
repeat
p := Pos(separator, str);
if p = 0 then
begin
ListAppend(list, str);
Exit;
end
else
begin
ListAppend(list, Copy(str, 1, p-1));
str := copy(str, p+Length(separator), Length(str)-p);
end;
until str = '';
end;
 
/trunk_dos/TODO.TXT
2,6 → 2,11
TODO:
* (See "TODO" entries in the *.pas files)
 
KNOWN BUGS:
- If you write an OID description with a linebreak (very long line), then do multiple Shift+Return
(to make line breaks), and then press backspace, then everything is messed up
- If you fill a description with 255 characters, then the last 4 are not getting written. why?
 
IDEAS:
* If you call OIDPLUS.EXE with an argument to a .OID file, then open this OID
* TreeView: Write to StringList (avoid recursive calls) and save StringList to file
9,3 → 14,5
* Implement RAs
* Implement Create/Update timestamps? (people must be able to predate it)
* Data exchange between OIDplus for Win95 and OIDplus 2.0 ?
* XML Export to OID-Info.com
 
/trunk_dos/VTSCUI.PAS
3,7 → 3,7
(************************************************)
(* VTSCUI.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-27 *)
(* Revision: 2022-10-10 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - ViaThinkSoft CUI (Console User Interface) *)
67,6 → 67,7
s := str;
for i := Length(str) to len-1 do
begin
if Length(s) >= 255 then break;
s := s + c;
end;
FillRight := s;
458,11 → 459,21
begin
if stmp[i] = #10 then
begin
if Length(s) >= 255 then
begin
Beep;
continue;
end;
s := s + stmp[i];
continue;
end;
 
GoToXY(x,y);
if Length(s) >= 255 then
begin
Beep;
continue;
end;
s := s + stmp[i];
Write(stmp[i]);
Inc(x);
547,6 → 558,11
Beep;
continue;
end;
if Length(s) >= 254 then
begin
Beep;
continue;
end;
s := s + #13 + #10;
x := initX;
Inc(y);
569,6 → 585,11
Beep;
continue;
end;
if Length(s) >= 255-Length(sc)+1 then
begin
Beep;
continue;
end;
s := s + sc;
Write(sc);
Inc(x);