This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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') |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; 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*)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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*)))) |