From attila.lendvai at gmail.com  Wed Jan  3 20:15:18 2007
From: attila.lendvai at gmail.com (Attila Lendvai)
Date: Wed, 3 Jan 2007 21:15:18 +0100
Subject: [cl-pdf-devel] Stream output error with cvs SBCL
In-Reply-To: <054401c72c59$d8156220$1402a8c0@marcx2>
References: <20061230170535.GA62072@dogma.freebsd-uk.eu.org>
	<054401c72c59$d8156220$1402a8c0@marcx2>
Message-ID: <b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>

> It's probably a cl-pdf issue. I think the latest patches from Dmitriy Ivanov
> don't work on SBCL.
> Maybe some SBCL user (Attila Lendvai?) can look at this?

yep, it's broken both with and without :pdf-binary.

due to this i've taken a big breath and started to convert cl-pdf to
really be based on binary streams (get rid of all the cl:write-char or
cl:write-string calls by shadowing them and their stream arguments
defaulting to *page-stream* (iirc)).

but after a few hours, when it was functional again, it generated
bugous pdf binaries, and it's sleeping in that state on my hard drive
ever since...

but at least meanwhile there was a state when i could put unicode
chapter links in pdf's... :)

i doubt i'll get to it again in the near future, though.

-- 
- attila

"- The truth is that I've been too considerate, and so became
unintentionally cruel...
 - I understand.
 - No, you don't understand! We don't speak the same language!"
(Ingmar Bergman - Smultronst?llet)

From jcm at FreeBSD-uk.eu.org  Wed Jan  3 20:43:57 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Wed, 3 Jan 2007 20:43:57 +0000
Subject: [cl-pdf-devel] Stream output error with cvs SBCL
In-Reply-To: <b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>
References: <20061230170535.GA62072@dogma.freebsd-uk.eu.org>
	<054401c72c59$d8156220$1402a8c0@marcx2>
	<b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>
Message-ID: <20070103204357.GA96705@dogma.freebsd-uk.eu.org>

On Wed, Jan 03, 2007 at 09:15:18PM +0100, Attila Lendvai wrote:
: due to this i've taken a big breath and started to convert cl-pdf to

<snip>

: i doubt i'll get to it again in the near future, though.

So... what does that mean from now on?  Is this a change that is backed out?

Jonathon McKitrick
--
My other computer is your Windows box.


From marc.battyani at fractalconcept.com  Wed Jan  3 21:12:22 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 3 Jan 2007 22:12:22 +0100
Subject: [cl-pdf-devel] Stream output error with cvs SBCL
References: <20061230170535.GA62072@dogma.freebsd-uk.eu.org><054401c72c59$d8156220$1402a8c0@marcx2>
	<b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>
Message-ID: <015c01c72f7b$df5b1640$1402a8c0@marcx2>

"Attila Lendvai" <attila.lendvai at gmail.com> wrote:

>> It's probably a cl-pdf issue. I think the latest patches from Dmitriy 
>> Ivanov
>> don't work on SBCL.
>> Maybe some SBCL user (Attila Lendvai?) can look at this?
>
> yep, it's broken both with and without :pdf-binary.
>
> due to this i've taken a big breath and started to convert cl-pdf to
> really be based on binary streams (get rid of all the cl:write-char or
> cl:write-string calls by shadowing them and their stream arguments
> defaulting to *page-stream* (iirc)).
>
> but after a few hours, when it was functional again, it generated
> bugous pdf binaries, and it's sleeping in that state on my hard drive
> ever since...
>
> but at least meanwhile there was a state when i could put unicode
> chapter links in pdf's... :)
>
> i doubt i'll get to it again in the near future, though.

