From 140332256f2059be7b3a0fdcf082c3bb1f568df4 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sun, 10 Jul 2016 02:29:41 +0000 Subject: add utility functions. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * git-difme.scm (with-directory-excursion): new macro. verbatim from (guix build utils). thank you ludovic courtès. (difme-exec): new function. --- git-difme.scm | 30 +++++++++++++++++++++++++++++- 1 file changed, 29 insertions(+), 1 deletion(-) (limited to 'git-difme.scm') diff --git a/git-difme.scm b/git-difme.scm index e5d509a..76c35e2 100644 --- a/git-difme.scm +++ b/git-difme.scm @@ -2,6 +2,34 @@ ;; license: gnu gpl version 3 or higher. ;; copyright 2016 rsiddharth -;; main function. +(define-module (git-difme) + #:use-module (ice-9 popen) + #:use-module (ice-9 rdelim) + #:export (main)) + +;;;; utils + +;;; following macro from (guix build utils) module. +;;; copyright 2012 Ludovic Courtès +;;; commit b0e0d0e99f + +(define-syntax-rule (with-directory-excursion dir body ...) + "run BODY with DIR as the process's current directory." + (let ((init (getcwd))) + (dynamic-wind + (lambda () (chdir dir)) + (lambda () body ...) + (lambda () (chdir init))))) + +(define (difme-exec cmd) + "execute CMD and return output as a list of strings." + (let* ((port (open-input-pipe cmd)) + (out (read-string port)) + (out-lst (map string-trim-both + (delete "" (string-split out #\newline))))) + (close-pipe port) + out-lst)) + +;;;; main (define (main srcs) srcs) -- cgit v1.2.3