1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/* $Id: memmap_unix.c 4599 2005-08-05 05:22:08Z hio $ */
#include "Japanese.h"
#include <unistd.h> /* memmap */
#include <sys/mman.h> /* memmap */
#include <sys/stat.h> /* stat */
#include <fcntl.h> /* open */
#ifndef MAP_FAILED
#define MAP_FAILED ((void*)-1)
#endif
/* pointer to mapped file */
static char* s_mmap_pmfile;
static int s_mmap_pmfile_size;
/* split mapping table. */
extern void do_memmap_set(const char* mmap_pmfile, int mmap_pmfile_size);
/* ----------------------------------------------------------------------------
* mmap data files.
*/
void
do_memmap(void)
{
int fd_pmfile;
struct stat st_pmfile;
{
/* (ja)ǧ */
/* ensure initialize. */
SV* sv = get_sv("Unicode::Japanese::PurePerl::HEADLEN",0);
if( sv==NULL || !SvOK(sv) )
{ /* not loaded yet. */
/* load now. */
call_pv("Unicode::Japanese::PurePerl::_init_table",G_NOARGS|G_DISCARD);
}
}
{
/* get file descriptor and size. */
SV* sv_fd;
sv_fd = eval_pv("fileno($Unicode::Japanese::PurePerl::FH)",G_KEEPERR|G_SCALAR|G_NOARGS);
if( sv_fd==NULL || !SvOK(sv_fd) || !SvIOK(sv_fd) )
{
croak("Unicode::Japanese#do_memmap, could not get fd of FH");
}
fd_pmfile = SvIV(sv_fd);
if( fstat(fd_pmfile,&st_pmfile)!=0 )
{
croak("Unicode::Japanese#do_memmap, stat failed: fd [%d]: %s",fd_pmfile,strerror(errno));
}
}
{
/* mmap */
s_mmap_pmfile_size = st_pmfile.st_size;
s_mmap_pmfile = (char*)mmap(NULL,s_mmap_pmfile_size,PROT_READ,MAP_PRIVATE,fd_pmfile,0);
if( s_mmap_pmfile==MAP_FAILED )
{
s_mmap_pmfile = NULL;
croak("Unicode::Japanese#do_memmap, mmap failed: %s",strerror(errno));
}
}
/* bind each table. */
do_memmap_set(s_mmap_pmfile,s_mmap_pmfile_size);
return;
}
/* ----------------------------------------------------------------------------
* ޥåפβ
*/
void
do_memunmap(void)
{
/* printf("* do_memunmap() *\n"); */
if( s_mmap_pmfile!=NULL )
{
if( munmap(s_mmap_pmfile,s_mmap_pmfile_size)==-1 )
{
Perl_warn(aTHX_ "Unicode::Japanese#do_memunmap, munmap failed: %s",strerror(errno));
}
}
return;
}
/* ----------------------------------------------------------------------------
* End of File.
* ------------------------------------------------------------------------- */
|
