config/gen/platform/ansi/exec.c

   1 /*
   2  * $Id$
   3  * Copyright (C) 2004-2007, The Perl Foundation.
   4  */
   5
   6 /*
   7
   8 =head1 NAME
   9
  10 config/gen/platform/ansi/exec.c
  11
  12 =head1 DESCRIPTION
  13
  14 RT#48264
  15
  16 =head2 Functions
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 /*
  25
  26 =item C<INTVAL Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)>
  27
  28 Spawn a subprocess
  29
  30 =cut
  31
  32 */
  33
  34 INTVAL
  35 Parrot_Run_OS_Command(Parrot_Interp interp, STRING *command)
  36 {
  37     Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
  38             "Parrot_Run_OS_Command not implemented");
  39     return 0;
  40 }
  41
  42 /*
  43
  44 =item C<INTVAL Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)>
  45
  46 RT#48260: Not yet documented!!!
  47
  48 =cut
  49
  50 */
  51
  52 INTVAL
  53 Parrot_Run_OS_Command_Argv(Parrot_Interp interp, PMC *cmdargs)
  54 {
  55     Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG,
  56             "Parrot_Run_OS_Command_Argv not implemented");
  57     return 0;
  58 }
  59
  60 /*
  61
  62 =item C<void Parrot_Exec_OS_Comman(Parrot_Interp interp, STRING *command)>
  63
  64 RT#48260: Not yet documented!!!
  65
  66 =cut
  67
  68 */
  69
  70 void
  71 Parrot_Exec_OS_Comman(Parrot_Interp interp, STRING *command)
  72 {
  73   real_exception(interp, NULL, NOSPAWN, "Exec not implemented");
  74 }
  75
  76 /*
  77
  78 =back
  79
  80 =cut
  81
  82 */
  83
  84 /*
  85  * Local variables:
  86  *   c-file-style: "parrot"
  87  * End:
  88  * vim: expandtab shiftwidth=4:
  89  */