StreamState::~StreamState() {
reclaim();
}
int main(void)
{
int i, xk, a;
char J;
for (i = 0; i < USE_N; i ++)
{
used_table[i].address = 0;
used_table[i].length = 0;
used_table[i].flag = 0;
}
free_table[0].flag = 1;
free_table[0].address = 0;
free_table[0].length = 102400;
while(1)
{
printf("choice:(0-exit, 1-allocate, 2-reclaim 3-display memory)\n");
printf("choice:(0-3)");
scanf("%d", &a);
// a = getc(stdin);
// a -= 0x30;
//sprintf((char*)&a, "%d");
switch(a)
{
case 0:
exit(0);
case 1:
printf("input name of job J and memory length xk\n");
scanf("%*c%c%d", &J,&xk);
allocate(J, xk);
break;
case 2:
printf("input name of job J for reclaim memory\n");
scanf("%*c%c", &J);
reclaim(J);
break;
case 3:
printf("free table:\n start lenght flag\n");
for (i = 0; i < FREE_N; i ++)
{
printf("%5d%10d%6d\n", free_table[i].address, free_table[i].length, free_table[i].flag);
}
printf("press any key to continue\n");
getchar();
printf("used table:\n start lenght flag\n");
for (i = 0; i < USE_N; i ++)
{
if (used_table[i].flag != 0)
{
printf("%5d%10d%6c\n", used_table[i].address, used_table[i].length, used_table[i].flag);
}
else
{
printf("%5d%10d%6d\n", used_table[i].address, used_table[i].length, used_table[i].flag);
}
}
break;
default:
break;
}
}
return 0;
}
/*
* run the commands from the input source, returning status.
*/
int
shell(Source * volatile s, volatile bool toplevel)
{
struct op *t;
volatile bool wastty = tobool(s->flags & SF_TTY);
volatile uint8_t attempts = 13;
volatile bool interactive = Flag(FTALKING) && toplevel;
volatile bool sfirst = true;
Source *volatile old_source = source;
int i;
newenv(E_PARSE);
if (interactive)
really_exit = false;
switch ((i = kshsetjmp(e->jbuf))) {
case 0:
break;
case LINTR:
/* we get here if SIGINT not caught or ignored */
case LERROR:
case LSHELL:
if (interactive) {
if (i == LINTR)
shellf("\n");
/*
* Reset any eof that was read as part of a
* multiline command.
*/
if (Flag(FIGNOREEOF) && s->type == SEOF && wastty)
s->type = SSTDIN;
/*
* Used by exit command to get back to
* top level shell. Kind of strange since
* interactive is set if we are reading from
* a tty, but to have stopped jobs, one only
* needs FMONITOR set (not FTALKING/SF_TTY)...
*/
/* toss any input we have so far */
yyrecursive_pop(true);
s->start = s->str = null;
retrace_info = NULL;
herep = heres;
break;
}
/* FALLTHROUGH */
case LEXIT:
case LLEAVE:
case LRETURN:
source = old_source;
quitenv(NULL);
/* keep on going */
unwind(i);
/* NOTREACHED */
default:
source = old_source;
quitenv(NULL);
internal_errorf("%s %d", "shell", i);
/* NOTREACHED */
}
while (/* CONSTCOND */ 1) {
if (trap)
runtraps(0);
if (s->next == NULL) {
if (Flag(FVERBOSE))
s->flags |= SF_ECHO;
else
s->flags &= ~SF_ECHO;
}
if (interactive) {
j_notify();
set_prompt(PS1, s);
}
t = compile(s, sfirst);
if (interactive)
histsave(&s->line, NULL, HIST_FLUSH, true);
sfirst = false;
if (!t)
goto source_no_tree;
if (t->type == TEOF) {
if (wastty && Flag(FIGNOREEOF) && --attempts > 0) {
shellf("Use 'exit' to leave mksh\n");
s->type = SSTDIN;
} else if (wastty && !really_exit &&
j_stopped_running()) {
really_exit = true;
s->type = SSTDIN;
} else {
/*
* this for POSIX which says EXIT traps
* shall be taken in the environment
* immediately after the last command
* executed.
*/
if (toplevel)
unwind(LEXIT);
break;
}
} else if ((s->flags & SF_MAYEXEC) && t->type == TCOM)
t->u.evalflags |= DOTCOMEXEC;
if (!Flag(FNOEXEC) || (s->flags & SF_TTY))
exstat = execute(t, 0, NULL) & 0xFF;
if (t->type != TEOF && interactive && really_exit)
really_exit = false;
source_no_tree:
reclaim();
}
quitenv(NULL);
source = old_source;
return (exstat & 0xFF);
}
void
quitenv(struct shf *shf)
{
struct env *ep = e;
char *cp;
int fd;
yyrecursive_pop(true);
while (ep->oenv && ep->oenv->loc != ep->loc)
popblock();
if (ep->savefd != NULL) {
for (fd = 0; fd < NUFILE; fd++)
/* if ep->savefd[fd] < 0, means fd was closed */
if (ep->savefd[fd])
restfd(fd, ep->savefd[fd]);
if (ep->savefd[2])
/* Clear any write errors */
shf_reopen(2, SHF_WR, shl_out);
}
/*
* Bottom of the stack.
* Either main shell is exiting or cleanup_parents_env() was called.
*/
if (ep->oenv == NULL) {
#ifdef DEBUG_LEAKS
int i;
#endif
if (ep->type == E_NONE) {
/* Main shell exiting? */
#if HAVE_PERSISTENT_HISTORY
if (Flag(FTALKING))
hist_finish();
#endif
j_exit();
if (ep->flags & EF_FAKE_SIGDIE) {
int sig = (exstat & 0xFF) - 128;
/*
* ham up our death a bit (AT&T ksh
* only seems to do this for SIGTERM)
* Don't do it for SIGQUIT, since we'd
* dump a core..
*/
if ((sig == SIGINT || sig == SIGTERM) &&
(kshpgrp == kshpid)) {
setsig(&sigtraps[sig], SIG_DFL,
SS_RESTORE_CURR | SS_FORCE);
kill(0, sig);
}
}
}
if (shf)
shf_close(shf);
reclaim();
#ifdef DEBUG_LEAKS
#ifndef MKSH_NO_CMDLINE_EDITING
x_done();
#endif
#ifndef MKSH_NOPROSPECTOFWORK
/* block at least SIGCHLD during/after afreeall */
sigprocmask(SIG_BLOCK, &sm_sigchld, NULL);
#endif
afreeall(APERM);
for (fd = 3; fd < NUFILE; fd++)
if ((i = fcntl(fd, F_GETFD, 0)) != -1 &&
(i & FD_CLOEXEC))
close(fd);
close(2);
close(1);
close(0);
#endif
exit(exstat & 0xFF);
}
if (shf)
shf_close(shf);
reclaim();
e = e->oenv;
/* free the struct env - tricky due to the ALLOC_ITEM inside */
cp = (void *)ep;
afree(cp + ALLOC_SIZE, ATEMP);
}
bool Scheduler::check(){
reclaim(); return !empty();
}