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