Subversion Repositories Kolibri OS

Rev

Rev 2617 | Rev 6825 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1665 Nasarus 1
 
2
3
 
4
{
5
6
 
2617 Albom 7
int		result;
1665 Nasarus 8
9
 
1673 Nasarus 10
	{
1665 Nasarus 11
	strcpy(exec, cmd);
12
13
 
1668 Nasarus 14
		{
1665 Nasarus 15
		file_not_found(cmd);
2617 Albom 16
		return FALSE;
1665 Nasarus 17
		}
18
	}
19
20
 
21
	{
22
	strcpy(exec, cur_dir); // проверяем файл в текущем каталоге
1668 Nasarus 23
	if (exec[strlen(exec)-1] != '/')
2615 Albom 24
		strcat(exec, "/"); // add slash
25
	strcat(exec, cmd);
1665 Nasarus 26
27
 
1668 Nasarus 28
		{
1665 Nasarus 29
		strcpy(exec, "/rd/1/"); // проверяем файл на виртуальном диске
1668 Nasarus 30
		strcat(exec, cmd);
1665 Nasarus 31
			if ( !file_check(exec) ) // проверяем существование файла
1668 Nasarus 32
				{
1665 Nasarus 33
				file_not_found(cmd);
2617 Albom 34
				return FALSE;
1665 Nasarus 35
				}
36
		}
37
	}
38
39
 
40
 
41
	return script_run(exec, args);
42
43
 
1668 Nasarus 44
result = program_run(exec, args);
1665 Nasarus 45
if (result > 0)
46
	{
47
2502 Albom 48
 
49
		{
50
		#if LANG_ENG
51
			printf ("  '%s' started. PID = %d\n\r", cmd, result);
52
		#elif LANG_RUS
53
			printf ("  '%s' запущен. PID = %d\n\r", cmd, result);
54
		#endif
55
		}
56
	return TRUE;
1665 Nasarus 57
	}
58
else
59
	{
60
	file_not_found(cmd);
2617 Albom 61
	return FALSE;
1665 Nasarus 62
	}
63
64
 
65
66
 
67