From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001 From: Tobias Klauser Date: Sun, 27 Jan 2008 11:37:44 +0100 Subject: Initial import (2.0.2-6) --- reference/C/CONTRIB/SNIP/pcnvrt.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 reference/C/CONTRIB/SNIP/pcnvrt.c (limited to 'reference/C/CONTRIB/SNIP/pcnvrt.c') diff --git a/reference/C/CONTRIB/SNIP/pcnvrt.c b/reference/C/CONTRIB/SNIP/pcnvrt.c new file mode 100755 index 0000000..5e4ab51 --- /dev/null +++ b/reference/C/CONTRIB/SNIP/pcnvrt.c @@ -0,0 +1,22 @@ +/* +** demo code for converting Pascal strings to/from C strings +** +** public domain by Bob Stout +*/ + +#include + +typedef unsigned char UCHAR; + +#define P2Cconvert(s) {UCHAR n = *(s); memmove((s), &(s)[1], n); s[n] = '\0';} +#define C2Pconvert(s) {int n = strlen(s); memmove(&(s)[1], (s), n); *(s) = n;} + +#if (0) /* Demo code fragment follows */ + + char string[81]; + + fgets(string, 81, inFile); /* get 80-char pascal string */ + P2Cconvert(string); /* convert it in place */ + C2Pconvert(string); /* convert back */ + +#endif -- cgit v1.2.3-54-g00ecf