bear.prg

*:********************************************************************
*:
*:	Procedure file: bear2m.prg
*:	Contents:
*:		Class		Bear AS Session
*:		Method:	Init(lcFileName)
*:		Method:	Destroy
*:		Method:	LoadFiles
*:		Method:	LoadStrings(lcFileName)
*:		Method:	Process
*:		Method:	CheckWord(lcWord,lcTemplate,lnWordLen)
*:		Method:	Put(lcStr)
*:		Method:	PutH(lcStr)
*:		Method:	PutE(lcStr)
*:		Method:	Save
*:		Method:	FileHeader
*:		Method:	FileFooter
*:		Method:	ClassHeader(lcClassName,
*:		Method:	ProcHeader(lcName,lnType)
*:		Method:	MethodHeader(lcName)
*:		Method:	InLine(lcStr)
*:		Method:	RightTrim(m.cString)
*:		Method:	AdjustString(m.cString)
*:		Method:	Beautify(m.source)
*:		Method:	MakeOptions
*:		Method:	B2C(m.Val)
*:		Method:	FindFile(lcFile)
*:
*: Piva BEAR v.200 format 23.04.2006 16:06:45
*:********************************************************************
*
* Новый Bear
* Использует движок Beautify для преобразования текста и затем уже приглаживает по-моему
* может работать просто вместо Beautify.APP
* см. Опции OptionXXXXXXXX
*
* Пирожков В.В. 2006, piva@acmetelecom.ru
* 13:00, суббота, 18 марта 2006 г.
* Некоторые изменения и дополнения, доработка до 9-ки
* Сизов С.А., sergsizov@gmail.com
* 17:45, вторник, 11 июля 2006 г.

#Define CR					Chr(13)
#Define LF				  Chr(10)												&& ssa &&
#Define CRLF				Chr(13)+Chr(10)

#Define WORD_BREAK			" ()[]"+Chr(9)
#Define NOTE_MARK			"*:"
#Define INLINE_COMMENT		Chr(38)+Chr(38)
#Define Tab					Chr(9)

#Define ENV_FILENAME	1
#Define ENV_SIZE		2
#Define ENV_SELSTART	17
#Define ENV_SELEND		18
#Define ENV_TABWIDTH	21
#Define ENV_KIND		25

#Define MAX_INSERT 2^19												&& ssa && максимальный размер куска текста для вставки 
																							&& в окно редактора

#Define c_Message	.T.
#Define CONTENTS	.F.

*ssa*	 для версий ниже 8 раскомментировать лежащие ниже две строки
*ssa*	#Define GetWordNum WordNum
*ssa*	#Define GetWordCount Words

Lparameters  m.InFile, m.options

Private m.Symbol, m.File, m.mTemp, m.mOut, m.FPOutFile, m.FileType, m.TotalLines, m.ClassName, m.Flag

Local o As Bear Of bear2m2.prg
oBear = Createobject("Bear", m.InFile)
If Vartype(oBear)='O'
	With oBear
		If Pcount()=2 And Vartype(m.options)='C' And Len(m.options)=36
			.BeautifyMode = .T.
			.options = m.options
		Endif
		.Process()
		If .BeautifyMode
			Strtofile(.Source,.OutFile)
			Return .OutFile
		Else
			If Not Empty(.OutFile) And File(.OutFile)
				Erase (.OutFile)
			Endif
		Endif
	Endwith
Endif

*:********************************************************************
*:
*:	Class:	Bear	based on Session
*:
*:********************************************************************
Define Class Bear As Session
	Version = "v.250"
	Title = 'Bear 2'
	FoxTools = ""																			&& Файл FoxTools.FLL
	Keywords = ""																			&& Файл FDKeyWrd
	FD3FLL = ""																				&& Файл FD3.FLL
	
	DetachFoxTools = .T.															&& Отключать FoxTools после работы
	
	TabWidth = 4																			&& Размер табуляции
	TabStop = 50																			&& Колонка, по которой выравнивать строковый комментарий
	
	FileName = ""																			&& Имя причесываемого файла
	
	WHandle = 0																				&& Хэнл окна редактирования
	Position = 0																			&& Текущия позиция в редакторе
	FileSize = 0																			&& Размер файла
	SelStart = 0																			&& Позиция выделения
	SelEnd = 0
	Kind = 0																					&& Тип открытого окна - рекдатор или Snippet
	
	LinesCount = 0																		&& Служебные переменные управления массивами
	HeadersCount = 0
	
	Source = ""																				&& Где храним формируемый текст
	Header = ""																				&& Заголовок файла
	Footer = ""
	
	Level = 0																					&& Текущй уровен вложенности
	NextLevel = 0																			&& Следующий
	BaseLevel = 0																			&& Базовый (внутри классов)
	CurrentClass = ""																	&& Имя текущего класса
	IsComment = .F.																		&& Комментарий
	
	LineSize = 68																			&& Размер строки пробиваеомй звездами
	
	BeautifyMode = .F.																&& Вызов из меню как Beautify.APP
	options = ""																			&& Опции передаваемые Beautify
	InFile = ""																				&& входлящий файл для beautify
	OutFile = ""																			&& Выходной файл
	
	UseBeautify = .T.																	&& Использовать Beautfy для простого вызова
	FormatProcedures = .T.														&& Дописыает заголовки процедур и методов
	FormatClasses = .T.																&& Дописываает закоголовки определений классов
	FormatFile = .T.																	&& Дописывает заголовок файла
	
	MyIndent = .F.																		&& Моя (PiVa) система отступов
	* - можно отключить - если использется только режим Beautify
	
	* Опции Beautify.APP
	* Используются для простого вызова
	
	* 1 - UpperCase
	* 2 - LowerCase
	* 3 - MixedCase
	* 4 - NoChange
	
	OptionKeywords=3
	
	* 1 - UpperCase
	* 2 - LowerCase
	* 3 - Mach 1-st occetence
	* 4 - NoChange
	
	OptionSymbols=3
	
	* 1 - Tab
	* 2 - Spaces
	* 3 - NoChange
	
	OptionIndent = 1
	
	OptionSpaces = 1 && 4
	
	OptionExpandKeywords = .T.
	
	OptionCommentIndent = .F.
	OptionLineIndent = .T.
	OptionExtraProcedures = .F.
	OptionExtraDoCase = .T.
	
	Dimension aString[1], aHeader[1]
	
	*:********************************************************************
	*:
	*:	Method:	Init(lcFileName) of class Bear
	*:
	*:********************************************************************
	Procedure Init(lcFileName)
	With This
		Sys(3056)
		If Not .LoadFiles() Or Not .LoadStrings(lcFileName)
			Return .F.
		Endif
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	Destroy of class Bear
	*:
	*:********************************************************************
	Procedure Destroy
	With This
		If .DetachFoxTools
			Release Library (.FoxTools)
		Endif
		Use In Select("Keywords")
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	LoadFiles of class Bear
	*:
	*:********************************************************************
	Procedure LoadFiles
	Set Library To Sys(2004)+'FoxTools' Additive
	If "FOXTOOLS.FLL" $ Set('library')
		.DetachFoxTools = .T.
		.Foxtools = Sys(2004)+'FOXTOOLS.FLL'
	Endif
	Return .DetachFoxTools
	
	*:********************************************************************
	*:
	*:	Method:	LoadStrings(lcFileName) of class Bear
	*:
	*:********************************************************************
	Procedure LoadStrings(lcFileName)
	With This
		Local lcSource
		If Empty(lcFileName)
			.WHandle = _WOnTop()
			If .WHandle < 1
				Return .F.
			Endif
			Local laFileInfo[25]
			
			_EdGetEnv(.WHandle, @laFileInfo)
			.Kind = laFileInfo[ENV_KIND]
			
			If .Kind<1
				Messagebox("Текущее окно не являтеся окном редактора FoxPro", 16, .Title)
				Return .F.
			Endif
			
			.Position = _EdGetPos(.WHandle)
			
			.SelStart	= laFileInfo[ENV_SELSTART]
			.SelEnd		= laFileInfo[ENV_SELEND]
			.FileName	= laFileInfo[ENV_FILENAME]
			.FileSize	= laFileInfo[ENV_SIZE]
			.TabWidth	= laFileInfo[ENV_TABWIDTH]
			
			* Черт прошлый раз не допер как выдернуть весь текст сразу
			lcSource = _EdGetStr(.WHandle, 0, .FileSize)
		Else
			If Not File(lcFileName)
				Error 1,lcFileName
				Return .F.
			Endif
			.FileName = lcFileName
			lcSource = Filetostr(lcFileName)
		Endif
		If .BeautifyMode Or .UseBeautify
			If Not .Beautify(lcSource)
				Return .F.
			Endif
		Else
			.LinesCount = Alines(.aString, lcSource, .T.)
		Endif
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	Process of class Bear
	*:
	*:********************************************************************
	Procedure Process
	With This
		Local lnCount, lcStr, lcClassName, lnLevel
		Local laWords[1], lnWords
		
		Dimension .aHeader[1]
		.HeadersCount=0
		
		.Source=""
		
		lcPreText=""
		.Level=0
		.NextLevel=0
		.BaseLevel=0
		
		For lnCount=1 To .LinesCount
			lnLevel=0
			lcStr=.aString[lnCount]
			If Empty(lcStr)
				.Put()
				Loop
			Endif
			lcStr = Alltrim(lcStr, Tab)				&& ssa  && если надо и пробелы убрать, то добавить третий параметр ' ' (то бишь пробел :) )
			Alines(laWord, lcStr, 1+8, ' ')			&&WORD_BREAK может глянуть в эту сторону?
			
			If 	.FormatClasses ;
				and .CheckWord(laWord[1],'DEFINE') ;
				and .CheckWord(laWord[2],'CLASS')
				
				.CurrentClass=laWord[3]
				
				.Level=0
				.NextLevel=0
				.BaseLevel=0
				lnLevel=1
				
				.ClassHeader(laWord[3],laWord[5])
				
			Endif
			
			If .FormatProcedures ;
				and .CheckWord(laWord[1],"PROTECTED") ;
				or .CheckWord(laWord[1],"HIDDEN")
				
				If .CheckWord(laWord[2],"PROCEDURE") ;
					or .CheckWord(laWord[2],"FUNCTION") ;
					
					.Level=0
					.ProcHeader(laWord[3],Atc(laWord[3],"FUNCTION"))
					.NextLevel=0
					
				Endif
			Endif
			
			If .FormatProcedures ;
				and .CheckWord(laWord[1],"PROCEDURE") ;
				or .CheckWord(laWord[1],"FUNCTION") ;
				
				.Level=0
				.ProcHeader(laWord[2], Atc("FUNCTION", laWord[1]))
				.NextLevel=0
				
			Endif
			
			If (.FormatProcedures ;
				or .FormatClasses ;
				or .FormatFile ) ;
				and laWord[1]=NOTE_MARK
				Loop
			Endif
			
			If Not .MyIndent
				.Put(.aString[lnCount])				&& ssa && сразу видно, что при .MyIndent=.f. тестов не было :)
				Loop
			Endif
			
			* Коментарий или продолжения комментария
			If .IsComment Or Left(laWord[1],1)='*' Or (Upper(laWord[1])="NOTE" And Len(laWord[1])=4)
				.Put(lcStr)
				.IsComment=Right(Getwordnum(lcStr,Getwordcount(lcStr,WORD_BREAK),WORD_BREAK),1)=";"
				Loop
			Endif
			
			If 	.CheckWord(laWord[1],'ENDDEFINE')
				.CurrentClass=""
				.BaseLevel=0
				.Level=0
				.NextLevel=0
			Endif
			
			If .CheckWord(laWord[1],'IF') ;
				or .CheckWord(laWord[1],'FOR') ;
				or .CheckWord(laWord[1],'SCAN') ;
				or .CheckWord(laWord[1],'WITH') ;
				or .CheckWord(laWord[1],'TRY') ;
				or .CheckWord(laWord[1],'CATCH') ;
				or .CheckWord(laWord[1],'PRINTJOB') ;
				or .CheckWord(laWord[1],'#IF') ;
				or .CheckWord(laWord[1],'#IFDEF') ;
				or .CheckWord(reduce(laWord[1]),'DO WHIL') ;
				or .CheckWord(reduce(laWord[1]),'DO CASE')
