/* BLURB gpl

                           Coda File System
                              Release 6

          Copyright (c) 1987-2003 Carnegie Mellon University
                  Additional copyrights listed below

This  code  is  distributed "AS IS" without warranty of any kind under
the terms of the GNU General Public Licence Version 2, as shown in the
file  LICENSE.  The  technical and financial  contributors to Coda are
listed in the file CREDITS.

                        Additional copyrights
                           none currently

#*/

/*
 *
 *    Implementation of the Venus Recoverable Storage manager.
 *
 *
 */


#ifdef __cplusplus
extern "C" {
#endif

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdio.h>
#include "coda_string.h"
#include <sys/param.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <errno.h>
#include <unistd.h>
#include <stdlib.h>
#include <fcntl.h>

#ifdef HAVE_OSRELDATE_H
#include <osreldate.h>
#endif

/* from rvm */
#include <rvm/rds.h>
#include <rvm/rvm.h>
#include <rvm/rvm_segment.h>
#include <rvm/rvm_statistics.h>

/* function defined in rpc2.private.h, which we need to seed the random
 * number generator, _before_ we create a new VenusGenId. */
void rpc2_InitRandom();

#ifdef __cplusplus
}
#endif

#include "fso.h"
#include "hdb.h"
#include "local.h"
#include "mariner.h"
#include "venus.private.h"
#include "venusrecov.h"
#include "worker.h"

/*  *****  Exported Variables  *****  */

int RecovInited = 0;
RecovVenusGlobals *rvg = 0;
int TransCount = 0;
float TransElapsed = 0.0;
int MapPrivate = 0;

int InitMetaData = UNSET_IMD, InitNewInstance = UNSET_IMD;
char *VenusLogDevice = NULL;
unsigned long VenusLogDeviceSize = UNSET_VLDS;
char *VenusDataDevice = NULL;
unsigned long VenusDataDeviceSize = UNSET_VDDS;
int RdsChunkSize = UNSET_RDSCS;
int RdsNlists = UNSET_RDSNL;
int CMFP = UNSET_CMFP;
int DMFP = UNSET_DMFP;
int MAXFP = UNSET_MAXFP;
int WITT = UNSET_WITT;
unsigned long MAXFS = UNSET_MAXFS;
unsigned long MAXTS = UNSET_MAXTS;

#ifndef MAX
#define MAX(a,b)  ( ((a) > (b)) ? (a) : (b) )
#endif

/*  *****  Private Constants  *****  */

#if defined(NetBSD1_3) || defined(__NetBSD_Version__) || defined(__OpenBSD__) \
 || defined(__linux__) || defined(__CYGWIN32__) || defined(__FreeBSD_version)  \
 || (defined(__APPLE__) && defined(__MACH__))
static const char *VM_RVMADDR = (char *)0x50000000;

/* Pretty much every platform seems to be able to handle 0x50000000 as the RVM
 * start address without a problem. In fact the server _always_ uses that as
 * the RVM start address. Sun/solaris could probably use it as well. I do
 * wonder why sparc-linux is using such an unusual RVM start address. djgpp
 * (win95) is the most likely exception to the rule because we are running in
 * a strange DOS environment */
#elif defined(__linux__) && defined(sparc)
static const char *VM_RVMADDR = (char *)0xbebd000;
#elif defined(DJGPP)
static const char *VM_RVMADDR = (char *)0x03000000;
#elif defined(sun)
static const char *VM_RVMADDR = (char *)0x40000000;
#else
#error "Please define RVM address for this platform."
#endif

#ifdef __CYGWIN32__
#include <windows.h>
#endif

/*  *****  Private Variables  *****  */

static rvm_options_t Recov_Options;
static char *Recov_RvgAddr = 0;
static rvm_length_t Recov_RvgLength = 0;
static char *Recov_RdsAddr = 0;
static rvm_length_t Recov_RdsLength = 0;
static int Recov_TimeToFlush = 0;
static rvm_statistics_t Recov_Statistics;

