← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/xsci/jpc_command.c

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/xsci/jpc_command.c
39
39
#endif
40
40
 
41
41
#include "jpc_global.h"
42
 
#include "../sun/h_help.h" 
43
42
#include "../sun/Sun.h" 
44
43
#include "All-extern-x1.h" 
45
44
#include "../graphics/Graphics.h" 
54
53
extern void do_kill();
55
54
extern int get_is_reading();
56
55
extern char GetDriver();
57
 
 
58
56
#ifdef BSD
59
57
static char     savedCommand[LINESIZ] = ""; 
60
58
#endif
62
60
static void DoIt  __PARAMS((Widget w, XtPointer command, XtPointer ));  
63
61
static void Do_Kill  __PARAMS((Widget w, XtPointer command, XtPointer ));  
64
62
static void Do_Stop  __PARAMS((Widget w, XtPointer command, XtPointer ));  
65
 
static void Do_Help  __PARAMS((Widget w, XtPointer command, XtPointer ));  
66
63
static void info_handler  __PARAMS((Widget w, caddr_t , XEvent *));  
67
64
static void AddInfoHandler  __PARAMS((Widget , char *));  
68
65
static void CreateButtons  __PARAMS((Widget parent));  
99
96
    XtPointer command;
100
97
    XtPointer call_data;
101
98
{
102
 
  ClearExit(1);
 
99
 sci_clear_and_exit(1);
103
100
}
104
101
 
105
102
static void Do_Stop (w, command, call_data)
112
109
  if (get_is_reading()) write_scilab("\n");
113
110
}
114
111
 
115
 
extern void   popupHelpPanel();
116
 
 
117
 
static void Do_Help (w, command, call_data)
118
 
    Widget w;
119
 
    XtPointer command;
120
 
    XtPointer call_data;
121
 
{
122
 
  static int status=0;
123
 
  if ( status == 0) 
124
 
    {
125
 
      initHelpActions(app_con); status=1;
126
 
    };
127
 
  popupHelpPanel();
128
 
  /* status=system("$SCI/bin/scilab -xhelp"); */
129
 
}
130
 
 
131
112
 
132
113
/* for all file operations */
133
114
void FileG1(w, closure, call_data)
237
218
  /* AddInfoHandler(menuentry,"Abort Scilab execution after pause or stop"); */
238
219
 
239
220
  iopt=2;C2F(infficl)(&iopt,&nc);
240
 
  Startup=(char *) malloc( (7+nc+2)*(sizeof(char)));
241
 
  strcpy(Startup,"abort;\n");
242
 
  C2F(inffic)(&iopt, &(Startup[7]),&nc);strcat(Startup,"\n");
243
 
  menuentry = AddInMenu(menu1, "Restart", DoIt,(XtPointer)Startup); 
 
221
  Startup=(char *) malloc( (38+nc+2)*(sizeof(char)));
 
222
  strcpy(Startup,"abort;\nsavehistory();\nresethistory();\n");
 
223
  C2F(inffic)(&iopt, &(Startup[38]),&nc);strcat(Startup,"\n");
 
224
  /*menuentry = AddInMenu(menu1, "Restart", DoIt,(XtPointer)Startup); */
244
225
  /*  AddInfoHandler(menuentry,"Clear everything"); */
245
226
  menuentry = AddInMenu(menu1, "Stop", Do_Stop, " ");
246
227
  /* AddInfoHandler(menuentry,"Stop execution"); */
252
233
  AddInfoHandler(menuentry,"Exec demos");
253
234
 
254
235
  CreateFormWithButtons(parent);
255
 
 
256
 
  menuentry = AddButton (parent, "Help", Do_Help," ");
257
 
  AddInfoHandler(menuentry,"Open Help Window");
258
236
}
259
237
 
260
238
 
330
308
     Widget widget;
331
309
     XtPointer closure, callData;
332
310
{
333
 
  char c ;
334
 
  if ((c=GetDriver())=='R' || c == 'X' || c == 'W')
335
 
    {
336
 
      C2F(dr)("xset","window",&lab_count,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
337
 
    };
 
311
  scig_sel(lab_count);
338
312
}
339
313
 
340
314
 
343
317
     Widget widget;
344
318
     XtPointer closure, callData;
345
319
{
346
 
  char c ;
347
 
  if ((c=GetDriver())=='R' || c == 'X' || c == 'W')
348
 
    {
349
 
      /* C2F(dr)("xsetdr","Rec",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);*/
350
 
      C2F(dr)("xset","window",&lab_count,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
351
 
      C2F(dr)("xselect","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
352
 
    };
 
320
  scig_raise(lab_count);
353
321
}
354
322
 
355
323
static void