DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T c

⟦351c1850a⟧ TextFile

    Length: 1264 (0x4f0)
    Types: TextFile
    Names: »ckdcomp.cli«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3da672b63⟧ »EurOpenD3/misc/kermit.tar.Z« 
        └─⟦126dd3ca0⟧ 
            └─⟦this⟧ »ckdcomp.cli«

TextFile

[!eq %/file%x,x]
    comment
    comment No switch was specified...may be trouble
    comment
     
    wr
    wr You need to specify a /file= switch to use the CLI macro.
    wr Usage: compress/file=filename [!ascii 333]-dfvc[!ascii 335] [!ascii 333]-b bits[!ascii 335]
    wr Execution proceeds anyway with i/o directed to stdin and stdout.
    wr
     
    x compress %-%
    
[!else]   
[!neq [!file %/file=%]x,x]
    comment
    comment File does exist, so it is okay to proceed
    comment

    comment
    comment Verify the output file
    comment var0 = 0 means "run it"
    var0 0
    [!neq [!file %/file=%.Z]x,x]
        [!eq [!read Compressed file %/file=%.Z exists! Enter N to abort: ]x,NX]
            var0 1
            wr Please try again!
        [!end]
    [!end]
    [!eq [!var0],0]
        comment
        comment OKAY, now run it!
        comment
        wr
        wr Now compressing [!ascii 333]%/file=%[!ascii 335] to [!ascii 333]%/file=%.Z[!ascii 335]
        wr To uncompress, enter:  UNCOMPRESS/FILE=%/file=%
        wr
    
        x compress/i=%/file=%/o=%/file=%.Z %-%
    [!end]        
    
[!else]    
    wr
    wr The file [!ascii 333]%/file=%[!ascii 335] does not exist.  COMPRESS will not be run!
    wr
[!end]    
[!end]