/* 
 *
 * COPYRIGHT (c) 1995 by AT&T Bell Laboratories.
 *
 * generates, on stdout, a "cc-info" file for the SML/NJ C interface
 * using the data sizes of the compiling C compiler.
 */

#include <stdio.h>

#define PUTS(s) printf("%s",s)
#define PUTVAL(n,i) printf("\t\tval %s = %d\n", n, i)
#define COMMENT(s) printf("(* %s *)\n", s)
#define NEWLINE() putchar('\n')

main(int argc,char *argv[])
{
  if (argc != 2) {
    fprintf(stderr,"usage: %s name-for-structure\n", argv[0]);
    exit(1);
  }
  NEWLINE();
  PUTS("structure "); PUTS(argv[1]); PUTS(" : CC_INFO =\n");
  PUTS("\tstruct\n");
  PUTS("\t\t");COMMENT("all sizes in bytes");
  NEWLINE();
  PUTVAL("intSzB", sizeof(int));
  PUTVAL("shortSzB", sizeof(short));
  PUTVAL("longSzB", sizeof(long));
  NEWLINE();
  PUTVAL("charSzB", sizeof(char));
  NEWLINE();
  PUTVAL("floatSzB", sizeof(float));
  PUTVAL("doubleSzB", sizeof(double));
  NEWLINE();
  PUTVAL("ptrSzB", sizeof(int *));
  NEWLINE();
  PUTVAL("unionAlign", sizeof(int *));
  PUTVAL("structAlign", sizeof(int *));
  NEWLINE();
  PUTS("\tend "); PUTS("(* structure "); PUTS(argv[1]); PUTS(" *)\n");
  exit(0);
}

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: ));
  NEWLINE();
  PUTS(&quot;\tend &quot;); PUTS(&quot;(* structure &quot;); PUTS(argv[1]); PUTS(&quot; *)\n&quot;);
  exit(0);
}</div>
</div></div>
</body></html>