1 /*
2 * Copyright (C) 2004-2010, Parrot Foundation.
3 */
4
5 /*
6
7 =head1 NAME
8
9 src/platform/ansi/exec.c
10
11 =head1 DESCRIPTION
12
13 Functions for dealing with child processes and Execs. (Currently not implemented on this platform.)
14
15 =head2 Functions
16
17 =over 4
18
19 =cut
20
21 */
22
23 #include "parrot/parrot.h"
24
25 /* HEADERIZER HFILE: none */
26
27 /*
28
29 =item C<INTVAL Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)>
30
31 B<Not yet implemented on this platform.> Spawn a subprocess.
32
33 =cut
34
35 */
36
37 INTVAL
Parrot_Run_OS_Command(PARROT_INTERP,STRING * command)38 Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)
39 {
40 Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
41 "Parrot_Run_OS_Command not implemented");
42 return 0;
43 }
44
45 /*
46
47 =item C<INTVAL Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)>
48
49 B<Not yet implemented on this platform.>
50
51 =cut
52
53 */
54
55 INTVAL
Parrot_Run_OS_Command_Argv(PARROT_INTERP,PMC * cmdargs)56 Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)
57 {
58 Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
59 "Parrot_Run_OS_Command_Argv not implemented");
60 return 0;
61 }
62
63 /*
64
65 =item C<UINTVAL Parrot_getpid(void)>
66
67 Parrot wrapper around standard library C<getpid()> function.
68
69 Return 0 in platforms unsupported or without a pid concept.
70
71 =cut
72
73 */
74
75 UINTVAL
Parrot_getpid(void)76 Parrot_getpid(void)
77 {
78 Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG, "Parrot_getpid unuseful in this platform");
79 return 0;
80 }
81
82 /*
83
84 =back
85
86 =cut
87
88 */
89
90 /*
91 * Local variables:
92 * c-file-style: "parrot"
93 * End:
94 * vim: expandtab shiftwidth=4 cinoptions='\:2=2' :
95 */
96