blob: 4568d89f06e3ab8cac81f5832e1162d84d758827 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_libc
#include <iraf.h>
/* STRDUP -- Save a copy of a string.
*/
char *
strdup (
char *str /* string to copy */
)
{
register char *ip, *op, *out;
int len = strlen (str);
out = calloc (1, strlen (str) + 1);
for (ip=str, op=out; (*op++ = *ip++); )
;
return (out);
}
|
