SUBDIRS = manual
BOOTCLEAN_SUBDIRS = $(SUBDIRS)
DIST_SUBDIRS      = $(SUBDIRS)

* Evaluating the NixOS Hydra jobs:
  $ ./hydra_eval_jobs ~/Dev/nixos-wc/release.nix --arg nixpkgs '{outPath = /home/eelco/Dev/nixpkgs-wc;}' --arg nixosSrc '{outPath = /home/eelco/Dev/nixos-wc; rev = 1234;}' --arg services '{outhPath = /home/eelco/services-wc;}' --argstr system i686-linux --argstr system x86_64-linux --arg officialRelease false

typedef std::map<Symbol, std::pair<unsigned int, Value> > ArgsUsed;
typedef std::map<Symbol, list<Value> > AutoArgs;

typedef std::map<Symbol, std::pair<unsigned int, Value *> > ArgsUsed;
typedef std::list<Value *, traceable_allocator<Value *> > ValueList;
typedef std::map<Symbol, ValueList> AutoArgs;

        Value v, arg;
        state.mkAttrs(arg);
        *arg.attrs = actualArgs;
        mkApp(v, fun, arg);

        Value v, * arg = state.allocValue();
        state.mkAttrs(*arg, 0);
        *arg->attrs = actualArgs;
        mkApp(v, fun, *arg);

    foreach (list<Value>::const_iterator, i,  a->second) {

    foreach (ValueList::const_iterator, i, a->second) {

        actualArgs2[cur->name].value = *i;
        argsUsed2[cur->name] = std::pair<unsigned int, Value>(n, *i);

        actualArgs2.push_back(Attr(cur->name, *i));
        actualArgs2.sort(); // !!! inefficient
        argsUsed2[cur->name] = std::pair<unsigned int, Value *>(n, *i);

        xmlAttrs2["value"] = (format("%1%") % i->second.second).str();

        xmlAttrs2["value"] = (format("%1%") % *i->second.second).str();

                findJobs(state, doc, argsUsed, argsLeft, i->second.value,
                    (attrPath.empty() ? "" : attrPath + ".") + (string) i->first);

                findJobs(state, doc, argsUsed, argsLeft, *i->value,
                    (attrPath.empty() ? "" : attrPath + ".") + (string) i->name);

            Value v;

            Value * v = state.allocValue();

                state.eval(parseExprFromString(state, value, absPath(".")), v);

                state.eval(parseExprFromString(state, value, absPath(".")), *v);

                mkString(v, value);

                mkString(*v, value);

    std::cout.setf(std::ios::unitbuf);

    # Go over all jobs in this project.

    # Go over all jobsets in this project.
    foreach my $jobset ($project->jobsets->all) {
        my $keepnr = $jobset->keepnr;

    foreach my $job ($project->jobs->all) {
        print STDERR "*** looking for builds to keep in job ",
            $project->name, ":", $job->jobset->name, ":", $job->name, "\n";

	# If the jobset has been disabled for more than one week, than
	# don't keep its builds anymore.
	if ($jobset->enabled == 0 && (time() - $jobset->lastcheckedtime > (7 * 24 * 3600))) {
	    print STDERR "*** skipping disabled jobset ", $project->name, ":", $jobset->name, "\n";
	    next;
	}
        
        # Go over all jobs in this jobset.
        foreach my $job ($jobset->jobs->all) {
            print STDERR "*** looking for builds to keep in job ",
                $project->name, ":", $job->jobset->name, ":", $job->name, "\n";

        # Keep the N most recent successful builds for each job and
        # platform.
        # !!! Take time into account? E.g. don't delete builds that
        # are younger than N days.
	my @systems = $job->builds->search({ }, { select => ["system"], distinct => 1 })->all;
    my $keepnr = $job->jobset->keepnr ;
	foreach my $system (@systems) {
            my @recentBuilds = $job->builds->search(
		{ finished => 1
                , buildStatus => 0 # == success
                , system => $system->system
                },
                { join => 'resultInfo'
                , order_by => 'id DESC'
                , rows => $keepnr
                });
	    keepBuild $_ foreach @recentBuilds;

            # Keep the N most recent successful builds for each job
            # and platform.
            # !!! Take time into account? E.g. don't delete builds
            # that are younger than N days.
            my @systems = $job->builds->search({ }, { select => ["system"], distinct => 1 })->all;
            foreach my $system (@systems) {
                my @recentBuilds = $job->builds->search(
                    { finished => 1
                    , buildStatus => 0 # == success
                    , system => $system->system
                    },
                    { join => 'resultInfo'
                    , order_by => 'id DESC'
                    , rows => $keepnr
                    });
                keepBuild $_ foreach @recentBuilds;
	    }