*! version 1.1.2  30sep2023  Ben Jann

program _geoplot_label
    version 16.1
    gettoken layer 0 : 0
    gettoken p 0 : 0
    gettoken frame 0 : 0
    ***
    gettoken mlabl 0 : 0, parse(" ,[") match(par)
    if inlist(`"`mlabl'"', "", ",", "if", "in", "[") {
        di as err "must specify labels, either as {it:lavelvar} or as "/*
            */ `"{bf:(}"{it:text}" ...{bf:)}"'
        exit 198
    }
    if "`par'"=="("           local mlabl mlabi(`mlabl')
    else if `"`mlabl'"'=="."  local mlabl mlabz
    else                      local mlabl mlabel(`mlabl')
    _parse comma lhs 0 : 0
    syntax [, POSition(str) VPOSition(str) gap(str) ANGle(str) TSTYle(str) /*
           */ SIze(str) COLor(str) Format(str) * ]
    if `"`position'"'=="" local position 0
    local opts
    foreach opt in position vposition gap angle size color format {
        if `"``opt''"'!="" local opts `opts' mlab`opt'(``opt'')
    }
    if `"`tstyle'"'!="" local opts `opts' mlabtextstyle(`tstyle')
    local options nolegend msymbol(i) `mlabl' `opts' `options'
    ***
    __geoplot_layer 0 scatter `layer' `p' `frame' `lhs', `options'
    c_local plot `plot'
    c_local p `p'
end