~bzr-pqm/bzr/bzr.dev

# Copyright (C) 2006, 2007 Canonical Ltd

#

# 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 2 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, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

"""Win32-specific helper functions

Only one dependency: ctypes should be installed.

"""

import glob

import os

import re

import shlex

import struct

import StringIO

import sys

# Windows version

if sys.platform == 'win32':

    _major,_minor,_build,_platform,_text = sys.getwindowsversion()

    # from MSDN:

    # dwPlatformId

    #   The operating system platform.

    #   This member can be one of the following values.

    #   ==========================  ======================================

    #   Value                       Meaning

    #   --------------------------  --------------------------------------

    #   VER_PLATFORM_WIN32_NT       The operating system is Windows Vista,

    #   2                           Windows Server "Longhorn",

    #                               Windows Server 2003, Windows XP,

    #                               Windows 2000, or Windows NT.

    #

    #   VER_PLATFORM_WIN32_WINDOWS  The operating system is Windows Me,

    #   1                           Windows 98, or Windows 95.

    #   ==========================  ======================================

    if _platform == 2:

        winver = 'Windows NT'

    else:

        # don't care about real Windows name, just to force safe operations

        winver = 'Windows 98'

else:

    winver = None

# We can cope without it; use a separate variable to help pyflakes

try:

    import ctypes

    has_ctypes = True

except ImportError:

    has_ctypes = False

else:

    if winver == 'Windows 98':

        create_buffer = ctypes.create_string_buffer

        suffix = 'A'

    else:

        create_buffer = ctypes.create_unicode_buffer

        suffix = 'W'

try:

    import win32file

    import pywintypes

    has_win32file = True

except ImportError:

    has_win32file = False

try:

    import win32api

    has_win32api = True

except ImportError:

    has_win32api = False

# pulling in win32com.shell is a bit of overhead, and normally we don't need

# it as ctypes is preferred and common.  lazy_imports and "optional"

# modules don't work well, so we do our own lazy thing...

has_win32com_shell = None # Set to True or False once we know for sure...

# Special Win32 API constants

# Handles of std streams

WIN32_STDIN_HANDLE = -10

WIN32_STDOUT_HANDLE = -11

WIN32_STDERR_HANDLE = -12

# CSIDL constants (from MSDN 2003)

CSIDL_APPDATA = 0x001A      # Application Data folder

CSIDL_LOCAL_APPDATA = 0x001c# <user name>\Local Settings\Application Data (non roaming)

CSIDL_PERSONAL = 0x0005     # My Documents folder

# from winapi C headers

MAX_PATH = 260

UNLEN = 256

MAX_COMPUTERNAME_LENGTH = 31

# Registry data type ids

REG_SZ = 1

REG_EXPAND_SZ = 2

def debug_memory_win32api(message='', short=True):

    """Use trace.note() to dump the running memory info."""

    from bzrlib import trace

    if has_ctypes:

        class PROCESS_MEMORY_COUNTERS_EX(ctypes.Structure):

            """Used by GetProcessMemoryInfo"""

            _fields_ = [('cb', ctypes.c_ulong),

                        ('PageFaultCount', ctypes.c_ulong),

                        ('PeakWorkingSetSize', ctypes.c_size_t),

                        ('WorkingSetSize', ctypes.c_size_t),

                        ('QuotaPeakPagedPoolUsage', ctypes.c_size_t),

                        ('QuotaPagedPoolUsage', ctypes.c_size_t),

                        ('QuotaPeakNonPagedPoolUsage', ctypes.c_size_t),

                        ('QuotaNonPagedPoolUsage', ctypes.c_size_t),

                        ('PagefileUsage', ctypes.c_size_t),

                        ('PeakPagefileUsage', ctypes.c_size_t),

                        ('PrivateUsage', ctypes.c_size_t),

                       ]

        cur_process = ctypes.windll.kernel32.GetCurrentProcess()

        mem_struct = PROCESS_MEMORY_COUNTERS_EX()

        ret = ctypes.windll.psapi.GetProcessMemoryInfo(cur_process,

            ctypes.byref(mem_struct),

            ctypes.sizeof(mem_struct))

        if not ret:

            trace.note('Failed to GetProcessMemoryInfo()')

            return

        info = {'PageFaultCount': mem_struct.PageFaultCount,

                'PeakWorkingSetSize': mem_struct.PeakWorkingSetSize,

                'WorkingSetSize': mem_struct.WorkingSetSize,

                'QuotaPeakPagedPoolUsage': mem_struct.QuotaPeakPagedPoolUsage,

                'QuotaPagedPoolUsage': mem_struct.QuotaPagedPoolUsage,

                'QuotaPeakNonPagedPoolUsage': mem_struct.QuotaPeakNonPagedPoolUsage,

                'QuotaNonPagedPoolUsage': mem_struct.QuotaNonPagedPoolUsage,

                'PagefileUsage': mem_struct.PagefileUsage,

                'PeakPagefileUsage': mem_struct.PeakPagefileUsage,

                'PrivateUsage': mem_struct.PrivateUsage,

               }

    elif has_win32api:

        import win32process

        # win32process does not return PrivateUsage, because it doesn't use

        # PROCESS_MEMORY_COUNTERS_EX (it uses the one without _EX).

        proc = win32process.GetCurrentProcess()

        info = win32process.GetProcessMemoryInfo(proc)

    else:

        trace.note('Cannot debug memory on win32 without ctypes'

                   ' or win32process')

        return

    if short:

        trace.note('WorkingSize %7dKB'

                   '\tPeakWorking %7dKB\t%s',

                   info['WorkingSetSize'] / 1024,

                   info['PeakWorkingSetSize'] / 1024,

                   message)

        return

    if message:

        trace.note('%s', message)

    trace.note('WorkingSize       %8d KB', info['WorkingSetSize'] / 1024)

    trace.note('PeakWorking       %8d KB', info['PeakWorkingSetSize'] / 1024)

    trace.note('PagefileUsage     %8d KB', info.get('PagefileUsage', 0) / 1024)

    trace.note('PeakPagefileUsage %8d KB', info.get('PeakPagefileUsage', 0) / 1024)

    trace.note('PrivateUsage      %8d KB', info.get('PrivateUsage', 0) / 1024)

    trace.note('PageFaultCount    %8d', info.get('PageFaultCount', 0))

def get_console_size(defaultx=80, defaulty=25):

    """Return size of current console.

    This function try to determine actual size of current working

    console window and return tuple (sizex, sizey) if success,

    or default size (defaultx, defaulty) otherwise.

    """

    if not has_ctypes:

        # no ctypes is found

        return (defaultx, defaulty)

    # To avoid problem with redirecting output via pipe

    # need to use stderr instead of stdout

    h = ctypes.windll.kernel32.GetStdHandle(WIN32_STDERR_HANDLE)

    csbi = ctypes.create_string_buffer(22)

    res = ctypes.windll.kernel32.GetConsoleScreenBufferInfo(h, csbi)

    if res:

        (bufx, bufy, curx, cury, wattr,

        left, top, right, bottom, maxx, maxy) = struct.unpack("hhhhHhhhhhh", csbi.raw)

        sizex = right - left + 1

        sizey = bottom - top + 1

        return (sizex, sizey)

    else:

        return (defaultx, defaulty)

def _get_sh_special_folder_path(csidl):

    """Call SHGetSpecialFolderPathW if available, or return None.

    Result is always unicode (or None).

    """

    if has_ctypes:

        try:

            SHGetSpecialFolderPath = \

                ctypes.windll.shell32.SHGetSpecialFolderPathW

        except AttributeError:

            pass

        else:

            buf = ctypes.create_unicode_buffer(MAX_PATH)

            if SHGetSpecialFolderPath(None,buf,csidl,0):

                return buf.value

    global has_win32com_shell

    if has_win32com_shell is None:

        try:

            from win32com.shell import shell

            has_win32com_shell = True

        except ImportError:

            has_win32com_shell = False

    if has_win32com_shell:

        # still need to bind the name locally, but this is fast.

        from win32com.shell import shell

        try:

            return shell.SHGetSpecialFolderPath(0, csidl, 0)

        except shell.error:

            # possibly E_NOTIMPL meaning we can't load the function pointer,

            # or E_FAIL meaning the function failed - regardless, just ignore it

            pass

    return None

def get_appdata_location():

    """Return Application Data location.

    Return None if we cannot obtain location.

    Windows defines two 'Application Data' folders per user - a 'roaming'

    one that moves with the user as they logon to different machines, and

    a 'local' one that stays local to the machine.  This returns the 'roaming'

    directory, and thus is suitable for storing user-preferences, etc.

    Returned value can be unicode or plain string.

    To convert plain string to unicode use

    s.decode(osutils.get_user_encoding())

    (XXX - but see bug 262874, which asserts the correct encoding is 'mbcs')

    """

    appdata = _get_sh_special_folder_path(CSIDL_APPDATA)

    if appdata:

        return appdata

    # from env variable

    appdata = os.environ.get('APPDATA')

    if appdata:

        return appdata

    # if we fall to this point we on win98

    # at least try C:/WINDOWS/Application Data

    windir = os.environ.get('windir')

    if windir:

        appdata = os.path.join(windir, 'Application Data')

        if os.path.isdir(appdata):

            return appdata

    # did not find anything

    return None

def get_local_appdata_location():

    """Return Local Application Data location.

    Return the same as get_appdata_location() if we cannot obtain location.

    Windows defines two 'Application Data' folders per user - a 'roaming'

    one that moves with the user as they logon to different machines, and

    a 'local' one that stays local to the machine.  This returns the 'local'

    directory, and thus is suitable for caches, temp files and other things

    which don't need to move with the user.

    Returned value can be unicode or plain string.

    To convert plain string to unicode use

    s.decode(osutils.get_user_encoding())

    (XXX - but see bug 262874, which asserts the correct encoding is 'mbcs')

    """

    local = _get_sh_special_folder_path(CSIDL_LOCAL_APPDATA)

    if local:

        return local

    # Vista supplies LOCALAPPDATA, but XP and earlier do not.

    local = os.environ.get('LOCALAPPDATA')

    if local:

        return local

    return get_appdata_location()

def get_home_location():

    """Return user's home location.

    Assume on win32 it's the <My Documents> folder.

    If location cannot be obtained return system drive root,

    i.e. C:\

    Returned value can be unicode or plain string.

    To convert plain string to unicode use

    s.decode(osutils.get_user_encoding())

    """

    home = _get_sh_special_folder_path(CSIDL_PERSONAL)

    if home:

        return home

    # try for HOME env variable

    home = os.path.expanduser('~')

    if home != '~':

        return home

    # at least return windows root directory

    windir = os.environ.get('windir')

    if windir:

        return os.path.splitdrive(windir)[0] + '/'

    # otherwise C:\ is good enough for 98% users

    return 'C:/'

def get_user_name():

    """Return user name as login name.

    If name cannot be obtained return None.

    Returned value can be unicode or plain string.

    To convert plain string to unicode use

    s.decode(osutils.get_user_encoding())

    """

    if has_ctypes:

        try:

            advapi32 = ctypes.windll.advapi32

            GetUserName = getattr(advapi32, 'GetUserName'+suffix)

        except AttributeError:

            pass

        else:

            buf = create_buffer(UNLEN+1)

            n = ctypes.c_int(UNLEN+1)

            if GetUserName(buf, ctypes.byref(n)):

                return buf.value

    # otherwise try env variables

    return os.environ.get('USERNAME', None)

# 1 == ComputerNameDnsHostname, which returns "The DNS host name of the local

# computer or the cluster associated with the local computer."

_WIN32_ComputerNameDnsHostname = 1

def get_host_name():

    """Return host machine name.

    If name cannot be obtained return None.

    :return: A unicode string representing the host name. On win98, this may be

        a plain string as win32 api doesn't support unicode.

    """

    if has_win32api:

        try:

            return win32api.GetComputerNameEx(_WIN32_ComputerNameDnsHostname)

        except (NotImplementedError, win32api.error):

            # NotImplemented will happen on win9x...

            pass

    if has_ctypes:

        try:

            kernel32 = ctypes.windll.kernel32

        except AttributeError:

            pass # Missing the module we need

        else:

            buf = create_buffer(MAX_COMPUTERNAME_LENGTH+1)

            n = ctypes.c_int(MAX_COMPUTERNAME_LENGTH+1)

            # Try GetComputerNameEx which gives a proper Unicode hostname

            GetComputerNameEx = getattr(kernel32, 'GetComputerNameEx'+suffix,

                                        None)

            if (GetComputerNameEx is not None

                and GetComputerNameEx(_WIN32_ComputerNameDnsHostname,

                                      buf, ctypes.byref(n))):

                return buf.value

            # Try GetComputerName in case GetComputerNameEx wasn't found

            # It returns the NETBIOS name, which isn't as good, but still ok.

            # The first GetComputerNameEx might have changed 'n', so reset it

            n = ctypes.c_int(MAX_COMPUTERNAME_LENGTH+1)

            GetComputerName = getattr(kernel32, 'GetComputerName'+suffix,

                                      None)

            if (GetComputerName is not None

                and GetComputerName(buf, ctypes.byref(n))):

                return buf.value

    # otherwise try env variables, which will be 'mbcs' encoded

    # on Windows (Python doesn't expose the native win32 unicode environment)

    # According to this:

    # http://msdn.microsoft.com/en-us/library/aa246807.aspx

    # environment variables should always be encoded in 'mbcs'.

    try:

        return os.environ['COMPUTERNAME'].decode("mbcs")

    except KeyError:

        return None

