[perl5.git] / epoc / epocish.c

/*
 *    Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
 *    
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

/* This is C++ Code !! */

#include <e32std.h>

extern "C" { 

epoc_spawn( char *cmd, char *cmdline) {
  RProcess p;
  TRequestStatus status;
  TInt rc;

  rc = p.Create( _L( cmd), _L( cmdline));
  if (rc != KErrNone)
    return -1;

  p.Resume();
  
  p.Logon( status);
  User::WaitForRequest( status);
  if (status!=KErrNone) {
    return -1;
  }
  return 0;
}


  /* Workaround for defect atof(), see java defect list for epoc */
  double epoc_atof( const char* str) {
    TReal64 aRes;

    TLex lex( _L( str));
    TInt err = lex.Val( aRes, TChar( '.'));
    return aRes;
  }

  void epoc_gcvt( double x, int digits, unsigned char *buf) {
    TRealFormat trel;

    trel.iPlaces = digits;
    trel.iPoint = TChar( '.');

    TPtr result( buf, 80);

    result.Num( x, trel);
    result.Append( TChar( 0));
  }
}
Commit	Line	Data
3a2f06e9 GS	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
b250498f	9	/* This is C++ Code !! */
3a2f06e9 GS	10
	11	#include <e32std.h>
	12
	13	extern "C" {
	14
	15	epoc_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
b250498f GS	34
	35	/* Workaround for defect atof(), see java defect list for epoc */
	36	double epoc_atof( const char* str) {
	37	TReal64 aRes;
	38
	39	TLex lex( _L( str));
	40	TInt err = lex.Val( aRes, TChar( '.'));
	41	return aRes;
	42	}
	43
	44	void epoc_gcvt( double x, int digits, unsigned char *buf) {
	45	TRealFormat trel;
	46
	47	trel.iPlaces = digits;
	48	trel.iPoint = TChar( '.');
	49
	50	TPtr result( buf, 80);
	51
	52	result.Num( x, trel);
	53	result.Append( TChar( 0));
	54	}
3a2f06e9	55	}