cdesktopenv/cde/lib/DtMmdb/storage/page_cache.C

391 lines
9.8 KiB
C

/*
* CDE - Common Desktop Environment
*
* Copyright (c) 1993-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these libraries and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/* $XConsortium: page_cache.cc /main/4 1996/06/11 17:44:22 cde-hal $
*
* (c) Copyright 1996 Digital Equipment Corporation.
* (c) Copyright 1996 Hewlett-Packard Company.
* (c) Copyright 1996 International Business Machines Corp.
* (c) Copyright 1996 Sun Microsystems, Inc.
* (c) Copyright 1996 Novell, Inc.
* (c) Copyright 1996 FUJITSU LIMITED.
* (c) Copyright 1996 Hitachi.
*/
#include "utility/debug.h"
#include "storage/page.h"
#include "storage/heap_comp_funcs.h"
#include "storage/page_rep.h"
#include "storage/page_storage.h"
page_cache_local_part::page_cache_local_part(unsigned int exp_cached_page) :
f_num_cached_pages(0),
f_free_space(fbytes_t_eq, fbytes_t_ls, exp_cached_page),
f_page_pool_index(page_rep_eq, page_rep_ls),
f_current_page_num(0),
f_current_page_ptr(0)
{
}
page_cache_local_part::~page_cache_local_part()
{
f_page_pool_index.del_elements(page_rep_del);
}
Boolean page_cache_local_part::init_heap(page_storage* st)
{
////////////////////////////////////////////////////////////////////////////
// We use a different strategy. Since pages are most of time read-only and
// grows linearly when loaded, we assume the 1st to pages()-1 th page are
// full.
////////////////////////////////////////////////////////////////////////////
if ( st -> pages() > 0 ) {
page* z = (*st)(st -> pages(), page_storage::READ);
f_free_space.insert(
new fbytes_t(z -> free_bytes(), z -> page_id())
);
f_free_space.heapify();
}
return true;
}
Boolean page_cache_local_part::quit_heap(page_storage* st)
{
int ind = f_free_space.first();
while ( ind ) {
fbytes_t *x = (fbytes_t*)f_free_space(ind);
/*
debug(cerr, x -> page_num);
debug(cerr, x -> free_bytes);
*/
delete x;
f_free_space.next(ind);
}
return true;
}
page* page_cache_local_part::in_cache(page_storage* st, int page_num)
{
#ifdef DEBUG
st -> total_page_access++;
#endif
if ( f_current_page_num == page_num ) {
return f_current_page_ptr;
}
page_rep data(page_num, 0);
page_rep *result = 0;
/*
cerr << "member(): " << st -> my_name() << " ";
cerr << page_num ;
cerr << " " << (void*)&f_page_pool_index;
cerr << "\n";
*/
if ( (result = (page_rep*)f_page_pool_index.member(&data)) ) {
//cerr << "In Cache: page " << page_num << " of " << st -> my_name() << "\n";
lru_page* p = result -> f_page_ptr;
if ( p -> page_id() != page_num ) {
throw(stringException("corrupted store"));
}
if ( p -> get_position() == ACTIVE ) {
#ifndef C_API
(p -> f_store -> f_global_pcache).f_replace_policy.promote(*p);
#else
(p -> f_store -> f_global_pcache_ptr -> f_replace_policy).promote(*p);
#endif
//cerr << "Promoting:" << (long)p << endl;
}
return p;
} else {
#ifdef DEBUG
st -> pagings++;
#endif
return 0;
}
}
void page_cache_local_part::adjust_heap(fbytes_t* v, Boolean new_page)
{
if ( new_page == false ) {
if ( v -> free_bytes < 10 ) {
f_free_space.delete_max();
delete v;
} else
f_free_space.adjust_max_to(v);
} else {
f_free_space.insert_heapify(v);
}
}
fbytes_t*
page_cache_local_part::find_host_page(
page_storage* st, Boolean& new_page, int len
)
{
fbytes_t* x = (fbytes_t*)f_free_space.max_elm();
//if ( x )
// debug(cerr, x -> free_bytes);
//else
// MESSAGE(cerr, "no cached page");
if ( x != 0 && x -> free_bytes > len ) {
new_page = false;
} else {
st -> add_page_frames(1);
new_page = true;
x = new fbytes_t((*st)(st->pages(), page_storage::READ) -> free_bytes(), st->pages());
}
return x;
}
////////////////////////////////////////////////////////////////////////////
//
//
//
////////////////////////////////////////////////////////////////////////////
page_cache_global_part::page_cache_global_part(unsigned int allowed_pages) :
f_total_allowed_pages(allowed_pages),
f_replace_policy(allowed_pages, 0, true)
{
if ( allowed_pages == 0 ) {
char* s = getenv("MMDB_CACHED_PAGES");
if ( s ) {
f_total_allowed_pages = atoi(s);
if ( f_total_allowed_pages < MIN_MMDB_CACHED_PAGES ) // minimal value
f_total_allowed_pages = MIN_MMDB_CACHED_PAGES;
} else
f_total_allowed_pages = MMDB_CACHED_PAGES;
f_replace_policy.set_params(f_total_allowed_pages, 0);
} else
if ( allowed_pages < MIN_MMDB_CACHED_PAGES ) {
f_total_allowed_pages = MIN_MMDB_CACHED_PAGES;
f_replace_policy.set_params(f_total_allowed_pages, 0);
}
}
page_cache_global_part::~page_cache_global_part()
{
}
page*
page_cache_global_part::load_new_page(
page_storage* st, int new_page_num, Boolean byte_order)
{
lru_pagePtr p = 0;
if ( f_replace_policy.active_elmts() < (int) f_total_allowed_pages ) {
/*
debug(cerr, page_cache -> active_elmts());
debug(cerr, num_cached_pages);
MESSAGE(cerr, "new a page");
*/
p = new lru_page(st, st -> page_sz, new_page_num, byte_order);
//cerr << "New page " << new_page_num << " of " << st -> my_name() << "\n";
} else {
long ind = f_replace_policy.last(ACTIVE);
//cerr << "Getting last:" << (long)ind << endl;
if ( ind == 0 )
throw(stringException("corrupted store"));
p = (lru_page*)f_replace_policy(ind, ACTIVE);
int pid = p -> page_id();
page_rep key(pid, 0);
page_storage* pst = p -> f_store;
//cerr << "Removing " << pid ;
//cerr << " for " << pst -> my_name() << " ";
delete (page_rep*)((pst->f_local_pcache).f_page_pool_index.remove(&key));
////////////////////////////////////////////////////
// Clean the current_page entry in the local cache.
////////////////////////////////////////////////////
int & local_pid = (pst->f_local_pcache).f_current_page_num;
if ( local_pid == pid ) local_pid = 0;
if ( p -> dirty == true ) {
#ifdef PORTABLE_DB
////////////////////////////////////////////////////////////
// swap the count field last.
// no need to flip back to the original as the page frame
// is reused.
////////////////////////////////////////////////////////////
p -> _swap_order(false);
#endif
//cerr << " swapout";
int page_aoff = ( pid - 1 ) * (pst -> page_sz);
pst -> storage_ptr -> updateString(
page_storage::abs_off + mmdb_pos_t(page_aoff),
p -> page_base(),
pst->page_sz
);
}
//cerr << "\n";
p -> expand_chunk(st -> page_size());
p -> reset();
p -> clean_all();
p -> pageid = new_page_num;
p -> f_store = st;
}
p -> dirty = false;
f_replace_policy.promote(*p);
/////////////////////////
// read in the content
/////////////////////////
page_rep* data = new page_rep(new_page_num, p);
//cerr << "Inserting " << new_page_num << " for " << st -> my_name() << " to page index.";
//cerr << (void*)&(st->f_local_pcache.f_page_pool_index);
st->f_local_pcache.f_page_pool_index.insert(data);
int offset = (new_page_num-1) * (st->page_sz);
if ( offset <
(((unixf_storage*)(st->storage_ptr))->bytes()-page_storage::abs_off))
{
//cerr << " swap in the page";
//debug(cerr, offset);
//debug(cerr, int(p -> page_base()));
((unixf_storage*)(st->storage_ptr)) ->
readString( page_storage::abs_off + mmdb_pos_t(offset),
p -> page_base(),
st->page_sz
);
#ifdef PORTABLE_DB
p -> _swap_order(true); // swap count field first
#endif
}
//cerr << "\n";
(st->f_local_pcache).f_current_page_num = new_page_num;
(st->f_local_pcache).f_current_page_ptr = p;
return p;
}
void remove_from_global_cache(const void* x)
{
page_rep* y = (page_rep*)x;
lru_page* p = y -> f_page_ptr;
page_storage* st = p -> f_store;
//cerr << "removing " << y -> f_page_num << "\n";
#ifndef C_API
((st -> f_global_pcache).f_replace_policy).remove(*p);
#else
(st -> f_global_pcache_ptr -> f_replace_policy).remove(*p);
#endif
delete p;
}
void page_cache_global_part::remove_pages(page_storage* st)
{
//cerr << "remove_pages(): for " << st -> my_name() << "\n";
(st -> f_local_pcache).f_page_pool_index.apply(remove_from_global_cache);
/*
lru_pagePtr* temps = new lru_pagePtr[f_replace_policy.active_elmts()];
int ind = f_replace_policy.first();
int i=0;
while ( ind != 0 ) {
lru_page* p = (lru_page*)f_replace_policy(ind, ACTIVE);
if ( p -> f_store == st )
temps[i++] = p;
f_replace_policy.next(ind, ACTIVE);
}
for ( int j=0; j<i; j++ )
f_replace_policy.remove(*temps[j]);
delete temps;
*/
}
ostream& page_cache_global_part::print_cached_pages(ostream& s)
{
MESSAGE(s, "cached pages:");
long ind = f_replace_policy.first();
while ( ind != 0 ) {
lru_page* p = (lru_page*)f_replace_policy(ind, ACTIVE);
debug(s, long(p));
if ( p == 0 )
throw(stringException("corrupted store"));
debug(s, *p);
f_replace_policy.next(ind, ACTIVE);
debug(s, ind);
}
MESSAGE(s, "print cached pages done");
return s;
}