pascal-strings-1.c [plain text]
typedef __WCHAR_TYPE__ wchar_t;
typedef __SIZE_TYPE__ size_t;
extern void abort (void);
extern size_t strlen (const char *s);
const unsigned char *pascalStr1 = "\pHello, World!";
const unsigned char *concat1 = "\pConcatenated" "string" "\pliteral";
const unsigned char msg1[] = "\pHello";
const unsigned char *msg2 = "\pHello";
const signed char msg3[] = "\pHello";
const char msg4[] = "\pHello";
unsigned char msg5[] = "\pHello";
signed char msg7[] = "\pHello";
char msg8[] = "\pHello";
int
main (void)
{
const unsigned char *pascalStr2 = "\pGood-bye!";
if (strlen ((const char *)pascalStr1) != 14)
abort ();
if (*pascalStr1 != 13)
abort ();
if (strlen ((const char *)pascalStr2) != 10)
abort ();
if (*pascalStr2 != 9)
abort ();
if (strlen ((const char *)concat1) != 26)
abort ();
if (*concat1 != 25)
abort ();
return 0;
}