DeaR

if nyaos.create_object then
  local major, minor, build = nyaos.eval(os.getenv('COMSPEC') .. ' /c ver'):match('(%d+).(%d+).(%d+)')
  if tonumber(major) >= 6 then
    function nyaos.command.sudo(...)
      local t = os.tmpname()
      t = os.getenv('TEMP') .. '/' .. table.concat({string.byte(t, 1, t:len())})
      nyaos.create_object('Shell.Application'):ShellExecute(nyaos.argv[0], '-e \034' .. table.concat({...}, ' ') .. ' > ' .. t .. ' ; echo \\nyaos_sudo_end\\ >> ' .. t .. '\034', nyaos.eval('pwd'), 'runas', 0)
      local e
      while e ~= '\\nyaos_sudo_end\\' do
        f = io.open(t, 'r')

DeaR

-- Shebang for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--     Copyright (c) 2010 wantora
--
--     Permission is hereby granted, free of charge, to any person obtaining a
--     copy of this software and associated documentation files (the

DeaR

diff -r c95acae76050 lsf.cpp
--- a/lsf.cpp Sun Feb 24 15:47:59 2013 +0900
+++ b/lsf.cpp	Tue Feb 26 19:34:27 2013 +0900
@@ -10,6 +10,8 @@
 #  include "ntcons.h" 
 #  include <windows.h>
 #  include <wincon.h>
+#  include <locale.h>
+#  include <ddk/ntifs.h>
 #endif

DeaR

; Shaberu.l
; 元ネタ: http://blog.supermomonga.com/articles/vim/shaberu-vim.html

; 棒読みちゃんを起動しておいてください
; http://chi.usamimi.info/Program/Application/BouyomiChan/

(defconstant *shaberu-addr* "127.0.0.1")
(defconstant *shaberu-port* 50001)
(defun shaberu-say (str)
  (with-open-stream (stream (connect *shaberu-addr* *shaberu-port*))

DeaR

-- Force expand of Unix style environment variable for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  14-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
--     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

DeaR

-- Complete by command for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--     Copyright (c) 2011 azu_re
--     Copyright (c) 2010 wantora
--
--     Permission is hereby granted, free of charge, to any person obtaining a

DeaR

-- Abbreviations for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
--     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

DeaR

-- Global alias for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
--     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

DeaR

-- Porting z.sh for NYAOS 3.x
--
-- Maintainer:   DeaR <nayuri@kuonn.mydns.jp>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
--     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

DeaR

(defun find-file-buffer-encoding (arg)
  "エンコーディングの自動判定"
  (let ((encoding (gethash (substitute-string arg "-\\(dos\\|mac\\|unix\\)$" "" :case-fold t)
                            *mime-charset-name-hash-table*))
        (eol (cond ((string-matchp "-dos$" arg)
                    *eol-crlf*)
                   ((string-matchp "-mac$" arg)
                    *eol-cr*)
                   ((string-matchp "-unix$" arg)
                    *eol-lf*))))