Re: [Chicken-users] How to use the tar egg?

[Kon Lovett]

On May 31, 2006, at 8:33 AM, Peter Busser wrote:

> Hi!
>
> Perhaps a stupid question, but how does one open and iterate through a
> tar-file using the tar egg?

Never used it so 'grain of salt' time.

(let ([f (open-input-file "sample.tar")])
        (let loop ()
                (let-values (([ip hr] (tar:open-archived-file f)))
                        (unless (eof-object? ip)
                                (process-tar-item hr (read-all ip))
                                (close-input-port ip)
                                (loop)))
        (close-input-port f))

> Groetjes,
> Peter.
>
>
> _______________________________________________
> Chicken-users mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/chicken-users