#!/usr/bin/env -S guile -s
!#

(use-modules (ice-9 popen)
             (ice-9 textual-ports))

(define (check name)
  (let* ((input+output (pipe))
         (pid (spawn "git"
                     (list "git"
                           "log"
                           "-n1"
                           "v1.4.0..origin/master"
                           "-F"
                           (string-append "--grep=" name))
                     #:output (cdr input+output))))
    (close-port (cdr input+output))
    (define res
      (let loop ((n 0))
        (if (eof-object? (get-line (car input+output)))
            n
            (loop (+ 1 n)))))
    (close-port (car input+output))
    (waitpid pid)
    (> res 0)))

(check "gnu: Add glirc.")

(let ((port (open-input-pipe "git rev-list --no-merges origin/master..origin/core-updates --pretty=oneline")))
  (define res
    (let loop ((acc '()))
      (let ((line (get-line port)))
        (if (eof-object? line)
            acc
            (loop (cons line acc))))))
  (close-pipe port)
  (for-each
   (lambda (line)
     (unless (check (string-drop line 41))
       (format #t "~a~%" line)))
   res))

;; (unless (check (string-drop line 41))
;;           (format #t "~a~%" line))