14 lines
272 B
Ada
14 lines
272 B
Ada
|
separate (H2.IO.File)
|
||
|
|
|
||
|
|
function Get_Default_Option return Option_Record is
|
||
|
|
|
||
|
|
Default_Option: constant Option_Record := (
|
||
|
|
Bits => (OPTION_CRLF_IN or OPTION_CRLF_OUT),
|
||
|
|
CR => Ascii.Code.CR,
|
||
|
|
LF => Ascii.Code.LF
|
||
|
|
);
|
||
|
|
|
||
|
|
begin
|
||
|
|
return Default_Option;
|
||
|
|
end Get_Default_Option;
|