vim: src/blob.c annotate

annotate src/blob.c @ 16825:ce04ebdf26b8 v8.1.1414

patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts commit https://github.com/vim/vim/commit/c799fe206e61f2e2c1231bc46cbe4bb354f3da69 Author: Bram Moolenaar <Bram@vim.org> Date: Tue May 28 23:08:19 2019 +0200 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts Problem: Alloc() returning "char_u *" causes a lot of type casts. Solution: Have it return "void *". (Mike Williams) Define ALLOC_ONE() to check the simple allocations.

author	Bram Moolenaar <Bram@vim.org>
date	Tue, 28 May 2019 23:15:10 +0200
parents	27f9f4c1400b
children	a0eb2ff0f297

rev	line source
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * blob.c: Blob support by Yasuhiro Matsumoto
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	17
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 * Allocate an empty blob.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 * Caller should take care of the reference count.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 blob_T *
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 blob_alloc(void)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 {
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16034 diff changeset	25 blob_T *blob = ALLOC_CLEAR_ONE(blob_T);
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	26
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 if (blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 ga_init2(&blob->bv_ga, 1, 100);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 return blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	31
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 * Allocate an empty blob for a return value, with reference count set.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 * Returns OK or FAIL.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 int
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 rettv_blob_alloc(typval_T *rettv)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 blob_T *b = blob_alloc();
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	40
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 if (b == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	43
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 rettv_blob_set(rettv, b);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 return OK;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	47
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 * Set a blob as the return value.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 void
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 rettv_blob_set(typval_T rettv, blob_T b)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 rettv->v_type = VAR_BLOB;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 rettv->vval.v_blob = b;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 if (b != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 ++b->bv_refcount;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	59
15581 c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	60 int
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	61 blob_copy(typval_T from, typval_T to)
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	62 {
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	63 int ret = OK;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	64
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	65 to->v_type = VAR_BLOB;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	66 if (from->vval.v_blob == NULL)
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	67 to->vval.v_blob = NULL;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	68 else if (rettv_blob_alloc(to) == FAIL)
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	69 ret = FAIL;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	70 else
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	71 {
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	72 int len = from->vval.v_blob->bv_ga.ga_len;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	73
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	74 if (len > 0)
15589 44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob Bram Moolenaar <Bram@vim.org> parents: 15581 diff changeset	75 {
15581 c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	76 to->vval.v_blob->bv_ga.ga_data =
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	77 vim_memsave(from->vval.v_blob->bv_ga.ga_data, len);
15589 44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob Bram Moolenaar <Bram@vim.org> parents: 15581 diff changeset	78 if (to->vval.v_blob->bv_ga.ga_data == NULL)
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob Bram Moolenaar <Bram@vim.org> parents: 15581 diff changeset	79 len = 0;
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob Bram Moolenaar <Bram@vim.org> parents: 15581 diff changeset	80 }
15581 c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	81 to->vval.v_blob->bv_ga.ga_len = len;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	82 }
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	83 return ret;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	84 }
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely Bram Moolenaar <Bram@vim.org> parents: 15515 diff changeset	85
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 void
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 blob_free(blob_T *b)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 ga_clear(&b->bv_ga);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 vim_free(b);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	92
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 * Unreference a blob: decrement the reference count and free it when it
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 * becomes zero.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 void
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 blob_unref(blob_T *b)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 if (b != NULL && --b->bv_refcount <= 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 blob_free(b);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	103
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 * Get the length of data.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 long
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 blob_len(blob_T *b)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 if (b == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 return 0L;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 return b->bv_ga.ga_len;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	114
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 * Get byte "idx" in blob "b".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 * Caller must check that "idx" is valid.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 */
15589 44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob Bram Moolenaar <Bram@vim.org> parents: 15581 diff changeset	119 int
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 blob_get(blob_T *b, int idx)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 return ((char_u*)b->bv_ga.ga_data)[idx];
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	124
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 * Store one byte "c" in blob "b" at "idx".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 * Caller must make sure that "idx" is valid.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 void
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 blob_set(blob_T *b, int idx, char_u c)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 ((char_u*)b->bv_ga.ga_data)[idx] = c;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	134
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 * Return TRUE when two blobs have exactly the same values.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 int
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 blob_equal(
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 blob_T *b1,
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 blob_T *b2)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 {
15456 f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	143 int i;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	144 int len1 = blob_len(b1);
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	145 int len2 = blob_len(b2);
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	146
15456 f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	147 // empty and NULL are considered the same
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	148 if (len1 == 0 && len2 == 0)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	149 return TRUE;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 if (b1 == b2)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 return TRUE;
15456 f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 15454 diff changeset	152 if (len1 != len2)
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 return FALSE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	154
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 for (i = 0; i < b1->bv_ga.ga_len; i++)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 if (blob_get(b1, i) != blob_get(b2, i)) return FALSE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 return TRUE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	159
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 * Read "blob" from file "fd".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 * Return OK or FAIL.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 int
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 read_blob(FILE fd, blob_T blob)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 struct stat st;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	168
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 if (fstat(fileno(fd), &st) < 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 if (ga_grow(&blob->bv_ga, st.st_size) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 blob->bv_ga.ga_len = st.st_size;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 if (fread(blob->bv_ga.ga_data, 1, blob->bv_ga.ga_len, fd)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 < (size_t)blob->bv_ga.ga_len)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 return OK;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	179
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 * Write "blob" to file "fd".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 * Return OK or FAIL.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 int
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 write_blob(FILE fd, blob_T blob)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 if (fwrite(blob->bv_ga.ga_data, 1, blob->bv_ga.ga_len, fd)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 < (size_t)blob->bv_ga.ga_len)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15466 diff changeset	190 emsg(_(e_write));
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 return OK;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	195
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	196 /*
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	197 * Convert a blob to a readable form: "0z00112233.44556677.8899"
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	198 */
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	199 char_u *
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	200 blob2string(blob_T blob, char_u tofree, char_u numbuf)
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	201 {
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	202 int i;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	203 garray_T ga;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	204
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	205 if (blob == NULL)
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	206 {
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	207 *tofree = NULL;
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	208 return (char_u *)"0z";
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	209 }
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	210
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	211 // Store bytes in the growarray.
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	212 ga_init2(&ga, 1, 4000);
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	213 ga_concat(&ga, (char_u *)"0z");
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	214 for (i = 0; i < blob_len(blob); i++)
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	215 {
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	216 if (i > 0 && (i & 3) == 0)
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	217 ga_concat(&ga, (char_u *)".");
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	218 vim_snprintf((char *)numbuf, NUMBUFLEN, "%02X", (int)blob_get(blob, i));
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	219 ga_concat(&ga, numbuf);
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	220 }
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	221 *tofree = ga.ga_data;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	222 return *tofree;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	223 }
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	224
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	225 /*
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	226 * Convert a string variable, in the format of blob2string(), to a blob.
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	227 * Return NULL when conversion failed.
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	228 */
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	229 blob_T *
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	230 string2blob(char_u *str)
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	231 {
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	232 blob_T *blob = blob_alloc();
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	233 char_u *s = str;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	234
16034 27f9f4c1400b patch 8.1.1022: may use NULL pointer when out of memory Bram Moolenaar <Bram@vim.org> parents: 15589 diff changeset	235 if (blob == NULL)
27f9f4c1400b patch 8.1.1022: may use NULL pointer when out of memory Bram Moolenaar <Bram@vim.org> parents: 15589 diff changeset	236 return NULL;
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	237 if (s[0] != '0' \|\| (s[1] != 'z' && s[1] != 'Z'))
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	238 goto failed;
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	239 s += 2;
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	240 while (vim_isxdigit(*s))
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	241 {
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	242 if (!vim_isxdigit(s[1]))
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	243 goto failed;
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	244 ga_append(&blob->bv_ga, (hex2nr(s[0]) << 4) + hex2nr(s[1]));
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	245 s += 2;
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	246 if (*s == '.' && vim_isxdigit(s[1]))
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	247 ++s;
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	248 }
15515 99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	249 if (*skipwhite(s) != NUL)
99a4cc4782ac patch 8.1.0765: string format of a Blob can't be parsed back Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	250 goto failed; // text after final digit
15466 435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	251
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	252 ++blob->bv_refcount;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	253 return blob;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	254
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	255 failed:
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	256 blob_free(blob);
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	257 return NULL;
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	258 }
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	259
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 #endif /* defined(FEAT_EVAL) */

Mercurial > vim

annotate src/blob.c @ 16825:ce04ebdf26b8 v8.1.1414