Clifford Wolf
21 years ago
4 changed files with 653 additions and 416 deletions
Split View
Diff Options
-
+129 -0misc/tools-source/bash_profiler.c
-
+43 -358scripts/Config
-
+481 -0scripts/config.func
-
+0 -58scripts/config.in
@ -0,0 +1,129 @@ |
|||
/* Bash (wallclock-time) profiler. Written by Clifford Wolf. |
|||
* |
|||
* Usage: |
|||
* gcc -shared -fPIC -Wall -o bash_profiler.so bash_profiler.c |
|||
* enable -f ./bash_profiler.so bprof |
|||
* |
|||
* bprof a start; idle_in_a; brof a stop |
|||
* bprof b start; idle_in_b; brof b stop |
|||
* bprof a start; idle_in_a; brof a stop |
|||
* |
|||
* bprof all print |
|||
* enable -d bprof |
|||
*/ |
|||
|
|||
|
|||
/* Some declarations copied from bash-2.05b headers */ |
|||
|
|||
#include <stdint.h> |
|||
|
|||
typedef struct word_desc { |
|||
char *word; |
|||
int flags; |
|||
} WORD_DESC; |
|||
|
|||
typedef struct word_list { |
|||
struct word_list *next; |
|||
WORD_DESC *word; |
|||
} WORD_LIST; |
|||
|
|||
typedef int sh_builtin_func_t(WORD_LIST *); |
|||
|
|||
#define BUILTIN_ENABLED 0x1 |
|||
|
|||
struct builtin { |
|||
char *name; |
|||
sh_builtin_func_t *function; |
|||
int flags; |
|||
char * const *long_doc; |
|||
const char *short_doc; |
|||
char *handle; |
|||
}; |
|||
|
|||
|
|||
/* my hellobash builtin */ |
|||
|
|||
#include <stdio.h> |
|||
#include <string.h> |
|||
#include <stdlib.h> |
|||
#include <sys/time.h> |
|||
|
|||
long long mytime() |
|||
{ |
|||
struct timeval tv; |
|||
gettimeofday(&tv, 0); |
|||
return tv.tv_sec*1000 + tv.tv_usec/1000; |
|||
} |
|||
|
|||
struct bprofent; |
|||
|
|||
struct bprofent { |
|||
char *id; |
|||
int count; |
|||
long long tv_sum, tv_start; |
|||
struct bprofent *next; |
|||
}; |
|||
|
|||
struct bprofent *bprofent_list = 0; |
|||
|
|||
int bprof_builtin(WORD_LIST *list) |
|||
{ |
|||
struct bprofent *this = bprofent_list; |
|||
char *mode, *name; |
|||
|
|||
if ( !list || !list->next ) { |
|||
fprintf(stderr, "Usage: bprof {id|all} {start|stop|print}\n"); |
|||
return 1; |
|||
} |
|||
|
|||
name = list->word->word; |
|||
mode = list->next->word->word; |
|||
|
|||
if ( !strcmp(mode, "print") && !strcmp(name, "all") ) { |
|||
while ( this ) { |
|||
printf("%7d %7Ld %10.3f %s\n", this->count, this->tv_sum, |
|||
(float)this->tv_sum/this->count, this->id); |
|||
this = this->next; |
|||
} |
|||
return 0; |
|||
} |
|||
|
|||
while ( this ) { |
|||
if ( !strcmp(this->id, name) ) break; |
|||
this = this->next; |
|||
} |
|||
|
|||
if ( !this ) { |
|||
this = calloc(1, sizeof(struct bprofent)); |
|||
this->id = strdup(name); |
|||
this->next = bprofent_list; |
|||
bprofent_list = this; |
|||
} |
|||
|
|||
if ( !strcmp(mode, "start") ) { |
|||
this->tv_start = mytime(); |
|||
} else if ( !strcmp(mode, "stop") ) { |
|||
this->tv_sum += mytime() - this->tv_start; |
|||
this->count++; |
|||
} else if ( !strcmp(mode, "print") ) { |
|||
printf("%7d %7Ld %10.3f %s\n", this->count, this->tv_sum, |
|||
(float)this->tv_sum/this->count, this->id); |
|||
} |
|||
|
|||
return 0; |
|||
} |
|||
|
|||
char *bprof_doc[] = { |
|||
"bash profiler", |
|||
0 |
|||
}; |
|||
|
|||
struct builtin bprof_struct = { |
|||
"bprof", |
|||
&bprof_builtin, |
|||
BUILTIN_ENABLED, |
|||
bprof_doc, |
|||
"bash profiler", |
|||
0 |
|||
}; |
|||
|
|||
@ -0,0 +1,481 @@ |
|||
# --- ROCK-COPYRIGHT-NOTE-BEGIN --- |
|||
# |
|||
# This copyright note is auto-generated by ./scripts/Create-CopyPatch. |
|||
# Please add additional copyright information _after_ the line containing |
|||
# the ROCK-COPYRIGHT-NOTE-END tag. Otherwise it might get removed by |
|||
# the ./scripts/Create-CopyPatch script. Do not edit this copyright text! |
|||
# |
|||
# ROCK Linux: rock-src/scripts/config.func |
|||
# ROCK Linux is Copyright (C) 1998 - 2003 Clifford Wolf |
|||
# |
|||
# 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 of the License, or |
|||
# (at your option) any later version. A copy of the GNU General Public |
|||
# License can be found at Documentation/COPYING. |
|||
# |
|||
# Many people helped and are helping developing ROCK Linux. Please |
|||
# have a look at http://www.rocklinux.org/ and the Documentation/TEAM |
|||
# file for details. |
|||
# |
|||
# --- ROCK-COPYRIGHT-NOTE-END --- |
|||
|
|||
# This function appends or inserts values to a variable: |
|||
# |
|||
# var_append PATH ":" "$HOME/bin" |
|||
# var_insert PATH ":" "$HOME/bin" |
|||
# |
|||
var_append() { |
|||
eval "[ \"\$$1\" ] && $1=\"\${$1}$2\"" |
|||
eval "$1=\"\${$1}$3\"" |
|||
} |
|||
var_insert() { |
|||
eval "[ \"\$$1\" ] && $1=\"$2\$$1\"" |
|||
eval "$1=\"$3\$$1\"" |
|||
} |
|||
|
|||
# Functions for working with config/$config/packages |
|||
# |
|||
# pkgenable package-list |
|||
# pkgdisable package-list |
|||
# pkgremove package-list |
|||
# pkgcheck pattern [XO] |
|||
# pkgfilter cmd arg1 ... |
|||
# |
|||
pkgfilter() { |
|||
bprof pkgfilter start |
|||
"$@" < config/$config/packages > config/$config/packages.new |
|||
mv config/$config/packages.new config/$config/packages |
|||
bprof pkgfilter stop |
|||
} |
|||
pkgenable() { |
|||
bprof pkgenable start |
|||
local pattern patterns |
|||
for pattern; do |
|||
patterns="$patterns -e '/ $pattern / s/^./X/'" |
|||
done |
|||
if [ "$patterns" ]; then |
|||
eval "pkgfilter sed $patterns" |
|||
fi |
|||
bprof pkgenable stop |
|||
} |
|||
pkgdisable() { |
|||
bprof pkgdisable start |
|||
local pattern patterns |
|||
for pattern; do |
|||
patterns="$patterns -e '/ $pattern / s/^./O/'" |
|||
done |
|||
if [ "$patterns" ]; then |
|||
eval "pkgfilter sed $patterns" |
|||
fi |
|||
bprof pkgdisable stop |
|||
} |
|||
pkgremove() { |
|||
bprof pkgremove start |
|||
local pattern patterns |
|||
if [ "$1" ]; then |
|||
patterns=" $1 "; shift |
|||
for pattern; do |
|||
patterns="$patterns| $pattern " |
|||
done |
|||
pkgfilter egrep -v "$patterns" |
|||
fi |
|||
bprof pkgremove stop |
|||
} |
|||
pkgcheck() { |
|||
bprof pkgcheck start |
|||
egrep -q "^$2.* ($1) " config/$config/packages |
|||
bprof pkgcheck stop |
|||
} |
|||
|
|||
comment() { |
|||
bprof comment start |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] && \ |
|||
[ $menu_current = $menu_this ] ; then |
|||
commentnr=$(( $commentnr + 1 )) |
|||
echo "COMMENT_$commentnr '$spacer$1'" >> config.dialog |
|||
|
|||
# Hi, esden here, very ill stuff here I save the help |
|||
# strings here to a temporary file named config.help |
|||
# this sed tr sandwitch formats the string so that |
|||
# \n are masked and the Help strings are not killed some way |
|||
if [ "$2" != "" ] ; then |
|||
set_help "COMMENT_$commentnr" "$2" |
|||
fi |
|||
fi |
|||
bprof comment stop |
|||
} |
|||
|
|||
comment_id() { |
|||
bprof comment_id start |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] && |
|||
[ $menu_current = $menu_this ] ; then |
|||
echo "$2 '$spacer$1'" >> config.dialog |
|||
|
|||
# If you do not know what mighty esden |
|||
# is doing here see comment() |
|||
if [ "$3" != "" ] ; then |
|||
set_help "$2" "$3" |
|||
fi |
|||
fi |
|||
bprof comment_id stop |
|||
} |
|||
|
|||
const() { |
|||
bprof const start |
|||
local q="'" |
|||
local v="${2//$q/$q\\$q$q}" |
|||
eval "$1=\"\$2\"" |
|||
echo "export $1='$v'" >> config/$config/config |
|||
bprof const stop |
|||
} |
|||
|
|||
# Usage: set_data NAME DEFAULT |
|||
# |
|||
set_data() { |
|||
bprof set_data start |
|||
local q="'" set_name="ROCKCFGSET_${1#ROCKCFG_}" |
|||
|
|||
if eval "[ \"\$$set_name\" ]" ; then |
|||
eval "data=\"\$$set_name\"" |
|||
eval "$1=\"\$data\"" |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] |
|||
then menumode=2 ; else menumode=0 ; fi |
|||
|
|||
elif [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] ; then |
|||
eval "data=\"\${$1:-$2}\"" |
|||
eval "$1=\"\$data\"" |
|||
menumode=1 |
|||
else |
|||
data="$2" ; eval "$1=\"\$data\"" |
|||
menumode=0 |
|||
fi |
|||
|
|||
item="$1" |
|||
echo "export $1='${data//$q/$q\\$q$q}'" >> config/$config/config |
|||
bprof set_data stop |
|||
} |
|||
|
|||
choice() { |
|||
bprof choice start |
|||
|
|||
# reset to default if current value is not in list |
|||
# |
|||
eval $( |
|||
eval "value=\$$1" ; name=$1 ; shift ; shift |
|||
while [ "$#" != 0 ] ; do |
|||
[ "$value" = "$1" ] && name="" ; shift ; shift |
|||
done |
|||
[ "$name" ] && echo "unset $name" |
|||
) |
|||
|
|||
set_data "$1" "$2" |
|||
|
|||
if [ "$menumode" -eq 1 -a $menu_current = $menu_this ] ; then |
|||
{ echo -en "$item\tchoice_action '$1' '$data'" ; shift ; shift |
|||
for x ; do echo -n " '$x'" ; done ; echo ; } >> config.data |
|||
fi |
|||
|
|||
if [ "$menumode" -gt 0 -a $menu_current = $menu_this ] ; then |
|||
if [ "$menumode" -eq 1 ] ; then xdata="($data)" |
|||
else xdata="=$data=" ; fi |
|||
|
|||
while [ "$1" -a "$1" != "$data" ] ; do shift ; shift ; done |
|||
printf "'$item' '$spacer%-${tabspace}s ${2//_/ }'\n" \ |
|||
"$xdata" >> config.dialog |
|||
fi |
|||
|
|||
bprof choice stop |
|||
} |
|||
|
|||
choice_action() { |
|||
command="./src/rockdialog.bin --title 'Build Config' \ |
|||
--backtitle '$configtitle' \ |
|||
--radiolist 'Arrow keys navigate the menu. Press <Enter> to activate menu items. Highlighted letters are hotkeys.' \ |
|||
$(( $lines - 4 )) $(( $columns - 5 )) $(( $lines - 12 ))" |
|||
default=$2 ; item=$1 ; shift ; shift |
|||
while [ "$1" ] ; do |
|||
if [ "$1" = "$default" ] |
|||
then command="$command '$1' '${2//_/ }' ON" |
|||
else command="$command '$1' '${2//_/ }' OFF" ; fi |
|||
shift ; shift |
|||
done |
|||
eval "$command" 2> config.out |
|||
|
|||
case "$?" in |
|||
0|6) |
|||
eval "$item='`cat config.out`'" |
|||
;; |
|||
1|255) return 0 ;; |
|||
2) echo "No help." ; sleep 1 ;; |
|||
*) echo "unknown returncode: $?" ; exit 1 ;; |
|||
esac |
|||
} |
|||
|
|||
text() { |
|||
bprof text start |
|||
local q="'" |
|||
set_data "$2" "$3" |
|||
|
|||
if [ "$menumode" -eq 1 -a $menu_current = $menu_this ] ; then |
|||
echo -e "$2\ttext_action '$1' '$2'" \ |
|||
"'${data//$q/$q\\$q$q}'" >> config.data |
|||
fi |
|||
|
|||
if [ "$menumode" -gt 0 -a $menu_current = $menu_this ] ; then |
|||
xdata="$( printf "%-${tabspace}s" \ |
|||
"$(echo $data | cut -c1-20)")" |
|||
if [ "$menumode" -eq 1 ] ; then xdata="($xdata)" |
|||
else xdata="=$xdata=" ; fi |
|||
|
|||
printf "'$2' '$spacer%s $1'\n" \ |
|||
"${xdata//$q/$q\\$q$q}" >> config.dialog |
|||
|
|||
# If you do not know what mighty esden |
|||
# is doin here see comment() |
|||
if [ "$4" != "" ] ; then |
|||
set_help "$2" "$4" |
|||
fi |
|||
fi |
|||
bprof text stop |
|||
} |
|||
|
|||
text_action() { |
|||
./src/rockdialog.bin --title 'Build Config' \ |
|||
--backtitle "$configtitle" \ |
|||
--inputbox "$1" 9 $(( $columns - 5 )) "$3" 2> config.out |
|||
[ "$?" -eq 0 -o "$?" -eq 1 ] && eval "$2=\"\$(cat config.out)\"" |
|||
} |
|||
|
|||
bool() { |
|||
bprof bool start |
|||
local x |
|||
set_data "$2" "$3" |
|||
|
|||
if [ "$menumode" -eq 1 -a $menu_current = $menu_this ] ; then |
|||
echo -e "$2\tbool_action '$1' '$2' '$data'" >> config.data |
|||
fi |
|||
|
|||
if [ "$menumode" -gt 0 -a $menu_current = $menu_this ] ; then |
|||
if [ "$menumode" -eq 1 ] ; then |
|||
if [ $data -eq 0 ] ; then x='[ ]' ; else x='[*]' ; fi |
|||
else |
|||
if [ $data -eq 0 ] ; then x='= =' ; else x='=*=' ; fi |
|||
fi |
|||
printf "$2 '$spacer%-${tabspace}s ${1//_/ }'\n" \ |
|||
"$x" >> config.dialog |
|||
|
|||
# If you do not know what mighty esden is doin here see comment() |
|||
if [ "$4" != "" ] ; then |
|||
set_help "$2" "$4" |
|||
fi |
|||
fi |
|||
bprof bool stop |
|||
} |
|||
|
|||
bool_action() { |
|||
if [ $3 -eq 0 ] ; then eval "$2=1" |
|||
else eval "$2=0" ; fi |
|||
} |
|||
|
|||
editfile() { |
|||
bprof editfile start |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] ; then |
|||
local x="$spacer" q="'" |
|||
comment ",----< $3 >----." |
|||
block_begin 0 ; spacer="${spacer%??}| " |
|||
|
|||
touch "$2" |
|||
line_nr=1 |
|||
while read line ; do |
|||
line="${line//$q/$q\\$q$q}" |
|||
if [ $menu_current = $menu_this ] ; then |
|||
printf "$1:${editfilenr} '$spacer%-${tabspace}s %s'\n" \ |
|||
`printf "%03d:" $line_nr` "$line" >> config.dialog |
|||
|
|||
echo -e "$1:${editfilenr}\teditfile_action $2" \ |
|||
"$line_nr '$3'" >> config.data |
|||
fi |
|||
|
|||
editfilenr=$(( $editfilenr + 1 )) |
|||
line_nr=$(( $line_nr + 1 )) |
|||
done < "$2" |
|||
|
|||
if [ $menu_current = $menu_this ] ; then |
|||
printf "$1:${editfilenr} '$spacer%-${tabspace}s %s'\n" \ |
|||
`printf "%03d:" $line_nr` "<add new rule>" >> config.dialog |
|||
|
|||
echo -e "$1:${editfilenr}\teditfile_action $2" \ |
|||
"$line_nr '$3'" >> config.data |
|||
fi |
|||
|
|||
editfilenr=$(( $editfilenr + 1 )) |
|||
|
|||
block_end |
|||
comment "\`------${3//?/-}------'\''" |
|||
spacer="$x" |
|||
else |
|||
rm -f "$2" |
|||
fi |
|||
bprof editfile stop |
|||
} |
|||
|
|||
editfile_action() { |
|||
line="`tail -n +$2 $1 | head -n 1`" |
|||
|
|||
./src/rockdialog.bin --title 'Build Config' \ |
|||
--backtitle "$configtitle" \ |
|||
--inputbox "$3 - Line $3" \ |
|||
9 $(( $columns - 5 )) "$line" 2> config.out |
|||
|
|||
head -n $(( $2 - 1 )) $1 > $1.new |
|||
[ -s config.out ] && echo "`cat config.out`" >> $1.new |
|||
tail -n +$(( $2 + 1 )) $1 >> $1.new |
|||
|
|||
mv $1.new $1 |
|||
} |
|||
|
|||
startprog() { |
|||
bprof startprog start |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] && |
|||
[ $menu_current = $menu_this ] ; then |
|||
printf "$1 '$spacer%-${tabspace}s %s'\n" \ |
|||
"-->" "$2" >> config.dialog |
|||
echo -e "$1\t$3" >> config.data |
|||
fi |
|||
bprof startprog stop |
|||
} |
|||
|
|||
block_begin() { |
|||
bprof block_begin start |
|||
if [ $menu_current = $menu_this ] ; then |
|||
[ "$tabspace_list" ] && spacer="$spacer " |
|||
tabspace_list="$tabspace $tabspace_list" |
|||
tabspace="$(( $tabspace + $1 - 2 ))" |
|||
fi |
|||
bprof block_begin stop |
|||
} |
|||
|
|||
block_end() { |
|||
bprof block_end start |
|||
if [ $menu_current = $menu_this ] ; then |
|||
spacer="`echo "$spacer" | sed 's,..$,,'`" ; |
|||
tabspace="`echo $tabspace_list | cut -f1 -d' '`" |
|||
tabspace_list="`echo $tabspace_list | cut -s -f2- -d' '`" |
|||
fi |
|||
bprof block_end stop |
|||
} |
|||
|
|||
expert_begin() { |
|||
expert=$(( $exprt + 1 )) |
|||
} |
|||
|
|||
expert_end() { |
|||
expert=$(( $exprt - 1 )) |
|||
} |
|||
|
|||
menu_begin() { |
|||
bprof menu_begin start |
|||
menu_counter=$(( $menu_counter + 1 )) |
|||
|
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] && |
|||
[ $menu_current = $menu_this ] ; then |
|||
printf "$1 '$spacer%-${tabspace}s %s'\n" \ |
|||
"===>" "$2" >> config.dialog |
|||
echo -e "$1\tmenu_current=$menu_counter" >> config.data |
|||
fi |
|||
if [ $ROCKCFG_EXPERT -eq 1 -o $expert -eq 0 ] && |
|||
[ $menu_current = $menu_counter ] ; then |
|||
echo "$1 '===> $2'" >> config.dialog |
|||
echo -e "$1\tmenu_current=$menu_this" >> config.data |
|||
fi |
|||
|
|||
if [ $menu_current = $menu_counter ] ; then |
|||
menu_back=$menu_this |
|||
menu_backpos=$1 |
|||
fi |
|||
|
|||
menu_stack="$menu_this $menu_stack" |
|||
menu_this=$menu_counter |
|||
|
|||
block_begin 3 |
|||
bprof menu_begin stop |
|||
} |
|||
|
|||
menu_end() { |
|||
bprof menu_end start |
|||
block_end |
|||
menu_this="`echo $menu_stack | cut -f1 -d' '`" |
|||
menu_stack="`echo $menu_stack | cut -s -f2- -d' '`" |
|||
bprof menu_end stop |
|||
} |
|||
|
|||
set_help() { |
|||
bprof set_help start |
|||
(echo -ne "$1 '$1:\n\n$2'" | sed 's,$,\\n,' | |
|||
tr -d '\n' | sed 's,\\n$,,'; echo ) >> config.help |
|||
bprof set_help stop |
|||
} |
|||
|
|||
get_help() { |
|||
bprof get_help start |
|||
# Create standard help output ... |
|||
default_text=" |
|||
There is no help on '$1' available. |
|||
|
|||
This is the ROCK Linux $rockver Configuration Tool. |
|||
|
|||
Please read the build Documentation (Documentation/BUILD) |
|||
and the ROCK Linux Guide (Documentation/Guide/GUIDE.txt) |
|||
before building ROCK Linux. |
|||
|
|||
More information can be found on the ROCK Linux Homepage: |
|||
|
|||
http://www.rocklinux.org/ |
|||
|
|||
Subscribe to the mailing list by sending an e-mail with the |
|||
subject 'subscribe rock-linux' to <minimalist@rocklinux.org>." |
|||
|
|||
# Ok let us find a help for the current item ... |
|||
|
|||
# First of all mask all special chars in the item name |
|||
# Comment: this is sick. You can't get any \n this way !!! |
|||
item_name=$( echo "$1" | sed 's/[][\/.^$*]/\\&/g' ) |
|||
# Now search *.hlp files |
|||
hlp_text=$( sed -n "/^$item_name[ ]*\$/,\${ |
|||
/^$item_name[ ]*\$/c\\ |
|||
$item_name:\\ |
|||
|
|||
/^#/d |
|||
/^[^ ]/q |
|||
s/^ // |
|||
p |
|||
}" scripts/config*.hlp package/*/*/subconfig-*.hlp package/*/*/config*.hlp target/*/config*.hlp misc/config/config*.hlp 2>/dev/null ) |
|||
|
|||
# Get help strings out of the temporary file. |
|||
tmp_text=$(grep "^$item_name" config.help | cut -f2- -d' ' | sed -e "s,^',," -e "s,'$,," ) |
|||
|
|||
# Let us see what we have ... |
|||
if [ "$hlp_text" -a "$tmp_text" ] ; then |
|||
echo " |
|||
There are two help text's... one in one of the config.in files and one |
|||
in one of the config.hlp files. Please remove one of them to get rid of |
|||
this message here. |
|||
|
|||
Here the one out of config.in: |
|||
|
|||
$tmp_text |
|||
|
|||
Here the one out of config.hlp: |
|||
|
|||
$hlp_text" |
|||
elif [ "$hlp_text" ] ; then |
|||
echo "$hlp_text" |
|||
elif [ "$tmp_text" ] ; then |
|||
echo "$tmp_text" |
|||
else |
|||
echo "$default_text" |
|||
fi |
|||
bprof get_help stop |
|||
} |
|||
|
|||