/*  *****  Private Functions  *****  */

static void Recov_CheckParms();
static void Recov_InitRVM();
static void Recov_InitRDS();
static void Recov_LoadRDS();
static void Recov_GetStatistics();

/* Crude formula for estimating recoverable data requirements! */
#define	RECOV_BYTES_NEEDED()\
    (MLEs * (sizeof(cmlent) + 64) +\
    CacheFiles * (sizeof(fsobj) + 64) +\
    (CacheFiles / 4) * (sizeof(VenusDirData) + 3072) +\
    (CacheFiles / 256) * sizeof(repvol) +\
    (CacheFiles / 512) * sizeof(volrep) +\
    HDBEs * (sizeof(hdbent) + 128) +\
    128 * 1024)


/*  *****  Recovery Module  *****  */

int RecovVenusGlobals::validate()
{
    if (recov_MagicNumber != RecovMagicNumber) return(0);
    if (recov_VersionNumber != RecovVersionNumber) return(0);

    if (recov_CleanShutDown != 0 && recov_CleanShutDown != 1) return(0);

    if (!VALID_REC_PTR(recov_FSDB)) return(0);
    if (!VALID_REC_PTR(recov_VDB)) return(0);
    if (!VALID_REC_PTR(recov_REALMDB)) return(0);
    if (!VALID_REC_PTR(recov_HDB)) return(0);
    if (!VALID_REC_PTR(recov_LRDB)) return(0);

    return(1);
}


void RecovVenusGlobals::print() {
    print(stdout);
}


void RecovVenusGlobals::print(FILE *fp) {
    print(fileno(fp));
}


/* local-repair modification */
void RecovVenusGlobals::print(int fd) {
    fdprint(fd, "RVG values: what they are (what they should be)\n");    
    fdprint(fd, "Magic = %x(%x), Version = %d(%d), CleanShutDown= %d(0 or 1)\n",
	    recov_MagicNumber, RecovMagicNumber,
	    recov_VersionNumber, RecovVersionNumber,
	    recov_CleanShutDown);
    fdprint(fd, "The following pointers should be between %p and %p:\n",
	    recov_HeapAddr, recov_HeapAddr + recov_HeapLength);
    fdprint(fd, "Ptrs = [%p %p %p %p %p], Heap = [%p] HeapLen = %x\n",
	     recov_FSDB, recov_VDB, recov_HDB, recov_REALMDB, recov_LRDB, 
	     recov_HeapAddr, recov_HeapLength);

    fdprint(fd, "UUID = %08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x\n",
	    ntohl(*(unsigned int *)&recov_UUID[0]),
	    ntohs(*(unsigned short *)&recov_UUID[4]),
	    ntohs(*(unsigned short *)&recov_UUID[6]),
	    recov_UUID[8], recov_UUID[9], recov_UUID[10], recov_UUID[11],
	    recov_UUID[12], recov_UUID[13], recov_UUID[14], recov_UUID[15]);
}

static void RecovNewInstance(void)
{
    /* We need to initialize the random number generator before first use */
    rpc2_InitRandom();
    VenusGenID = rpc2_NextRandom(NULL);
}

