Annotation of OpenXM/src/kan96xx/Kan/Kclass/rawcmo.c, Revision 1.1
1.1 ! maekawa 1: /* Kclass/rawcmo.c */
! 2: #include <stdio.h>
! 3: #include "../datatype.h"
! 4: #include "../stackm.h"
! 5: #include "../extern.h"
! 6: #include "../gradedset.h"
! 7: #include "../extern2.h"
! 8: #include "../kclass.h"
! 9:
! 10: /* Printing function : see fprintClass */
! 11: void fprintCMOClass(FILE *fp,struct object op)
! 12: {
! 13: if (fp != stdout) warningKan("fprintfCMOClass() can output only to stdout.\n");
! 14: /* cmo functions are defined in the plugin. So, we use
! 15: executeString */
! 16: KSpush(op);
! 17: KSexecuteString("[(cmoDumpCmo) 3 -1 roll ] extension pop ");
! 18: }
! 19:
! 20:
! 21:
! 22:
! 23:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>