Subversion Repositories filter_foundry

Rev

Rev 355 | Rev 440 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 355 Rev 366
Line 46... Line 46...
46 
char *myp2cstrcpy(char *dst,const unsigned char *src){
 46 
char *myp2cstrcpy(char *dst,const unsigned char *src){
47 
        memcpy(dst,src+1,src[0]);
 47 
        memcpy(dst,src+1,src[0]);
48 
        dst[src[0]] = 0;
 48 
        dst[src[0]] = 0;
49 
        return dst;
 49 
        return dst;
50 
}
 50 
}
- 
 
 51 
 
- 
 
 52 
// copy C string to Pascal string
51 
unsigned char *myc2pstrcpy(unsigned char *dst,const char *src){
 53 
unsigned char *myc2pstrcpy(unsigned char *dst,const char *src){
52 
        size_t n = strlen(src);
 54 
        size_t n = strlen(src);
53 
        *dst = n <= 255 ? (unsigned char)n : 255;
 55 
        *dst = n <= 255 ? (unsigned char)n : 255;
54 
        memcpy(dst+1,src,*dst);
 56 
        memcpy(dst+1,src,*dst);
55 
        return dst;
 57 
        return dst;