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
|
; Copyright 2001 Alexandre Duret-Lutz <duret_g@epita.fr>
;
; This file is part of Heroes.
;
; Heroes 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 2 of the License, or (at your
; option) any later version.
;
; Heroes 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, write to the Free Software Foundation, Inc.,
; 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
(define (source-texi)
(or (getenv "SOURCE_TEXI")
(error "You should set the environment variable SOURCE_TEXI.")))
(define (import-head marker)
(string-append
(shellf "sed -n '1,/@c START == %s == /p' %s" marker (source-texi))
(sprintf "\n@c The following text, up to `END == %s ==',\n" marker)
(sprintf "@c is AutoGen'ed from %s and %s.\n" (def-file) (tpl-file))))
(define (import-tail marker)
(shellf "sed -n '/@c END == %s == /,$p' %s" marker (source-texi)))
|
