-
Notifications
You must be signed in to change notification settings - Fork 0
/
HEAD.PAS
105 lines (100 loc) · 2.69 KB
/
HEAD.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
{ @author: Sylvain Maltais ([email protected])
@created: 2021
@website(https://www.gladir.com/xenix-0)
@abstract(Target: Turbo Pascal, Free Pascal)
}
Program HEAD(Input,Output);
Type
OptionFlagType=(_None,_Lines,_Bytes);
Var
CurrSize,MaxLine,Err,MaxBuffer:Integer;
I:Integer;
FileView:Text;
OptionFlag:OptionFlagType;
FileName,CurrLine:String;
Function StringToChar(S:String;Index:Byte):Char;Begin
If Length(S)<=Index Then StringToChar:=S[Index]
Else StringToChar:=#0;
End;
BEGIN
OptionFlag:=_None;
MaxLine:=10;
MaxBuffer:=32767;
FileName:='';
If(ParamStr(1)='/?')or(ParamStr(1)='--help')or(ParamStr(1)='-h')Then Begin
WriteLn('HEAD : Cette commande permet d''afficher le d‚but du fichier.');
WriteLn;
WriteLn('Syntaxe : head nomdufichier [--bytes N] [--lines N]');
WriteLn;
WriteLn(' nomdufichier Ce paramŠtre permet d''indiquer le fichier … afficher.');
WriteLn(' --bytes N Ce paramŠtre permet d''afficher les nombres ',
'd''octets sp‚cifi‚ … partir du d‚but.');
WriteLn(' --lines N Ce paramŠtre permet d''afficher le nombre de ',
'ligne sp‚cifi‚ … partir du d‚but.');
End
Else
If ParamCount>0 Then Begin
For I:=1 to ParamCount do Begin
If OptionFlag<>_None Then Begin
Case OptionFlag of
_Lines:Val(ParamStr(I),MaxLine,Err);
_Bytes:Val(ParamStr(I),MaxBuffer,Err);
End;
OptionFlag:=_None;
End
Else
If ParamStr(I)='--lines'Then OptionFlag:=_Lines Else
If ParamStr(I)='--bytes'Then OptionFlag:=_Bytes Else
If((Length(ParamStr(I))>=2) and (StringToChar(ParamStr(I),1)='-')and(StringToChar(ParamStr(I),2)in['0'..'9']))Then Begin
Val(Copy(ParamStr(I),2,255),MaxLine,Err);
End
Else
Begin
FileName:=ParamStr(I);
OptionFlag:=_None;
End;
End;
If FileName<>''Then Begin
I:=0;
{$I-}Assign(FileView,FileName);
Reset(FileView);{$I+}
If IoResult=0Then Begin
While Not EOF(FileView)do Begin
ReadLn(FileView,CurrLine);
WriteLn(Output,CurrLine);
Inc(CurrSize,Length(CurrLine));
If CurrSize>MaxBuffer Then Break;
Inc(I);
If I>=MaxLine Then Break;
End;
Close(FileView);
End
Else
WriteLn('Erreur de lecture du fichier ',FileName);
End
Else
Begin
I:=0;
While Not EOF do Begin
ReadLn(Input,CurrLine);
WriteLn(Output,CurrLine);
Inc(CurrSize,Length(CurrLine));
If CurrSize>MaxBuffer Then Break;
Inc(I);
If I > MaxLine Then Break;
End;
End;
End
Else
Begin
I:=0;
While Not EOF do Begin
ReadLn(Input,CurrLine);
WriteLn(Output,CurrLine);
Inc(CurrSize,Length(CurrLine));
If CurrSize>MaxBuffer Then Break;
Inc(I);
If I > MaxLine Then Break;
End;
End;
END.