[REBOL] pesky little questions Re:

[allenk]

Hi Tom,

I'm feeling a bit tired, so I'm only going to answer the first one for now
;-)

Cheers,

Allen K


> pesky little questions
>
> howdy guys,
>
> I've a few smallish questions that have been pestering me. Like this
> one:
>
> compressing a file is pretty easy.  compress read %this.file (right?)
> How can I get the compressed data into a script so that I can use it
> there? I guess a gif would be in the same catagory.

REBOL [
    Title: "Image File Compressor"
    Purpose: {Creates a file of compressed images from the directory
            images for pasting into scripts}
    Note: {Modified version of one of Jeffs helpful posts}
]

      system/options/binary-base: 64
 list: []
 foreach file read %. [
          if any [
              find file ".bmp"
              find file ".gif"
              find file ".jpg"
              find file ".jpeg"


              append list join to-string file [
                  {: load to-binary decompress }
                  mold compress read/binary file
                  "^/^/"
               ]
          ]
      ]
 write %images.r list