basis/editors/brackets/windows/windows.factor

   1 ! Copyright (C) 2015 Dimage Sapelkin.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: alien.data alien.strings combinators editors
   4 editors.brackets kernel make math.parser namespaces quotations
   5 sequences system windows.advapi32 windows.registry
   6 windows.registry.private windows.types windows.errors ;
   7
   8 IN: editors.brackets.windows
   9
  10 M: windows brackets-path
  11     HKEY_LOCAL_MACHINE
  12     "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Brackets.exe"
  13     KEY_READ [
  14         f f f
  15         registry-value-max-length TCHAR <c-array>
  16         reg-query-value-ex
  17     ] with-open-registry-key alien>native-string ;