source: src/tests/user_literals.c @ 6de9f4a

// 
// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
// 
// user_literals.c -- 
// 
// Author           : Peter A. Buhr
// Created On       : Wed Sep  6 21:40:50 2017
// Last Modified By : Peter A. Buhr
// Last Modified On : Thu Sep  7 22:53:49 2017
// Update Count     : 39
// 

#include <fstream>
#include <wchar.h>
#include <uchar.h>

int ?`s( int s ) { sout | "secs" | s | endl; }
int ?`m( int m ) { sout | "mins" | m | endl; }
int ?`h( int h ) { sout | "hours" | h | endl; }
int ?`_A_( int x ) { sout | "_A_" | x | endl; }
int ?`__thingy_( int x ) { sout | "_thingy_" | x | endl; }

int ?`s( const char * s ) { sout | "secs" | s | endl; }
int ?`m( const char16_t * m ) { sout | "mins" | m | endl; }
int ?`h( const char32_t * h ) { sout | "hours" | h | endl; }
int ?`_A_( const wchar_t * x ) { sout | "_A_" | x | endl; }
int ?`__thingy_( const char * x ) { sout | "_thingy_" | x | endl; }


struct Weight {
    double stones;
};
void ?{}( Weight & w ) { w.stones = 0; }        // constructors
void ?{}( Weight & w, double w ) { w.stones = w; }

Weight ?+?( Weight l, Weight r ) { return (Weight){ l.stones + r.stones }; }
ofstream * ?|?( ofstream * os, Weight w ) { return os | w.stones; }

Weight ?`st( double w ) { return (Weight){ w }; } // user literals
Weight ?`lb( double w ) { return (Weight){ w / 14.0 }; }
Weight ?`kg( double w ) { return (Weight) { w * 0.1575}; }


int main() {
    Weight w, hw = { 14 };
    w = 11`st + 1`lb;
    sout | w | endl;
    w = 70.3`kg;
    sout | w | endl;
    w = 155`lb;
    sout | w | endl;
    w = 0x9b`lb;                // hexadecimal weight
    sout | w | endl;
    w = 0233`lb;                // octal weight
    sout | w | endl;
    w = 5`st + 8`kg + 25`lb + hw;
    sout | w | endl;

//      0`secs;
        1`s;
        23`s;
        23u`m;
        23l`h;
        23_ul`_A_;
        1_234_LL`__thingy_;

        0xff_ffl;
        0xff_ff`s;
        0xff_ffu`m;
        0xff_ffl`h;
        0xff_fful`_A_;
        0xff_ffLL`__thingy_;

    '\n'`s;
    L'\n'`h;
    u'\n'`m;
    L_'\n'`_A_;
    U_'\n'`__thingy_;

        "abc"`s;
        u"abc"`m;
        U_"abc"`h;
        L"abc"`_A_;
        u8_"abc"`__thingy_;
} // main

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