File: open.cc

package info (click to toggle)
simrisc 16.05.00-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,568 kB
  • sloc: cpp: 6,877; fortran: 665; makefile: 112; ansic: 112; sh: 107
file content (18 lines) | stat: -rw-r--r-- 542 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
//#define XERR
#include "loop.ih"

// static
ofstream Loop::open(string const &fname)
{
                                        // already saw fname
    if (s_availableFiles.find(fname) != s_availableFiles.end())
    {
        ofstream out{ Exception::factory<ofstream>(fname,
                                            ios::in | ios::out | ios::ate) };
        out << setfill('-') << setw(40) << '-' << setfill(' ') << "\n\n";
        return out;
    }

    s_availableFiles.insert(fname);
    return Exception::factory<ofstream>(fname);
}