void RecovInit(void)
{
    /* Set unset parameters to defaults (as appropriate). */
    Recov_CheckParms();

    if (RvmType == VM) {
	if ((rvg = (RecovVenusGlobals *)malloc(sizeof(RecovVenusGlobals))) == 0)
	    CHOKE("RecovInit: malloc failed");
	memset(rvg, 0, sizeof(RecovVenusGlobals));
	rvg->recov_MagicNumber   = RecovMagicNumber;
	rvg->recov_VersionNumber = RecovVersionNumber;
	rvg->recov_LastInit      = Vtime();

	RecovNewInstance();

	RecovInited = 1;
	return;
    }

    /* Initialize the RVM package. */
    Recov_InitRVM();
    Recov_InitRDS();
    Recov_LoadRDS();

    /* Read-in bounds for bounded recoverable data structures. */
    if (!InitMetaData) {
	int override = 0;
	if (MLEs != VDB->MaxMLEs) {
	    eprint("Ignoring requested # of cml entries (%ld), "
		   "using rvm value (%ld)", MLEs, VDB->MaxMLEs);
	    override = 1;
	    MLEs = VDB->MaxMLEs;
	}
	if (CacheFiles != FSDB->MaxFiles) {
	    eprint("Ignoring requested # of cache files (%ld), "
		   "using rvm value (%ld)", CacheFiles, FSDB->MaxFiles);
	    override = 1;
	    CacheFiles = FSDB->MaxFiles;
	}
	if (HDBEs != HDB->MaxHDBEs) {
	    eprint("Ignoring requested # of hoard entries (%ld), "
		   "using rvm value (%ld)", HDBEs, HDB->MaxHDBEs);
	    override = 1;
	    HDBEs = HDB->MaxHDBEs;
	}
	if (override)
	    eprint("\t(restart venus with the -init flag to reset RVM values)");

	LOG(10, ("RecovInit: MLEs = %d, CacheFiles = %d, HDBEs = %d\n",
		 MLEs, CacheFiles, HDBEs));
    }

    RecovInited = 1;

    /* Fire up the daemon. */
    RECOVD_Init();
}


static void Recov_CheckParms()
{
    /* From recov module. */
    if (RvmType == UNSET)
        RvmType = DFLT_RVMT;

    switch(RvmType) {
    case RAWIO:
        eprint("RAWIO not yet supported");
        exit(-1);
        break;
    case VM:
        InitMetaData = 1; /* VM RvmType forces a brain-wipe! */
        // Fall through
    case UFS:
        break;
    default:
        CHOKE("Recov_CheckParms: bogus RvmType (%d)", RvmType);
    }

    if (InitMetaData) {
	/* Compute recoverable storage requirements, and verify that log/data sizes are adequate. */
        unsigned long RecovBytesNeeded = RECOV_BYTES_NEEDED();

        /* Set segment sizes if necessary. */
        if (VenusDataDeviceSize == UNSET_VDDS)
            VenusDataDeviceSize = RecovBytesNeeded;
        if (VenusLogDeviceSize == UNSET_VLDS)
            VenusLogDeviceSize = VenusDataDeviceSize / DataToLogSizeRatio;

        /* Check that sizes meet minimums. */
        if (VenusLogDeviceSize < MIN_VLDS) {
            eprint("log segment too small (%#x); minimum %#x",
                   VenusLogDeviceSize, MIN_VLDS);
            exit(-1);
        }
        if (VenusDataDeviceSize < MAX(RecovBytesNeeded, MIN_VDDS)) {
            eprint("data segment too small (%#x); minimum %#x",
                   VenusDataDeviceSize, MAX(RecovBytesNeeded, MIN_VDDS));
            exit(-1);
        }

        LOG(0, ("RecovDataSizes: Log = %#x, Data = %#x\n",
                VenusLogDeviceSize, VenusDataDeviceSize));
    }
    else /* !InitMetaData */
    {
        char *failure = NULL;

        /* Specifying log or data size requires a brain-wipe! */
        if (VenusLogDeviceSize != UNSET_VLDS) {
            failure = "VLDS";
            goto fail;
        }
        if (VenusDataDeviceSize != UNSET_VDDS) {
            failure = "VDDS";
            goto fail;
        }
        /* These parameters are only needed for a brain-wipe anyway! */
        if (RdsChunkSize != UNSET_RDSCS) {
            failure = "RDS chunk size";
            goto fail;
        }
        if (RdsNlists != UNSET_RDSNL) {
            failure = "RDS nlists";
fail:
            eprint("setting %s requires InitMetaData", failure);
            exit(-1);
        }
    }

    if (RdsChunkSize == UNSET_RDSCS) RdsChunkSize = DFLT_RDSCS;
    if (RdsNlists    == UNSET_RDSNL) RdsNlists = DFLT_RDSNL;

    /* Flush/Truncate parameters. */
    if (CMFP  == UNSET_CMFP)  CMFP = DFLT_CMFP;
    if (DMFP  == UNSET_DMFP)  DMFP = DFLT_DMFP;
    if (MAXFP == UNSET_MAXFP) MAXFP = DFLT_MAXFP;
    if (WITT  == UNSET_WITT)  WITT = DFLT_WITT;
    if (MAXFS == UNSET_MAXFS) MAXFS = DFLT_MAXFS;
    if (MAXTS == UNSET_MAXTS) MAXTS = DFLT_MAXTS;

/* If you are looking for the checks and calculations for MLEs, CacheFiles,
 * and HDBEs. They have been moved to venus.cc:DefaultCmdlineParms --JH */
}

