Lösungsbeispiel zu Blatt 9 (Aufgabe 13): delete

delete.h

/*
 *      delete.h        - Headerfile for SAM delete function.
 *
 *      Martin Hasch, University of Ulm, January 1997.
 */

#include        "names.h"

/*
 *      Delete given members of archive.
 *      If any members are not present return ECODE_ERROR, on success
 *      return ECODE_SUCCESS, on serious problems abort program.
 */
int delete(char *archive, names_List list);

delete.c

/*
 *      delete.c        - SAM delete function.
 *
 *      Martin Hasch, University of Ulm, January 1997.
 */

#include        "sam.h"
#include        "names.h"
#include        "parser.h"
#include        "delete.h"

/*
 *      Delete given members of archive.
 *      If any members are not present return ECODE_ERROR, on success
 *      return ECODE_SUCCESS, on serious problems abort program.
 */
int delete(char *archive, names_List list)
{
        parser_Locator oldarch;
        parser_Locator tmparch;
        sam_Header header;
        names_List thisname;

        parser_openreadwrite(archive, /*create==*/0, &oldarch, &tmparch);
        while ( parser_getheader(oldarch, &header) ) {
                if ( (thisname = names_get(list, header.sam_name)) != NULL ) {
                        parser_skipbody(oldarch, &header);
                        list = names_delete(list, thisname);
                } else {
                        parser_preserve(oldarch, tmparch, &header);
                }
        }
        parser_closeandcopy(oldarch, tmparch);

        if ( list != NULL ) {
                names_notfound(list);
                return ECODE_ERROR;
        }
        return ECODE_SUCCESS;
}