/*  --- University of Sussex POPLOG file -----------------------------------
 *  File:           $usepop/master/C.vms/lib/auto/delv.p
 *  Purpose:		delete specified versions of a file
 *  Author:         Unknown, ??? (see revisions)
 *  Documentation:
 *  Related Files:  the command file [pop.com]delv.com
 */

;;; usage:
;;;     delv file.foo 13 17 99;
;;; deletes versions 13, 17 and 99 of file.foo

section;

define global macro delv;
lvars file char n = 0;
    until (cucharin() ->> char) == `\n` or char == `;` or char == termin do
		char;
        n + 1 -> n
    enduntil;
    consstring(n) -> file;

    sysobeylist([% '@' >< popdisk >< '[POP.COM]DELV ' >< file%])
enddefine;

endsection;

/*  --- Revision History ---------------------------------------------------
--- Mark Rubinstein, Jul 29 1985 - made VMS only and slight tidying.
 */
