Download
pfuentes69
/FractalViewer
/Utils.cp
(View History)
| pfp First commit | Latest amendment: 1 on 2022-08-26 |
| 1 | #include <Packages.h> // for NumToString prototype |
| 2 | #include <stdlib.h> |
| 3 | #include "Utils.h" |
| 4 | |
| 5 | /*** |
| 6 | * concatenate two Pascal strings |
| 7 | * |
| 8 | ***/ |
| 9 | |
| 10 | void concat (StringPtr s, StringPtr p) |
| 11 | { |
| 12 | BlockMove(p+1, s+1+s[0], (long) p[0]); |
| 13 | s[0] += p[0]; |
| 14 | } |