public
/
Ack-5.5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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
}