package dunolint
A linter for build files in dune projects
Install
dune-project
Dependency
Authors
Maintainers
Sources
dunolint-0.0.20250804.tbz
sha256=e4ca7c98db73dd9ab2ae8cba37ee0645f580267484e9893dbce6e28f4f2f0170
sha512=7ca658fb96139a0c41724355ac6aaf83d75468c7df14569b8f6090711f73a8fb2408ed1145384e756418682f0fa660a915842fd2b3f8b42e5ed4990e795b384e
doc/src/dunolint.dunolinter/sections_handler.ml.html
Source file sections_handler.ml
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
(*********************************************************************************) (* Dunolint - A tool to lint and help manage files in dune projects *) (* Copyright (C) 2024-2025 Mathieu Barbin <mathieu.barbin@gmail.com> *) (* *) (* This file is part of Dunolint. *) (* *) (* Dunolint is free software; you can redistribute it and/or modify it *) (* under the terms of the GNU Lesser General Public License as published by *) (* the Free Software Foundation either version 3 of the License, or any later *) (* version, with the LGPL-3.0 Linking Exception. *) (* *) (* Dunolint is distributed in the hope that it will be useful, but WITHOUT *) (* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or *) (* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License *) (* and the file `NOTICE.md` at the root of this repository for more details. *) (* *) (* You should have received a copy of the GNU Lesser General Public License *) (* and the LGPL-3.0 Linking Exception along with this library. If not, see *) (* <http://www.gnu.org/licenses/> and <https://spdx.org>, respectively. *) (*********************************************************************************) let are_in_different_sections ~(previous : Parsexp.Positions.range) ~(current : Parsexp.Positions.range) = let previous_line = previous.end_pos.line in let current_line = current.start_pos.line in previous_line + 1 < current_line ;; let read_sections_fold ~field_name ~sexps_rewriter ~field ~init ~f = let file_rewriter = Sexps_rewriter.file_rewriter sexps_rewriter in let original_contents = File_rewriter.original_contents file_rewriter in let args = Sexp_handler.get_args ~field_name ~sexps_rewriter ~field in let _, args = List.fold_mapi args ~init ~f:(fun original_index acc arg -> let position = Sexps_rewriter.position sexps_rewriter arg in let loc = Sexps_rewriter.Position.loc sexps_rewriter position in let range = Sexps_rewriter.Position.range position in let source = Comment_handler.get_extended_source ~original_contents ~range in let acc, entry = f acc ~original_index ~loc ~source ~arg in acc, (position, entry)) in args |> List.group ~break:(fun (previous, _) (current, _) -> are_in_different_sections ~previous ~current) |> List.map ~f:(fun entries -> List.map entries ~f:snd) ;; let read_sections ~field_name ~sexps_rewriter ~field ~f = read_sections_fold ~field_name ~sexps_rewriter ~field ~init:() ~f:(fun () ~original_index ~loc ~source ~arg -> (), f ~original_index ~loc ~source ~arg) ;; let rewrite_sections ~field_name ~sexps_rewriter ~field ~write_arg ~sections = let args = Sexp_handler.get_args ~field_name ~sexps_rewriter ~field |> List.map ~f:(fun arg -> let position = Sexps_rewriter.position sexps_rewriter arg in position, arg) |> List.group ~break:(fun (previous, _) (current, _) -> are_in_different_sections ~previous ~current) |> List.map ~f:(List.map ~f:snd) in let file_rewriter = Sexps_rewriter.file_rewriter sexps_rewriter in let insert_position = let last_token = match (field : Sexp.t) with | List token_list -> List.last_exn token_list | Atom _ -> assert false in (Comment_handler.sexp_extended_range ~sexps_rewriter ~arg:last_token).stop in let rec iter_fields args new_args = match args, new_args with | arg :: args, new_arg :: new_args -> File_rewriter.replace file_rewriter ~range:(Comment_handler.sexp_extended_range ~sexps_rewriter ~arg) ~text:(write_arg new_arg); iter_fields args new_args | [], [] -> () | [], _ :: _ -> List.iter new_args ~f:(fun new_arg -> let value = write_arg new_arg in File_rewriter.insert file_rewriter ~offset:insert_position ~text:("\n" ^ value)) | _ :: _, [] -> List.iter args ~f:(fun arg -> File_rewriter.remove file_rewriter ~range:(Comment_handler.sexp_extended_range ~sexps_rewriter ~arg)) in let rec iter_sections args new_args = match args, new_args with | [], [] -> () | args :: tl, new_args :: new_tl -> iter_fields args new_args; iter_sections tl new_tl | [], new_args -> List.iter new_args ~f:(fun new_args -> iter_fields [] new_args) | args, [] -> List.iter args ~f:(fun args -> iter_fields args []) in iter_sections args sections ;;
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>