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

⟦fa7b91aa3⟧ TextFile

    Length: 1340 (0x53c)
    Types: TextFile
    Names: »ckdunco.cli«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3da672b63⟧ »EurOpenD3/misc/kermit.tar.Z« 
        └─⟦126dd3ca0⟧ 
            └─⟦this⟧ »ckdunco.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: uncompress/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 -d %-%
    
[!else]   
[!neq [!file [!ename %/file=%].Z]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 [!ename %/file=%]]x,x]
        [!eq [!read Uncompressed file [!ename %/file=%] 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 uncompressing [!ascii 333][!enam %/file=%].Z[!ascii 335] to [!ascii 333][!enam %/file=%][!ascii 335]
        wr To compress, enter:  COMPRESS/FILE=%/file=%
        wr

        x compress/i=[!ename %/file=%].Z/o=[!ename %/file=%] -d %-%
    [!end]        
    
[!else]    
    wr
    wr The file [!ascii 333][!ename %/file=%].Z[!ascii 335] does not exist.  UNCOMPRESS will not be run!
    wr
[!end]    
[!end]