lbbs/src/file_loader.c

/* SPDX-License-Identifier: GPL-3.0-or-later */
/*
 * file_loader
 *   - shared memory based file loader
 *
 * Copyright (C) 2004-2025  Leaflet <leaflet@leafok.com>
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "file_loader.h"
#include "log.h"
#include "str_process.h"
#include "trie_dict.h"
#include <errno.h>
#include <fcntl.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <sys/ipc.h>
#include <sys/mman.h>
#include <sys/shm.h>
#include <sys/stat.h>

struct shm_header_t
{
        int shmid;
        size_t data_len;
        long line_total;
};

static TRIE_NODE *p_trie_file_dict = NULL;

int file_loader_init()
{
        if (p_trie_file_dict != NULL)
        {
                log_error("File loader already initialized\n");
                return -1;
        }

        p_trie_file_dict = trie_dict_create();
        if (p_trie_file_dict == NULL)
        {
                log_error("trie_dict_create() error\n");
                return -2;
        }

        return 0;
}

static void trie_file_dict_cleanup_cb(const char *filename, int64_t value)
{
        int shmid = (int)value;

        if (shmid != 0 && shmctl(shmid, IPC_RMID, NULL) == -1)
        {
                log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", shmid, errno);
        }
}

void file_loader_cleanup(void)
{
        if (p_trie_file_dict == NULL)
        {
                return;
        }

        trie_dict_traverse(p_trie_file_dict, trie_file_dict_cleanup_cb);
        trie_dict_destroy(p_trie_file_dict);

        p_trie_file_dict = NULL;
}

int load_file(const char *filename)
{
        int fd;
        struct stat sb;
        void *p_data;
        size_t data_len;
        int proj_id;
        key_t key;
        size_t size;
        int shmid;
        void *p_shm;
        long line_total;
        long line_offsets[MAX_SPLIT_FILE_LINES];
        long *p_line_offsets;
        int64_t shmid_old;

        if ((fd = open(filename, O_RDONLY)) < 0)
        {
                log_error("open(%s) error (%d)\n", filename, errno);
                return -1;
        }

        if (fstat(fd, &sb) < 0)
        {
                log_error("fstat(fd) error (%d)\n", errno);
                return -1;
        }

        data_len = (size_t)sb.st_size;
        p_data = mmap(NULL, data_len, PROT_READ, MAP_SHARED, fd, 0L);
        if (p_data == MAP_FAILED)
        {
                log_error("mmap() error (%d)\n", errno);
                return -2;
        }

        if (close(fd) < 0)
        {
                log_error("close(fd) error (%d)\n", errno);
                return -1;
        }

        line_total = split_data_lines(p_data, SCREEN_COLS, line_offsets, MAX_SPLIT_FILE_LINES, 1, NULL);

        // Allocate shared memory
        proj_id = (int)(time(NULL) % getpid());
        key = ftok(filename, proj_id);
        if (key == -1)
        {
                log_error("ftok(%s %d) error (%d)\n", filename, proj_id, errno);
                return -2;
        }

        size = sizeof(struct shm_header_t) + data_len + 1 + sizeof(long) * (size_t)(line_total + 1);
        shmid = shmget(key, size, IPC_CREAT | IPC_EXCL | 0600);
        if (shmid == -1)
        {
                log_error("shmget(size = %d) error (%d)\n", size, errno);
                return -3;
        }
        p_shm = shmat(shmid, NULL, 0);
        if (p_shm == (void *)-1)
        {
                log_error("shmat(shmid=%d) error (%d)\n", shmid, errno);
                return -3;
        }

        ((struct shm_header_t *)p_shm)->shmid = shmid;
        ((struct shm_header_t *)p_shm)->data_len = data_len;
        ((struct shm_header_t *)p_shm)->line_total = line_total;
        memcpy((char *)p_shm + sizeof(struct shm_header_t), p_data, data_len);

        if (munmap(p_data, data_len) < 0)
        {
                log_error("munmap() error (%d)\n", errno);
                return -2;
        }

        p_data = (char *)p_shm + sizeof(struct shm_header_t);
        p_line_offsets = (long *)((char *)p_data + data_len + 1);
        memcpy(p_line_offsets, line_offsets, sizeof(long) * (size_t)(line_total + 1));

        if (shmdt(p_shm) == -1)
        {
                log_error("shmdt(shmid=%d) error (%d)\n", shmid, errno);
                return -3;
        }

        if (trie_dict_get(p_trie_file_dict, filename, &shmid_old) == 1)
        {
                if (shmctl((int)shmid_old, IPC_RMID, NULL) == -1)
                {
                        log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)shmid_old, errno);
                        return -2;
                }
        }

        if (trie_dict_set(p_trie_file_dict, filename, (int64_t)shmid) != 1)
        {
                log_error("trie_dict_set(%s) error\n", filename);

                if (shmid != 0 && shmctl(shmid, IPC_RMID, NULL) == -1)
                {
                        log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", shmid, errno);
                }

                return -4;
        }

        return 0;
}

int unload_file(const char *filename)
{
        int64_t shmid;

        if (trie_dict_get(p_trie_file_dict, filename, &shmid) != 1)
        {
                log_error("trie_dict_get(%s) not found\n", filename);
                return -1;
        }

        if (shmctl((int)shmid, IPC_RMID, NULL) == -1)
        {
                log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)shmid, errno);
        }

        if (trie_dict_del(p_trie_file_dict, filename) != 1)
        {
                log_error("trie_dict_del(%s) error\n", filename);
                return -2;
        }

        return 0;
}

const void *get_file_shm_readonly(const char *filename, size_t *p_data_len, long *p_line_total, const void **pp_data, const long **pp_line_offsets)
{
        int64_t shmid;
        const void *p_shm;

        if (p_trie_file_dict == NULL)
        {
                log_error("File loader not initialized\n");
                return NULL;
        }

        if (trie_dict_get(p_trie_file_dict, filename, &shmid) != 1) // Not exist
        {
                log_error("trie_dict_get(%s) not found\n", filename);
                return NULL;
        }

        p_shm = shmat((int)shmid, NULL, SHM_RDONLY);
        if (p_shm == (void *)-1)
        {
                log_error("shmat(shmid=%d) error (%d)\n", (int)shmid, errno);
                return NULL;
        }

        *p_data_len = ((struct shm_header_t *)p_shm)->data_len;
        *p_line_total = ((struct shm_header_t *)p_shm)->line_total;
        *pp_data = (char *)p_shm + sizeof(struct shm_header_t);
        *pp_line_offsets = (const long *)((const char *)(*pp_data) + *p_data_len + 1);

        return p_shm;
}

int detach_file_shm(const void *p_shm)
{
        if (p_shm == NULL)
        {
                return -2;
        }

        if (shmdt(p_shm) == -1)
        {
                log_error("shmdt() error (%d)\n", errno);
                return -1;
        }

        return 0;
}
1	sysadm	1.18	/* SPDX-License-Identifier: GPL-3.0-or-later */
2			/*
3			* file_loader
4			* - shared memory based file loader
5			*
6	sysadm	1.20	* Copyright (C) 2004-2025 Leaflet <leaflet@leafok.com>
7	sysadm	1.18	*/
8	sysadm	1.1
9	sysadm	1.21	#ifdef HAVE_CONFIG_H
10			#include "config.h"
11			#endif
12
13	sysadm	1.1	#include "file_loader.h"
14	sysadm	1.15	#include "log.h"
15			#include "str_process.h"
16	sysadm	1.1	#include "trie_dict.h"
17	sysadm	1.15	#include <errno.h>
18	sysadm	1.1	#include <fcntl.h>
19			#include <stdlib.h>
20	sysadm	1.3	#include <string.h>
21			#include <time.h>
22	sysadm	1.15	#include <unistd.h>
23			#include <sys/ipc.h>
24	sysadm	1.1	#include <sys/mman.h>
25	sysadm	1.15	#include <sys/shm.h>
26	sysadm	1.1	#include <sys/stat.h>
27	sysadm	1.3
28	sysadm	1.8	struct shm_header_t
29			{
30			int shmid;
31			size_t data_len;
32			long line_total;
33			};
34
35	sysadm	1.1	static TRIE_NODE *p_trie_file_dict = NULL;
36
37	sysadm	1.3	int file_loader_init()
38	sysadm	1.1	{
39	sysadm	1.3	if (p_trie_file_dict != NULL)
40	sysadm	1.1	{
41			log_error("File loader already initialized\n");
42			return -1;
43			}
44
45			p_trie_file_dict = trie_dict_create();
46			if (p_trie_file_dict == NULL)
47			{
48			log_error("trie_dict_create() error\n");
49			return -2;
50			}
51
52			return 0;
53			}
54
55	sysadm	1.6	static void trie_file_dict_cleanup_cb(const char *filename, int64_t value)
56	sysadm	1.1	{
57	sysadm	1.11	int shmid = (int)value;
58	sysadm	1.6
59	sysadm	1.19	if (shmid != 0 && shmctl(shmid, IPC_RMID, NULL) == -1)
60	sysadm	1.1	{
61	sysadm	1.6	log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", shmid, errno);
62	sysadm	1.1	}
63	sysadm	1.3	}
64	sysadm	1.1
65	sysadm	1.3	void file_loader_cleanup(void)
66			{
67			if (p_trie_file_dict == NULL)
68	sysadm	1.1	{
69	sysadm	1.3	return;
70	sysadm	1.1	}
71
72	sysadm	1.3	trie_dict_traverse(p_trie_file_dict, trie_file_dict_cleanup_cb);
73	sysadm	1.11	trie_dict_destroy(p_trie_file_dict);
74	sysadm	1.6
75			p_trie_file_dict = NULL;
76	sysadm	1.1	}
77
78	sysadm	1.11	int load_file(const char *filename)
79	sysadm	1.1	{
80			int fd;
81			struct stat sb;
82			void *p_data;
83	sysadm	1.3	size_t data_len;
84			int proj_id;
85			key_t key;
86	sysadm	1.1	size_t size;
87	sysadm	1.3	int shmid;
88			void *p_shm;
89			long line_total;
90			long line_offsets[MAX_SPLIT_FILE_LINES];
91			long *p_line_offsets;
92	sysadm	1.6	int64_t shmid_old;
93	sysadm	1.1
94			if ((fd = open(filename, O_RDONLY)) < 0)
95			{
96			log_error("open(%s) error (%d)\n", filename, errno);
97			return -1;
98			}
99
100			if (fstat(fd, &sb) < 0)
101			{
102			log_error("fstat(fd) error (%d)\n", errno);
103			return -1;
104			}
105
106	sysadm	1.3	data_len = (size_t)sb.st_size;
107			p_data = mmap(NULL, data_len, PROT_READ, MAP_SHARED, fd, 0L);
108	sysadm	1.1	if (p_data == MAP_FAILED)
109			{
110			log_error("mmap() error (%d)\n", errno);
111			return -2;
112			}
113
114			if (close(fd) < 0)
115			{
116			log_error("close(fd) error (%d)\n", errno);
117			return -1;
118			}
119
120	sysadm	1.16	line_total = split_data_lines(p_data, SCREEN_COLS, line_offsets, MAX_SPLIT_FILE_LINES, 1, NULL);
121	sysadm	1.1
122	sysadm	1.3	// Allocate shared memory
123			proj_id = (int)(time(NULL) % getpid());
124			key = ftok(filename, proj_id);
125			if (key == -1)
126			{
127			log_error("ftok(%s %d) error (%d)\n", filename, proj_id, errno);
128			return -2;
129			}
130	sysadm	1.1
131	sysadm	1.8	size = sizeof(struct shm_header_t) + data_len + 1 + sizeof(long) * (size_t)(line_total + 1);
132	sysadm	1.3	shmid = shmget(key, size, IPC_CREAT \| IPC_EXCL \| 0600);
133			if (shmid == -1)
134			{
135			log_error("shmget(size = %d) error (%d)\n", size, errno);
136			return -3;
137			}
138			p_shm = shmat(shmid, NULL, 0);
139			if (p_shm == (void *)-1)
140			{
141	sysadm	1.6	log_error("shmat(shmid=%d) error (%d)\n", shmid, errno);
142	sysadm	1.3	return -3;
143			}
144
145	sysadm	1.8	((struct shm_header_t *)p_shm)->shmid = shmid;
146			((struct shm_header_t *)p_shm)->data_len = data_len;
147			((struct shm_header_t *)p_shm)->line_total = line_total;
148	sysadm	1.17	memcpy((char *)p_shm + sizeof(struct shm_header_t), p_data, data_len);
149	sysadm	1.1
150	sysadm	1.3	if (munmap(p_data, data_len) < 0)
151			{
152			log_error("munmap() error (%d)\n", errno);
153			return -2;
154			}
155	sysadm	1.1
156	sysadm	1.17	p_data = (char *)p_shm + sizeof(struct shm_header_t);
157			p_line_offsets = (long )((char )p_data + data_len + 1);
158	sysadm	1.3	memcpy(p_line_offsets, line_offsets, sizeof(long) * (size_t)(line_total + 1));
159	sysadm	1.1
160	sysadm	1.11	if (shmdt(p_shm) == -1)
161	sysadm	1.9	{
162	sysadm	1.11	log_error("shmdt(shmid=%d) error (%d)\n", shmid, errno);
163	sysadm	1.9	return -3;
164			}
165
166	sysadm	1.11	if (trie_dict_get(p_trie_file_dict, filename, &shmid_old) == 1)
167	sysadm	1.3	{
168			if (shmctl((int)shmid_old, IPC_RMID, NULL) == -1)
169	sysadm	1.1	{
170	sysadm	1.3	log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)shmid_old, errno);
171			return -2;
172	sysadm	1.1	}
173			}
174
175	sysadm	1.11	if (trie_dict_set(p_trie_file_dict, filename, (int64_t)shmid) != 1)
176	sysadm	1.3	{
177			log_error("trie_dict_set(%s) error\n", filename);
178
179	sysadm	1.19	if (shmid != 0 && shmctl(shmid, IPC_RMID, NULL) == -1)
180	sysadm	1.3	{
181			log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", shmid, errno);
182			}
183	sysadm	1.1
184	sysadm	1.3	return -4;
185			}
186	sysadm	1.1
187			return 0;
188			}
189
190	sysadm	1.11	int unload_file(const char *filename)
191	sysadm	1.1	{
192	sysadm	1.11	int64_t shmid;
193	sysadm	1.1
194	sysadm	1.11	if (trie_dict_get(p_trie_file_dict, filename, &shmid) != 1)
195	sysadm	1.1	{
196			log_error("trie_dict_get(%s) not found\n", filename);
197			return -1;
198			}
199
200	sysadm	1.3	if (shmctl((int)shmid, IPC_RMID, NULL) == -1)
201	sysadm	1.1	{
202	sysadm	1.3	log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)shmid, errno);
203	sysadm	1.1	}
204
205			if (trie_dict_del(p_trie_file_dict, filename) != 1)
206			{
207			log_error("trie_dict_del(%s) error\n", filename);
208			return -2;
209			}
210
211			return 0;
212			}
213
214	sysadm	1.11	const void get_file_shm_readonly(const char filename, size_t p_data_len, long p_line_total, const void pp_data, const long pp_line_offsets)
215	sysadm	1.1	{
216	sysadm	1.11	int64_t shmid;
217	sysadm	1.3	const void *p_shm;
218	sysadm	1.1
219	sysadm	1.3	if (p_trie_file_dict == NULL)
220	sysadm	1.1	{
221			log_error("File loader not initialized\n");
222			return NULL;
223			}
224
225	sysadm	1.11	if (trie_dict_get(p_trie_file_dict, filename, &shmid) != 1) // Not exist
226	sysadm	1.1	{
227			log_error("trie_dict_get(%s) not found\n", filename);
228			return NULL;
229			}
230
231	sysadm	1.11	p_shm = shmat((int)shmid, NULL, SHM_RDONLY);
232			if (p_shm == (void *)-1)
233			{
234			log_error("shmat(shmid=%d) error (%d)\n", (int)shmid, errno);
235			return NULL;
236			}
237
238	sysadm	1.8	p_data_len = ((struct shm_header_t )p_shm)->data_len;
239			p_line_total = ((struct shm_header_t )p_shm)->line_total;
240	sysadm	1.17	pp_data = (char )p_shm + sizeof(struct shm_header_t);
241			pp_line_offsets = (const long )((const char )(pp_data) + *p_data_len + 1);
242	sysadm	1.3
243			return p_shm;
244	sysadm	1.1	}
245	sysadm	1.11
246			int detach_file_shm(const void *p_shm)
247			{
248			if (p_shm == NULL)
249			{
250			return -2;
251			}
252
253			if (shmdt(p_shm) == -1)
254			{
255			log_error("shmdt() error (%d)\n", errno);
256			return -1;
257			}
258
259			return 0;
260			}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1