File: spch.cc

package info (click to toggle)
icmake 13.05.01-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 7,132 kB
  • sloc: cpp: 11,595; fortran: 883; makefile: 853; sh: 546; pascal: 342
file content (19 lines) | stat: -rw-r--r-- 566 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#define XERR
#include "process.ih"

    // returns 0 if OK
int Process::spch() const
{                                   // currently rh() is not used anymore

                                // read the .ih files specifications fm 
                                // CLASSES, write them to the spch file.
    ofstream out = Exception::factory<ofstream>( d_options.spch() );

    for (string const &line: StringSet{ Classes{ d_options }.readClasses() })
    {
        if (Tools::exists(line))
            out << "#include \"" + line + "\"\n";
    }

    return 0;
}