A minha tarefa do estágio é implementar um subcomando de forma que todo o histórico de commits do Guix possa ser acessado facilmente. Usando este subcomando, um usuário poderá saber em qual commit um pacote foi adicionado ou atualizado. Isso vai estar disponível com 'guix git log'.

Para completar meu objetivo, eu tenho utilizado a biblioteca Git em Guile, que provê bindings para a biblioteca libgit2 em C. Com esse módulo, é fácil obter informações do repositório e dos commits.

Primeiramente, o código que estou trabalhando atualmente pode ser encontrado neste link. No momento em que escrevo isso, se você executar o código com ./pre-inst-env guix git log --oneline¹, cinco commits serão mostrados na tela, apresentados em um formato como se fosse o próprio git log --oneline.

$ ./pre-inst-env guix git log --oneline | grep nano
eeb3db0 gnu: nano: Update to 5.4.
e6b2a3e gnu: nano: Update to 5.3.
5abbf43 gnu: nano: Update to 5.2.
0b4327f gnu: Add nanomsg.
5b893f4 gnu: nano: Update to 5.1.
c09f22a gnu: nano: Update to 5.0.
dfc4265 gnu: nano: Update to 4.9.3.

É facil ver em qual commit o editor de texto nano foi atualizado por último, ou atualizado para uma versão específica, ou quando a biblioteca nanomsg foi adicionada pela primeira vez no Guix.

Embora essas três semanas tenham sido incríveis e eu tenha aprendido muito, o caminho não foi sempre fácil. Eu encontrei alguns problemas tentando fazer o subcomando funcionar como está funcionando agora.

Claro, houve alguns problemas bobos e fáceis de resolver, que exigiam apenas um pouco de atenção para encontrar a solução. Um exemplo foi quando eu passei trinta minutos tentando entender por que I estava recebendo uma mensagem de erro e a razão era que eu não tinha importado o módulo necessário para usar uma determinada função.

O problema mais difícil que eu tive foi um segmentation fault ocorrendo quando eu rodava o código que escrevi. O que eu queria fazer era bem simples: uma função que, dado o caminho para um repositório Git, devolveria todos os commits encontrados lá. O código que eu escrevi parecia bem simples, então receber segmentation fault não era algo que eu esperava. Aqui está o que eu estava tentando fazer, usando o Guix REPL, que tem se provado ótimo para testar como as coisas funcionam - ou descobrir o porquê delas não estarem funcionando.

$ guix repl
GNU Guile 3.0.4
Copyright (C) 1995-2020 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guix-user)> (use-modules (guix git) (git) (guix channels) (ice-9 match) (srfi srfi-1))
scheme@(guix-user)> (define cache (url-cache-directory (channel-url %default-guix-channel)))
scheme@(guix-user)> cache
$1 = "/home/magali/.cache/guix/checkouts/pjmkglp4t7znuugeurpurzikxq3tnlaywmisyr27shj7apsnalwq"
scheme@(guix-user)> (let* ((repo (repository-open cache))
			   (latest-commit
			    (commit-lookup repo (reference-target (repository-head repo)))))
		      (let loop ((commit latest-commit)
				 (res (list latest-commit)))
			(match (commit-parents commit)
			       (() (reverse res))
			       ((head . tail)
				(loop head (cons head res))))))
Segmentation fault (core dumped)

E a solução para isso, na verdade, é uma gambiarra², dado que eu esbarrei em um bug na biblioteca Git em Guile que ainda não foi consertado. Em vez de abrir o repositório dentro do let*, se o repositório Git for definido em uma variável global, então eu posso obter os commits, como eu desejava.