---

snapprune.C

Go to the documentation of this file.

//   version 1:  Nov 1994   Piet Hut

#include "node.h"

/*-----------------------------------------------------------------------------
 *  main  --
 *-----------------------------------------------------------------------------
 */
main(int argc, char ** argv)
{
    int  k = 2;    // default: pass half of all snapshots
    int  s = 0;    // default: do not skip any snapshpt
    int  x = -1;   // default: exit after end of file
    bool  c_flag = FALSE;
    char  *comment;
    
    check_help();

    extern char *poptarg;
    int c;
    char* param_string = "c:k:s:x:";

    while ((c = pgetopt(argc, argv, param_string)) != -1)
    switch(c)
    {
        case 'c': c_flag = TRUE;
                  comment = poptarg;
                  break;
        case 'k': k = atoi(poptarg);
                  break;
        case 's': s = atoi(poptarg);
                  break;
        case 'x': x = atoi(poptarg);
                  break;
        case '?': params_to_usage(cerr, argv[0], param_string);
                  get_help();
                  exit(1);
              }            

    node *b;
    for (int i = 0; i < s; i++){
        cerr << " skipping snapshot " << i << endl;
        if (! forget_node(cin)) exit(1);
    }
    
    
    int node_read = 0;
    while (b = get_node(cin))
    {
        node_read++;
        if (c_flag == TRUE)
        b->log_comment(comment);
        b->log_history(argc, argv);
        put_node(cout,*b);
        rmtree(b);
        
        for (int i = 1; i < k; i++)
          if (! forget_node(cin)) {
            exit(1);
          }

        if (x>0 && node_read>=x)
          exit(1);
    }
}

/* endof: snapprune.c */

---