fontina-windows 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 475183ef6216f5b7b1f72b687c2f026965f9fb80
+  data.tar.gz: 2f7e6de102596e7bffe1490d62e0c6195990e06b
+SHA512:
+  metadata.gz: 7246fcbec02d446b3b98a73aacf34b8d7f7e83ee4588d11d6cbe30fc50289281fd03be88f35c5d0704f454708a9978c8a0f08e29abd49d5d7ec82ce113404dff
+  data.tar.gz: 9af0184ecfe4375d2756c080b3fc8707d38b1cd973c83867c430eb4ac18d57dbd899b904b25025f0167d2f537511a392763285646783310074362d86154f4c98

data/Gemfile

@@ -0,0 +1,3 @@
+source 'https://rubygems.org'
+
+gemspec

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2017 Michael Petter
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,42 @@
+# Fontina Windows Extensions
+
+[![Version](http://img.shields.io/gem/v/fontina-windows.svg)                        ](https://rubygems.org/gems/fontina-windows)
+[![Travis ](https://img.shields.io/travis/michaeljpetter/fontina-windows/master.svg)](https://travis-ci.org/michaeljpetter/fontina-windows)
+
+Welcome to your new gem! In this directory, you'll find the files you need to be able to package up your Ruby library into a gem. Put your Ruby code in the file `lib/fontina/windows`. To experiment with that code, run `bin/console` for an interactive prompt.
+
+TODO: Delete this and the text above, and describe your gem
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'fontina-windows'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install fontina-windows
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Development
+
+After checking out the repo, run `bin/setup` to install dependencies. Then, run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release` to create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Contributing
+
+1. Fork it ( https://github.com/michaeljpetter/fontina-windows/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/fontina-windows.gemspec

@@ -0,0 +1,27 @@
+require_relative 'lib/fontina/windows/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = 'fontina-windows'
+  gem.version       = Fontina::Windows::VERSION
+  gem.author        = 'Michael Petter'
+  gem.email         = 'michaeljpetter@gmail.com'
+
+  gem.summary       = 'A cheesy windows font extension'
+  gem.description   = <<-END
+    Installs font files in Windows.
+  END
+  gem.homepage      = 'http://github.com/michaeljpetter/fontina-windows'
+  gem.license       = 'MIT'
+
+  gem.platform      = Gem::Platform::RUBY
+  gem.files         = Dir.glob %w(lib/**/* Gemfile *.gemspec LICENSE* README*)
+  gem.require_paths = ['lib']
+
+  gem.add_dependency 'fontina', '>= 0.2.1'
+  gem.add_dependency 'mores', '>= 0.1.5'
+
+  gem.add_development_dependency 'bundler', '~> 1.7'
+  gem.add_development_dependency 'rake', '~> 10.0'
+  gem.add_development_dependency 'rspec', '~> 3.4'
+  gem.add_development_dependency 'rspec-its', '~> 1.2'
+end

data/lib/fontina/windows/install.rb

@@ -0,0 +1,8 @@
+module Fontina::Windows::Install
+  Fontina.extend self
+
+  def install(location)
+    open(location).install
+  end
+
+end

data/lib/fontina/windows/marshal.rb

@@ -0,0 +1,42 @@
+module Fontina::Windows
+
+  module Marshal
+    BYTE = Encoding::BINARY
+    WCHAR = Encoding::UTF_16LE
+
+    private_constant *constants
+    module_function
+
+    define_method :dword, &(
+      Class.new(String) do
+        def initialize(i)
+          super [i].pack('V')
+        end
+        def to_i
+          unpack('V')[0]
+        end
+      end
+    ).method(:new)
+
+    alias_method :pvoid, :dword
+    module_function :pvoid
+
+    def byte(n)
+      n.chr BYTE
+    end
+
+    def wchar(n)
+      n.chr WCHAR
+    end
+
+    def wstr(s)
+      s.encode WCHAR unless s.nil?
+    end
+
+    def wstr!(s)
+      s.force_encoding WCHAR unless s.nil?
+    end
+  end
+  private_constant :Marshal
+
+end

data/lib/fontina/windows/meta_package.rb

@@ -0,0 +1,36 @@
+module Fontina
+  module Windows
+
+    module MetaPackage
+      include Marshal
+      Fontina::MetaPackage.include self
+
+      def registered_name
+        @registered_name ||= begin
+          name = package.preferred_name \
+            ? wstr(package.preferred_name.name)
+            : package.fonts.map { |f| wstr(f.preferred_name.name) }.join(wstr(' & '))
+
+          [Formats::OpenType].include?(format) \
+            ? name + wstr(' (TrueType)')
+            : name
+        end
+      end
+
+      def install
+        conflicts = Windows.registered_fonts
+          .find_all { |(name, path)| (name == registered_name) ^ (path == file.filename) }
+        fail "Conflicting registrations found: #{conflicts.to_h}" unless conflicts.empty?
+
+        File.write File.join(Windows.fonts_directory, file.filename), file.content
+
+        unless (count = Windows.add_font_resource file.filename) == package.fonts.length
+          fail "Windows reported #{count} fonts added (expected: #{package.fonts.length})"
+        end
+
+        Windows.register_font registered_name, file.filename
+      end
+    end
+
+  end
+end

data/lib/fontina/windows/package.rb

@@ -0,0 +1,34 @@
+module Fontina
+
+  module Windows::QualifiedName
+    QualifiedName.include self
+
+    PRIMARY = /^[^-]*/
+    private_constant :PRIMARY
+
+    def score
+      @score ||=
+        case platform
+        when :unicode then 3
+        when :mac then 5 if language == Windows.system_language[PRIMARY]
+        when :windows
+          if language == Windows.system_language then 7
+          elsif language[PRIMARY] == Windows.system_language[PRIMARY] then 6
+          elsif language == 'en-US' then 2
+          else 1
+          end
+        end || 0
+    end
+  end
+
+  module Windows::PreferredName
+    Font.include self
+    Package.include self
+
+    def preferred_name
+      @preferred_name = names.max_by &:score unless defined? @preferred_name
+      @preferred_name
+    end
+  end
+
+end

data/lib/fontina/windows/version.rb

@@ -0,0 +1,7 @@
+module Fontina
+
+  module Windows
+    VERSION = '0.1.0'
+  end
+
+end

data/lib/fontina/windows/win32/advapi32.rb

@@ -0,0 +1,72 @@
+module Fontina::Windows::Win32
+
+  dlload :Advapi32 do
+    extern 'long RegOpenKeyExW(PVOID, LPCSTR, DWORD, DWORD, PVOID*)' \
+      do |hkey, subkey, sam, options: 0|
+        result = pvoid(NULL)
+        Error.check super(hkey, wstr(subkey), options, sam, result)
+        result.to_i
+      end
+
+    extern 'long RegCloseKey(PVOID)' \
+      do |*_|
+        Error.check super(*_)
+      end
+
+    extern 'long RegQueryInfoKeyW(PVOID, LPSTR, DWORD*, DWORD*, DWORD*, DWORD*, DWORD*, DWORD*, DWORD*, DWORD*, DWORD*, DWORD64*)' \
+      do |hkey|
+        subkey_count = dword(NULL)
+        max_subkey_len = dword(NULL)
+        value_count = dword(NULL)
+        max_name_len = dword(NULL)
+        max_data_len = dword(NULL)
+        Error.check super(hkey, NULL, NULL, NULL, subkey_count, max_subkey_len, NULL, value_count, max_name_len, max_data_len, NULL, NULL)
+        const_get(:RegQueryInfoKeyResult)[
+          subkey_count.to_i, max_subkey_len.to_i, value_count.to_i, max_name_len.to_i, max_data_len.to_i
+        ]
+      end
+
+    const_set :RegQueryInfoKeyResult, Mores::ImmutableStruct.new(
+      *%i[subkey_count max_subkey_len value_count max_name_len max_data_len],
+      strict: true
+    )
+
+    extern 'long RegEnumValueW(PVOID, DWORD, LPSTR, DWORD*, DWORD*, DWORD*, BYTE*, DWORD*)' \
+      do |hkey, index, name_len: 16383, data_len: nil|
+        name, name_len = wchar(0) * name_len, dword(name_len)
+        type = dword(NULL)
+        data, data_len = data_len ? [byte(0) * data_len, dword(data_len)] : [NULL, dword(NULL)]
+        Error.check super(hkey, index, name, name_len, NULL, type, data, data_len)
+        const_get(:RegEnumValueResult)[
+          name[0, name_len.to_i], type.to_i, (data[0, data_len.to_i] unless NULL == data), data_len.to_i
+        ]
+      end
+
+    const_set :RegEnumValueResult, Mores::ImmutableStruct.new(
+      *%i[name type data data_len],
+      strict: true
+    )
+
+    extern 'long RegGetValueW(PVOID, LPCSTR, LPCSTR, DWORD, DWORD*, BYTE*, DWORD*)' \
+      do |hkey, subkey, name, flags: RRF_RT_ANY, data_len: nil|
+        type = dword(NULL)
+        data, data_len = data_len ? [byte(0) * data_len, dword(data_len)] : [NULL, dword(NULL)]
+        Error.check super(hkey, wstr(subkey), wstr(name), flags, type, data, data_len)
+        const_get(:RegGetValueResult)[
+          type.to_i, (data[0, data_len.to_i] unless NULL == data), data_len.to_i
+        ]
+      end
+
+    const_set :RegGetValueResult, Mores::ImmutableStruct.new(
+      *%i[type data data_len],
+      strict: true
+    )
+
+    extern 'long RegSetValueExW(PVOID, LPCSTR, DWORD, DWORD, BYTE*, DWORD)' \
+      do |hkey, name, type, data|
+        data_len = data ? data.bytesize : 0
+        Error.check super(hkey, wstr(name), 0, type, data, data_len)
+      end
+  end
+
+end

data/lib/fontina/windows/win32/constants.rb

@@ -0,0 +1,32 @@
+module Fontina::Windows::Win32
+
+  NULL = 0
+  MAX_PATH = 260
+
+  ERROR_SUCCESS       =   0
+  ERROR_MORE_DATA     = 234
+  ERROR_NO_MORE_ITEMS = 259
+
+  FORMAT_MESSAGE_FROM_SYSTEM    = 0x1000
+  FORMAT_MESSAGE_IGNORE_INSERTS = 0x0200
+
+  HWND_BROADCAST = 0xffff
+
+  WM_FONTCHANGE = 0x001d
+
+  CSIDL_FONTS = 0x0014
+
+  SHGFP_TYPE_CURRENT = 0
+  SHGFP_TYPE_DEFAULT = 1
+
+  HKEY_LOCAL_MACHINE = 0x80000002
+
+  KEY_READ  = 0x20019
+  KEY_WRITE = 0x20006
+
+  REG_SZ = 1
+
+  RRF_RT_ANY    = 0x0000ffff
+  RRF_RT_REG_SZ = 0x00000002
+
+end

data/lib/fontina/windows/win32/dlload.rb

@@ -0,0 +1,30 @@
+module Fontina::Windows
+
+  module Win32
+    def self.dlload(name)
+      const_set(name, Module.new do
+        extend Importer
+        dlload "#{name}.dll"
+        include Fiddle::Win32Types
+
+        instance_eval &Proc.new if block_given?
+      end)
+    end
+
+    module Importer
+      include Fiddle::Importer
+      include Marshal
+
+      def extern(*)
+        super.tap { |fn| decorators.send(:define_method, fn.name, &Proc.new) if block_given? }
+      end
+
+      private
+
+      def decorators
+        @decorators ||= Module.new.tap { |m| singleton_class.prepend m }
+      end
+    end
+  end
+
+end

data/lib/fontina/windows/win32/error.rb

@@ -0,0 +1,37 @@
+module Fontina::Windows::Win32
+
+  class Error < StandardError
+    attr_reader :code
+
+    def initialize(code)
+      @code = code
+    end
+
+    def to_s
+      @message ||= begin
+        Kernel32.FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM, code, 1024).rstrip
+      rescue Error
+        '0x%04x' % code
+      end
+    end
+
+    class << self
+      def raise_last
+        raise new Kernel32.GetLastError()
+      end
+
+      def check_last
+        check Kernel32.GetLastError()
+      end
+
+      def check(code)
+        raise new code unless ERROR_SUCCESS == code
+      end
+
+      def check_hr(code)
+        raise new code unless 0 == code[31]
+      end
+    end
+  end
+
+end

data/lib/fontina/windows/win32/gdi32.rb

@@ -0,0 +1,12 @@
+module Fontina::Windows::Win32
+
+  dlload :Gdi32 do
+    extern 'int AddFontResourceW(LPCSTR)' \
+      do |filename|
+        count = super(wstr filename)
+        Error.check_last if 0 == count
+        count
+      end
+  end
+
+end

data/lib/fontina/windows/win32/kernel32.rb

@@ -0,0 +1,18 @@
+module Fontina::Windows::Win32
+
+  dlload :Kernel32 do
+    extern 'DWORD GetLastError()'
+
+    extern 'DWORD FormatMessageW(DWORD, PVOID, DWORD, DWORD, LPSTR, DWORD, PVOID)' \
+      do |flags, message_id, len, source: NULL, language_id: 0|
+        flags |= FORMAT_MESSAGE_IGNORE_INSERTS
+        buffer = wchar(0) * len
+        len = super(flags, source, message_id, language_id, buffer, len, NULL)
+        Error.raise_last if 0 == len
+        buffer[0, len]
+      end
+
+    extern 'WORD GetSystemDefaultUILanguage()'
+  end
+
+end

data/lib/fontina/windows/win32/shell32.rb

@@ -0,0 +1,12 @@
+module Fontina::Windows::Win32
+
+  dlload :Shell32 do
+    extern 'long SHGetFolderPathW(HWND, int, HANDLE, DWORD, LPSTR)' \
+      do |folder, token: NULL, flags: SHGFP_TYPE_CURRENT|
+        path = wchar(0) * MAX_PATH
+        Error.check_hr super(NULL, folder, token, flags, path)
+        path.rstrip
+      end
+  end
+
+end

data/lib/fontina/windows/win32/user32.rb

@@ -0,0 +1,10 @@
+module Fontina::Windows::Win32
+
+  dlload :User32 do
+    extern 'BOOL PostMessageW(HWND, UINT, UINT, long)' \
+      do |*_|
+        Error.raise_last if 0 == super(*_)
+      end
+  end
+
+end

data/lib/fontina/windows/win32.rb

@@ -0,0 +1,19 @@
+%w[
+  constants
+  dlload
+  error
+  kernel32
+  user32
+  shell32
+  gdi32
+  advapi32
+].each { |file| require_relative "win32/#{file}" }
+
+module Fontina::Windows
+
+  module Win32
+    private_constant *constants
+  end
+  private_constant :Win32
+
+end

data/lib/fontina/windows.rb

@@ -0,0 +1,61 @@
+%w[
+  fontina
+  fiddle
+  fiddle/types
+].each { |lib| require lib }
+
+%w[
+  version
+  language_codes
+  marshal
+  win32
+  package
+  meta_package
+  install
+].each { |file| require "fontina/windows/#{file}" }
+
+module Fontina::Windows
+  include Win32
+  extend Marshal
+
+  def self.system_language
+    @system_language ||= LANGUAGE_CODES.fetch Kernel32.GetSystemDefaultUILanguage()
+  end
+
+  def self.fonts_directory
+    @fonts_directory ||= Shell32.SHGetFolderPathW(CSIDL_FONTS).encode('filesystem').freeze
+  end
+
+  def self.registered_fonts
+    key = Advapi32.RegOpenKeyExW(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', KEY_READ)
+    begin
+      Advapi32.RegQueryInfoKeyW(key)
+        .tap do |info|
+          break info.value_count.times.map do |i|
+            Advapi32.RegEnumValueW(key, i, name_len: info.max_name_len + 1, data_len: info.max_data_len)
+          end
+        end
+        .reject { |value| value.type != REG_SZ }
+        .map { |value| [value.name, wstr!(value.data).rstrip.encode('filesystem')] }
+        .to_h
+    ensure
+      Advapi32.RegCloseKey(key)
+    end
+  end
+
+  def self.add_font_resource(path)
+    Gdi32.AddFontResourceW(path).tap do |count|
+      User32.PostMessageW(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) if 0 < count
+    end
+  end
+
+  def self.register_font(name, path)
+    key = Advapi32.RegOpenKeyExW(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', KEY_WRITE)
+    begin
+      Advapi32.RegSetValueExW(key, name, REG_SZ, wstr(path) + wchar(0))
+    ensure
+      Advapi32.RegCloseKey(key)
+    end
+  end
+
+end

metadata

@@ -0,0 +1,147 @@
+--- !ruby/object:Gem::Specification
+name: fontina-windows
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Michael Petter
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2017-02-17 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: fontina
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.2.1
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.2.1
+- !ruby/object:Gem::Dependency
+  name: mores
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.5
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.5
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.4'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.4'
+- !ruby/object:Gem::Dependency
+  name: rspec-its
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.2'
+description: |2
+      Installs font files in Windows.
+email: michaeljpetter@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- Gemfile
+- LICENSE.txt
+- README.md
+- fontina-windows.gemspec
+- lib/fontina/windows.rb
+- lib/fontina/windows/install.rb
+- lib/fontina/windows/marshal.rb
+- lib/fontina/windows/meta_package.rb
+- lib/fontina/windows/package.rb
+- lib/fontina/windows/version.rb
+- lib/fontina/windows/win32.rb
+- lib/fontina/windows/win32/advapi32.rb
+- lib/fontina/windows/win32/constants.rb
+- lib/fontina/windows/win32/dlload.rb
+- lib/fontina/windows/win32/error.rb
+- lib/fontina/windows/win32/gdi32.rb
+- lib/fontina/windows/win32/kernel32.rb
+- lib/fontina/windows/win32/shell32.rb
+- lib/fontina/windows/win32/user32.rb
+homepage: http://github.com/michaeljpetter/fontina-windows
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.8
+signing_key: 
+specification_version: 4
+summary: A cheesy windows font extension
+test_files: []