Path: titcca!ccut!choshi!kuis!nagao4!tohira
From: tohira@nagao4.kuee.kyoto-u.junet (Hideo Tohira)
Newsgroups: fj.lang.lisp
Subject: cannot use SunCore on KCL?
Message-ID: <1299@nagao4.kuee.kyoto-u.junet>
Date: 25 Oct 89 02:01:17 GMT
Distribution: fj
Organization: Kyoto Univ. Elec. Eng.,
Lines: 85


お邪魔します。先日、sys:faslinkを教えてもらった東平＠京大です。
再び生き恥をさらす思いでポストします。

NEC の吉川さん、小川＠セコムさんから、kclでライブラリーをリンクする方
法を教えて頂き下のような超簡単なプログラムを作りましたがうまく動きませ
ん。

(興味のないかたは、飛ばしてください)

(set-macro-character
 #¥%
 #'(lambda (stream char) (values (read-line stream))))

(Clines
%#include <usercore.h>
%int cgpixwindd();
%struct vwsurf vsurface = DEFAULT_VWSURF(cgpixwindd);
%  
%int hoge()
%{
%  char *position;
%  position = "50, 50, 550, 450, 1090, 0, 64, 64,0";
%  if(initialize_core(DYNAMICC, NOINPUT, THREED)) exit(-1);
%  vsurface.flags=VWSURF_NEWFLG;
%  vsurface.ptr=&position;
%  vsurface.cmapsize=256;
%  sprintf(vsurface.cmapname,"aho");
%  if(initialize_view_surface(&vsurface,FALSE)) exit(-1);
%  if(select_view_surface(&vsurface)) exit(-1);
%  return(0);  
%}
)

(defentry hoge () (int hoge))

これは、SunCoreのライブラリーを使って単にウィンドウを開くだけの
プログラムです。hoge()をmain()にしてcompile & execute すると
ちゃんとウィンドウを開いてくれます。

で、kclで実行すると、

KCl (Kyoto Common Lisp)  September 30, 1987

>(compile-file "hoge")
Compiling hoge.lsp.
; (SET-MACRO-CHARACTER #¥% ...) is being compiled.
;; Warning: The variable CHAR is not used.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling hoge.lsp.

>(sys:faslink "hoge.o" "-lcore -lsunwindow -lpixrect -lm -lc")
653288

>(hoge)

Error: free(3) error.
Error signalled by HOGE.

Broken at HOGE.  Type :H for Help.
>>

てな具合です。backtrace(:b)や(trace)も意味がないし、はたはた困りはてて
ます。どうやらエラーは、
%  if(initialize_view_surface(&vsurface,FALSE)) exit(-1);
のところで、起こっているらしいのです。うーん、なぜなんだろう？？
これは、やはりSunCoreなんか使ってないで、Xを使いなさいという、神様のお
ぼしめしなんだろうか？？

もし、暇なかた、失礼、時間に余裕のあるかた、この謎に挑戦してみませんか？？

I'm going to 恥の上塗り.






-- 
	***************************************
	*    貴方の心の恋人        東平       *
	*   tohira@nagao4.kuee.kyoto-u.junet  *
	***************************************