Fossil

compat/openssl*
compat/tcl*
fossil
fossil.exe
win/fossil.exe
*shell-see.*
*sqlite3-see.*
ifi-commit-message.txt
bld/*
msvcbld/*

# src/Mashfile

# Commentary
#
# • A collection of code inspection utilities.
#
# • Common commands are those that don't begin 'test-' or end with an
#   asterix.

# --------------------------------------------------------------------

generate_tags_file () {
    etags --no-defines *.c;
    fossil diff --brief TAGS; }

# --------------------------------------------------------------------
# Commands

# Command regexp
C_RE='^\*\* COMMAND:'

# Common command regexp
CC_RE='^\*\* COMMAND: +(?!test-)[a-z-]+$'
#                      '---.---'
# negative lookahead ------'

REPO_FUNCS_RE='process_sync_args|find_'
REPO_FUNCS_RE="${REPO_FUNCS_RE}(repository_option|and_open_repository)"

all_commands () { # 254
    grep -Eh "$C_RE" *.c | gawk '{print $3}' | sort; }

all_commands_that_accept_the_repo_arg () {
    grep -Eh "($C_RE|$REPO_FUNCS_RE)" *.c; }


common_commands () { # 52
    grep -Ph "$CC_RE" *.c | gawk '{print $3}' | sort; }

common_commands_that_accept_the_repo_arg () {
    grep -P "($CC_RE|$REPO_FUNCS_RE)" *.c; }

# --------------------------------------------------------------------
# Common commands
#
# • Divide the common commands into four categories:
#
#    Taking option R, documented
#    Taking option R, undocumented
#    Not taking option R
#    Other
#
# • Use target `check_comcoms_all' to confirm that all common commands
#   are in one (and only one) category.  Works by comparing
#   'hardcoded' categories against the output of running `fossil help'
#   without args.


# Four categories

comcoms_taking_option_r_documented () {
    # HOOK: (occur "^  " -1)
    #
    # List complete.
    #
    # `branch' requires a subcommand.
    for each in $(comcoms_according_to_help); do
        fossil help $each | grep -E "^ *(Usage:|-R|--repository)"
    done; }
COMCOMS_TAKING_OPTION_R_DOCUMENTED="branch cat info ls pull push sql
sync timeline"

comcoms_taking_option_r_undocumented () {
    # HOOK: (occur "use --repository or -R")
    #
    # Enter Occur-Edit mode, remove commands listed above and add
    # `bundle', `git' and `settings'.
    #
    # (`bundle export' & `git export' each accept the option).
    call_each_comcom_wihtout_args; }
COMCOMS_TAKING_OPTION_R_UNDOCUMENTED="amend bundle git grep publish
rebuild remote-url settings tag unpublished unversioned"

comcoms_not_taking_option_r () {
    # HOOK: (occur "not within an open checkout")
    #
    # Enter Occur-Edit mode and remove `ls'.
    call_each_comcom_wihtout_args; }
COMCOMS_NOT_TAKING_OPTION_R="add addremove annotate bisect blame
changes clean commit delete diff extras finfo gdiff merge mv praise
revert rm stash status ui undo update"

comcoms_other () {
    # HOOK: (occur "Usage: fossil")
    #
    # Enter Occur-Edit mode, remove `bundle' and add `version'.
    call_each_comcom_wihtout_args; }
COMCOMS_OTHER="all clone help import init open version"

# categories combined

COMCOMS_TAKING_OPTION_R="
$COMCOMS_TAKING_OPTION_R_DOCUMENTED
$COMCOMS_TAKING_OPTION_R_UNDOCUMENTED"

COMCOMS_ALL="
$COMCOMS_TAKING_OPTION_R
$COMCOMS_NOT_TAKING_OPTION_R
$COMCOMS_OTHER"

check_comcoms_all () {
    local hardcoded_comcoms=$(sort_args $COMCOMS_ALL)
    local hardcoded_count=$(count_args $hardcoded_comcoms)
    local help_comcoms=$(comcoms_according_to_help)
    local help_count=$(count_args $help_comcoms)
    echo -n "$hardcoded_count: "
    write_line $hardcoded_comcoms; echo
    echo -n "$help_count: "
    write_line $help_comcoms; echo; }

# one more category

comcoms_taking_subcommands () {
    for each in $(comcoms_according_to_help); do
        fossil help $each | grep SUBCOMMAND
    done; }
COMCOMS_TAKING_SUBCOMMANDS="all bisect branch bundle stash tag
unversioned"

# Utils

comcoms_according_to_help() {
    for each in $(fossil help | tail -n +3 | head -n -1);
    do echo $each; done | sort; }

call_each_comcom_wihtout_args () {
    # Three commands 'work' when called without args: `help',
    # `settings' and `version'.  The rest fail in one of three ways:
    #
    #  "current directory is not within a open checkout"
    #  "Usage: fossil ..."
    #  "use --repository or -R to specify the repository database"
    #
    # with the exception of the `export' command, which fails with:
    #
    #  "specify the repository name as a command-line argument"
    #
    for each in $(comcoms_according_to_help); do
        echo -n $each:\  ; fossil $each; echo
    done; }

count_args () { echo $#; }
sort_args  () { for each in $*; do echo "$each"; done | sort; }
write_line () { for each in $*; do echo -n "$each "; done; }


# --------------------------------------------------------------------
# All commands

allcoms_with_aliases () {
    # HOOK: (occur " or:" -1)
    for each in $(allcoms_according_to_help); do
        fossil help $each | grep -E "^ *(Usage:|or:)"
    done; }

allcoms_according_to_help () {
    for each in $(fossil help -a); do echo $each; done | sort; }

This is a personal clone of the canonical Fossil repository found at:

   [](https://fossil-scm.org)

You should almost certainly go there.

|:   Branch |:   Timeline               |:   Files              |

|:   sebyte |:   [](/timeline?r=sebyte) |:   [](/dir?ci=sebyte) |