0017031

#load "NativeMethod.fsx"

open System
open System.IO
open System.Text
open NativeMethod

let nullptr = IntPtr.Zero

let write (str:string) handle =

0017031

namespace Test

open System.Runtime.InteropServices

// F# implementation of http://pinvoke.net/default.aspx/mpr.WNetAddConnection2

module NativeMethods =
    type ResourceScope =
        | Connected = 0x1u
        | GlobalNet = 0x2u

0017031

let trampoline f c n =
    let rec loop = function
    | Choice1Of2 x -> x
    | Choice2Of2 x -> loop (f x)
    loop (Choice2Of2 (c,n))

// Test
let factorial n = 
    let rec factorialT (current, n) =
        if n = bigint 0 then Choice1Of2 current

0017031

//This just weves the prepareStackFree function in through the running function
//what we end up with is what looks like a nested monad
type 't Running = 
    |Result of 't
    |Step of (unit->'t Running)
type 't RunningBuilder = RunningBuilder of ((('t->'t RunningBuilder) list)->'t Running)
type RunningMonad() = 
    member this.Bind(RunningBuilder expr,fn) =
        RunningBuilder(fun stack-> Step(fun()->expr(fn::stack)))
    member this.Delay(fn) = 

0017031

open System
open System.Diagnostics

type InteractionF<'f> =
    | Get of (string -> 'f)
    | Put of string * 'f
    with
    static member map f = function
        | Get g -> Get (f << g)
        | Put (s, g) -> Put (s, f g)

0017031

Forked from: https://gist.github.com/mmozeiko/7f3162ec2988e81e56d5c4e22cde9977

This downloads standalone 64-bit MSVC compiler, linker & other tools, also headers/libraries from Windows SDK into portable folder, without installing Visual Studio. Has bare minimum components - no UWP/Store/WindowsRT stuff, just files & tools for 64-bit native desktop app development.

Run python.exe portable-msvc.py and it will download output into msvc folder. By default it will download latest available MSVC & Windows SDK
(MANIFEST_URL = "https://aka.ms/vs/17/release/channel")
(https://learn.microsoft.com/en-us/visualstudio/releases/2022/release-history)

You can list available versions with python.exe portable-msvc.py --show-versions and then pass versions you want with --msvc-version and --sdk-version arguments.

0017031

# Reset Jetbrains 2020 Products
import glob
import os
import winreg
from os import path
from os.path import expanduser

home = expanduser("~")
newJetbrainsHome = path.join(home, "AppData\Roaming\JetBrains")

0017031

/** 
* @file   endianness.h
* @brief  Convert Endianness of shorts, longs, long longs, regardless of architecture/OS
*
* Defines (without pulling in platform-specific network include headers):
* bswap16, bswap32, bswap64, ntoh16, hton16, ntoh32 hton32, ntoh64, hton64
*
* Should support linux / macos / solaris / windows.
* Supports GCC (on any platform, including embedded), MSVC2015, and clang,
* and should support intel, solaris, and ibm compilers as well.

0017031

#include <windows.h>
#include <stdio.h>
#include <tchar.h>

#define NT_SUCCESS(Status) (((NTSTATUS)(Status)) >= 0)
#define STATUS_PRIVILEGE_NOT_HELD        ((NTSTATUS)0xC0000061L)

typedef enum _SYSTEM_INFORMATION_CLASS {
	SystemMemoryListInformation = 80, // 80, q: SYSTEM_MEMORY_LIST_INFORMATION; s: SYSTEM_MEMORY_LIST_COMMAND (requires SeProfileSingleProcessPrivilege)
} SYSTEM_INFORMATION_CLASS;

0017031

1
00:00:06,589 --> 00:00:14,360
 to my baboons from tom de village asia and to say everywhere will be with 

2
00:00:16,640 --> 00:00:24,920
 hello thanks for coming thanks dmitry for introducing me a little 

3
00:00:24,920 --> 00:00:31,680