*ssa*					or (.CheckWord(laWord[1],'DO',2) ;
*ssa*					and (.CheckWord(laWord[2],'WHILE',4) ;
*ssa*					or .CheckWord(laWord[2],'CASE',4)))
				
				.NextLevel=.NextLevel+1
				
			Endif
			
			If .CheckWord(laWord[1],'ELSE') ;
				or .CheckWord(laWord[1],'CASE') ;
				or .CheckWord(laWord[1],'CATCH') ;
				or .CheckWord(laWord[1],'FINALLY') ;
				or .CheckWord(laWord[1],'#ELIF') ;
				or .CheckWord(laWord[1],'#ELSE') ;
				
				.Level=.Level-1
				*				.NextLevel=.NextLevel+1
				
			Endif
			
			If .CheckWord(laWord[1],'ENDIF') ;
				or .CheckWord(laWord[1],'ENDCASE') ;
				or .CheckWord(laWord[1],'ENDTRY') ;
				or .CheckWord(laWord[1],'ENDDO') ;
				or .CheckWord(laWord[1],'ENDFOR') ;
				or .CheckWord(laWord[1],'ENDWITH') ;
				or .CheckWord(laWord[1],'NEXT') ;
				or .CheckWord(laWord[1],'#ENDIF') ;
				or .CheckWord(laWord[1],'ENDSCAN')	&& ssa && + просто забытая строка :)
				
				.Level=.Level-1
				.NextLevel=.NextLevel-1
				
			Endif
			
			If .CheckWord(laWord[1],'ENDPROC') ;
				or .CheckWord(laWord[1],'ENDFUNC') ;
				
				.Level=0
				.NextLevel=0
				
			Endif
			
			If Atc(INLINE_COMMENT,lcStr)>0
				lcStr=Replicate(Tab,Max(.BaseLevel+.Level,0))+lcStr
				lcStr=.InLine(lcStr)
				.Source=.Source+lcStr+CRLF
			Else
				.Put(lcStr)
			Endif
			
			.Level=.NextLevel
			
			If Not Empty(lnLevel)
				.BaseLevel=lnLevel
			Endif
			
		Next
		If .FormatFile
			.FileHeader()
			.FileFooter()
		Endif
		
		.Source=.Header+.Source+.Footer
		.Save()
		
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	CheckWord(lcWord,lcTemplate,lnWordLen) of class Bear
	*:
	*:********************************************************************
	Procedure CheckWord(lcWord,lcTemplate,lnWordLen)
	Return lcTemplate=Upper(Left(lcWord, Len(lcTemplate)))
	
	*:********************************************************************
	*:
	*:	Method:	Put(lcStr) of class Bear
	*:
	*:********************************************************************
	Procedure Put(lcStr)
	With This
		.Source = .Source+Replicate(Tab,Max(.BaseLevel+.Level, 0))+Iif(Empty(lcStr),"",lcStr)+CRLF
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	PutH(lcStr) of class Bear
	*:
	*:********************************************************************
	Procedure PutH(lcStr)
	With This
		.Header = .Header+Iif(Empty(lcStr),"",lcStr)+CRLF
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	PutE(lcStr) of class Bear
	*:
	*:********************************************************************
	Procedure PutE(lcStr)
	With This
		.Footer = .Footer+Iif(Empty(lcStr),"",lcStr)+CRLF
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	Save of class Bear
	*:
	*:********************************************************************
	Procedure Save
	With This
		If .BeautifyMode
			Strtofile(.Source, .OutFile)
			Return .T.
		Endif
		
		* Было откыто окно редактора
		If Not Empty(.WHandle)
			_EdUndoOn(.WHandle,.T.)											&& Включили режим UNDO для 1 изменения текста
			_EdSelect(.WHandle,0,.FileSize)							&& Выбрали весть текст
			_EdDelete(.WHandle)													&& Все удалили
