]]> ]]> ]> ;; ;; DocBook Stylesheet for KLDP ( http://kldp.org ) ;; This is based on Modular DocBook Stylesheet ( http://nwalsh.com ) ;; ;; Update : 2001/05/04 ;; ;; Maintained by Park Yong Joo ( yongjoo@kldp.org ) ;; ;; ÇÑ±Û DocBook ¹®¼­¸¦ À§ÇÑ KLDP ½ºÅ¸ÀϽÃÆ®ÀÔ´Ï´Ù. ;; Norman WalshÀÇ Modular DocBook Stylesheet¿Í ÇÔ²² »ç¿ëÇÏ¿©¾ß ÇÕ´Ï´Ù. ;; ;; Contributors ;; Chung, Ha-Nyung ( alita@kldp.org ) ;; Im Eun Jae ( eunjae@kldp.org ) ;; J.-Y. Hoh ( jhoh@stud.uni-goettingen.de ) ;; juami@mail.pentasecurity.com ;; Kang, Joonsun( bigbear@ece.skku.ac.kr ) ;; Kim Hyun Soo ( polsci@hitel.net ) ;; KIM KyungHeon ( tody@teoal.net ) ;; Kim Yun Han ( spbear@hanmail.net ) ;; Lee Suk Chan ( acetcom@pentasecurity.com ) ;; rainlood ( rainlood@kldp.org ) ;; Yang Yoo Seong ( yooseong@kldp.org ) ;; ;; Specially thanks to Kwon Soon Sun ( kss@kldp.org ) ;; ;; Any suggestion or questions? subscribe Docs@list.kldp.org ;; also http://docs.kldp.org for more information ;; ;; DocBook°ú ½ºÅ¸ÀϽÃÆ®ÀÇ »ç¿ë¹ý¿¡ ´ëÇؼ­´Â ;; ¿­¸° ±ÛÁþ±â ȨÆäÀÌÁö(http://docs.kldp.org)¸¦ Âü°íÇϼ¼¿ä. ;; ¸ÞÀϸµ ¸®½ºÆ®(Docs@list.kldp.org)¿¡¼­´Â ¿ÀÇ ¼Ò½º ¹®¼­È­¿¡ ´ëÇÑ ;; Áú¹®°ú Åä·ÐÀ» ±â´Ù¸®°í ÀÖ½À´Ï´Ù. ;; ;; ===================================== ;; ;; ¿©±â¼­ºÎÅÍ print¿ë ½ºÅ¸ÀϽÃÆ® ºÎºÐÀÔ´Ï´Ù. ;; ;; ===================================== ;; ===================================== ;; ;; Modular DocBook Sytlesheet¿¡¼­ Á¦°øÇÏ´Â ;; ¿©·¯ ÆĶó¹ÌÅ͵éÀÇ °ªÀ» ¼³Á¤ÇÕ´Ï´Ù. ÀÌ ºÎºÐÀº ;; LDP ½ºÅ¸ÀϽÃÆ®¸¦ ¸¹ÀÌ Âü°íÇÏ¿´½À´Ï´Ù(http://www.linuxdoc.org). ;; ÀÌ ¹Û¿¡µµ ¹«Ã´ ¸¹Àº ÆĶó¹ÌÅ͵éÀÌ ÀÖ½À´Ï´Ù. ÀÚ¼¼ÇÑ ³»¿ëÀº ;; ½ºÅ¸ÀϽÃÆ® ¹®¼­¸¦ Âü°íÇϽñ⠹ٶø´Ï´Ù. ;; http://nwalsh.com/docbook/dsssl/doc/ ;; ;; ÀÌ ºÎºÐÀÇ ¼Ò½º´Â print/dbparam.dsl ÀÔ´Ï´Ù. ;; (define (toc-depth nd) ;; 'Â÷·Ê'ÀÇ ±íÀ̸¦ Á¶ÀýÇÕ´Ï´Ù. Á¤¼ö°ªÀ» ´Ã¸®¸é ;; Â÷·Ê°¡ Á»´õ ÀÚ¼¼ÇÏ°Ô(±í°Ô) ³ª¿É´Ï´Ù. Áö³ªÄ¡°Ô ±í¾îÁö¸é ;; ºÒÇÊ¿äÇÑ ±º´õ´õ±â°¡ ³ª¿À¹Ç·Î À̶§´Â °ªÀ» ÁÙ¿©ÁÝ´Ï´Ù. 2) (define %paper-type% ;; Á¾ÀÌÀÇ ±Ô°ÝÀ» ¼³Á¤ÇÕ´Ï´Ù. "USletter"¿Í A B C ½Ã¸®Áî°¡ °¡´ÉÇÕ´Ï´Ù. "A4") (define %two-side% ;; ¾ç¸é Àμâ¿ëÀ¸·Î º¯È¯ÇÒ °ÍÀÎÁö¸¦ °áÁ¤ÇÕ´Ï´Ù. ;; #t·Î °ªÀ» ÁÖ¸é ÆäÀÌÁö ¹øÈ£°¡ Á¿쿡 ¹ø°¥¾Æ ³ªÅ¸³³´Ï´Ù. #f) (define bop-footnotes ;; ÁÖ¼®À» °¢ ÆäÀÌÁö ¾Æ·¡¿¡ ¹Ù·Î ³Ö¾îÁÝ´Ï´Ù. #f·Î °ªÀ» ÁÖ¸é ;; °¢ Àý(section)ÀÇ ¸¶Áö¸·¿¡ ÁÖ¼®ÀÌ ÀÚ¸®ÇÏ°Ô µË´Ï´Ù. ;; ÀÌ ±â´ÉÀº TeX ÇüÅ·Π¹®¼­¸¦ º¯È¯ÇÒ ¶§ ;; jade¿¡ -V tex-backend ¿É¼ÇÀ» ÁÖ¾î¾ß ÀÛµ¿ÇÕ´Ï´Ù. #t) (define %generate-article-titlepage-on-separate-page% ;; articleÀÇ title page°¡ µû·Î ÇÑ ÆäÀÌÁö Â÷ÁöÇϵµ·Ï ;; ÇÒ °ÍÀÎÁö °áÁ¤ÇÕ´Ï´Ù. #f) (define %graphic-default-extension% ;; graphic ±âÃÊ¿ä¼ÒÀÇ fileref ¼Ó¼º¿¡¼­, ;; %graphic-extensions%¿¡¼­ ÁöÁ¤ÇÑ È®Àå¸íÀÌ ºÙÁö ¾ÊÀº ±×¸² ;; ÆÄÀÏ À̸§ÀÌ ÀÖÀ¸¸é ÀÚµ¿À¸·Î ÀÌ°÷¿¡ Á¦½ÃµÈ È®Àå¸íÀ» »ç¿ëÇÕ´Ï´Ù. ;; ÀÌ ±â´ÉÀº ±×¸²ÀÌ µç ¹®¼­¸¦ ¿©·¯°¡Áö ÇüÅ·Πº¯È¯ÇÒ ¶§ À¯¿ëÇÕ´Ï´Ù. ;; #f·Î °ªÀ» ÁÖ¸é ÀÌ ±â´ÉÀº ÀÛµ¿ÇÏÁö ¾Ê°Ô µË´Ï´Ù. #f) (define %graphic-extensions% ;; graphic ±âÃÊ¿ä¼ÒÀÇ fileref ¼Ó¼º¿¡ »ç¿ëµÉ ;; ±×¸² ÆÄÀÏÀÇ È®Àå¸íÀ» ³ª¿­ÇÕ´Ï´Ù. '("eps" "epsf" "gif" "tif" "tiff" "jpg" "jpeg" "png")) (define %para-indent-firstpara% ;; ù¹ø° ¹®´ÜÀÇ µé¿©¾²±â °£°ÝÀ» Á¶ÀýÇÕ´Ï´Ù. 5pt) (define %para-indent% ;; ù¹ø° ¹®´ÜÀÌ ¾Æ´Ñ ´Ù¸¥ ¹®´ÜÀÇ µé¿©¾²±â °£°ÝÀ» ;; Á¶ÀýÇÕ´Ï´Ù. 5pt) (define formal-object-float ;; formal objectµéÀÇ ¶°´Ù´Ô ±â´ÉÀ» ¼³Á¤ÇÕ´Ï´Ù. ;; ÀÌ ±â´ÉÀ» »ç¿ëÇÏ°Ô µÇ¸é Ç¥¿Í ±×¸²µéÀÌ Àû´çÇÑ À§Ä¡¸¦ ;; ã¾Æ `¶°´Ù´Ï°Ô' µË´Ï´Ù. informal·Î Á¤ÀÇµÈ °æ¿ì ;; (informalfigure µî)ÀÇ °æ¿ì¿¡´Â Àû¿ëµÇÁö ¾Ê½À´Ï´Ù. ;; #f·Î °ªÀ» ÁÖ¸é ¿ø·¡ »ðÀÔµÈ À§Ä¡¿¡¼­ °íÁ¤µË´Ï´Ù. #f) (define %section-autolabel% ;; °¢ Àý(section)ÀÇ Á¦¸ñ¿¡ 1.1.1. Çü½ÄÀÇ ;; ¹øÈ£¸¦ ´Þ¾ÆÁÝ´Ï´Ù. #t) (define %admon-graphics% ;; cautionÀ̳ª warning µîÀ» ±×¸² ¾ÆÀÌÄÜÀ» »ç¿ëÇØ Ç¥ÇöÇÒ °ÍÀÎÁö ;; °áÁ¤ÇÕ´Ï´Ù. #f) (define %admon-graphics-path% ;; %admon-graphics%¿¡¼­ »ç¿ëÇÒ ±×¸² ÆÄÀÏÀÇ °æ·Î¸¦ ÁöÁ¤ÇÕ´Ï´Ù. "../images/") ;; ====================================== ;; ;; ½ºÅ¸ÀϽÃÆ®ÀÇ ÆĶó¹ÌÅÍ´Â ¾Æ´ÏÁö¸¸ ¸î°¡Áö ¹®Á¦Á¡À» ;; ÇÇÇØ°¡±â À§ÇØ ¼öÁ¤ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. (declare-characteristic preserve-sdata? ;; character entity°¡ ±×´ë·Î Ãâ·ÂµÇ¾î ¹ö¸®´Â ¹®Á¦¸¦ ÇØ°áÇØ ÁÝ´Ï´Ù. ;; ÀÌ ¹®Á¦Á¡Àº ±èÇö¼ö(polsci@hitel.net)´ÔÀÌ ÁöÀûÇØ Áּ̽À´Ï´Ù. "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #f) ;; ======================================= ;; ;; ¿©±â¼­ºÎÅÍ´Â Á»´õ ÀÚ¿¬½º·¯¿î ÇÑ±Û Ç¥ÇöÀ» À§ÇØ ;; Modular DocBook StylesheetÀÇ print ºÎºÐÀ» ¼öÁ¤ÇÕ´Ï´Ù. ;; (element emphasis ;; emphasis¸¦ ¹«Á¶°Ç ±½Àº ±Û¾¾Ã¼·Î Ç¥ÇöÇϵµ·Ï ÇÕ´Ï´Ù. ;; ±âº»°ªÀº ÀÌÅŸ¯Ã¼ÀÔ´Ï´Ù. ;; ÀÌ ºÎºÐÀº Chung, Ha-Nyung(alita@kldp.org)´ÔÀÌ ;; ÁöÀûÇØ Áּ̽À´Ï´Ù. ;; ¼Ò½º´Â print/dbinline.dsl ÀÔ´Ï´Ù. ($bold-seq$)) (define (book-titlepage-recto-elements) ;; ÃÖ»óÀ§ ±âÃÊ¿ä¼Ò bookÀÇ Ç¥Áö¿¡¼­ ¾î¶² ³»¿ëÀÌ ;; ³ª¿Àµµ·Ï ÇÒÁö ÁöÁ¤ÇÕ´Ï´Ù. ¿«ÀºÀÌ¿Í ¿Å±äÀ̸¦ À§ÇÑ ;; 'editor'¿Í 'othercredit'°¡ Ãß°¡µÇ¾ú½À´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "othercredit") )) (define (book-titlepage-verso-elements) ;; ÃÖ»óÀ§ ±âÃÊ¿ä¼Ò bookÀÇ ¼ÓÁö¿¡¼­ ¾î¶² ³»¿ëÀÌ ;; ³ª¿Àµµ·Ï ÇÒÁö ÁöÁ¤ÇÕ´Ï´Ù. ¿«ÀºÀÌ¿Í ¿Å±äÀ̸¦ À§ÇÑ ;; 'editor'¿Í 'othercredit'°¡ Ãß°¡µÇ¾ú½À´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "othercredit") (normalize "edition") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory") )) (define (article-titlepage-recto-elements) ;; ÃÖ»óÀ§ ±âÃÊ¿ä¼Ò articleÀÇ Ç¥Áö¿¡¼­ ¾î¶² ³»¿ëÀÌ ;; ³ª¿Àµµ·Ï ÇÒÁö ÁöÁ¤ÇÕ´Ï´Ù. ¿«ÀºÀÌ¿Í ¿Å±äÀ̸¦ À§ÇÑ ;; 'editor'¿Í 'othercredit'°¡ Ãß°¡µÇ¾ú½À´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "othercredit") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory") (normalize "releaseinfo") )) (mode article-titlepage-recto-mode (element editor ;; articleÀÇ Ç¥Áö¿¡¼­ editor ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((editor-name (author-string)) (editor-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (if (first-sibling?) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 1) quadding: %article-title-quadding% keep-with-next?: #t ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'edited by'¸¦ '¿«ÀºÀÌ'·Î ;; ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-C5EE;\U-C740;\U-C774;")) (empty-sosofo)) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) ;; ¾Æ·¡´Â ¿ø·¡ ¼Ò½º¿¡ ÀÖ´Â ³»¿ëÀÌÁö¸¸ º¸±â ½ÈÀº ;; ºó °ø°£À» ¾ø¾Ö±â À§ÇØ ÁÖ¼® ó¸®ÇÏ¿´½À´Ï´Ù. ;; space-after: (* (HSIZE 2) %head-after-factor% 2) quadding: %article-title-quadding% keep-with-next?: #t (literal editor-name)) (process-node-list editor-affil)))) (element contrib ;; contribÀÌ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ¹¦»çÇÕ´Ï´Ù. (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element othercredit ;; articleÀÇ Ç¥Áö¿¡¼­ othercerdit ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. (let ((credit-name (author-string)) (credit-contrib (select-elements (children (current-node)) (normalize "contrib"))) (credit-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (if (first-sibling?) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 1) quadding: %article-title-quadding% keep-with-next?: #t ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ othercreditÀ» ;; `µµ¿îÀÌ'·Î ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-B3C4;\U-C6B4;\U-C774;")) (empty-sosofo)) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) ;; ÀÌ ºÎºÐÀº ¿ø·¡ ¼Ò½º¿¡ ÀÖ´Â ³»¿ëÀÌÁö¸¸ ;; º¸±â½ÈÀº ºó ¿©¹éÀ» ¾ø¾Ö±â À§ÇØ ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; space-after: (* (HSIZE 2) %head-after-factor% 2) quadding: %article-title-quadding% keep-with-next?: #t (literal credit-name)) ;; othercreditÀÇ contribÀ» ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (process-node-list credit-contrib) (process-node-list credit-affil)))) (element copyright ;; CopyrightÀº Çѱ¹¾î Áö¿ªÈ­¿¡¼­ 'ÀúÀÛ±Ç'À¸·Î ¹ø¿ªµÇ¾î ;; ÀÖÁö¸¸ Á»´õ ÀÚ¿¬½º·¯¿î ¹®¼­¸¦ À§ÇØ ¿µ¹® Ç¥ÇöÀ» ;; ±×´ë·Î °¡Á®´Ù ¾¹´Ï´Ù. (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (literal "Copyright") (literal "\no-break-space;") ;; copyright ¹®ÀÚ°¡ ÇÑ±Û È¯°æ¿¡¼­ ±úÁö´Â °ÍÀ» ¹æÁöÇϱâ À§ÇØ ;; ¿ø¹®ÀÚ c¸¦ ´ë½Å »ç¿ëÇÕ´Ï´Ù. ;; ÀÌ ¹®Á¦Á¡Àº juami@mail.pentasecurity.com ´ÔÀÌ ;; ÁöÀûÇØ Áּ̽À´Ï´Ù. (literal "\U-24D2;") (literal "\no-break-space;") (process-children))) (element (copyright year) ;; CopyrightÀÇ ÀúÀÛ±Ç °»½Å ³âµµ¸¦ ¿µ¹®À¸·Î ;; Ç¥ÇöÇÕ´Ï´Ù. (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal (string-append " " "by" " "))))) ) (mode book-titlepage-recto-mode (element editor ;; bookÀÇ Ç¥Áö¿¡¼­ editor ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((editor-name (author-string)) (editor-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (if (first-sibling?) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 3) quadding: %division-title-quadding% keep-with-next?: #t ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'edited by'°¡ ;; `¿«ÀºÀÌ'·Î ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-C5EE;\U-C740;\U-C774;")) (empty-sosofo)) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) ;; ¾Æ·¡´Â ¿ø·¡ ¼Ò½º¿¡ Æ÷ÇԵǾî ÀÖ´Â ³»¿ëÀÌÁö¸¸ ;; º¸±â ½ÈÀº ¿©¹éÀ» ¾ø¾Ö±â À§ÇØ ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; space-after: (* (HSIZE 2) %head-after-factor% 2) quadding: %division-title-quadding% keep-with-next?: #t (literal editor-name)) (process-node-list editor-affil)))) (element othercredit ;; bookÀÇ Ç¥Áö¿¡¼­ othercredit ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. (let ((credit-name (author-string)) (credit-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (if (first-sibling?) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 3) quadding: %division-title-quadding% keep-with-next?: #t ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ othercredit°¡ ;; 'µµ¿îÀÌ'·Î ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-B3C4;\U-C6B4;\U-C774;")) (empty-sosofo)) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) ;; ¾Æ·¡´Â ¿ø·¡ ¼Ò½º¿¡ ÀÖ´ø ³»¿ëÀÌÁö¸¸ º¸±â½ÈÀº ;; ¿©¹éÀ» ¾ø¾Ö±â À§ÇØ ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; space-after: (* (HSIZE 2) %head-after-factor% 2) quadding: %division-title-quadding% keep-with-next?: #t (literal credit-name)) (process-node-list credit-affil)))) ) (mode book-titlepage-verso-mode (element author ;; bookÀÇ ¼ÓÁö¿¡¼­ author ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'by'°¡ 'ÁöÀºÀÌ'·Î ;; ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-C9C0;\U-C740;\U-C774;") (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element editor ;; bookÀÇ ¼ÓÁö¿¡¼­ editor ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â print/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'edited by'°¡ '¿«ÀºÀÌ'·Î ;; ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-C5EE;\U-C740;\U-C774;") (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-string)))))) (element contrib ;; contribÀÌ ¾î¶»°Ô ³ª¿Àµµ·Ï ÇÒÁö ¹¦»çÇÕ´Ï´Ù. (make paragraph use: book-titlepage-verso-style (process-children))) (element othercredit ;; bookÀÇ ¼ÓÁö¿¡¼­ othercrdit ±âÃÊ¿ä¼Ò°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ;; ÇÒÁö ¹¦»çÇÕ´Ï´Ù. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node))) (credit-contrib (select-elements (children (current-node)) (normalize "contrib")))) (if (or #t (not in-group)) (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ othercredit°¡ ;; 'µµ¿îÀÌ'·Î ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal "\U-B3C4;\U-C6B4;\U-C774;") (literal "\no-break-space;") (literal (author-string)) (process-node-list credit-contrib))) (make sequence (literal (author-string)) (process-node-list credit-contrib))))) (element copyright (make paragraph use: book-titlepage-verso-style ;; Çѱ¹¾î Áö¿ªÈ­¿¡ °ü°è¾øÀÌ ¿µ¹® Ç¥ÇöÀ¸·Î ;; ÀúÀÛ±ÇÀ» ³ªÅ¸³À´Ï´Ù. (literal "Copyright") (literal "\no-break-space;") (literal "\U-24D2;") (literal "\no-break-space;") (process-children))) (element (copyright year) ;; ÀúÀÛ±Ç °»½Å ³âµµ¸¦ ¿µ¹®À¸·Î Ç¥ÇöÇÕ´Ï´Ù. (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal (string-append " " "by" " "))))) ) (define (auto-xref-indirect target #!optional (xref-string (gentext-xref-strings target))) ;; ÂüÁ¶¸¦ '1ÀåÀÇ "Á¦¸ñ" Àý' Çü½ÄÀ¸·Î Ç¥ÇöÇϱâ À§ÇÑ ºÎºÐÀÔ´Ï´Ù. ;; ¿øÇüÀº 'the section called "title" in chaper 1' Çü½ÄÀÔ´Ï´Ù. ;; common/dbl1ko.dsl¿¡¼­ 'the section called "title"'Àº ;; '"Á¦¸ñ" Àý'·Î, 'in'Àº 'ÀÇ'·Î ´ëÀÀµÇ¾î ÀÖ½À´Ï´Ù. ;; ;; ¿©±â¼­´Â 'the section called "title"' ºÎºÐ°ú ;; 'in chapter 1' ºÎºÐÀ» µÚ¹Ù²Ù¾î ;; 'ÀÇ 1Àå "Á¦¸ñ" Àý' ÇüÅ·Π¸¸µé¾î ÁÝ´Ï´Ù. ;; ¼Ò½º´Â common/dbcommon.dsl ÀÔ´Ï´Ù. (make sequence (auto-xref-direct target xref-string) (auto-xref-indirect-connector target))) (define (auto-xref target #!optional (xref-string (gentext-xref-strings target))) ;; ´ÙÀ½Àº 'in'°ú `chapter 1'ÀÇ À§Ä¡¸¦ ¹Ù²Ù°í ºóÄ­À» ¾ø¾Ö ;; '1ÀåÀÇ' ÇüŸ¦ ¸¸µé¾î ÁÝ´Ï´Ù. ;; µû¶ó¼­ '1ÀåÀÇ "Á¦¸ñ" Àý' Çü½ÄÀ¸·Î º¯È¯µË´Ï´Ù. ;; ¼Ò½º´Â common/dbcommon.dsl ÀÔ´Ï´Ù. (let ((source (current-node)) (cont-blok (ancestor-member target (block-element-list))) (cont-sect (ancestor-member target (section-element-list))) (cont-comp (ancestor-member target (component-element-list))) (cont-divn (ancestor-member target (division-element-list))) (cont-book (ancestor-member target (book-element-list)))) (make sequence (if (or (node-list=? cont-blok (ancestor-member source (block-element-list))) (node-list=? cont-blok target) (not (auto-xref-indirect? target cont-blok))) (empty-sosofo) (auto-xref-indirect cont-blok)) (if (or (node-list=? cont-sect (ancestor-member source (section-element-list))) (node-list=? cont-sect target) (not (auto-xref-indirect? target cont-sect))) (empty-sosofo) (auto-xref-indirect cont-sect)) (if (or (node-list=? cont-comp (ancestor-member source (component-element-list))) (node-list=? cont-comp target) (not (auto-xref-indirect? target cont-comp))) (empty-sosofo) (auto-xref-indirect cont-comp)) (if (or (node-list=? cont-divn (ancestor-member source (division-element-list))) (node-list=? cont-divn target) (not (auto-xref-indirect? target cont-divn))) (empty-sosofo) (auto-xref-indirect cont-divn)) (if (or (node-list=? cont-book (ancestor-member source (book-element-list))) (node-list=? cont-book target) (not (auto-xref-indirect? target cont-book))) (empty-sosofo) (auto-xref-indirect cont-book)) (auto-xref-direct target xref-string) ))) (define ($component-title$) ;; part, chapter, sectionÀÇ °æ¿ì¿¡ Ãâ·ÂµÇ´Â ¼ø¼­¸¦ ¹Ù²ã ;; '1ºÎ' '1Àå' '1Àý' ÇüÅ°¡ µÇµµ·Ï ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. ±× ¹Û¿¡ ;; appendix °°Àº °æ¿ì´Â ±×´ë·Î 'ºÎ·Ï A' Çü½ÄÀ¸·Î ³ª¿À°Ô µË´Ï´Ù. ;; ¼Ò½º´Â print/dbcompon.dsl ÀÔ´Ï´Ù. (let* ((info (cond ((equal? (gi) (normalize "appendix")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "article")) (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) ((equal? (gi) (normalize "bibliography")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "chapter")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "dedication")) (empty-node-list)) ((equal? (gi) (normalize "glossary")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "index")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "preface")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "reference")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "setindex")) (select-elements (children (current-node)) (normalize "docinfo"))) (else (empty-node-list)))) (exp-children (if (node-list-empty? info) (empty-node-list) (expand-children (children info) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (parent-titles (select-elements (children (current-node)) (normalize "title"))) (info-titles (select-elements exp-children (normalize "title"))) (titles (if (node-list-empty? parent-titles) info-titles parent-titles)) (subtitles (select-elements exp-children (normalize "subtitle")))) (make sequence (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (if (string=? (element-label) "") (empty-sosofo) ;; ¿©±â¼­ part¿Í chaper, sectionÀÇ Ãâ·Â ¼ø¼­¸¦ ¹Ù²ß´Ï´Ù. (if (or (equal? (gi) (normalize "part")) (equal? (gi) (normalize "chapter")) (equal? (gi) (normalize "section"))) (literal (element-label) (gentext-element-name (current-node)) (gentext-label-title-sep (gi))) (literal (gentext-element-name-space (current-node)) (element-label) (gentext-label-title-sep (gi))))) (if (node-list-empty? titles) (element-title-sosofo) (with-mode component-title-mode (make sequence (process-node-list titles))))) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-posture: 'italic font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%)) space-after: (* (HSIZE 4) %head-after-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-subtitle-quadding% keep-with-next?: #t (with-mode component-title-mode (make sequence (process-node-list subtitles))))))) (mode hf-mode (element title ;; °¢ ÆäÀÌÁö »ó´Ü¿¡ ³ª¿À´Â Á¦¸ñ ºÎºÐ¿¡¼­ '1Àå' Çü½ÄÀ» ;; ¸¸µì´Ï´Ù. ;; ¼Ò½º´Â print/dbcompon.dsl ÀÔ´Ï´Ù. (let* ((component (ancestor-member (current-node) (component-element-list))) (chap (equal? (gi component) (normalize "chapter"))) (app (equal? (gi component) (normalize "appendix")))) (if %chap-app-running-heads% (make sequence ; ¿©±â¼­ Ãâ·Â ¼ø¼­¸¦ ¹Ù²ß´Ï´Ù. (if (and chap %chapter-autolabel% (or %chap-app-running-head-autolabel% (attribute-string (normalize "label") component))) (literal (element-label component) (gentext-element-name component) (gentext-label-title-sep (gi component))) (empty-sosofo)) (if (and app %chapter-autolabel% (or %chap-app-running-head-autolabel% (attribute-string (normalize "label") component))) (literal (gentext-element-name-space component) (element-label component) (gentext-label-title-sep (gi component))) (empty-sosofo)) (process-children-trim)) (empty-sosofo)))) (element titleabbrev (if %chap-app-running-heads% (make sequence (if (have-ancestor? (normalize "chapter")) (literal (element-label (parent)) (gentext-element-name (parent)) (gentext-label-title-sep (gi (parent)))) (empty-sosofo)) (if (have-ancestor? (normalize "appendix")) (literal (gentext-element-name-space (parent)) (element-label (parent)) (gentext-label-title-sep (gi (parent)))) (empty-sosofo)) (process-children-trim)) (empty-sosofo))) (element refentrytitle (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refdescriptor (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refname (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element graphic (empty-sosofo)) (element inlinegraphic (empty-sosofo)) ) ;; ======================================== ;; ;; ¿©±â¼­ºÎÅÍ´Â HTML¿ë ½ºÅ¸ÀϽÃÆ® ºÎºÐÀÔ´Ï´Ù. ;; ;; ======================================== ;; ======================================== ;; ;; Modular DocBook Sytlesheet¿¡¼­ Á¦°øÇÏ´Â ;; ¿©·¯ ÆĶó¹ÌÅ͵éÀÇ °ªÀ» ¼³Á¤ÇÕ´Ï´Ù. ÀÌ ºÎºÐÀº ;; LDP ½ºÅ¸ÀϽÃÆ®¸¦ ¸¹ÀÌ Âü°íÇÏ¿´½À´Ï´Ù(http://www.linuxdoc.org). ;; ÀÌ ¹Û¿¡µµ ¹«Ã´ ¸¹Àº ÆĶó¹ÌÅ͵éÀÌ ÀÖ½À´Ï´Ù. ÀÚ¼¼ÇÑ ³»¿ëÀº ;; ½ºÅ¸ÀϽÃÆ® ¹®¼­¸¦ Âü°íÇϽñ⠹ٶø´Ï´Ù. ;; http://nwalsh.com/docbook/dsssl/doc/ ;; ;; ÀÌ ºÎºÐÀÇ ¼Ò½º´Â html/dbparam.dsl ÀÔ´Ï´Ù. ;; (define %html-ext% ;; »ý¼ºµÈ ÆÄÀÏÀÇ È®Àå¸íÀ» html·Î ÅëÀÏÇÕ´Ï´Ù. ".html") (define %html-header-tags% ;; ºê¶ó¿ìÀú¿¡¼­ ÇѱÛÀÌ ±úÁö´Â °æ¿ì¸¦ ¹æÁöÇϱâ À§ÇØ ;; ´ÙÀ½ÀÇ ³»¿ëÀÌ »ðÀԵ˴ϴÙ. '(("META" ("http-equiv" "Content-Type") ("content" "text/html; charset=euc-kr"))) ) (define %root-filename% ;; ù¹ø° ÆäÀÌÁöÀÇ ÆÄÀϸíÀº index·Î ÅëÀÏÇÕ´Ï´Ù. "index") (define (toc-depth nd) ;; 'Â÷·Ê'ÀÇ ±íÀ̸¦ ¼³Á¤ÇÕ´Ï´Ù. 4) (define %generate-article-toc% ;; article¿¡¼­ Â÷·Ê°¡ ³ª¿Àµµ·Ï ÇÒ °ÍÀÎÁö¸¦ °áÁ¤ÇÕ´Ï´Ù. ;; ±âº»°ªÀº Â÷·Ê°¡ ³ª¿ÀÁö ¾Êµµ·Ï µÇ¾î ÀÖ½À´Ï´Ù(#f). ;; bookÀÇ °æ¿ì¿¡´Â Â÷·Ê°¡ ³ª¿À´Â °ÍÀÌ ±âº»°ªÀÔ´Ï´Ù. #t) (define %graphic-default-extension% ;; graphic ±âÃÊ¿ä¼ÒÀÇ fileref ¼Ó¼º¿¡¼­, ;; %graphic-extensions%¿¡¼­ ÁöÁ¤ÇÑ È®Àå¸íÀÌ ºÙÁö ¾ÊÀº ±×¸² ;; ÆÄÀÏ À̸§ÀÌ ÀÖÀ¸¸é ÀÚµ¿À¸·Î ÀÌ°÷¿¡ Á¦½ÃµÈ È®Àå¸íÀ» »ç¿ëÇÕ´Ï´Ù. ;; ÀÌ ±â´ÉÀº ±×¸²ÀÌ µç ¹®¼­¸¦ ¿©·¯°¡Áö ÇüÅ·Πº¯È¯ÇÒ ¶§ À¯¿ëÇÕ´Ï´Ù. ;; #f·Î °ªÀ» ÁÖ¸é ÀÌ ±â´ÉÀº ÀÛµ¿ÇÏÁö ¾Ê°Ô µË´Ï´Ù. #f) (define %graphic-extensions% ;; graphic ±âÃÊ¿ä¼ÒÀÇ fileref ¼Ó¼º¿¡ »ç¿ëµÉ ;; ±×¸² ÆÄÀÏÀÇ È®Àå¸íÀ» ³ª¿­ÇÕ´Ï´Ù. '("eps" "epsf" "gif" "tif" "tiff" "jpg" "jpeg" "png")) (define %generate-legalnotice-link% ;; ¹ýÀû °øÁö(legalnotice)¿¡ ÇÑ ÆäÀÌÁö¸¦ µû·Î ÇÒ¾ÖÇÒ ;; °ÍÀÎÁö °áÁ¤ÇÕ´Ï´Ù. #t) (define %admon-graphics% ;; cautionÀ̳ª warning µîÀ» ±×¸² ¾ÆÀÌÄÜÀ» »ç¿ëÇØ Ç¥ÇöÇÒ °ÍÀÎÁö ;; °áÁ¤ÇÕ´Ï´Ù. #f) (define %admon-graphics-path% ;; %admon-graphics%¿¡¼­ »ç¿ëÇÒ ±×¸² ÆÄÀÏÀÇ °æ·Î¸¦ ÁöÁ¤ÇÕ´Ï´Ù. "../images/") (define %generate-part-toc% ;; part¿¡¼­ Â÷·Ê¸¦ »ý¼ºÇÒÁö °áÁ¤ÇÕ´Ï´Ù. #t) (define %shade-verbatim% ;; programlisting °°Àº verbatim ȯ°æ¿¡¼­´Â ;; ¹è°æÀ» ¾îµÓ°Ô ÇØÁÝ´Ï´Ù. #t) (define %use-id-as-filename% ;; id ¼Ó¼ºÀÇ °ªÀº °¢ ÆÄÀÏÀÇ À̸§ÀÌ µË´Ï´Ù. #t) (define %section-autolabel% ;; Á¦¸ñ¿¡ 1.1.1. °ú °°Àº Çü½ÄÀÇ ¹øÈ£ ¸Å±èÀ» ÇÕ´Ï´Ù. #t) (define %callout-graphics% ;; calloutlist¿¡ ±×¸² ¿ø¹®ÀÚ¸¦ »ç¿ëÇÏÁö ¾Ê½À´Ï´Ù. #f) (define %funcsynopsis-decoration% ;; funcsynopsis¸¦ º¸±â ÁÁ°Ô ÇØÁÝ´Ï´Ù. #t) ;; ====================================== ;; ;; ½ºÅ¸ÀϽÃÆ®ÀÇ ÆĶó¹ÌÅÍ´Â ¾Æ´ÏÁö¸¸ ¸î°¡Áö ¹®Á¦Á¡À» ;; ÇÇÇØ°¡±â À§ÇØ ¼öÁ¤ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. (declare-characteristic preserve-sdata? ;; character entity°¡ ±×´ë·Î Ãâ·ÂµÇ¾î ¹ö¸®´Â ¹®Á¦¸¦ ÇØ°áÇØ ÁÝ´Ï´Ù. ;; ÀÌ ¹®Á¦Á¡Àº ±èÇö¼ö(polsci@hitel.net)´ÔÀÌ ÁöÀûÇØ Áּ̽À´Ï´Ù. "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #f) (define (chunk-skip-first-element-list) ;; aticle¿¡¼­ ù¹ø° ÀýÀÌ title page¿¡ ºÙ¾î ³ª¿ÀÁö ¾Êµµ·Ï ÇÕ´Ï´Ù. '()) (define (list-element-list) ;; Â÷·Ê°¡ »ý¼ºµÉ ¶§ ºÒÇÊ¿äÇÑ ±º´õ´õ±â°¡ ºÙ´Â ¹ö±×¸¦ ÇÇÇØ°©´Ï´Ù. '()) ;; ======================================= ;; ;; ¿©±â¼­ºÎÅÍ´Â Á»´õ ÀÚ¿¬½º·¯¿î ÇÑ±Û Ç¥ÇöÀ» À§ÇØ ;; Modular DocBook StylesheetÀÇ HTML ºÎºÐÀ» ¼öÁ¤ÇÕ´Ï´Ù. ;; (element emphasis ;; emphasis¸¦ ¹«Á¶°Ç ±½Àº ±Û¾¾Ã¼·Î Ç¥ÇöÇϵµ·Ï ÇÕ´Ï´Ù. ;; ±âº»°ªÀº ÀÌÅŸ¯Ã¼ÀÔ´Ï´Ù. ;; ÀÌ ºÎºÐÀº Chung, Ha-Nyung(alita@kldp.org)´ÔÀÌ ;; ÁöÀûÇØ Áּ̽À´Ï´Ù. ;; ¼Ò½º´Â html/dbinline.dsl ÀÔ´Ï´Ù. ($bold-seq$)) (define (article-titlepage-recto-elements) ;; articleÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ ³ªÅ¸³¯ ±âÃÊ¿ä¼ÒµéÀ» ;; ÁöÁ¤ÇÕ´Ï´Ù. editor¿Í othercreditÀÌ Ãß°¡µÇ¾ú½À´Ï´Ù. ;; ¼Ò½º´Â html/dbttlpg.dsl ÀÔ´Ï´Ù. (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "othercredit") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory") (normalize "releaseinfo") )) (define (book-titlepage-recto-elements) ;; bookÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ ³ªÅ¸³¯ ±âÃÊ¿ä¼ÒµéÀ» ;; ÁöÁ¤ÇÕ´Ï´Ù. editor¿Í othercreditÀÌ Ãß°¡µÇ¾ú½À´Ï´Ù. ;; ¼Ò½º´Â html/dbttlpg.dsl ÀÔ´Ï´Ù. (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "othercredit") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory") (normalize "releaseinfo") )) (mode book-titlepage-recto-mode (element editor ;; bookÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ editor°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â html/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((editor-name (author-string)) (editor-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'edited by'¸¦ ;; '¿«ÀºÀÌ'·Î ³ª¿À°Ô ÇÕ´Ï´Ù. ;; KLDP¿¡¼­´Â 'edited by'¸¦ ¸í½ÃÇÏÁö ¾Ê´Â °ÍÀ» ;; ¿øÄ¢À¸·Î ÇÏ°í ÀÖÀ¸¹Ç·Î À̺κÐÀÌ Ãâ·ÂµÇÁö ¾Êµµ·Ï ;; ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; (if (first-sibling?) ;; (make element gi: "H4" ;; attributes: (list (list "CLASS" "EDITEDBY")) ;; (literal "\U-C5EE;\U-C740;\U-C774;")) ;; (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name)) (process-node-list editor-affil)))) (element contrib ;; othercreditÀ» À§ÇØ »ç¿ëµÇ´Â contribÀÌ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ;; ¹¦»çÇÕ´Ï´Ù. (make sequence (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children)))) (element othercredit ;; bookÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ othercredit°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ;; ¹¦»çÇÕ´Ï´Ù. (let ((credit-name (author-string)) (credit-contrib (select-elements (children (current-node)) (normalize "contrib"))) (credit-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ othercredit¸¦ ;; `µµ¿îÀÌ'·Î ³ª¿À°Ô ÇÕ´Ï´Ù. ;; KLDP¿¡¼­´Â othercredit¸¦ ¸í½ÃÇÏÁö ¾Ê´Â °ÍÀ» ;; ¿øÄ¢À¸·Î ÇÏ°í ÀÖÀ¸¹Ç·Î À̺κÐÀÌ Ãâ·ÂµÇÁö ¾Êµµ·Ï ;; ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; (if (first-sibling?) ;; (make element gi: "H4" ;; attributes: (list (list "CLASS" "EDITEDBY")) ;; (literal "\U-B3C4;\U-C6B4;\U-C774;")) ;; (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) ;; othercreditÀÇ contribÀÌ ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal credit-name)) (process-node-list credit-contrib) (process-node-list credit-affil)))) ) (mode article-titlepage-recto-mode (element editor ;; articleÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ editor°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ;; ¹¦»çÇÕ´Ï´Ù. ;; ¼Ò½º´Â html/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((editor-name (author-string)) (editor-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ 'edited by'¸¦ '¿«ÀºÀÌ'·Î ;; ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. ;; KLDP¿¡¼­´Â 'edited by'¸¦ ¸í½ÃÇÏÁö ¾ÊÀº °ÍÀ» ¿øÄ¢À¸·Î ;; ÇϹǷΠÀÌ ºÎºÐÀ» ÁÖ¼® ó¸®ÇÏ¿´½À´Ï´Ù. ;; (if (first-sibling?) ;; (make element gi: "H4" ;; attributes: (list (list "CLASS" "EDITEDBY")) ;; (literal "\U-C5EE;\U-C740;\U-C774;")) ;; (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name)) (process-node-list editor-affil)))) (element contrib ;; othercreditÀ» À§ÇØ »ç¿ëµÇ´Â contribÀÌ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ;; ¹¦»çÇÕ´Ï´Ù. (make sequence (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children)))) (element othercredit ;; articleÀÇ Ã¹ ÆäÀÌÁö¿¡¼­ othercredit°¡ ¾î¶»°Ô º¸¿©Áöµµ·Ï ÇÒÁö ;; ¹¦»çÇÕ´Ï´Ù. (let ((credit-name (author-string)) (credit-contrib (select-elements (children (current-node)) (normalize "contrib"))) (credit-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ othercreditÀ» 'µµ¿îÀÌ'·Î ;; ³ª¿À°Ô ÇÕ´Ï´Ù. ;; KLDP¿¡¼­´Â othercreditÀ» ¸í½ÃÇÏÁö ¾ÊÀº °ÍÀ» ±âº»À¸·Î ;; ÇϹǷΠÀÌ ºÎºÐÀ» ÁÖ¼®Ã³¸®ÇÏ¿´½À´Ï´Ù. ;; (if (first-sibling?) ;; (make element gi: "H4" ;; attributes: (list (list "CLASS" "EDITEDBY")) ;; (literal "\U-B3C4;\U-C6B4;\U-C774;")) ;; (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) ;; othercreditÀÇ contribÀÌ ³ª¿Àµµ·Ï ÇÕ´Ï´Ù. (literal credit-name)) (process-node-list credit-contrib) (process-node-list credit-affil)))) ) (define (titlepage-recto-copyright #!optional (node (current-node))) ;; lang ¼Ó¼º¿¡ »ó°ü¾øÀÌ ÀúÀÛ±Ç Á¤º¸¸¦ ¿µ¹® ÇüÅ·Π;; Ç¥±âÇÕ´Ï´Ù. ;; ¼Ò½º´Â html/dbttlpg.dsl ÀÔ´Ï´Ù. (let ((years (select-elements (descendants node) (normalize "year"))) (holders (select-elements (descendants node) (normalize "holder"))) (legalnotice (select-elements (children (parent node)) (normalize "legalnotice")))) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (if (and %generate-legalnotice-link% (not nochunks) (not (node-list-empty? legalnotice))) (make sequence (make element gi: "A" attributes: (list (list "HREF" ($legalnotice-link-file$ (node-list-first legalnotice)))) (literal "Copyright")) (literal " ") (dingbat-sosofo "copyright") (literal " ") (process-node-list years) (literal (string-append " " "by" " ")) (process-node-list holders)) (make sequence (literal "Copyright") (literal " ") (dingbat-sosofo "copyright") (literal " ") (process-node-list years) (literal (string-append " " "by" " ")) (process-node-list holders)))))) (define (auto-xref-indirect target #!optional (xref-string (gentext-xref-strings target))) ;; ÂüÁ¶¸¦ '1ÀåÀÇ "Á¦¸ñ" Àý' Çü½ÄÀ¸·Î Ç¥ÇöÇϱâ À§ÇÑ ºÎºÐÀÔ´Ï´Ù. ;; ¿øÇüÀº 'the section called "title" in chaper 1' Çü½ÄÀÔ´Ï´Ù. ;; common/dbl1ko.dsl¿¡¼­ 'the section called "title"'Àº ;; '"Á¦¸ñ" Àý'·Î, 'in'Àº 'ÀÇ'·Î ´ëÀÀµÇ¾î ÀÖ½À´Ï´Ù. ;; ;; ¿©±â¼­´Â 'the section called "title"' ºÎºÐ°ú ;; 'in chapter 1' ºÎºÐÀ» µÚ¹Ù²Ù¾î ;; 'ÀÇ 1Àå "Á¦¸ñ" Àý' ÇüÅ·Π¸¸µé¾î ÁÝ´Ï´Ù. ;; ¼Ò½º´Â common/dbcommon.dsl ÀÔ´Ï´Ù. (make sequence (auto-xref-direct target xref-string) (auto-xref-indirect-connector target))) (define (auto-xref target #!optional (xref-string (gentext-xref-strings target))) ;; ´ÙÀ½Àº 'in'°ú 'chapter 1'ÀÇ À§Ä¡¸¦ ¹Ù²Ù°í ºóÄ­À» ¾ø¾Ö ;; '1ÀåÀÇ' ÇüŸ¦ ¸¸µé¾î ÁÝ´Ï´Ù. ;; µû¶ó¼­ '1ÀåÀÇ "Á¦¸ñ" Àý' Çü½ÄÀ¸·Î º¯È¯µË´Ï´Ù. ;; ¼Ò½º´Â common/dbcommon.dsl ÀÔ´Ï´Ù. (let ((source (current-node)) (cont-blok (ancestor-member target (block-element-list))) (cont-sect (ancestor-member target (section-element-list))) (cont-comp (ancestor-member target (component-element-list))) (cont-divn (ancestor-member target (division-element-list))) (cont-book (ancestor-member target (book-element-list)))) (make sequence (if (or (node-list=? cont-blok (ancestor-member source (block-element-list))) (node-list=? cont-blok target) (not (auto-xref-indirect? target cont-blok))) (empty-sosofo) (auto-xref-indirect cont-blok)) (if (or (node-list=? cont-sect (ancestor-member source (section-element-list))) (node-list=? cont-sect target) (not (auto-xref-indirect? target cont-sect))) (empty-sosofo) (auto-xref-indirect cont-sect)) (if (or (node-list=? cont-comp (ancestor-member source (component-element-list))) (node-list=? cont-comp target) (not (auto-xref-indirect? target cont-comp))) (empty-sosofo) (auto-xref-indirect cont-comp)) (if (or (node-list=? cont-divn (ancestor-member source (division-element-list))) (node-list=? cont-divn target) (not (auto-xref-indirect? target cont-divn))) (empty-sosofo) (auto-xref-indirect cont-divn)) (if (or (node-list=? cont-book (ancestor-member source (book-element-list))) (node-list=? cont-book target) (not (auto-xref-indirect? target cont-book))) (empty-sosofo) (auto-xref-indirect cont-book)) (auto-xref-direct target xref-string) ))) (define ($component-title$ #!optional (titlegi "H1") (subtitlegi "H2")) ;; part, chapter, sectionÀÇ °æ¿ì¿¡ Ãâ·ÂµÇ´Â ¼ø¼­¸¦ ¹Ù²ã ;; '1ºÎ' '1Àå' '1Àý' ÇüÅ°¡ µÇµµ·Ï ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. ±× ¹Û¿¡ ;; appendix °°Àº °æ¿ì´Â ±×´ë·Î 'ºÎ·Ï A' Çü½ÄÀ¸·Î ³ª¿À°Ô µË´Ï´Ù. ;; ¼Ò½º´Â html/dbcompon.dsl ÀÔ´Ï´Ù. (let* ((info (cond ((equal? (gi) (normalize "appendix")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "article")) (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) ((equal? (gi) (normalize "bibliography")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "chapter")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "dedication")) (empty-node-list)) ((equal? (gi) (normalize "glossary")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "index")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "preface")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "reference")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "setindex")) (select-elements (children (current-node)) (normalize "docinfo"))) (else (empty-node-list)))) (exp-children (if (node-list-empty? info) (empty-node-list) (expand-children (children info) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (parent-titles (select-elements (children (current-node)) (normalize "title"))) (info-titles (select-elements exp-children (normalize "title"))) (titles (if (node-list-empty? parent-titles) info-titles parent-titles)) (subtitles (select-elements exp-children (normalize "subtitle")))) (make sequence (make element gi: titlegi (make element gi: "A" attributes: (list (list "NAME" (element-id))) ;; ¿©±â¼­ part¿Í chaper, sectionÀÇ Ãâ·Â ¼ø¼­¸¦ ¹Ù²ß´Ï´Ù. (if (and %chapter-autolabel% (or (equal? (gi) (normalize "part")) (equal? (gi) (normalize "chapter")) (equal? (gi) (normalize "section")))) (literal (element-label (current-node)) (gentext-element-name (gi)) (gentext-label-title-sep (gi))) (empty-sosofo)) (if (and %chapter-autolabel% (or (equal? (gi) (normalize "appendix")))) (literal (gentext-element-name-space (gi)) (element-label (current-node)) (gentext-label-title-sep (gi))) (empty-sosofo)) (if (node-list-empty? titles) (element-title-sosofo) (with-mode title-mode (process-node-list titles))))) (if (node-list-empty? subtitles) (empty-sosofo) (with-mode subtitle-mode (make element gi: subtitlegi (process-node-list subtitles))))))) (define (nav-context-sosofo elemnode) ;; °¢ ÆäÀÌÁö »ó´Ü¿¡ ³ª¿À´Â Á¦¸ñ ºÎºÐ¿¡¼­ '1Àå' Çü½ÄÀ» ;; ¸¸µì´Ï´Ù. ;; ¼Ò½º´Â html/navig.dsl ÀÔ´Ï´Ù. (let* ((component (ancestor-member elemnode (append (book-element-list) (division-element-list) (component-element-list)))) (context-text (inherited-dbhtml-value elemnode "context-text"))) (if (and context-text (not (string=? context-text ""))) (literal context-text) (if (equal? (element-label component) "") (make sequence (element-title-sosofo component)) (if (equal? (gi component) (normalize "chapter")) (make sequence (element-label-sosofo component) (if (and (equal? (gi component) (normalize "appendix")) (or (equal? (gi elemnode) (normalize "sect1")) (equal? (gi elemnode) (normalize "section"))) (equal? (gi (parent component)) (normalize "article"))) (empty-sosofo) (literal (gentext-element-name (gi component)))) (literal (gentext-label-title-sep (gi component))) (element-title-sosofo component)) (make sequence (if (and (equal? (gi component) (normalize "appendix")) (or (equal? (gi elemnode) (normalize "sect1")) (equal? (gi elemnode) (normalize "section"))) (equal? (gi (parent component)) (normalize "article"))) (empty-sosofo) (literal (gentext-element-name-space (gi component)))) (element-label-sosofo component) (literal (gentext-label-title-sep (gi component))) (element-title-sosofo component))))))) ;; (define ($informal-object$ #!optional (rule-before? #f) (rule-after? #f)) ;; ;; informal objectÀÇ align ¼Ó¼ºÀ» »ç¿ëÇÒ ¼ö ÀÖµµ·Ï ÇØÁÝ´Ï´Ù. ;; ;; À̸¦ ÅëÇØ ±×¸²À̳ª Ç¥ÀÇ À§Ä¡¸¦ ¿ÞÂÊ, ¿À¸¥ÂÊ, Áß¾ÓÀ¸·Î Á¤·ÄÇÒ ¼ö ;; ;; ÀÖ½À´Ï´Ù. ;; ;; ÀÌ ºÎºÐÀº Kang, Joonsun(bigbear@ece.skku.ac.kr)´ÔÀÌ º¸³» ;; ;; Áּ̽À´Ï´Ù. ;; (let ((id (element-id))) ;; (cond ;; ((equal? (attribute-string "role") "center") ;; (make element gi: "DIV" ;; attributes: (list ;; (list "CLASS" (gi)) ;; (list "ALIGN" "CENTER")) ;; (if id ;; (make element gi: "A" ;; attributes: (list (list "NAME" id)) ;; (empty-sosofo)) ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)) ;; (if rule-before? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (process-children) ;; (if rule-after? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)))) ;; ((equal? (attribute-string "role") "left") ;; (make element gi: "DIV" ;; attributes: (list ;; (list "CLASS" (gi)) ;; (list "ALIGN" "LEFT")) ;; (if id ;; (make element gi: "A" ;; attributes: (list (list "NAME" id)) ;; (empty-sosofo)) ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)) ;; (if rule-before? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (process-children) ;; (if rule-after? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)))) ;; ((equal? (attribute-string "role") "right") ;; (make element gi: "DIV" ;; attributes: (list ;; (list "CLASS" (gi)) ;; (list "ALIGN" "RIGHT")) ;; (if id ;; (make element gi: "A" ;; attributes: (list (list "NAME" id)) ;; (empty-sosofo)) ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)) ;; (if rule-before? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (process-children) ;; (if rule-after? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)))) ;; (else ;; (make element gi: "DIV" ;; attributes: (list ;; (list "ALIGN" "CENTER")) ;; (if id ;; (make element gi: "A" ;; attributes: (list (list "NAME" id)) ;; (empty-sosofo)) ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)) ;; (if rule-before? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (process-children) ;; (if rule-after? ;; (make empty-element gi: "HR") ;; (empty-sosofo)) ;; (if %spacing-paras% ;; (make element gi: "P" (empty-sosofo)) ;; (empty-sosofo)))) ;; ))) ;; ;; (mode book-titlepage-recto-mode ;; ;; address ¾È¿¡¼­ email¿¡ ÇÏÀÌÆÛ ¸µÅ©¸¦ °¡´ÉÇϵµ·Ï ÇØÁÝ´Ï´Ù. ;; ;; ÀÌ ºÎºÐÀº Kang, Joonsun(bigbear@ece.skku.ac.kr)´ÔÀÌ º¸³» ;; ;; Áּ̽À´Ï´Ù. ;; (element address ;; (make element gi: "P" ;; (make element gi: "PRE" ;; attributes: (list (list "CLASS" (gi)))))) ;; )