# Close old branches for Mercurial
# Copyright (C) 2014 Mikhail Pilin
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
if ($PSVersionTable.PSVersion.Major -lt 3) {
throw "PS Version $($PSVersionTable.PSVersion) is below 3.0."
}
Set-StrictMode -Version Latest
$ErrorActionPreference = [System.Management.Automation.ActionPreference]::Stop
$script:VerbosePreference = "Continue"
$encoding = "cp866"
[System.TimeSpan]$alive = [System.TimeSpan]::FromDays(60)
[System.DateTime]$now = [System.DateTime]::Now
[System.Object]$current = & hg parent --encoding $encoding -T "{node} {branch}" | ForEach-Object {
$result = $_ | Select-Object -Property node, name
$parts = $_.Split(' ', 2)
$result.node = $parts[0]
$result.name = $parts[1]
$result
} | Select-Object
Write-Host "Current branch: " -nonewline
Write-Host -foregroundcolor gray $current.name
[System.Object[]]$branches = @(& hg head --encoding $encoding -T "{date(date,'%Y%m%d%H%M%S')} {node} {branch}\n" | ForEach-Object {
$result = $_ | Select-Object -Property date, node, name
$parts = $_.Split(' ', 3)
[System.DateTime]$result.date = [System.DateTime]::ParseExact($parts[0], "yyyyMMddHHmmss", [System.Globalization.CultureInfo]::InvariantCulture)
$result.node = $parts[1]
$result.name = $parts[2]
$result
} | Where-Object { $now - $_.date -gt $alive } | Sort-Object -property date)
function EscapeBranchName
{
Param([System.String]$name)
$name.Replace('"', '\"')
}
if ($branches.Length -eq 0) { Write-Host "No old branches were detected" } else {
Write-Host "Closing $($branches.Length) old branches:"
$branches | ForEach-Object {
Write-Host "[$([System.String]::Format("{0:%d}", $now - $_.date)) days] " -nonewline
Write-Host -foregroundcolor gray $_.name
& hg debugsetparent $_.node | Out-Null
if ($LastExitCode -ne 0) { Write-Warning "Failed to set node (exit code $LastExitCode)." } else {
& hg branch $(EscapeBranchName $_.name) | Out-Null
if ($LastExitCode -ne 0) { Write-Warning "Failed to set branch (exit code $LastExitCode)." } else {
& hg commit --close-branch -X * -m $("The branch was not used for {0:%d} days and closed automatically." -f ($now - $_.date)) | Out-Null
if ($LastExitCode -ne 0) { Write-Warning "Failed to commit (exit code $LastExitCode)." }
}
}
}
Write-Host "Restore current branch: " -nonewline
Write-Host -foregroundcolor gray $current.name
& hg debugsetparent $current.node | Out-Null
if ($LastExitCode -ne 0) { Write-Warning "Failed to set node (exit code $LastExitCode)." } else {
& hg branch $(EscapeBranchName $current.name) | Out-Null
if ($LastExitCode -ne 0) { Write-Warning "Failed to set branch (exit code $LastExitCode)." }
}
}
07 September, 2014
Powershell script to close mercurial branches older then 60 days
GitHub link
02 March, 2014
Decoding the parameters of a thrown C++ exception (0xE06D7363)
I have a lot questions after reading the post about decoding structural exception 0xE06D7363 from "The Old New Thing". I like computer magic like that: take address from here add the constant two and half time and you get it. However, this magic don't help to understand how it really works and what happened if I do that. So, following code from CRT kill all magic.
06 November, 2013
How to install .NET Framework 1.1 on Windows 8.1
After update from Windows 8.0 to Windows 8.1 I found that .NET Framework 1.1 was unexpectedly disappeared. Here I give you the tested way to return it back:
- Download .NET Framework Cleanup Tool (product guide here) from following locations: here or here
- Unzip and run following commands:
cleanup_tool.exe /q:a /c:"cleanup.exe /p .NET Framework 1.0" cleanup_tool.exe /q:a /c:"cleanup.exe /p .NET Framework 1.1"
- Following instructions were taken from here:
- Create a new folder named DotNet in C:\ drive. (The path i used was C:\DotNet)
- Download Microsoft .NET Framework 1.1 Redistributable Package (dotnetfx.exe). Make sure the setup file is saved as dotnetfx.exe.
- Download Microsoft .NET Framework 1.1 Service Pack 1 (NDP1.1sp1-KB867460-X86.exe). Rename the file to dotnetfxsp1.exe.
- Copy both installation files into the same directory (i.e. C:\DotNet),.
- Open Command Prompt as Administrator.
- Change to the directory where the two installation files are stored, ie C:\DotNet.
- Run the following commands one by one:
dotnetfx.exe /c:"msiexec.exe /a netfx.msi TARGETDIR=C:\DotNet" dotnetfxsp1.exe /Xp:C:\DotNet\netfxsp.msp msiexec.exe /a c:\DotNet\netfx.msi /p c:\DotNet\netfxsp.msp
- Install Microsoft .Net Framework 1.1 with slipstreamed Service Pack 1 by running netfx.msi from the working folder.
Good luck!
07 June, 2013
Tricky macro to add file name and line number in C++ operator new
Header file:
#if defined(_DEBUG)
#define _CRTDBG_MAP_ALLOC
#include <crtdbg.h>
extern __declspec(thread) char const * t_File;
extern __declspec(thread) int t_Line;
inline void * __CRTDECL operator new (size_t const size) { return ::operator new (size, _NORMAL_BLOCK, t_File, t_Line); }
inline void * __CRTDECL operator new[](size_t const size) { return ::operator new[](size, _NORMAL_BLOCK, t_File, t_Line); }
#define new (t_File = __FILE__, t_Line = __LINE__, false) ? nullptr : new
#endif
Source file:
#if defined(_DEBUG) __declspec(thread) char const * t_File = "???"; __declspec(thread) int t_Line = 0; #endif
This macro doesn't work with direct operator call like operator new(...) in code.
P.S. This macro tested only on Visual Studio 2012
06 June, 2013
How to enable ARM support for desktop application in Visual Studio 2012?
Just add following in your .vcxproj file, somewhere at the beginning:
<PropertyGroup> <WindowsSDKDesktopARMSupport>true</WindowsSDKDesktopARMSupport> </PropertyGroup>
P.S. Surely Windows SDK for Windows 8 has to be installed.
26 March, 2013
07 March, 2013
Service environment variables
As you know service.exe generates environment variables for service every time when it starts the new service process. It merges it's own environment with ones from different places such as:
- HKLM\System\CurrentControlSet\Control\Session Manager\Environment
- Environment key from HKLM\SYSTEM\CurrentControlSet\Services\YourService
- AppEnvironment key from HKLM\SYSTEM\CurrentControlSet\Services\YourService\Parameters
However, there are some not clear things with service.exe. It doesn't work correctly with REG_DWORD, but other part of Windows understand REG_DWORD correctly. So, newer write REG_DWORD values in HKLM\System\CurrentControlSet\Control\Session Manager\Environment. Please use only REG_SZ.
service.exe got it's own environment variables at the system startup and doesn't change till shutdown. So, every service in system get the mix of current environment variables and environment variables from startup. So, it's impossible to delete environment variable if it was on system startup, but it's possible to overlap the value.
22 November, 2012
Visual Studio project type GUIDs
I updated the original table.
| Project Language | Project Type Guid |
|---|---|
| C# | {FAE04EC0-301F-11D3-BF4B-00C04F79EFBC} |
| F# | {F2A71F9B-5D33-465A-A702-920D77279786} |
| J# | {E6FDF86B-F3D1-11D4-8576-0002A516ECE8} |
| VB.NET | {F184B08F-C81C-45F6-A57F-5ABD9991F28F} |
| C++ | {8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942} |
| Project Type Description | Project Type Guid |
|---|---|
| Web Application | {349C5851-65DF-11DA-9384-00065B846F21} |
| Web Site | {E24C65DC-7377-472B-9ABA-BC803B73C61A} |
| Distributed System | {F135691A-BF7E-435D-8960-F99683D2D49C} |
| Windows Communication Foundation (WCF) | {3D9AD99F-2412-4246-B90B-4EAA41C64699} |
| Windows Presentation Foundation (WPF) | {60DC8134-EBA5-43B8-BCC9-BB4BC16C2548} |
| Visual Database Tools | {C252FEB5-A946-4202-B1D4-9916A0590387} |
| Database | {A9ACE9BB-CECE-4E62-9AA4-C7E7C5BD2124} |
| Database (other project types) | {4F174C21-8C12-11D0-8340-0000F80270F8} |
| Test | {3AC096D0-A1C2-E12C-1390-A8335801FDAB} |
| Legacy (2003) Smart Device (C#) | {20D4826A-C6FA-45DB-90F4-C717570B9F32} |
| Legacy (2003) Smart Device (VB.NET) | {CB4CE8C6-1BDB-4DC7-A4D3-65A1999772F8} |
| Smart Device (C#) | {4D628B5B-2FBC-4AA6-8C16-197242AEB884} |
| Smart Device (VB.NET) | {68B1623D-7FB9-47D8-8664-7ECEA3297D4F} |
| Workflow Foundation | {32F31D43-81CC-4C15-9DE6-3FC5453562B6} |
| Workflow (C#) | {14822709-B5A1-4724-98CA-57A101D1B079} |
| Workflow (VB.NET) | {D59BE175-2ED0-4C54-BE3D-CDAA9F3214C8} |
| Deployment Merge Module | {06A35CCD-C46D-44D5-987B-CF40FF872267} |
| Deployment Cab | {3EA9E505-35AC-4774-B492-AD1749C4943A} |
| Deployment Setup | {978C614F-708E-4E1A-B201-565925725DBA} |
| Deployment Smart Device Cab | {AB322303-2255-48EF-A496-5904EB18DA55} |
| Visual Studio Tools for Applications (VSTA) | {A860303F-1F3F-4691-B57E-529FC101A107} |
| Visual Studio Tools for Office (VSTO) | {BAA0C2D2-18E2-41B9-852F-F413020CAA33} |
| SharePoint Workflow | {F8810EC1-6754-47FC-A15F-DFABD2E3FA90} |
| SharePoint (VB.NET) | {EC05E597-79D4-47f3-ADA0-324C4F7C7484} |
| SharePoint (C#) | {593B0543-81F6-4436-BA1E-4747859CAAE2} |
| XNA (Windows) | {6D335F3A-9D43-41b4-9D22-F6F17C4BE596} |
| XNA (XBox) | {2DF5C3F4-5A5F-47a9-8E94-23B4456F55E2} |
| XNA (Zune) | {D399B71A-8929-442a-A9AC-8BEC78BB2433} |
| Silverlight | {A1591282-1198-4647-A2B1-27E5FF5F6F3B} |
| Model-View-Controller v2 (MVC2) | {F85E285D-A4E0-4152-9332-AB1D724D3325} |
| Model-View-Controller v3 (MVC3) | {E53F8FEA-EAE0-44A6-8774-FFD645390401} |
| Model-View-Controller v4 (MVC4) | {E3E379DF-F4C6-4180-9B81-6769533ABE47} |
| Windows Store Apps (Metro Apps) | {BC8A1FFA-BEE3-4634-8014-F334798102B3} |
Subscribe to:
Posts (Atom)