*ssa*	  при обработке больших файлов вылезло ограничение на размер вставляемого блока.
*ssa*	  пришлось лепить вставку частями
			If Len(.Source) > MAX_INSERT
				For i=1 to Int(Len(.Source)/MAX_INSERT)
					_EdInsert(.WHandle, Substr(.Source, (i-1)*MAX_INSERT+1, MAX_INSERT), MAX_INSERT)
				Next
				_EdInsert(.WHandle,Right(.Source,Len(.Source)%MAX_INSERT), Len(.Source)%MAX_INSERT)
			Else 
				_EdInsert(.WHandle,.Source,Len(.Source))		&& Вставили отформатированыый текст
			EndIf
			_EdUndoOn(.WHandle,.F.)											&& Выключили UNDO
			_EdSetPos(.WHandle,.Position)								&& Встали на позицию
			_EdStoPos(.WHandle,.Position,.T.)						&& Передвинули указатель на эту позицию
		Else
			* Если передавали имя файла - то его и переписываем
			Strtofile(.Source, .FileName, 0)
		Endif
	Endwith
		
	*:********************************************************************
	*:
	*:	Method:	FileHeader of class Bear
	*:
	*:********************************************************************
	Procedure FileHeader
	With This
		.PutH(NOTE_MARK+Replicate("*",.LineSize))
		.PutH(NOTE_MARK)
		
		If .Kind=1
			.PutH(NOTE_MARK+Tab+"Procedure file: "+.FileName)
		Endif
		If .HeadersCount>0
			.PutH(NOTE_MARK+Tab+"Contents:")
			For i=1 To .HeadersCount
				.PutH(NOTE_MARK+Tab+Tab+.aHeader[i])
			Next
		Endif
		.PutH(NOTE_MARK)
		.PutH(NOTE_MARK+" Piva BEAR "+.Version+" format "+Transform(Datetime()))
		.PutH(NOTE_MARK+Replicate("*",.LineSize))
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	FileFooter of class Bear
	*:
	*:********************************************************************
	Procedure FileFooter
	With This
		If .Kind=1
			.PutE(NOTE_MARK+" End of : "+.FileName)
		Endif
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	ClassHeader(lcClassName, of class Bear
	*:
	*:********************************************************************
	Procedure ClassHeader(lcClassName, lcBaseClass)
	With This
		.HeadersCount = .HeadersCount + 1
		Dimension .aHeader[.HeadersCount]
		.aHeader[.HeadersCount]="Class"+Tab+Tab+lcClassName+" AS "+lcBaseClass
		
		.Put(NOTE_MARK+Replicate("*",.LineSize))
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Tab+"Class:"+Tab+lcClassName+Tab+"based on "+lcBaseClass)
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Replicate("*",.LineSize))
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	ProcHeader(lcName,lnType) of class Bear
	*:
	*:********************************************************************
	Procedure ProcHeader(lcName,lnType)
	With This
		If Not Empty(.CurrentClass)
			Return .MethodHeader(lcName)
		Endif
		
		.HeadersCount = .HeadersCount + 1
		Dimension .aHeader[.HeadersCount]
		.aHeader[.HeadersCount] = Iif(Bittest(lnType,0),"Function:","Procedure:")+Tab+lcName
		
		.Put(NOTE_MARK+Replicate("*",.LineSize))
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Tab+Iif(Bittest(lnType,0),"Function:","Procedure:")+Tab+lcName)
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Replicate("*",.LineSize))
		
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	MethodHeader(lcName) of class Bear
	*:
	*:********************************************************************
	Procedure MethodHeader(lcName)
	With This
		.HeadersCount = .HeadersCount + 1
		Dimension .aHeader[.HeadersCount]
		.aHeader[.HeadersCount] = "Method:"+Tab+lcName
		
		.Put(NOTE_MARK+Replicate("*",.LineSize))
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Tab+"Method:"+Tab+lcName+" of class "+.CurrentClass)
		.Put(NOTE_MARK)
		.Put(NOTE_MARK+Replicate("*",.LineSize))
		
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	InLine(lcStr) of class Bear
	*:
	*:********************************************************************
	Procedure InLine(lcStr)
	With This
		* Если комментарий уже вставлен
		If INLINE_COMMENT $ lcStr										&& ssa  && ? наверху есть #Define INLINE_COMMENT		Chr(38)+Chr(38)
			Local lnCommentPos, lcSuffix
			lnCommentPos = At(INLINE_COMMENT, lcStr)				&& ssa &&  тем более, что здесь он вспомнился :)
			lcSuffix = .RightTrim(Substr(lcStr, lnCommentPos))
			lcStr = .RightTrim(Left(lcStr, lnCommentPos-1))	&& ssa &&  Substr(lcStr,1,lnCommentPos-1)) на left()
			If Not Empty(lcSuffix)
				lcStr = .AdjustString(lcStr)+lcSuffix
			Endif
		Endif
		Return lcStr
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	RightTrim(m.cString) of class Bear
	*:
	*:********************************************************************
	Procedure RightTrim(m.cString)
	* Remove all trailing spaces and tabs and whitespace
	If Version(5)<900
		Local i,c
		c =  Chrtran(m.cString, CRLF, '')
		For i=Len(m.cString) To 1 Step -1
			If Inlist(Asc(Substr(m.c,i-1,1)),32,9,160)
				m.c = Left(m.c,i-1)
			Else
				Exit
			Endif
		Next
		Return m.c
	else
		Return Rtrim(m.cString, CR, LF, Chr(32), Tab, Chr(160))
	EndIf
	
	*:********************************************************************
	*:
	*:	Method:	AdjustString(m.cString) of class Bear
	*:
	*:********************************************************************
	Procedure AdjustString(m.cString)
	* Выравнивание строки до позиции вставки комментария
