jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@943 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-11-11 19:02:42 +00:00
commit 1276667e18
4 changed files with 129 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Tools/WAD/Wad/Makefile
View file

@ -1,7 +1,7 @@
SRCS = default.c stack.c stab.c elf.c object.c init.c segment.c signal.c
OBJS = default.o stack.o stab.o elf.o object.o signal.o segment.o init.o main.o
INCLUDE = -I../Include
INCLUDE = -I../Include -I.
OPT = -DWAD_SOLARIS
PYINCLUDE = -I/usr/local/include/python2.0
@ -27,7 +27,7 @@ tcl::
cp libwadtcl.so ..
linux::
cc -DWAD_LINUX $(INCLUDE) segment.c debug.c
cc -DWAD_LINUX $(INCLUDE) segment.c init.c debug.c
debug::
cc -g debug.c $(INCLUDE) -L. -R. -lwad

3
SWIG/Tools/WAD/Wad/init.c
View file

@ -41,10 +41,11 @@ void wad_init() {
if (getenv("WAD_DEBUG_STABS")) {
wad_debug_mode |= DEBUG_STABS;
}
#ifndef WAD_LINUX
if (!init) {
wad_signal_init();
wad_object_init();
}
#endif
init = 1;
}

111
SWIG/Tools/WAD/Wad/plat/segment_linux.c
View file

@ -11,83 +11,50 @@
* See the file LICENSE for information on usage and redistribution.
* ----------------------------------------------------------------------------- */
static
WadSegment *wad_segment_read() {
FILE *f;
int dz;
int offset = 0;
int i;
int n = 0;
char pbuffer[1024];
char *c;
WadSegment *s;
/* Try to load the virtual address map */
static FILE *
segment_open() {
FILE *f;
f = fopen("/proc/self/maps", "r");
if (!f) return 0;
nsegments = 0;
while (1) {
if (fgets(pbuffer,1024,f) == NULL) break;
nsegments++;
}
nsegments++;
fclose(f);
return f;
}
dz = open("/dev/zero", O_RDWR, 0644);
if (dz < 0) {
puts("Couldn't open /dev/zero\n");
return 0;
}
segments = (WadSegment *) mmap(NULL, nsegments*sizeof(WadSegment), PROT_READ | PROT_WRITE, MAP_PRIVATE, dz, 0);
close(dz);
segments_size = nsegments*sizeof(WadSegment);
static int
segment_read(FILE *fs, WadSegment *s)
{
char pbuffer[1024];
char *c;
int len;
c = fgets(pbuffer,1024,fs);
if (!c) return 0;
pbuffer[strlen(pbuffer)-1] = 0; /* Chop off endline */
/* Break up the field into records */
/* 0-8 : Starting address
9-17 : Ending Address
18 : r
19 : w
20 : x
21 : p
23-31 : Offset
49- : Filename */
f = fopen("/proc/self/maps","r");
if (!f) return;
i = 0;
s = segments;
while (1) {
c = fgets(pbuffer,1024,f);
if (!c) break;
pbuffer[strlen(pbuffer)-1] = 0; /* Chop off endline */
/* Break up the field into records */
/* 0-8 : Starting address
9-17 : Ending Address
18 : r
19 : w
20 : x
21 : p
23-31 : Offset
49- : Filename */
pbuffer[8] = 0;
pbuffer[17] = 0;
pbuffer[31] = 0;
len = strlen(pbuffer);
pbuffer[8] = 0;
pbuffer[17] = 0;
pbuffer[31] = 0;
s->mapname[0] = 0;
s->mappath[0] = 0;
if (len >= 49) {
strcpy(s->mapname, pbuffer+49);
strcpy(s->mappath, pbuffer+49);
s->vaddr = (char *) strtoul(pbuffer,NULL,16);
s->size = strtoul(pbuffer+9,NULL,16) - (long) (s->vaddr);
s->offset = strtoul(pbuffer+23,NULL,16);
s->base = s->vaddr;
s++;
}
fclose(f);
return segments;
}
s->vaddr = (char *) strtoul(pbuffer,NULL,16);
s->size = strtoul(pbuffer+9,NULL,16) - (long) (s->vaddr);
s->offset = strtoul(pbuffer+23,NULL,16);
s->base = s->vaddr;
s++;
return 1;
}
/* -----------------------------------------------------------------------------
* wad_segment_release()
*
* This function releases all of the segments.
* ----------------------------------------------------------------------------- */
void
wad_segment_release() {
munmap((void *)segments, segments_size);
segments = 0;
segments_size = 0;
nsegments = 0;
}

86
SWIG/Tools/WAD/Wad/segment.c
View file

@ -39,6 +39,92 @@
#include "plat/segment_linux.c"
#endif
/* -----------------------------------------------------------------------------
* wad_segment_read()
*
* Read all of the memory segments.
* ----------------------------------------------------------------------------- */
WadSegment *
wad_segment_read() {
FILE *fs;
int dz;
int offset = 0;
int i;
int n = 0;
int nsegments;
WadSegment *segments;
WadSegment *s;
WadSegment ws;
/* Try to load the virtual address map */
fs = segment_open();
if (!fs) return 0;
nsegments = 0;
while (1) {
n = segment_read(fs,&ws);
if (n <= 0) break;
nsegments++;
}
nsegments+=3;
fclose(fs);
dz = open("/dev/zero", O_RDWR, 0644);
if (dz < 0) {
puts("Couldn't open /dev/zero\n");
return 0;
}
segments = (WadSegment *) mmap(NULL, nsegments*sizeof(WadSegment), PROT_READ | PROT_WRITE, MAP_PRIVATE, dz, 0);
close(dz);
fs = segment_open();
i = 0;
s = segments;
/* First segment is a map to the segment list */
s->base = (char *) segments;
s->vaddr = (char *) segments;
s->size = nsegments*sizeof(WadSegment);
s->mapname[0] = 0;
s->mappath[0] = 0;
s++;
while (1) {
n = segment_read(fs,&ws);
if (n <= 0) break;
strcpy(s->mapname, ws.mapname);
strcpy(s->mappath, ws.mappath);
s->vaddr = ws.vaddr;
s->base = ws.base;
s->size = ws.size;
s->offset = ws.offset;
if (wad_debug_mode & DEBUG_SEGMENT) {
printf("wad_segment: read : %08x-%08x in %s\n", s->vaddr, ((char *) s->vaddr) + s->size, s->mappath);
}
s++;
}
/* Create sentinel */
s->base = 0;
s->vaddr = 0;
s->size = 0;
s->offset = 0;
s->mapname[0] =0;
s->mappath[0] = 0;
fclose(fs);
return segments;
}
/* -----------------------------------------------------------------------------
* wad_segment_release()
*
* This function releases all of the segments.
* ----------------------------------------------------------------------------- */
void
wad_segment_release(WadSegment *s) {
munmap((void *)s, s->size);
}
/* -----------------------------------------------------------------------------
* wad_segment_find()
*