-
Notifications
You must be signed in to change notification settings - Fork 0
/
NoisyAddSimple.pas
416 lines (359 loc) · 13.5 KB
/
NoisyAddSimple.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
{$I NoisyPrefixCode.inc}
{$ifdef mswindows}{$apptype console}{$endif}
Program NoisyAddSimple;
// Simple, quick program to add prefix code at the beginning of every
// Pascal source file in a particular folder and all subfolder, and
// suffix code, at the end of the file. This program is tailored for
// Pascal sources, but the idea could be used with files for any
// programming language.
//
// The compiler does look beyond the last period, so appending
// lines to a file will work
//
// Paul Robinson 2021-12-17
{$mode ObjFPC}{$H+}
uses
windows, SysUtils;
Const
// Text to insert at TOP of file
PrefixText: Array [1..10] of String = (
'{.Noisy - Header AutoGenerated ', //< post processor will close comment
'{.Noisy} {$IFDEF Noisy}',
'{.Noisy} {$INFO Entered ', //< post processor adds file name here
'{.Noisy} {$ENDIF}',
'',
'',
'',
'',
'',
''
);
// text to insert at BOTTOM of file
SuffixText: Array [1..10] of String = (
'{.Noisy - Footer AutoGenerated ', //< postprocessor will close comment
'{.Noisy} {$IFDEF Noisy}',
'{.Noisy} {$INFO ', //< postprocessor adds file name here
'{.Noisy} {$ENDIF}',
'',
'',
'',
'',
'',
''
);
// These are the extensiobns we search
Extensions: Array[1 .. 5] of String =(
'pp',
'pas',
'inc',
'',
''
);
// Standard months of year
Months: array[1..12] of string[9]=
('January', 'February','March', 'April',
'May', 'June', 'July', 'August',
'September','October', 'November', 'December');
// Standard days of week
Days: Array[0..6] of string[9]=
('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
path = '*'; //< file names to pick up
Attr = faAnyFile ; //< take any file name
SlashChar = '\'; //< directory separator
Zero = Ord('0'); //< Character 0
// verbosity options
Verbose_NoCountFiles = 1; //< no running total
Verbose_ShowFiles = 2; //< show file names
Verbose_CountLines = 4; //< show file lines (implies 2)
Verbose_CountDirs = 8; //< count directories
Verbose_ShowDirs = 16; //< show directory names
Type
{$IFDEF Bits64}
LargeInt = Int64;
{$ELSE}
{$IFDEF Bits32}
LargeInt = Integer;
{$ELSE}
{$PATAL Must define BITS64 or BITS32}
{$ENDIF}
{$ENDIF}
Var
// options
IR, //< IOResult save
GlobalFileCount, //< Files processed for running count
DirectoryCount:Integer; //< Directories Found
Infile, //< Source file
Outfile: text; //< Output File
EndTS, //< Completion Time Stamp
TS: SystemTime; //< Start time stamp
TimeStamp: String; //< Text of time stamp
// Converts a file name into directory, name, extension.
// This removes the dot in the extension. To keep it,
// remove the // in front of Ext := and insert it in
// the line after it
procedure SplitPath(const Path: UnicodeString; var Folder,
Name,
Ext: UnicodeString);
var
i, //< Loop counter for location of separators
DotPos, //< Posiyion of . in filename
SlashPos: Integer; //< Pos. of directory separator
begin
Folder := '';
Name := Path;
Ext := '';
DotPos := 0;
SlashPos := 0;
for i := Length(Path) downto 1 do
if (Path[i] = '.') and (DotPos = 0) then
DotPos := i
else if (Path[i] = SlashChar) and (SlashPos = 0) then
SlashPos := i;
if DotPos > 0 then
// The file name contains a period
begin
Name := Copy(Path, 1, DotPos - 1);
// Ext := LowerCase(Copy(Path, DotPos, Length(Path) - DotPos + 1));
Ext := LowerCase(Copy(Path, DotPos+1, Length(Path) - DotPos + 1));
end;
if SlashPos > 0 then
// The file name contains a directory separator character
begin
Folder := Copy(Path, 1, SlashPos);
Name := Copy(Path, SlashPos + 1, Length(Name) - SlashPos);
end;
end;
// creates a text timestamp
Function CTS(Const CTime:SystemTime): AnsiString;
begin
Result := Days[CTime.dayOfWeek]+
' '+Months[CTime.month]+
' '+IntToStr(CTime.day)+
', '+IntToStr(CTime.year)+
' '+IntToStr(CTime.Hour)+
':';
if CTime.Minute < 10 then Result := Result+'0';
Result := Result+ IntToStr(CTime.Minute)+':';
if CTime.Second < 10 then Result := Result+'0';
Result := Result+ IntToStr(CTime.Second);
end;
Function Plural(N:Integer; Plu:String; Sng: String): string;
Var
s:String;
Begin
S := IntToStr(N);
S := ' '+S+' ';
If n<>1 Then
Result:= S+ Plu
Else
Result := S + Sng;
End; // Function Plural
// Recursively scan directories
Procedure ScanFiles(
Const Prefix: UnicodeString); //< from where are we searching?
var
Rslt: TUnicodeSearchRec; //< since this proc is recursive,
//< this must be local
J, //< Loop counter for # of lines inserted
i, //< Loop counter for # of extensions processed
LineCount: Integer;
FullName, //< Full name of input file
Backup, //< Name of backup file
Line, //< A line read from the input file
TheFilePath, //< File name split into path
TheNameOnly, //< File Name w/o extenion
TheExtension: UnicodeString; //< File Name extension
// Determine if a file is a directory
Function isDirectory: boolean;
begin
result := (rslt.Attr And faDirectory) = faDirectory;
end; // Function isDirectory
// try to put file back if there was am error
procedure putback;
begin // try to put file back
close(infile);
if renameFile(backup,FullName) then // we did
Writeln('?Error ',IR,' Unable to read file "',
FullName,'" file skipped')
else // can't put it back
Writeln('Unable to restore file "',
FullName,'", renamed to ',Backup,
'" file skipped');
end; // procedure putback;
// the real "meat" of this program. Recursively scan all directories
// to find the files having the extensions we use
begin //< procedure scanfiles
// Each time we enter this procedure, we have found another directory
Inc(DirectoryCount);
// Open the directory and get first file
// this will probably be . or ..
If FindFirst(Prefix+Path,Attr,rslt) = 0 Then
// If there are any files, pick them
Repeat
// skip parent directory and self
If (rslt.Name = '.') Or (rslt.Name = '..') Then
continue;
if isDirectory then //< don't collect directory
//< but do scan it
begin
ScanFiles(prefix+rslt.Name+SlashChar) //< recursive search
end
else // NOT a directory
begin // split the file name into components
SplitPath(rslt.name,TheFilePath,TheNameOnly,TheExtension);
// search the array of preferred extensions
For I := 1 to 5 do
if Extensions[I]<>'' then //< check this extension
If theExtension = Extensions[I] then //< found it
begin //< We do want this one
FullName := Prefix+rslt.name; //< Get the original name
Backup := FullName + '.bak'; //< Get the nackup name
// rename to Fullname + .bak, e.g pascal.pas.bak
if FileExists(Backup) then
// erase old backup
If not DeleteFile(Backup) then
// Error deleting previous backup
begin
Writeln('Uname to delete backup of "',
FullName,'" file skipped');
break; // exit FOR loop
end;
// If we can't rename the file to the baxkup
// name, that's an error so bail out
if not renameFile(FullName,backup) then
begin
// tell them cam't backup
Writeln('Unable to backup file "',
FullName,'" file skipped');
// bail
break; //< exit FOR loop
end;
// Open the source for reading
Assign(Infile,Backup);
FileMode := 0; // open input file read only
{$I-} Reset(Infile); {$I+}
IR := IOResult; //< Check if error
if IR<>0 then //< sorry, error
begin // try to put it back
putback;
break;
end;
// if we are here, start copying
Assign(Outfile,Fullname); // name replacement
{$I-} Rewrite(Outfile); {$I+} // create replacement
IR := IOResult;
if IR<>0 then // then there's an error
begin // try to put it back
putback;
break;
end;
// Now we insert cvustomized message per file
For J := 1 to 10 do
if PrefixText[J]<>'' then // don't insert null items
begin
write(outfile,PrefixText[J]);
Case J of
1: write(outfile,Timestamp,'}');
3: write(outfile,fullname,'}');
end;
Writeln(outfile);
end;
// now we can copy the file
while not eof(infile) do
begin
Readln(Infile, Line);
writeln(outfile, Line);
end;
// Insert Footer
For J := 1 to 10 do
if SuffixText[J]<>'' then // don't insert null items
begin
write(outfile,SuffixText[J]);
Case J of
1: write(outfile,Timestamp,'}');
3: write(outfile,fullname,' exited }');
end;
Writeln(outfile);
end;
Close(OutFile); // Sve the new file
Close(Infile);
inc(GlobalFileCount);
Write(' ',#13,globalFileCount,#13);
break
end; // If TheExtension
end;
// get the next file
Until FindNext(rslt) <> 0; // If, Repeat
FindClose(rslt);
end; //< procedure scanfiles
Procedure Banner;
begin
Writeln('NoisyAddSimple - Add compiler flags to Pascal source files');
writeln('Preparing to mark all .pas. .pp, and .inc files in this ');
Writeln('directory and all subdirectories.');
Writeln;
writeln('If you have run this by mistake, run NoisyDelSimple ');
writeln('or Noisy to reverse any changes.');
writeln('Started: ',TimeStamp,', please wait...');
end; // rocedure Banner
Procedure Elapsed(CONST StartTime,EndTime: SystemTime);
Var
H,M,S,MS: Integer;
TimeString: String;
Begin
// Now tell them how long it took
// Presumably this program did not run for days...
H := EndTime.Hour;
if StartTime.Hour < EndTime.Hour then
h:=H + 24;
h := h - StartTime.Hour;
M := EndTime.Minute ;
if M < StartTime.minute then
begin
H := H-1;
M := M+60;
end;
M := M - StartTime.minute;
S := EndTime.second ;
if S < StartTime.second then
BEGIN
M := M-1;
S := S+60;
END;
S := S-StartTime.second;
MS := EndTime.MilliSecond;
IF MS < StartTime.MilliSecond then
begin
MS := MS+1000;
S := S-1;
end;
MS := MS-StartTime.MilliSecond;
// we won't bother with days,
// nobody is going to process something taking that long
TimeString := ''; // Make sure it has nothing left over
If H >0 then
Timestring := Plural(H,'hours','hour')+' ';
If M >0 then
Timestring := TimeString + Plural(M,'minutes','minute')+' ';
if timestring <> '' then
Timestring := Timestring +' and ';
Timestring := TimeString + IntToStr(S)+'.' + IntToStr(MS)+' seconds.';
Writeln('Elapsed time: ',TimeString)
end; // Procedure Elapsed
begin // .Main.
TS.Year:=0; EndTS.Month:= 0 ; //< silence compiler warning
//< about uninitialized variables
GetLocalTime(TS);
TimeStamp := CTS(TS);
Banner;
writeln;
ScanFiles(''); // Start Here
writeln;
GetLocalTime(EndTS);
TimeStamp := CTS(EndTS);
Writeln('Completed ',TimeStamp);
writeln('Processed ',GlobalFileCount,' files.');
Elapsed(TS,EndTS);
writeln;
end. // .Main.