FuzzyCLIPS 6.10d for windows的源代码

FuzzyCLIPS 6.10d for windows的源代码，和大家分享~

   /*******************************************************/
   /*      “C“ Language Integrated Production System      */
   /*                                                     */
   /*                  A Product Of The                   */
   /*             Software Technology Branch              */
   /*             NASA - Johnson Space Center             */
   /*                                                     */
   /*               CLIPS Version 6.00  01/01/93          */
   /*              IDE Text Editor 1.00  01/01/93         */
   /*                                                     */
   /*                   BALANCE MODULE                    */
   /*******************************************************/

/**************************************************************/
/* Purpose: Handle the Balance Command within an Edit Window  */
/*                                                            */
/* Principal Programmer（s）:                                   */
/*      Christopher J. Ortiz                                  */
/*      Gary Riley                                            */
/*                                                            */
/* Contributing Programmer（s）:                                */
/*                                                            */
/* Revision History:                                          */
/*                                                            */
/**************************************************************/

#include 
#include  // GDR

#include “ide_bal.h“
#include “ide_main.h“ // GDR

static void BalanceIt （ int int int int char* DWORD HWND ）;

/*******************************************************
* Balance: Handle Balance Command
********************************************************/
void Balance （
   HWND hWindow）

{  DWORD sel;
	int left_middle right_middle text_length;
	// HLOCAL textHandle; // GDR
	char *text_ptr;

	/*-----------------------------------------------------------+
	| Get information about the current selection to be balanced |
	+-----------------------------------------------------------*/

	sel = SendMessage （ hWindow EM_GETSEL 0 0 ）;
	left_middle = （int）LOWORD（sel）;
	right_middle= （int）HIWORD（sel）;
	// Begin GDR
	// textHandle  = （HLOCAL） SendMessage（hWindow EM_GETHANDLE 0 0）;
	// text_length = LocalSize （ textHandle ）;
	// text_ptr = LocalLock （ textHandle）;
	text_length = SendMessage（hWindowWM_GETTEXTLENGTH
									  00）;
	text_ptr = （char *） malloc（text_length+1）;
	if （text_ptr == NULL ）
	  {
		MessageBeep （ 0 ）;
		MessageBox （hWindow“Can not complete operation“
					“Memory Low“ MB_IConstop | MB_TASKMODAL ）;
		return;
	  }

	SendMessage（hWindowWM_GETTEXTtext_length+1
					（LPARAM） text_ptr）;
	// End GDR

	/*----------------------------------+
	| If the selection is empty then... |
   +----------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-01-25 00:00  fzclp610d\
     目录           0  2011-01-25 00:00  fzclp610d\Docs\
     文件      811008  2004-10-26 16:21  fzclp610d\Docs\FuzzyCLIPS10d.doc
     文件      384649  2004-10-26 16:21  fzclp610d\Docs\FuzzyCLIPS10d.pdf
     目录           0  2011-01-25 00:00  fzclp610d\FZEXMPL\
     文件        3441  1996-04-25 09:24  fzclp610d\FZEXMPL\BACKWD.CLP
     文件         507  1996-04-25 09:24  fzclp610d\FZEXMPL\BACKWD.OUT
     文件       47696  1996-12-04 09:40  fzclp610d\FZEXMPL\clipswin.csm
     文件        2086  2004-04-23 13:41  fzclp610d\FZEXMPL\fuzzify.clp
     文件        3678  1996-04-25 09:24  fzclp610d\FZEXMPL\FZCMPLR.CLP
     文件        5209  2004-10-06 15:39  fzclp610d\FZEXMPL\fzCmplr.dat
     文件        4072  1996-04-25 09:24  fzclp610d\FZEXMPL\FZCMPMOD.CLP
     文件        6230  1996-04-25 10:24  fzclp610d\FZEXMPL\LIN1ST.CLP
     文件        6712  1996-04-25 10:24  fzclp610d\FZEXMPL\LIN1STDL.CLP
     文件        3497  2001-09-17 09:52  fzclp610d\FZEXMPL\lin_1st.dat
     文件        3495  2001-09-17 09:52  fzclp610d\FZEXMPL\lin_1st1.dat
     文件       15473  1996-04-25 10:24  fzclp610d\FZEXMPL\SHWRNOUI.CLP
     文件         100  2004-10-21 09:19  fzclp610d\FZEXMPL\simpltst.bat
     文件        1743  1996-04-25 10:24  fzclp610d\FZEXMPL\SIMPLTST.CLP
     文件        1316  1998-10-26 17:22  fzclp610d\FZEXMPL\SIMPLTST.OUT
     文件        2430  1996-04-25 10:24  fzclp610d\FZEXMPL\SMPLTST2.CLP
     文件       56743  1998-08-08 12:45  fzclp610d\makefile
     目录           0  2011-01-25 00:00  fzclp610d\pc-prjct\
     目录           0  2011-01-25 00:00  fzclp610d\pc-prjct\borland\
     文件       83162  2001-08-12 22:59  fzclp610d\pc-prjct\borland\clips.hlp
     文件      589824  2004-10-25 15:31  fzclp610d\pc-prjct\borland\CLIPScmd.exe
     文件      295418  2004-10-25 15:32  fzclp610d\pc-prjct\borland\CLIPSCMD.IDE
     文件         724  2001-11-09 14:37  fzclp610d\pc-prjct\borland\clipscmdNOTE.txt
     文件       40960  2001-05-31 13:19  fzclp610d\pc-prjct\borland\CLIPSedt.exe
     文件       47468  2001-08-21 14:12  fzclp610d\pc-prjct\borland\CLIPSEDT.IDE
     文件      638976  2004-10-25 15:36  fzclp610d\pc-prjct\borland\CLIPSwin.exe
............此处省略1210个文件信息