vim: src/memfile.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	bb5458706799
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	11 * memfile.c: Contains the functions for handling blocks of memory which can
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	12 * be stored in a file. This is the implementation of a sort of virtual memory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	13 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	14 * A memfile consists of a sequence of blocks. The blocks numbered from 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	15 * upwards have been assigned a place in the actual file. The block number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	16 * is equal to the page number in the file. The
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	17 * blocks with negative numbers are currently in memory only. They can be
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	18 * assigned a place in the file when too much memory is being used. At that
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	19 * moment they get a new, positive, number. A list is used for translation of
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	20 * negative to positive numbers.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	21 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	22 * The size of a block is a multiple of a page size, normally the page size of
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	23 * the device the file is on. Most blocks are 1 page long. A Block of multiple
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	24 * pages is used for a line that does not fit in a single page.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	25 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	26 * Each block can be in memory and/or in a file. The block stays in memory
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	27 * as long as it is locked. If it is no longer locked it can be swapped out to
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	28 * the file. It is only written to the file if it has been changed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	29 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	30 * Under normal operation the file is created when opening the memory file and
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	31 * deleted when closing the memory file. Only with recovery an existing memory
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	32 * file is opened.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	33 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	34
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	35 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	36
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	37 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	38 * Some systems have the page size in statfs.f_bsize, some in stat.st_blksize
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	39 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	40 #ifdef HAVE_ST_BLKSIZE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	41 # define STATFS stat
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	42 # define F_BSIZE st_blksize
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	43 # define fstatfs(fd, buf, len, nul) mch_fstat((fd), (buf))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	44 #else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	45 # ifdef HAVE_SYS_STATFS_H
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	46 # include <sys/statfs.h>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	47 # define STATFS statfs
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	48 # define F_BSIZE f_bsize
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	49 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	50 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	51
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	52 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	53 * for Amiga Dos 2.0x we use Flush
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	54 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	55 #ifdef AMIGA
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	56 # ifdef FEAT_ARP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	57 extern int dos2; // this is in os_amiga.c
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	58 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	59 # ifdef SASC
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	60 # include <ios1.h> // for chkufb()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	61 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	62 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	63
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	64 #define MEMFILE_PAGE_SIZE 4096 // default page size
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	65
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	66 static long_u total_mem_used = 0; // total memory used for memfiles
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	67
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	68 static void mf_ins_hash(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	69 static void mf_rem_hash(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	70 static bhdr_T mf_find_hash(memfile_T , blocknr_T);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	71 static void mf_ins_used(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	72 static void mf_rem_used(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	73 static bhdr_T mf_release(memfile_T , int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	74 static bhdr_T mf_alloc_bhdr(memfile_T , int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	75 static void mf_free_bhdr(bhdr_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	76 static void mf_ins_free(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	77 static bhdr_T mf_rem_free(memfile_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	78 static int mf_read(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	79 static int mf_write(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	80 static int mf_write_block(memfile_T mfp, bhdr_T hp, off_T offset, unsigned size);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	81 static int mf_trans_add(memfile_T , bhdr_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	82 static void mf_do_open(memfile_T , char_u , int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	83 static void mf_hash_init(mf_hashtab_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	84 static void mf_hash_free(mf_hashtab_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	85 static void mf_hash_free_all(mf_hashtab_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	86 static mf_hashitem_T mf_hash_find(mf_hashtab_T , blocknr_T);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	87 static void mf_hash_add_item(mf_hashtab_T , mf_hashitem_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	88 static void mf_hash_rem_item(mf_hashtab_T , mf_hashitem_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	89 static int mf_hash_grow(mf_hashtab_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	90
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	91 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	92 * The functions for using a memfile:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	93 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	94 * mf_open() open a new or existing memfile
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	95 * mf_open_file() open a swap file for an existing memfile
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	96 * mf_close() close (and delete) a memfile
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	97 * mf_new() create a new block in a memfile and lock it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	98 * mf_get() get an existing block and lock it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	99 * mf_put() unlock a block, may be marked for writing
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	100 * mf_free() remove a block
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	101 * mf_sync() sync changed parts of memfile to disk
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	102 * mf_release_all() release as much memory as possible
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	103 * mf_trans_del() may translate negative to positive block number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	104 * mf_fullname() make file name full path (use before first :cd)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	105 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	106
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	107 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	108 * Open an existing or new memory block file.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	109 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	110 * fname: name of file to use (NULL means no file at all)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	111 * Note: fname must have been allocated, it is not copied!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	112 * If opening the file fails, fname is freed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	113 * flags: flags for open() call
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	114 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	115 * If fname != NULL and file cannot be opened, fail.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	116 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	117 * return value: identifier for this memory block file.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	118 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	119 memfile_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	120 mf_open(char_u *fname, int flags)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	121 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	122 memfile_T *mfp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	123 off_T size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	124 #if defined(STATFS) && defined(UNIX) && !defined(__QNX__) && !defined(__minix)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	125 # define USE_FSTATFS
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	126 struct STATFS stf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	127 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	128
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	129 if ((mfp = ALLOC_ONE(memfile_T)) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	130 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	131
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	132 if (fname == NULL) // no file for this memfile, use memory only
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	133 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	134 mfp->mf_fname = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	135 mfp->mf_ffname = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	136 mfp->mf_fd = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	137 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	138 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	139 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	140 mf_do_open(mfp, fname, flags); // try to open the file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	141
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	142 // if the file cannot be opened, return here
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	143 if (mfp->mf_fd < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	144 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	145 vim_free(mfp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	146 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	147 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	148 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	149
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	150 mfp->mf_free_first = NULL; // free list is empty
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	151 mfp->mf_used_first = NULL; // used list is empty
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	152 mfp->mf_used_last = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	153 mfp->mf_dirty = MF_DIRTY_NO;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	154 mfp->mf_used_count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	155 mf_hash_init(&mfp->mf_hash);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	156 mf_hash_init(&mfp->mf_trans);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	157 mfp->mf_page_size = MEMFILE_PAGE_SIZE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	158 #ifdef FEAT_CRYPT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	159 mfp->mf_old_key = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	160 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	161
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	162 #ifdef USE_FSTATFS
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	163 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	164 * Try to set the page size equal to the block size of the device.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	165 * Speeds up I/O a lot.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	166 * When recovering, the actual block size will be retrieved from block 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	167 * in ml_recover(). The size used here may be wrong, therefore
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	168 * mf_blocknr_max must be rounded up.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	169 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	170 if (mfp->mf_fd >= 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	171 && fstatfs(mfp->mf_fd, &stf, sizeof(struct statfs), 0) == 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	172 && stf.F_BSIZE >= MIN_SWAP_PAGE_SIZE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	173 && stf.F_BSIZE <= MAX_SWAP_PAGE_SIZE)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	174 mfp->mf_page_size = stf.F_BSIZE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	175 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	176
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	177 if (mfp->mf_fd < 0 \|\| (flags & (O_TRUNC\|O_EXCL))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	178 \|\| (size = vim_lseek(mfp->mf_fd, (off_T)0L, SEEK_END)) <= 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	179 mfp->mf_blocknr_max = 0; // no file or empty file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	180 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	181 mfp->mf_blocknr_max = (blocknr_T)((size + mfp->mf_page_size - 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	182 / mfp->mf_page_size);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	183 mfp->mf_blocknr_min = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	184 mfp->mf_neg_count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	185 mfp->mf_infile_count = mfp->mf_blocknr_max;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	186
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	187 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	188 * Compute maximum number of pages ('maxmem' is in Kbyte):
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	189 * 'mammem' * 1Kbyte / page-size-in-bytes.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	190 * Avoid overflow by first reducing page size as much as possible.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	191 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	192 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	193 int shift = 10;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	194 unsigned page_size = mfp->mf_page_size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	195
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	196 while (shift > 0 && (page_size & 1) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	197 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	198 page_size = page_size >> 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	199 --shift;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	200 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	201 mfp->mf_used_count_max = (p_mm << shift) / page_size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	202 if (mfp->mf_used_count_max < 10)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	203 mfp->mf_used_count_max = 10;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	204 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	205
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	206 return mfp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	207 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	208
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	209 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	210 * Open a file for an existing memfile. Used when updatecount set from 0 to
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	211 * some value.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	212 * If the file already exists, this fails.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	213 * "fname" is the name of file to use (NULL means no file at all)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	214 * Note: "fname" must have been allocated, it is not copied! If opening the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	215 * file fails, "fname" is freed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	216 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	217 * return value: FAIL if file could not be opened, OK otherwise
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	218 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	219 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	220 mf_open_file(memfile_T mfp, char_u fname)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	221 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	222 mf_do_open(mfp, fname, O_RDWR\|O_CREAT\|O_EXCL); // try to open the file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	223
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	224 if (mfp->mf_fd < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	225 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	226
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	227 mfp->mf_dirty = MF_DIRTY_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	228 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	229 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	230
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	231 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	232 * Close a memory file and delete the associated file if 'del_file' is TRUE.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	233 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	234 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	235 mf_close(memfile_T *mfp, int del_file)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	236 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	237 bhdr_T hp, nextp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	238
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	239 if (mfp == NULL) // safety check
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	240 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	241 if (mfp->mf_fd >= 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	242 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	243 if (close(mfp->mf_fd) < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	244 emsg(_(e_close_error_on_swap_file));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	245 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	246 if (del_file && mfp->mf_fname != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	247 mch_remove(mfp->mf_fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	248 // free entries in used list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	249 for (hp = mfp->mf_used_first; hp != NULL; hp = nextp)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	250 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	251 total_mem_used -= (long_u)hp->bh_page_count * mfp->mf_page_size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	252 nextp = hp->bh_next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	253 mf_free_bhdr(hp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	254 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	255 while (mfp->mf_free_first != NULL) // free entries in free list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	256 vim_free(mf_rem_free(mfp));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	257 mf_hash_free(&mfp->mf_hash);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	258 mf_hash_free_all(&mfp->mf_trans); // free hashtable and its items
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	259 vim_free(mfp->mf_fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	260 vim_free(mfp->mf_ffname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	261 vim_free(mfp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	262 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	263
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	264 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	265 * Close the swap file for a memfile. Used when 'swapfile' is reset.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	266 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	267 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	268 mf_close_file(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	269 buf_T *buf,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	270 int getlines) // get all lines into memory?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	271 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	272 memfile_T *mfp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	273 linenr_T lnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	274
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	275 mfp = buf->b_ml.ml_mfp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	276 if (mfp == NULL \|\| mfp->mf_fd < 0) // nothing to close
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	277 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	278
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	279 if (getlines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	280 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	281 // get all blocks in memory by accessing all lines (clumsy!)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	282 mf_dont_release = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	283 for (lnum = 1; lnum <= buf->b_ml.ml_line_count; ++lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	284 (void)ml_get_buf(buf, lnum, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	285 mf_dont_release = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	286 // TODO: should check if all blocks are really in core
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	287 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	288
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	289 if (close(mfp->mf_fd) < 0) // close the file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	290 emsg(_(e_close_error_on_swap_file));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	291 mfp->mf_fd = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	292
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	293 if (mfp->mf_fname != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	294 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	295 mch_remove(mfp->mf_fname); // delete the swap file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	296 VIM_CLEAR(mfp->mf_fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	297 VIM_CLEAR(mfp->mf_ffname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	298 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	299 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	300
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	301 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	302 * Set new size for a memfile. Used when block 0 of a swapfile has been read
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	303 * and the size it indicates differs from what was guessed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	304 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	305 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	306 mf_new_page_size(memfile_T *mfp, unsigned new_size)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	307 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	308 // Correct the memory used for block 0 to the new size, because it will be
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	309 // freed with that size later on.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	310 total_mem_used += new_size - mfp->mf_page_size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	311 mfp->mf_page_size = new_size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	312 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	313
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	314 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	315 * get a new block
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	316 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	317 * negative: TRUE if negative block number desired (data block)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	318 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	319 bhdr_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	320 mf_new(memfile_T *mfp, int negative, int page_count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	321 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	322 bhdr_T *hp; // new bhdr_T
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	323 bhdr_T *freep; // first block in free list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	324 char_u *p;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	325
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	326 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	327 * If we reached the maximum size for the used memory blocks, release one
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	328 * If a bhdr_T is returned, use it and adjust the page_count if necessary.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	329 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	330 hp = mf_release(mfp, page_count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	331
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	332 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	333 * Decide on the number to use:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	334 * If there is a free block, use its number.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	335 * Otherwise use mf_block_min for a negative number, mf_block_max for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	336 * a positive number.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	337 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	338 freep = mfp->mf_free_first;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	339 if (!negative && freep != NULL && freep->bh_page_count >= page_count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	340 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	341 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	342 * If the block in the free list has more pages, take only the number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	343 * of pages needed and allocate a new bhdr_T with data
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	344 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	345 * If the number of pages matches and mf_release() did not return a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	346 * bhdr_T, use the bhdr_T from the free list and allocate the data
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	347 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	348 * If the number of pages matches and mf_release() returned a bhdr_T,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	349 * just use the number and free the bhdr_T from the free list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	350 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	351 if (freep->bh_page_count > page_count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	352 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	353 if (hp == NULL && (hp = mf_alloc_bhdr(mfp, page_count)) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	354 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	355 hp->bh_bnum = freep->bh_bnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	356 freep->bh_bnum += page_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	357 freep->bh_page_count -= page_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	358 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	359 else if (hp == NULL) // need to allocate memory for this block
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	360 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	361 if ((p = alloc((size_t)mfp->mf_page_size * page_count)) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	362 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	363 hp = mf_rem_free(mfp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	364 hp->bh_data = p;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	365 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	366 else // use the number, remove entry from free list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	367 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	368 freep = mf_rem_free(mfp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	369 hp->bh_bnum = freep->bh_bnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	370 vim_free(freep);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	371 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	372 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	373 else // get a new number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	374 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	375 if (hp == NULL && (hp = mf_alloc_bhdr(mfp, page_count)) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	376 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	377 if (negative)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	378 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	379 hp->bh_bnum = mfp->mf_blocknr_min--;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	380 mfp->mf_neg_count++;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	381 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	382 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	383 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	384 hp->bh_bnum = mfp->mf_blocknr_max;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	385 mfp->mf_blocknr_max += page_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	386 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	387 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	388 hp->bh_flags = BH_LOCKED \| BH_DIRTY; // new block is always dirty
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	389 mfp->mf_dirty = MF_DIRTY_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	390 hp->bh_page_count = page_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	391 mf_ins_used(mfp, hp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	392 mf_ins_hash(mfp, hp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	393
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	394 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	395 * Init the data to all zero, to avoid reading uninitialized data.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	396 * This also avoids that the passwd file ends up in the swap file!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	397 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	398 (void)vim_memset((char *)(hp->bh_data), 0,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	399 (size_t)mfp->mf_page_size * page_count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	400
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	401 return hp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	402 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	403
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	404 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	405 * Get existing block "nr" with "page_count" pages.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	406 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	407 * Note: The caller should first check a negative nr with mf_trans_del()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	408 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	409 bhdr_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	410 mf_get(memfile_T *mfp, blocknr_T nr, int page_count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	411 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	412 bhdr_T *hp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	413 // doesn't exist
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	414 if (nr >= mfp->mf_blocknr_max \|\| nr <= mfp->mf_blocknr_min)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	415 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	416
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	417 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	418 * see if it is in the cache
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	419 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	420 hp = mf_find_hash(mfp, nr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	421 if (hp == NULL) // not in the hash list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	422 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	423 if (nr < 0 \|\| nr >= mfp->mf_infile_count) // can't be in the file
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	424 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	425
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	426 // could check here if the block is in the free list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	427
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	428 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	429 * Check if we need to flush an existing block.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	430 * If so, use that block.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	431 * If not, allocate a new block.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	432 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	433 hp = mf_release(mfp, page_count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	434 if (hp == NULL && page_count > 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	435 hp = mf_alloc_bhdr(mfp, page_count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	436 if (hp == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	437 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	438
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	439 hp->bh_bnum = nr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	440 hp->bh_flags = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	441 hp->bh_page_count = page_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	442 if (mf_read(mfp, hp) == FAIL) // cannot read the block!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	443 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	444 mf_free_bhdr(hp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	445 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	446 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	447 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	448 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	449 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	450 mf_rem_used(mfp, hp); // remove from list, insert in front below
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	451 mf_rem_hash(mfp, hp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	452 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	453
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	454 hp->bh_flags \|= BH_LOCKED;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	455 mf_ins_used(mfp, hp); // put in front of used list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	456 mf_ins_hash(mfp, hp); // put in front of hash list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	457
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	458 return hp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	459 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	460
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	461 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	462 * release the block *hp
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	463 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	464 * dirty: Block must be written to file later
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	465 * infile: Block should be in file (needed for recovery)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	466 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	467 * no return value, function cannot fail
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	468 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	469 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	470 mf_put(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	471 memfile_T *mfp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	472 bhdr_T *hp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	473 int dirty,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	474 int infile)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	475 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	476 int flags;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	477
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	478 flags = hp->bh_flags;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	479
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	480 if ((flags & BH_LOCKED) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	481 iemsg(e_block_was_not_locked);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	482 flags &= ~BH_LOCKED;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	483 if (dirty)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	484 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	485 flags \|= BH_DIRTY;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	486 if (mfp->mf_dirty != MF_DIRTY_YES_NOSYNC)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	487 mfp->mf_dirty = MF_DIRTY_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	488 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	489 hp->bh_flags = flags;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	490 if (infile)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	491 mf_trans_add(mfp, hp); // may translate negative in positive nr
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	492 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	493
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	494 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	495 * block hp is no longer in used, may put it in the free list of memfile mfp
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	496 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	497 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	498 mf_free(memfile_T mfp, bhdr_T hp)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	499 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	500 vim_free(hp->bh_data); // free the memory

32669

448aef880252 normalize line endings