Return to rawcmo.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan / Kclass

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: