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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
/* @(#)getav0.c 1.17 06/09/13 Copyright 1985, 1995-2004 J. Schilling */
#ifndef lint
static char sccsid[] =
"@(#)getav0.c 1.17 06/09/13 Copyright 1985, 1995-2004 J. Schilling";
#endif
/*
* Get arg vector by scanning the stack
*
* Copyright (c) 1985, 1995-2004 J. Schilling
*/
/*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* See the file CDDL.Schily.txt in this distribution for details.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file CDDL.Schily.txt from this distribution.
*/
#include <schily/mconfig.h>
#include <schily/sigblk.h>
#include <avoffset.h>
#include <schily/standard.h>
#include <schily/schily.h>
#if !defined(AV_OFFSET) || !defined(FP_INDIR)
# ifdef HAVE_SCANSTACK
# undef HAVE_SCANSTACK
# endif
#endif
#ifdef HAVE_SCANSTACK
#include <schily/stkframe.h>
#define is_even(p) ((((long)(p)) & 1) == 0)
#define even(p) (((long)(p)) & ~1L)
#ifdef __future__
#define even(p) (((long)(p)) - 1) /* will this work with 64 bit ?? */
#endif
EXPORT char **getmainfp __PR((void));
EXPORT char **getavp __PR((void));
EXPORT char *getav0 __PR((void));
EXPORT char **
getmainfp()
{
register struct frame *fp;
char **av;
#if FP_INDIR > 0
register int i = 0;
#endif
/*
* As the SCO OpenServer C-Compiler has a bug that may cause
* the first function call to getfp() been done before the
* new stack frame is created, we call getfp() twice.
*/
(void) getfp();
fp = (struct frame *)getfp();
if (fp == NULL)
return (NULL);
while (fp->fr_savfp) {
if (fp->fr_savpc == NULL)
break;
if (!is_even(fp->fr_savfp)) {
fp = (struct frame *)even(fp->fr_savfp);
if (fp == NULL)
break;
fp = (struct frame *)((SIGBLK *)fp)->sb_savfp;
continue;
}
fp = (struct frame *)fp->fr_savfp;
#if FP_INDIR > 0
i++;
#endif
}
#if FP_INDIR > 0
i -= FP_INDIR;
fp = (struct frame *)getfp();
if (fp == NULL)
return (NULL);
while (fp->fr_savfp) {
if (fp->fr_savpc == NULL)
break;
if (!is_even(fp->fr_savfp)) {
fp = (struct frame *)even(fp->fr_savfp);
if (fp == NULL)
break;
fp = (struct frame *)((SIGBLK *)fp)->sb_savfp;
continue;
}
fp = (struct frame *)fp->fr_savfp;
if (--i <= 0)
break;
}
#endif
av = (char **)fp;
return (av);
}
EXPORT char **
getavp()
{
register struct frame *fp;
char **av;
fp = (struct frame *)getmainfp();
if (fp == NULL)
return (NULL);
av = (char **)(((char *)fp) + AV_OFFSET); /* aus avoffset.h */
/* -> avoffset.c */
return (av);
}
EXPORT char *
getav0()
{
return (getavp()[0]);
}
#else
EXPORT char *
getav0()
{
return ("???");
}
#endif /* HAVE_SCANSTACK */
|
