Skip to content

Commit c3ad0d8

Browse files
committed
new build time format in LST file header for modern parsers
1 parent fd337df commit c3ad0d8

5 files changed

Lines changed: 20 additions & 15 deletions

File tree

utilities/makelist/makelist.lpi

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@
1717
<UseVersionInfo Value="True"/>
1818
<MajorVersionNr Value="1"/>
1919
<MinorVersionNr Value="4"/>
20-
<RevisionNr Value="1"/>
20+
<RevisionNr Value="2"/>
2121
<StringTable LegalCopyright="(c) 2025-2026 Jerome Shidel" ProductName="The List Release File Assembler" ProductVersion="1.0"/>
2222
</VersionInfo>
2323
<BuildModes>

utilities/makelist/makelist.lpr

Lines changed: 11 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -154,11 +154,16 @@ procedure CommentOrphans;
154154
procedure SetHeader(Title : String; Part : integer = 0; Total : integer = 0);
155155
begin
156156
if LegacyMode then Title:=UpperCase(Title);
157-
if Part + Total = 0 then
158-
Header:=RightPad(Title, TitleWidth) + TAB +
159-
RightPad(ReleaseVersion, 14) + TAB +
160-
'Last Change ' + LastChange
161-
else
157+
if Part + Total = 0 then begin
158+
if LegacyMode then begin
159+
Header:=RightPad(Title, TitleWidth) + TAB +
160+
RightPad(ReleaseVersion, 14) + TAB +
161+
'Last Change ' + LastChange;
162+
end else begin
163+
Header:=Title + SPACE4 + ReleaseVersion + SPACE4 +
164+
'Last Change ' + LastChange;
165+
end;
166+
end else
162167
Header:=Title + COMMA + SPACE + 'part ' + IntToStr(Part) + ' of ' +
163168
IntToStr(Total);
164169
if HeaderData <> '' then
@@ -904,7 +909,7 @@ procedure Build;
904909
if LegacyMode then
905910
LastChange:=Lowercase(FormatDateTime('ddmmmYY', BuildTime))
906911
else
907-
LastChange:=Lowercase(FormatDateTime('ddmmmYY hh:nn', BuildTime));
912+
LastChange:=FormatDateTime('yyyy-mm-dd hh:nn"Z" mmm ddd', BuildTime);
908913
TitleWidth:=0;
909914
for I := 0 to High(DOSNAMES) do
910915
if Length(DOSNAMES[I].Name) > TitleWidth then

utilities/makelist/makelist.lps

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -8,9 +8,9 @@
88
<Filename Value="makelist.lpr"/>
99
<IsPartOfProject Value="True"/>
1010
<IsVisibleTab Value="True"/>
11-
<TopLine Value="152"/>
12-
<CursorPos X="59" Y="392"/>
13-
<FoldState Value=" T3Q0921912 pnIoV0S015 pigkN0{01[N4lGoJ033 PiXi10u"/>
11+
<TopLine Value="102"/>
12+
<CursorPos X="64" Y="137"/>
13+
<FoldState Value=" T3Q092151312 pn5oa0S015 pigkN0{01[N4lGoJ032 PWL0_"/>
1414
<UsageCount Value="208"/>
1515
<Loaded Value="True"/>
1616
</Unit>
@@ -78,10 +78,6 @@
7878
</Unit>
7979
</Units>
8080
<JumpHistory HistoryIndex="29">
81-
<Position>
82-
<Filename Value="makelist.lpr"/>
83-
<Caret Line="542" TopLine="402"/>
84-
</Position>
8581
<Position>
8682
<Filename Value="makelist.lpr"/>
8783
<Caret Line="1303" Column="52" TopLine="1059"/>
@@ -198,6 +194,10 @@
198194
<Filename Value="cfgmap.pas"/>
199195
<Caret Line="19" Column="31"/>
200196
</Position>
197+
<Position>
198+
<Filename Value="makelist.lpr"/>
199+
<Caret Line="907" Column="11" TopLine="873"/>
200+
</Position>
201201
</JumpHistory>
202202
<RunParams>
203203
<FormatVersion Value="2"/>

utilities/makelist/makelist.res

0 Bytes
Binary file not shown.

utilities/makelist/version.pp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ interface
1717

1818
const
1919
{ General Application Information }
20-
APP_VERSION: String = '1.4.1';
20+
APP_VERSION: String = '1.4.2';
2121
APP_BUILD: String = '0';
2222
APP_TITLE: String = 'makelist';
2323
APP_LEGALCOPYRIGHT: String = '(c) 2025-2026 Jerome Shidel';

0 commit comments

Comments
 (0)