source:
tests/.in/copyfile.txt
@
26b9e71
Last change on this file since 26b9e71 was a8a3485, checked in by , 4 years ago | |
---|---|
|
|
File size: 1.5 KB |
Rev | Line | |
---|---|---|
[8d75345a] | 1 | // |
2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo | |
3 | // | |
4 | // The contents of this file are covered under the licence agreement in the | |
5 | // file "LICENCE" distributed with Cforall. | |
6 | // | |
7 | // copyfile.cfa -- | |
8 | // | |
9 | // Author : Peter A. Buhr | |
[6c4bd02] | 10 | // Created On : Fri Jun 19 13:44:05 2020 |
[8d75345a] | 11 | // Last Modified By : Peter A. Buhr |
[a8a3485] | 12 | // Last Modified On : Fri Jun 19 17:58:03 2020 |
13 | // Update Count : 4 | |
[8d75345a] | 14 | // |
15 | ||
16 | #include <fstream.hfa> | |
[6c4bd02] | 17 | #include <exception.hfa> |
[8d75345a] | 18 | |
19 | int main( int argc, char * argv[] ) { | |
[6c4bd02] | 20 | ifstream in = stdin; // copy default files |
21 | ofstream out = stdout; | |
22 | ||
[3f654ec] | 23 | try { |
24 | choose ( argc ) { | |
25 | case 2, 3: | |
[6c4bd02] | 26 | open( in, argv[1] ); // open input file first as output creates file |
27 | if ( argc == 3 ) open( out, argv[2] ); // do not create output unless input opens | |
28 | case 1: ; // use default files | |
[3f654ec] | 29 | default: |
[6c4bd02] | 30 | exit | "Usage" | argv[0] | "[ input-file (default stdin) [ output-file (default stdout) ] ]"; |
[3f654ec] | 31 | } // choose |
[6c4bd02] | 32 | } catch( Open_Failure * ex ; ex->istream == &in ) { |
33 | exit | "Unable to open input file" | argv[1]; | |
34 | } catch( Open_Failure * ex ; ex->ostream == &out ) { | |
35 | close( in ); // optional | |
36 | exit | "Unable to open output file" | argv[2]; | |
37 | } // try | |
[8d75345a] | 38 | |
[6c4bd02] | 39 | out | nlOff; // turn off auto newline |
40 | in | nlOn; // turn on reading newline | |
[8d75345a] | 41 | |
[6c4bd02] | 42 | char ch; |
43 | for () { // read all characters | |
44 | in | ch; | |
45 | if ( eof( in ) ) break; // eof ? | |
46 | out | ch; | |
47 | } //for | |
[8d75345a] | 48 | } // main |
49 | ||
50 | // Local Variables: // | |
51 | // tab-width: 4 // | |
52 | // compile-command: "cfa copyfile.cfa" // | |
53 | // End: // |
Note: See TracBrowser
for help on using the repository browser.