-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
0 parents
commit a5f1930
Showing
5 changed files
with
759 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,6 @@ | ||
| /ref/ | ||
| *.bak | ||
| todo.todo | ||
| scratch | ||
| *.sublime-* | ||
| *.exe |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,382 @@ | ||
| #Region ;**** Directives created by AutoIt3Wrapper_GUI **** | ||
| #AutoIt3Wrapper_Icon=xypcre.ico | ||
| #AutoIt3Wrapper_Outfile=..\..\xypcre.exe | ||
| #AutoIt3Wrapper_Compression=0 | ||
| #AutoIt3Wrapper_UseUpx=y | ||
| #AutoIt3Wrapper_UseX64=n | ||
| #AutoIt3Wrapper_Res_Fileversion=1.1.0.8 | ||
| #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p | ||
| #AutoIt3Wrapper_Res_LegalCopyright=author: SammaySarkar | ||
| #AutoIt3Wrapper_Res_Language=1033 | ||
| #AutoIt3Wrapper_Res_Field=Productname|XYplorerPCRE | ||
| #AutoIt3Wrapper_Run_Tidy=y | ||
| #Tidy_Parameters=/tc 0 /reel /gd | ||
| #AutoIt3Wrapper_Tidy_Stop_OnError=n | ||
| #AutoIt3Wrapper_Run_Au3Stripper=y | ||
| #Au3Stripper_Parameters=/rm /so /rsln | ||
| #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** | ||
| ; Opt('TrayIconHide', 1) | ||
| Opt('GUIOnEventMode', 1) | ||
|
|
||
| ;if run without parameters, return programidentifier and quit | ||
| ;an alternative programidentifier is the productname property | ||
| If($CmdLine[0] == 0) Then | ||
| ConsoleWrite("XYplorerPCRE") | ||
| ; if 1st param is abort, close a misbehaving xypcre by hwnd | ||
| ElseIf($CmdLine[1] == 'abort') Then | ||
| If($CmdLine[2] <> '') Then WinKill(HWnd($CmdLine[2])) | ||
| ;close another xypcre by given hwnd (condition stops an error) | ||
| ElseIf($CmdLine[0] == 2) Then | ||
| Main() | ||
| EndIf | ||
| Exit | ||
|
|
||
| ;main program | ||
| Func Main() | ||
| Global Const $XYhWnd = $CmdLine[1] ; hwnd of calling XY process | ||
| Global Const $IFS = $CmdLine[2] ; session $IFS variable | ||
| Global Const $dwScript = 0x00400001 ; sent data as script | ||
| Global Const $dwString = 0x00400000 ; send data as string | ||
| Global $Data ; holds latest sent/received data | ||
| Global $pstep = -1 ; controls flow | ||
| Global $nstep = 0 ; controls flow | ||
| ;params | ||
| Global $op ; operation mode (0:match, 1:capture, 2: replace) | ||
| Global $string ; the source string | ||
| Global $pattern ; the regexp pattern | ||
| Global $replace ; replacement pattern | ||
| Global $sep ; separator for tokenized return | ||
| Global $format ; return format (escaping, layout scheme) | ||
| Global $index ; index of single token to return | ||
| ;strings | ||
| Global Const $matchErrStr = "pcrematch() error" | ||
| Global Const $replaceErrStr = "pcrereplace() error" | ||
| Global Const $captureErrStr = "pcrecapture() error" | ||
| Global Const $splitErrStr = "pcresplit() error" | ||
|
|
||
| Global Const $WM_COPYDATA = 0x004A ; msg ID of WM_COPYDATA (dec: 74) | ||
| Global Const $GUI_RUNDEFMSG = 'GUI_RUNDEFMSG' ;trigger autoit3 msg handler after own | ||
|
|
||
| Global Const $hWnd = Dec(StringTrimLeft(GUICreate("xypcre"), 2)) _;msggui hwnd | ||
| & '|' & WinGetHandle(AutoItWinGetTitle()) ;main gui hwnd | ||
| Global Const $hUser32dll = DllOpen("user32.dll") ; openonce dll for sending wm_copydata | ||
| GUIRegisterMsg($WM_COPYDATA, "IN_XYMSG") | ||
| ; GUISetState() ; GUI is hidden if commented out | ||
|
|
||
| ;MsgBox(0, "", "start") | ||
| $op = MsgWaiter($dwScript) ;get op mode | ||
| Switch $op | ||
| Case 0 | ||
| opMatch() | ||
| Case 1 | ||
| opCapture() | ||
| Case 2 | ||
| opReplace() | ||
| Case 3 | ||
| opSplit() | ||
| EndSwitch | ||
|
|
||
| DllClose($hUser32dll) ; close opened dll | ||
| Return | ||
| EndFunc ;==>Main | ||
|
|
||
| ;main data send/reception wait loop | ||
| ;send $Data with XY loopbreaker, wait for XY send,se received to $Data | ||
| Func MsgWaiter($dwdata) | ||
| ResetData() | ||
| OUT_XYMSG($Data, $dwdata) ; send $Data with loopbreaker | ||
| ;when XY send next msg, $Step is incremented to match $c | ||
| Do ; wait till then | ||
| ContinueLoop | ||
| Until $pstep == $nstep | ||
| $nstep += 1 ;set $step target for next dataloop | ||
| Return $Data ;assignable return | ||
| EndFunc ;==>MsgWaiter | ||
|
|
||
| ;fill $Data with XY IFS reset/loopbreaker script | ||
| Func ResetData() | ||
| $Data = "::perm " & $IFS & "=" & $hWnd | ||
| EndFunc ;==>ResetData | ||
|
|
||
| ;escape a string for $sep separator | ||
| Func SepEscape($str) | ||
| Local $s = StringSplit($sep, '', 2) | ||
| Local $u[UBound($s)] ;create unique char array with max length | ||
| Local $k = 0 ; $u resizer | ||
| For $i = 0 To UBound($s) - 1 | ||
| For $j = $i + 1 To UBound($s) - 1 | ||
| If $s[$j] == $s[$i] Then | ||
| $s[$j] = "" | ||
| EndIf | ||
| Next | ||
| ;fill $u with only unique chars | ||
| If($s[$i] <> '') Then | ||
| $u[$k] = $s[$i] | ||
| $k += 1 ; keep count of unique chars | ||
| $s[$i] = '' ;mamorysave ?s | ||
| EndIf | ||
| Next | ||
| ReDim $u[$k] ;remove extra $u length | ||
|
|
||
| For $i = 0 To UBound($u) - 1 | ||
| $str = StringReplace($str, $u[$i], '[' & $u[$i] & ']', 0, 1) | ||
| Next | ||
| Return $str | ||
| EndFunc ;==>SepEscape | ||
|
|
||
| Func opReplace() | ||
| $string = MsgWaiter($dwScript) | ||
| $pattern = MsgWaiter($dwScript) | ||
| $replace = MsgWaiter($dwScript) | ||
| ;all neceassary params received | ||
| ;send last $IFS reset, next transfer will be the result | ||
| ResetData() | ||
| OUT_XYMSG($Data, $dwScript) | ||
| ;sets $Data = final result | ||
| $Data = pcreReplace($string, $pattern, $replace) | ||
| $Data = $op & $Data ; prefix $op to identify result data | ||
| ;MsgBox(0, "sending", $Data) | ||
| OUT_XYMSG($Data, $dwString) ;send result as string | ||
| ;ResetData() ;maybe one last transfer of errors etc | ||
| ;OUT_XYMSG($Data, $XYhWnd, $dwScript) | ||
| Return | ||
| EndFunc ;==>opReplace | ||
| Func pcreReplace(ByRef $string, ByRef $pattern, ByRef $replace) | ||
| Local $result = StringRegExpReplace($string, $pattern, $replace) | ||
| Local $resultErr = @error | ||
| Local $resultExt = @extended | ||
|
|
||
| Switch $resultErr | ||
| ; Case 0 ; success | ||
| Case 2 ; pattern error | ||
| MsgBox(0 + 16, $replaceErrStr, "pattern error at char " & $resultExt) | ||
| EndSwitch | ||
|
|
||
| Return $result | ||
| EndFunc ;==>pcreReplace | ||
|
|
||
| Func opMatch() | ||
| $string = MsgWaiter($dwScript) | ||
| $pattern = MsgWaiter($dwScript) | ||
| $sep = MsgWaiter($dwScript) | ||
| $index = MsgWaiter($dwScript) | ||
| $format = MsgWaiter($dwScript) | ||
| ;all neceassary params received | ||
| ;send last $IFS reset, next transfer will be the result | ||
| ResetData() | ||
| OUT_XYMSG($Data, $dwScript) | ||
| ;sets $Data = final result | ||
| $Data = pcreMatch($string, $pattern, $sep, $index, $format) | ||
| $Data = $op & $Data ; prefix $op to identify result data | ||
| OUT_XYMSG($Data, $dwString) ;send result as string | ||
| ;ResetData() ;maybe one last transfer of errors etc | ||
| ;OUT_XYMSG($Data, $XYhWnd, $dwScript) | ||
| Return | ||
| EndFunc ;==>opMatch | ||
| Func pcreMatch(ByRef $string, ByRef $pattern, ByRef $sep, ByRef $index, ByRef $format) | ||
| Local $matchArr = StringRegExp($string, $pattern, 4) | ||
| Local $matchErr = @error | ||
| Local $matchExt = @extended | ||
| Local $result | ||
| ;MsgBox(0, "", ($matchArr[0])[0]) | ||
| ;returns 2D array: [[globalmatch][group1][group2]][[globalmatch]...]... | ||
| ;we want to get the global matches only, so ($matchArr[$i])[0] | ||
| Switch $matchErr | ||
| Case 0 ; valid array, matches found | ||
| ;if index is defined, return only one match | ||
| If($index > 0) Then | ||
| If($index <= UBound($matchArr)) Then | ||
| $result = ($matchArr[$index - 1])[0] | ||
| Else ; index > matchcount, return last match | ||
| $result = ($matchArr[UBound($matchArr) - 1])[0] | ||
| EndIf | ||
| If($format == 1) Then | ||
| $result = SepEscape($result) | ||
| ElseIf($format == 2) Then | ||
| $result = StringLen($result) & '|' & $result | ||
| EndIf | ||
| ;else make formatted matchlist | ||
| Else | ||
| If($format == 2) Then | ||
| Local $strlens, $strs | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $strlens = $strlens & '+' & StringLen(($matchArr[$i])[0]) | ||
| $strs = $strs & ($matchArr[$i])[0] | ||
| $matchArr[$i] = '' | ||
| Next | ||
| $result = StringTrimLeft($strlens, 1) & '|' & $strs | ||
| ElseIf($format == 1) Then | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $result = $result & SepEscape(($matchArr[$i])[0]) & $sep | ||
| $matchArr[$i] = '' ; memorysave ? | ||
| Next | ||
| $result = StringTrimRight($result, StringLen($sep)) ; trim last extra $sep | ||
| Else | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $result = $result & ($matchArr[$i])[0] & $sep | ||
| $matchArr[$i] = '' | ||
| Next | ||
| $result = StringTrimRight($result, StringLen($sep)) ; trim last extra $sep | ||
| EndIf | ||
| EndIf | ||
| ; Case 1 ; no match | ||
| ; If ($format == 2) Then | ||
| ; $result = "0|" | ||
| ; EndIf | ||
| Case 2 ; pattern error | ||
| MsgBox(0 + 16, $matchErrStr, "pattern error at char " & $matchExt) | ||
| EndSwitch | ||
|
|
||
| Return $result | ||
| EndFunc ;==>pcreMatch | ||
|
|
||
| Func opCapture() | ||
| $string = MsgWaiter($dwScript) | ||
| $pattern = MsgWaiter($dwScript) | ||
| $index = MsgWaiter($dwScript) | ||
| $sep = MsgWaiter($dwScript) | ||
| $format = MsgWaiter($dwScript) | ||
| ;all neceassary params received | ||
| ;send last $IFS reset, next transfer will be the result | ||
| ResetData() | ||
| OUT_XYMSG($Data, $dwScript) | ||
| ;sets $Data = final result | ||
| $Data = pcreCapture($string, $pattern, $index, $sep, $format) | ||
| $Data = $op & $Data ; prefix $op to identify result data | ||
| ;MsgBox(0, "sending", $Data) | ||
| OUT_XYMSG($Data, $dwString) ;send result as string | ||
| ;ResetData() ;maybe one last transfer of errors etc | ||
| ;OUT_XYMSG($Data, $XYhWnd, $dwScript) | ||
| Return | ||
| EndFunc ;==>opCapture | ||
| Func pcreCapture(ByRef $string, ByRef $pattern, ByRef $index, ByRef $sep, ByRef $format) | ||
| Local $matchArr = StringRegExp($string, $pattern, 4) | ||
| Local $matchErr = @error | ||
| Local $matchExt = @extended | ||
| Local $result | ||
|
|
||
| ;returns 2D array: [[globalmatch][group1][group2]][[globalmatch]...]... | ||
| ;we want to return the global matches only, so ($matchArr[$i])[0] | ||
| Switch $matchErr | ||
| Case 0 ; valid array, matches found | ||
| ;validate index | ||
| If($index < 1) Then | ||
| $index = 1 | ||
| ElseIf($index >= UBound($matchArr[0])) Then ; each array has *global* + groups | ||
| $index = UBound($matchArr[0]) - 1 ; lastgroup index | ||
| EndIf | ||
| ;build $indexth capture groups from each match | ||
| If($format == 2) Then | ||
| Local $strlens, $strs | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $strlens = $strlens & '+' & StringLen(($matchArr[$i])[$index]) | ||
| $strs = $strs & ($matchArr[$i])[$index] | ||
| $matchArr[$i] = '' | ||
| Next | ||
| $result = StringTrimLeft($strlens, 1) & '|' & $strs | ||
| ElseIf($format == 1) Then | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $result = $result & SepEscape(($matchArr[$i])[$index]) & $sep | ||
| $matchArr[$i] = '' | ||
| Next | ||
| $result = StringTrimRight($result, StringLen($sep)) ; trim last extra $sep | ||
| Else | ||
| For $i = 0 To UBound($matchArr) - 1 | ||
| $result = $result & ($matchArr[$i])[$index] & $sep | ||
| $matchArr[$i] = '' | ||
| Next | ||
| $result = StringTrimRight($result, StringLen($sep)) ; trim last extra $sep | ||
| EndIf | ||
| ; Case 1 ; no match | ||
| ; If ($format == 2) Then | ||
| ; $result = "0|" | ||
| ; EndIf | ||
| Case 2 ; pattern error | ||
| MsgBox(0 + 16, $captureErrStr, "pattern error at char " & $matchExt) | ||
| EndSwitch | ||
|
|
||
| Return $result | ||
| EndFunc ;==>pcreCapture | ||
|
|
||
| Func opSplit() | ||
| $string = MsgWaiter($dwScript) | ||
| $pattern = MsgWaiter($dwScript) | ||
| $sep = MsgWaiter($dwScript) | ||
| $format = MsgWaiter($dwScript) | ||
| ;all neceassary params received | ||
| ;send last $IFS reset, next transfer will be the result | ||
| ResetData() | ||
| OUT_XYMSG($Data, $dwScript) | ||
| ;sets $Data = final result | ||
| $Data = pcreSplit($string, $pattern, $sep, $format) | ||
| $Data = $op & $Data ; prefix $op to identify result data | ||
| ;MsgBox(0, "sending", $Data) | ||
| OUT_XYMSG($Data, $dwString) ;send result as string | ||
| ;ResetData() ;maybe one last transfer of errors etc | ||
| ;OUT_XYMSG($Data, $XYhWnd, $dwScript) | ||
| Return | ||
| EndFunc ;==>opSplit | ||
| Func pcreSplit(ByRef $string, ByRef $pattern, ByRef $sep, ByRef $format) | ||
| Local $stop, $err, $pos, $result, $sub, $strlens, $strs | ||
| $stop = 0 | ||
| $err = 0 | ||
| $pos = 1 | ||
| While($stop <> 1) | ||
| Local $match = StringRegExp($string, $pattern, 2) | ||
| $err = @error | ||
| $pos = @extended | ||
| If($err == 2) Then | ||
| MsgBox(0 + 16, $splitErrStr, "pattern error at char " & $pos) | ||
| Return '' | ||
| ElseIf($err == 1) Then ;match not found | ||
| $stop = 1 | ||
| $sub = $string | ||
| $string = '' | ||
| Else | ||
| $sub = StringLeft($string, $pos - StringLen($match[0]) - 1) ;get pre-matching part | ||
| $string = StringTrimLeft($string, $pos - 1) ;remove sub from string | ||
| EndIf | ||
| If($format == 2) Then | ||
| $strlens = $strlens & '+' & StringLen($sub) | ||
| $strs = $strs & $sub | ||
| ElseIf($format == 1) Then | ||
| $result = $result & SepEscape($sub) & $sep | ||
| Else | ||
| $result = $result & $sub & $sep | ||
| EndIf | ||
| WEnd | ||
| If($format == 2) Then | ||
| $result = StringTrimLeft($strlens, 1) & '|' & $strs | ||
| Else | ||
| $result = StringTrimRight($result, StringLen($sep)) | ||
| EndIf | ||
| Return $result | ||
| EndFunc ;==>pcreSplit | ||
|
|
||
| ;WM_COPYDATA funcs | ||
|
|
||
| ; incoming WM_COPYDATA handler | ||
| ; sets Global $Data to incoming data, and inrcrements Global $Step | ||
| Func IN_XYMSG($hWnd, $Msg, $wParam, $lParam) | ||
| Local $tagCOPYDATASTRUCT = 'ulong_ptr dwData;' & 'dword cbData;' & 'ptr lpData' | ||
| Local $tCOPYDATASTRUCT = DllStructCreate($tagCOPYDATASTRUCT, $lParam) | ||
| Local $tBuffer = DllStructCreate('wchar cdata[' & DllStructGetData($tCOPYDATASTRUCT, 'cbData') / 2 & ']', DllStructGetData($tCOPYDATASTRUCT, 'lpData')) | ||
| ; Local $dwData = DllStructGetData($tCOPYDATASTRUCT, 'dwData') | ||
| $Data = DllStructGetData($tBuffer, 'cdata') ; Data. | ||
| $pstep += 1 ;enable wait for next data reception | ||
| Return $GUI_RUNDEFMSG ; for autoit3 default msghandler | ||
| EndFunc ;==>IN_XYMSG | ||
|
|
||
| ; send data to XY via WM_COPYDATA (original author: Marco) | ||
| Func OUT_XYMSG(ByRef $Data, ByRef Const $dwdata) | ||
| Local $pCds = DllStructCreate("ulong_ptr;dword;ptr") | ||
| Local $iSize = StringLen($Data) | ||
| Local $pMem = DllStructCreate("wchar[" & $iSize & "]") | ||
| DllStructSetData($pMem, 1, $Data) | ||
| DllStructSetData($pCds, 1, $dwdata) | ||
| DllStructSetData($pCds, 2, ($iSize * 2)) | ||
| DllStructSetData($pCds, 3, DllStructGetPtr($pMem)) | ||
| DllCall($hUser32dll, "lresult", "SendMessageW", "hwnd", $XYhWnd, "uint", $WM_COPYDATA, "wparam", 0, "lparam", DllStructGetPtr($pCds)) | ||
| Return | ||
| EndFunc ;==>OUT_XYMSG | ||
|
|
Binary file not shown.
Oops, something went wrong.