graph-eps

コピペしてeps.smってファイルにした。最初からslib使うので、そのように起動。

sakae@pen:/tmp/eps-test$ gosh -u slib
gosh> (load "eps.scm")
 *** ERROR: unbound variable: load-color-dictionary
    While loading "/usr/local/lib/slib/grapheps.scm" at line 24
    While loading "./eps.scm" at line 4
Stack Trace:
_______________________________________
  0  (load-color-dictionary feature filename)
        at "/usr/local/lib/slib/require.scm":169
  1  #(lvar thunk #f 1 0)
        [unknown location]
  2  (eval expr env)
        at "/usr/local/share/gauche-0.97/0.9.10/lib/gauche/interactive.scm":303

のっけからエラーの洗礼。どうもeps-graphってモジュールの読み込みに失敗してるようだ。

余りgaucheばかりにこだわっていてもしょうがないので、セカンドオピニオンとして、入れたばかりのguileで試してみる。

sakae@pen:/tmp/eps-test$ guile
GNU Guile 3.0.5
Copyright (C) 1995-2021 Free Software Foundation, Inc.
  :
scheme@(guile-user)> (use-modules (ice-9 slib))
scheme@(guile-user)> (load "eps.scm")
ice-9/boot-9.scm:1669:16: In procedure raise-exception:
Unbound variable: load-color-dictionary

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,bt
In ice-9/boot-9.scm:
   2806:4  8 (save-module-excursion #<procedure 5616f4256270 at ice-9/boot-9…>)
  4351:12  7 (_)
In /tmp/eps-test/eps.scm:
      4:0  6 (_)
In /usr/local/share/guile/3.0/slib/guile-2.init:
    257:4  5 (with-load-pathname _ _)
In ice-9/boot-9.scm:
   2806:4  4 (save-module-excursion #<procedure 5616f4256030 at ice-9/boot-9…>)
  4351:12  3 (_)
In /usr/local/lib/slib/grapheps.scm:
     24:0  2 (_)
In /usr/local/lib/slib/require.scm:
   169:25  1 (_ "/usr/local/lib/slib/clrnamdb.scm")
In ice-9/boot-9.scm:
  1669:16  0 (raise-exception _ #:continuable? _)

両scheme共、load-color-dictionaryが見つからないエラーのようだ。

と言う事は、slibの設定で、何か不足が有るのかな？　目を皿のようにして、インストール方法を探すと、

  The catalog also supports color-name dictionaries.  With an
SLIB-installed scheme implementation, type:
     (require 'color-names)
     (make-slib-color-name-db)
     (require 'new-catalog)
     (slib:exit)

こんなオプション扱いが見つかった。どうもこれっぽいな。

sakae@pen:/tmp/eps-test$ sudo gosh -u slib
gosh> (require 'color-names)
#t
gosh> (make-slib-color-name-db)
 *** ERROR: unbound variable: make-slib-color-name-db
Stack Trace:
_______________________________________
  0  (make-slib-color-name-db)
        at "(standard input)":2
  1  (eval expr env)
        at "/usr/local/share/gauche-0.97/0.9.10/lib/gauche/interactive.scm":303

make-slib-color-name-dbってのは、どこのモジュール所属？

-- Function: make-slib-color-name-db

    Creates an alist-table relational database in library-vicinity
    containing the "Resene" and "saturate" color-name dictionaries.

    If the files 'resenecolours.txt', 'nbs-iscc.txt', and
    'saturate.txt' exist in the library-vicinity, then they used as the
    source of color-name data.  Otherwise, 'make-slib-color-name-db'
    calls url->color-dictionary with the URLs of appropriate source
    files.

gosh> (require 'color-database)
#t
gosh> (make-slib-color-name-db)
 *** ERROR: unbound variable: create-database
Stack Trace:
_______________________________________
  0  (create-database (in-vicinity (library-vicinity) "clrnamdb.sc ...
        at "/usr/local/lib/slib/mkclrnam.scm":303
  1  (create-database (in-vicinity (library-vicinity) "clrnamdb.sc ...
        at "/usr/local/lib/slib/mkclrnam.scm":303
  2  (eval expr env)
        at "/usr/local/share/gauche-0.97/0.9.10/lib/gauche/interactive.scm":303

今度は河岸を変えてdebian(32Bit)で確認。但し引っかかったコードで、何を欲しているか確認。 require.scmの該当箇所にprint文を挿入。

((color-names)
 (lambda (filename)
   (display feature)  (display #\newline)
   (display filename) (display #\newline)
   (load-color-dictionary feature filename)))

これで、走らせる。

debian:t$ gosh -u slib
gosh> (load "eps.scm")
resene
/usr/share/slib/clrnamdb.scm
 *** ERROR: unbound variable: load-color-dictionary
    While loading "/usr/share/slib/grapheps.scm" at line 24
    While loading "./eps.scm" at line 4
Stack Trace:
_______________________________________
  0  (load-color-dictionary feature filename)
        at "/usr/share/slib/require.scm":171

該当箇所はgrapheps.scmの(require 'resene)であった。

gosh> load-color-dictionary
#<closure (load-color-dictionary table-name . db)>

ちゃんと該当の手続きは存在してるんだけどな。