Annotation of OpenXM_contrib/gnuplot/win/winmain.c, Revision 1.1.1.1
1.1 maekawa 1: #ifndef lint
2: static char *RCSid = "$Id: winmain.c,v 1.15 1998/03/22 23:32:01 drd Exp $";
3: #endif
4:
5: /* GNUPLOT - win/winmain.c */
6: /*[
7: * Copyright 1992, 1993, 1998 Maurice Castro, Russell Lang
8: *
9: * Permission to use, copy, and distribute this software and its
10: * documentation for any purpose with or without fee is hereby granted,
11: * provided that the above copyright notice appear in all copies and
12: * that both that copyright notice and this permission notice appear
13: * in supporting documentation.
14: *
15: * Permission to modify the software is granted, but not the right to
16: * distribute the complete modified source code. Modifications are to
17: * be distributed as patches to the released version. Permission to
18: * distribute binaries produced by compiling modified sources is granted,
19: * provided you
20: * 1. distribute the corresponding source modifications from the
21: * released version in the form of a patch file along with the binaries,
22: * 2. add special version identification to distinguish your version
23: * in addition to the base release version number,
24: * 3. provide your name and address as the primary contact for the
25: * support of your modified version, and
26: * 4. retain our contact information in regard to use of the base
27: * software.
28: * Permission to distribute the released version of the source code along
29: * with corresponding source modifications in the form of a patch file is
30: * granted with same provisions 2 through 4 for binary distributions.
31: *
32: * This software is provided "as is" without express or implied warranty
33: * to the extent permitted by applicable law.
34: ]*/
35:
36: /*
37: * AUTHORS
38: *
39: * Maurice Castro
40: * Russell Lang
41: *
42: * Send your comments or suggestions to
43: * info-gnuplot@dartmouth.edu.
44: * This is a mailing list; to join it send a note to
45: * majordomo@dartmouth.edu.
46: * Send bug reports to
47: * bug-gnuplot@dartmouth.edu.
48: */
49:
50: /* This file implements the initialization code for running gnuplot */
51: /* under Microsoft Windows. The code currently compiles only with the */
52: /* Borland C++ 3.1 compiler.
53: /* */
54: /* The modifications to allow Gnuplot to run under Windows were made */
55: /* by Maurice Castro. (maurice@bruce.cs.monash.edu.au) 3 Jul 1992 */
56: /* and Russell Lang (rjl@monu1.cc.monash.edu.au) 30 Nov 1992 */
57: /* */
58:
59: #define STRICT
60: #include <windows.h>
61: #include <windowsx.h>
62: #include <dos.h>
63: #include <stdio.h>
64: #include <stdlib.h>
65: #include <string.h>
66: #include <stdarg.h>
67: #include <ctype.h>
68: #ifdef __MSC__
69: #include <malloc.h>
70: #else
71: # ifdef __TURBOC__ /* HBB 981201: MinGW32 doesn't have this */
72: #include <alloc.h>
73: #endif
74: #endif
75: #include <io.h>
76: #include "plot.h"
77: #include "setshow.h"
78: #include "wgnuplib.h"
79: #include "wtext.h"
80:
81: /* limits */
82: #define MAXSTR 255
83: #define MAXPRINTF 1024
84:
85: /* globals */
86: TW textwin;
87: GW graphwin;
88: PW pausewin;
89: MW menuwin;
90: LPSTR szModuleName;
91: LPSTR winhelpname;
92: LPSTR szMenuName;
93: #define MENUNAME "wgnuplot.mnu"
94: #ifndef HELPFILE /* HBB 981203: makefile.win predefines this... */
95: #define HELPFILE "wgnuplot.hlp"
96: #endif
97:
98: extern char version[];
99: extern char patchlevel[];
100: extern char date[];
101: /*extern char *authors[];*/
102: char *authors[]={
103: "Colin Kelly",
104: "Thomas Williams"
105: };
106:
107: extern char gnuplot_copyright[];
108: void WinExit(void);
109: int gnu_main(int argc, char *argv[], char *env[]);
110:
111: void
112: CheckMemory(LPSTR str)
113: {
114: if (str == (LPSTR)NULL) {
115: MessageBox(NULL, "out of memory", "gnuplot", MB_ICONSTOP | MB_OK);
116: exit(1);
117: }
118: }
119:
120: int
121: Pause(LPSTR str)
122: {
123: pausewin.Message = str;
124: return (PauseBox(&pausewin) == IDOK);
125: }
126:
127: /* atexit procedure */
128: void
129: WinExit(void)
130: {
131: term_reset();
132:
133: #ifndef __MINGW32__ /* HBB 980809: FIXME: doesn't exist for MinGW32. So...? */
134: fcloseall();
135: #endif
136: if (graphwin.hWndGraph && IsWindow(graphwin.hWndGraph))
137: GraphClose(&graphwin);
138: TextMessage(); /* process messages */
139: WinHelp(textwin.hWndText,(LPSTR)winhelpname,HELP_QUIT,(DWORD)NULL);
140: TextClose(&textwin);
141: TextMessage(); /* process messages */
142: return;
143: }
144:
145: /* call back function from Text Window WM_CLOSE */
146: int CALLBACK WINEXPORT
147: ShutDown(void)
148: {
149: WinExit();
150: exit(0);
151: return 0;
152: }
153:
154: int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
155: LPSTR lpszCmdLine, int nCmdShow)
156: {
157: /*WNDCLASS wndclass;*/
158: LPSTR tail;
159:
160: #ifdef __MSC__ /* MSC doesn't give us _argc and _argv[] so ... */
161: #define MAXCMDTOKENS 128
162: int _argc=0;
163: LPSTR _argv[MAXCMDTOKENS];
164: _argv[_argc] = "wgnuplot.exe";
165: _argv[++_argc] = _fstrtok( lpszCmdLine, " ");
166: while (_argv[_argc] != NULL)
167: _argv[++_argc] = _fstrtok( NULL, " ");
168: #endif /* __MSC__ */
169:
170: szModuleName = (LPSTR)farmalloc(MAXSTR+1);
171: CheckMemory(szModuleName);
172:
173: /* get path to EXE */
174: GetModuleFileName(hInstance, (LPSTR) szModuleName, MAXSTR);
175: #ifndef WIN32
176: if (CheckWGNUPLOTVersion(WGNUPLOTVERSION)) {
177: MessageBox(NULL, "Wrong version of WGNUPLOT.DLL", szModuleName, MB_ICONSTOP | MB_OK);
178: exit(1);
179: }
180: #endif
181: if ((tail = (LPSTR)_fstrrchr(szModuleName,'\\')) != (LPSTR)NULL)
182: {
183: tail++;
184: *tail = 0;
185: }
186: szModuleName = (LPSTR)farrealloc(szModuleName, _fstrlen(szModuleName)+1);
187: CheckMemory(szModuleName);
188:
189: winhelpname = (LPSTR)farmalloc(_fstrlen(szModuleName)+_fstrlen(HELPFILE)+1);
190: CheckMemory(winhelpname);
191: _fstrcpy(winhelpname,szModuleName);
192: _fstrcat(winhelpname,HELPFILE);
193:
194: szMenuName = (LPSTR)farmalloc(_fstrlen(szModuleName)+_fstrlen(MENUNAME)+1);
195: CheckMemory(szMenuName);
196: _fstrcpy(szMenuName,szModuleName);
197: _fstrcat(szMenuName,MENUNAME);
198:
199: textwin.hInstance = hInstance;
200: textwin.hPrevInstance = hPrevInstance;
201: textwin.nCmdShow = nCmdShow;
202: textwin.Title = "gnuplot";
203: textwin.IniFile = "wgnuplot.ini";
204: textwin.IniSection = "WGNUPLOT";
205: textwin.DragPre = "load '";
206: textwin.DragPost = "'\n";
207: textwin.lpmw = &menuwin;
208: textwin.ScreenSize.x = 80;
209: textwin.ScreenSize.y = 80;
210: textwin.KeyBufSize = 2048;
211: textwin.CursorFlag = 1; /* scroll to cursor after \n & \r */
212: textwin.shutdown = MakeProcInstance((FARPROC)ShutDown, hInstance);
213: textwin.AboutText = (LPSTR)farmalloc(1024);
214: CheckMemory(textwin.AboutText);
215: sprintf(textwin.AboutText,"Version %s\nPatchlevel %s\nLast Modified %s\n%s\n%s, %s and many others",
216: version, patchlevel, date, gnuplot_copyright, authors[1], authors[0]);
217: textwin.AboutText = (LPSTR)farrealloc(textwin.AboutText, _fstrlen(textwin.AboutText)+1);
218: CheckMemory(textwin.AboutText);
219:
220: menuwin.szMenuName = szMenuName;
221:
222: pausewin.hInstance = hInstance;
223: pausewin.hPrevInstance = hPrevInstance;
224: pausewin.Title = "gnuplot pause";
225:
226: graphwin.hInstance = hInstance;
227: graphwin.hPrevInstance = hPrevInstance;
228: graphwin.Title = "gnuplot graph";
229: graphwin.lptw = &textwin;
230: graphwin.IniFile = textwin.IniFile;
231: graphwin.IniSection = textwin.IniSection;
232: graphwin.color=TRUE;
233: graphwin.fontsize = WINFONTSIZE;
234:
235: if (TextInit(&textwin))
236: exit(1);
237: textwin.hIcon = LoadIcon(hInstance, "TEXTICON");
238: #ifdef WIN32
239: SetClassLong(textwin.hWndParent, GCL_HICON, (DWORD)textwin.hIcon);
240: #else
241: SetClassWord(textwin.hWndParent, GCW_HICON, (WORD)textwin.hIcon);
242: #endif
243: if (_argc>1) {
244: int i,noend=FALSE;
245: for (i=0; i<_argc; ++i)
246: if (!stricmp(_argv[i],"-noend") || !stricmp(_argv[i],"/noend"))
247: noend = TRUE;
248: if (noend)
249: ShowWindow(textwin.hWndParent, textwin.nCmdShow);
250: }
251: else
252: ShowWindow(textwin.hWndParent, textwin.nCmdShow);
253: if (IsIconic(textwin.hWndParent)) { /* update icon */
254: RECT rect;
255: GetClientRect(textwin.hWndParent, (LPRECT) &rect);
256: InvalidateRect(textwin.hWndParent, (LPRECT) &rect, 1);
257: UpdateWindow(textwin.hWndParent);
258: }
259:
260:
261: atexit(WinExit);
262:
263: gnu_main(_argc, _argv, environ);
264:
265: return 0;
266: }
267:
268:
269: /* replacement stdio routines that use Text Window for stdin/stdout */
270: /* WARNING: Do not write to stdout/stderr with functions not listed
271: in win/wtext.h */
272:
273: #undef kbhit
274: #undef getche
275: #undef getch
276: #undef putch
277:
278: #undef fgetc
279: #undef getchar
280: #undef getc
281: #undef fgets
282: #undef gets
283:
284: #undef fputc
285: #undef putchar
286: #undef putc
287: #undef fputs
288: #undef puts
289:
290: #undef fprintf
291: #undef printf
292: #undef vprintf
293: #undef vfprintf
294:
295: #undef fwrite
296: #undef fread
297:
298: #if defined(__MSC__)|| defined(WIN32)
299: #define isterm(f) (f==stdin || f==stdout || f==stderr)
300: #else
301: #define isterm(f) isatty(fileno(f))
302: #endif
303:
304: int
305: MyPutCh(int ch)
306: {
307: return TextPutCh(&textwin, (BYTE)ch);
308: }
309:
310: int
311: MyKBHit(void)
312: {
313: return TextKBHit(&textwin);
314: }
315:
316: int
317: MyGetCh(void)
318: {
319: return TextGetCh(&textwin);
320: }
321:
322: int
323: MyGetChE(void)
324: {
325: return TextGetChE(&textwin);
326: }
327:
328: int
329: MyFGetC(FILE *file)
330: {
331: if (isterm(file)) {
332: return MyGetChE();
333: }
334: return fgetc(file);
335: }
336:
337: char *
338: MyGetS(char *str)
339: {
340: TextPutS(&textwin,"\nDANGER: gets() used\n");
341: MyFGetS(str,80,stdin);
342: if (strlen(str) > 0
343: && str[strlen(str)-1]=='\n')
344: str[strlen(str)-1] = '\0';
345: return str;
346: }
347:
348: char *
349: MyFGetS(char *str, unsigned int size, FILE *file)
350: {
351: char FAR *p;
352: if (isterm(file)) {
353: p = TextGetS(&textwin, str, size);
354: if (p != (char FAR *)NULL)
355: return str;
356: return (char *)NULL;
357: }
358: return fgets(str,size,file);
359: }
360:
361: int
362: MyFPutC(int ch, FILE *file)
363: {
364: if (isterm(file)) {
365: MyPutCh((BYTE)ch);
366: TextMessage();
367: return ch;
368: }
369: return fputc(ch,file);
370: }
371:
372: int
373: MyFPutS(char *str, FILE *file)
374: {
375: if (isterm(file)) {
376: TextPutS(&textwin, str);
377: TextMessage();
378: return (*str); /* different from Borland library */
379: }
380: return fputs(str,file);
381: }
382:
383: int
384: MyPutS(char *str)
385: {
386: TextPutS(&textwin, str);
387: MyPutCh('\n');
388: TextMessage();
389: return 0; /* different from Borland library */
390: }
391:
392: int MyFPrintF(FILE *file, char *fmt, ...)
393: {
394: int count;
395: va_list args;
396: va_start(args,fmt);
397: if (isterm(file)) {
398: char buf[MAXPRINTF];
399: count = vsprintf(buf,fmt,args);
400: TextPutS(&textwin,buf);
401: }
402: else
403: count = vfprintf(file, fmt, args);
404: va_end(args);
405: return count;
406: }
407:
408: int MyPrintF(char *fmt, ...)
409: {
410: int count;
411: char buf[MAXPRINTF];
412: va_list args;
413: va_start(args,fmt);
414: count = vsprintf(buf,fmt,args);
415: TextPutS(&textwin,buf);
416: va_end(args);
417: return count;
418: }
419:
420: size_t MyFWrite(const void *ptr, size_t size, size_t n, FILE *file)
421: {
422: if (isterm(file)) {
423: size_t i;
424: for (i=0; i<n; i++)
425: TextPutCh(&textwin, ((BYTE *)ptr)[i]);
426: TextMessage();
427: return n;
428: }
429: return fwrite(ptr, size, n, file);
430: }
431:
432: size_t MyFRead(void *ptr, size_t size, size_t n, FILE *file)
433: {
434: if (isterm(file)) {
435: size_t i;
436: for (i=0; i<n; i++)
437: ((BYTE *)ptr)[i] = TextGetChE(&textwin);
438: TextMessage();
439: return n;
440: }
441: return fread(ptr, size, n, file);
442: }
443:
444: /* public interface to printer routines : Windows PRN emulation
445: * (formerly in win.trm)
446: */
447:
448: #define MAX_PRT_LEN 256
449: static char win_prntmp[MAX_PRT_LEN+1];
450:
451: extern GW graphwin;
452:
453: FILE *
454: open_printer()
455: {
456: char *temp;
457: if ((temp = getenv("TEMP")) == (char *)NULL)
458: *win_prntmp='\0';
459: else {
460: strncpy(win_prntmp,temp,MAX_PRT_LEN);
461: /* stop X's in path being converted by mktemp */
462: for (temp=win_prntmp; *temp; temp++)
463: *temp = tolower(*temp);
464: if ( strlen(win_prntmp) && (win_prntmp[strlen(win_prntmp)-1]!='\\') )
465: strcat(win_prntmp,"\\");
466: }
467: strncat(win_prntmp, "_gptmp",MAX_PRT_LEN-strlen(win_prntmp));
468: strncat(win_prntmp, "XXXXXX",MAX_PRT_LEN-strlen(win_prntmp));
469: mktemp(win_prntmp);
470: return fopen(win_prntmp, "w");
471: }
472:
473: void
474: close_printer(FILE *outfile)
475: {
476: fclose(outfile);
477: DumpPrinter(graphwin.hWndGraph, graphwin.Title, win_prntmp);
478: }
479:
480: void
481: screen_dump(void)
482: {
483: GraphPrint(&graphwin);
484: }
485:
486:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to winmain.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / win