Advertisement
s243a

pkg-list-alias (2)

Sep 15th, 2019
360
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Bash 26.44 KB | None | 0 0
  1. #!/bin/bash
  2.  
  3. #==================  setup script vars  =====================#
  4.  
  5. APPNAME="Pkg"
  6. APPVER="1.9.22"
  7. APPTITLE="$APPNAME $APPVER"
  8. list_deps_count=0 #Keeps track of the number of instances of the function list_deps(). Cleanup will be done when the last instance exists.
  9. dep_id=0 #
  10. # get current locale settings
  11. USER_LANG=$LANG
  12. USER_LC_ALL=$LC_ALL
  13.  
  14. SELF=$(basename $0)        # this script
  15. QTAG=''                    # gets set to (y/n) if ASK=-true
  16. LANG=C                     # speed up
  17. LC_ALL=C                   # speed up
  18. EDITOR=${EDITOR:-vi}       # just in case
  19. PAGER=${PAGER:-less}       # just in case
  20. CURDIR="${PWD}"            # get current dir, before cd to WORKDIR
  21. whoami=$(whoami)           # s243a copied from below. See issue: http://murga-linux.com/puppy/viewtopic.php?p=1030838#1030838
  22. TMPDIR=/tmp/pkg/${whoami}  # set the tmp dir
  23.  
  24. # set colours true by default
  25. green="\e[32m"; red="\e[91m"; magenta="\e[95m"; lightblue="\e[36m"; yellow="\e[93m"; bold="\e[1m"; endcolour="\e[0m"
  26.  
  27. # ENVIRONMENT VARS, which may be overridden later
  28. [ -z "$PKGRC" ] && export PKGRC=${HOME}/.pkg/pkgrc      # config file for this script
  29. [ -z "$ASK"   ] && ASK=false                            # if true, ask user before doing stuff. Overridden by --ask
  30. [ -z "$QUIET" ] && QUIET=false                          # if true, hide output that doesnt log well in Xdialog, Gtkdialog, etc
  31. [ -z "$FORCE" ] && FORCE=false                          # if true, force (re)install/remove pkgs. Overridden by --force
  32. [ -z "$HIDE_INSTALLED" ] && export HIDE_INSTALLED=false # if true, hide installed pkgs from pkg searches (-n, -na, -ss, -ssa)
  33. [ -z "$HIDE_BUILTINS"  ] && export HIDE_BUILTINS=true   # if true, remove builtins pkgs from dep lists, dont download/install them
  34. [ -z "$HIDE_USER_PKGS" ] && export HIDE_USER_PKGS=true  # if true, hide user installed pkgs from dep lists, dont download/install them
  35. [ -z "$NO_ALIASES"     ] && export NO_ALIASES=false     # if true, skip searching pkg alias names for pkg alternatives
  36. [ -z "$NO_INSTALL"     ] && export NO_INSTALL=false     # if true, skip installing of pkgs
  37. [ -z "$PKG_NO_COLOURS" ] && export PKG_NO_COLOURS=false # if true, disable coloured output or not
  38. [ -z "$PKG_CONFIGURE"  ] && export PKG_CONFIGURE=''     # reset
  39. [ -z "$PKG_CFLAGS"     ] && export PKG_CFLAGS=''        # reset
  40.  
  41. [ -z "$PKGS_DIR" ] && export PKGS_DIR="$(realpath "${HOME}/.packages")"
  42. #These are files of the form
  43. #[ -z "$PET_SPEC_DIR_ROOT" ] && PET_SPEC_DIR_ROOT="$PKGS_DIR"
  44. if [ -z "$REPO_DB_FILE_DIR" ]; then
  45.   if [ -d "$PKGS_DIR/repo" ]; then #This imples mistfires ppm3 is installed
  46.     export REPO_DB_FILE_DIR="$(realpath "$PKGS_DIR/repo")"
  47.   else
  48.     export REPO_DB_FILE_DIR="$PKGS_DIR"
  49.   fi
  50. fi
  51. if [ -z "$PACKAGE_FILE_LIST_DIR" ]; then
  52.   if [ -d "$PKGS_DIR/package-files" ]; then #This imples mistfires ppm3 is installed
  53.     export PACKAGE_FILE_LIST_DIR="$(realpath "$PKGS_DIR/package-files")"
  54.   else
  55.     export PACKAGE_FILE_LIST_DIR="$(realpath "$PKGS_DIR")"
  56.   fi
  57. fi
  58. [ -z "$BUILTIN_FILE_LIST_DIR" ] && BUILTIN_FILE_LIST_DIR="$PKGS_DIR/builtin_files"
  59. #[ -z "$PET_SPEC_DIR_BUILTIN" ] && PET_SPEC_DIR_BUILTIN=\
  60. #  "$(realpath "$PKGS_DIR/builtin_files")"
  61. #
  62. #[ -z "$PET_SPEC_DIR_USR_INST" ] && PET_SPEC_DIR_USR_INST="$PKGS_DIR"
  63.  
  64.  
  65. #mk_spec_file_list_arry(){
  66.  [ -z "#(declare -p $SPEC_DB_PATHS)" ] || declare -ga SPEC_DB_PATHS=()
  67.  #Can't put the loop in the loop in a pipeline if you want to assign array values:
  68.  #https://stackoverflow.com/questions/13091700/why-is-my-array-gone-after-exiting-loop  
  69.  #find / -wholename "$PKGS_DIR"/'*-installed-packages' |
  70.  while read SPEC_FILE; do
  71.    bname="`basename "$SPEC_FILE"`"
  72.    case "$bname" in #Consider lowering case
  73.    "layers-installed-packages")
  74.      #Do Nothing
  75.      export LAYER_INST_PKGS_FILE="$SPEC_FILE" ;;
  76.    "woof-installed-packages")
  77.      export WOOF_INST_PKGS_FILE="$SPEC_FILE" ;;
  78.    "user-installed-packages")
  79.      export USER_INST_PKGS_FILE="$SPEC_FILE" ;;
  80.    "devx-only-installed-packages")
  81.      export DEVX_INST_PKGS_FILE="$SPEC_FILE" ;;    
  82.    *)
  83.      SPEC_DB_PATHS+=( "$SPEC_FILE" ) ;;
  84.    esac
  85.    #s243a: We don't need realpath for the next four vars but it will provide usefull debugging information.
  86.    #s243a: TODO search for the following files if they don't exist.
  87.    [ -z "$USER_INST_PKGS_FILE" ] && \
  88.      USER_INST_PKGS_FILE="$PKGS_DIR/user-installed-packages"
  89.    [ -z "$WOOF_INST_PKGS_FILE" ] && \
  90.      WOOF_INST_PKGS_FILE="$PKGS_DIR/woof-installed-packages"
  91.    [ -z "$LAYER_INST_PKGS_FILE" ] && \
  92.      LAYER_INST_PKGS_FILE="$PKGS_DIR/layers-installed packages"
  93.    [ -z "$DEVX_INST_PKGS_FILE" ] && \
  94.      DEVX_INST_PKGS_FILE="$PKGS_DIR/devx-only-installed-packages"
  95.    SPEC_DB_PATHS=( "$USER_INST_PKGS_FILE" "$WOOF_INST_PKGS_FILE" "${SPEC_DB_PATHS[@]}" )
  96.  done < <( find "$PKGS_DIR" -name '*-installed-packages' )
  97. #}  
  98. #mk_spec_file_list_arry
  99. #echo "SPEC_DB_PATHS=${SPEC_DB_PATHS[@]}"
  100.  
  101. #mk_all_repo_file_list_arry(){
  102.  declare -gA ALL_REPO_DB_PATHS=()
  103.  #ALL_REPO_DB_PATHS=()
  104.  bname=''
  105.  
  106.  #Can't put the loop in the loop in a pipeline if you want to assign array values:
  107.  #https://stackoverflow.com/questions/13091700/why-is-my-array-gone-after-exiting-loop
  108.  #find / -wholename "$REPO_DB_FILE_DIR"/'Packages-*' |
  109.  while read REPO_FILE; do
  110.      #s243a: I was thinking of using realpath but it might cause issues.
  111.      #REPO_FILE="$(realpath "$REPO_FILE")"
  112.      bname="$(basename "$REPO_FILE")"  
  113.      ALL_REPO_DB_PATHS+=( ["$bname"]="$REPO_FILE" )
  114.      #echo "ALL_REPO_DB_PATHS=${ALL_REPO_DB_PATHS[@]}"
  115.      #echo "ALL_REPO_DB_PATHS=${ALL_REPO_DB_PATHS[@]}"
  116.  done < <( find "$REPO_DB_FILE_DIR" -name 'Packages-*' )
  117. #}  
  118. #mk_all_repo_file_list_arry
  119. #echo "exited: mk_all_repo_file_list_arry()"
  120. #echo "ALL_REPO_DB_PATHS=${ALL_REPO_DB_PATHS[@]}"
  121.  
  122. #Moved after the function repo_file_list
  123. #mk_repo_file_list_arry
  124. # but disable colours if called as gpkg, or the ENV variable PKG_NO_COLOURS is true
  125. if [ "`basename $0`" != "pkg" -o "$PKG_NO_COLOURS" = true ]; then
  126.   green='' red='' magenta='' lightblue='' yellow='' bold='' endcolour=''
  127. fi
  128.  
  129. # report errors better than just echo
  130. error(){
  131.   echo -e 1>&2 "${red}Error:${endcolour} $1"
  132. }
  133.  
  134. #run as root only
  135. whoami=$(whoami) #s243a Copied to before line #40. See issue: http://murga-linux.com/puppy/viewtopic.php?p=1030838#1030838
  136. [ "$whoami" != "root" ] && echo "You must be root to run Pkg." && exit 1
  137.  
  138. #080413 make sure all config files are present, copy from /etc if need be
  139. if [ ! -f ${PKGRC} ]; then
  140.   echo "Restoring default settings from /etc/pkg"
  141.   [ ! -d /etc/pkg/ ] && error "Default config files  in /etc/pkg/ not found." && exit 3
  142.   mkdir -p "$HOME/.pkg"
  143.   [ ! -d "$HOME/.pkg" ] && error "Default user config dir '$HOME/.pkg/' could not be created." && exit 3
  144.   cp --force -a /etc/pkg/* "$HOME/.pkg/" || exit 3
  145. fi
  146.  
  147. # get puppy distro env vars
  148. [ -f /etc/rc.d/PUPSTATE ]                   && . /etc/rc.d/PUPSTATE                    #this has PUPMODE and SAVE_LAYER.
  149. [ -f /etc/DISTRO_SPECS ]                    && . /etc/DISTRO_SPECS                     #has DISTRO_BINARY_COMPAT, DISTRO_COMPAT_VERSION
  150. [ -f /etc/rc.d/BOOTCONFIG ]                 && . /etc/rc.d/BOOTCONFIG                  #has EXTRASFSLIST PREVUNIONRECORD, LASTUNIONRECORD (sfs stuff)
  151. [ -f /etc/xdg/menus/hierarchy ]             && . /etc/xdg/menus/hierarchy              #w478 has PUPHIERARCHY variable.
  152. [ -f $PKGS_DIR/DISTRO_PKGS_SPECS ]    && . $PKGS_DIR/DISTRO_PKGS_SPECS     #has lot sof essential info
  153. [ -f $PKGS_DIR/PKGS_MANAGEMENT ]      && . $PKGS_DIR/PKGS_MANAGEMENT       #has PKG_NAME_IGNORE, PKG_PET_THEN_BLACKLIST_COMPAT_KIDS, PKG_REPOS_ENABLED
  154. [ -f $PKGS_DIR/DISTRO_COMPAT_REPOS ]  && . $PKGS_DIR/DISTRO_COMPAT_REPOS   #has repo URL related vars
  155.  
  156. # set the package name suffix appended to combined pkgs (pkg+deps)
  157. CP_SUFFIX="WITHDEPS_${DISTRO_FILE_PREFIX}"
  158.  
  159. # set correct arch for repo URLs (used by some slack-pup repos)
  160. case "$DISTRO_TARGETARCH" in
  161.   x86)    DBIN_ARCH=i486                ;;
  162.   x86_64) DBIN_ARCH=x86_64 ; DSUFFIX=64 ;;
  163.   *)      DBIN_ARCH=i486                ;;
  164. esac
  165.  
  166. # needed for some debian based repos
  167. case $DISTRO_COMPAT_VERSION in
  168.   wheezy) DDB_COMP=bz2 ;; # older versions
  169.   *)      DDB_COMP=xz  ;;
  170. esac
  171.  
  172. # now create 'layers-installed': will contain builtins (and devx packages, if devx is loaded)
  173. #130511 need to include devx-only-installed-packages, if loaded...
  174. if which gcc &>/dev/null; then
  175.   [ ! -f /tmp/ppm-layers-installed-packages ] && cp -f "$WOOF_INST_PKGS_FILE" /tmp/ppm-layers-installed-packages &>/dev/null
  176.   cat "$PET_SPEC_DIR_DEFAULT/devx-only-installed-packages" >> /tmp/ppm-layers-installed-packages &>/dev/null
  177.   sort -u /tmp/ppm-layers-installed-packages > "$LAYER_INST_PKGS_FILE" &>/dev/null
  178. else
  179.   cp -f "$WOOF_INST_PKGS_FILE" "$LAYER_INST_PKGS_FILE" &>/dev/null
  180. fi
  181.  
  182. # set $DIRECTSAVEPATH (where we want to install pkgs)
  183. if [ $PUPMODE -eq 3 -o $PUPMODE -eq 7 -o $PUPMODE -eq 13 ]; then
  184.   DIRECTSAVEPATH="/initrd${SAVE_LAYER}" #SAVE_LAYER is in /etc/rc.d/PUPSTATE.
  185. elif [ "$PUPMODE" = "2" ]; then
  186.   DIRECTSAVEPATH=""
  187. fi
  188. # s243a: Need the real path to avoid overwriting sylinks. See:
  189. # http://murga-linux.com/puppy/viewtopic.php?p=1030958#1030958  
  190. # https://github.com/puppylinux-woof-CE/woof-CE/issues/1469#issuecomment-505706014
  191. [ -L "$DIRECTSAVEPATH" ] && DIRECTSAVEPATH="$(readlink "$DIRECTSAVEPATH")"
  192. # get repo details, workdir, search settings and so on.. you could
  193. # you can also add any ENVIRONMENT VARS above to PKGRC, to override the defaults
  194. . ${PKGRC}
  195.  
  196. # set and create workdir if no valid dir set
  197. [ ! -d "$WORKDIR" ] && mkdir -p "$WORKDIR"
  198. if [ ! -d "$WORKDIR" ]; then
  199.   error "Can't create $WORKDIR. Please create it."
  200.   exit 3
  201. fi
  202. WORKDIR=~/pkg
  203.  
  204. # add to tab completion settings to bashrc and print hint
  205. if [ -z "$PKG_TAB_COMPLETION" ]; then
  206.   if [ "$(grep 'export PKG_TAB_COMPLETION=true' ~/.bashrc)" = "" ]; then
  207.     # add to bashrc
  208.     echo "" >> ~/.bashrc
  209.     echo "# enable $APPNAME $APPVER TAB completion" >> ~/.bashrc
  210.     echo "export PKG_TAB_COMPLETION=true" >> ~/.bashrc
  211.     echo ". /etc/bash_completion.d/pkg 2>/dev/null" >> ~/.bashrc
  212.   fi
  213. fi
  214.  
  215. # make tmp dir writable by everyone if needed
  216. if [ ! -d "$TMPDIR" ]; then
  217.   mkdir -p "$TMPDIR" 2>/dev/null
  218.   chmod -R 1777 /tmp/pkg/ 2>/dev/null
  219. fi
  220.  
  221. # if no tmp dir created or accessible, exit
  222. [ ! -d "$TMPDIR" ] && error "Cannot create temp dir ${lightblue}$TMPDIR${endcolour}" && exit 3
  223.  
  224. # support aliases, create ALIASES tmp file
  225. PKG_NAME_ALIASES='mozilla-firefox,firefox gtk+,gtk2 gtk2,gtk+2 dirac,schroedinger hunspell,myspell mp,mped mplayer,mplayer_*,mplayer-*,mplayer2,smplayer,gmplayer mrxvt,rxvt-unicode,xterm,urxvt,urxvt-unicode cxxlibs,glibc*,libc-* glibc-solibs,glibcsolibs alsalib,alsa-lib,alsa-lib2* alsautils,alsa-utils,alsa_utils,alsa-utils2* libungif,libgif,giflib zip,infozip dbus,libdbus*,libdbus-glib* hal,libhal* mesa,mesa_*,libgl1-mesa*,mesa-common* libxcb,libxcb_base sane,sane-backends samba,samba-tng,samba_*,mountcifs SDL_*,libsdl_* SDL,libsdl skype,skype_static util_linux_ng,util-linux-ng,util-linux,util_linux,utillinuxng vlc,vlc-nogui,vlc_nogui,VLC_Plus_Extras xf86-video-ati,xf86-video-ati-*,ati_fglrx xfdiff,xfdiff-cut xorg_base,xorg_base_t2,x11-common,x-dev,xorg,xorg73_base_t2 acl,libacl* xdg_puppy,xdg-utils perl_tiny,perl-base,perl-modules,perlapi* xorg-util-macros,util-macros portaudio,libportaudio jack-audio-connection-kit,libjack libjasper,jasper imlib2,libimlib2 imlib,libimlib'
  226. [ ! -f "$TMPDIR/pkg_aliases" ] && echo "$PKG_NAME_ALIASES" | tr ' ' '\n' > $TMPDIR/pkg_aliases
  227.  
  228. # remove error code flag if we got here
  229. rm -f /tmp/pkg/error130 &>/dev/null
  230.  
  231. # if not first run, and no options given, print the help
  232. [ ! -f ~/.pkg/firstrun -a "$1" = "" ] && $SELF -H && exit 1 #200913 more help by default
  233.  
  234. #==================  setup script vars  =====================#
  235.  
  236. set -a
  237. repo_file_list(){                 # list available repo files, $1 optional FUNCLIST
  238.  
  239.   # we need to list these repos in the order defined in the RC file
  240.   # so Pkg can 'fall back' to other repos in that order
  241.  
  242.   # get current config
  243.   . ${PKGRC}
  244.  
  245.   # set vars for this func
  246.   local list=''
  247.   local repo_file=''
  248.   local repo_files=`cut -f3 -d'|' ${HOME}/.pkg/sources`
  249.   local current_fallback_list=`grep "^$REPONAME|" ${HOME}/.pkg/sources | cut -f8 -d'|' | grep -v "^\$"`
  250.  
  251.   # get current repo fallback list order.. note if repo not listed in fallback list, it will be appended after
  252.   for line in $current_fallback_list
  253.   do
  254.     # get the repo file
  255.     repo_file="`grep "^$line|" ${HOME}/.pkg/sources | cut -f3 -d'|'`"
  256.     # add it to the list
  257.     [ "$repo_file" != "" ] && list="$list$repo_file "
  258.   done
  259.  
  260.   # now add all other avail repos to the end of fallback list
  261.   for repo_file in $repo_files
  262.   do
  263.     #if not blank, not already in the repo list and not the current repo ($REPONAME from rc file) then add to list
  264.     [ "$repo_file" != "" -a "`echo "$list" | grep "$repo_file "`" = ""  -a "$repo_file" != "$REPOFILE" ] && list="$list$repo_file "
  265.   done
  266.  
  267.   # list the current repo first
  268.   echo $REPOFILE
  269.   # then the other repos
  270.   echo "$list" | tr ' ' '\n' | grep -v "^\$"
  271. }
  272. declare -ga REPO_DB_PATHS
  273. #mk_repo_file_list_arry(){
  274.  
  275.   #REPO_DB_PATHS=()
  276.   #declare -A REPO_DB_PATHS
  277.  
  278.  #Can't put the loop in the loop in a pipeline if you want to assign array values:
  279.  #https://stackoverflow.com/questions/13091700/why-is-my-array-gone-after-exiting-loop
  280.  # repo_file_list |
  281.  while read REPO_FILE_NAME; do
  282.     #echo "REPO_FILE_NAME=$REPO_FILE_NAME"
  283.     RF_FILE_PATH="${ALL_REPO_DB_PATHS[$REPO_FILE_NAME]}"
  284.     if [ -e "$RF_FILE_PATH" ]; then
  285.       REPO_DB_PATHS+=( "$RF_FILE_PATH" )
  286.     fi
  287.  done < <( repo_file_list )
  288. list_all_aliases_set_verify(){
  289.       local verify
  290.       declare -a verify_actions
  291.       if [[ $2 = -* ]]; then
  292.         verify=0 #Don't Verify aliases
  293.         #echo "first if"
  294.        #shift 1
  295.       elif [[ -z "$2" ]]; then
  296.         verify=0 #Don't Verify aliases
  297.          #echo "second if"      
  298.       else
  299.         verify=$2
  300.         #echo "else"
  301.         #shift 2
  302.       fi
  303.       #echo "exited if"
  304.       case "$verify" in
  305.         true|yes|1) verify=1; ;;
  306.         false|no|0) verify=0; ;;
  307.         fist|2) verify=2; ;; #Verify untill we know the version
  308.         *)
  309.           verify=3 #Specify the verify action.
  310.           verify_actions=( ${2//;/ } ) #TODO maybe use a more robust method here: https://stackoverflow.com/questions/918886/how-do-i-split-a-string-on-a-delimiter-in-bash
  311.           #shift 2
  312.           ;;
  313.       esac
  314.      echo $verify
  315.      if [ $verify=1 ]; then
  316.        echo version
  317.      else  
  318.        echo no-version
  319.      fi
  320.      if [ declare -p verify_actions ]; then
  321.        for action in verify_actions; do
  322.          echo "$action"
  323.        done
  324.      fi
  325. }
  326.  
  327. # utility funcs
  328. #set -- gtk
  329.  
  330.  
  331. mk_AWK_prg(){
  332.     local pkg_name=$1
  333.     local version=$2
  334.     local stripped_match
  335.     declare -a options="$(getopt -o -pvsn --long package:,version:,stripped,--no-strip: -- $@)"
  336.     eval set --"$options"
  337.     while [ $# -gt 0 ]; do
  338.       case "$1" in
  339.       -s|--stripped) stripped_match=1; shift 1 ;; #For no this will be the default
  340.       -n|--no-strip) stripped_match=0; shift 1 ;;
  341.       -p|--package) package=$1; shift 2 ;;
  342.       -v|--version) version=$1; shift 2 ;;
  343.       --) shift 1; break ;;
  344.       *) shift 1 ;;
  345.       esac
  346.     done
  347.     for aArg in "$@"; do
  348.       if [ ! -z "$aArg" ]; then #Not sure if we need to do this
  349.         if [ -z "$pkg_name" ]; then
  350.           pkg_name="$aArg"
  351.         elif [ -z "$version" ]; then
  352.           version="$aArg"
  353.         else
  354.           break
  355.         fi
  356.       fi
  357.     done
  358.     [ -z "$stripped_match" ] && stripped_match=1
  359.     if [[ "$pkg_name" =~ ^[^0-9]*[0-9]*$ ]]; then
  360.       stripped="$(echo $pkg_name | sed -e 's/[0-9]*$//g')"
  361.       if [ -z $version ]; then
  362.         version="$(echo $pkg_name | sed -r 's/[.*[!0-9]([0-9]*$)/\2/')"
  363.       fi
  364.       versioned=1 #Currently we don't do anything with this info.
  365.     else
  366.       stripped="$pkg_name"
  367.       versioned=0
  368.     fi
  369.    
  370.     #https://www.gnu.org/software/gawk/manual/html_node/String-Functions.html
  371.     if [ $stripped_match -eq 1 ] && [ ! -z "$version" ]; then
  372.       if [ $versioned -eq 1 ]; then
  373.         AWK_PRG=\
  374. "        BEGIN{FS=\"|\"}
  375.        {
  376.          match(\$2,/^(.*[^:digit:])([:digit:]*$|$)/,pkg_split)
  377.          match(\$3,/^[:digit:]*([^:digit:].*|$)/,version_split)
  378.          if( \$2 == \"$pkg_name\" ) {
  379.            print
  380.          }
  381.         else if ( pkg_split[1] == \"$stripped\" && version_split[1] == \"$version\" ) {
  382.            print
  383.         }
  384.      }"
  385.       else
  386.         AWK_PRG=\
  387. "        BEGIN{FS=\"|\"}
  388.        {
  389.          match(\$2,/^(.*[^:digit:])([:digit:]*$|$)/,pkg_split)
  390.          match(\$3,/^[:digit:]*([^:digit:].*|$)/,version_split)
  391.          if ( pkg_split[1] == \"$stripped\" && version_split[1] == \"$version\" ) {
  392.            print
  393.          }
  394.          else if ( length(pkg_split) > 1 ) {
  395.            if ( pkg_split[1] == \"$stripped\" && pkg_split[2] == \"$version\" ) {
  396.              print
  397.            }
  398.         }
  399.      }"
  400.       fi
  401.     elif [ $stripped_match -eq 1 ] && [ -z "$version" ]; then
  402.     #AWK_PRG_No_Version=\        
  403.     #
  404.     AWK_PRG=\
  405. "    BEGIN{FS=\"|\"}
  406.    {
  407.      match(\$2,/^(.*[^:digit:])([:digit:]*$|$)/,pkg_split)
  408.      if ( pkg_split[1] == \"$stripped\" ) {
  409.        print
  410.      }
  411.    }"  
  412.     else #Exactly match the package name
  413.      AWK_PRG=\
  414. "    BEGIN{FS=\"|\"}
  415.    {
  416.       if ( \$2 == \"$pkg_name\" ) {
  417.         print
  418.       }
  419.      
  420.    }"            
  421.     fi
  422.     echo "$AWK_PRG"
  423.         #if [  
  424. }
  425. #list_all_aliases(){
  426.   # support pkg name aliases in finding packages
  427.         #case "$i" in
  428.         #1) subdep2="subdep"
  429.         #2)
  430.         #  subdep2="$(echo subdep | sed -e 's/++/+++/g' -e 's/+[a-z0-9].*//g')"
  431.         #  if [ "$subdep" = "$subdep2" ]; then
  432.         #  
  433.         #  fi
  434.   echo "$subdep2"
  435.   #local ALIAS_LIST; local ALIAS; local ALIAS_RES; local subdep
  436.   #local subdep_version; local subdep2; local subdep_stripped
  437.   #local verify; local no_alias
  438.   declare -a options="$(getopt -o v:l:p:m:: --long version:,list:,package:,meta::,verify::,no-alias -- $@)"
  439.   declare -A verify_actions
  440.   eval set -- "$options"
  441.   while true; do
  442.     case $1 in
  443.     -v|--version)
  444.       subdep_version=${2:-'%{version}'}; shift 2 ;;  
  445.    -l|--list)
  446.      ALIAS_LIST_in="2"; shift 2; ;;
  447.    -p|--package)
  448.      subdep="$2"; shift 2; ;;
  449.    -m|--meta)
  450.      if [[ "$2" = -* ]] || [ -z "$2" ]]; then
  451.        meta='db-index'; shift 1
  452.      else
  453.        meta="$2"; shift 2
  454.      fi ;;
  455.    --verify)
  456.      while aResult in list_all_aliases_set_verify "$1" "$2"; do
  457.        #verify_actions=("aResult")
  458.        verify_actions[$aResult]=1
  459.      done
  460.      #if [ $verify_actions[version] -eq 1 ]; then
  461.      #  verify=1
  462.      
  463.      # &&  
  464.      #echo "WTF!"
  465.      #unset 'verify_actions[0]'
  466.      #shift 1; [[ "$1" = -* ]] && shift 1
  467.      shift 2
  468.      
  469.      #May set
  470.      #for aAction in version no-version min-version max-version spider download; do
  471.      #  
  472.      #done
  473.      ;;
  474.    #--verify-type)
  475.    --no-alias)  
  476.      if [[ $2 = -* ]] || [ -z "$2" ]; then
  477.        no_alias=1; shift 1;      
  478.      else
  479.        no_alias=$2; shift 2;    
  480.      fi
  481.      {
  482.      case "$no_alias" in
  483.        true|yes|1) no_alias=1; ;;
  484.        false|no|0) no_alias=0; ;;
  485.        default|2) no_alias=2; ;;
  486.      esac
  487.      } ;;
  488.    --)
  489.      shift
  490.      break; ;;
  491.    -*|--*) #This should never happen
  492.       echo "list_all_aliases(): unkown option '$1' '$2' "
  493.       shift 2; ;;      
  494.    *) #This should never happen
  495.       echo "list_all_aliases(): unkown paramater '$1' " 1>&2
  496.       shift 1; ;;
  497.    esac
  498.  done
  499.  
  500.  if [ -z "$subdep" ]; then
  501.    subdep="$1"; shift
  502.  fi
  503.  #if [ -z "$subdep_version" ]; then
  504.  #  subdep_version=${1:-'%{version}'}; shift
  505.  #fi
  506.  if [ -z "$ALIAS_LIST" ]; then
  507.    ALIAS_LIST_in="$1"; shift
  508.  fi
  509.  [ -z "$verify" ] && verify=0
  510.  if [ -z "$no_alias" ] || [ $no_alias -eq 2 ]; then
  511.    if [ ! -z "$NO_ALIASES" ]; then
  512.      case "$NO_ALIASES"  in
  513.      true) no_alias=1 ;;
  514.      false) no_alias=0 ;;
  515.      esac
  516.    else
  517.      no_alias=0;
  518.    fi
  519.  fi
  520.  if [ -z "$ALIAS_LIST_in" ]; then
  521.    if [ -f ${TMPDIR}/pkg_aliases ]; then
  522.      ALIAS_LIST="${TMPDIR}/pkg_aliases"
  523.    else
  524.      ALIAS_LIST="$PKG_NAME_ALIASES"
  525.    fi
  526.  fi
  527.  #We probably don't need to do this unless we are given a file name.
  528.   subdep_stripped="$(echo "$subdep" | sed -e 's/++/+++/g' -e 's/+[a-z0-9].*//g')"
  529.   #but we need to strip the trailing number:
  530.   #However, comment out the if condition for now because I don't know if it gives any performance gains
  531.   #if [[ "$pkg_name" =~ ^[^0-9]*[0-9]*$ ]]; then
  532.     subdep_stripped="$(echo $pkg_name | sed -e 's/[0-9]*$//g')"
  533.     if [ -z "$subdep_version" ]; then
  534.       subdep_version="$(echo $pkg_name | sed -r 's/[.*[!0-9]([0-9]*$)/\1/')"
  535.     fi
  536.   #fi
  537.        
  538.   if [ -e "$ALIAS_LIST" ]; then #ALIAS_LIST is a file
  539.        ALIAS_LIST1=( `grep -E "$subdep_stripped"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' '` )
  540.   else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  541.     ALIAS_LIST1=( $(echo "$ALIAS_LIST" | tr ' ' '\n' | grep -E "$subdep_stripped"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  542.   fi
  543.   subdep_old=subdep_version #We don't use this yet.
  544.   subdep_version="${subdep_version%%.*}"  
  545.   if [ ! -z "$subdep_version" ] && [ -z "$ALIAS_LIST2" ]; then
  546.     if [ "$subdep_versioned" != "$subdep" ]; then
  547.       subdep_versioned="$subdep"
  548.       subdep_versioned2="$subdep_stripped$subdep_versioned"
  549.     else
  550.       subdep_versioned="$subdep_stripped$subdep_versioned"
  551.     fi
  552.     if [ -e "$ALIAS_LIST_in" ]; then #ALIAS_LIST is a file
  553.       ALIAS_LIST2=( `grep -E "$subdep_versioned"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' '` )
  554.     else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  555.       ALIAS_LIST2=( $(echo "$ALIAS_LIST_in" | tr ' ' '\n' | grep -E "$subdep_versioned"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  556.     fi    
  557.     #for ALIAS in "${ALIAS_LIST2}"; do
  558.     #  
  559.     #done
  560.   fi  
  561.   if [ ! -z "$subdep_version2" ] && [ -z "$ALIAS_LIST3" ]; then
  562.     if [ -e "$ALIAS_LIST_in" ]; then #ALIAS_LIST is a file
  563.       ALIAS_LIST3=( `grep -E "$subdep_versioned2"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' '` )
  564.     else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  565.       ALIAS_LIST3=( $(echo "$ALIAS_LIST_in" | tr ' ' '\n' | grep -E "$subdep_versioned2"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  566.     fi    
  567.   fi    
  568.   ###################TODO combine alias lists######################
  569.   if [ "$subdep_stripped" = "$sudep" ]; then
  570.     subdep2="$subdep$subdep_version"
  571.   else
  572.     subbdep2="$subdep_stripped"
  573.   fi
  574.   declare -A result
  575.   declare -A aliases
  576.   echo "no_alias=$no_alias"
  577.   if [ $no_alias -eq 1 ]; then
  578.     result[0]="$subdep"
  579.     result[1]="$subdep2"
  580.   elif [ $no_alias -eq 0 ]; then
  581.    
  582.     # if we have some results to parse
  583.  
  584.     # get the list of aliases
  585.     #ALIAS_LIST="`grep -m1 "$1" $TMPDIR/pkg_aliases  2>/dev/null | tr ',' ' '`";
  586.     # for each alias
  587.  
  588.     #if [ ${verify_actions[version]} -eq 1 ]; then
  589.       alias_index=0
  590.       for ALIAS in "${ALIAS_LIST1[@]}" "${ALIAS_LIST2[@]}" "${ALIAS_LIST3[@]}"; do
  591.       #while read ALIAS; do
  592.         key=md5_`md5sum < <( echo "$ALIAS" ) | cut -f1 -d' '`    
  593.         if [ -z "${aliases[$key]}" ]; then  
  594.           alias_index=$((alias_index+1))      
  595.           remaining_aliases[$key]="$ALIAS"
  596.           alias_keys[$alias_index]=$key
  597.           aliases[$key]="$ALIAS"
  598.         fi
  599.       done
  600.       #done < <( echo $ALIAS_LIST )
  601.       #N_ALIAS=#alias_index
  602.     if [ -z $subdep_version ]; then
  603.       more_aliases=true
  604.     else
  605.       more_aliases=last
  606.     fi
  607.     new_version=0
  608.     db_index=0      
  609.     #The Alias list should be sorted by our repo order. In other words the repo order defines the priority.
  610.     while [ $db_index -lt ${#REPO_DB_PATHS[@]} ]; do
  611.     #for aRepoDB in "$REPO_DB_FILE_DIR/${REPOFILE}"; do
  612.       aRepoDB=${REPO_DB_PATHS[$db_index]}
  613.       #while [ ! "$more_aliases" = done ]; do #TODO do we need this loop (see next for loop)#################
  614.       #alias_index=0 #We could use this instead of loop through the keys
  615.       for key in "${!remaining_aliases[@]}"; do
  616.         ALIAS="${remaining_aliases[$key]}"
  617.         alias_index=alias_indexs[$key]
  618.         [ "$ALIAS" = '' ] && continue
  619.         if [ ! -z "${verify_actions[version]}" ] && [ ${verify_actions[version]} -eq 1 ]; then
  620.           AWK_PRG="$(mk_AWK_prg $subdep $subdep_version)"
  621.         else
  622.           AWK_PRG="$(mk_AWK_prg $subdep)"
  623.         fi          
  624.         awk_result="$(cat $aRepoDB | awk "$AWK_PRG")"
  625.         if [ ! -z "$awk_result" ]; then
  626.           if [ -z "$subdep_version" ]; then #TODO think about if we should do this when we aren't verifing the version
  627.             subdep_version="${awk_result[3]}"
  628.             subdep_version="${subdep_version%%.*}"
  629.             alias_index2=$N_ALIAS
  630.               #more_aliases=last
  631.       ##########TODO create array of new alasises
  632.             alias_index2=${#aliases[@]}    
  633.             new_version=0
  634.             for ALIAS2 in "${ALIAS_LIST[@]}"; do #TODO make sure the variable ALIAS2 doesn't conflict with anything
  635.               ALIAS3="$ALIAS2$subdep_version"
  636.               key2=md5_`md5sum < <( echo "$ALIAS3" ) | cut -f1 -d' '`
  637.               if [ -z "${aliases[$key2]}" ]; then
  638.                 new_version=1  
  639.                 #key=`md5sum < <( echo "$ALIAS" ) | cut -f1 -d' '`
  640.                 remaining_aliases[$key]="$ALIAS3"
  641.                 alias_keys[$alias_index2]=$key
  642.                 aliases[$key]="$ALIAS3"
  643.                 alias_index2=$((alias_index++))
  644.                 alias_indexs[$key2]=$alias_index2
  645.               fi
  646.             done
  647.             if [ $new_version -eq 1 ]; then
  648.               db_index=-1 #Start over at the first DB.
  649.               break 2
  650.             fi              
  651.           fi
  652.           result[$key]="$ALIAS"
  653.           #[ ! -z "alias_indexes[$key]" ] || alias_indexes[$key]=$alias_index
  654.           [ ! -z "db_indexes[$key]" ] || db_indexes[$key]=$db_index                                  
  655.           if [ ! -z "$subdep_version" ] && [ ${verify_actions[$subdep_version]} -eq 1]; then
  656.             checks_done[$key]=entry,version
  657.           else
  658.             checks_done[$key]=entry
  659.           fi
  660.           if [ $i -gt 0 ]; then
  661.             unset "remaining_aliases[$key]"
  662.             var=$((var +1))
  663.           fi
  664.         fi
  665.       done
  666.       db_index=$((db_index + 1))
  667.     done  
  668.   fi
  669.  
  670.  
  671.   for aKey in ${!result[@]}; do
  672.     echo "akey=$aKey"
  673.     alias="${result[$aKey]}"
  674.     if [ "$ALIAS" != subdep ] || [ $all -eq 1 ]; then  
  675.       echo "${result[$aKey]}"
  676.     fi
  677.   done #| sort  
  678.    
  679. #}
  680. #list_all_aliases "$@"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement