source: tests/ato.cfa @ 1b64344

//
// 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 : Tue Dec  4 21:33:53 2018
// Update Count     : 92
//

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

int main( void ) {
        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";
        long long int lli = ato( sptr );
        sout | lli | sptr;
        sptr = "123";
        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";
        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";
        long double _Complex ldc2 = ato( sptr );
        sout | ldc2 | sptr;


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

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

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

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

        sptr = "-123.456-123.456i";
        fc = strto( sptr, 0 );
        sout | fc | sptr;

        char * eptr = 0;
        // sptr = "2fred";
        // fc = strto( sptr, &eptr );
        // sout | fc | sptr | eptr;

        sptr = "2  3";
        fc = strto( sptr, &eptr );
        sout | fc | sptr | eptr;

        sptr = "-123.4567890123456+123.4567890123456i";
        dc = strto( sptr, 0 );
        sout | dc | sptr;
        sptr = "123.45678901234567890123456789-123.45678901234567890123456789i";
        ldc = strto( sptr, 0 );
        sout | ldc | sptr;
        sptr = "123.45678901234-123.4567890i";
        ldc2 = strto( sptr, 0 );
        sout | ldc2 | sptr;
} // main

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