static void Recov_InitRVM()
{
    rvm_init_options(&Recov_Options);
    Recov_Options.log_dev = VenusLogDevice;
    Recov_Options.truncate = 0;
    //Recov_Options.flags = RVM_COALESCE_TRANS;  /* oooh, daring */
    Recov_Options.flags = RVM_ALL_OPTIMIZATIONS;
    if (MapPrivate)
        Recov_Options.flags |= RVM_MAP_PRIVATE;

    rvm_init_statistics(&Recov_Statistics);

    if (InitMetaData) /* Initialize log. */
    {
        /* Get rid of any old log */
        truncate(VenusLogDevice, 0); unlink(VenusLogDevice);

        /* Pass in the correct parameters so that RVM_INIT can create
         * a new logfile */
        Recov_Options.create_log_file = rvm_true;
        Recov_Options.create_log_size = RVM_MK_OFFSET(0, VenusLogDeviceSize);
        Recov_Options.create_log_mode = 0600;
        /* as far as the log is concerned RVM_INIT will now handle the
         * rest of the creation. */
    }
    else /* Validate log segment. */
    {
        struct stat tstat;

        if (stat(VenusLogDevice, &tstat) < 0) {
            eprint("Recov_InitRVM: stat of (%s) failed (%d)",
                   VenusLogDevice, errno);
            exit(-1);
        }
        VenusLogDeviceSize = tstat.st_size;

        if (stat(VenusDataDevice, &tstat) < 0)
            CHOKE("ValidateDevice: stat of (%s) failed (%d)",
                  VenusDataDevice, errno);
        VenusDataDeviceSize = tstat.st_size;
    }
    eprint("%s size is %ld bytes", VenusLogDevice, VenusLogDeviceSize);

    rvm_return_t ret = RVM_INIT(&Recov_Options);
    if (ret == RVM_ELOG_VERSION_SKEW) {
	eprint("Recov_InitRVM: RVM_INIT failed, RVM log version skew");
	eprint("Venus not started");
	exit(-1);
    } else if (ret != RVM_SUCCESS) {
	eprint("Recov_InitRVM: RVM_INIT failed (%s)", rvm_return(ret));
	exit(-1);
    }
}

static void Recov_InitRDS()
{
    rvm_return_t ret;
    rvm_length_t devsize;

    devsize = RVM_ROUND_LENGTH_DOWN_TO_PAGE_SIZE(VenusDataDeviceSize);
    Recov_RdsAddr = (char *)VM_RVMADDR;
    Recov_RvgLength=RVM_ROUND_LENGTH_UP_TO_PAGE_SIZE(sizeof(RecovVenusGlobals));
    Recov_RdsLength= devsize - Recov_RvgLength - RVM_SEGMENT_HDR_SIZE;

    eprint("%s size is %ld bytes", VenusDataDevice, VenusDataDeviceSize);

    if (!InitMetaData) return;

    /* Initialize data segment. */
    int fd;
    fd = open(VenusDataDevice, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, 0600);
    if (fd < 0) {
        eprint("Recov_InitRVM: create of %s failed (%d)",
               VenusDataDevice, errno);
        exit(-1);
    }
    if (ftruncate(fd, VenusDataDeviceSize) < 0) {
        eprint("Recov_InitRVM: growing %s failed (%d)",
               VenusDataDevice, errno);
        exit(-1);
    }
    if (close(fd) < 0) {
        eprint("Recov_InitRVM: close of %s failed (%d)",
               VenusDataDevice, errno);
        exit(-1);
    }

    eprint("Initializing RVM data...");
    rds_zap_heap(VenusDataDevice, RVM_LENGTH_TO_OFFSET(devsize),
                 Recov_RdsAddr, Recov_RvgLength, Recov_RdsLength,
                 (unsigned long)RdsNlists,(unsigned long)RdsChunkSize,&ret);
    if (ret != SUCCESS) {
        eprint("Recov_InitRDS: rds_zap_heap failed (%s)", rvm_return(ret));
        exit(-1);
    }
    eprint("...done");
}