*ssa*		Local i, m.pos
*ssa*		m.pos = 0
*ssa*		For i=1 To Len(m.cString)
*ssa*			m.pos = Iif(Substr(m.cString,i,1)=Tab, Int((m.pos-1+.TabWidth)/.TabWidth)*.TabWidth+1, m.pos + 1)
*ssa*		Next
*ssa*		If m.pos < .TabStop
*ssa*			* Добить строку табуляцией
*ssa*			i = Len(m.cString)
*ssa*			Do While m.pos < .TabStop-.TabWidth
*ssa*				m.cString = m.cString+Tab
*ssa*				* Вот нафига нужен -1 я так и не понял :))
*ssa*				m.pos = (Int((m.pos-1+.TabWidth)/.TabWidth)*.TabWidth)+1
*ssa*			Enddo
*ssa*		Else
*ssa*			* Добавить 1 табуляцию
*ssa*			m.cString = m.cString+Tab
*ssa*		Endif
*ssa*		Return m.cString
	Return Padr(m.cString, ;
		Max(.TabStop-1-Iif(.OptionIndent=2, 0, Int((.TabStop-1-Len(m.cString))/.TabWidth)), Len(m.cString)+1), ;
		Iif(.OptionIndent=1, Tab, ' '))
	*:********************************************************************
	*:
	*:	Method:	Beautify(m.source) of class Bear
	*:
	*:********************************************************************
	Procedure Beautify(m.source)
	* Код системного Beautify
	With This
		m.Keywords = .FindFile("FDKEYWRD.DBF")
		m.FD3FLL = .FindFile("FD3.FLL")
		
		Local fsuccess, m.OutFile, m.InFile, xrefname, m.options
		Local M.errlogfile, moldlogerrors
		If File(m.Keywords) And File(m.FD3FLL)
			m.options=.MakeOptions()
			Use (m.Keywords) In 0  Again Alias fdkeywrd Order token
			Select fdkeywrd
			Set Library To (m.FD3FLL) Additive
			m.InFile = Sys(2023)+"\"+Substr(Sys(2015), 3, 10)+".TMP"
			Strtofile(m.source,m.InFile)
			m.OutFile = Sys(2023)+"\"+Substr(Sys(2015), 3, 10)+".TMP"
			
			If (Substr(m.options, 1, 1)=Chr(3))
				m.xrefname = "FDXREF"
				
				Create Cursor (m.xrefname) ;
				( symbol 		c(65);
				, procname 		c(40);
				, Flag 			c(1);
				, Lineno 		N(5);
				, sniprecno 	N(5);
				, snipfld 		c(10);
				, sniplineno 	N(5);
				, Adjust 		N(5);
				, FileName 		c(161))
				
				Index On Flag Tag Flag
				Index On Upper(symbol)+Flag Tag symbol
			EndIf
			m.fsuccess = Beautify(m.InFile, m.OutFile, .options)
			Release Library (m.FD3FLL)
			Use In Select("fdxref")
			Use In Select("fdkeywrd")
			.LinesCount = Alines(.aString,Filetostr(m.OutFile),.T.)
			
			.InFile = m.InFile
			.OutFile = m.OutFile
			
			Erase (m.InFile)
		Endif
		Return m.fsuccess
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	MakeOptions of class Bear
	*:
	*:********************************************************************
	Procedure MakeOptions
	* Создание опций из Настроек проги
	With This
		If .BeautifyMode
			Return .options
		Endif
		Return  ;
		.B2C(.OptionSymbols)+;
		.B2C(.OptionKeywords)+;
		.B2C(.OptionSpaces)+;
		.B2C(.OptionIndent)+;
		.B2C(.OptionExpandKeywords)+;
		.B2C(.OptionCommentIndent)+;
		.B2C(.OptionLineIndent)+;
		.B2C(.OptionExtraProcedures)+;
		.B2C(.OptionExtraDoCase)
	Endwith
	
	*:********************************************************************
	*:
	*:	Method:	B2C(m.Val) of class Bear
	*:
	*:********************************************************************
	Procedure B2C(m.Val)
	m.Val=Iif(Vartype(m.Val)='L',Iif(m.Val,1,0),m.Val)
	If Version(5)<900
		Local m.Ret
		m.Ret=""
		Do While m.Val # 0
			m.Ret=m.Ret+Chr(Mod(m.Val,256))
			m.Val=Bitrshift(m.Val,8)
		Enddo
		Return Padr(m.Ret,4,Chr(0))
	Else
		Return BinToC(m.Val, '4rs')
	EndIf 
	
	*:********************************************************************
	*:
	*:	Method:	FindFile(lcFile) of class Bear
	*:
	*:********************************************************************
	Procedure FindFile(lcFile)
	With This
		If File(lcFile)
			Return lcFile
		Endif
		If File(Home()+lcFile)
			Return Home()+lcFile
		Endif
		If File(Home()+"wizards\"+lcFile)
			Return Home()+"wizards\"+lcFile
		Endif
		Return ""
	Endwith
	
Enddefine
*: End of : bear2m2.prg