[Bug 34913] New: GEOVIA Surpac 6.x (geology and mine planning software) needs vbscript:Global_InStrRev and vbscript:Global_Replace
http://bugs.winehq.org/show_bug.cgi?id=34913 Bug #: 34913 Summary: GEOVIA Surpac 6.x (geology and mine planning software) needs vbscript:Global_InStrRev and vbscript:Global_Replace Product: Wine Version: 1.7.6 Platform: x86 OS/Version: Linux Status: NEW Severity: normal Priority: P2 Component: vbscript AssignedTo: wine-bugs(a)winehq.org ReportedBy: focht(a)gmx.net Classification: Unclassified Hello folks, as the summary says... --- snip --- $ wine msiexec -i surpac_63.msi ... fixme:vbscript:Global_InStrRev ... fixme:vbscript:Global_Replace fixme:vbscript:exec_script Failed 80004001 in resume next mode ... --- snip --- Source: http://source.winehq.org/git/wine.git/blob/79c55e125541d4758e4454ba433145896... --- snip --- 1477 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) 1478 { 1479 FIXME("\n"); 1480 return E_NOTIMPL; 1481 } --- snip --- Source: http://source.winehq.org/git/wine.git/blob/79c55e125541d4758e4454ba433145896... --- snip --- 1448 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) 1449 { 1450 FIXME("\n"); 1451 return E_NOTIMPL; 1452 } --- snip --- $ sha1sum Surpac_Viewer.zip 554c7e0d552667747813a19f6a2a8c77bb7d46e6 Surpac_Viewer.zip $ du -sh Surpac_Viewer.zip 137M Surpac_Viewer.zip $ wine --version wine-1.7.6-225-g8c8d5a0 Regards -- Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email Do not reply to this email, post in Bugzilla using the above URL to reply. ------- You are receiving this mail because: ------- You are watching all bug changes.
http://bugs.winehq.org/show_bug.cgi?id=34913 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |download, Installer URL| |http://www.gemcomsupport.co | |m/gemcomsoftware_downloads/ | |Surpac_Viewer.zip -- Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email Do not reply to this email, post in Bugzilla using the above URL to reply. ------- You are receiving this mail because: ------- You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=34913 --- Comment #1 from Anastasius Focht <focht(a)gmx.net> --- Hello folks, revisiting, still present. $ wine --version wine-1.7.34-36-g4493323 Regards -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=34913 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- Fixed by SHA1| |9b0ebaeb78374d23e2d1a14ec30 | |3b3643d6daca3 Status|NEW |RESOLVED Resolution|--- |FIXED Summary|GEOVIA Surpac 6.x (geology |GEOVIA Surpac 6.x (geology |and mine planning software) |and mine planning software) |needs |needs |vbscript:Global_InStrRev |vbscript:Global_InStrRev |and vbscript:Global_Replace | --- Comment #2 from Anastasius Focht <focht(a)gmx.net> --- Hello folks, 'InStrRev' was added with commit http://source.winehq.org/git/wine.git/commitdiff/9b0ebaeb78374d23e2d1a14ec30... Thanks Jacek For completeness, the VBScript code, extracted from MSI custom action: --- snip --- function stripString2(source, strip) Dim index Dim index2 Dim stripLength stripLength = Len(strip) index = InStrRev(source, strip) index2 = Len(Source) - stripLength + 1 if index = index2 then stripString2 = Left(source, Len(source) - stripLength) else stripString2 = source end if end function --- snip --- --- snip --- ... 001d:trace:vbscript:DispatchEx_QueryInterface (0x560f10)->(IID_IDispatchEx 0xbde1b0) 001d:trace:vbscript:DispatchEx_AddRef (0x560f10) ref=2 001d:trace:vbscript:DispatchEx_InvokeEx (0x560f10)->(bc 0 3 0xbde26c 0xbde2d0 0xbde190 (nil)) 001d:trace:vbscript:Global_InStrRev 0xbddfb8 {VT_BSTR: L"C:\\Program Files\\Gemcom\\Surpac\\63\\"} 0xbddfc8 {VT_BSTR: L"\\"} arg_cnt=2 001d:Call oleaut32.VariantChangeType(00bddee8,00bddfb8,00000010,00000008) ret=f6f6ae58 001d:Ret oleaut32.VariantChangeType() retval=00000000 ret=f6f6ae58 001d:Call oleaut32.VariantChangeType(00bddee8,00bddfc8,00000010,00000008) ret=f6f6ae58 001d:Ret oleaut32.VariantChangeType() retval=00000000 ret=f6f6ae58 001d:Call oleaut32.SysStringLen(005bb5f4 L"C:\\Program Files\\Gemcom\\Surpac\\63\\") ret=f6f6fff2 001d:Ret oleaut32.SysStringLen() retval=00000022 ret=f6f6fff2 001d:Call oleaut32.SysStringLen(00540f1c L"\\") ret=f6f7000d 001d:Ret oleaut32.SysStringLen() retval=00000001 ret=f6f7000d 001d:Call oleaut32.SysStringLen(005bb5f4 L"C:\\Program Files\\Gemcom\\Surpac\\63\\") ret=f6f7002b 001d:Ret oleaut32.SysStringLen() retval=00000022 ret=f6f7002b 001d:Call oleaut32.SysStringLen(00540f1c L"\\") ret=f6f70045 001d:Ret oleaut32.SysStringLen() retval=00000001 ret=f6f70045 001d:Call oleaut32.SysFreeString(005bb5f4 L"C:\\Program Files\\Gemcom\\Surpac\\63\\") ret=f6f700a0 001d:Ret oleaut32.SysFreeString() retval=00000000 ret=f6f700a0 001d:Call oleaut32.SysFreeString(00540f1c L"\\") ret=f6f700ae 001d:Ret oleaut32.SysFreeString() retval=00000000 ret=f6f700ae 001d:trace:vbscript:DispatchEx_Release (0x560f10) ref=1 001d:Call oleaut32.VariantClear(0050fbd0) ret=f6f72188 001d:Ret oleaut32.VariantClear() retval=00000000 ret=f6f72188 001d:Call oleaut32.VariantClear(0050fbc0) ret=f6f72188 001d:Ret oleaut32.VariantClear() retval=00000000 ret=f6f72188 001d:trace:vbscript:interp_assign_ident L"index" 001d:Call oleaut32.VariantCopyInd(0050fb88,0050fbc0) ret=f6f736a7 001d:Ret oleaut32.VariantCopyInd() retval=00000000 ret=f6f736a7 001d:Call oleaut32.VariantClear(0050fbc0) ret=f6f72188 001d:Ret oleaut32.VariantClear() retval=00000000 ret=f6f72188 ... --- snip --- I'm splitting the missing 'Replace' (part of another scriptlet/function) into another bug since the installer reports success in the end (albeit still suffering from multiple vbscript/wshom insufficiencies). Regards -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=34913 Alexandre Julliard <julliard(a)winehq.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|RESOLVED |CLOSED --- Comment #3 from Alexandre Julliard <julliard(a)winehq.org> --- Closing bugs fixed in 1.7.37. -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=34913 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- URL|http://www.gemcomsupport.co |https://web.archive.org/web |m/gemcomsoftware_downloads/ |/20210319091008/https://dow |Surpac_Viewer.zip |nload.informer.com/win-1193 | |074874-4ffe1055-6f4a0f10/su | |rpac_viewer.zip -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
participants (2)
-
wine-bugs＠winehq.org -
WineHQ Bugzilla