This topic (converting cl-pdf to binary only streams) has come up several 
times here but has always been discarded due to lack of time. :(

In fact pdf files are really bivalent streams as the pdf structural 
information is in ascii and the content streams are in binary (octets).

Maybe it's simpler and faster to just make a quick fix for SBCL.

Marc



From marc.battyani at fractalconcept.com  Wed Jan  3 21:16:42 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 3 Jan 2007 22:16:42 +0100
Subject: [cl-pdf-devel] Stream output error with cvs SBCL
References: <20061230170535.GA62072@dogma.freebsd-uk.eu.org><054401c72c59$d8156220$1402a8c0@marcx2><b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>
	<20070103204357.GA96705@dogma.freebsd-uk.eu.org>
Message-ID: <015e01c72f7c$7a376790$1402a8c0@marcx2>

"Jonathon McKitrick" <jcm at FreeBSD-uk.eu.org> wrote:

> On Wed, Jan 03, 2007 at 09:15:18PM +0100, Attila Lendvai wrote:
> : due to this i've taken a big breath and started to convert cl-pdf to
>
> <snip>
>
> : i doubt i'll get to it again in the near future, though.
>
> So... what does that mean from now on?  Is this a change that is backed 
> out?

Well, reverting to the previous version is probably a bad idea as it will 
loose the last improvements. If it only works on Lispworks, it's a problem 
though.
In the mean time, maybe it's simpler to just checkout the release 125 which 
should work.

In fact maybe I should put a stable branch and an alpha one in the 
repository?

Marc



From attila.lendvai at gmail.com  Wed Jan  3 21:49:59 2007
From: attila.lendvai at gmail.com (Attila Lendvai)
Date: Wed, 3 Jan 2007 22:49:59 +0100
Subject: [cl-pdf-devel] Stream output error with cvs SBCL
In-Reply-To: <20070103204357.GA96705@dogma.freebsd-uk.eu.org>
References: <20061230170535.GA62072@dogma.freebsd-uk.eu.org>
	<054401c72c59$d8156220$1402a8c0@marcx2>
	<b54b34af0701031215m5a2bc941t9242d24e7b65e880@mail.gmail.com>
	<20070103204357.GA96705@dogma.freebsd-uk.eu.org>
Message-ID: <b54b34af0701031349u316c5a38mcde7de4f7e9dbe45@mail.gmail.com>

> : i doubt i'll get to it again in the near future, though.
>
> So... what does that mean from now on?  Is this a change that is backed out?

well, i'm not the original author of the first steps of the binary
changes, but i definately support the idea.

we should/could either depend on flexi-streams and go full
'(unsigned-byte 8), or depend on proper bivalend steam and
external-format support of the implementations. the latter is probably
a safe bet, because i think all important should work fine in that
mode.

the downside of the bivalent stream solution is that then you can't
generate pfd's directly into streams over which you have no control
(think of network streams). but this shouldn't be a big problem,
because it's always a good idea to generate first into a file in /tmp
and then stream-copy its contents into the network stream to relax the
memory consumption.

an alpha/stable branch is most of the time a good idea.

then i will consider checking in my binary changes into the alpha
branch. they are more or less tought out, but right now i can't take
the pain of debugging a bugous pdf output without any prior knowledge
of pdf... :|

-- 
- attila

"- The truth is that I've been too considerate, and so became
unintentionally cruel...
 - I understand.
 - No, you don't understand! We don't speak the same language!"
(Ingmar Bergman - Smultronst?llet)

From jcm at FreeBSD-uk.eu.org  Thu Jan  4 16:23:46 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Thu, 4 Jan 2007 16:23:46 +0000
Subject: [cl-pdf-devel] Using with-page :fonts
Message-ID: <20070104162346.GB1787@dogma.freebsd-uk.eu.org>


I'm thinking there has to be an easier way to output a bunch of paragraphs
with the same font via cl-typesetting.  I've noticed with-page takes a :fonts
initarg, but I'm not sure how to use it.  How can I add all the fonts required
to the page at this point, then reference them easily later rather that adding
:font "Helvetia-Bold" or something similar to every paragraph form?

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Thu Jan  4 18:31:09 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Thu, 4 Jan 2007 18:31:09 +0000
Subject: [cl-pdf-devel] Generating a 'TM' character
Message-ID: <20070104183109.GA2828@dogma.freebsd-uk.eu.org>


I'm having trouble with (code-char 8482).  I want to use the basic Times font
in cl-pdf, but I cannot get this symbol to appear.  Any suggestions?  I get an
error 'invalid array index' on char-metrics.

Jonathon McKitrick
--
My other computer is your Windows box.


From divanov at aha.ru  Thu Jan  4 19:10:26 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Thu, 4 Jan 2007 22:10:26 +0300
Subject: [cl-pdf-devel] Generating a 'TM' character
References: <20070104183109.GA2828@dogma.freebsd-uk.eu.org>
Message-ID: <001b01c73034$03292810$8100a8c0@digo>

Hello Jonathon,

| I'm having trouble with (code-char 8482).  I want to use the basic
| Times font in cl-pdf, but I cannot get this symbol to appear.  Any
| suggestions?  I get an error 'invalid array index' on char-metrics.

I would recommend the following specialization on get-char-metrics to map
the Unicode char code to code belonging [0-255] range (untested):

(defmethod get-char-metrics ((char (eql #.(code-char 8482)) font encoding)
  (aref (characters font) #x99))
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jcm at FreeBSD-uk.eu.org  Thu Jan  4 20:07:54 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Thu, 4 Jan 2007 20:07:54 +0000
Subject: [cl-pdf-devel] Generating a 'TM' character
In-Reply-To: <001b01c73034$03292810$8100a8c0@digo>
References: <20070104183109.GA2828@dogma.freebsd-uk.eu.org>
	<001b01c73034$03292810$8100a8c0@digo>
Message-ID: <20070104200754.GA3323@dogma.freebsd-uk.eu.org>

On Thu, Jan 04, 2007 at 10:10:26PM +0300, Dmitriy Ivanov wrote:
: Hello Jonathon,
: 
: | I'm having trouble with (code-char 8482).  I want to use the basic
: | Times font in cl-pdf, but I cannot get this symbol to appear.  Any
: | suggestions?  I get an error 'invalid array index' on char-metrics.
: 
: I would recommend the following specialization on get-char-metrics to map
: the Unicode char code to code belonging [0-255] range (untested):
: 
: (defmethod get-char-metrics ((char (eql #.(code-char 8482)) font encoding)
:   (aref (characters font) #x99))

I must be missing something, because I cannot find get-char-metrics anywhere
in cl-pdf.


Jonathon McKitrick
--
My other computer is your Windows box.


From divanov at aha.ru  Fri Jan  5 09:39:27 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Fri, 5 Jan 2007 12:39:27 +0300
Subject: [cl-pdf-devel] Generating a 'TM' character
References: <20070104183109.GA2828@dogma.freebsd-uk.eu.org>
	<001b01c73034$03292810$8100a8c0@digo>
	<20070104200754.GA3323@dogma.freebsd-uk.eu.org>
Message-ID: <000001c730ad$69e5ece0$8100a8c0@digo>

"Jonathon McKitrick" <jcm at FreeBSD-uk.eu.org> wrote:

| : I would recommend the following specialization on get-char-metrics to
| map : the Unicode char code to code belonging [0-255] range (untested):
| :
| : (defmethod get-char-metrics ((char (eql #.(code-char 8482)) font
| encoding) :   (aref (characters font) #x99))
|
| I must be missing something, because I cannot find get-char-metrics
| anywhere in cl-pdf.

In revision 128, you can find some methods on get-char-metrics in font.lisp.
As the second thoughts are best, the excerpt must have looked like this:

(defmethod get-char-metrics ((char (eql #.(code-char 8482))) font
                                            (encoding single-byte-encoding))
  (aref (characters font) #x99))
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jcm at FreeBSD-uk.eu.org  Fri Jan  5 13:34:04 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Fri, 5 Jan 2007 13:34:04 +0000
Subject: [cl-pdf-devel] Generating a 'TM' character
In-Reply-To: <000001c730ad$69e5ece0$8100a8c0@digo>
References: <20070104183109.GA2828@dogma.freebsd-uk.eu.org>
	<001b01c73034$03292810$8100a8c0@digo>
	<20070104200754.GA3323@dogma.freebsd-uk.eu.org>
	<000001c730ad$69e5ece0$8100a8c0@digo>
Message-ID: <20070105133404.GA8078@dogma.freebsd-uk.eu.org>

On Fri, Jan 05, 2007 at 12:39:27PM +0300, Dmitriy Ivanov wrote:
: In revision 128, you can find some methods on get-char-metrics in font.lisp.
: As the second thoughts are best, the excerpt must have looked like this:
: 
: (defmethod get-char-metrics ((char (eql #.(code-char 8482))) font
:                                             (encoding single-byte-encoding))
:   (aref (characters font) #x99))

Based on Marc's recent post, I have to stay with revision 125 for now.  Is
there another way to get this to work?


Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Fri Jan  5 20:27:33 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Fri, 5 Jan 2007 20:27:33 +0000
Subject: [cl-pdf-devel] Dotted lines on a chart
Message-ID: <20070105202733.GA10142@dogma.freebsd-uk.eu.org>


I don't see a simple setting, so I thought I'd ask... is there a way to draw
dotted lines in cl-pdf that I could easily adapt for showing dotted as well as
colored lines on a chart?

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Wed Jan 10 17:01:59 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Wed, 10 Jan 2007 17:01:59 +0000
Subject: [cl-pdf-devel] Horizontal bar charts?
Message-ID: <20070110170159.GA55255@dogma.freebsd-uk.eu.org>


Hi,

I need to draw a bar chart with horizontal bars.  Rather than writing a custom
class, can I simply ROTATE a regular bar chart?

Jonathon McKitrick
--
My other computer is your Windows box.


From marc.battyani at fractalconcept.com  Wed Jan 10 17:13:06 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 10 Jan 2007 18:13:06 +0100
Subject: [cl-pdf-devel] Horizontal bar charts?
References: <20070110170159.GA55255@dogma.freebsd-uk.eu.org>
Message-ID: <09cf01c734da$982f73b0$1402a8c0@marcx2>

"Jonathon McKitrick" wrote:
>
> I need to draw a bar chart with horizontal bars.  Rather than writing a 
> custom
> class, can I simply ROTATE a regular bar chart?

Yes, but everything will be rotated (text, etc.)

Marc 




From marc.battyani at fractalconcept.com  Wed Jan 10 17:40:18 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 10 Jan 2007 18:40:18 +0100
Subject: [cl-pdf-devel] Dotted lines on a chart
References: <20070105202733.GA10142@dogma.freebsd-uk.eu.org>
Message-ID: <0a0801c734de$6506b170$1402a8c0@marcx2>

> I don't see a simple setting, so I thought I'd ask... is there a way to 
> draw
> dotted lines in cl-pdf that I could easily adapt for showing dotted as 
> well as
> colored lines on a chart?

Just insert an call to set-dash-pattern before drawing the lines.

Marc




From jcm at FreeBSD-uk.eu.org  Fri Jan 12 21:52:10 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Fri, 12 Jan 2007 21:52:10 +0000
Subject: [cl-pdf-devel] inline user-drawn-boxes
Message-ID: <20070112215210.GA75622@dogma.freebsd-uk.eu.org>


I can't quite tell what the :inline argument does for user-drawn-boxes.  Would
someone clarify?

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Mon Jan 15 20:01:13 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Mon, 15 Jan 2007 20:01:13 +0000
Subject: [cl-pdf-devel] fill vs stroke
Message-ID: <20070115200113.GA94898@dogma.freebsd-uk.eu.org>


What exactly is the difference between fill and stroke?  Google happily shows
plenty of api docs, but no explicit definition.

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Tue Jan 16 22:25:38 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Tue, 16 Jan 2007 22:25:38 +0000
Subject: [cl-pdf-devel] Bullet items
Message-ID: <20070116222538.GA2856@dogma.freebsd-uk.eu.org>


I'm having problems getting my font to show bullet points in a list of items.
Can this be done with the default (Helvetica) font?  Is there a special
setting I have to use?

Jonathon McKitrick
--
My other computer is your Windows box.


From gwking at metabang.com  Wed Jan 17 13:47:23 2007
From: gwking at metabang.com (Gary King)
Date: Wed, 17 Jan 2007 08:47:23 -0500
Subject: [cl-pdf-devel] compile time warning
Message-ID: <1CAF6AD5-B5D1-4035-AF91-DA5A5062CDDA@metabang.com>

When I check out cl-pdf / cl-typesetting and compile fresh, I get a  
lot of minor warnings. Have these been cleaned up? If not, I'm going  
to so later today (he says hopefully).

please let me know...

thanks,
--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From jcm at FreeBSD-uk.eu.org  Thu Jan 18 17:08:56 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Thu, 18 Jan 2007 17:08:56 +0000
Subject: [cl-pdf-devel] Adding links to a page
Message-ID: <20070118170856.GA15070@dogma.freebsd-uk.eu.org>


I'm trying to add a simple http link to a pdf document, and I keep getting
this error: pdf::annotations called with NIL.

What do I have to do to get links to work?

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Fri Jan 19 19:26:04 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Fri, 19 Jan 2007 19:26:04 +0000
Subject: [cl-pdf-devel] Can't add link in cl-typesetting
Message-ID: <20070119192604.GA23359@dogma.freebsd-uk.eu.org>


Here's a snippet that generates the error.

Jonathon McKitrick
--
My other computer is your Windows box.
-------------- next part --------------
(defun test-link ()
  (with-document ()
    (let* ((content
	    (compile-text ()
	      (vspace 100)
	      (pdf:add-link 495 8 80 14 "2")
	      (paragraph
		  (:h-align :center :font *font* :font-size *font-size*)
		"Link here"))))
      (draw-pages content :margins '(72 88 72 72))
      (when pdf:*page* (finalize-page pdf:*page*))
      (pdf:write-document "web/data/test-link.pdf"))))

From marc.battyani at fractalconcept.com  Fri Jan 19 21:14:14 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Fri, 19 Jan 2007 22:14:14 +0100
Subject: [cl-pdf-devel] Can't add link in cl-typesetting
References: <20070119192604.GA23359@dogma.freebsd-uk.eu.org>
Message-ID: <02a501c73c0e$c5df6870$1402a8c0@marcx2>

"Jonathon McKitrick" <jcm at FreeBSD-uk.eu.org> wrote:
>
> Here's a snippet that generates the error.

OK I tried it and from looking at the error, the problem is that you call a 
cl-pdf function during the text compilation but the text compilation is like 
a macro in Common Lisp, it is run at a macro-expansion time before the code 
is executed. So your add-link is run during the text compilation but that 
not when you generate the pdf, it's too early and not inside a pdf 
with-page. So here you have to use a user-drawn box or make your own kind of 
box in which you can call your function. BTW I think that add-link works 
with the page coordonates not with the scaled/translated ones so maybe it's 
not so simple.

Marc




From jcm at FreeBSD-uk.eu.org  Sat Jan 20 16:21:08 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Sat, 20 Jan 2007 16:21:08 +0000
Subject: [cl-pdf-devel] Two quick pdf questions
Message-ID: <20070120162108.GA29225@dogma.freebsd-uk.eu.org>


1.  What is the difference between fill and stroke?

2.  What does the 'inline' keyword argument do in user-drawn-box?

Jonathon McKitrick
--
My other computer is your Windows box.


From jcm at FreeBSD-uk.eu.org  Fri Jan 26 12:08:47 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Fri, 26 Jan 2007 12:08:47 +0000
Subject: [cl-pdf-devel] inline user-drawn-boxes?
Message-ID: <20070126120847.GA84240@dogma.freebsd-uk.eu.org>


What does 'inline' keyword do to a user-drawn box?

Jonathon McKitrick
--
My other computer is your Windows box.


From marc.battyani at fractalconcept.com  Fri Jan 26 12:31:19 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Fri, 26 Jan 2007 13:31:19 +0100
Subject: [cl-pdf-devel] inline user-drawn-boxes?
References: <20070126120847.GA84240@dogma.freebsd-uk.eu.org>
Message-ID: <01af01c74145$e49509f0$1402a8c0@marcx2>

> What does 'inline' keyword do to a user-drawn box?

The box will be inserted into the text line otherwise it will go to a new 
line.

Marc 




From jmckitrick at gmail.com  Mon Jan 29 22:38:59 2007
From: jmckitrick at gmail.com (Jonathon McKitrick)
Date: Mon, 29 Jan 2007 17:38:59 -0500
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
Message-ID: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>

Hi all,

I'm having binary stream issues.

I can't determine which is easier: getting sbcl 1.0.2 to work with
cl-pdf or getting cl-pdf from subversion to work.  The svn version of
cl-pdf gives me an error *root-page* is undefined.  The newest version
of sbcl gives me a binary stream error with cl-pdf.

Is there an easy fix for either?  I thought getting the newes cl-pdf
would work, but it does not, unless there is a simple workaround I'm
unaware of.

-- 
Jonathon McKitrick
Independent Software Consultant


From jmckitrick at gmail.com  Mon Jan 29 23:24:39 2007
From: jmckitrick at gmail.com (Jonathon McKitrick)
Date: Mon, 29 Jan 2007 18:24:39 -0500
Subject: [cl-pdf-devel] 2 column layout
Message-ID: <c93a90e60701291524t3a253951ld1d72bc9fc24595d@mail.gmail.com>

Has anyone successfully gotten a 2-column layout to work?

-- 
Jonathon McKitrick
Independent Software Consultant


From gwking at metabang.com  Tue Jan 30 02:25:53 2007
From: gwking at metabang.com (Gary King)
Date: Mon, 29 Jan 2007 21:25:53 -0500
Subject: [cl-pdf-devel] 2 column layout
In-Reply-To: <c93a90e60701291524t3a253951ld1d72bc9fc24595d@mail.gmail.com>
References: <c93a90e60701291524t3a253951ld1d72bc9fc24595d@mail.gmail.com>
Message-ID: <83687482-CBFA-4F53-A08B-E002E88A47D7@metabang.com>

Hi Jonathon,

I'm really glad that you're pushing hard on CL-PDF / CL-Typesetting.  
It would be great if you could write up your notes / results /  
examples for the people who come after you.

thanks,

On Jan 29, 2007, at 6:24 PM, Jonathon McKitrick wrote:

> Has anyone successfully gotten a 2-column layout to work?
>
> -- 
> Jonathon McKitrick
> Independent Software Consultant
> _______________________________________________
> cl-pdf-devel site list
> cl-pdf-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cl-pdf-devel

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From marc.battyani at fractalconcept.com  Tue Jan 30 08:03:53 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Tue, 30 Jan 2007 09:03:53 +0100
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
Message-ID: <085601c74445$2ee043b0$1402a8c0@marcx2>

"Jonathon McKitrick" <jmckitrick at gmail.com> wrote:
>
> I'm having binary stream issues.
>
> I can't determine which is easier: getting sbcl 1.0.2 to work with
> cl-pdf or getting cl-pdf from subversion to work.  The svn version of
> cl-pdf gives me an error *root-page* is undefined.  The newest version
> of sbcl gives me a binary stream error with cl-pdf.
>
> Is there an easy fix for either?  I thought getting the newes cl-pdf
> would work, but it does not, unless there is a simple workaround I'm
> unaware of.

Did you switch to release 125? You need subversion for this. (tortoisesvn is 
really great if you have a windows box)

Marc




From divanov at aha.ru  Tue Jan 30 08:53:02 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Tue, 30 Jan 2007 11:53:02 +0300
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
Message-ID: <000001c7444c$1098c880$8100a8c0@digo>

Hello Jonathon,

| I'm having binary stream issues.
|
| I can't determine which is easier: getting sbcl 1.0.2 to work with
| cl-pdf or getting cl-pdf from subversion to work.  The svn version of
| cl-pdf gives me an error *root-page* is undefined.  The newest version
| of sbcl gives me a binary stream error with cl-pdf.
|
| Is there an easy fix for either?  I thought getting the newes cl-pdf
| would work, but it does not, unless there is a simple workaround I'm
| unaware of.

I don't think that making the latest version work on sbcl 1.0.2 is that
hard. I would appreciate if you pinpointed the CL-PDF function that actually
signaled the stream error.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jcm at FreeBSD-uk.eu.org  Tue Jan 30 15:51:13 2007
From: jcm at FreeBSD-uk.eu.org (Jonathon McKitrick)
Date: Tue, 30 Jan 2007 15:51:13 +0000
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
In-Reply-To: <085601c74445$2ee043b0$1402a8c0@marcx2>
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
	<085601c74445$2ee043b0$1402a8c0@marcx2>
Message-ID: <20070130155113.GA71369@dogma.freebsd-uk.eu.org>

On Tue, Jan 30, 2007 at 09:03:53AM +0100, Marc Battyani wrote:
: "Jonathon McKitrick" <jmckitrick at gmail.com> wrote:
: >
: >I'm having binary stream issues.
: >
: >I can't determine which is easier: getting sbcl 1.0.2 to work with
: >cl-pdf or getting cl-pdf from subversion to work.  The svn version of
: >cl-pdf gives me an error *root-page* is undefined.  The newest version
: >of sbcl gives me a binary stream error with cl-pdf.
: >
: >Is there an easy fix for either?  I thought getting the newes cl-pdf
: >would work, but it does not, unless there is a simple workaround I'm
: >unaware of.
: 
: Did you switch to release 125? You need subversion for this. (tortoisesvn 
: is really great if you have a windows box)

I have svn on my mac.  I grabbed the newest version of cl-pdf (130, IIRC),
then version 125, then I just tried the current tarball.  The current svn
versions both gave the *root-page* undefined error.


Jonathon McKitrick
--
My other computer is your Windows box.


From jmckitrick at reedlarkeygroup.com  Tue Jan 30 17:47:17 2007
From: jmckitrick at reedlarkeygroup.com (jmckitrick at reedlarkeygroup.com)
Date: Tue, 30 Jan 2007 17:47:17 -0000 (GMT)
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
In-Reply-To: <000001c7444c$1098c880$8100a8c0@digo>
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
	<000001c7444c$1098c880$8100a8c0@digo>
Message-ID: <33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>

> Hello Jonathon,
>
> | I'm having binary stream issues.
> |
> | I can't determine which is easier: getting sbcl 1.0.2 to work with
> | cl-pdf or getting cl-pdf from subversion to work.  The svn version of
> | cl-pdf gives me an error *root-page* is undefined.  The newest version
> | of sbcl gives me a binary stream error with cl-pdf.
> |
> | Is there an easy fix for either?  I thought getting the newes cl-pdf
> | would work, but it does not, unless there is a simple workaround I'm
> | unaware of.
>
> I don't think that making the latest version work on sbcl 1.0.2 is that
> hard. I would appreciate if you pinpointed the CL-PDF function that
> actually
> signaled the stream error.

This is version 125, BTW:

#<SB-SYS:FD-STREAM for "file /Users/jonathon/devel/rlg/web/data/25499.pdf"
{125B4279}> is not a binary output stream.
   [Condition of type SIMPLE-TYPE-ERROR]

Restarts:
 0: [ABORT] Return to SLIME's top level.
 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
{123A6259}>)

Backtrace:
  0: (SB-KERNEL:ILL-BOUT
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {125B4279}>)
  1: (SB-IMPL::ANSI-STREAM-WRITE-SEQUENCE
      #(120 94 237 93 63 104 91 103 247 214 ...)
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {125B4279}>
      0
      NIL)
  2: (WRITE-SEQUENCE
      #(120 94 237 93 63 104 91 103 247 214 ...)
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {125B4279}>)
  3: ((SB-PCL::FAST-METHOD PDF::WRITE-OBJECT (PDF::PDF-STREAM))
      #<unused argument>
      #S(SB-PCL::FAST-METHOD-CALL
         :FUNCTION #<FUNCTION #>
         :PV-CELL NIL
         :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                              :FUNCTION #
                              :PV-CELL NIL
                              :NEXT-METHOD-CALL NIL
                              :ARG-INFO (1 . T)) ..))
  4: ((SB-PCL::FAST-METHOD PDF::WRITE-OBJECT (PDF::INDIRECT-OBJECT))
      #<unused argument>
      #<unused argument>
      #<PDF:IMAGE {1182B951}>
      T)
  5: ((LAMBDA ()))
  6: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA #) {125B43E5}>)
  7: ((SB-PCL::FAST-METHOD PDF:WRITE-DOCUMENT (STREAM))
      #<unused argument>
      #<unused argument>
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {125B4279}>
      #<PDF::DOCUMENT {1176B061}>)
  8: ((SB-PCL::FAST-METHOD PDF:WRITE-DOCUMENT (PATHNAME))
      #<unused argument>
      #<unused argument>
      #P"web/data/25499.pdf"
      #<PDF::DOCUMENT {1176B061}>)

Jonathon




From gwking at metabang.com  Wed Jan 31 00:06:36 2007
From: gwking at metabang.com (Gary King)
Date: Tue, 30 Jan 2007 19:06:36 -0500
Subject: [cl-pdf-devel] patch to fix warnings
Message-ID: <6880AD68-76A6-47FA-8284-B4E112172B04@metabang.com>

Hi,

the patch below removes all of the compiler warnings (at least under  
Allegro). Most of these are of the (declare (ignore ...)) variety  
thought I also add a dependency between zlib and config in the system  
definition and I change some "STRINGS" into :keywords to keep  
Allegro's modern lisp happy.

?If I don't hear a protest in the next day or so, I will commit it.

thanks,

Index: ttu-font.lisp
===================================================================
--- ttu-font.lisp	(revision 130)
+++ ttu-font.lisp	(working copy)
@@ -21,7 +21,6 @@
     (length1 :accessor length1)))
(defmethod font-type ((fm ttu-font-metrics))
-  (declare (ignore fm))
    "Type0")
(defun load-ttu-font (ufm-file &optional ttf-file)
@@ -104,6 +103,7 @@
(defmethod make-dictionary ((fm ttu-font-metrics)
                              &key font (encoding (encoding font))  
(embed *embed-fonts*))
+  (declare (ignore encoding))
    (let* ((font-descriptor (font-descriptor fm :embed embed :errorp  
nil))
	 (cid-font (make-instance
		    'cid-font
Index: chart.lisp
===================================================================
--- chart.lisp	(revision 130)
+++ chart.lisp	(working copy)
@@ -89,7 +89,7 @@
    (height axis))
(defmethod draw-object (obj)
-  )
+  (declare (ignore obj)))
(defun nice-number (n approx integer-p)
    (let* ((n10 (expt 10 (floor (log n 10))))
@@ -303,14 +303,14 @@
		for bx from gx by group-width do
		(loop for y = 0.0 then (+ y dy)
		      for value in values
-		      for (name color) in (labels&colors obj)
+		      for (nil color) in (labels&colors obj)
		      for dy = (* value scale) do
		      (apply #'set-rgb-fill color)
		      (basic-rect bx y bar-width dy)
		      (fill-and-stroke)))
	  (loop for serie in (series obj)
		for gx from (* 0.5 spacing) by bar-width
-		for (name color) in (labels&colors obj) do
+		for (nil color) in (labels&colors obj) do
		(apply #'set-rgb-fill color)
		(loop for value in serie
		      for dy = (* (- value min-value) scale)
@@ -351,7 +351,7 @@
        (apply #'set-rgb-fill (background-color obj))
        (fill-and-stroke)
        (loop for angle in angles
-	    for (name color) in (labels&colors obj)
+	    for (nil color) in (labels&colors obj)
	    for start = 0 then end
	    for end = (+ start angle) do
	    (apply #'set-rgb-fill color)
@@ -478,7 +478,7 @@
        (set-line-width (line-width obj))
        (set-line-join 2)
        (loop for serie in (series obj)
-	    for (name color) in (labels&colors obj) do
+	    for (nil color) in (labels&colors obj) do
	   (apply #'set-rgb-stroke color)
	   (apply #'set-rgb-fill color)
	   (let ((points '())
Index: font.lisp
===================================================================
--- font.lisp	(revision 130)
+++ font.lisp	(working copy)
@@ -85,6 +85,7 @@
    ;; TODO: Customize your lisp implementation in treating charset.
    ;; CAUTION: Don't use force-char-code from di-pdf.lisp!
   (:method (char-or-code font encoding)
+   (declare (ignore encoding))
    (aref (characters font) ;(force-char-code char-or-code)
          (if (characterp char-or-code) (char-code char-or-code) char- 
or-code))))
Index: font-metrics.lisp
===================================================================
--- font-metrics.lisp	(revision 130)
+++ font-metrics.lisp	(working copy)
@@ -293,7 +293,7 @@
      (with-open-file (s filename :direction :input :external-format  
+external-format+)
        (setf font-metrics (afm-font-metrics s font-metrics-class)))
      (setf void-char (gethash "VoidCharacter" (characters font- 
metrics)))
-    (iter (for (name char-metrics) in-hashtable (characters font- 
metrics))
+    (iter (for (nil char-metrics) in-hashtable (characters font- 
metrics))
            (for gid = (index char-metrics))
            (for code = (code char-metrics))
            (when (and (<= 0 code #xfffe))
@@ -307,7 +307,7 @@
	    (vector-push-extend (vector (round (* 1000 (width char- 
metrics)))) (cid-widths font-metrics))))
      (setf encoding-vector (make-array (1+ max-code) :initial- 
element void-char)
            pdf-widths (make-array (1+ max-code) :initial-element 0))
-    (iter (for (name char-metrics) in-hashtable (characters font- 
metrics))
+    (iter (for (nil char-metrics) in-hashtable (characters font- 
metrics))
            (for code = (code char-metrics))
            (when (<= min-code code max-code)
              (setf (aref encoding-vector code) char-metrics
Index: pdf-base.lisp
===================================================================
--- pdf-base.lisp	(revision 130)
+++ pdf-base.lisp	(working copy)
@@ -109,15 +109,16 @@
(defmethod write-to-page :before ((string string) encoding &optional  
escape)
-  (declare (ignore escape))
+  (declare (ignore escape encoding))
    (write-char #\( *page-stream*))
(defmethod write-to-page :after ((string string) encoding &optional  
escape)
-  (declare (ignore escape))
+  (declare (ignore escape encoding))
    (write-string ") " *page-stream*))
(defmethod write-to-page ((string string) encoding &optional escape)
-  (if escape
+   (declare (ignore encoding))
+   (if escape
        (loop for char across string
              do (case char
                   ((#\( #\) #\\)
@@ -175,14 +176,15 @@
(defmethod write-to-page :before ((char character) encoding &optional  
escape)
-  (declare (ignore escape))
+  (declare (ignore escape encoding))
    (write-char #\( *page-stream*))
(defmethod write-to-page :after ((char character) encoding &optional  
escape)
-  (declare (ignore escape))
+  (declare (ignore escape encoding))
    (write-char #\) *page-stream*))
(defmethod write-to-page ((char character) encoding &optional escape)
+  (declare (ignore encoding))
    (when escape (case char
                   ((#\( #\) #\\) (write-char #\\ *page-stream*))))
    (write-char char *page-stream*))
Index: iterate/package.lisp
===================================================================
--- iterate/package.lisp	(revision 130)
+++ iterate/package.lisp	(working copy)
@@ -31,6 +31,7 @@
      with while until adjoining nconcing appending
      nunioning unioning reducing accumulate accumulating))
-(export +clause-names+ '#:iterate)
+(eval-when (:compile-toplevel :load-toplevel :evaluate)
+  (export +clause-names+ '#:iterate))
;;; arch-tag: "b8bb0bb6-313c-11d8-abb9-000c76244c24"
Index: cl-pdf.asd
===================================================================
--- cl-pdf.asd	(revision 130)
+++ cl-pdf.asd	(working copy)
@@ -49,7 +49,9 @@
    :components ((:file "defpackage")
	       (:file "config" :depends-on ("defpackage"))
	       #+use-uffi-zlib (:file "init" :depends-on ("config"))
-	       (:file "zlib" :depends-on ("defpackage" #+use-uffi-zlib  
"init"))
+	       (:file "zlib"
+		      :depends-on ("config" "defpackage"
+					    #+use-uffi-zlib "init"))
	       (:file "font-metrics"  :depends-on ("config"))
	       (:file "encodings"  :depends-on ("defpackage"))
	       (:file "t1-font" :depends-on ("font-metrics" "encodings"))
Index: x11-colors.lisp
===================================================================
--- x11-colors.lisp	(revision 130)
+++ x11-colors.lisp	(working copy)
@@ -769,7 +769,7 @@
(defvar *x11-color-keyword-map*
    (let ((h (make-hash-table :test #'eq)))
      (dolist (c *x11-colors*)
-      (setf (gethash (intern (string-upcase (car c)) "KEYWORD")
+      (setf (gethash (intern (string-upcase (car c)) :keyword)
		     h)
	    (mapcar (lambda (v) (/ v 255.0))
		    (cdr c))))

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From divanov at aha.ru  Wed Jan 31 07:49:48 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Wed, 31 Jan 2007 10:49:48 +0300
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
	<000001c7444c$1098c880$8100a8c0@digo>
	<33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>
Message-ID: <000101c7450c$6529a2a0$8100a8c0@digo>

<jmckitrick at reedlarkeygroup.com> wrote:

|> I don't think that making the latest version work on sbcl 1.0.2 is
|> that hard. I would appreciate if you pinpointed the CL-PDF function
|> that actually signaled the stream error.
| 
| This is version 125, BTW:

I don't believe that 125 is the latest.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jmckitrick at reedlarkeygroup.com  Wed Jan 31 13:35:56 2007
From: jmckitrick at reedlarkeygroup.com (Jonathon McKitrick)
Date: Wed, 31 Jan 2007 08:35:56 -0500 (EST)
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
In-Reply-To: <000101c7450c$6529a2a0$8100a8c0@digo>
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>   
	<000001c7444c$1098c880$8100a8c0@digo>
	<33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>
	<000101c7450c$6529a2a0$8100a8c0@digo>
Message-ID: <33212.67.66.214.132.1170250556.squirrel@reedlarkeygroup.com>


On Wed, January 31, 2007 2:49 am, Dmitriy Ivanov said:
> <jmckitrick at reedlarkeygroup.com> wrote:
>
> |> I don't think that making the latest version work on sbcl 1.0.2 is
> |> that hard. I would appreciate if you pinpointed the CL-PDF function
> |> that actually signaled the stream error.
> |
> | This is version 125, BTW:
>
> I don't believe that 125 is the latest.

I tried both, so which one do you want me to use to solve the problem? 
Marc suggested 125 as a stable version, but I can use the newest if the
stream problem can be solved.


-- 
Jonathon McKitrick
Reed Larkey Group




From divanov at aha.ru  Wed Jan 31 15:28:25 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Wed, 31 Jan 2007 18:28:25 +0300
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
	<000001c7444c$1098c880$8100a8c0@digo>
	<33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>
	<000101c7450c$6529a2a0$8100a8c0@digo>
	<33212.67.66.214.132.1170250556.squirrel@reedlarkeygroup.com>
Message-ID: <000601c7454e$31b21af0$8100a8c0@digo>

"Jonathon McKitrick" <jmckitrick at reedlarkeygroup.com> wrote:

| On Wed, January 31, 2007 2:49 am, Dmitriy Ivanov said:
|> <jmckitrick at reedlarkeygroup.com> wrote:
|> 
| >>> I don't think that making the latest version work on sbcl 1.0.2 is
| >>> that hard. I would appreciate if you pinpointed the CL-PDF function
| >>> that actually signaled the stream error.
| >> 
| >> This is version 125, BTW:
|> 
|> I don't believe that 125 is the latest.
| 
| I tried both, so which one do you want me to use to solve the problem? 
| Marc suggested 125 as a stable version, but I can use the newest if the
| stream problem can be solved.

Better 130 or at least 127, please.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jmckitrick at reedlarkeygroup.com  Wed Jan 31 16:14:04 2007
From: jmckitrick at reedlarkeygroup.com (Jonathon McKitrick)
Date: Wed, 31 Jan 2007 11:14:04 -0500 (EST)
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
In-Reply-To: <000601c7454e$31b21af0$8100a8c0@digo>
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com> 
	<000001c7444c$1098c880$8100a8c0@digo>   
	<33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>   
	<000101c7450c$6529a2a0$8100a8c0@digo>
	<33212.67.66.214.132.1170250556.squirrel@reedlarkeygroup.com>
	<000601c7454e$31b21af0$8100a8c0@digo>
Message-ID: <33465.67.66.214.132.1170260044.squirrel@reedlarkeygroup.com>


On Wed, January 31, 2007 10:28 am, Dmitriy Ivanov said:
> Better 130 or at least 127, please.

Do you want me to test this with sbcl 1.0.1 or 1.0.2?


-- 
Jonathon McKitrick
Reed Larkey Group




From divanov at aha.ru  Wed Jan 31 17:55:36 2007
From: divanov at aha.ru (Dmitriy Ivanov)
Date: Wed, 31 Jan 2007 20:55:36 +0300
Subject: [cl-pdf-devel] Current cl-pdf vs newest sbcl
References: <c93a90e60701291438r1fc8f741weee2083da66ba0b7@mail.gmail.com>
	<000001c7444c$1098c880$8100a8c0@digo>
	<33063.67.66.214.132.1170179237.squirrel@reedlarkeygroup.com>
	<000101c7450c$6529a2a0$8100a8c0@digo>
	<33212.67.66.214.132.1170250556.squirrel@reedlarkeygroup.com>
	<000601c7454e$31b21af0$8100a8c0@digo>
	<33465.67.66.214.132.1170260044.squirrel@reedlarkeygroup.com>
Message-ID: <000701c74572$a3d322e0$8100a8c0@digo>

"Jonathon McKitrick" <jmckitrick at reedlarkeygroup.com> wrote:

| On Wed, January 31, 2007 10:28 am, Dmitriy Ivanov said:
|> Better 130 or at least 127, please.
|
| Do you want me to test this with sbcl 1.0.1 or 1.0.2?

I don't know much about sbcl and do not (plan to) have it installed. So it
is up to you.

But I could try to make corrections "from the theoretical point of view" if
you provided more information about the bugs signaled.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru



From jmckitrick at reedlarkeygroup.com  Wed Jan 31 20:42:50 2007
From: jmckitrick at reedlarkeygroup.com (Jonathon McKitrick)
Date: Wed, 31 Jan 2007 15:42:50 -0500 (EST)
Subject: [cl-pdf-devel] Binary streams
Message-ID: <53259.67.66.214.132.1170276170.squirrel@reedlarkeygroup.com>


This fixes my issue, I think.  'obj' needed to be replaced with 'content'
in the write-sequence call.

(defmethod write-stream-content ((content string))
  ;; Args: content Base string, may include
  ;;	   - either one-byte codes (already converted to external format if
needed)
  ;;	   - or Unicode two-byte character codes (big-endian CIDs)
  #+pdf-binary
  (loop for char across content
        do (write-byte (ldb (byte 8 0) (char-code char)) *pdf-stream*))
  #-pdf-binary
  (write-sequence content *pdf-stream*))


-- 
Jonathon McKitrick
Reed Larkey Group




From marc.battyani at fractalconcept.com  Wed Jan 31 20:54:31 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 31 Jan 2007 21:54:31 +0100
Subject: [cl-pdf-devel] Binary streams
References: <53259.67.66.214.132.1170276170.squirrel@reedlarkeygroup.com>
Message-ID: <07a501c7457a$0135d3e0$1402a8c0@marcx2>

"Jonathon McKitrick" <jmckitrick at reedlarkeygroup.com> wrote:

>This fixes my issue, I think.  'obj' needed to be replaced with 'content'
>in the write-sequence call.
>
>(defmethod write-stream-content ((content string))
>  ;; Args: content Base string, may include
>  ;;    - either one-byte codes (already converted to external format if
>needed)
>  ;;    - or Unicode two-byte character codes (big-endian CIDs)
>  #+pdf-binary
>  (loop for char across content
>        do (write-byte (ldb (byte 8 0) (char-code char)) *pdf-stream*))
>  #-pdf-binary
>  (write-sequence content *pdf-stream*))

Good catch!  :)

I fixed it in the repository (rev 131). Is it ok for SBCL now?

Marc




From marc.battyani at fractalconcept.com  Wed Jan 31 20:58:27 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 31 Jan 2007 21:58:27 +0100
Subject: [cl-pdf-devel] patch to fix warnings
References: <6880AD68-76A6-47FA-8284-B4E112172B04@metabang.com>
Message-ID: <07ae01c7457a$8e4260f0$1402a8c0@marcx2>

"Gary King" <gwking at metabang.com> wrote:

>the patch below removes all of the compiler warnings (at least under 
>Allegro). Most of these are of the (declare (ignore ...)) variety  thought 
>I also add a dependency between zlib and config in the system  definition 
>and I change some "STRINGS" into :keywords to keep  Allegro's modern lisp 
>happy.
>
>?If I don't hear a protest in the next day or so, I will commit it.

[patch snipped]

Thanks for the patch, I had a quick loook at it and it seems OK for me. 
(same for the cl-typesetting one).
BTW what implentation(s) are you using?

Marc




From gwking at metabang.com  Wed Jan 31 21:05:13 2007
From: gwking at metabang.com (Gary King)
Date: Wed, 31 Jan 2007 16:05:13 -0500
Subject: [cl-pdf-devel] patch to fix warnings
In-Reply-To: <07ae01c7457a$8e4260f0$1402a8c0@marcx2>
References: <6880AD68-76A6-47FA-8284-B4E112172B04@metabang.com>
	<07ae01c7457a$8e4260f0$1402a8c0@marcx2>
Message-ID: <A65F49CA-2395-46DB-819D-6B123DF74848@metabang.com>

Hi Marc,

This was under Allegro 8.0 (modern mode) under OS X. I also use SBCL.

I'll try to commit shortly (I think I have the rights to do that...  
<smile>).

On Jan 31, 2007, at 3:58 PM, Marc Battyani wrote:

> "Gary King" <gwking at metabang.com> wrote:
>
>> the patch below removes all of the compiler warnings (at least  
>> under Allegro). Most of these are of the (declare (ignore ...))  
>> variety  thought I also add a dependency between zlib and config  
>> in the system  definition and I change some "STRINGS"  
>> into :keywords to keep  Allegro's modern lisp happy.
>>
>> ?If I don't hear a protest in the next day or so, I will commit it.
>
> [patch snipped]
>
> Thanks for the patch, I had a quick loook at it and it seems OK for  
> me. (same for the cl-typesetting one).
> BTW what implentation(s) are you using?
>
> Marc
>
>

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From jmckitrick at reedlarkeygroup.com  Wed Jan 31 21:30:23 2007
From: jmckitrick at reedlarkeygroup.com (Jonathon McKitrick)
Date: Wed, 31 Jan 2007 16:30:23 -0500 (EST)
Subject: [cl-pdf-devel] Binary streams
In-Reply-To: <07a501c7457a$0135d3e0$1402a8c0@marcx2>
References: <53259.67.66.214.132.1170276170.squirrel@reedlarkeygroup.com>
	<07a501c7457a$0135d3e0$1402a8c0@marcx2>
Message-ID: <33360.67.66.214.132.1170279023.squirrel@reedlarkeygroup.com>


On Wed, January 31, 2007 3:54 pm, Marc Battyani said:
> "Jonathon McKitrick" <jmckitrick at reedlarkeygroup.com> wrote:
>
>>This fixes my issue, I think.  'obj' needed to be replaced with 'content'
>>in the write-sequence call.
>>
>>(defmethod write-stream-content ((content string))
>>  ;; Args: content Base string, may include
>>  ;;    - either one-byte codes (already converted to external format if
>>needed)
>>  ;;    - or Unicode two-byte character codes (big-endian CIDs)
>>  #+pdf-binary
>>  (loop for char across content
>>        do (write-byte (ldb (byte 8 0) (char-code char)) *pdf-stream*))
>>  #-pdf-binary
>>  (write-sequence content *pdf-stream*))
>
> Good catch!  :)
>
> I fixed it in the repository (rev 131). Is it ok for SBCL now?

Not sure.  This is #-pdf-binary.  I haven't tried #+pdf-binary.

-- 
Jonathon McKitrick
Reed Larkey Group




From jmckitrick at reedlarkeygroup.com  Wed Jan 31 21:35:39 2007
From: jmckitrick at reedlarkeygroup.com (Jonathon McKitrick)
Date: Wed, 31 Jan 2007 16:35:39 -0500 (EST)
Subject: [cl-pdf-devel] Binary streams
In-Reply-To: <33360.67.66.214.132.1170279023.squirrel@reedlarkeygroup.com>
References: <53259.67.66.214.132.1170276170.squirrel@reedlarkeygroup.com>   
	<07a501c7457a$0135d3e0$1402a8c0@marcx2>
	<33360.67.66.214.132.1170279023.squirrel@reedlarkeygroup.com>
Message-ID: <33408.67.66.214.132.1170279339.squirrel@reedlarkeygroup.com>


>> I fixed it in the repository (rev 131). Is it ok for SBCL now?
>
> Not sure.  This is #-pdf-binary.  I haven't tried #+pdf-binary.

pdf-binary does not work.  I still get this:
The actual error is around line 12

Backtrace:
  0: (SB-IMPL::%PRINT-UNREADABLE-OBJECT
      #<error printing object>
      #<SB-PRETTY:PRETTY-STREAM {12E17491}>
      NIL
      NIL
      #<CLOSURE # {12E18585}>)
  1: (PRIN1 #<error printing object> #<SB-PRETTY:PRETTY-STREAM {12E17491}>)
  2: (SB-FORMAT::S-FORMAT-DIRECTIVE-INTERPRETER
      #<SB-PRETTY:PRETTY-STREAM {12E17491}>
      #<~S>
      NIL
      #<unavailable argument>
      #<unavailable argument>)
  3: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
      #<SB-PRETTY:PRETTY-STREAM {12E17491}>
      (#<~S>)
      (#<error printing object>)
      (#<error printing object>))
  4: (SB-FORMAT::%FORMAT
      #<SB-PRETTY:PRETTY-STREAM {12E17491}>
      " ~S"
      (#<error printing object>)
      (#<error printing object>))
  5: (FORMAT #<SB-PRETTY:PRETTY-STREAM {12E17491}> " ~S")
  6: ((FLET #:WITH-PRETTY-STREAM-153)
      #<SB-PRETTY:PRETTY-STREAM {12E17491}>)
  7: (SB-DEBUG::PRINT-FRAME-CALL
      #<SB-DI::COMPILED-FRAME (SB-C::HAIRY-ARG-PROCESSOR BACKTRACE)>
      #<SB-IMPL::STRING-OUTPUT-STREAM {12E17181}>)
  8: (BACKTRACE 536870911 #<SB-IMPL::STRING-OUTPUT-STREAM {12E17181}>)
  9: (LIFT::GET-BACKTRACE #<unavailable argument>)
 10: ((LAMBDA (COND)) #<SIMPLE-TYPE-ERROR {12E16EC1}>)
 11: ((LAMBDA (COND)) #<SIMPLE-TYPE-ERROR {12E16EC1}>)
 12: (SIGNAL #<SIMPLE-TYPE-ERROR {12E16EC1}>)
 13: (ERROR SIMPLE-TYPE-ERROR)
 14: (SB-KERNEL:ILL-OUT
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {12E16CC9}>)
 15: (SB-IMPL::%WRITE-STRING
      "%PDF-1.4"
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {12E16CC9}>
      0
      8)
 16: (WRITE-LINE
      "%PDF-1.4"
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {12E16CC9}>
      :START
      0
      :END
      NIL)
 17: ((LAMBDA ()))
 18: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE # {12E16E1D}>)
 19: ((SB-PCL::FAST-METHOD PDF:WRITE-DOCUMENT (STREAM))
      #<unused argument>
      #<unused argument>
      #<SB-SYS:FD-STREAM for "file
/Users/jonathon/devel/rlg/web/data/25499.pdf" {12E16CC9}>
      #<PDF::DOCUMENT {11767011}>)

>
> --
> Jonathon McKitrick
> Reed Larkey Group
>
>
>


-- 
Jonathon McKitrick
Reed Larkey Group




From marc.battyani at fractalconcept.com  Wed Jan 31 21:39:10 2007
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 31 Jan 2007 22:39:10 +0100
Subject: [cl-pdf-devel] patch to fix warnings
References: <6880AD68-76A6-47FA-8284-B4E112172B04@metabang.com>
	<07ae01c7457a$8e4260f0$1402a8c0@marcx2>
	<A65F49CA-2395-46DB-819D-6B123DF74848@metabang.com>
Message-ID: <080601c74580$3df42790$1402a8c0@marcx2>

"Gary King" <gwking at metabang.com> wrote:

>Hi Marc,

Hi Gary,

>This was under Allegro 8.0 (modern mode) under OS X. I also use SBCL.
>
>I'll try to commit shortly (I think I have the rights to do that...  
><smile>).

Should be OK. :)
BTW do you want the modification rights on your pages in the CLD? 
(Don't forget to make an entry in the CLD for log5 ;)

Marc




From gwking at metabang.com  Wed Jan 31 21:58:22 2007
From: gwking at metabang.com (Gary King)
Date: Wed, 31 Jan 2007 16:58:22 -0500
Subject: [cl-pdf-devel] patch to fix warnings
In-Reply-To: <080601c74580$3df42790$1402a8c0@marcx2>
References: <6880AD68-76A6-47FA-8284-B4E112172B04@metabang.com>
	<07ae01c7457a$8e4260f0$1402a8c0@marcx2>
	<A65F49CA-2395-46DB-819D-6B123DF74848@metabang.com>
	<080601c74580$3df42790$1402a8c0@marcx2>
Message-ID: <E438F97A-D7E8-418B-8CEC-4F4BBF95BFD5@metabang.com>

Hi Marc (et. al.)

I just committed (had to do some e-mail searching to learn how!  
<smile>).

Having rights on the CLD for my pages would be cool; I will add log5.

thanks,

On Jan 31, 2007, at 4:39 PM, Marc Battyani wrote:

> "Gary King" <gwking at metabang.com> wrote:
>
>> Hi Marc,
>
> Hi Gary,
>
>> This was under Allegro 8.0 (modern mode) under OS X. I also use SBCL.
>>
>> I'll try to commit shortly (I think I have the rights to do  
>> that...  <smile>).
>
> Should be OK. :)
> BTW do you want the modification rights on your pages in the CLD?  
> (Don't forget to make an entry in the CLD for log5 ;)
>
> Marc
>
>

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM