From 60360817d9a1a4b7c3aa5d72484c46d292e402b4 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 28 Jan 2017 14:35:44 -0600 Subject: [PATCH] add utils.scm --- Makefile.am | 1 + mudsync/utils.scm | 27 +++++++++++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 mudsync/utils.scm diff --git a/Makefile.am b/Makefile.am index d4885f4..d6b943c 100644 --- a/Makefile.am +++ b/Makefile.am @@ -54,6 +54,7 @@ SOURCES = \ mudsync/room.scm \ mudsync/run-game.scm \ mudsync/package-config.scm \ + mudsync/utils.scm \ mudsync/contrib/mime-types.scm \ mudsync.scm diff --git a/mudsync/utils.scm b/mudsync/utils.scm new file mode 100644 index 0000000..e757258 --- /dev/null +++ b/mudsync/utils.scm @@ -0,0 +1,27 @@ +;;; Mudsync --- Live hackable MUD +;;; Copyright © 2017 Christopher Allan Webber +;;; +;;; This file is part of Mudsync. +;;; +;;; Mudsync 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. +;;; +;;; Mudsync 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 Mudsync. If not, see . + +(define-module (mudsync utils) + #:use-module (srfi srfi-1) + #:export (ci-member)) + +(define (ci-member x lst) + "Case insensitive member check" + (member x lst (lambda (x y) + (equal? (string-downcase x) (string-downcase y))))) + -- 2.31.1