1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
/*
* Copyright (C) 1992 Maurice Castro, Russell Lang
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted, but not the right to
* distribute the modified code. Modifications are to be distributed
* as patches to released version.
*
* This software is provided "as is" without express or implied warranty.
* AUTHORS
* Maurice Castro
* Russell Lang
* Modified for Scilab :
* Jean-Philippe Chancelier
* Allan CORNET ( INRIA 2005 )
*
*/
#ifndef SCI_WCOMMON
#define SCI_WCOMMON
/*-----------------------------------------------------------------------------------*/
#include <stdio.h>
#include "../graphics/Math.h" /* Scilab graphic window */
#include "../graphics/bcg.h" /* Scilab graphic window */
/*-----------------------------------------------------------------------------------*/
#define MAX_LINE_LEN 512 /* maximum number of chars allowed on line */
#define MAX_ID_LEN 50 /* max length of an identifier */
#define NO_CARET (-1)
#define GBUFSIZE 512
/*-----------------------------------------------------------------------------------*/
typedef struct tagGFILE {
HFILE hfile;
char getbuf[GBUFSIZE];
int getnext;
int getleft;
} GFILE;
/*-----------------------------------------------------------------------------------*/
/* wmenu.c - Menu */
extern void sciprint(char *fmt, ...);
extern void sciprint_nd(char *fmt, ...);
extern int sciprint2(int v,char *fmt,...);
extern void WinExit(void);
extern void Scistring(char *str);
extern int C2F(clearexit)(integer *n);
/*-----------------------------------------------------------------------------------*/
/* wtext.c */
extern void TextSelectFont (LPTW lptw);
extern void TextCopyClip (LPTW lptw);
extern int CtrlCHit(LPTW lptw);
extern void UpdateText(LPTW, int);
extern void NewLine(LPTW);
extern void TextPutStr(LPTW lptw, LPSTR str);
extern void WriteRegistryTxt(LPTW lptw);
extern void ReadRegistryTxt(LPTW lptw);
extern void DragFunc(LPTW lptw, HDROP hdrop);
extern int C2F(sxevents)();
/*-----------------------------------------------------------------------------------*/
/* wmenu.c - Menu */
extern void SendMacro(LPTW lptw, UINT m);
extern void LoadMacros(LPTW lptw);
extern void CloseMacros(LPTW lptw);
extern void MenuFixCurrentWin(int ivalue);
extern BOOL SciOpenSave(HWND hWndParent, BYTE **s,BOOL save, char **d,int *ierr);
extern int GetLine(char * buffer, int len, GFILE *gfile);
extern void LeftJustify(char *d, char *s);
extern GFILE * Gfopen(LPSTR lpszFileName, int fnOpenMode);
extern void Gfclose(GFILE * gfile);
extern int Gfgets(LPSTR lp, int size, GFILE *gfile);
/*-----------------------------------------------------------------------------------*/
/* wprinter.c - Printer setup and dump */
extern BOOL PrintSize(HDC printer, HWND hwnd, LPRECT lprect);
extern void PrintRegister(LP_PRINT lpr);
extern void PrintUnregister(LP_PRINT lpr);
extern EXPORT BOOL CALLBACK PrintAbortProc(HDC hdcPrn, int code);
extern EXPORT BOOL CALLBACK PrintDlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam);
/*-----------------------------------------------------------------------------------*/
/* wstatbar.c */
extern HWND InitStatusBar (HWND hwndParent);
/*-----------------------------------------------------------------------------------*/
/* command.c */
extern int com_line(void);
extern void switch_rlgets(int);
extern int read_line (char *prompt, int interrupt);
/*-----------------------------------------------------------------------------------*/
/* winmain */
extern int InteractiveMode(void);
extern void sciprint(char *fmt, ...);
extern void sciprint_nd(char *fmt, ...);
extern int sciprint2(int v,char *fmt,...);
extern int Pause(LPSTR mess);
extern void WinExit(void);
extern void Scistring(char *str);
extern int C2F(clearexit)(integer *n);
/*-----------------------------------------------------------------------------------*/
/* ../menusX */
extern BOOL DialogWindow();
/*-----------------------------------------------------------------------------------*/
/* readline-nowin */
extern void add_history_nw();
extern char * readline_nw (char *prompt, int interrupt);
/*-----------------------------------------------------------------------------------*/
/* readline */
extern void add_history_win();
extern char * readline_win (char *prompt,int interrupt);
/*-----------------------------------------------------------------------------------*/
/* wgmenu */
extern int WGFindMenuPos( BYTE **macros);
extern void ScilabMenuAction(char *buf);
extern void SendGraphMacro(struct BCG *ScilabGC, UINT m);
extern void write_scilab(char *buf);
extern void LoadGraphMacros(struct BCG *ScilabGC);
extern void CloseGraphMacros(struct BCG *ScilabGC);
extern int C2F(setmen)(integer *,char *,integer *,integer *,integer *,
integer *);
extern int C2F(unsmen)(integer *,char *,integer *,integer *,integer *,
integer *);
extern int C2F(chmenu)(integer *,char *,char *);
extern int C2F(delbtn)(integer *,char *);
extern int C2F(addmen)(integer *,char *,integer *,integer *,integer *,
integer *,
char *, integer *);
extern void AddMenu(integer *win_num,char * button_name,char ** entries,
integer * ne,integer *typ,char * fname, integer * ierr);
/*-----------------------------------------------------------------------------------*/
/* gvwprn.c */
extern int gp_printfile(HINSTANCE hInstance,HWND hwnd,char *filename, char *port);
/*-----------------------------------------------------------------------------------*/
/* Scilab_Xloop */
extern void SetXsciOn();
extern int C2F(xscion)(int *i);
extern int C2F(getmen)(char *,integer *,integer *);
extern integer C2F(ismenu)(void);
extern int GetCommand(char *);
extern int StoreCommand1(char *,int);
extern int StoreCommand(char *);
/*-----------------------------------------------------------------------------------*/
/* misc */
extern char *alloc(unsigned long size,char * message);
extern void squash_spaces(char *s);
extern void lower_case(char *s);
extern void os_error(char *str,int t_num);
extern void int_error(char *str,int t_num);
extern int instring(char *str,char c);
/*-----------------------------------------------------------------------------------*/
/* wtloop */
extern void sci_windows_main(int,int *,char *,int,int *,int);
extern void SciMenuSelect(char *Name);
extern void C2F(setfbutn)(char *buf,int *rep);
extern void C2F(fbutn)(char *buf,int *win,int *ent);
extern void SignalCtrC(void);
/*-----------------------------------------------------------------------------------*/
/** wgraph */
extern void DebugGW (char *fmt, ...);
extern int C2F(deletewin)(integer *number) ;
extern void CopyToClipboardEMF(struct BCG *ScilabGC);
extern void CopyToClipboardBitmap(struct BCG *ScilabGC);
extern int CopyPrint(struct BCG *ScilabGC);
extern void WriteRegistryGraph(struct BCG *ScilabGC);
extern void ReadRegistryGraph(struct BCG *ScilabGC);
extern int PushClickQueue(int win,int x,int y,int ibut,int motion,int release);
extern int CheckClickQueue(int *win,int *x,int *y,int *ibut,int *motion,int *release);
extern int ClearClickQueue(int win);
/*-----------------------------------------------------------------------------------*/
/** ../graphics* **/
extern void Tape_Replay(char *,integer *,integer *,integer *,integer *,integer *,integer *,double *,double *,double *,double *);
extern void C2F(SetDriver)();
extern int C2F(dr)();
/*-----------------------------------------------------------------------------------*/
/* wmprint */
extern int ScilabPsToEps(char orientation,char *filenamein,char *filenameout);
/*-----------------------------------------------------------------------------------*/
/* wmtex.c */
extern int ScilabPsToTeX(char orientation,char *filenamein,char *filenameout,double xs,double ys);
/*-----------------------------------------------------------------------------------*/
/* elsewhere in scilab : in Fortran code maybe */
extern int C2F(mainsci)(int *, char *, int *, integer);
extern void set_is_reading(int);
extern int get_is_reading(void);
extern int C2F(timer)(double *);
extern int C2F(stimer)(void);
extern int C2F(sigbas)(integer *);
/*-----------------------------------------------------------------------------------*/
/* handlers */
extern void reset_scig_handler __PARAMS((void));
extern void reset_scig_click_handler __PARAMS((void));
extern void reset_scig_deletegwin_handler __PARAMS((void));
extern void reset_scig_command_handler __PARAMS((void));
typedef int (*Scig_command_handler) __PARAMS((char *));
extern Scig_command_handler set_scig_command_handler __PARAMS((Scig_command_handler f));
typedef int (*Scig_click_handler) __PARAMS((int,int,int,int,int,int));
extern Scig_click_handler set_scig_click_handler __PARAMS((Scig_click_handler f));
typedef void (*Scig_deletegwin_handler) __PARAMS((int));
extern Scig_deletegwin_handler set_scig_deletegwin_handler __PARAMS((Scig_deletegwin_handler f));
/*-----------------------------------------------------------------------------------*/
#endif
/*-----------------------------------------------------------------------------------*/
|
