Return to wgnuplib.c CVS log

Up to [local] / OpenXM_contrib / gnuplot / win

Annotation of OpenXM_contrib/gnuplot/win/wgnuplib.c, Revision 1.1.1.1

1.1       maekawa     1: #ifndef lint
                      2: static char *RCSid = "$Id: wgnuplib.c,v 1.5 1998/03/22 22:35:27 drd Exp $";
                      3: #endif
                      4:
                      5: /* GNUPLOT - win/wgnuplib.c */
                      6: /*[
                      7:  * Copyright 1992, 1993, 1998   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:  *   Russell Lang
                     40:  *
                     41:  * Send your comments or suggestions to
                     42:  *  info-gnuplot@dartmouth.edu.
                     43:  * This is a mailing list; to join it send a note to
                     44:  *  majordomo@dartmouth.edu.
                     45:  * Send bug reports to
                     46:  *  bug-gnuplot@dartmouth.edu.
                     47:  */
                     48:
                     49: #define STRICT
                     50: #include <ctype.h>
                     51: #include <windows.h>
                     52: #include <windowsx.h>
                     53: #include "wgnuplib.h"
                     54: #include "wresourc.h"
                     55: #include "wcommon.h"
                     56:
                     57: HINSTANCE hdllInstance;
                     58: LPSTR szParentClass = "wgnuplot_parent";
                     59: LPSTR szTextClass = "wgnuplot_text";
                     60: LPSTR szPauseClass = "wgnuplot_pause";
                     61: LPSTR szGraphClass = "wgnuplot_graph";
                     62:
                     63: /* Window ID */
                     64: struct WID {
                     65:        BOOL       used;
                     66:        HWND       hwnd;
                     67:        void FAR * ptr;
                     68: };
                     69: struct WID *widptr = NULL;
                     70: unsigned int nwid = 0;
                     71: HLOCAL hwid = 0;
                     72:
                     73: #ifdef __DLL__
                     74: int WDPROC
                     75: LibMain(HINSTANCE hInstance, WORD wDataSeg, WORD wHeapSize, LPSTR lpszCmdLine)
                     76: {
                     77:        hdllInstance = hInstance;
                     78:        return 1;
                     79: }
                     80:
                     81: int WDPROC
                     82: WEP(int nParam)
                     83: {
                     84:        return 1;
                     85: }
                     86:
                     87: BOOL WDPROC
                     88: CheckWGNUPLOTVersion(LPSTR str)
                     89: {
                     90: char mess[256];
                     91: LPSTR version;
                     92:        version = WGNUPLOTVERSION;
                     93:        if (lstrcmp(str,version)) {
                     94:                wsprintf(mess,"Incorrect DLL version\nExpected version   %s\nThis is version   %s",str,version);
                     95:                MessageBox(NULL, mess , "WGNUPLOT.DLL", MB_OK | MB_ICONSTOP | MB_TASKMODAL);
                     96:                return TRUE;
                     97:        }
                     98:        return FALSE;   /* Correct version */
                     99: }
                    100: #endif /* __DLL__ */
                    101:
                    102: void NEAR *
                    103: LocalAllocPtr(UINT flags, UINT size)
                    104: {
                    105: HLOCAL hlocal;
                    106:        hlocal = LocalAlloc(flags, size+1);
                    107:        return (char *)LocalLock(hlocal);
                    108: }
                    109:
                    110: void
                    111: LocalFreePtr(void NEAR *ptr)
                    112: {
                    113: HLOCAL hlocal;
                    114:        hlocal = LocalHandle(ptr);
                    115:        LocalUnlock(hlocal);
                    116:        LocalFree(hlocal);
                    117:        return;
                    118: }
                    119:
                    120:
                    121: /* ascii to int */
                    122: /* returns:
                    123:  *  A pointer to character past int if successful,
                    124:  *  otherwise NULL on failure.
                    125:  *  convert int is stored at pval.
                    126:  */
                    127: LPSTR
                    128: GetInt(LPSTR str, LPINT pval)
                    129: {
                    130: int val = 0;
                    131: BOOL negative = FALSE;
                    132: BOOL success = FALSE;
                    133: int ch;
                    134:        if (!str)
                    135:                return NULL;
                    136:        while ( (ch = *str)!=0 && isspace(ch) )
                    137:                str++;
                    138:        if (ch == '-') {
                    139:                negative = TRUE;
                    140:                str++;
                    141:        }
                    142:        while ( (ch = *str)!=0 && isdigit(ch) ) {
                    143:                success = TRUE;
                    144:                val = val * 10 + (ch - '0');
                    145:                str++;
                    146:        }
                    147:        if (success) {
                    148:                if (negative)
                    149:                        val = -val;
                    150:                *pval = val;
                    151:                return str;
                    152:        }
                    153:        return NULL;
                    154: }
                    155: