Mercurial > vim
view src/VisVim/Reg.cpp @ 24988:494112d2aa93 v8.2.3031
patch 8.2.3031: no error if a function name starts with an underscore
Commit: https://github.com/vim/vim/commit/22f17a29cd0b0cc3107dc6cd1d96c62eee52a7d9
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon Jun 21 20:48:58 2021 +0200
patch 8.2.3031: no error if a function name starts with an underscore
Problem: No error if a function name starts with an underscore. (Naohiro
Ono)
Solution: In Vim9 script disallow a function name starting with an
underscore, as is mentioned in the help. (closes #8414)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Mon, 21 Jun 2021 21:00:03 +0200 |
parents | 3fc0f57ecb91 |
children |
line wrap: on
line source
#include "stdafx.h" // Returns key for HKEY_CURRENT_USER\"Software"\Company\AppName // creating it if it doesn't exist // responsibility of the caller to call RegCloseKey() on the returned HKEY // HKEY GetAppKey (char* AppName) { HKEY hAppKey = NULL; HKEY hSoftKey = NULL; if (RegOpenKeyEx (HKEY_CURRENT_USER, "Software", 0, KEY_WRITE | KEY_READ, &hSoftKey) == ERROR_SUCCESS) { DWORD Dummy; RegCreateKeyEx (hSoftKey, AppName, 0, REG_NONE, REG_OPTION_NON_VOLATILE, KEY_WRITE | KEY_READ, NULL, &hAppKey, &Dummy); } if (hSoftKey) RegCloseKey (hSoftKey); return hAppKey; } // Returns key for // HKEY_CURRENT_USER\"Software"\RegistryKey\AppName\Section // creating it if it doesn't exist. // responsibility of the caller to call RegCloseKey () on the returned HKEY // HKEY GetSectionKey (HKEY hAppKey, LPCTSTR Section) { HKEY hSectionKey = NULL; DWORD Dummy; RegCreateKeyEx (hAppKey, Section, 0, REG_NONE, REG_OPTION_NON_VOLATILE, KEY_WRITE|KEY_READ, NULL, &hSectionKey, &Dummy); return hSectionKey; } int GetRegistryInt (HKEY hSectionKey, LPCTSTR Entry, int Default) { DWORD Value; DWORD Type; DWORD Count = sizeof (DWORD); if (RegQueryValueEx (hSectionKey, (LPTSTR) Entry, NULL, &Type, (LPBYTE) &Value, &Count) == ERROR_SUCCESS) return Value; return Default; } bool WriteRegistryInt (HKEY hSectionKey, char* Entry, int nValue) { return RegSetValueEx (hSectionKey, Entry, NULL, REG_DWORD, (LPBYTE) &nValue, sizeof (nValue)) == ERROR_SUCCESS; }