]> diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/getcpy.c
Create new mh-format function %(ordinal)
[nmh] / docs / historical / mh-jun-1982 / subs / getcpy.c
1 #ifdef COMMENT
2 Proprietary Rand Corporation, 1981.
3 Further distribution of this software
4 subject to the terms of the Rand
5 license agreement.
6 #endif
7
8 #include "../mh.h"
9
10 char *malloc();
11 char *strcpy();
12
13 char *
14 getcpy(str)
15 char *str;
16 {
17 register char *cp;
18
19 cp = malloc((unsigned)strlen(str) + 1);
20 VOID strcpy(cp, str);
21 return(cp);
22 }