+++ /dev/null
-#
-# Set base directories and filenames
-#
-ifndef HOME
-HOME =/home/jf
-endif
-ifndef PROJROOT
-PROJROOT =$(HOME)/JF
-endif
-ifndef DESTROOT
-DESTROOT =$(HOME)/public_html
-endif
-ifndef WORKDIR
-WORKDIR =/var/tmp/JF
-endif
-
-LAST_MODIFIED =$(PROJROOT)/last-modified
-BINDIR =$(PROJROOT)/bin
-LDP_ROOT =$(DESTROOT)/howto-translations
-WWW_ROOT =$(DESTROOT)/www
-FTP_ROOT =$(DESTROOT)/ftp
-NMZ_ROOT =$(DESTROOT)/namazu
-
-#
-# jfindex.db
-#
-JFINDEXDB =$(PROJROOT)/jfindex.db
-CONTRIBDB =$(JFINDEXDB)
-
-#
-# INDEX categories.
-#
-CATEGORIES = install faq guide hardware diskmanage network xfree dtp database tool kernel etc programming
-
-#
-# INDEX kinds.
-#
-KINDS = OTHER-TRANS ORIGINAL
-
-#
-# default behavior
-#
-COMPILE=yes
-
-#
-# Select contents to make
-#
-
-ifndef INSTALL_WWW
-INSTALL_WWW=yes
-endif
-ifndef INSTALL_FTP
-INSTALL_FTP=yes
-endif
-ifndef INSTALL_LDP
-INSTALL_LDP=yes
-endif
-ifndef INSTALL_NMZ
-INSTALL_NMZ=yes
-endif
-
-#
-# Set destination directory
-#
-
-# WWW contents
-WORK_TEXT=$(WORKDIR)/txt/JFdocs
-WORK_SGML=$(WORKDIR)/sgml/JFdocs
-WORK_HTML=$(WORKDIR)/html/JFdocs
-WORK_DVI =$(WORKDIR)/dvi/JFdocs
-WORK_PS =$(WORKDIR)/ps/JFdocs
-WORKCONTENTS =./JFdocs
-
-# WWW contents
-DEST_WWW_TEXT=$(WWW_ROOT)/JFdocs
-DEST_WWW_SGML=$(WWW_ROOT)/JFdocs
-DEST_WWW_HTML=$(WWW_ROOT)/JFdocs
-DEST_WWW_DVI =$(WWW_ROOT)/JFdocs
-DEST_WWW_PS =$(WWW_ROOT)/JFdocs
-
-# FTP contents
-DEST_FTP_TEXT=$(FTP_ROOT)/text
-DEST_FTP_SGML=$(FTP_ROOT)/sgml
-DEST_FTP_HTML=$(FTP_ROOT)/html
-DEST_FTP_DVI =$(FTP_ROOT)/dvi
-DEST_FTP_PS =$(FTP_ROOT)/ps
-ifeq ($(KIND), LDP-TRANS)
-DEST_FTP_TEXT=$(FTP_ROOT)/text
-DEST_FTP_SGML=$(FTP_ROOT)/sgml
-DEST_FTP_HTML=$(FTP_ROOT)/html
-DEST_FTP_DVI =$(FTP_ROOT)/dvi
-DEST_FTP_PS =$(FTP_ROOT)/ps
-ifeq ($(ATRB), MINI)
-DEST_FTP_TEXT=$(FTP_ROOT)/text
-DEST_FTP_SGML=$(FTP_ROOT)/sgml
-DEST_FTP_HTML=$(FTP_ROOT)/html
-DEST_FTP_DVI =$(FTP_ROOT)/dvi
-DEST_FTP_PS =$(FTP_ROOT)/ps
-endif
-endif
-
-# LDP translations for mirror
-ifeq ($(KIND), LDP-TRANS)
-DEST_LDP_TEXT=$(LDP_ROOT)
-DEST_LDP_SGML=$(LDP_ROOT)/sgml
-DEST_LDP_HTML=$(LDP_ROOT)/html
-DEST_LDP_DVI =$(LDP_ROOT)/dvi
-DEST_LDP_PS =$(LDP_ROOT)/ps
-ifeq ($(ATRB), MINI)
-DEST_LDP_TEXT=$(LDP_ROOT)/mini/
-DEST_LDP_SGML=$(LDP_ROOT)/mini/sgml
-DEST_LDP_HTML=$(LDP_ROOT)/mini/html
-DEST_LDP_DVI =$(LDP_ROOT)/mini/dvi
-DEST_LDP_PS =$(LDP_ROOT)/mini/ps
-endif
-endif
-
-#
-# List of obsoleted docs.
-#
-OBSOLETE=$(PROJROOT)/docs/obsolete/obsoleted.list
-
-#
-# SGML-tools
-#
-SGML2HTML = sgml2html -c nippon -l ja
-SGML2TEXT = sgml2txt -c nippon -f -l ja
-HTML2TEXT = LANG=ja w3m -dump -T text/html -cols 72
-
-JADE = jade
-JADE_OPTION = -t sgml -i html -d ./jf-custom.dsl
-JADE_ADD_OPTION =
-
-#
-# Misc. tools
-#
-INSTALL = install -m 644
-
-GEN_INDEX = $(BINDIR)/genindex.pl $(JFINDEXDB)
-GEN_CONTRIB = $(BINDIR)/genindex.pl $(CONTRIBDB)
-MKNEWINDEX = perl -I $(BINDIR) $(BINDIR)/mknewidx.pl -d $(JFINDEXDB)
-MKCONTRIBINDEX = perl -I $(BINDIR) $(BINDIR)/mkcontriblist.pl -d $(CONTRIBDB)
-PERL_CRLF = perl -e 'while (<>) {chop; print; print "\r\n";}'
+++ /dev/null
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]>
-<style-sheet>
-
-<!--
-;; ===================================================
-;; customize the html stylesheet; borrowed from Cygnus
-;; at http://sourceware.cygnus.com/ (cygnus-both.dsl)
-;; ===================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body>
-
-;; borrowed from ldp.dsl
-
-(declare-characteristic preserve-sdata?
- ;; this is necessary because right now jadetex does not understand
- ;; symbolic entities, whereas things work well with numeric entities.
- "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
- #f)
-
-(define %generate-legalnotice-link%
- ;; put the legal notice in a separate file
- #t)
-
-;(define %admon-graphics-path%
-; ;; use graphics in admonitions, set their
-; "../images/")
-
-(define %admon-graphics%
- #f)
-
-(define %funcsynopsis-decoration%
- ;; make funcsynopsis look pretty
- #t)
-
-(define %html-ext%
- ;; when producing HTML files, use this extension
- ".html")
-
-(define %generate-book-toc%
- ;; Should a Table of Contents be produced for books?
- #t)
-
-(define %generate-article-toc%
- ;; Should a Table of Contents be produced for articles?
- #t)
-
-(define %generate-part-toc%
- ;; Should a Table of Contents be produced for parts?
- #t)
-
-(define %generate-book-titlepage%
- ;; produce a title page for books
- #t)
-
-(define %generate-article-titlepage%
- ;; produce a title page for articles
- #t)
-
-(define (chunk-skip-first-element-list)
- ;; forces the Table of Contents on separate page
- '())
-
-(define (list-element-list)
- ;; fixes bug in Table of Contents generation
- '())
-
-(define %root-filename%
- ;; The filename of the root HTML document (e.g, "index").
- "index")
-
-(define %shade-verbatim%
- ;; verbatim sections will be shaded if t(rue)
- #t)
-
-(define %use-id-as-filename%
- ;; Use ID attributes as name for component HTML files?
- #t)
-
-(define %graphic-extensions%
- ;; graphic extensions allowed
- '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-(define %graphic-default-extension%
- "gif")
-
-(define %section-autolabel%
- ;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
- #t)
-
-(define (toc-depth nd)
- ;; more depth (2 levels) to toc; instead of flat hierarchy
- ;; 2)
- 2)
-
-(element emphasis
- ;; make role=strong equate to bold for emphasis tag
- (if (equal? (attribute-string "role") "strong")
- (make element gi: "STRONG" (process-children))
- (make element gi: "EM" (process-children))))
-
-(define (book-titlepage-recto-elements)
- ;; elements on a book's titlepage
- ;; note: added revhistory to the default list
- (list (normalize "title")
- (normalize "subtitle")
- (normalize "graphic")
- (normalize "mediaobject")
- (normalize "corpauthor")
- (normalize "authorgroup")
- (normalize "author")
- (normalize "editor")
- (normalize "copyright")
- (normalize "revhistory")
- (normalize "abstract")
- (normalize "legalnotice")))
-
-(define (article-titlepage-recto-elements)
- ;; elements on an article's titlepage
- ;; note: added othercredit to the default list
- (list (normalize "title")
- (normalize "subtitle")
- (normalize "authorgroup")
- (normalize "author")
- (normalize "othercredit")
- (normalize "releaseinfo")
- (normalize "copyright")
- (normalize "pubdate")
- (normalize "revhistory")
- (normalize "abstract")))
-
-;(mode article-titlepage-recto-mode
-;
-; (element contrib
-; ;; print out with othercredit information; for translators, etc.
-; (make sequence
-; (make element gi: "SPAN"
-; attributes: (list (list "CLASS" (gi)))
-; (process-children))))
-;
-; (element othercredit
-; ;; print out othercredit information; for translators, etc.
-; (let ((author-name (author-string))
-; (author-contrib (select-elements (children (current-node))
-; (normalize "contrib"))))
-; (make element gi: "P"
-; attributes: (list (list "CLASS" (gi)))
-; (make element gi: "B"
-; (literal author-name)
-; (literal " - "))
-; (process-node-list author-contrib))))
-;)
-
-(define (article-title nd)
- (let* ((artchild (children nd))
- (artheader (select-elements artchild (normalize "artheader")))
- (artinfo (select-elements artchild (normalize "articleinfo")))
- (ahdr (if (node-list-empty? artheader)
- artinfo
- artheader))
- (ahtitles (select-elements (children ahdr)
- (normalize "title")))
- (artitles (select-elements artchild (normalize "title")))
- (titles (if (node-list-empty? artitles)
- ahtitles
- artitles)))
- (if (node-list-empty? titles)
- ""
- (node-list-first titles))))
-
-
-;; jf-custom.dsl original
-
-(define %admon-graphics-path%
- ;; use graphics in admonitions, set their
- "./")
-
-(define %callout-graphics-path%
- ;; Sets the path, probably relative to the directory where the HTML
- ;; files are created, to the callout graphics.
- "./")
-
-(mode article-titlepage-recto-mode
-
- (element contrib
- ;; print out with othercredit information; for translators, etc.
- (make sequence
- (make element gi: "SPAN"
- attributes: (list (list "CLASS" (gi)))
- (process-children))))
-
- (element othercredit
- ;; print out othercredit information; for translators, etc.
- (let ((author-name (author-string))
- (author-contrib (select-elements (children (current-node))
- (normalize "contrib")))
- (author-affil (select-elements (children (current-node))
- (normalize "affiliation"))))
- (make element gi: "P"
- attributes: (list (list "CLASS" (gi)))
- (make element gi: "B"
- (literal author-name)
- (literal " - "))
- (process-node-list author-contrib)
- (process-node-list author-affil))))
-)
-
-(define %show-ulinks%
- ;; REFENTRY show-ulinks
- ;; PURP Display URLs after ULinks?
- ;; DESC
- ;; If true, the URL of each ULink will appear in parenthesis after
- ;; the text of the link. If the text of the link and the URL are
- ;; identical, the parenthetical URL is suppressed.
- ;; /DESC
- ;; AUTHOR N/A
- ;; /REFENTRY
- #f)
-
-(element ulink
- (make element gi: "A"
- attributes: (list
- (list "HREF" (attribute-string (normalize "url")))
- (list "TARGET" "_top"))
- (process-children)
- (if (and %show-ulinks%
- (not (equal? (attribute-string (normalize "url"))
- (data-of (current-node)))))
- (make sequence
- (literal " (")
- (literal (attribute-string (normalize "url")))
- (literal ")"))
- (empty-sosofo))))
-
-;; The following is obtained from:
-;;
-;; > Id: dbbibl.dsl,v 1.23 2000/07/19 18:40:06 nwalsh Exp
-;; >
-;; > This file is part of the Modular DocBook Stylesheet distribution.
-;;
-;; and modified for Japanese name order convention.
-;; (modified by Hiroki Sato <hrs@jp.FreeBSD.org>
-
-(define (author-string #!optional (author (current-node)))
- ;; Return a formatted string representation of the contents of:
- ;; AUTHOR:
- ;; Handles Honorific, FirstName, SurName, and Lineage.
- ;; If %author-othername-in-middle% is #t, also OtherName
- ;; Handles *only* the first of each.
- ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage"
- ;; CORPAUTHOR:
- ;; returns (data corpauthor)
- (let* (
-; (lang (attribute-string "lang" (select-elements
-; author (normalize "author"))))
- (lang (if (string? author) ($lang$) ($lang$ author)))
- (h_nl (select-elements
- (descendants author) (normalize "honorific")))
- (f_nl (if (equal? lang "ja")
- (select-elements
- (descendants author) (normalize "surname"))
- (select-elements
- (descendants author) (normalize "firstname"))))
- (o_nl (select-elements
- (descendants author) (normalize "othername")))
- (s_nl (if (equal? lang "ja")
- (select-elements
- (descendants author) (normalize "firstname"))
- (select-elements
- (descendants author) (normalize "surname"))))
- (l_nl (select-elements
- (descendants author) (normalize "lineage")))
- (has_h (not (node-list-empty? h_nl)))
- (has_f (not (node-list-empty? f_nl)))
- (has_o (and %author-othername-in-middle%
- (not (node-list-empty? o_nl))))
- (has_s (not (node-list-empty? s_nl)))
- (has_l (not (node-list-empty? l_nl))))
- (if (or (equal? (gi author) (normalize "author"))
- (equal? (gi author) (normalize "editor"))
- (equal? (gi author) (normalize "othercredit")))
- (string-append
- (if has_h (string-append (data-of (node-list-first h_nl))
- %honorific-punctuation%) "")
- (if has_f (string-append
- (if has_h " " "")
- (data-of (node-list-first f_nl))) "")
- (if has_o (string-append
- (if (or has_h has_f) " " "")
- (data-of (node-list-first o_nl))) "")
- (if has_s (string-append
- (if (or has_h has_f has_o) " " "")
- (data-of (node-list-first s_nl))) "")
- (if has_l (string-append
- ", " (data-of (node-list-first l_nl))) ""))
- (data-of author))))
-
-(element email
- ;; Do not link to mail address.
- ($mono-seq$
- (make sequence
- (literal "<")
- (process-children)
- (literal ">"))))
-
-(define %gentext-nav-tblwidth% "100%")
-
-(define %honorific-punctuation% " / ")
-(define biblio-number #t)
-(define %table-rules% #t)
-
-
-(define %body-attr%
- ;; What attributes should be hung off of BODY?
- (list
- (list "BGCOLOR" "#FFFFFF")
- (list "TEXT" "#000000")))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
OSDN Git Service
