commit ab7417d89b459d6a2da0a18740ccb6953352b34b · hauleth.dev/ptsd

+96

ptsd.ncl

···

       1
       +
       # SPDX-FileCopyrightText: 2024 Łukasz Niemier <#@hauleth.dev>

     

       2
       +
       #

     

       3
       +
       # SPDX-License-Identifier: EUPL-1.2

     

       4
       +
       let Action = [|

     

       5
       +
         'script String,

     

       6
       +
         'move String,

     

       7
       +
         'echo String,

     

       8
       +
         'trash

     

       9
       +
       |]

     

       10
       +
       in

     

       11
       +
       let NameMatch = [| 'exact String, 'wildcard String, 'regex String |] in

     

       12
       +
       let FileType = [| 'dir, 'file, 'symlink |] in

     

       13
       +
       let ContentMatch = [|

     

       14
       +
         'mime String,

     

       15
       +
         'magic {

     

       16
       +
           offset | Number = 0,

     

       17
       +
           bytes | (Array Number),

     

       18
       +
         }

     

       19
       +
       |]

     

       20
       +
       in

     

       21
       +
       let rec Filter = [|

     

       22
       +
         'name NameMatch,

     

       23
       +
         'file_type FileType,

     

       24
       +
         'size [| 'less Number, 'equal Number, 'greater Number |],

     

       25
       +
         'content_type ContentMatch,

     

       26
       +
         'any (Array Filter),

     

       27
       +
         'all (Array Filter),

     

       28
       +
         'not Filter,

     

       29
       +
       |]

     

       30
       +
       in

     

       31
       +
       {

     

       32
       +
         Job = {

     

       33
       +
           location

     

       34
       +
             | String

     

       35
       +
             | doc "Location that will be traversed for patterns",

     

       36
       +
           filter

     

       37
       +
             | Filter

     

       38
       +
             | doc "File filters",

     

       39
       +
           actions

     

       40
       +
             | Array Action

     

       41
       +
             | doc "Actions that should be applied to entry that matches pattern"

     

       42
       +
         },

     

       43
       +
       

     

       44
       +
         build | (Array Job) -> Dyn

     

       45
       +
           =

     

       46
       +
             let actionMatcher = match {

     

       47
       +
               'script path => { script = path },

     

       48
       +
               'move path => { move = path },

     

       49
       +
               'echo msg => { echo = msg },

     

       50
       +
               'trash => "trash",

     

       51
       +
             }

     

       52
       +
             in

     

       53
       +
             let nameMatcher = match {

     

       54
       +
               'exact val => { exact = val },

     

       55
       +
               'wildcard val => { wildcard = val },

     

       56
       +
               'regex val => { regex = val },

     

       57
       +
             }

     

       58
       +
             in

     

       59
       +
             let rec filterMapper = match {

     

       60
       +
               'name name => { type = "name" } & (nameMatcher name),

     

       61
       +
               'file_type type => { type = "file_type", is = type },

     

       62
       +
               'content_type type =>

     

       63
       +
                 type

     

       64
       +
                 |> match {

     

       65
       +
                   'mime mime => { type = "content_type", mime = mime },

     

       66
       +
                   'magic bytes => { type = "content_type", magic = bytes },

     

       67
       +
                 },

     

       68
       +
               'size pred =>

     

       69
       +
                 let { tag, arg } = std.enum.to_tag_and_arg pred

     

       70
       +
                 in

     

       71
       +
                 {

     

       72
       +
                   type = "size",

     

       73
       +
                   size = arg,

     

       74
       +
                   ordering = tag,

     

       75
       +
                 },

     

       76
       +
               'all allFilters =>

     

       77
       +
                 {

     

       78
       +
                   type = "all",

     

       79
       +
                   filters = std.array.map filterMapper allFilters

     

       80
       +
                 },

     

       81
       +
               'any anyFilter =>

     

       82
       +
                 {

     

       83
       +
                   type = "any",

     

       84
       +
                   filters = std.array.map filterMapper anyFilter

     

       85
       +
                 },

     

       86
       +
             }

     

       87
       +
             in

     

       88
       +
             let jobMapper = fun job =>

     

       89
       +
               {

     

       90
       +
                 location = job.location,

     

       91
       +
                 filter = filterMapper job.filter,

     

       92
       +
                 actions = std.array.map actionMatcher job.actions,

     

       93
       +
               }

     

       94
       +
             in

     

       95
       +
             std.array.map jobMapper

     

       96
       +
       }