windows
Factor handbook » The implementation » System interface » Operating system detection

Prev:	macos
Next:	unix

Vocabulary
system

Definition

IN: system

SINGLETON: windows

Methods

USING: system zealot.factor ;

M: windows compile-factor-command
    { "nmake" "/f" "NMakefile" "x86-64" } ;


USING: kernel layouts mason.child sequences system ;

M: windows compile-factor-command
    { "nmake" "/f" "NMakefile" } cell-bits 64 =
    "x86-64-vista" "x86-32-vista" ? suffix ;


USING: kernel mason.release.dlls sequences system ;

M: windows dll-list
    cpu x86.64 = {
        "resource:libcrypto-3-x64.dll"
        "resource:libssl-3-x64.dll"
    } { "resource:libcrypto-3.dll" "resource:libssl-3.dll" } ?
    { "resource:sqlite3.dll" } append ;


USING: mason.child system ;

M: windows factor-path "./factor.com" ;


USING: system zealot.factor ;

M: windows factor-path "./factor.com" ;


USING: combinators.short-circuit editors.geany io.standard-paths
system ;

M: windows find-geany-path
    {
        [ { "Geany" } "geany.exe" find-in-applications ]
        [ "Geany.exe" ]
    } 0|| ;


USING: editors.gvim io.standard-paths system ;

M: windows find-gvim-path
    { "vim" } "gvim.exe" find-in-applications ;


USING: editors.jedit io.standard-paths system ;

M: windows find-jedit-path
    { "jedit" } "jedit.exe" find-in-applications ;


USING: editors.kate io.standard-paths kernel system ;

M: windows find-kate-path
    { "Kate" } "kate.exe" find-in-applications
    [ "kate.exe" ] unless* ;


USING: editors.lite-xl io.standard-paths kernel system ;

M: windows find-lite-xl-editor-path
    { "lite-xl" } "xl.exe" find-in-applications
    [ "xl.exe" ] unless* ;


USING: editors.notepadnext io.standard-paths kernel system ;

M: windows find-notepadnext-path
    { "Notepad Next" } "NotepadNext.exe" find-in-applications
    [ "NotepadNext.exe" ] unless* t ;


USING: editors.rider io.standard-paths kernel system ;

M: windows find-rider-path
    { "Jetbrains" } "rider64.exe" find-in-applications
    [ "rider64.exe" ] unless* ;


USING: editors.scite io.standard-paths kernel system ;

M: windows find-scite-path
    { "Scintilla Text Editor" "SciTE Source Code Editor" }
    "scite.exe" find-in-applications [ "scite.exe" ] unless* ;


USING: combinators.short-circuit editors.sublime
io.standard-paths system ;

M: windows find-sublime-path
    {
        [ { "Sublime Text 3" } "subl.exe" find-in-applications ]
        [
            { "Sublime Text 2" } "sublime_text.exe"
            find-in-applications
        ]
        [ "subl.exe" ]
    } 0|| ;


USING: editors.textadept io.standard-paths kernel system ;

M: windows find-textadept-path
    { "textadept_6.5.win32" } "textadept.exe"
    find-in-applications [ "textadept.exe" ] unless* ;


USING: editors.ultraedit io.standard-paths kernel system ;

M: windows find-ultraedit
    { "IDM Computer Solutions" } "uedit32.exe"
    find-in-applications [ "uedit32.exe" ] unless* ;


USING: combinators.short-circuit editors.focus namespaces system
;

M: windows focus-path
    { [ \ focus-path get ] [ "focus.exe" ] } 0|| ;


USING: environment etc-hosts io.pathnames system ;

M: windows hosts-path
    "SystemRoot" os-env "System32/drivers/etc/hosts" append-path
    ;


USING: alien.strings io.encodings.utf16 system ;

M: windows native-string-encoding utf16n ;


USING: kernel mason.common mason.release.sign sequences system ;

M:: windows sign-factor-app ( -- )
    {
        "factor.com"
        "factor.exe"
        "factor.dll"
        "libfactor-ffi-test.dll"
    } [
        {
            "signtool"
            "sign"
            "/v"
            "/tr"
            "http://timestamp.digicert.com"
            "/td"
            "SHA256"
            "/fd"
            "SHA256"
            "/a"
        } swap make-factor-path suffix short-running-process
    ] each ;