sebres

/*
 * embedeval.c -- example of tcl-code embedding
 * 
 * Compile:
 *   mingw: gcc -O2 -DUSE_TCL_STUBS=1 -I$tcl/win  -I$tcl/generic embedeval.c -shared -o embedeval.dll libtclstub86.a
 *   *nix:  gcc -O2 -DUSE_TCL_STUBS=1 -I$tcl/unix -I$tcl/generic embedeval.c -shared -o embedeval.so  libtclstub86.a
 * 
 * Usage:
 *   $ tclsh86
 *   % load embedeval

sebres

hexchat.register("bot-bridge-nicks", "0.1", "Rewrites messages of bots to display bridge users as IRC users")

-- ijchain, ischain, liberachain are bridges:
botspattern = {"i.*chain", "^[<«](.-)[>»] (.*)$", "^<?(.-)>? (.*)$"}
botspattern2 = {"l.*chain", "^[<«](.-)[>»] (.*)$", "^%* (.-) (.*)$"}

local function fullname(user, nick)
  return user:gsub("%s+", "-").."!"..user:gsub("%s+", "_").."@behind.the.bridge/"..nick
end

sebres

proc cm args {
  array set in {-out auto}
  array set in $args
  set scr ""
  puts -nonewline "%cm% "; flush stdout
  while {[gets stdin line] >= 0 && ($line ni {/cm /exit} || $scr ne "")} {
    append scr $line "\n"
    if {![info complete $scr]} {
      puts -nonewline " ... "; flush stdout
      continue

sebres

#**************************************************************************
# parse
#   Internally used proc to parse PO files (Portable Object) (GNU gettext
#   format).
# Parameters:
#   f_ --
#**************************************************************************
proc parse { f_ } {
  ## TODO [SB]: file should be read partially, possible with other RE (non greedy ".*?" - could be slow by big files) :
  set text_ [read $f_]

sebres

if {[namespace which -command ::lpop] eq {}} {
  proc ::lpop {listvar {index end} args} {
    upvar $listvar l
    if {![info exists l]} {
      return -code error "can't read \"$listvar\": no such variable"
    }
    if {![llength $args]} {
      if {$index eq "end"} {
        if {![llength $l]} {
          return -code error -errorcode {TCL VALUE INDEX OUTOFRANGE} "index \"$index\" out of range"

sebres

#!/usr/bin/env tclsh

package require Thread

array set in {-max-threads 4 -single-set 0 -max-ips 255 -iterations 3 -debug 0}
array set in $::argv

set commoncode {
  if {$in(-single-set)} {
    proc thipset {n} {return "f2b-test"}

sebres

# task params for all threads
tsv::array set params {one 1 two 2}

# worker task:
set th_task {
  if {[catch {
    # do some work (here sum of params):
    set res [expr {[tsv::get params one] + [tsv::get params two]}]
    # provide result to master:
    thread::send -async $master [list lappend th_res $res]

sebres

# collatz-conjecture-iter.py -- simplest Collatz conjecture iterator in python
# Author: Serg G. Brester aka sebres

import math

f = lambda x: 3*x+1 if x & 1 else x/2

def fcci(x):
  """single collatz conjecture iteration starting by given x
  """

sebres

if {[namespace which -command ::tcl::mathfunc::strincr] eq ""} {
  proc ::tcl::mathfunc::strincr {v {increment}} {
    string trimleft [binary format I* [expr {"0b[binary scan $v B* v; set v]" + $increment}]] \x00
  }
}
proc range args {
  set op "<"; set step 1
  switch -exact -- [llength $args] \
    1 { lassign $args to; set from [expr {$to*0}] } \
    2 { lassign $args from to; 

sebres

# -------------------------------------------------------------------------------
# ldeclare -- multi-line list declaration with simple substitution (and comments)
# -------------------------------------------------------------------------------
proc ldeclare l { 
  uplevel "list [string map [list \n "\\\n"] \
    [regsub -all -line {^\s*\#[^\n]*} $l {}]
  ]"
}

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