sdx/Xsdx.sh

   1 #!/bin/bash
   2
   3 # Wrapper script for sdx, to facilitate the creation of starkits (including cross-platform builds)
   4 # Created for the ArchLinux sdx package, licensed under the same conditions as sdx
   5 # Copyright: Simon Bachmann (simonbachmann@freesurf.ch), 2007
   6
   7
   8 APPNAME=$0
   9 TCLKIT_DIR=/usr/share/sdx/tclkits
  10 SDX=/usr/bin/sdx
  11
  12 print_help () {
  13
  14 case $1 in
  15
  16         "")
  17
  18 cat << EOF
  19
  20 $APPNAME is a script that extends sdx to make it easier to create starkits.
  21
  22 For more informations about sdx type: $APPNAME sdxhelp ?command?
  23 For more informations about $APPNAME type: $APPNAME help ?command?
  24
  25 EOF
  26 ;;
  27
  28         "help")
  29 cat << EOF
  30 Specify one of the following commands:
  31   sdxhelp       Access the sdx help
  32   wrap          Extended wrap command
  33   listkits      Display a list of all available tclkits
  34
  35 For more information type: $APPNAME help ?command?
  36
  37 EOF
  38 ;;
  39
  40         sdxhelp)
  41 cat << EOF
  42
  43  Access the sdx help
  44
  45         Usage: sdxhelp ?command?
  46
  47         command         Sdx command to get more information about
  48
  49         With no command specified, a list of all sdx commands
  50         with a short description is displayed.
  51
  52 EOF
  53 ;;
  54
  55         wrap)
  56 cat << EOF
  57
  58  Extended wrap command
  59
  60         Usage: wrap name ?options?
  61
  62         -runtime        name    The runtime tclkit to use, one of the
  63                                 names returned by "listkits"
  64         -runtimefile    file    Specifiy runtime with full path
  65
  66         All other options are unchanged. See 'sdx help wrap' for details.
  67
  68 EOF
  69 ;;
  70
  71         listkits)
  72 cat << EOF
  73
  74  Display a list of all available tclkits
  75
  76         Usage: listkits
  77
  78         The name of each tclkit should tell you for wich platform
  79         it was built. To add more tclkits, just copy them to
  80         $TCLKIT_DIR
  81
  82 EOF
  83 ;;
  84
  85         *)
  86                 print_help help ;;
  87
  88 esac
  89
  90 }
  91
  92 sdxhelp () {
  93         $SDX help $@
  94 }
  95
  96 wrap () {
  97         search_kits
  98         while [ "$1" != "" ]; do
  99                 case $1 in
 100                         -runtime)
 101                                 shift
 102                                 i=`search_array KITS $1`
 103                                 if [ "$i" != "-1" ]; then
 104                                         options="$options -runtime ${PATHS[$i]}"
 105                                 else
 106                                         echo -e "Starkit named $1 does not exist\n"
 107                                         listkits
 108                                         exit
 109                                 fi
 110
 111                                 ;;
 112                         -runtimefile)
 113                                 shift
 114                                 options="$options -runtime $1"
 115                                 ;;
 116                         *)
 117
 118                                 options="$options $1"
 119                                 ;;
 120                 esac
 121                 shift
 122         done
 123
 124         $SDX wrap $options
 125 }
 126
 127 listkits () {
 128         search_kits
 129         echo -e "These tclkits are available:\n"
 130         for k in "${KITS[@]}"; do
 131                 echo -e "\t$k"
 132         done
 133         echo
 134 }
 135
 136 search_array () {
 137         eval arr="( \${$1[@]} )"
 138         found="-1"
 139         ret=1
 140         for (( i=0 ; $i < ${#arr[@]} ; i+=1)); do
 141                 if [ "${arr[$i]}" = "$2" ]; then
 142                         found=$i
 143                         ret=0
 144                 fi
 145         done
 146
 147         echo $found
 148         return $ret
 149 }
 150
 151
 152 #search tclkits
 153 search_kits () {
 154         i=0
 155         for path in "$TCLKIT_DIR"/*; do
 156                 k=`basename "$path"`
 157                 if [ -r "$path" -a  -x "$path" ]; then
 158                         KITS[$i]="$k"
 159                         PATHS[$i]="$path"
 160                         let i+=1
 161                 fi
 162         done
 163 }
 164
 165 #for debug
 166 #echo "Found kits: ${KITS[@]}"
 167 #echo "Found paths: ${PATHS[@]}"
 168
 169 #parse subcommands
 170 case $1 in
 171         "")
 172                 print_help ;;
 173
 174         sdxhelp)
 175                 shift
 176                 sdxhelp $@ ;;
 177
 178         wrap)
 179                 shift
 180                 wrap $@ ;;
 181
 182         listkits)
 183                 shift
 184                 listkits $@ ;;
 185
 186         help)
 187                 shift
 188                 if [ "$1" = "" ]; then
 189                         print_help help
 190                 else
 191                         print_help $1
 192                 fi
 193                 ;;
 194
 195         "--help" | "-h")
 196                 print_help ;;
 197
 198         *)
 199                 $SDX $@ ;;
 200
 201 esac
 202