1 ;;; GnuTLS --- Guile bindings for GnuTLS.
2 ;;; Copyright (C) 2007, 2010 Free Software Foundation, Inc.
4 ;;; GnuTLS is free software; you can redistribute it and/or
5 ;;; modify it under the terms of the GNU Lesser General Public
6 ;;; License as published by the Free Software Foundation; either
7 ;;; version 2.1 of the License, or (at your option) any later version.
9 ;;; GnuTLS is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ;;; Lesser General Public License for more details.
14 ;;; You should have received a copy of the GNU Lesser General Public
15 ;;; License along with GnuTLS; if not, write to the Free Software
16 ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
18 ;;; Written by Ludovic Courtès <ludo@chbouib.org>
20 (define-module (gnutls build utils)
21 :use-module (srfi srfi-13)
22 :export (scheme-symbol->c-name))
25 ;;; Common utilities for the binding generation code.
33 (define (scheme-symbol->c-name sym)
34 ;; Turn SYM, a symbol denoting a Scheme name, into a string denoting a C
36 (string-map (lambda (chr)
37 (if (eq? chr #\-) #\_ chr))
38 (symbol->string sym)))
46 ;;; arch-tag: 56919ee1-7cce-46b9-b90f-ae6fbcfe4159