Return to cm_cleanup.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / ctlmod

Annotation of 42BSD/ingres/source/ctlmod/cm_cleanup.c, revision 1.1.1.1

1.1       root        1: # include      "ctlmod.h"
                      2: # include      <signal.h>
                      3: # include      <sccs.h>
                      4: 
                      5: SCCSID(@(#)cm_cleanup.c        7.1     2/5/81)
                      6: 
                      7: /*
                      8: **  CM_CLEANUP -- cleanup after interrupt or error.
                      9: **
                     10: **     This routine does things like call the interrupt cleanup
                     11: **     function, reset the input, etc.
                     12: **
                     13: **     Parameters:
                     14: **             typ -- the type of cleanup:
                     15: **                     1 -- fatal error (from error [error.c]).
                     16: **                     2 -- keyboard interrupt.
                     17: **
                     18: **     Returns:
                     19: **             never (uses non-local jump to ctlmod/main.c).
                     20: **
                     21: **     Side Effects:
                     22: **             Proc_name & Cm.cm_input are reset.
                     23: **
                     24: **     Trace Flags:
                     25: **             0
                     26: */
                     27: 
                     28: cm_cleanup(typ)
                     29: int    typ;
                     30: {
                     31:        register int            i;
                     32:        register struct fn_def  *f;
                     33:        extern char             *Proc_name;
                     34:        extern jmp_buf          CmReset;
                     35:        extern                  rubcatch();
                     36:        register ctx_t          *ctx;
                     37: 
                     38: # ifdef xCTR2
                     39:        if (tTf(0, 13))
                     40:                printf("cm_cleanup: %d\n", typ);
                     41: # endif
                     42: 
                     43:        /*
                     44:        **  Call all interrupt cleanup functions for active
                     45:        **      modules.
                     46:        */
                     47: 
                     48:        for (i = 0; i < NumFunc; i++)
                     49:        {
                     50:                f = FuncVect[i];
                     51:                if (f->fn_active > 0)
                     52:                {
                     53:                        Ctx.ctx_name = Proc_name = f->fn_name;
                     54:                        (*f->fn_cleanup)(typ);
                     55:                }
                     56:        }
                     57: 
                     58:        /* clean up memory */
                     59:        for (ctx = &Ctx; ctx != NULL; ctx = ctx->ctx_link)
                     60:        {
                     61:                if (ctx->ctx_qt != NULL)
                     62:                        free(ctx->ctx_qt);
                     63:                if (ctx->ctx_glob != NULL)
                     64:                {
                     65:                        bmove(ctx->ctx_glob, ctx->ctx_fn->fn_gptr, ctx->ctx_fn->fn_gsize);
                     66:                        free(ctx->ctx_glob);
                     67:                }
                     68:        }
                     69: 
                     70:        /* return to top of loop */
                     71:        longjmp(CmReset, typ);
                     72: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.