Subversion Repositories filter_foundry

Rev

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

Rev 259 Rev 268
Line 68... Line 68...
68
 
68
 
69
#include "PLStrs.h"
69
#include "PLStrs.h"
70
 
70
 
71
#include <memory.h>
71
#include <memory.h>
72
 
72
 
73
pascal StringPtr  PLstrcpy(StringPtr str1, StringPtr str2)
73
pascal StringPtr  PLstrcpy(StringPtr str1, StringPtr str2) {
74
 {
-
 
75
   BlockMove(str2, str1, str2[0] + 1);
74
        BlockMove(str2, str1, str2[0] + 1);
76
   return(str1);
75
        return(str1);
77
 }
76
}
78
 
77
 
79
pascal StringPtr PLstrcat(StringPtr str1, StringPtr str2)
78
pascal StringPtr PLstrcat(StringPtr str1, StringPtr str2) {
80
 {
-
 
81
  long copyLen;
79
        long copyLen;
82
 
80
 
83
   if (str1[0] + 1 + str2[0]>255)
81
        if (str1[0] + 1 + str2[0]>255)
84
     copyLen = 255 - str1[0];
82
                copyLen = 255 - str1[0];
85
   else
83
        else