# ACTIVESTATE TEAPOT-PKG BEGIN TM -*- tcl -*-
# -- Tcl Module

# @@ Meta Begin
# Package term::ansi::code::attr 0.1
# Meta as::build::date 2015-05-25
# Meta as::origin      http://sourceforge.net/projects/tcllib
# Meta category        Terminal control
# Meta description     ANSI attribute sequences
# Meta license         BSD
# Meta platform        tcl
# Meta require         {Tcl 8.4}
# Meta require         term::ansi::code
# Meta subject         terminal {color control} control {attribute control}
# Meta subject         ansi
# Meta summary         term::ansi::code::attr
# @@ Meta End


# ACTIVESTATE TEAPOT-PKG BEGIN REQUIREMENTS

package require Tcl 8.4
package require term::ansi::code

# ACTIVESTATE TEAPOT-PKG END REQUIREMENTS

# ACTIVESTATE TEAPOT-PKG BEGIN DECLARE

package provide term::ansi::code::attr 0.1

# ACTIVESTATE TEAPOT-PKG END DECLARE
# ACTIVESTATE TEAPOT-PKG END TM
# -*- tcl -*-
# ### ### ### ######### ######### #########
## Terminal packages - ANSI - Attribute codes

# ### ### ### ######### ######### #########
## Requirements

package require  term::ansi::code ; # Constants

namespace eval ::term::ansi::code::attr {}

# ### ### ### ######### ######### #########
## API. Symbolic names.

proc ::term::ansi::code::attr::names {} {
    variable attr
    return  $attr
}

proc ::term::ansi::code::attr::import {{ns attr} args} {
    if {![llength $args]} {set args *}
    set args ::term::ansi::code::attr::[join $args " ::term::ansi::code::attr::"]
    uplevel 1 [list namespace eval ${ns} [linsert $args 0 namespace import]]
    return
}

# ### ### ### ######### ######### #########
## Internal - Setup

proc ::term::ansi::code::attr::DEF {name value} {
    variable  attr
    const            $name $value
    lappend   attr   $name
    namespace export $name
    return
}

proc ::term::ansi::code::attr::INIT {} {
    # ### ### ### ######### ######### #########
    ##

    # Colors. Foreground <=> Text
    DEF	fgblack   30	; # Black  
    DEF	fgred     31	; # Red    
    DEF	fggreen   32	; # Green  
    DEF	fgyellow  33	; # Yellow 
    DEF	fgblue    34	; # Blue   
    DEF	fgmagenta 35	; # Magenta
    DEF	fgcyan    36	; # Cyan   
    DEF	fgwhite   37	; # White  
    DEF	fgdefault 39    ; # Default (Black)

    # Colors. Background.
    DEF	bgblack   40	; # Black  
    DEF	bgred     41	; # Red    
    DEF	bggreen   42	; # Green  
    DEF	bgyellow  43	; # Yellow 
    DEF	bgblue    44	; # Blue   
    DEF	bgmagenta 45	; # Magenta
    DEF	bgcyan    46	; # Cyan   
    DEF	bgwhite   47	; # White  
    DEF	bgdefault 49    ; # Default (Transparent)

    # Non-color attributes. Activation.
    DEF	bold      1	; # Bold  
    DEF	dim       2	; # Dim
    DEF	italic    3     ; # Italics      
    DEF	underline 4	; # Underscore   
    DEF	blink     5	; # Blink
    DEF	revers    7	; # Reverse      
    DEF	hidden    8	; # Hidden
    DEF	strike    9     ; # StrikeThrough

    # Non-color attributes. Deactivation.
    DEF	nobold      22	; # Bold  
    DEF	nodim       __	; # Dim
    DEF	noitalic    23  ; # Italics      
    DEF	nounderline 24	; # Underscore   
    DEF	noblink     25	; # Blink
    DEF	norevers    27	; # Reverse      
    DEF	nohidden    28	; # Hidden
    DEF	nostrike    29  ; # StrikeThrough

    # Remainder
    DEF	reset       0   ; # Reset

    ##
    # ### ### ### ######### ######### #########
    return
}

# ### ### ### ######### ######### #########
## Data structures.

namespace eval ::term::ansi::code::attr {
    namespace import ::term::ansi::code::const
    variable attr {}
}

::term::ansi::code::attr::INIT

# ### ### ### ######### ######### #########
## Ready

package provide term::ansi::code::attr 0.1

##
# ### ### ### ######### ######### #########