Changeset 379

Show
Ignore:
Timestamp:
2003年07月20日 09時20分28秒 (5 years ago)
Author:
kose
Message:

* intlfonts/Makefile.pkg (INTLFONTS16): Use jiskan16-2000-[12].bdf insted
of j00-[12]-16.bdf. Make jiskan16-2000 bold , italic and bold-itakic.

* misc/bdf.el: Support 2.00b-.
* intlfonts/auto-autoloads.el: Ditto.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/pkginfo/ChangeLog

    r378 r379  
     12003-07-20  KOSEKI Yoshinori  <kose@meadowy.org> 
     2 
     3        * intlfonts/Makefile.pkg (INTLFONTS16): Use jiskan16-2000-[12].bdf insted 
     4        of j00-[12]-16.bdf. Make jiskan16-2000 bold , italic and bold-itakic. 
     5 
     6        * misc/bdf.el: Support 2.00b-. 
     7        * intlfonts/auto-autoloads.el: Ditto. 
     8 
    192003-07-17  KOSEKI Yoshinori  <kose@meadowy.org> 
    210 

  • trunk/pkginfo/intlfonts/Makefile.pkg

    • Property svn:keywords set to Id
    r363 r379  
    11####################################################### 
    2 # $Id: Makefile.pkg,v 1.3 2003/02/22 00:10:18 kose Exp $ 
     2# $Id$ 
    33# 
    44# Copyright (C) 2002 The Meadow Team 
    …… 
    1515 
    1616#  
    17 PKG=intlfonts-1.2 
     17PKG=intlfonts-1.2.1 
    1818BASE=intlfonts 
    1919PKG_VERSION=1 
    …… 
    5757        lt4-16-etl.bdf \ 
    5858        lt5-16-etl.bdf \ 
    59         j00-1-16.bdf \ 
    60         j00-2-16.bdf \ 
    6159        j78-16.bdf \ 
    6260        j90-16.bdf \ 
    …… 
    7270        heb16-etl.bdf \ 
    7371        ipa16-etl.bdf 
     72 
     73# 
     74JISKAN= \ 
     75        jiskan16-2000-1.bdf \ 
     76        jiskan16-2000-2.bdf 
    7477 
    7578#       tib16p-mule.bdf 
    …… 
    117120#       lt1-16i-etl.bdf 
    118121 
    119 BIFONTS=j90-16i.bdf j90-16b.bdf j90-16bi.bdf 
    120  
    121 TARGET=$(addprefix $(PREFIX)/fonts/intlfonts/, $(INTLFONTS16) $(PS-MULE) $(BIFONTS)) 
     122mkBIFONTS=j90-16i.bdf j90-16b.bdf j90-16bi.bdf \ 
     123        jiskan16-2000-1i.bdf \ 
     124        jiskan16-2000-1b.bdf \ 
     125        jiskan16-2000-1bi.bdf \ 
     126        jiskan16-2000-2i.bdf \ 
     127        jiskan16-2000-2b.bdf \ 
     128        jiskan16-2000-2bi.bdf 
     129 
     130TARGET=$(addprefix $(PREFIX)/fonts/intlfonts/, $(INTLFONTS16) $(JISKAN) $(PS-MULE) $(mkBIFONTS)) 
    122131 
    123132######### 
    …… 
    144153 
    145154 
    146 install: $(PREFIX)/fonts/intlfonts $(PKG) $(BIFONTS) $(TARGET) 
     155install: $(PREFIX)/fonts/intlfonts $(PKG) $(mkBIFONTS) $(TARGET) 
    147156 
    148157$(PREFIX)/fonts/intlfonts: 
    …… 
    153162        cp -p `find . -name $*.bdf` $(PREFIX)/fonts/intlfonts/ 
    154163 
    155 $(PKG): 
     164$(PKG): jiskan16-2000-1.bdf jiskan16-2000-2.bdf 
    156165        wget $(PKG_URL)/$@.tar.gz 
    157166        tar zxf $@.tar.gz 
    158167        wget $(PKGINFO_URL)/$(BASE)/mkbold $(PKGINFO_URL)/$(BASE)/mkitalic 
    159         wget ftp://ftp.m17n.org/pub/mule/.notready/intlfonts-1.3-split/Japanese.tar.gz 
    160         tar zxf Japanese.tar.gz intlfonts-1.3/Japanese/j00-1-16.bdf intlfonts-1.3/Japanese/j00-2-16.bdf 
     168#       wget ftp://ftp.m17n.org/pub/mule/.notready/intlfonts-1.3-split/Japanese.tar.gz 
     169#       tar zxf Japanese.tar.gz intlfonts-1.3/Japanese/j00-1-16.bdf intlfonts-1.3/Japanese/j00-2-16.bdf 
     170 
     171# j00-1-16.bdf と jiskan16-2000-1.bdf は同じもの? 
     172jiskan16-2000-1.bdf: 
     173        wget http://www12.ocn.ne.jp/~imamura/jiskan16-2000-1.bdf.gz 
     174        gzip -d jiskan16-2000-1.bdf.gz 
     175 
     176jiskan16-2000-2.bdf: 
     177        wget http://www12.ocn.ne.jp/~imamura/jiskan16-2000-2.bdf.gz 
     178        gzip -d jiskan16-2000-2.bdf.gz 
    161179 
    162180j90-16i.bdf: 
    …… 
    169187        mkbold j90-16i.bdf > $@ 
    170188 
     189jiskan16-2000-1i.bdf: jiskan16-2000-1.bdf 
     190        mkitalic jiskan16-2000-1.bdf > $@ 
     191 
     192jiskan16-2000-1b.bdf: 
     193        mkbold jiskan16-2000-1.bdf > $@ 
     194 
     195jiskan16-2000-1bi.bdf:  
     196        mkbold jiskan16-2000-1i.bdf > $@ 
     197 
     198jiskan16-2000-2i.bdf: jiskan16-2000-2.bdf 
     199        mkitalic jiskan16-2000-2.bdf > $@ 
     200 
     201jiskan16-2000-2b.bdf: 
     202        mkbold jiskan16-2000-2.bdf > $@ 
     203 
     204jiskan16-2000-2bi.bdf:  
     205        mkbold jiskan16-2000-2i.bdf > $@ 
     206 
    171207uninstall: 
    172208        rm -f $(TARGET)  
    …… 
    174210pkg: $(PKG)-$(PKG_VERSION)-pkg.tar.gz 
    175211 
    176 $(PKG)-$(PKG_VERSION)-pkg.tar.gz : $(PKG) $(BIFONTS) $(TARGET) 
     212$(PKG)-$(PKG_VERSION)-pkg.tar.gz : $(PKG) $(mkBIFONTS) $(TARGET) 
    177213        rm -rf $(PKGINFO)/$(BASE) 
    178214        if test ! -d $(PKGINFO)/$(BASE); then mkdir -p $(PKGINFO)/$(BASE); fi 
    …… 
    182218                $(PKGINFO_URL)/$(BASE)/dot.emacs; \ 
    183219        echo $(PKG_PKGINFO) > _pkginfo) 
    184         tar -C $(PREFIX) -cf $(basename $@) $(addprefix fonts/intlfonts/, $(INTLFONTS16) $(PS-MULE) $(BIFONTS)) pkginfo/$(BASE) 
     220        tar -C $(PREFIX) -cf $(basename $@) $(addprefix fonts/intlfonts/, $(INTLFONTS16) $(PS-MULE) $(mkBIFONTS)) pkginfo/$(BASE) 
    185221        echo pkginfo/$(BASE)/MANIFEST > $(PKGINFO)/$(BASE)/MANIFEST 
    186222        tar tf $(basename $@) >> $(PKGINFO)/$(BASE)/MANIFEST 
    …… 
    193229maintainer-clean: 
    194230        rm -rf $(PKG)  
    195         rm -f $(PKG).tar.gz mkbold mkitalic $(BIFONTS) 
     231        rm -f $(PKG).tar.gz mkbold mkitalic $(mkBIFONTS) 
     232        rm -f intlfonts-skip-pkg.tar.gz 
     233 
     234skip: intlfonts-skip-pkg.tar.gz 
    196235 
    197236intlfonts-skip-pkg.tar.gz: 

  • trunk/pkginfo/intlfonts/auto-autoloads.el

    • Property svn:keywords set to Id
    r31 r379  
    1 ;;; pkginfo/bitmap-mule/auto-autoloads.el 
    2  
    3 ;;; Copyright (C) 2002 The Meadow Team 
    4  
    5 ;; Author: KOSEKI Yoshinori <kose@meadowy.org> 
    6  
    7 ;; Make bitmap16 font and set to all fontsets. 
    8 ;; Using Meadow/fonts/intlfonts/bmp16-etl.bdf. 
     1;;; pkginfo/intlfonts/auto-autoloads.el 
     2;;; 
     3;;; $Id$ 
     4;;; 
     5;;; Copyright (C) 2002,2003 The Meadow Team 
     6;;; 
     7;;; Author: KOSEKI Yoshinori <kose@meadowy.org> 
    98 
    109(defvar bdf-use-intlfonts16 nil "\ 
    …… 
    1514             (expand-file-name "../../fonts/intlfonts" data-directory)) 
    1615 
     16;; 0 -> nil(なし)    1 -> 1-byte-set-msb 
    1717(when bdf-use-intlfonts16 
    1818  (defvar intlfonts-file-16dot-alist 
    …… 
    2121      ("lt1-16-etl.bdf" "lt1-16b-etl.bdf"  
    2222        ;; italic           bold-italic 
    23         "lt1-16i-etl.bdf" "lt1-16bi-etl.bdf") 0) 
    24       (katakana-jisx0201 ("8x16rk.bdf") 1)     ;; JISX0201 
    25       (latin-jisx0201 ("8x16rk.bdf") 0)        ;; JISX0201 
     23        "lt1-16i-etl.bdf" "lt1-16bi-etl.bdf")) 
     24      (katakana-jisx0201 ("8x16rk.bdf") 1-byte-set-msb)     ;; JISX0201 
     25      (latin-jisx0201 ("8x16rk.bdf"))        ;; JISX0201 
    2626      (japanese-jisx0208 ("j90-16.bdf" "j90-16b.bdf"  
    27                           "j90-16i.bdf" "j90-16bi.bdf") 0);;JISX0208.1990 
    28       (japanese-jisx0208-1978 ("j78-16.bdf") 0);; JISX0208.1978 
    29       (latin-iso8859-1 ("lt1-16-etl.bdf") 1);; ISO8859-1 
    30       (latin-iso8859-2 ("lt2-16-etl.bdf") 1);; ISO8859-2 
    31       (latin-iso8859-3 ("lt3-16-etl.bdf") 1);; ISO8859-3 
    32       (latin-iso8859-4 ("lt4-16-etl.bdf") 1);; ISO8859-4 
    33       (thai-tis620 ("thai16.bdf") 1);; TIS620 
    34       (greek-iso8859-7 ("grk16-etl.bdf") 1);; ISO8859-7 
    35       (arabic-iso8859-6 ("arab16-0-etl.bdf") 0);; ISO8859-6 ??? 
    36       (hebrew-iso8859-8 ("heb16-etl.bdf") 1);; ISO8859-8 
    37       (cyrillic-iso8859-5 ("cyr16-etl.bdf") 1);; ISO8859-5 
    38       (latin-iso8859-9 ("lt5-16-etl.bdf") 1);; ISO8859-9 
    39       (chinese-gb2312 ("gb16fs.bdf") 0 );; GB2312  ??? 
    40       (korean-ksc5601 ("hanglm16.bdf") 0);; KSC5601   mincho 
    41       ;;(korean-ksc5601 "hanglg16.bdf" 0)    ;; KSC5601   gothic 
    42       (japanese-jisx0212 ("jksp16.bdf") 0);; JISX0212 
    43       (chinese-cns11643-1 ("cns1-16.bdf") 0);; CNS11643.1992-1 
    44       (chinese-cns11643-2 ("cns2-16.bdf") 0);; CNS11643.1992-2 
    45       (chinese-cns11643-3 ("cns3-16.bdf") 0);; CNS11643.1992-3 
    46       (chinese-cns11643-4 ("cns4-16.bdf") 0);; CNS11643.1992-4 
    47       (chinese-cns11643-5 ("cns5-16.bdf") 0);; CNS11643.1992-5 
    48       (chinese-cns11643-6 ("cns6-16.bdf") 0);; CNS11643.1992-6 
    49       (chinese-cns11643-7 ("cns7-16.bdf") 0);; CNS11643.1992-7 
     27                          "j90-16i.bdf" "j90-16bi.bdf"));;JISX0208.1990 
     28      (japanese-jisx0208-1978 ("j78-16.bdf"));; JISX0208.1978 
     29      (latin-iso8859-1 ("lt1-16-etl.bdf") 1-byte-set-msb);; ISO8859-1 
     30      (latin-iso8859-2 ("lt2-16-etl.bdf") 1-byte-set-msb);; ISO8859-2 
     31      (latin-iso8859-3 ("lt3-16-etl.bdf") 1-byte-set-msb);; ISO8859-3 
     32      (latin-iso8859-4 ("lt4-16-etl.bdf") 1-byte-set-msb);; ISO8859-4 
     33      (thai-tis620 ("thai16.bdf") 1-byte-set-msb);; TIS620 
     34      (greek-iso8859-7 ("grk16-etl.bdf") 1-byte-set-msb);; ISO8859-7 
     35      (arabic-iso8859-6 ("arab16-0-etl.bdf"));; ISO8859-6 ??? 
     36      (hebrew-iso8859-8 ("heb16-etl.bdf") 1-byte-set-msb);; ISO8859-8 
     37      (cyrillic-iso8859-5 ("cyr16-etl.bdf") 1-byte-set-msb);; ISO8859-5 
     38      (latin-iso8859-9 ("lt5-16-etl.bdf") 1-byte-set-msb);; ISO8859-9 
     39      (chinese-gb2312 ("gb16fs.bdf"));; GB2312  ??? 
     40      (korean-ksc5601 ("hanglm16.bdf"));; KSC5601   mincho 
     41      ;;(korean-ksc5601 "hanglg16.bdf")    ;; KSC5601   gothic 
     42      (japanese-jisx0212 ("jksp16.bdf"));; JISX0212 
     43      (chinese-cns11643-1 ("cns1-16.bdf"));; CNS11643.1992-1 
     44      (chinese-cns11643-2 ("cns2-16.bdf"));; CNS11643.1992-2 
     45      (chinese-cns11643-3 ("cns3-16.bdf"));; CNS11643.1992-3 
     46      (chinese-cns11643-4 ("cns4-16.bdf"));; CNS11643.1992-4 
     47      (chinese-cns11643-5 ("cns5-16.bdf"));; CNS11643.1992-5 
     48      (chinese-cns11643-6 ("cns6-16.bdf"));; CNS11643.1992-6 
     49      (chinese-cns11643-7 ("cns7-16.bdf"));; CNS11643.1992-7 
    5050      (chinese-big5-1 ("taipei16.bdf") encode-big5-font);; Big5 
    5151      (chinese-big5-2 ("taipei16.bdf") encode-big5-font);; Big5 
    52       (chinese-sisheng ("sish16-etl.bdf") 0);; sisheng_cwnn ??? 
     52      (chinese-sisheng ("sish16-etl.bdf"));; sisheng_cwnn ??? 
    5353      (vietnamese-viscii-lower ("visc16-etl.bdf") encode-viscii-font);;VISCII1.1 
    5454      (vietnamese-viscii-upper ("visc16-etl.bdf") encode-viscii-font);;VISCII1.1 
    55       (arabic-digit ("arab16-0-etl.bdf") 0);; MuleArabic-0 
    56       (arabic-1-column ("arab16-1-etl.bdf") 0);; MuleArabic-1 
    57       (arabic-2-column ("arab16-2-etl.bdf") 0);; MuleArabic-2 
    58       (ipa ("ipa16-etl.bdf") 1);; MuleIPA 
     55      (arabic-digit ("arab16-0-etl.bdf"));; MuleArabic-0 
     56      (arabic-1-column ("arab16-1-etl.bdf"));; MuleArabic-1 
     57      (arabic-2-column ("arab16-2-etl.bdf"));; MuleArabic-2 
     58      (ipa ("ipa16-etl.bdf") 1-byte-set-msb);; MuleIPA 
    5959      (ethiopic ("ethio16f-uni.bdf") encode-ethio-font);; Ethiopic-Unicode 
    60       ;;(ascii-right-to-left "lt1-16-etl.bdf" 0) ;; ISO8859-1 ;; ??? 
    61       (indian-is13194 ("isci16-mule.bdf") 0);; IS13194-Devanagari 
    62       (indian-2-column ("ind16-mule.bdf") 0);; MuleIndian-2 
    63       (indian-1-column ("ind1c16-mule.bdf") 0);; MuleIndian-1 
    64       (lao ("lao16-mule.bdf") 1);; MuleLao-1 
    65       (tibetan ("tib16-mule.bdf") 0);; MuleTibetan-0 
    66       ;;(tibetan-1-column ("tib1c16-mule.bdf") 0);; MuleTibetan-1 
     60      ;;(ascii-right-to-left "lt1-16-etl.bdf") ;; ISO8859-1 ;; ??? 
     61      (indian-is13194 ("isci16-mule.bdf"));; IS13194-Devanagari 
     62      (indian-2-column ("ind16-mule.bdf"));; MuleIndian-2 
     63      (indian-1-column ("ind1c16-mule.bdf"));; MuleIndian-1 
     64      (lao ("lao16-mule.bdf") 1-byte-set-msb);; MuleLao-1 
     65      (tibetan ("tib16-mule.bdf"));; MuleTibetan-0 
     66      ;;(tibetan-1-column ("tib1c16-mule.bdf"));; MuleTibetan-1 
    6767      ) 
    68     (if (memq 'japanese-jisx0213-1 charset-list) 
    69         '((japanese-jisx0213-1 ("j00-1-16.bdf") 0) ;; JIS X 0123-1 
    70           (japanese-jisx0213-2 ("j00-2-16.bdf") 0))) ;; JIS X 0123-2 
     68   (if (memq 'japanese-jisx0213-1 charset-list) 
     69       '((japanese-jisx0213-1  
     70          (;;"j00-1-16.bdf" 
     71           "jiskan16-2000-1.bdf" 
     72           "jiskan16-2000-1b.bdf" 
     73           "jiskan16-2000-1i.bdf" 
     74           "jiskan16-2000-1bi.bdf")) ;; JIS X 0123-1 
     75         (japanese-jisx0213-2  
     76          (;;"j00-2-16.bdf" 
     77           "jiskan16-2000-2.bdf" 
     78           "jiskan16-2000-2b.bdf" 
     79           "jiskan16-2000-2i.bdf" 
     80           "jiskan16-2000-2bi.bdf")))) ;; JIS X 0123-2 
    7181    )) 
    7282  (require 'bdf) 

  • trunk/pkginfo/intlfonts/dot.emacs

    • Property svn:keywords set to Id

  • trunk/pkginfo/misc/bdf.el

    r284 r379  
    1616  "if not exist fontset, then make fontset, else return fontlist." 
    1717  (let ((exist (member fontset (w32-font-list))) 
    18         (fontlist '(strict-spec))) 
     18        (fontlist '(spec))) 
    1919    (dolist (x bdf-alist) 
    2020      (setq fontlist (append fontlist (bdf-make-char-spec x)))) 
    …… 
    2525(defun bdf-make-char-spec (list) 
    2626  "Set normal, bold, italic, bold-itaric fonts." 
    27   (let ((charset (car list)) 
    28         (normal (nth 0 (nth 1 list))) 
    29         (bold (nth 1 (nth 1 list))) 
    30         (italic (nth 2 (nth 1 list))) 
    31         (bold-italic (nth 3 (nth 1 list))) 
    32         (encoding (nth 2 list)) 
    33         (char-spec (function (lambda (c w s e f) 
    34                `((:char-spec ,c :height any :weight ,w :slant ,s) 
    35                   (bdf-font ,f) 
    36                   ((encoding . ,e))))))) 
    37     (setq normal (bdf-file-exists-p normal bdf-directory-list)) 
    38     (if bold 
    39         (setq bold (bdf-file-exists-p bold bdf-directory-list)) 
    40       (setq bold normal)) 
    41     (if italic 
    42         (setq italic (bdf-file-exists-p italic bdf-directory-list)) 
    43       (setq italic normal)) 
    44     (if bold-italic 
    45         (setq bold-italic (bdf-file-exists-p bold-italic bdf-directory-list)) 
    46       (setq bold-italic normal)) 
    47     (list (funcall char-spec charset  
    48                    'normal 'normal encoding normal) 
    49           (funcall char-spec charset  
    50                   'bold 'normal encoding bold) 
    51           (funcall char-spec charset  
    52                   'normal 'any encoding italic) 
    53           (funcall char-spec charset  
    54                   'bold 'any encoding bold-italic)))) 
     27  (let* ((charset (car list)) 
     28        (fl (nth 1 list)) 
     29        (normal (nth 0 fl)) 
     30        (bold (nth 1 fl)) 
     31        (italic (nth 2 fl)) 
     32        (bold-italic (nth 3 fl)) 
     33        (encoding (nth 2 list)) 
     34         (char-spec (function (lambda (c w s e f) 
     35                (append `((:char-spec ,c :height any :weight ,w :slant ,s) 
     36                         strict 
     37                         (bdf-font ,f)) 
     38                        (if e 
     39                           (list (list `(encoding . ,e))))))))) 
     40    (when (setq normal (bdf-file-exists-p normal bdf-directory-list)) 
     41      (unless (and bold 
     42                  (setq bold (bdf-file-exists-p bold bdf-directory-list))) 
     43       (setq bold normal)) 
     44      (unless (and italic 
     45                  (setq italic (bdf-file-exists-p italic bdf-directory-list))) 
     46       (setq italic normal)) 
     47      (unless (and bold-italic 
     48                   (setq bold-italic (bdf-file-exists-p bold-italic  
     49                                                       bdf-directory-list))) 
     50        (setq bold-italic normal)) 
     51      (list (funcall char-spec charset 'normal 'normal encoding normal) 
     52            (funcall char-spec charset 'bold 'normal encoding bold) 
     53            (funcall char-spec charset 'normal 'any encoding italic) 
     54            (funcall char-spec charset 'bold 'any encoding bold-italic))))) 
    5555 
    5656;; internal function 
    …… 
    6868 
    6969;;; bdf.el ends here 
     70 
     71 
     72(setq bdf-directory-list 
     73      '("c:/Meadow2/fonts/intlfonts"))