forked from KolibriOS/kolibrios
Rustem Gimadutdinov (rgimad)
68cf3e4293
- big refactoring, now uses libc.obj - added kfetch command git-svn-id: svn://kolibrios.org@8827 a494cfbc-eb01-0410-851d-a64ba20cac60
97 lines
2.1 KiB
C
97 lines
2.1 KiB
C
|
|
#include "../program_console.h"
|
|
|
|
|
|
int program_console(int pid) {
|
|
char name[32];
|
|
char *buffer;
|
|
char *buf1k;
|
|
int result;
|
|
int i;
|
|
char command;
|
|
int size;
|
|
int is_end;
|
|
|
|
itoa(pid, name);
|
|
strcat(name, "-SHELL");
|
|
|
|
buffer = NULL;
|
|
buf1k = NULL;
|
|
|
|
for (i = 0; i < 30; i++) {
|
|
result = kol_buffer_open(name, SHM_OPEN | SHM_WRITE, 0, &buffer);
|
|
if (buffer != NULL)
|
|
break;
|
|
|
|
kol_sleep(2);
|
|
}
|
|
|
|
if (buffer == NULL)
|
|
return 0;
|
|
else
|
|
size = result;
|
|
|
|
is_end = 0;
|
|
for (;;) {
|
|
command = *(buffer);
|
|
|
|
switch (command) {
|
|
case SC_EXIT:
|
|
*buffer = SC_OK;
|
|
is_end = 1;
|
|
break;
|
|
|
|
case SC_OK:
|
|
kol_sleep(5);
|
|
break;
|
|
|
|
case SC_CLS:
|
|
con_cls();
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
case SC_PUTC:
|
|
printf("%c", *(buffer+1));
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
case SC_PUTS:
|
|
printf("%s", buffer+1 );
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
case SC_GETC:
|
|
*(buffer+1) = (char) getch() ;
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
case SC_GETS:
|
|
gets(buffer+1, size-2);
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
case SC_PID:
|
|
buf1k=malloc(1024);
|
|
kol_process_info(-1, buf1k);
|
|
memcpy(buffer+1, buf1k+30, sizeof(unsigned));
|
|
*buffer = SC_OK;
|
|
free(buf1k);
|
|
break;
|
|
|
|
case SC_PING:
|
|
*buffer = SC_OK;
|
|
break;
|
|
|
|
default:
|
|
printf (CON_APP_ERROR);
|
|
return 0;
|
|
};
|
|
if (is_end) {
|
|
printf("\n\r");
|
|
return 1;
|
|
}
|
|
} // for end
|
|
return 9;
|
|
}
|
|
|