projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
syscons util remove use kbdcontrol & vidcontrol instead
[unix-history]
/
lib
/
libF77
/
system_.c
/* f77 interface to system routine */
#include
"f2c.h"
#ifdef KR_headers
system_
(
s
,
n
)
register
char
*
s
;
ftnlen n
;
#else
#undef abs
#include
"stdlib.h"
system_
(
register
char
*
s
,
ftnlen n
)
#endif
{
char
buff
[
1000
];
register
char
*
bp
, *
blast
;
blast
=
buff
+ (
n
<
1000
?
n
:
1000
);
for
(
bp
=
buff
;
bp
<
blast
&& *
s
!=
'\0'
; )
*
bp
++ = *
s
++;
*
bp
=
'\0'
;
return
system
(
buff
);
}