aboutsummaryrefslogtreecommitdiff
path: root/.mailmap
blob: a6687ee4471f285f23bc5d294c8f05ed5189caf8 (about) (plain) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

# This list is used to avoid multiple name/email instances of the same
# contributors reported by "git log" and "git shortlog" commands.

Al McElrath <hello@yrns.org> <hello@atonesir.com>
Alex Sassmannshausen <alex@pompo.co> <alex.sassmannshausen@gmail.com>
Alexander I. Grafov <grafov@gmail.com>
Alírio Eyng <alirioeyng@gmail.com>
Amirouche Boubekki <amirouche@hypermove.net>
Andreas Enge <andreas@enge.fr> <andreas.enge@inria.fr>
Andreas Enge <andreas@enge.fr> <privat@xobs-novena>
Andy Wingo <wingo@igalia.com> <wingo@pobox.com>
Ben Woodcroft <donttrustben@gmail.com>
Ben Woodcroft <donttrustben@gmail.com> <b.woodcroft@uq.edu.au>
Ben Woodcroft <donttrustben@gmail.com> <donttrustben near gmail.com>
Claes Wallin (韋嘉誠) <claes.wallin@greatsinodevelopment.com>
Cyprien Nicolas <cyprien@nicolas.tf> <c.nicolas+gitorious@gmail.com>
Daniel Pimentel <d4n1@d4n1.org> <d4n1@member.fsf.org>
Danny Milosavljevic <dannym@scratchpost.org> <dannym+a@scratchpost.org>
David Hashe <david.hashe@dhashe.com> <address@hidden>
David Thompson <davet@gnu.org> <dthompson2@worcester.edu>
David Thompson <davet@gnu.org> <dthompson@member.fsf.org>
David Thompson <davet@gnu.org> <dthompson@vistahigherlearning.com>
Deck Pickard <deck.r.pickard@gmail.com> <nebu@kipple>
Eric Bavier <bavier@member.fsf.org> <ericbavier@gmail.com>
Eric Dvorsak <eric@dvorsak.fr> <yenda1@gmail.com>
George Clemmer <myglc2@gmail.com>
Ivan Vilata i Balaguer <ivan@selidor.net>
Jeff Mickey <j@codemac.net> <jm@igneous.io>
John Darrington <jmd@gnu.org> <john@darrington.wattle.id.au>
John J. Foerch <jjfoerch@earthlink.net>
Joshua Grant <tadni@riseup.net> <gzg@riseup.net>
Joshua Grant <tadni@riseup.net> <jgrant@parenthetical.io>
Joshua Grant <tadni@riseup.net> <tadnimi@gmail.com>
Joshua Grant <tadni@riseup.net> <youlysses@riseup.net>
Kei Kebreau <kei@openmailbox.org>
Leo Famulari <leo@famulari.name> <lfamular@gmail.com>
Ludovic Courtès <ludo@gnu.org> <ludovic.courtes@inria.fr>
Marek Benc <dusxmt@gmx.com> <merkur32@gmail.com>
Marius Bakke <mbakke@fastmail.com> <m.bakke@warwick.ac.uk>
Mathieu Lirzin <mthl@gnu.org> <mthl@openmailbox.org>
Mathieu Lirzin <mthl@gnu.org> <mathieu.lirzin@openmailbox.org>
Nikita Karetnikov <nikita@karetnikov.org> <nikita.karetnikov@gmail.com>
ng0 <ng0@libertad.pw> <ng0@we.make.ritual.n0.is>
ng0 <ng0@libertad.pw> <ngillmann@runbox.com>
ng0 <ng0@libertad.pw> <niasterisk@grrlz.net>
ng0 <ng0@libertad.pw> <ng@niasterisk.space>
ng0 <ng0@libertad.pw>
Pjotr Prins <pjotr.guix@thebird.nl> <pjotr.public01@thebird.nl>
Pjotr Prins <pjotr.guix@thebird.nl> <pjotr.public12@thebird.nl>
Pjotr Prins <pjotr.guix@thebird.nl> <pjotr.public12@email>
Raimon Grau <raimonster@gmail.com> <raimon@3scale.net>
Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com>
Raymond Nicholson <rain1@openmailbox.org>
Rene Saavedra <rennes@openmailbox.org>
Ricardo Wurmus <rekado@elephly.net>
Ricardo Wurmus <rekado@elephly.net> <ricardo.wurmus@mdc-berlin.de>
Sou Bunnbu (宋文武) <iyzsong@gmail.com>
Sou Bunnbu (宋文武) <iyzsong@gmail.com> <iyzsong@member.fsf.org>
Stefan Reichör <stefan@xsteve.at>
Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Thomas Danckaert <thomas.danckaert@gmail.com> <post@thomasdanckaert.be>
Tobias Geerinckx-Rice <me@tobias.gr> <tobias.geerinckx.rice@gmail.com>
Tomáš Čech <sleep_walker@gnu.org> <sleep_walker@suse.cz>
Vincent Legoll <vincent.legoll@gmail.com> <vincent.legoll@idgrilles.fr>
generated by cgit
ply execl "/anything/cabbage-bash-1.2.3/bin/sh" (car cl) (append (quote ()) cl)))) script-contents) (call-with-temporary-directory (lambda (directory) (let ((script-file-name (string-append directory "/foo"))) (call-with-output-file script-file-name (lambda (port) (display script-contents port))) (chmod script-file-name #o777) (wrap-script script-file-name `("GUIX_FOO" prefix ("/some/path" "/some/other/path"))) (let ((str (call-with-input-file script-file-name get-string-all))) (with-directory-excursion directory (delete-file "foo")) str)))))) (let ((script-contents "\ #!/anything/cabbage-bash-1.2.3/bin/python3 -and -args # vim:fileencoding=utf-8 print('hello world')")) (test-equal "wrap-script, with encoding declaration" (string-append (format #f "\ #!MYGUILE --no-auto-compile #!#; # vim:fileencoding=utf-8 #\\-~s #\\-~s " '(begin (let ((current (getenv "GUIX_FOO"))) (setenv "GUIX_FOO" (if current (string-append "/some/path:/some/other/path" ":" current) "/some/path:/some/other/path")))) `(let ((cl (command-line))) (apply execl "/anything/cabbage-bash-1.2.3/bin/python3" (car cl) (append '("-and" "-args") cl)))) script-contents) (call-with-temporary-directory (lambda (directory) (let ((script-file-name (string-append directory "/foo"))) (call-with-output-file script-file-name (lambda (port) (format port script-contents))) (chmod script-file-name #o777) (wrap-script script-file-name #:guile "MYGUILE" `("GUIX_FOO" prefix ("/some/path" "/some/other/path"))) (let ((str (call-with-input-file script-file-name get-string-all))) (with-directory-excursion directory (delete-file "foo")) str)))))) (test-assert "wrap-script, raises condition" (call-with-temporary-directory (lambda (directory) (let ((script-file-name (string-append directory "/foo"))) (call-with-output-file script-file-name (lambda (port) (format port "This is not a script"))) (chmod script-file-name #o777) (guard (c ((wrap-error? c) #t)) (wrap-script script-file-name #:guile "MYGUILE" `("GUIX_FOO" prefix ("/some/path" "/some/other/path"))) #f))))) (define (arg-test bash-args) (call-with-temporary-directory (lambda (directory) (let ((script-file-name (string-append directory "/bash-test.sh"))) (call-with-output-file script-file-name (lambda (port) (display (string-append "\ #!" (which "bash") bash-args " echo \"$#$0$*${A}\"") port))) (display "Unwrapped script contents:\n") (call-with-input-file script-file-name (lambda (port) (display (get-string-all port)))) (newline) (newline) (chmod script-file-name #o777) (setenv "A" "A") (let* ((run-script (lambda _ (open-pipe* OPEN_READ script-file-name "1" "2" "3 3" "4"))) (pipe (run-script)) (unwrapped-output (get-string-all pipe))) (close-pipe pipe) (wrap-script script-file-name `("A" = ("A\nA"))) (display "Wrapped script contents:\n") (call-with-input-file script-file-name (lambda (port) (display (get-string-all port)))) (newline) (newline) (let* ((pipe (run-script)) (wrapped-output (get-string-all pipe))) (close-pipe pipe) (display "./bash-test.sh 1 2 3\\ 3 4 # Output:\n") (display unwrapped-output) (newline) (display "./bash-test.sh 1 2 3\\ 3 4 # Output (wrapped):\n") (display wrapped-output) (newline) (string=? (string-append unwrapped-output "A\n") wrapped-output))))))) (test-assert "wrap-script, argument handling" (arg-test "")) (test-assert "wrap-script, argument handling, bash --norc" (arg-test " --norc")) (test-equal "substitute*, text contains a NUL byte, UTF-8" "c\0d" (with-fluids ((%default-port-encoding "UTF-8") (%default-port-conversion-strategy 'error)) ;; The GNU libc is locale sensitive. Depending on the value of LANG, the ;; test could fail with "string contains #\\nul character: ~S" or "cannot ;; convert wide string to output locale". (setlocale LC_ALL "en_US.UTF-8") (call-with-temporary-output-file (lambda (file port) (format port "a\0b") (flush-output-port port) (substitute* file (("a") "c") (("b") "d")) (with-input-from-file file (lambda _ (get-string-all (current-input-port)))))))) (test-equal "search-input-file: exception if not found" `((path) (file . "does-not-exist")) (guard (e ((search-error? e) `((path . ,(search-error-path e)) (file . ,(search-error-file e))))) (search-input-file '() "does-not-exist"))) (test-equal "search-input-file: can find if existent" (which "guile") (search-input-file `(("guile/bin" . ,(dirname (which "guile")))) "guile")) (test-equal "search-input-file: can search in multiple directories" (which "guile") (call-with-temporary-directory (lambda (directory) (search-input-file `(("irrelevant" . ,directory) ("guile/bin" . ,(dirname (which "guile")))) "guile")))) (test-end)
generated by cgit