Recettes informatiques

Catégories: "Programmation"

Extraire des commentaires d'un fichier C/C++

Posted by on 17 Nov 2009 in Programmation, Perl
Extraction de commentaires d'un fichier C/C++ (toute la puissance du perl)

Code

#!/usr/bin/perl
 
use strict;
 
# default value
my $format = "%";
my $pattern = "";
 
# help message
sub usage() {
 
  print <<EOF;
usage: getcomments [-f string] [-h] [-p regex] file...
 -f|--format string: format string for output printing [%]
 -h|--help: help message
 -p|--pattern regex: pattern matching on block []
 
 Extract C/C++ block of comments
 
Example: getcomments.pl -p='test:\s' -f='./%' random.c
EOF
 
  exit 1;
}
 
usage() if ($#ARGV < 0);
 
# process argument
foreach my $arg (@ARGV) {
  use vars qw/$caif $caip $naif $naip/;
 
  # analyse format argument
  ($caif, $_) = ($arg =~ /^(-f|--format)=(.*)/);
  ($caif, $_) = (1, $arg) if ($naif);
  next if ($naif = ($arg =~ /^(-f|--format)$/));
  if ($caif) { $format = $_; next }
 
  # check for help message
  usage() if ($arg =~ /^(-h|--help)$/);
 
  # analyse pattern argument
  ($caip, $_) = ($arg =~ /^(-p|--pattern)=(.*)/);
  ($caip, $_) = (1, $arg) if ($naip);
  next if ($naip = ($arg =~ /^(-p|--pattern)$/));
  if ($caip) { $pattern = $_; next }
 
  # no more argument, only file
  my $filename = $arg;
 
  # open file
  if (!open (IN, "<", $filename)) {
    print "Can not open $filename\n";
  }
 
  # init table of comments
  my @comments;
  $#comments = -1;
 
  # read all the file
  while ($_ .= <IN>) {
    my $cmt;
 
    # process c++ comments
    ($cmt, $_) = m{//\s*(.*?)\s*$()} if (m{//} && !m{/\*.*//});
 
    # process standard c comments
    ($cmt, $_) = m{^.*?/\*\s*(.*?)\s*\*/(.*)}s if (m{/\*.*\*/}s);
 
    push(@comments, $cmt) if ($cmt);
 
    # empty buffer if no comment is present
    undef($_) if (!m{/[/*]});
  }
 
  # close file
  close (IN);
 
  # display comment blocks
  foreach my $block (@comments) {
    if (($block) = ($block =~ /$pattern(.*)/s)) {
      ($_ = $format) =~ s/%/$block/gs;
      print "$_\n";
    }
  }
}

Fichier de ressource Bash

Posted by on 17 Nov 2009 in Programmation, Bash

Fichier de resource .bashrc redefinissant rm (deplacement vers ~/.wastebasket)

Shell

# -*- sh -*-
#
 
# If not running interactively, don't do anything
[ -z "$PS1" ] && return
 
# User preferences
 
export NAME="Laurent Mazet"
export EMAIL="$NAME <${NAME// /.}@ercom.fr>"
export REPLYTO=$EMAIL
export SIGNATURE=".signature"
export ORGANIZATION="Ercom"
export HOME=${HOME//\.\/}
 
# Don't put duplicate lines in the history.
export HISTCONTROL=ignoredups
 
# Check the window size after each command and, if necessary,
# Update the values of LINES and COLUMNS.
shopt -s checkwinsize
 
# Make less more friendly for non-text input files, see lesspipe(1)
[ -x /usr/bin/lesspipe ] && eval "$(lesspipe)"
 
# Enable color support of ls and also add handy aliases
if [ "$TERM" != "dumb" ]; then
    eval `dircolors -b`
    alias ls='\ls -CF --color=auto'
else
    alias ls='\ls -CF'
fi
 
# some more ls aliases
alias ll='ls -l'
alias la='ls -a'
alias l='ls -CAF'
 
# miscellaneous aliases
alias cls='clear'
alias dir='ls --format=vertical'
alias del='\rm -i'
alias deldir='\rm -r'
alias grep='\grep --color'
alias g='grep'
alias copy='cp'
alias ren='mv'
 
# set a fancy prompt
case $TERM in
xterm*|rxvt*) PS1='\[\033[01;34m\]\u\[\033[00m\]@\[\033[01;33m\]\h\[\033[00m\]:\[\033[01;32m\]\w\[\033[00m\] \$ ';;
*) PS1='\u@\h:\w \$ ' ;;
esac
 
# If this is an xterm set the title to user@host:dir
case $TERM in
xterm*|rxvt*) PROMPT_COMMAND='echo -ne "\033]0;${USER}@${HOSTNAME}: ${PWD/#$HOME/~}\007"' ;;
*) ;;
esac
 
# Environment variables
export BLOCKSIZE=1k
export EDITOR=vim
export GZIP=--best
export LESS=FMISRX
export MACHINE="`uname -rs`"
export PAGER=less
[ -d $HOME/bin ] && [[ ! $PATH =~ $HOME/bin ]] && \
    export PATH=$HOME/bin:$PATH
#export TOP=-s1
export VISUAL=vim
 
# Malloc checker
#export MALLOC_CHECK_=2
 
# Core size
ulimit -c unlimited
 
# enable programmable completion features (you don't need to enable
# this, if it's already enabled in /etc/bash.bashrc and /etc/profile
# sources /etc/bash.bashrc).
if [ -f /etc/bash_completion ]; then
    . /etc/bash_completion
 
fi
## libcurl options
[ -f $HOME/.libcurlrc ] && source $HOME/.libcurlrc
 
# delete & undelete commands
function garbageinit () {
    if [ ! -d $HOME/.wastebasket ]; then
        echo "Create $HOME/.wastebasket"
        [ -e $HOME/.wastebasket ] || $(which rm) -f $HOME/.wastebasket
        mkdir $HOME/.wastebasket
    fi
}
    
function rm () {
    rm=$(which rm)
    mv=$(which mv)
 
    if [ $# -eq 0 ]; then
        echo "rm/undelete functions"
        echo "Usage: rm <file1> ..."
        return 1
    fi
 
    while [ $# -gt 0 ]; do
        if [ -e "$1" ] || [ -L "$1" ]; then
            bn=$HOME/.wastebasket/$(basename "$1")
            [ -e "$bn" ] || [ -L "$1" ]&& \
                $rm -rf "$HOME/.wastebasket/$bn"
            $mv -f "$1" $HOME/.wastebasket/
        else
            echo "rm: No such file or directory '$1'"
        fi
        shift
    done
}
 
function undelete () {
    mv=$(which mv)
 
    if [ $# -eq 0 ]; then
        echo "rm/undelete functions"
        echo "Usage: undelete <file1> ..."
        return 1
    fi
 
    while [ $# -gt 0 ]; do
        n="$HOME/.wastebasket/$1"
        if [ -e "$n" ] || [ -L "$n" ]; then
            bn=$(basename "$1")
            if [ -e "./$bn" ] || [ -L "./$bn" ]; then
                $mv -f "./$bn" "$n.undelete"
                $mv -f "$n" "./$bn"
                $mv -f "$n.undelete" "$n"
            else
                $mv -f "$n" "./$bn"
            fi
        else
            echo "undelete: No such file or directory '$1'"
        fi
        shift
    done
}
 
function garbageclean () {
    $(which rm) -rf $HOME/.wastebasket
    garbageinit >&/dev/null
}
 
function garbagelist () {
    ls=$(which ls)
 
    nf=$($ls -1A $HOME/.wastebasket/ | wc -w)
    echo "List of file(s) in garbage: $nf file(s) "
 
    $ls -CFA $HOME/.wastebasket | sed -e /total/d
 
    gf=$(du -s $HOME/.wastebasket | awk '{ print $1 }' )
    echo "Garbage filled: $((gf - 1)) Ko"
}
 
# startup commands
garbageinit
 
# todo commands
TODO_OPTS="--summary"
 
if [ -e "$(which devtodo)" ]; then
 
    function cd () {
        builtin cd "$@" && [ -f .todo ] && devtodo ${TODO_OPTS}
    }
 
    function pushd () {
        builtin pushd "$@" && [ -f .todo ] && devtodo ${TODO_OPTS}
    }
 
    function popd () {
        builtin popd && [ -f .todo ] && devtodo ${TODO_OPTS}
    }
 
fi
 
# run todo initially upon login
[ -e "$(which devtodo)" ] && devtodo ${TODO_OPTS}

Convertiseur Fig -> LaTeX -> EPS

Posted by on 14 Nov 2009 in Programmation, Bash

Script convertissant un fichier au format EPS à partir d'un fichier FIG (xfig). On appelle LaTeX pour convertir les chaines de caractères qui contiennent des commandes LaTeX.

Shell

#!/bin/sh
# genfig (C) Marc de Courville 20 aout 1994
#            Laurent Mazet 26 janvier 1999
#            Cyril Humbert 14 stemptre 1999
#            Laurent Mazet 5 octobre 1999
#            Marc de Courville and Laurent Mazet 16 octobre 2000
#            Laurent Mazet 22 novembre 2001
 
# Fabrique un fichier au format eps a partir d'un fichier xfig (FIG).
# On appelle LaTeX pour convertir les chaines de caracteres qui
# contiennent des commandes LaTeX.
 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
# Changelog:
# - 1.10.0
#   * work also on cygwin
# ...
 
 
# Lecture des parametres
 
VERSION="1.10.0"
 
help=no
list="";
level=1000;
resource=""
showversion=no
incstdres=yes
 
while [ $# -gt 0 ]; do
  case $1 in
    -h)
      help="yes"
      ;;
    -m)
      shift
      level="$1"
      ;;
    -m*)
      level=$(echo $1 | sed -e 's/^-m//')
      ;;
    -r)
      shift
      resource="$resource $1"
      ;;
    -r*)
      resource="$resource $(echo $1 | sed -e 's/^-r//')"
      ;;
    -v)
      echo "$(basename "$0") version $VERSION" >&2; exit 1;
      ;;
    -x)
      incstdres=no
      ;;
    *)
      list="$list $1"
  esac
  shift
done
 
# Verification des parametres
 
level=$(echo $level | sed -e 's/[^0-9]*\([0-9]*\).*/0\1/')
[ $level -eq 0 ] &&
  { echo "$level is an incorrect magnification level." >&2; exit 1; }
 
checked_res=""
[ -n "$resource" ] &&
  for file_res in $resource; do
    [ ! -f $file_res ] &&
      { echo "Resource file $file_res not found." >&2; exit 1; }
    [ -z "$(echo $file_res | grep '^[~/]')" ] &&
      file_res="$(pwd)/$file_res"
    checked_res="$file_res $checked_res"
  done
resource=$checked_res
 
[ \( "$incstdres" = "yes" \) -a  \( -f $HOME/.$(basename "$0")rc \) ] &&
  resource="$HOME/.$(basename "$0")rc $resource"
 
[ \( -z "$list" \) -o  \( "$help" = yes \) ] &&
  { echo "
 Usage: $(basename "$0") [-h] [-m level] [-r resource]  <file[.fig]>...
 
-h            display help (this page)
-m level      set magnification level. A value of 1000 corresponds to
              100% and the scale is linear. Default value is [1000]. 
-r resource   specifies the name of a resource file which contains TeX macros.
          TeX macro must be one line to allow multiple resource files.
              By deault, it tries to open ~/.$(basename "$0")rc
-v            show version.
-x            exclude standard resource file.
 
 
<file1> <ile2>... figure's name
 
  generate the postcript file <filename>.eps to be included as
  a figure in the latex file with graphics.cls
 
  This script allows to generate a postscript figure created by xfig containing
  text to be processed by latex. Fonts are scaled properly.
  The fonts to be used in xfig are the latex fonts.
  It is convinient to use the alias lafig for calling xfig:
    alias lafig 'xfig -specialtext -latexfonts -startlatexFont default'
" >&2; exit 1; }
 
# Le repertoire ou on ecrit les fichiers temporaires.
# On recherche un nom de repertoire dans la variable d'environnement TMP,
# si elle n'est pas definie, on regarde dans TEMP, si cette derniere
# n'existe pas non plus, on utilise /tmp .
TMP=${TMP:=$TEMP}
TMP=${TMP:=/tmp}
[ \( -d $TMP \) -a \( -w $TMP \) ] ||
  { echo "$TMP must be a writable directory" >&2; exit 1; }
 
# Les fichiers temporaires (chemin d'acces relatif a $TMP).
prefixe=$(basename "$0")-$$
dvi_file=$prefixe.dvi
eps_file=$prefixe.eps
latex_file=$prefixe.tex
pstex_file=$prefixe.pstex
pstex_t_file=$prefixe.pstex_t
trap "rm -f $TMP/$prefixe*; cd $OLDPWD; exit 1;" 0 1 2 15
 
# Version de dvips
if [ $(dvips -v | cut -d" " -f4 | tr '.[:alpha:]' ' ' | sed -e "s, ,,g") -gt 570 ]; then
   dvi_v="cool"
else
   dvi_v="ugly"
fi
 
# Pour chaque fichier passe en argument...
for fig_file in $list; do
 
  name=$(basename "$fig_file" .fig)    # sans extension ni chemin d'acc
  dir=$(dirname "$fig_file")
  fig_file=$name.fig
 
  # Si le fichier n'existe pas ou s'il n'est pas au format FIG,
  # on passe au suivant.
  [ ! -f $dir/$fig_file ] && 
    { echo "Skipping \"$fig_file\" (file not found)..." >&2; continue; }
 
  head -1 "$dir/$fig_file" | grep -q "#FIG" ||
    { echo "Skipping \"$fig_file\" (not a FIG file)..." >&2; continue; }
 
  # Fabrique les fichiers pstex et pstex_t a l'aide de fig2dev
  echo -n "Processing \"$fig_file\": "
 
  if [ "$dvi_v" = "cool" ]; then
     fig2dev -L pstex -n "$name" "$dir/$fig_file" $TMP/$pstex_file &&
     fig2dev -L pstex_t -p $pstex_file "$dir/$fig_file" $TMP/$pstex_t_file ||
     { echo "Error while creating pstex and/or pstex_t files" >&2; continue; }
  else
     fig2dev -L pstex -n "$name" "$dir/$fig_file" $TMP/$pstex_file &&
     fig2dev -L pstex_t "$dir/$fig_file" $TMP/$pstex_t_file ||
     { echo "Error while creating pstex and/or pstex_t files" >&2; continue; }
  fi
 
  cd $TMP
 
  # Cree un petit fichier LaTeX qui inclue l'image
  cat >$latex_file <<EOF
    \documentclass{article}
    
    \usepackage{pslatex}
    \usepackage{times}
    \usepackage[T1]{fontenc}
    \usepackage{amsmath}
    \usepackage{amstext}
    \usepackage{amsfonts}
    \usepackage{amssymb}
    \usepackage[mathscr]{eucal}
    \usepackage{bbm}
    \usepackage[dvips]{color}
    \usepackage[dvips]{epsfig}
EOF
 
  # Ajout de macro standards
 
  [ -n "$resource" ] &&
    { ( for fil_res in $resource; do
          cat $fil_res;
        done ) | sort | uniq >>$latex_file; }
  
  # Fin du fichier LaTeX
 
  if [ "$dvi_v" = "cool" ]; then
    cat >>$latex_file <<EOF
      \setlength{\textheight}{100cm}
      \setlength{\textwidth}{100cm}
      \setlength{\oddsidemargin}{-0pt}
      \setlength{\evensidemargin}{-0pt}
      \setlength{\topmargin}{-0pt}
      \setlength{\parindent}{0pt}
      \pagestyle{empty}
 
      \begin{document}
      \begin{center}
      \input{$pstex_t_file}
      \end{center}
      \end{document}
EOF
  else
    cat >>$latex_file >>EOF
      \setlength{\textheight}{100cm}
      \setlength{\textwidth}{100cm}
      \setlength{\oddsidemargin}{-0pt}
      \setlength{\evensidemargin}{-0pt}
      \setlength{\topmargin}{-0pt}
      \setlength{\parindent}{0pt}
 
      \pagestyle{empty}
 
      \begin{document}
      \makebox[0pt][l]{\color[rgb]{1,1,1}.}\par
      \mbox{\begin{picture}(0,0)
      \epsfig{file=$pstex_file}
      \end{picture}
      \input{$pstex_t_file}
      \hspace{-10pt}\makebox[0pt][l]{\color[rgb]{1,1,1}.}
      \end{document}
EOF
  fi
 #
 ### Ne rien changer dans la ligne `EOF' (indentation, espaces...)
 
  echo -n "LaTeX, "
  latex 2>&1 "\nonstopmode\input{$latex_file}" 1>/dev/null 2>&1 ||
    { cat $prefixe.log >&2; continue; }
 
  echo -n "dvips "
  dvips -Pwww -q -x $level -E $dvi_file -o $eps_file 1>/dev/null 2>&1
  
  # retaille l'image eps et recale l'image au bord de la page
  
  bbox=$(grep '^%%BoundingBox:' $eps_file | head -1 |
         awk '{printf "0 0 %d %d", $4-$2, $5-$3;}')
  epsffit $bbox $eps_file $eps_file.tmp
  mv $eps_file.tmp $eps_file
 
  # recopie le fichier eps dans le repertoire courant
  # apres avoir change le titre de la figure (%%Title).
  if [ -s $eps_file ]; then
    cd $OLDPWD
    cat $TMP/$eps_file |
    sed 's/^\(%%Title: \).*/\1'"$name"'/1' > "$name".eps
   
    # $name ne doit pas contenir le caractere `/' !
 
    echo "-> \"$name.eps\""
  fi
 
  # un peu de menage avant de passer au fichier suivant
  rm -f $TMP/$prefixe* 2>/dev/null
 
done
 
# Fin de genfig

Autoconnection

Posted by on 14 Nov 2009 in Programmation, Tcl/Tk

Script Tcl/expect permettant de se connecter à une machine avec plusieurs rebonds

Code

# -*- tcl -*-
# the next line restarts using expect \
exec expect "$0" -- ${1+"$@"}
 
# autoconnect.tcl - an expect script to connect a machine beyond multiple hops
# Copyright (C) 2001 Laurent Mazet
 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
# Changelog:
# - 1.0.0
#   * add default configuration files generation
# - 0.9.0
#   * initial release
 
# set to 1 to force conservative mode even if script wasn't run
# conservatively originally
set force_conservative 0
 
if {$force_conservative} {
  set send_slow {1 .1}
  proc send {ignore arg} {
    sleep .1
    exp_send -s -- $arg
  }
}
 
proc test_exec {} {
  
  send "exec\r"
  expect {
    " not " {
      set cmd ""
    }
    "\r" {
      set cmd "exec "
    }
  }
  
  return $cmd
}
 
proc cross_gateway {gateway netlogin netpassword} {
  
  send "open $gateway\r"
  
  expect {
    "OneIT Username: " {
      send -- "$netlogin\r"
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
  
  expect  {
    "OneIT Password: " {
      send -- "$netpassword\r"
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
  
  expect {
    "tngate0>" {
      return
    }
    "failed" {
      send_user "\nincorrect netlogin or netpassword for $gateway\n"
      exit 1
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
  
  return
}
 
proc telnet {host login password prompt} {
  
  set prefix [test_exec]
  
  send -- "${prefix}telnet $host\r"
  
  expect {
    "ogin:" {
      send -- "$login\r"
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
  
  expect {
    "assword:" {
      send -- "$password\r"
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
 
  expect {
    "$prompt" {
      return
    }
    "incorrect" {
      send_user "incorrect login or password on $host\n"
      exit 1
    }
    timeout {
      send_user "connection to $host timed out\n"
      exit 1
    }
  }
 
  return
}
 
proc ssh {login_host arg1 {arg2 ""}} {
 
  if {$arg2 == ""} {
    set password ""
    set prompt "$arg1"
  } else {
    set password "$arg1"
    set prompt "$arg2"
  }
  
  set prefix [test_exec]
  
  send -- "${prefix}ssh $login_host\r"
  
  if {$password != ""} {
    expect {
      "assword:" {
        send -- "$password\r"
      }
      "refused" {
        send_user "Connection refused by $login_host\n"
        exit 1
      }
      timeout {
        send_user "connection to $login_host timed out\n"
        exit 1
      }
    }
  }
  
  expect {
    "$prompt" {
      return
    }
    "refused" {
      send_user "Connection refused by $login_host\n"
      exit 1
    }
    "incorrect" {
      send_user "incorrect login or password on $login_host\n"
      exit 1
    }
    timeout {
      send_user "connection to $login_host timed out\n"
      exit 1
    }
  }
  
  return
}
 
set timeout 30
match_max 100000
 
set hook [lindex $argv 0]
set nargs [llength $argv]
if {$nargs != 1} {
  set hook "-h"
}
 
switch $tcl_platform(platform) {
  windows {
    set basercfile "_autoconnect.rc"
  }
  default {
    set basercfile ".autoconnectrc"
  }
}
 
if {[info exists env(AUTOCONNECTRC)]} {
  set rcfile $env(AUTOCONNECTRC)
  if {[file isdirectory $rcfile]} {
    set rcfile [file join $rcfile $basercfile]
  }
} elseif {[info exists env(HOME)]} {
  set rcfile [file join $env(HOME) $basercfile]
} else {
  set rcfile [file join "/" $basercfile]
}
 
if {[file exists $rcfile]} {
  if {[catch {source $rcfile} error]} {
    puts "Error(s) in your resource file ($rcfile)"
    exit 1
  }
} else {
  puts "No resource file."
  set f [open $rcfile "w"]
  if {$f == 0} {
    puts "Can't create a skeleton"
    exit 2
  } else {
    puts "Create a skeleton"
  }
  puts $f "# Resource file for autoconnect"
  puts $f ""
  puts $f "# Gateway setting"
  puts $f "#set gateway \"tngate0.mot.com\""
  puts $f "#set gwlogin \"my_gateway_login\""
  puts $f "#set gwpasswd \"my_gateway_passwd\""
  puts $f ""
  puts $f "# Exemple of host connections"
  puts $f "#set conn(hook1) {telnet \"foo_host\" \"my_login\" \"my_passwd\" \"my_prompt\"}"
  puts $f "#set conn(hook2) {telnet \"foo_host\" \"my_login\" \"my_passwd\" \"my_prompt\";"
  puts $f "#                 telnet \"bar_host\" \"my_login\" \"my_passwd\" \"my_prompt\"}"
  puts $f "#set conn(hook3) {telnet \"foo_host\" \"my_login\" \"my_passwd\" \"my_prompt\";"
  puts $f "#                 ssh \"my_login@bar_host\" \"my_passwd\" \"my_prompt\"}"
  puts $f "#set conn(hook4) {telnet \"foo_host\" \"my_login\" \"my_passwd\" \"my_prompt\";"
  puts $f "#                 ssh \"my_login@bar_host\" \"my_prompt\"}"
  close $f
  puts "Don't forget to protect it: chmod 0600 $rcfile"
  exit 0
}
 
if {$hook == "-h"} {
  puts "Usage: autoconnect \[-h\] <hook>"
  exit 3
}
 
if {"$conn($hook)" == ""} {
  puts "Unknown hook `$hook'"
  exit 4
}
 
spawn telnet
expect "telnet>"
cross_gateway $gateway $gwlogin $gwpasswd
eval $conn($hook)
 
interact