def _ensure_unicode(s):

    from bzrlib import osutils

    if s and type(s) != unicode:

        from bzrlib import osutils

        s = s.decode(osutils.get_user_encoding())

    return s

def get_appdata_location_unicode():

    return _ensure_unicode(get_appdata_location())

def get_home_location_unicode():

    return _ensure_unicode(get_home_location())

def get_user_name_unicode():

    return _ensure_unicode(get_user_name())

def get_host_name_unicode():

    return _ensure_unicode(get_host_name())

def _ensure_with_dir(path):

    if not os.path.split(path)[0] or path.startswith(u'*') or path.startswith(u'?'):

        return u'./' + path, True

    else:

        return path, False

def _undo_ensure_with_dir(path, corrected):

    if corrected:

        return path[2:]

    else:

        return path

def glob_one(possible_glob):

    """Same as glob.glob().

    work around bugs in glob.glob()

    - Python bug #1001604 ("glob doesn't return unicode with ...")

    - failing expansion for */* with non-iso-8859-* chars

    """

    corrected_glob, corrected = _ensure_with_dir(possible_glob)

    glob_files = glob.glob(corrected_glob)

    if not glob_files:

        # special case to let the normal code path handle

        # files that do not exist, etc.

        glob_files = [possible_glob]

    elif corrected:

        glob_files = [_undo_ensure_with_dir(elem, corrected)

                      for elem in glob_files]

    return [elem.replace(u'\\', u'/') for elem in glob_files]

def glob_expand(file_list):

    """Replacement for glob expansion by the shell.

    Win32's cmd.exe does not do glob expansion (eg ``*.py``), so we do our own

    here.

    :param file_list: A list of filenames which may include shell globs.

    :return: An expanded list of filenames.

    Introduced in bzrlib 0.18.

    """

    if not file_list:

        return []

    expanded_file_list = []

    for possible_glob in file_list:

        expanded_file_list.extend(glob_one(possible_glob))

    return expanded_file_list

def get_app_path(appname):

    """Look up in Windows registry for full path to application executable.

    Typically, applications create subkey with their basename

    in HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\

    :param  appname:    name of application (if no filename extension

                        is specified, .exe used)

    :return:    full path to aplication executable from registry,

                or appname itself if nothing found.

    """

    import _winreg

    basename = appname

    if not os.path.splitext(basename)[1]:

        basename = appname + '.exe'

    try:

        hkey = _winreg.OpenKey(_winreg.HKEY_LOCAL_MACHINE,

            'SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\' +

            basename)

    except EnvironmentError:

        return appname

    try:

        try:

            path, type_id = _winreg.QueryValueEx(hkey, '')

        except WindowsError:

            return appname

    finally:

        _winreg.CloseKey(hkey)

    if type_id == REG_SZ:

        return path

    if type_id == REG_EXPAND_SZ and has_win32api:

        fullpath = win32api.ExpandEnvironmentStrings(path)

        if len(fullpath) > 1 and fullpath[0] == '"' and fullpath[-1] == '"':

            fullpath = fullpath[1:-1]   # remove quotes around value

        return fullpath

    return appname

def set_file_attr_hidden(path):

    """Set file attributes to hidden if possible"""

    if has_win32file:

        if winver != 'Windows 98':

            SetFileAttributes = win32file.SetFileAttributesW

        else:

            SetFileAttributes = win32file.SetFileAttributes

        try:

            SetFileAttributes(path, win32file.FILE_ATTRIBUTE_HIDDEN)

        except pywintypes.error, e:

            from bzrlib import trace

            trace.mutter('Unable to set hidden attribute on %r: %s', path, e)

