hymkor

@if (0) == (0) echo off
cscript //nologo /E:JScript "%~f0" %*
exit /b %ERRORLEVEL%
@end
var args = WScript.Arguments

if( args.length < 2 ){
    WScript.Echo("Usage: cscript ln.js [-s] FILENAME TARGET");
    WScript.Quit(1);
}

hymkor

nyagos.alias.svn = function(args)
    if args[1] == "amdc" then
        nyagos.exec("svn.exe status | findstr ^[AMDC]")
        return
    end
    args[0] = "svn.exe"
    if args[1] == "exclude" then
        args[1] = "update"
        table.insert(args,2,"--set-depth=exclude")
    elseif args[1] == "emptyup" then

hymkor

-- Remove %PATH%
do
    local paths = {}
    for dir in string.gmatch(nyagos.env.path,"[^;]+") do
        if not string.find(dir,"Intel") and 
            not string.find(dir,"Lenovo",1,true) and
            not string.find(dir,"Skype",1,true) and
            not string.find(dir,"SQL Server",1,true) and
            not string.find(dir,"chocolatey",1,true) and
            not string.find(dir,"TypeScript",1,true) and

hymkor

var objXml = new ActiveXObject("Msxml2.DOMDocument");

for(var j=0 ; j < WScript.Arguments.length ; j++){
    objXml.load(WScript.Arguments(j));
    var root = objXml.documentElement;
    var CompileTags = root.getElementsByTagName("Compile");
    for(var i=0 ; i < CompileTags.length ; i++ ){
        var IncludeAttr = CompileTags[i].getAttribute("Include");
        WScript.Echo(IncludeAttr);
    }

hymkor

#If WinActive("ahk_exe chrome.exe") or WinActive(,"OneNote")
^n::Send,{Down}
^p::Send,{Up}
^f::Send,{Right}
^b::Send,{Left}
^a::Send,{Home}
^e::Send,{End}
^d::Send,{Del}
^h::Send,{BackSpace}
^m::Send,{Enter}

hymkor

set "NEWFOLDER=%~dp0""new"
mkdir "%NEWFOLDER%"
for %%I in (%*) do cscript %~dpn0.js "%%~I" "%NEWFOLDER%\%%~nI.xltm"

hymkor

Module Module1

    Sub Main()
        Dim doubles() As Double = {2.5, 3.5, -2.5, -3.5}

        For Each d As Double In doubles
            Console.WriteLine("CInt({0})={1}", d, CInt(d))
            Console.WriteLine("Int({0})={1}", d, Int(d))
            Console.WriteLine("CInt(Int({0}))={1}", d, CInt(Int(d)))
            Console.WriteLine("Fix({0})={1}", d, Fix(d))

hymkor

package main

import (
	"fmt"
	"sync"
)

func Pipeline(funcs ...func(in, out chan int)) {
	var wg sync.WaitGroup
	out := make(chan int)

hymkor

package main

import (
	"fmt"
	"os"
)

func main(){
	value := 0.0
	for i,arg1 := range os.Args {

hymkor

nyagos.alias.go32=function(args)
    local save=nyagos.env.goarch
    nyagos.env.goarch = "386"
    nyagos.exec{"go",table.unpack(args)}
    nyagos.env.goarch = save
end