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 "trie_dict.h"
#include "str_process.h"
#include "log.h"
#include <fcntl.h>
#include <errno.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/mman.h>
#include <sys/stat.h>
#include <sys/shm.h>
#include <sys/ipc.h>

#define MAX_SPLIT_FILE_LINES 65536

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 shmid)
{
        log_std("Cleanup: %s %ld\n", filename, shmid);
        if (shmctl((int)shmid, IPC_RMID, NULL) == -1)
        {
                log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)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_shm(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;
        int64_t shmid_old;
        void *p_shm;
        long line_total;
        long line_offsets[MAX_SPLIT_FILE_LINES];
        long *p_line_offsets;

        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);
        if (line_total >= MAX_SPLIT_FILE_LINES)
        {
                log_error("split_data_lines() truncated over limit lines\n");
        }

        // 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(data_len) + sizeof(line_total) + 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() error (%d)\n", errno);
                return -3;
        }

        *((size_t *)p_shm) = data_len;
        *((long *)(p_shm + sizeof(data_len))) = line_total;
        memcpy(p_shm + sizeof(data_len) + sizeof(line_total), 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(data_len) + sizeof(line_total);
        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() error (%d)\n", 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_shm(const char *filename)
{
        int64_t shmid = 0;

        if (trie_dict_get(p_trie_file_dict, filename, (int64_t *)&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(const char *filename)
{
        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() error (%d)\n", errno);
                return NULL;
        }

        return p_shm;
}
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			#include "trie_dict.h"
19			#include "str_process.h"
20			#include "log.h"
21			#include <fcntl.h>
22			#include <errno.h>
23			#include <unistd.h>
24			#include <stdlib.h>
25	sysadm	1.3	#include <string.h>
26			#include <time.h>
27	sysadm	1.1	#include <sys/mman.h>
28			#include <sys/stat.h>
29	sysadm	1.3	#include <sys/shm.h>
30			#include <sys/ipc.h>
31
32			#define MAX_SPLIT_FILE_LINES 65536
33	sysadm	1.1
34			static TRIE_NODE *p_trie_file_dict = NULL;
35
36	sysadm	1.3	int file_loader_init()
37	sysadm	1.1	{
38	sysadm	1.3	if (p_trie_file_dict != NULL)
39	sysadm	1.1	{
40			log_error("File loader already initialized\n");
41			return -1;
42			}
43
44			p_trie_file_dict = trie_dict_create();
45			if (p_trie_file_dict == NULL)
46			{
47			log_error("trie_dict_create() error\n");
48			return -2;
49			}
50
51			return 0;
52			}
53
54	sysadm	1.3	static void trie_file_dict_cleanup_cb(const char *filename, int64_t shmid)
55	sysadm	1.1	{
56	sysadm	1.3	log_std("Cleanup: %s %ld\n", filename, shmid);
57			if (shmctl((int)shmid, IPC_RMID, NULL) == -1)
58	sysadm	1.1	{
59	sysadm	1.3	log_error("shmctl(shmid=%d, IPC_RMID) error (%d)\n", (int)shmid, errno);
60	sysadm	1.1	}
61	sysadm	1.3	}
62	sysadm	1.1
63	sysadm	1.3	void file_loader_cleanup(void)
64			{
65			if (p_trie_file_dict == NULL)
66	sysadm	1.1	{
67	sysadm	1.3	return;
68	sysadm	1.1	}
69
70	sysadm	1.3	trie_dict_traverse(p_trie_file_dict, trie_file_dict_cleanup_cb);
71			trie_dict_destroy(p_trie_file_dict);
72			p_trie_file_dict = NULL;
73	sysadm	1.1	}
74
75	sysadm	1.3	int load_file_shm(const char *filename)
76	sysadm	1.1	{
77			int fd;
78			struct stat sb;
79			void *p_data;
80	sysadm	1.3	size_t data_len;
81			int proj_id;
82			key_t key;
83	sysadm	1.1	size_t size;
84	sysadm	1.3	int shmid;
85			int64_t shmid_old;
86			void *p_shm;
87			long line_total;
88			long line_offsets[MAX_SPLIT_FILE_LINES];
89			long *p_line_offsets;
90	sysadm	1.1
91			if ((fd = open(filename, O_RDONLY)) < 0)
92			{
93			log_error("open(%s) error (%d)\n", filename, errno);
94			return -1;
95			}
96
97			if (fstat(fd, &sb) < 0)
98			{
99			log_error("fstat(fd) error (%d)\n", errno);
100			return -1;
101			}
102
103	sysadm	1.3	data_len = (size_t)sb.st_size;
104			p_data = mmap(NULL, data_len, PROT_READ, MAP_SHARED, fd, 0L);
105	sysadm	1.1	if (p_data == MAP_FAILED)
106			{
107			log_error("mmap() error (%d)\n", errno);
108			return -2;
109			}
110
111			if (close(fd) < 0)
112			{
113			log_error("close(fd) error (%d)\n", errno);
114			return -1;
115			}
116
117	sysadm	1.3	line_total = split_data_lines(p_data, SCREEN_COLS, line_offsets, MAX_SPLIT_FILE_LINES);
118			if (line_total >= MAX_SPLIT_FILE_LINES)
119	sysadm	1.1	{
120	sysadm	1.3	log_error("split_data_lines() truncated over limit lines\n");
121			}
122	sysadm	1.1
123	sysadm	1.3	// Allocate shared memory
124			proj_id = (int)(time(NULL) % getpid());
125			key = ftok(filename, proj_id);
126			if (key == -1)
127			{
128			log_error("ftok(%s %d) error (%d)\n", filename, proj_id, errno);
129			return -2;
130			}
131	sysadm	1.1
132	sysadm	1.3	size = sizeof(data_len) + sizeof(line_total) + data_len + 1 + sizeof(long) * (size_t)(line_total + 1);
133			shmid = shmget(key, size, IPC_CREAT \| IPC_EXCL \| 0600);
134			if (shmid == -1)
135			{
136			log_error("shmget(size = %d) error (%d)\n", size, errno);
137			return -3;
138			}
139			p_shm = shmat(shmid, NULL, 0);
140			if (p_shm == (void *)-1)
141			{
142			log_error("shmat() error (%d)\n", errno);
143			return -3;
144			}
145
146			((size_t )p_shm) = data_len;
147			((long )(p_shm + sizeof(data_len))) = line_total;
148			memcpy(p_shm + sizeof(data_len) + sizeof(line_total), 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.3	p_data = p_shm + sizeof(data_len) + sizeof(line_total);
157			p_line_offsets = p_data + data_len + 1;
158			memcpy(p_line_offsets, line_offsets, sizeof(long) * (size_t)(line_total + 1));
159	sysadm	1.1
160	sysadm	1.3	if (shmdt(p_shm) == -1)
161			{
162			log_error("shmdt() error (%d)\n", errno);
163			return -3;
164	sysadm	1.1	}
165	sysadm	1.3
166			if (trie_dict_get(p_trie_file_dict, filename, &shmid_old) == 1)
167	sysadm	1.1	{
168	sysadm	1.3	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.3	if (trie_dict_set(p_trie_file_dict, filename, (int64_t)shmid) != 1)
176			{
177			log_error("trie_dict_set(%s) error\n", filename);
178
179			if (shmctl(shmid, IPC_RMID, NULL) == -1)
180			{
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.3	int unload_file_shm(const char *filename)
191	sysadm	1.1	{
192	sysadm	1.3	int64_t shmid = 0;
193	sysadm	1.1
194	sysadm	1.3	if (trie_dict_get(p_trie_file_dict, filename, (int64_t *)&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.3	const void get_file_shm(const char filename)
215	sysadm	1.1	{
216	sysadm	1.3	int64_t shmid;
217			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.3	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.3	p_shm = shmat((int)shmid, NULL, SHM_RDONLY);
232			if (p_shm == (void *)-1)
233			{
234			log_error("shmat() error (%d)\n", errno);
235			return NULL;
236			}
237
238			return p_shm;
239	sysadm	1.1	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1