1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Indent-tabs-mode: NIL -*-
3 ;;; etc-files.lisp --- Common parsing routines for /etc namedb files.
5 ;;; Copyright (C) 2006-2007, Stelian Ionescu <sionescu@common-lisp.net>
7 ;;; This code is free software; you can redistribute it and/or
8 ;;; modify it under the terms of the version 2.1 of
9 ;;; the GNU Lesser General Public License as published by
10 ;;; the Free Software Foundation, as clarified by the
11 ;;; preamble found here:
12 ;;; http://opensource.franz.com/preamble.html
14 ;;; This program is distributed in the hope that it will be useful,
15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;;; GNU General Public License for more details.
19 ;;; You should have received a copy of the GNU Lesser General
20 ;;; Public License along with this library; if not, write to the
21 ;;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
22 ;;; Boston, MA 02110-1301, USA
24 (in-package :net.sockets
)
26 (defun space-char-p (char)
27 (declare (type character char
))
28 (or (char-equal char
#\Space
)
29 (char-equal char
#\Tab
)))
31 (defun split-etc-tokens (line)
32 (declare (type string line
))
33 (let ((comment-start (position #\
# line
)))
34 (split-sequence-if #'space-char-p line
35 :remove-empty-subseqs t
36 :start
0 :end comment-start
)))
38 (defmacro serialize-etc-file
(file)
39 `(#msplit-etc-tokens
(scan-file ,file
#'read-line
)))