source: trunk/third/perl/epoc/epocish.c @ 14545

Revision 14545, 590 bytes checked in by ghudson, 24 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Line 
1/*
2 *    Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
3 *   
4 *    You may distribute under the terms of either the GNU General Public
5 *    License or the Artistic License, as specified in the README file.
6 *
7 */
8
9/* This is indeed C++ Code !! */
10
11#include <e32std.h>
12
13extern "C" {
14
15epoc_spawn( char *cmd, char *cmdline) {
16  RProcess p;
17  TRequestStatus status;
18  TInt rc;
19
20  rc = p.Create( _L( cmd), _L( cmdline));
21  if (rc != KErrNone)
22    return -1;
23
24  p.Resume();
25 
26  p.Logon( status);
27  User::WaitForRequest( status);
28  if (status!=KErrNone) {
29    return -1;
30  }
31  return 0;
32}
33
34}
Note: See TracBrowser for help on using the repository browser.