static void Recov_LoadRDS()
{
    rvm_return_t ret;

    eprint("Loading RVM data");
    rds_load_heap(VenusDataDevice, RVM_LENGTH_TO_OFFSET(VenusDataDeviceSize),
                  &Recov_RvgAddr, &ret);
    if (ret != SUCCESS) {
        eprint("Recov_InitRDS: rds_load_heap failed (%s)", rvm_return(ret));
        exit(-1);
    }
    rvg = (RecovVenusGlobals *)Recov_RvgAddr;

    /* Initialize or validate the segment. */
    if (InitMetaData) {
        Recov_BeginTrans();
        /* Initialize the block of recoverable Venus globals. */
        RVMLIB_REC_OBJECT(*rvg);
        memset((void *)rvg, 0, (int)sizeof(RecovVenusGlobals));
        rvg->recov_MagicNumber = RecovMagicNumber;
        rvg->recov_VersionNumber = RecovVersionNumber;
        rvg->recov_LastInit = Vtime();
        rvg->recov_HeapAddr = Recov_RdsAddr;
        rvg->recov_HeapLength = (unsigned int)Recov_RdsLength;
        Recov_EndTrans(0);
    } else {
        /* Sanity check RVG fields. */
        if (rvg->recov_HeapAddr   != Recov_RdsAddr ||
            rvg->recov_HeapLength != Recov_RdsLength)
            CHOKE("Recov_LoadRDS: heap mismatch (%x, %x) vs (%x, %x)",
                  rvg->recov_HeapAddr, rvg->recov_HeapLength,
                  Recov_RdsAddr, Recov_RdsLength);
        if (!rvg->validate()) {
            rvg->print(stderr); CHOKE("Recov_InitSeg: rvg validation failed, "
                                      "restart venus with -init");
        }

        eprint("Last init was %s", strtok(ctime((time_t *)&rvg->recov_LastInit), "\n"));

        /* Copy CleanShutDown to VM global, then set it FALSE. */
        CleanShutDown = rvg->recov_CleanShutDown;
        eprint("Last shutdown was %s", (CleanShutDown ? "clean" : "dirty"));
        Recov_BeginTrans();
        RVMLIB_REC_OBJECT(rvg->recov_CleanShutDown);
        rvg->recov_CleanShutDown = 0;
        Recov_EndTrans(0);
    }

    if (InitMetaData || InitNewInstance) {
        Recov_BeginTrans();
	RVMLIB_REC_OBJECT(VenusGenID);
	RecovNewInstance();
        Recov_EndTrans(0);
    }

    /* Plumb the heap here? */
    if (MallocTrace) {	
        rds_trace_on(logFile);
        rds_trace_dump_heap();
    }
}

/* Venus transaction handling */
void Recov_BeginTrans(void)
{
	rvmlib_begin_transaction(no_restore);
}

void Recov_EndTrans(int time)
{
	rvmlib_end_transaction(no_flush, 0);
	Recov_SetBound(time);
}


/* Bounds the (non)persistence of committed no_flush transactions. */
void Recov_SetBound(int bound) {
    if (bound < Recov_TimeToFlush)
	Recov_TimeToFlush = bound;
}


