source: src/examples/identity.c @ e15b0a0a

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decaygc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newstringwith_gc
Last change on this file since e15b0a0a was 843054c2, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

licencing: seventh groups of files
  • Property mode set to 100644
File size: 500 bytes
RevLine 
[42dcae7]1#include "fstream.h"
[a0d9f94]2
3forall( type T )
4T identity( T t ) {
5    return t;
6}
7
8int main() {
[42dcae7]9    ofstream *sout = ofstream_stdout();
10    char c = 'a';
[c11e31c]11    c = identity( c );
[42dcae7]12    sout << c << ' ' << identity( c ) << '\n';
13    int i = 5;
[c11e31c]14    i = identity( i );
[42dcae7]15    sout << i << ' ' << identity( i ) << '\n';
16    double d = 3.2;
[c11e31c]17    d = identity( d );
[42dcae7]18    sout << d << ' ' << identity( d ) << '\n';
[a0d9f94]19}
[42dcae7]20
21// Local Variables: //
22// compile-command: "../../bin/cfa identity.c fstream.o iostream.o" //
23// End: //
Note: See TracBrowser for help on using the repository browser.