Added libshell for TCC
git-svn-id: svn://kolibrios.org@9207 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
13
programs/develop/ktcc/trunk/lib/libshell/shell_ping.c
Normal file
13
programs/develop/ktcc/trunk/lib/libshell/shell_ping.c
Normal file
@@ -0,0 +1,13 @@
|
||||
#include <shell_api.h>
|
||||
#include <sys/ksys.h>
|
||||
|
||||
int shell_ping()
|
||||
{
|
||||
__shell_init();
|
||||
*__shell_shm = SHELL_PING;
|
||||
_ksys_delay(10);
|
||||
if(*__shell_shm==SHELL_OK){
|
||||
return 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
Reference in New Issue
Block a user