static void Recov_GetStatistics() {
    if (RvmType == VM) return;

    rvm_return_t ret = RVM_STATISTICS(&Recov_Statistics);
    if (ret != RVM_SUCCESS)
	CHOKE("Recov_GetStatistics: rvm_statistics failed (%d)", ret);
}


void RecovFlush(int Force) {
    if (RvmType == VM) return;

    Recov_GetStatistics();
    int FlushCount = (int)Recov_Statistics.n_no_flush;
    unsigned long FlushSize = RVM_OFFSET_TO_LENGTH(Recov_Statistics.no_flush_length);

    const char *reason = (Force) ? "F" :
	(Recov_TimeToFlush <= 0) ? "T" :
	    (FlushSize >= MAXFS) ? "S" : "I";

    Recov_TimeToFlush = MAXFP;
    if (FlushSize == 0) return;

    LOG(0, ("BeginRvmFlush (%d, %d, %s)\n", FlushCount, FlushSize, reason));
    START_TIMING();
    rvm_return_t ret = rvm_flush();
    if (ret != RVM_SUCCESS)
	CHOKE("RecovFlush: rvm_flush failed (%d)", ret);
    END_TIMING();
    LOG(0, ("EndRvmFlush\n"));

    LOG(1, ("RecovFlush: count = %d, size = %d, elapsed = %3.1f\n",
	    FlushCount, FlushSize, elapsed));
}


void RecovTruncate(int Force) {
    if (RvmType == VM) return;

    Recov_GetStatistics();
    int TruncateCount = (int)Recov_Statistics.n_flush_commit +
      (int)Recov_Statistics.n_no_flush_commit;
    unsigned long TruncateSize = RVM_OFFSET_TO_LENGTH(Recov_Statistics.log_written);

    const char *reason = (Force) ? "F" :
	 (TruncateSize >= MAXTS) ? "S" : "I";

    if (TruncateSize == 0) return;

    LOG(0, ("BeginRvmTruncate (%d, %d, %s)\n", TruncateCount, TruncateSize, reason));
    START_TIMING();
    rvm_return_t ret = rvm_truncate();
    if (ret != RVM_SUCCESS)
	CHOKE("RecovTruncate: rvm_truncate failed (%d)", ret);
    END_TIMING();
    LOG(0, ("EndRvmTruncate\n"));

/*    if (post_vm_usage - pre_vm_usage != 0)*/
    LOG(1, ("RecovTruncate: count = %d, size = %d, elapsed = %3.1f\n",
	    TruncateCount, TruncateSize, elapsed));
}


void RecovTerminate() {
    if (RvmType == VM) return;
    if (!RecovInited) return;

    /* Record clean shutdown indication if possible. */
    Recov_GetStatistics();
    int n_uncommit = (int)Recov_Statistics.n_uncommit;
    if (n_uncommit == 0) {
	/* N.B.  Can't use rvmlib macros here, since we're likely being called in the */
	/* context of a signal handler, which does not have the state assumed by the macros! */
	{
	    rvm_tid_t tid;
	    rvm_init_tid(&tid);
	    rvm_return_t ret;
	    ret = rvm_begin_transaction(&tid, no_restore);
	    CODA_ASSERT(ret == RVM_SUCCESS);
	    ret = rvm_set_range(&tid, (char *)&rvg->recov_CleanShutDown,
				sizeof(rvg->recov_CleanShutDown));
	    CODA_ASSERT(ret == RVM_SUCCESS);
	    rvg->recov_CleanShutDown = 1;
	    ret = rvm_end_transaction(&tid, flush);
	    CODA_ASSERT(ret == RVM_SUCCESS);
	}

	eprint("RecovTerminate: clean shutdown");
    }
    else {
	eprint("RecovTerminate: dirty shutdown (%d uncommitted transactions)", n_uncommit);
    }

    rvm_return_t ret = rvm_terminate();
    switch(ret) {
	case RVM_SUCCESS:
	    CODA_ASSERT(n_uncommit == 0);
	    break;

	case RVM_EUNCOMMIT:
	    CODA_ASSERT(n_uncommit != 0);
	    break;

	default:
	    CHOKE("RecovTerminate: rvm_terminate failed (%d)", ret);
    }
}


