17 lines
488 B
Plaintext
17 lines
488 B
Plaintext
|
# show comments of a zip archive
|
||
|
|
# $NiH: comment.test,v 1.1 2006/04/09 19:05:48 wiz Exp $
|
||
|
|
program get_comment
|
||
|
|
return 0
|
||
|
|
args testcomment.zip
|
||
|
|
file testcomment.zip testcomment.zip testcomment.zip
|
||
|
|
stdout Archive comment: This is the archive comment for the file.
|
||
|
|
stdout
|
||
|
|
stdout Long.
|
||
|
|
stdout
|
||
|
|
stdout Longer.
|
||
|
|
stdout
|
||
|
|
stdout No comment for `file1'
|
||
|
|
stdout File comment for `file2': First one had no comment.
|
||
|
|
stdout File comment for `file3': Third one.
|
||
|
|
stdout File comment for `file4': Last.
|