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

Prev:	macosx
Next:	unix

Vocabulary
system

Definition

IN: system

SINGLETON: windows

Methods

USING: io.pathnames mason.release.sign system ;

M: windows cert-path home "config/FactorSPC.pfx" append-path ;


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: mason.release.dlls system ;

M: windows dll-list
    {
        "resource:libcrypto-37.dll"
        "resource:libssl-38.dll"
        "resource:libtls-10.dll"
        "resource:sqlite3.dll"
    } ;


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.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: 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" } [
        {
            "signtool"
            "sign"
            "/fd"
            "SHA256"
            "/v"
            "/f"
            "/Users/jbenedik/config/mac_app.cer"
            "/tr"
            "http://time.certum.pl"
            "/td"
            "SHA256"
        } swap make-factor-path suffix short-running-process
    ] each ;