Windows

.gitignore

@@ -1,6 +1,13 @@
+src/deps/*
 src/deps/*/*
 src/*.o
 src/howl
+src/howl.exe
+src/howl.ico
+src/howl.png
+src/howl.res
+src/windist
+src/wininst
 *.bc
 *.bak
 site/build/

README.md

@@ -30,6 +30,8 @@ how to install Howl from source.
 based system).
 - `C compiler`: Howl has a very small C core itself, and it embeds
 dependencies written in C.
+- If you're using Windows, you *need* to build Howl inside of
+[MSYS2](https://msys2.github.io/)'s MinGW32 shell.
 
 ### Build && install
 

bundles/git/spec/git_spec.moon

@@ -1,6 +1,11 @@
 import bundle, config, VC from howl
 import File from howl.io
 
+echo = if jit.os == 'Windows'
+  "#{howl.sys.env.WD}echo.exe"
+else
+  '/bin/echo'
+
 describe 'Git bundle', ->
   setup -> bundle.load_by_name 'git'
   teardown -> bundle.unload 'git'
@@ -26,8 +31,7 @@ describe 'Git bundle', ->
           assert.equal instance.root, dir
 
     it 'returns nil if no git root was found', ->
-      File.with_tmpfile (file) ->
-        assert.is_nil git_vc.find file
+      assert.is_nil git_vc.find howl.io.File echo
 
   describe 'A Git instance', ->
     root = nil
@@ -106,7 +110,7 @@ describe 'Git bundle', ->
 
       it 'uses the executable in variable `git_path` if specified', (done) ->
         howl_async ->
-          config.git_path = '/bin/echo'
+          config.git_path = echo
           status, out = pcall git.run, git, 'using echo'
           config.git_path = nil
           assert status, out

bundles/howl-themes/solarized_light/solarized_light.moon

@@ -263,7 +263,7 @@ return {
       font:
         bold: true
         size: 'large'
-        family: 'Purisa,Latin Modern Sans'
+        family: 'Purisa,Comic Sans,Latin Modern Sans,Lucida Sans Unicode'
 
     definition: color: yellow
     function: color: blue

bundles/howl-themes/steinom/steinom.moon

@@ -247,7 +247,7 @@ return {
       font:
         bold: true
         size: 'large'
-        family: 'Purisa,Latin Modern Sans'
+        family: 'Purisa,Comic Sans,Latin Modern Sans,Lucida Sans Unicode'
 
     definition: color: yellow
 

bundles/howl-themes/tomorrow_night_blue/tm_night_blue.moon

@@ -246,7 +246,7 @@ return {
       font:
         bold: true
         size: 'large'
-        family: 'Purisa,Latin Modern Sans'
+        family: 'Purisa,Comic Sans,Latin Modern Sans,Lucida Sans Unicode'
 
     definition: color: yellow
 

lib/aullar/gutter.moon

@@ -4,7 +4,7 @@
 {:define_class} = require 'aullar.util'
 Pango = require 'ljglibs.pango'
 {:RGBA} = require 'ljglibs.gdk'
-Background = require 'ljglibs.aux.background'
+Background = require 'ljglibs.util.background'
 Layout = Pango.Layout
 pango_cairo = Pango.cairo
 

lib/aullar/view.moon

@@ -282,9 +282,14 @@ View = {
 
     if opts.vertical
       page_size = @lines_showing - 1
+      upper = @buffer.nr_lines
+      if page_size == 0
+        -- GtkRange docs mention that page_size is normally >0 for GtkScrollbar
+        upper = 2
+        page_size = 1
       adjustment = @vertical_scrollbar.adjustment
       if adjustment
-        adjustment\configure @first_visible_line, 1, @buffer.nr_lines, 1, page_size, page_size
+        adjustment\configure @first_visible_line, 1, upper, 1, page_size, page_size
 
     if opts.horizontal
       max_width = 0

lib/howl/cdefs/init.moon

@@ -51,6 +51,9 @@ int sig_PWR;
 int sig_SYS;
 ]]
 
+if ffi.os == 'Windows'
+  require 'howl.cdefs.windows'
+
 return {
   const_char_p: ffi.typeof 'const char *'
   char_p: ffi.typeof 'char *'

lib/howl/cdefs/windows.moon

@@ -0,0 +1,21 @@
+-- Copyright 2016 The Howl Developers
+-- License: MIT (see LICENSE.md at the top-level directory of the distribution)
+
+ffi = require 'ffi'
+
+ffi.cdef [[
+  typedef void* HANDLE;
+  typedef void* PVOID;
+  typedef int DWORD;
+  typedef int BOOL;
+  typedef char* LPTSTR;
+  typedef const char* LPCTSTR;
+
+  DWORD GetProcessId(HANDLE process);
+  HANDLE _get_osfhandle(int fd);
+  BOOL TerminateProcess(HANDLE process, unsigned int exitcode);
+  int AddFontResourceExA(LPCTSTR lpszFilename, DWORD fl, PVOID pdv);
+  BOOL SetFileAttributesA(LPCTSTR file, DWORD attrs);
+
+  int fr_private;
+]]

lib/howl/commands/app_commands.moon

@@ -359,7 +359,7 @@ command.register
 -----------------------------------------------------------------------
 
 launch_cmd = (working_directory, cmd) ->
-  shell = howl.sys.env.SHELL or '/bin/sh'
+  shell = howl.sys.env.SHELL
   p = Process {
     :cmd,
     :shell,

lib/howl/init.lua

@@ -20,6 +20,8 @@ Where options can be any of:
 ]=]
 
 local path_separator = jit.os == 'Windows' and '\\' or '/'
+local path_prefix = jit.os == 'Windows' and '\\\\.\\' or ''
+app_root = path_prefix .. app_root
 
 local function parse_args(arg_vector)
   local options = {
@@ -168,12 +170,14 @@ local function main()
   set_package_path('lib', 'lib/ext', 'lib/ext/moonscript')
   require 'howl.moonscript_support'
   table.insert(package.loaders, 2, bytecode_loader())
-  require 'howl.cdefs.fontconfig'
-  ffi.C.FcConfigAppFontAddDir(nil, table.concat({app_root, 'fonts'}, path_separator))
   require 'ljglibs.cdefs.glib'
 
   howl = auto_module('howl')
   require('howl.globals')
+
+  local font_dir = table.concat({app_root, 'fonts'}, path_separator)
+  require('howl.sys').platform.load_font_dir(font_dir)
+
   _G.log = require('howl.log')
   local args = parse_args(argv)
 

lib/howl/interactions/file_selection.moon

@@ -45,13 +45,15 @@ class FileSelector
     parent or= File.home_dir
 
     path = @command_line\pop_spillover!
+    -- Make / work on Windows.
+    path = path\gsub '/', File.separator
 
     if path.is_empty
-      path = tostring(parent) .. '/'
+      path = tostring(parent) .. File.separator
     else
-      trailing = path\ends_with('/') and '/' or ''
+      trailing = path\ends_with(File.separator) and File.separator or ''
       path = tostring parent / path
-      if not path\ends_with '/'
+      if not path\ends_with File.separator
         path ..= trailing
 
     directory, unmatched = get_dir_and_leftover path
@@ -93,7 +95,12 @@ class FileSelector
   on_update: (text) =>
     return if @submitting
 
-    path = @directory.path .. '/' .. text
+    -- This allows one to use / as a directory separator, even on Windows.
+    text = text\gsub '/', File.separator
+    path = if File.is_absolute text
+      text
+    else
+      @directory.path .. File.separator .. text
     directory, text = get_dir_and_leftover path
 
     if directory != @directory

lib/howl/io/file.moon

@@ -5,6 +5,7 @@ GFile = require 'ljglibs.gio.file'
 GFileInfo = require 'ljglibs.gio.file_info'
 glib = require 'ljglibs.glib'
 import PropertyObject from howl.util.moon
+import platform from howl.sys
 append = table.insert
 
 file_types = {
@@ -19,12 +20,12 @@ file_types = {
 class File extends PropertyObject
 
   tmpfile: ->
-    file = File assert os.tmpname!
-    file.touch if not file.exists
+    file = File platform.tmpname!
+    file\touch! if not file.exists
     file
 
   tmpdir: ->
-    with File os.tmpname!
+    with File platform.tmpname!
       \delete! if .exists
       \mkdir!
 
@@ -35,7 +36,7 @@ class File extends PropertyObject
     error err if not status
 
   is_absolute: (path) ->
-    (path\match('^/') or path\match('^%a:\\\\')) != nil
+    (path\match('^/') or path\match('^%a:\\')) != nil
 
   expand_path: (path) ->
     res = path\gsub "~#{File.separator}", File.home_dir.path .. File.separator
@@ -79,7 +80,7 @@ class File extends PropertyObject
   @property size: get: => @_info!.size
   @property exists: get: => @gfile.exists
   @property readable: get: => @exists and @_info('access')\get_attribute_boolean 'access::can-read'
-  @property etag: get: => @exists and @_info('etag').etag
+  @property etag: get: => @exists and @_info('etag').etag or nil
   @property modified_at: get: => @exists and @_info('time')\get_attribute_uint64 'time::modified'
   @property short_path: get: => @path\gsub "^#{File.home_dir.path}", '~'
 

lib/howl/io/input_stream.moon

@@ -3,13 +3,15 @@
 
 dispatch = howl.dispatch
 glib = require 'ljglibs.glib'
-{:UnixInputStream} = require 'ljglibs.gio'
+{:Win32InputStream, :UnixInputStream} = require 'ljglibs.gio'
 {:PropertyObject} = howl.util.moon
+{:platform} = howl.sys
 append = table.insert
 
 class InputStream extends PropertyObject
   new: (@stream, @priority = glib.PRIORITY_LOW) =>
-    @stream = UnixInputStream(@stream) if type(@stream) == 'number'
+    if type(@stream) == 'number'
+      @stream = platform.fd_to_stream Win32InputStream, UnixInputStream, @stream
     super!
 
   @property is_closed: get: => @stream.is_closed

lib/howl/io/output_stream.moon

@@ -2,12 +2,13 @@
 -- License: MIT (see LICENSE.md at the top-level directory of the distribution)
 
 dispatch = howl.dispatch
-{:UnixOutputStream} = require 'ljglibs.gio'
+{:Win32OutputStream, :UnixOutputStream} = require 'ljglibs.gio'
 {:PropertyObject} = howl.util.moon
+{:platform} = howl.sys
 
 class OutputStream extends PropertyObject
   new: (fd) =>
-    @stream = UnixOutputStream fd
+    @stream = platform.fd_to_stream Win32OutputStream, UnixOutputStream, fd
     super!
 
   @property is_closed: get: => @stream.is_closed

lib/howl/io/process.moon

@@ -7,6 +7,7 @@ jit = require 'jit'
 callbacks = require 'ljglibs.callbacks'
 dispatch = howl.dispatch
 {:File, :InputStream, :OutputStream} = howl.io
+{:platform} = howl.sys
 
 C, ffi_cast = ffi.C, ffi.cast
 append = table.insert
@@ -36,11 +37,16 @@ shell_quote = (s) ->
   else
     s
 
-get_command = (v, shell = '/bin/sh') ->
+get_command = (v, shell = platform.default_shell!) ->
   t = type v
 
   if t == 'string'
-    return { shell, '-c', v }, v
+    arg = if shell\find 'cmd.exe'
+      -- Likely cmd.exe.
+      '/C'
+    else
+      '-c'
+    return { shell, arg, v }, v
   elseif t != 'table'
     return nil
 
@@ -108,6 +114,7 @@ class Process
     @argv, @command_line = get_command opts.cmd, opts.shell
     error 'opts.cmd missing or invalid', 2 unless @argv
     @_process = launch @argv, opts
+    @true_pid = @_process.true_pid
     @pid = @_process.pid
     @working_directory = File opts.working_directory or get_current_dir!
     @stdin = OutputStream(@_process.stdin_pipe) if @_process.stdin_pipe
@@ -118,7 +125,7 @@ class Process
     @@running[@pid] = @
 
     @_exit_handle = callbacks.register child_exited, "process-watch-#{@pid}", @
-    C.g_child_watch_add ffi_cast('GPid', @pid), child_watch_callback, callbacks.cast_arg(@_exit_handle.id)
+    C.g_child_watch_add ffi_cast('GPid', @true_pid), child_watch_callback, callbacks.cast_arg(@_exit_handle.id)
 
   wait: =>
     return if @exited
@@ -127,7 +134,7 @@ class Process
 
   send_signal: (signal) =>
     signal = signals[signal] if type(signal) == 'string'
-    C.kill(@pid, signal)
+    platform.send_signal @true_pid, signal
 
   pump: (on_stdout, on_stderr) =>
     if on_stdout and not @stdout

lib/howl/log.moon

@@ -37,6 +37,7 @@ dispatch = (level, message) ->
     command_line\notify essentials, level if command_line.showing
   elseif not _G.howl.app.args.spec
     _G.print message
+    _G.io.flush!
 
   while #entries > config.max_log_entries and #entries > 0
     table.remove entries, 1