/[ascend]/trunk/tcltk98/generic/interface/SolverProc.c
ViewVC logotype

Diff of /trunk/tcltk98/generic/interface/SolverProc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 112 by johnpye, Wed Dec 7 15:44:43 2005 UTC revision 113 by ben.allan, Thu Dec 15 03:59:55 2005 UTC
# Line 168  int Asc_SolvUnTrapFP(ClientData cdata, T Line 168  int Asc_SolvUnTrapFP(ClientData cdata, T
168    return TCL_OK;    return TCL_OK;
169  }  }
170    
171    int Asc_SolvTrapINT(ClientData cdata, Tcl_Interp *interp,
172                       int argc, CONST84 char *argv[])
173    {
174    
175      (void)cdata;    /* stop gcc whine about unused parameter */
176      (void)interp;   /* stop gcc whine about unused parameter */
177      (void)argc;     /* stop gcc whine about unused parameter */
178      (void)argv;     /* stop gcc whine about unused parameter */
179    
180      ASCUSE;
181      Asc_SignalHandlerPush(SIGINT,slv_trap_int);
182      return TCL_OK;
183    }
184    
185    int Asc_SolvUnTrapINT(ClientData cdata, Tcl_Interp *interp,
186                         int argc, CONST84 char *argv[])
187    {
188      (void)cdata;    /* stop gcc whine about unused parameter */
189      (void)interp;   /* stop gcc whine about unused parameter */
190      (void)argc;     /* stop gcc whine about unused parameter */
191      (void)argv;     /* stop gcc whine about unused parameter */
192    
193      Asc_SignalHandlerPop(SIGINT,slv_trap_int);
194      return TCL_OK;
195    }
196    
197  int Asc_SolvGetModKids(ClientData cdata, Tcl_Interp *interp,  int Asc_SolvGetModKids(ClientData cdata, Tcl_Interp *interp,
198                         int argc, CONST84 char *argv[])                         int argc, CONST84 char *argv[])
199  {  {
# Line 2452  int Asc_SolvHelpList(ClientData cdata, T Line 2478  int Asc_SolvHelpList(ClientData cdata, T
2478      if (argv[1][0]=='l') {      if (argv[1][0]=='l') {
2479        detail=1;        detail=1;
2480      }      }
2481        PRINTF("%-25s%s\n","slv_trapint",
2482               LONGHELP(detail,"turn ctrl-c traps on for solver"));
2483        PRINTF("%-25s%s\n","slv_untrapint",
2484               LONGHELP(detail,"turn ctrl-c traps off."));
2485      PRINTF("%-25s%s\n","slv_trapfp",      PRINTF("%-25s%s\n","slv_trapfp",
2486             LONGHELP(detail,"turn floating point traps on for solver"));             LONGHELP(detail,"turn floating point traps on for solver"));
2487      PRINTF("%-25s%s\n","slv_untrapfp",      PRINTF("%-25s%s\n","slv_untrapfp",

Legend:
Removed from v.112  
changed lines
  Added in v.113

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22