aboutsummaryrefslogtreecommitdiff
path: root/i18n/fr_FR/resources/scripts/misc/check-trailing-newline
diff options
context:
space:
mode:
authorLibreboot Contributor <contributor@libreboot.org>2020-04-02 20:59:23 +0200
committerLibreboot Contributor <contributor@libreboot.org>2020-04-02 20:59:43 +0200
commita2f4bef6de0e1f5770d489e861c78890f81229c1 (patch)
treebc74ce87d44cfcae1eecff62c0fbf6a97b1812fc /i18n/fr_FR/resources/scripts/misc/check-trailing-newline
parentc6cb6cf4769cd535eee9abfd41fbf717a51d067c (diff)
downloadlibrebootfr-a2f4bef6de0e1f5770d489e861c78890f81229c1.tar.gz
librebootfr-a2f4bef6de0e1f5770d489e861c78890f81229c1.zip
link to french version of gplv3 at the top of i18n/fr_FR/COPYING . Also, we remove files that we haven't translated yet, it weights a lot.
Diffstat (limited to 'i18n/fr_FR/resources/scripts/misc/check-trailing-newline')
-rw-r--r--i18n/fr_FR/resources/scripts/misc/check-trailing-newline33
1 files changed, 0 insertions, 33 deletions
diff --git a/i18n/fr_FR/resources/scripts/misc/check-trailing-newline b/i18n/fr_FR/resources/scripts/misc/check-trailing-newline
deleted file mode 100644
index 5a6cd5cc..00000000
--- a/i18n/fr_FR/resources/scripts/misc/check-trailing-newline
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env guile
--*- scheme -*-
-!#
-;;; check-trailing-newline -- Find files lacking a trailing newline
-;;; Use guile 2 (not 1.8)
-;;; Copyright (C) 2015 Mark H Weaver <mhw@netris.org>
-;;;
-;;; This program is free software: you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation, either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(use-modules (ice-9 match)
- (rnrs io ports))
-
-(define (check-file file-name)
- (let ((contents (call-with-input-file file-name get-string-all)))
- (unless (string-suffix? "\n" contents)
- (format (current-error-port)
- "~a: lacks trailing newline\n"
- file-name))))
-
-(match (command-line)
- ((_ file-names ...)
- (for-each check-file file-names)))