Scripts em OCaml

2024-02-23T00:00:00+00:00

Este blog gera suas postagens com o Pandoc, mas quem faz o trabalho lógico de identificar os arquivos e montar os comandos é um pequeno script em OCaml.</p>

Descobri essa linguagem quando comecei a investigar como poderia substituir o Bash como uma linguagem para scripts. Eu acho que o Bash é excelente para cumprir essa função, apesar de bastante inseguro e propenso a erros. O que me incomodava mesmo era ver que todo aquele tempo escrevendo scripts com Bash poderia ser tempo aprendendo uma linguagem cujo conhecimento se transferisse para muitas outras aplicações.</p>

O script se resume a:</p>

let</span> pandoc_params</span> =</span></span>
  "--css ../../assets/style.css -s --to html5 --metadata pagetitle='basename' "</span></span>
</span>
let</span> vert</span> md</span> =</span> begin</span></span>
  if</span> md</span> <></span> "gen.ml"</span> &&</span> md</span> <></span> "html"</span> then</span></span>
    ignore</span>(</span> Sys</span>.</span>command</span> (</span></span>
      "pandoc "</span> ^</span> pandoc_params</span> ^</span> md</span> ^</span> " -o html/"</span> ^</span> md</span> ^</span> ".html "</span></span>
    ) )</span></span>
end ;;</span></span>
</span>
let</span> contents</span> =</span> Array</span>.</span>to_list</span> (</span>Sys</span>.</span>readdir</span> "."</span>)</span> in</span></span>
List.map vert contents ;;</span></span></code></pre>
Primeiro, armazeno em pandoc_params</code> os parâmetros comuns que serão passados ao Pandoc para gerar os arquivos HTML a partir dos arquivos em Markdown.</p>
Em seguida, defino a função vert</code>, que, caso o arquivo não se chame “gen.ml” (o próprio script) nem “html” (o diretório onde os arquivos gerados ficam), o comando do Pandoc é chamado com os nomes dos arquivos de entrada e saída.</p>
Essa função então é aplicada com List.map vert contents</code> a cada arquivo do diretório atual.</p>
Referências
 #</a></h2>

Walk a directory/Non-recursively - Rosetta Code</a></li>
Pandoc Markdown CSS Theme</a></li>
</ul>

jutty.dev - ocaml

Scripts em OCaml

`Referências #</a></h2> Walk a directory/Non-recursively - Rosetta Code</a></li> Pandoc Markdown CSS Theme</a></li> </ul>`