Rev 355 | Rev 440 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
259 | daniel-mar | 1 | /* |
268 | daniel-mar | 2 | This file is part of a common library |
259 | daniel-mar | 3 | Copyright (C) 2002-6 Toby Thain, toby@telegraphics.com.au |
4 | |||
5 | This program is free software; you can redistribute it and/or modify |
||
6 | it under the terms of the GNU General Public License as published by |
||
7 | the Free Software Foundation; either version 2 of the License, or |
||
8 | (at your option) any later version. |
||
9 | |||
10 | This program is distributed in the hope that it will be useful, |
||
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
||
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||
13 | GNU General Public License for more details. |
||
14 | |||
15 | You should have received a copy of the GNU General Public License |
||
16 | along with this program; if not, write to the Free Software |
||
17 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
||
18 | */ |
||
19 | |||
20 | #include <string.h> |
||
21 | #include <stdlib.h> |
||
22 | |||
23 | #include "str.h" |
||
24 | #include "sprintf_tiny.h" |
||
25 | |||
26 | // convert C (null-terminated) to Pascal (length byte) string |
||
27 | // no bounds checking |
||
28 | unsigned char *myc2pstr(char *s){ |
||
29 | size_t n = strlen(s); |
||
30 | memmove(s+1,s,n); |
||
31 | *s = (unsigned char)n; |
||
32 | return (unsigned char*)s; |
||
33 | } |
||
34 | |||
35 | // convert Pascal string to C string |
||
36 | // no bounds checking |
||
37 | char *myp2cstr(unsigned char *s){ |
||
38 | int n = *s; |
||
39 | memmove(s,s+1,n); |
||
40 | s[n] = 0; |
||
41 | return (char*)s; |
||
42 | } |
||
43 | |||
44 | // copy Pascal string to C string |
||
45 | // no bounds checking |
||
46 | char *myp2cstrcpy(char *dst,const unsigned char *src){ |
||
47 | memcpy(dst,src+1,src[0]); |
||
48 | dst[src[0]] = 0; |
||
49 | return dst; |
||
50 | } |
||
366 | daniel-mar | 51 | |
52 | // copy C string to Pascal string |
||
259 | daniel-mar | 53 | unsigned char *myc2pstrcpy(unsigned char *dst,const char *src){ |
54 | size_t n = strlen(src); |
||
55 | *dst = n <= 255 ? (unsigned char)n : 255; |
||
56 | memcpy(dst+1,src,*dst); |
||
57 | return dst; |
||
58 | } |
||
59 | |||
60 | // copy null-terminated string; |
||
61 | // returns pointer after last character copied |
||
62 | char *cat(char *d,char *s){ |
||
63 | while( (*d = *s++) ) |
||
64 | d++; |
||
65 | return d; |
||
66 | } |
||
67 | |||
355 | daniel-mar | 68 | /* |
259 | daniel-mar | 69 | void *my_memset(void *dst, int val, size_t len){ |
70 | char *p; |
||
71 | for(p=(char*)dst;len--;) |
||
72 | *p++ = val; |
||
73 | return dst; |
||
74 | } |
||
355 | daniel-mar | 75 | */ |
76 | |||
77 | // my_strdup() is like _strdup(), with the difference that it accepts "char*" instead of "const char*" as argument |
||
259 | daniel-mar | 78 | char *my_strdup(char *s){ |
79 | size_t n = strlen(s); |
||
80 | char *p = (char*)malloc(n+1); |
||
81 | if(p) |
||
82 | memcpy(p,s,n+1); |
||
83 | return p; |
||
84 | } |
||
85 | |||
86 | unsigned char *PLcstrcpy(unsigned char *s1,const char *s2){ |
||
87 | size_t n = strlen(s2); |
||
88 | if(n>255) |
||
89 | n = 255; |
||
90 | memcpy(s1+1,s2,n); |
||
91 | *s1 = (unsigned char)n; |
||
92 | return s1; |
||
93 | } |
||
94 | |||
95 | unsigned char *PLcstrcat(unsigned char * str1,const char * s2){ |
||
96 | size_t n = strlen(s2); |
||
97 | if(str1[0]+n > 255) |
||
98 | n = 255 - str1[0]; |
||
99 | memcpy(str1+1+str1[0],s2,n); |
||
100 | str1[0] += (unsigned char)n; |
||
101 | return str1; |
||
102 | } |