//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// ato.cfa --
//
// Author           : Peter A. Buhr
// Created On       : Thu Feb  4 08:10:57 2016
// Last Modified By : Peter A. Buhr
// Last Modified On : Fri Mar 15 17:58:35 2024
// Update Count     : 145
//

#include <fstream.hfa>
#include <stdlib.hfa>										// ato, strto

int main( void ) {
	// ato

	const char * sptr = "-123";
	int i = ato( sptr );
	sout | i | sptr;
	sptr = "123";
	unsigned int ui = ato( sptr );
	sout | ui | sptr;

	sptr = "-123";
	long int li = ato( sptr );
	sout | li | sptr;
	sptr = "123";
	unsigned long int uli = ato( sptr );
	sout | uli | sptr;

	sptr = " -123 ";									// spaces allowed
	long long int lli = ato( sptr );
	sout | lli | sptr;
	sptr = " 123 ";										// spaces allowed
	unsigned long long int ulli = ato( sptr );
	sout | ulli | sptr;

	sptr = "-123.456";
	float f = ato( sptr );
	sout | f | sptr;
	sptr = "-123.4567890123456";
	double d = ato( sptr );
	sout | d | sptr;
	sptr = " -123.45678901234567890123456789 ";			// spaces allowed
	long double ld = ato( sptr );
	sout | ld | sptr;

	sptr = "-123.456-123.456i";
	float _Complex fc = ato( sptr );
	sout | fc | sptr;
	sptr = "-123.4567890123456+123.4567890123456i";
	double _Complex dc = ato( sptr );
	sout | dc | sptr;
	sptr = "123.45678901234567890123456789-123.45678901234567890123456789i";
	long double _Complex ldc = ato( sptr );
	sout | ldc | sptr;
	sptr = " 123.45678901234 -123.4567890i ";			// spaces allowed
	long double _Complex ldc2 = ato( sptr );
	sout | ldc2 | sptr;

	// strto

	sptr = "-123";
	i = strto( sptr, 0p, 10 );
	sout | i | sptr;
	sptr = "123";
	ui = strto( sptr, 0p, 10 );
	sout | ui | sptr;

	sptr = "-123";
	li = strto( sptr, 0p, 10 );
	sout | li | sptr;
	sptr = "123";
	uli = strto( sptr, 0p, 10 );
	sout | uli | sptr;

	sptr = " -123 ";									// spaces allowed
	lli = strto( sptr, 0p, 10 );
	sout | lli | sptr;
	sptr = " 123 ";										// spaces allowed
	ulli = strto( sptr, 0p, 10 );
	sout | ulli | sptr;

	sptr = "-123.456";
	f = strto( sptr, 0p );
	sout | f | sptr;
	sptr = "-123.4567890123456";
	d = strto( sptr, 0p );
	sout | d | sptr;
	sptr = " -123.45678901234567890123456789 ";			// spaces allowed
	ld = strto( sptr, 0p );
	sout | ld | sptr;

	sptr = "-123.456-123.456i";
	fc = strto( sptr, 0p );
	sout | fc | sptr;
	sptr = "-123.4567890123456+123.4567890123456i";
	dc = strto( sptr, 0p );
	sout | dc | sptr;
	sptr = "123.45678901234567890123456789-123.45678901234567890123456789i";
	ldc = strto( sptr, 0p );
	sout | ldc | sptr;
	sptr = " 123.45678901234 -123.4567890i ";			// spaces allowed
	ldc2 = strto( sptr, 0p );
	sout | ldc2 | sptr;

	sptr = "2.0fred";
	char * eptr = 0p;
	errno = 0;											// reset
	f = strto( sptr, &eptr );
	if ( errno == ERANGE ) sout | "out of range";
	if ( eptr == sptr ||								// conversion failed, no characters generated
		 *eptr != '\0' ) sout | "invalid argument" | sptr; // not at end of str ?
	else assert( false );

	sptr = "2  3x";
	eptr = 0p;
	errno = 0;											// reset
	fc = strto( sptr, &eptr );
	if ( errno == ERANGE ) sout | "out of range";
	if ( eptr == sptr ||								// conversion failed, no characters generated
		 *eptr != '\0' ) sout | "invalid argument" | sptr; // not at end of str ?
	else assert( false );

	// convert

	sptr = "-123";
	i = convert( sptr );
	sout | i | sptr;
	sptr = "123";
	ui = convert( sptr );
	sout | ui | sptr;

	sptr = "-123";
	li = convert( sptr );
	sout | li | sptr;
	sptr = "123";
	uli = convert( sptr );
	sout | uli | sptr;

	sptr = " -123 ";									// spaces allowed
	lli = convert( sptr );
	sout | lli | sptr;
	sptr = " 123 ";										// spaces allowed
	ulli = convert( sptr );
	sout | ulli | sptr;

	sptr = "-123.456";
	f = convert( sptr );
	sout | f | sptr;
	sptr = "-123.4567890123456";
	d = convert( sptr );
	sout | d | sptr;
	sptr = " -123.45678901234567890123456789 ";			// spaces allowed
	ld = convert( sptr );
	sout | ld | sptr;

	sptr = "-123.456-123.456i";
	fc = convert( sptr );
	sout | fc | sptr;
	sptr = "-123.4567890123456+123.4567890123456i";
	dc = convert( sptr );
	sout | dc | sptr;
	sptr = "123.45678901234567890123456789-123.45678901234567890123456789i";
	ldc = convert( sptr );
	sout | ldc | sptr;
	sptr = "123.45678901234-123.4567890i";
	ldc2 = convert( sptr );
	sout | ldc2 | sptr;

	sptr = "2.0fred";
	try {
		f = convert( sptr );
		assert( false );
	} catch( invalid_argument * ) {
		sout | "invalid argument" | sptr;
	} // try

	sptr = "2  3x";
	try {
		fc = convert( sptr );
		assert( false );
	} catch( invalid_argument * ) {
		sout | "invalid argument" | sptr;
	} // try
} // main

// Local Variables: //
// tab-width: 4 //
// compile-command: "cfa ato.cfa" //
// End: //