/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); |