void RecovPrint(int fd) {
    if (RvmType == VM) return;
    if (!RecovInited) return;

    fdprint(fd, "Recoverable Storage: (%s, %x)\n", VenusDataDevice, VenusDataDeviceSize);
    fdprint(fd, "\tTransactions = (%d, %3.1f)\n",
	     TransCount, (TransCount > 0 ? TransElapsed / TransCount : 0.0));
    fdprint(fd, "\tHeap: chunks = %d, nlists = %d, bytes = (%d, %d)\n",
	     RdsChunkSize, RdsNlists, 0, 0);
    fdprint(fd, "\tLast initialized %s\n", ctime((time_t *)&rvg->recov_LastInit));

    fdprint(fd, "***RVM Statistics***\n");
    Recov_GetStatistics();
    rvm_return_t ret = rvm_print_statistics(&Recov_Statistics, logFile);
    fflush(logFile);
    if (ret != RVM_SUCCESS)
	CHOKE("Recov_PrintStatistics: rvm_print_statistics failed (%d)", ret);

    fdprint(fd, "***RDS Statistics***\n");
    rds_stats_t rdsstats;
    if (rds_get_stats(&rdsstats) != 0)
	fdprint(fd, "rds_get_stats failed\n\n");
    else
        fdprint(fd, "RecovPrint:  Free bytes in heap = %d; Malloc'd bytes in heap = %d\n\n", 
	        rdsstats.freebytes, rdsstats.mallocbytes);
    // We wish there were a way to find out if heap_header_t.maxlist < heap_header_t.nlists.
    // If there were, that would be a sign that fragmentation is becoming a problem.
    // Unfortunately, heap_header_t is in rds_private.h
}


/*  *****  RVM String Routines  *****  */

RPC2_String Copy_RPC2_String(RPC2_String& src)
{
    int len = (int) strlen((char *)src) + 1;

    RPC2_String tgt = (RPC2_String)rvmlib_rec_malloc(len);
    rvmlib_set_range(tgt, len);
    memcpy(tgt, src, len);

    return(tgt);
}


void Free_RPC2_String(RPC2_String& STR) {
    rvmlib_rec_free(STR);
}


/*  *****  recov_daemon.c  *****  */

static const int RecovDaemonInterval = 5;
static const int RecovDaemonStackSize = 262144;    /* MUST be big to handle rvm_trucates! */

static char recovdaemon_sync;

void RECOVD_Init(void) {
    (void)new vproc("RecovDaemon", &RecovDaemon, VPT_RecovDaemon,
		    RecovDaemonStackSize);
}

void RecovDaemon(void) {
    /* Hack!!!  Vproc must yield before data members become valid! */
    /* suspect interaction between LWP creation/dispatch and C++ initialization. */
    VprocYield();

    vproc *vp = VprocSelf();
    RegisterDaemon(RecovDaemonInterval, &recovdaemon_sync);

    for (;;) {
        VprocWait(&recovdaemon_sync);

	/* First task is to get statistics. */
	Recov_GetStatistics();
	time_t WorkerIdleTime = GetWorkerIdleTime();

	/* Consider truncating. */
	unsigned long TruncateSize = RVM_OFFSET_TO_LENGTH(Recov_Statistics.log_written);
	if (TruncateSize >= MAXTS || WorkerIdleTime >= WITT)
	    RecovTruncate();

	/* Consider flushing. */
	Recov_TimeToFlush -= RecovDaemonInterval;
	unsigned long FlushSize = RVM_OFFSET_TO_LENGTH(Recov_Statistics.no_flush_length);
	if (Recov_TimeToFlush <= 0 || FlushSize >= MAXFS || WorkerIdleTime >= WITT)
	    RecovFlush();

	/* Bump sequence number. */
	vp->seq++;
    }
}

