phasor_help.phs

Go to the documentation of this file.

using("stdio", "stdsys", "stdstr", "stdtype", "stdfile", "stdmeta", "stdmem");
 
fn getDocCmd(part: string, type: int) -> string {
    var sb = sb_new();
    var os = sys_os();
    if (os == "win32") {
        if (!fisdir("C:/Program Files/Phasor Programming Language/man/")) {
            sb_append(sb, "https://phasor-docs.pages.dev/man?f=");
            sb_append(sb, part);
            sb_append(sb, ".");
            sb_append(sb, type);
            var path = sb_to_string(sb);
            sb_free(sb);
            return concat("\"start ", path, "\"");
        }
        sb_append(sb, "C:/Program%20Files/Phasor%20Programming%20Language/man/man");
        sb_append(sb, type);
        sb_append(sb, "/");
        sb_append(sb, part);
        sb_append(sb, ".");
        sb_append(sb, type);
        sb_append(sb, ".");
        sb_append(sb, "pdf");
        var path = sb_to_string(sb);
        sb_free(sb);
        return concat("\"start file:///", path, "\"");
    } else if (os == "Linux" || os == "FreeBSD" || os == "UNIX" || os == "Darwin") {
        sb_append(sb, type);
        sb_append(sb, " ");
        sb_append(sb, part);
        var args = sb_to_string(sb);
        sb_free(sb);
        return concat("man ", args);
    } else {
        putf_error("Could not find documentation for %s(%d) on %s", part, type, os);
        shutdown(-1);
        return "cd ."; // noop if somehow reached
    }
}
 
fn showHelp(programName: string, error: bool) -> void {
    var winStr = "C:\\Program Files\\Phasor Programming Language\\man\\man<section>\n    \<page>.<section>.pdf";
    var unixStr = "/usr/share/man/man<section>/<page>.<section>(.gz)";
    var osxStr = "/usr/local/share/man/man<section>/<page>.<section>(.gz)";
    var osStr;
    var os = sys_os();
    if (os == "win32") {
        osStr = winStr;
    } else if (os == "Linux" || os == "FreeBSD" || os == "UNIX") {  
        osStr = unixStr;
    } else if (os == "Darwin") {
        osStr = osxStr;
    } else {
        osStr = "https://phasor-docs.pages.dev/man?f=<page>.<section>";
    }
 
    free("winStr");
    free("unixStr");
    free("osxStr");
 
    var helpStr = c_fmt(`
 
PHASOR-HELP(1)      Phasor %s      PHASOR-HELP(1)
 
NAME
    %s - open Phasor manual pages
 
SYNOPSIS
    %s <page> <section>
    %s --help
    %s -h
 
ARGUMENTS
    <page>
    The name of the manual page to open.
 
    <section>  
    The manual section number. This is an integer corresponding to 
    standard manual sections.  
 
EXAMPLES
    %s phasor
    Open the section 1 manual page for "phasor".
 
    %s phasorvm 1
    Open the section 1 manual page for "phasorvm".
 
    %s phsb 5  
    Open the section 5 manual page for "phsb".  
 
    %s phasorstd_io 3  
    Open the section 3 manual page for "phasorstd_io".  
 
FILES
    %s
 
SEE ALSO
    MAN(1)
 
                              - 1 -
`, phs_version(), programName, programName, programName, programName, programName, programName, programName, programName, osStr);
    if (error) puts_error(helpStr);
    else puts(helpStr);
}
 
fn main(args: array) -> int {
    if (len(args) == 3) {
        var page = to_string(args[1]);
        var section = to_int(args[2]);
        return sys_shell(getDocCmd(page, section));
    } else if (len(args) == 2) {
        var page = to_string(args[1]);
        return sys_shell(getDocCmd(page, 1));
    } else {
        showHelp(fstem(args[0]), len(args) > 1);
        return 1;
    }
}
 
shutdown(main(sys_args()));