lbbs/src/file_loader.c

/***************************************************************************
                                                file_loader.c  -  description
                                                         -------------------
        Copyright            : (C) 2004-2025 by Leaflet
        Email                : leaflet@leafok.com
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 3 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/

#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 (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);

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