132 lines
4.2 KiB
Factor
Executable File
132 lines
4.2 KiB
Factor
Executable File
USING: generic help.markup help.syntax kernel math memory
|
|
namespaces sequences kernel.private strings classes.singleton ;
|
|
IN: system
|
|
|
|
ABOUT: "system"
|
|
|
|
ARTICLE: "system" "System interface"
|
|
{ $subsection "cpu" }
|
|
{ $subsection "os" }
|
|
{ $subsection "environment-variables" }
|
|
"Getting the path to the Factor VM and image:"
|
|
{ $subsection vm }
|
|
{ $subsection image }
|
|
"Getting the current time:"
|
|
{ $subsection millis }
|
|
"Exiting the Factor VM:"
|
|
{ $subsection exit } ;
|
|
|
|
ARTICLE: "environment-variables" "Environment variables"
|
|
"Reading environment variables:"
|
|
{ $subsection os-env }
|
|
{ $subsection os-envs }
|
|
"Writing environment variables:"
|
|
{ $subsection set-os-env }
|
|
{ $subsection unset-os-env }
|
|
{ $subsection set-os-envs } ;
|
|
|
|
ARTICLE: "cpu" "Processor detection"
|
|
"Processor detection:"
|
|
{ $subsection cpu }
|
|
"Supported processors:"
|
|
{ $subsection x86.32 }
|
|
{ $subsection x86.64 }
|
|
{ $subsection ppc }
|
|
{ $subsection arm }
|
|
"Processor families:"
|
|
{ $subsection x86 } ;
|
|
|
|
ARTICLE: "os" "Operating system detection"
|
|
"Operating system detection:"
|
|
{ $subsection os }
|
|
"Supported operating systems:"
|
|
{ $subsection freebsd }
|
|
{ $subsection linux }
|
|
{ $subsection macosx }
|
|
{ $subsection openbsd }
|
|
{ $subsection netbsd }
|
|
{ $subsection solaris }
|
|
{ $subsection wince }
|
|
{ $subsection winnt }
|
|
"Operating system families:"
|
|
{ $subsection bsd }
|
|
{ $subsection unix }
|
|
{ $subsection windows } ;
|
|
|
|
|
|
HELP: cpu
|
|
{ $values { "class" singleton-class } }
|
|
{ $description
|
|
"Outputs a singleton class with the name of the current CPU architecture."
|
|
} ;
|
|
|
|
HELP: os
|
|
{ $values { "class" singleton-class } }
|
|
{ $description
|
|
"Outputs a singleton class with the name of the current operating system family."
|
|
} ;
|
|
|
|
HELP: embedded?
|
|
{ $values { "?" "a boolean" } }
|
|
{ $description "Tests if this Factor instance is embedded in another application." } ;
|
|
|
|
HELP: exit ( n -- )
|
|
{ $values { "n" "an integer exit code" } }
|
|
{ $description "Exits the Factor process." } ;
|
|
|
|
HELP: millis ( -- n )
|
|
{ $values { "n" integer } }
|
|
{ $description "Outputs the number of milliseconds ellapsed since midnight January 1, 1970." }
|
|
{ $notes "This is a low-level word. The " { $vocab-link "calendar" } " vocabulary provides features for date/time arithmetic and formatting." } ;
|
|
|
|
HELP: os-env ( key -- value )
|
|
{ $values { "key" string } { "value" string } }
|
|
{ $description "Looks up the value of a shell environment variable." }
|
|
{ $examples
|
|
"This is an operating system-specific feature. On Unix, you can do:"
|
|
{ $unchecked-example "\"USER\" os-env print" "jane" }
|
|
}
|
|
{ $errors "Windows CE has no concept of environment variables, so this word throws an error there." } ;
|
|
|
|
HELP: os-envs
|
|
{ $values { "assoc" "an association mapping strings to strings" } }
|
|
{ $description "Outputs the current set of environment variables." }
|
|
{ $notes
|
|
"Names and values of environment variables are operating system-specific."
|
|
}
|
|
{ $errors "Windows CE has no concept of environment variables, so this word throws an error there." } ;
|
|
|
|
HELP: set-os-envs
|
|
{ $values { "assoc" "an association mapping strings to strings" } }
|
|
{ $description "Replaces the current set of environment variables." }
|
|
{ $notes
|
|
"Names and values of environment variables are operating system-specific. Windows NT allows values up to 32766 characters in length."
|
|
}
|
|
{ $errors "Windows CE has no concept of environment variables, so this word throws an error there." } ;
|
|
|
|
HELP: set-os-env ( value key -- )
|
|
{ $values { "value" string } { "key" string } }
|
|
{ $description "Set an environment variable." }
|
|
{ $notes
|
|
"Names and values of environment variables are operating system-specific."
|
|
}
|
|
{ $errors "Windows CE has no concept of environment variables, so this word throws an error there." } ;
|
|
|
|
HELP: unset-os-env ( key -- )
|
|
{ $values { "key" string } }
|
|
{ $description "Unset an environment variable." }
|
|
{ $notes
|
|
"Names and values of environment variables are operating system-specific."
|
|
}
|
|
{ $errors "Windows CE has no concept of environment variables, so this word throws an error there." } ;
|
|
|
|
{ os-env os-envs set-os-env unset-os-env set-os-envs } related-words
|
|
|
|
HELP: image
|
|
{ $values { "path" "a pathname string" } }
|
|
{ $description "Outputs the pathname of the currently running Factor image." } ;
|
|
|
|
HELP: vm
|
|
{ $values { "path" "a pathname string" } }
|
|
{ $description "Outputs the pathname of the currently running Factor VM." } ;
|