···
let buf = Buffer.create 256 in
let trailing_breaks = Buffer.create 16 in
+
(* Skip to content indentation, skipping empty lines.
+
Returns the number of spaces actually skipped (important for detecting dedentation). *)
let rec skip_to_content_indent () =
if !content_indent > 0 then begin
+
(* Explicit indent - skip up to content_indent spaces *)
let spaces_skipped = ref 0 in
while !spaces_skipped < !content_indent && Input.next_is (( = ) ' ') t.input do
···
Buffer.add_char trailing_breaks '\n';
Input.consume_break t.input;
skip_to_content_indent ()
+
end else if !spaces_skipped < !content_indent then begin
+
(* Line starts with fewer spaces than content_indent - dedented *)
end else if Input.next_is_blank t.input then begin
(* Line has spaces beyond content_indent - check if rest is only blanks *)
···
skip_to_content_indent ()
(* Implicit indent - skip empty lines without consuming spaces *)
if Input.next_is_break t.input then begin
···
Input.consume_break t.input;
skip_to_content_indent ()
+
(* Has content - don't consume anything, return 0 as we haven't skipped *)
+
(* Not at break or blank - return 0 *)
+
let spaces_skipped = skip_to_content_indent () in
(* Check if we're at content *)
if Input.is_eof t.input then ()
else if Input.at_document_boundary t.input then ()
+
(* Count additional leading spaces beyond what was skipped *)
+
let extra_spaces = ref 0 in
while Input.next_is (( = ) ' ') t.input do
ignore (Input.next t.input)
+
(* Calculate actual line indentation *)
+
let line_indent = spaces_skipped + !extra_spaces in
(* Determine content indent from first content line (implicit case) *)
if !content_indent = 0 then begin
+
if line_indent <= base_indent then begin
(* No content - restore position conceptually *)
+
content_indent := line_indent
+
if line_indent < !content_indent then begin
(* Dedented - done with content *)
···
(* Add extra indentation for literal *)
+
for _ = !content_indent + 1 to line_indent do
anil.recoil.org