ftp.nice.ch/pub/next/developer/languages/translator/schemetoc.s.tar.gz#/schemetoc/test/test54c.c

This is test54c.c in view mode; [Download] [Up]

/* Global variable access test */

char  c1 = 'A', c2 = 'c';

short int  si1 = -4, si2 = 24;

short unsigned  su1 = 0xFFFF, su2 = 23;

int  i1 = -2, i2 = 2;

unsigned int  ui1 = 0xFFFFFFFF, ui2 = 0x1FFFFFFF, ui3 = 0xFFFF;

float  f1 = 23.23;

double  d1 = 32.32;

/* Typed function returns */

char  fc1() { return c1; }

char  fc2() { return c2; }

short int  fsi1() { return si1; }

short int  fsi2() { return si2; }

short unsigned fsu1() { return su1; }

short unsigned fsu2() { return su2; }

int  fi1() { return i1; }

int  fi2() { return i2; }

unsigned int fui1() { return ui1; }

unsigned int fui2() { return ui2; }

unsigned int fui3() { return ui3; }

float  ff1() { return f1; }

double  fd1()  { return d1; }

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.