dmake/quit.c

   1 /*
   2 --
   3 -- SYNOPSIS
   4 --      End the dmake session.
   5 --
   6 -- DESCRIPTION
   7 --  Handles dmake termination.
   8 --
   9 -- AUTHOR
  10 --      Dennis Vadura, dvadura@dmake.wticorp.com
  11 --
  12 -- WWW
  13 --      http://dmake.wticorp.com/
  14 --
  15 -- COPYRIGHT
  16 --      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
  17 --
  18 --      This program is NOT free software; you can redistribute it and/or
  19 --      modify it under the terms of the Software License Agreement Provided
  20 --      in the file <distribution-root>/readme/license.txt.
  21 --
  22 -- LOG
  23 --      Use cvs log to obtain detailed change logs.
  24 */
  25
  26 #include "extern.h"
  27
  28 static  void    _handle_quit ANSI((char*));
  29 static  int _quitting = 0; /* Set to 1 once Quit() is called for the
  30                 * first time. */
  31
  32
  33 PUBLIC void
  34 Quit( sig )/*
  35 ======== Error or quit */
  36 int sig;
  37 {
  38    int ret = ERROR_ABORT_VALUE;
  39
  40    if( sig == SIGINT )
  41       fprintf(stderr, "Caught SIGINT. Trying to quit ...\n");
  42    else
  43 #ifdef SIGQUIT
  44    /* MinGW, maybe others also, does not have SIGQUIT. */
  45    if( sig == SIGQUIT )
  46       fprintf(stderr, "Caught SIGQUIT. Trying to quit ...\n");
  47    else
  48 #endif
  49    if( sig == 0 )
  50       /* Don't be verbose during regular program termination. */
  51       ret = ERROR_EXIT_VALUE;
  52    else
  53       fprintf(stderr, "Caught signal %d. Trying to quit ...\n", sig);
  54
  55    if( _quitting ) return; /* Guard to only quit once. */
  56    _quitting = 1;
  57
  58    while( Closefile() != NIL( FILE ) );
  59
  60    /* CTRL-c sends SIGINT and CTRL-\ sends SIGQUIT to the parent and to all
  61     * children. No need to kill them. */
  62    if( sig != SIGINT
  63 #ifdef SIGQUIT
  64        /* MinGW, maybe others also, does not have SIGQUIT. */
  65        && sig != SIGQUIT
  66 #endif
  67        )
  68       /* This should be called Kill_all_processes(). */
  69       Clean_up_processes();
  70
  71    /* Wait until all Processes are done. */
  72    while( Wait_for_child(TRUE, -1) != -1 )
  73       ;
  74
  75    if( Current_target != NIL(CELL) )
  76       Unlink_temp_files(Current_target);
  77
  78    if( _quitting == 0 ) _handle_quit( ".ERROR" );
  79
  80    Set_dir( Makedir );      /* No Error message if we can't do it */
  81    Epilog( ret );
  82 }
  83
  84
  85 PUBLIC const int
  86 in_quit( void )/*
  87 =================
  88    Called to check if we are already quitting.
  89    (Only used in unix/runargv.c.) */
  90 {
  91     return _quitting;
  92 }
  93
  94 static void
  95 _handle_quit( err_target )/*
  96 ============================
  97    Called by Quit() to handle the execution of termination code
  98    from within make */
  99 char *err_target;
 100 {
 101    HASHPTR hp;
 102    CELLPTR cp;
 103
 104    if( (hp = Get_name(err_target, Defs, FALSE)) != NIL(HASH) ) {
 105       cp = hp->CP_OWNR;
 106       Glob_attr |= A_IGNORE;
 107
 108       cp->ce_flag |= F_TARGET;
 109       Make( cp, NIL(CELL) );
 110
 111       /* Beware! If the ".ERROR" target doesn't finish the following
 112        * wait will never return!!! */
 113       while( Wait_for_child(FALSE, -1) != -1 );
 114
 115    }
 116 }