四时宝库

智通财经APP讯，七一二(603712.SH)发布公告，股东TCL科技集团股份有限公司(“TCL科技”)拟通过集中竞价交易和大宗交易的方式减持股份数量合计不超过1600.64万股，减持比例不超过公司总股本的2.07%。其中通过证券交易所集中竞价交易减持数量不超过772万股，即不超过公司总股本的1%;通过大宗交易减持数量不超过1544万股，即不超过公司总股本的2%。

智通财经APP讯，七一二(603712.SH)公告，公司股东TCL科技集团股份有限公司(“TCL科技”)今日通过大宗交易减持公司股份828.64万股，占公司股份总数比例为1.07%，减持计划实施完毕，其持股比例降至5%。

freewrap可以把Tcl/Tk程序打包成单一可执行文件，便于分发。

freewrap也可以作为临时解释器使用。但是实话实说，因为有各种限制，只适合救急。

redis使用了tcl语言开发自己的测试用例

为此，可以开发一个解析redis.conf的tcl语言脚本

#!/usr/bin/tclsh

# 解析redis.conf配置文件
# 返回包括每个配置项的参数
# 注意返回命令相同，子命令相同的配置项
proc parse_redis_confg {{path redis.conf}} {
    set fd [open $path r]
    set content [read $fd]
    close $fd

    set lines [split $content "\n"]
    foreach line $lines {
        set line [string trim $line]
        if {[string index $line 0] eq "#" || [string is space $line]} {
            continue
        }
        lappend l $line
    }
    return $l
}

# 查找配置项参数
# 注意，返回的是列表
proc find_key_in_redis_config {config config_item} {
    set ret [lsearch -regexp -all -inline $config "^$config_item"]
    return $ret
}

proc print_help_screen {} {
    puts [join {
        "cfg parse path                     parse redis config"
        "cfg search path key                search key in redis config"
        "help                               show help"
    } "\n"]
}

if {$argc == 0} {
    puts "error"
} elseif {$argc == 1} {
    set opt [lindex $argv 0]
    if {$opt eq {help}} {
        print_help_screen
    } elseif {$opt eq {fish}} {
        puts "fish"
    } else {
        puts "other"
    }
} else {
    set cmd [lindex $argv 0]
    set subcmd [lindex $argv 1]
    if {$cmd eq {cfg} && $subcmd eq {parse}} {
       set ret [parse_redis_confg [file normalize [lindex $argv 2]]]
       puts $ret
    } elseif {$cmd eq {cfg} && $subcmd eq {search}} {
        set cfgs [parse_redis_confg [file normalize [lindex $argv 2]]]
        set ret [find_key_in_redis_config $cfgs [lindex $argv 3]]
        if {[llength $ret] == 1} {
            puts [lindex [lindex $ret 0] 1]
        } else {
            puts $ret
        }
    } else {
        puts "error"
    }
}

智通财经APP讯，七一二(603712.SH)发布公告，公司今日收到股东TCL科技集团股份有限公司(以下简称“TCL科技”)发来的《TCL科技集团股份有限公司(5%以上股东)减持天津七一二通信广播股份有限公司股份告知函》，TCL科技今日通过大宗交易减持公司股份1544万股，占公司股份总数比例为2%。截至本公告披露日，本次减持计划已完成。

智通财经APP讯，七一二(603712.SH)发布公告，持股5%以上股东TCL科技自2021年4月8日至4月14日期间，通过大宗交易方式减持公司股份1544万股，占公司总股本的2%。TCL科技自2020年10月29日至2021年4月14日期间通过集中竞价及大宗交易方式累计减持公司股份3860万股，持股比例变动达到5%。本次权益变动后，TCL科技持有公司无限售条件流通股1.09亿股，占公司目前总股本的14.07%。

智通财经APP讯，七一二(603712.SH)发布公告，公司近日收到股东TCL科技发来的告知函，TCL科技于2021年4月22日到5月13日通过集中竞价方式减持公司股份772万股，占公司股份总数比例为1%。截至公告披露日，本次集中竞价减持计划已完成。TCL科技在减持计划实施期间通过集中竞价方式合计减持公司股份1544万股，占公司股份总数比例为2%。

Linux一路走来，界面组件很多，TK、gtk、Qt、wxWidget等。Tk古老而又厚重，不失motif风格，gtk+glade别具特色，Qt轻快时尚，许多语言本身没有gui可用，于是做接口加wrapper就成了一种流行的解决方法，比如perl、python、ruby、tclsh+wish、D language、nim，连古老的cobol也被gnu翻建一新。

4月1日，上证指数上涨1.19%，深证成指上涨2.62%，创业板指上涨2.97%。盘后龙虎榜数据显示，共有41只个股因当日异动登上龙虎榜，资金净流入最多的是TCL科技（000100.SZ），达2.47亿元。

据21投资通智能监测，20只个股龙虎榜出现了机构的身影。