Pristine Ack-5.5
[Ack-5.5.git] / mach / sparc / ce / back.src / do_open.c
1 #include "header.h"
2
3 open_back( filename)
4 char *filename;
5 {
6         if ( filename == (char *) 0) {
7                 codefile= STDOUT;
8 #ifdef __solaris__
9                 fprint(codefile, ".section \".text\"\n");
10 #endif
11                 return 1;
12         }
13 #ifndef sys_close
14         if ( sys_open( filename, OP_WRITE, &codefile)) {
15 #else
16         if ((codefile = fopen(filename, "w")) != NULL) {
17 #endif
18 #ifdef __solaris__
19                 fprint(codefile, ".section \".text\"\n");
20 #endif
21                 return 1;
22         }
23         return 0;
24 }