class UnicodeShlex(object):

    """This is a very simplified version of shlex.shlex.

    The main change is that it supports non-ascii input streams. The internal

    structure is quite simplified relative to shlex.shlex, since we aren't

    trying to handle multiple input streams, etc. In fact, we don't use a

    file-like api either.

    """

    def __init__(self, uni_string):

        self._input = uni_string

        self._input_iter = iter(self._input)

        self._whitespace_match = re.compile(u'\s').match

        self._word_match = re.compile(u'\S').match

        self._quote_chars = u'"'

        # self._quote_match = re.compile(u'[\'"]').match

        self._escape_match = lambda x: None # Never matches

        self._escape = '\\'

        # State can be

        #   ' ' - after whitespace, starting a new token

        #   'a' - after text, currently working on a token

        #   '"' - after ", currently in a "-delimited quoted section

        #   "\" - after '\', checking the next char

        self._state = ' '

        self._token = [] # Current token being parsed

    def _get_token(self):

        # Were there quote chars as part of this token?

        quoted = False

        quoted_state = None

        for nextchar in self._input_iter:

            if self._state == ' ':

                if self._whitespace_match(nextchar):

                    # if self._token: return token

                    continue

                elif nextchar in self._quote_chars:

                    self._state = nextchar # quoted state

                elif self._word_match(nextchar):

                    self._token.append(nextchar)

                    self._state = 'a'

                else:

                    raise AssertionError('wtttf?')

            elif self._state in self._quote_chars:

                quoted = True

                if nextchar == self._state: # End of quote

                    self._state = 'a' # posix allows 'foo'bar to translate to

                                      # foobar

                elif self._state == '"' and nextchar == self._escape:

                    quoted_state = self._state

                    self._state = nextchar

                else:

                    self._token.append(nextchar)

            elif self._state == self._escape:

                if nextchar == '\\':

                    self._token.append('\\')

                elif nextchar == '"':

                    self._token.append(nextchar)

                else:

                    self._token.append('\\' + nextchar)

                self._state = quoted_state

            elif self._state == 'a':

                if self._whitespace_match(nextchar):

                    if self._token:

                        break # emit this token

                    else:

                        continue # no token to emit

                elif nextchar in self._quote_chars:

                    # Start a new quoted section

                    self._state = nextchar

                # escape?

                elif (self._word_match(nextchar)

                      or nextchar in self._quote_chars

                      # or whitespace_split?

                      ):

                    self._token.append(nextchar)

                else:

                    raise AssertionError('state == "a", char: %r'

                                         % (nextchar,))

            else:

                raise AssertionError('unknown state: %r' % (self._state,))

        result = ''.join(self._token)

        self._token = []

        if not quoted and result == '':

            result = None

        return quoted, result

    def __iter__(self):

        return self

    def next(self):

        quoted, token = self._get_token()

        if token is None:

            raise StopIteration

        return quoted, token

def _command_line_to_argv(command_line):

    """Convert a Unicode command line into a set of argv arguments.

    This does wildcard expansion, etc. It is intended to make wildcards act

    closer to how they work in posix shells, versus how they work by default on

    Windows.

    """

    s = UnicodeShlex(command_line)

    # Now that we've split the content, expand globs

    # TODO: Use 'globbing' instead of 'glob.glob', this gives us stuff like

    #       '**/' style globs

    args = []

    for is_quoted, arg in s:

        if is_quoted or not glob.has_magic(arg):

            args.append(arg.replace(u'\\', u'/'))

        else:

            args.extend(glob_one(arg))

    return args

if has_ctypes and winver != 'Windows 98':

    def get_unicode_argv():

        LPCWSTR = ctypes.c_wchar_p

        INT = ctypes.c_int

        POINTER = ctypes.POINTER

        prototype = ctypes.WINFUNCTYPE(LPCWSTR)

        GetCommandLine = prototype(("GetCommandLineW",

                                    ctypes.windll.kernel32))

        prototype = ctypes.WINFUNCTYPE(POINTER(LPCWSTR), LPCWSTR, POINTER(INT))

        command_line = GetCommandLine()

        # Skip the first argument, since we only care about parameters

        argv = _command_line_to_argv(GetCommandLine())[1:]

        if getattr(sys, 'frozen', None) is None:

            # Invoked via 'python.exe' which takes the form:

            #   python.exe [PYTHON_OPTIONS] C:\Path\bzr [BZR_OPTIONS]

            # we need to get only BZR_OPTIONS part,

            # We already removed 'python.exe' so we remove everything up to and

            # including the first non-option ('-') argument.

            for idx in xrange(len(argv)):

                if argv[idx][:1] != '-':

                    break

            argv = argv[idx+1:]

        return argv

else:

    get_unicode_argv = None