API tools faq
paste
Advertisement
s243a

draft: pkg-list-aliases (4)

s243a
Sep 21st, 2019
306
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Bash 31.18 KB | None | 0 0
raw download clone embed print report
  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 lib_version
  317.      else  
  318.        echo no_lib_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
  333.     local version
  334.     local stripped_match
  335.     local awk_cmp_ary=''
  336.     local n_cmp=0
  337.     declare -a options="$(getopt -o f:l:m:np:su:v: --long full-version:,lib-version,min-version,--no-strip:,package:,stripped,version:,gt:,ge:,lt:,le: -- $@)"
  338.     eval set --"$options"
  339.     while [ $# -gt 0 ]; do
  340.       case "$1" in
  341.       -f|--full-version) full_version=$1; shift 2;;   #Not yet implemented
  342.       -l|--lib-version) lib_version=$1; shift 2;;  
  343.       -m|--min-version|--ge)
  344.          n_cmp=$((n_cmp+1))
  345.          awk_cmp_ary_op="$awk_cmp_ary_op"$'\n'"awk_cmp_ary_op[$n_cmp]=\"ge\""
  346.          awk_cmp_ary_val="$awk_cmp_ary_val"$'\n'"awk_cmp_ary_val[$n_cmp]=\"$2\""   
  347.          shift 2  ;;    
  348.       -n|--no-strip) stripped_match=0; shift 1 ;;
  349.       -p|--package) package=$1; shift 2 ;;
  350.       -s|--stripped) stripped_match=1; shift 1 ;; #For no this will be the default   
  351.       -u|--upper-version|--max-version|--le)
  352.          n_cmp=$((n_cmp+1))
  353.          awk_cmp_ary_op="$awk_cmp_ary_op$'\n'awk_cmp_ary_op[$n_cmp]=\"le\""
  354.          awk_cmp_ary_val="$awk_cmp_ary_val$'\n'awk_cmp_ary_val[$n_cmp]=\"$2\"" 
  355.          shift 2 ;;          
  356.       -v|--version) #Compare version only to the precsion given
  357.          n_cmp=$((n_cmp+1))
  358.          awk_cmp_ary_op="$awk_cmp_ary_op$'\n'awk_cmp_ary_op[$n_cmp]=\"e\""
  359.          awk_cmp_ary_val="$awk_cmp_ary_val$'\n'awk_cmp_ary_val[$n_cmp]=\"$2\""
  360.          shift 2 ;;  
  361.       --gt)
  362.          n_cmp=$((n_cmp+1))
  363.          awk_cmp_ary_op="$awk_cmp_ary_op$'\n'awk_cmp_ary_op[$n_cmp]=\"gt\""
  364.          awk_cmp_ary_val="$awk_cmp_ary_val$'\n'awk_cmp_ary_val[$n_cmp]=\"$2\""     
  365.          shift 2 ;;  
  366.       -lt)
  367.          n_cmp=$((n_cmp+1))
  368.          awk_cmp_ary_op="$awk_cmp_ary_op$'\n'awk_cmp_ary_op[$n_cmp]=\"lt\""
  369.          awk_cmp_ary_val="$awk_cmp_ary_val$'\n'awk_cmp_ary_val[$n_cmp]=\"$2\""
  370.          shift 2 ;;      
  371.       --) shift 1; break ;;
  372.       *) shift 1 ;;
  373.       esac
  374.     done
  375.     for aArg in "$@"; do
  376.       if [ ! -z "$aArg" ]; then #Not sure if we need to do this
  377.         if [ -z "$pkg_name" ]; then
  378.           pkg_name="$aArg"
  379.         elif [ -z "$version" ]; then
  380.           #version="$aArg"
  381.           lib_version=$1
  382.         else
  383.           break
  384.         fi
  385.       fi
  386.     done
  387.     [ -z "$stripped_match" ] && stripped_match=1
  388.     if [[ "$pkg_name" =~ ^[^0-9]*[0-9]*$ ]]; then
  389.       stripped="$(echo $pkg_name | sed -e 's/[0-9]*$//g')"
  390.       if [ -z $version ]; then
  391.         lib_version="$(echo $pkg_name | sed -r 's/[(.*[!0-9])([0-9]*$)/\2/')"
  392.       fi
  393.       versioned=1 #Currently we don't do anything with this info.
  394.     else
  395.       stripped="$pkg_name"
  396.       versioned=0
  397.     fi
  398.     #TODO write a script to look up the version range from the lib version.
  399.     if [ $n_cmp -gt 0 ]; then
  400.       AWK_Functions="\
  401.          function version_split(version1,version_array,split_chars,       i1,remainder1,matches){
  402.            match(num1,/[[:digit:]]*:(.*|$)/,num1_epoch_split)
  403.            if (length(num1_epoch_split) > 0 ){
  404.              version_array[1]=num1_epoch_split[1]
  405.              remainder1=num1_epoch_split[2]
  406.            } else {
  407.              version_array[1]=0
  408.              remainder1=version1
  409.            }
  410.            split_chars[1]=\":\"
  411.            i1=2
  412.            match(remainder1,/^([^+\-~:])(([+.~])([^+.~\-:]+))*(([-])([^+.~\-:])+)?$/,matches)  
  413.            version_array[i1]=matches[i2]
  414.            
  415.            for (i2 = 1; i<length(matches); i2=i2+3){
  416.              version_array[i1]=matches[i2]
  417.              split_chars[i1-1]=matches[i2-1]
  418.              i1=i1+1             
  419.            }
  420.          }
  421.          function v_gt(num1, num2){
  422.            version_split(num1,version_array1,split_chars1)
  423.            version_split(num2,version_array2,split_chars2)
  424.           for (i=1; i<length(version_array1); i++){
  425.             if (version_array1[i] > version_array2[i])
  426.               return 1
  427.             else if (version_array1[i] < version_array2[i] )
  428.              return 0
  429.              else if ( i == length(version_array1[i]) || i == length(version_array2[i]) )
  430.                break
  431.            }
  432.            if ( length(version_array1[i]) > length(version_array2[i]) )
  433.              return 1
  434.            else
  435.              return 0
  436.          }
  437.          function v_ge(num1, num2){
  438.            version_split(num1,version_array1,split_chars1)
  439.            version_split(num2,version_array2,split_chars2)
  440.           for (i=1; i<length(version_array1); i++){
  441.             if (version_array1[i] > version_array2[i])
  442.               return 1
  443.             else if ( version_array1[i] < version_array2[i] )
  444.              return 0
  445.              else if ( i == length(version_array1[i]) || i == length(version_array2[i]) )
  446.                break
  447.            }
  448.            if ( length(version_array1[i]) > length(version_array2[i]) )
  449.              return 1
  450.            else
  451.              return 0
  452.          }
  453.          function v_le(num1, num2){
  454.            return v_ge(num2, num1)
  455.          }
  456.          function v_lt(num1, num2){
  457.            return v_gt(num2, num1)
  458.          }
  459.          #An equal-ish functions.
  460.          function v_e(num1, num2){
  461.            version_split(num1,version_array1,split_chars1)
  462.            version_split(num2,version_array2,split_chars2)
  463.           for (i=1; i<length(version_array1); i++){
  464.             if (version_array1[i] != version_array2[i])
  465.               return 0
  466.              else if ( i == length(version_array1[i]) || i == length(version_array2[i]) )
  467.                break
  468.            }
  469.          return 1
  470.          }
  471.          function arry_cmp(version,ops_array,val_array){
  472.            result=1
  473.            for (i=1; i<=length(ops_array); i++){
  474.              #https://www.gnu.org/software/gawk/manual/gawk.html#Switch-Statement
  475.              switch(ops_array[i]){
  476.              case \"<\":
  477.              case \"lt\":
  478.                if (v_lt(version,val_array[i]) == 0 ){
  479.                  result=0
  480.                }
  481.                break
  482.              case \">\":
  483.              case \"gt\":
  484.                if (v_gt(version,val_array[i]) == 0 ){
  485.                  result=0
  486.                }
  487.                break
  488.              case \"<=\":
  489.              case \"le\":
  490.                if (v_le(version,val_array[i]) == 0 ){
  491.                  result=0
  492.                }
  493.                break           
  494.              case \">=\":
  495.              case \"ge\":
  496.                if (v_ge(version,val_array[i]) == 0 ){
  497.                  result=0
  498.                }
  499.                break           
  500.              case \"==\":
  501.              case \"e\":
  502.                if (v_e(version,val_array[i]) == 0 ){
  503.                  result=0
  504.                }
  505.                break           
  506.              }
  507.              if (result == 0 ) break
  508.            }
  509.            return result
  510.          }
  511.       "
  512.       CMP_Function="arry_cmp(\$3,awk_cmp_ary_op,awk_cmp_ary_val)"
  513.     AWK_Print2="\
  514.              if ( $CMP_Function ){
  515.                print
  516.               }"     
  517.     else
  518.       AWK_Functions=''
  519.       CMP_Function=''
  520.       AWK_Print2="\
  521.              print
  522.               "  
  523.     fi
  524.     AWK_Print2="\
  525.              if ( $CMP_Function ){
  526.                print
  527.               }"   
  528.     #https://www.gnu.org/software/gawk/manual/html_node/String-Functions.html
  529.     if [ $stripped_match -eq 1 ]; then
  530.         AWK_PRG=$AWK_Functions\
  531. "        BEGIN{FS=\"|\"
  532.          $awk_cmp_ary_op
  533.          $awk_cmp_ary_val
  534.          pkg_re=/^(.*[^[:digit:]])([[:digit:]]*$|$)/   
  535.        }
  536.        {
  537.          if( \$2 == \"$pkg_name\" $CMP_Function ) {
  538.            print
  539.          }
  540.          else{
  541.            match(\$2,pkg_re,pkg_split)
  542.            if ( pkg_split[1] == \"$stripped\" $CMP_Function ) {
  543.              $AWK_Print2
  544.            }
  545.          }
  546.        }"
  547.     else #Exactly match the package name
  548.         AWK_PRG=$AWK_Functions \
  549. "        BEGIN{FS=\"|\"
  550.          $awk_cmp_ary_op
  551.          $awk_cmp_ary_val  
  552.        }
  553.        {
  554.          if ( \$2 == \"$pkg_name\" $CMP_Function ) {
  555.           print
  556.          }
  557.      
  558.        }"            
  559.     fi
  560.     echo "$AWK_PRG"
  561.         #if [  
  562. }
  563. #list_all_aliases(){
  564.   # support pkg name aliases in finding packages
  565.         #case "$i" in
  566.         #1) subdep2="subdep"
  567.         #2)
  568.         #  subdep2="$(echo subdep | sed -e 's/++/+++/g' -e 's/+[a-z0-9].*//g')"
  569.         #  if [ "$subdep" = "$subdep2" ]; then
  570.         #  
  571.         #  fi
  572.   echo "$subdep2"
  573.   #local ALIAS_LIST; local ALIAS; local ALIAS_RES; local subdep
  574.   #local subdep_version; local subdep2; local subdep_stripped
  575.   #local verify; local no_alias
  576.   declare -a options="$(getopt -o v:l:p:m:: --long version:,list:,package:,meta::,verify::,no-alias,gt:,lt:,le:,ge: -- $@)"
  577.   declare -A verify_actions
  578.   declare -a awk_args
  579.   awk_args=()
  580.   eval set -- "$options"
  581.   while true; do
  582.     case $1 in
  583.     -v|--lib-version)
  584.       #subdep_version=${2:-'%{version}'}; shift 2 ;;  
  585.       lib_version=${2}; shift 2 ;;
  586.     -l|--list)
  587.       ALIAS_LIST_in="2"; shift 2; ;;
  588.     -p|--package)
  589.       subdep="$2"; shift 2; ;;
  590.     -m|--meta)
  591.       if [[ "$2" = -* ]] || [ -z "$2" ]]; then
  592.         meta='db-index'; shift 1
  593.       else
  594.         meta="$2"; shift 2
  595.       fi ;;
  596.     --verify)
  597.       while aResult in list_all_aliases_set_verify "$1" "$2"; do
  598.         #verify_actions=("aResult")
  599.         verify_actions[$aResult]=1
  600.       done
  601.       shift 2      
  602.       ;;
  603.     --no-alias)  
  604.       if [[ $2 = -* ]] || [ -z "$2" ]; then
  605.         no_alias=1; shift 1;      
  606.       else
  607.         no_alias=$2; shift 2;    
  608.       fi
  609.       {
  610.       case "$no_alias" in
  611.         true|yes|1) no_alias=1; ;;
  612.         false|no|0) no_alias=0; ;;
  613.         default|2) no_alias=2; ;;
  614.       esac
  615.       } ;;
  616.     --gt|--lt|--le|--ge)
  617.       awk_args+=($1)
  618.       awk_args+=($2)
  619.       shift 2 ;;
  620.     --)
  621.       shift
  622.       break; ;;
  623.     -*|--*) #This should never happen
  624.        echo "list_all_aliases(): unkown option '$1' '$2' "
  625.        shift 2; ;;      
  626.     *) #This should never happen
  627.        echo "list_all_aliases(): unkown paramater '$1' " 1>&2
  628.        shift 1; ;;
  629.     esac
  630.   done
  631.  
  632.   if [ -z "$subdep" ]; then
  633.     subdep="$1"; shift
  634.   fi
  635.   #if [ -z "$subdep_version" ]; then
  636.   #  subdep_version=${1:-'%{version}'}; shift
  637.   #fi
  638.   if [ -z "$ALIAS_LIST" ]; then
  639.     ALIAS_LIST_in="$1"; shift
  640.   fi
  641.   [ -z "$verify" ] && verify=0
  642.   if [ -z "$no_alias" ] || [ $no_alias -eq 2 ]; then
  643.     if [ ! -z "$NO_ALIASES" ]; then
  644.       case "$NO_ALIASES"  in
  645.       true) no_alias=1 ;;
  646.       false) no_alias=0 ;;
  647.       esac
  648.     else
  649.       no_alias=0;
  650.     fi
  651.   fi
  652.   if [ -z "$ALIAS_LIST_in" ]; then
  653.     if [ -f ${TMPDIR}/pkg_aliases ]; then
  654.       ALIAS_LIST="${TMPDIR}/pkg_aliases"
  655.     else
  656.       ALIAS_LIST="$PKG_NAME_ALIASES"
  657.     fi
  658.   fi
  659.   #We probably don't need to do this unless we are given a file name.
  660.   subdep_stripped="$(echo "$subdep" | sed -e 's/++/+++/g' -e 's/+[a-z0-9].*//g')"
  661.   #but we need to strip the trailing number:
  662.   #However, comment out the if condition for now because I don't know if it gives any performance gains
  663.   #if [[ "$pkg_name" =~ ^[^0-9]*[0-9]*$ ]]; then
  664.     subdep_stripped="$(echo $pkg_name | sed -e 's/[0-9]*$//g')"
  665.     if [ -z "$subdep_version" ]; then
  666.       lib_version="$(echo $pkg_name | sed -r 's/[.*[!0-9]([0-9]*$)/\1/')"
  667.     fi
  668.   #fi
  669.        
  670.   if [ -e "$ALIAS_LIST" ]; then #ALIAS_LIST is a file
  671.        ALIAS_LIST1=( $(grep -E "$subdep_stripped"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' ') )
  672.   else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  673.     ALIAS_LIST1=( $(echo "$ALIAS_LIST" | tr ' ' '\n' | grep -E "$subdep_stripped"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  674.   fi
  675.   #subdep_old=subdep_version #We don't use this yet.
  676.   #subdep_version="${subdep_version%%.*}"  
  677.   if [ ! -z "$lib_version" ] && [ -z "$ALIAS_LIST2" ]; then
  678.     if [ "$subdep_versioned" != "$subdep" ]; then
  679.       subdep_versioned="$subdep"
  680.       subdep_versioned2="$subdep_stripped$subdep_versioned"
  681.     else
  682.       subdep_versioned="$subdep_stripped$subdep_versioned"
  683.     fi
  684.     if [ -e "$ALIAS_LIST_in" ]; then #ALIAS_LIST is a file
  685.       ALIAS_LIST2=( $(grep -E "$subdep_versioned"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' ') )
  686.     else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  687.       ALIAS_LIST2=( $(echo "$ALIAS_LIST_in" | tr ' ' '\n' | grep -E "$subdep_versioned"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  688.     fi    
  689.     #for ALIAS in "${ALIAS_LIST2}"; do
  690.     #  
  691.     #done
  692.   fi  
  693.   if [ ! -z "$subdep_version2" ] && [ -z "$ALIAS_LIST3" ]; then
  694.     if [ -e "$ALIAS_LIST_in" ]; then #ALIAS_LIST is a file
  695.       ALIAS_LIST3=( $(grep -E "$subdep_versioned2"'([,]|$)' "$ALIAS_LIST"  2>/dev/null | tr ',' ' ') )
  696.     else #[[ "$ALIAS_LIST" = *,* ]]; then #ALIAS_LIST is string
  697.       ALIAS_LIST3=( $(echo "$ALIAS_LIST_in" | tr ' ' '\n' | grep -E "$subdep_versioned2"'([,]|$)'  2>/dev/null | tr ',' '\n') )
  698.     fi    
  699.   fi    
  700.   ###################TODO combine alias lists######################
  701.   if [ "$subdep_stripped" = "$sudep" ]; then
  702.     subdep2="$subdep$subdep_version"
  703.   else
  704.     subbdep2="$subdep_stripped"
  705.   fi
  706.   declare -A result
  707.   declare -A aliases
  708.   echo "no_alias=$no_alias"
  709.   if [ $no_alias -eq 1 ]; then
  710.     result[0]="$subdep"
  711.     result[1]="$subdep2"
  712.   elif [ $no_alias -eq 0 ]; then
  713.    
  714.     # if we have some results to parse
  715.  
  716.     # get the list of aliases
  717.     #ALIAS_LIST="`grep -m1 "$1" $TMPDIR/pkg_aliases  2>/dev/null | tr ',' ' '`";
  718.     # for each alias
  719.  
  720.     #if [ ${verify_actions[version]} -eq 1 ]; then
  721.       alias_index=0
  722.       for ALIAS in "${ALIAS_LIST1[@]}" "${ALIAS_LIST2[@]}" "${ALIAS_LIST3[@]}"; do
  723.       #while read ALIAS; do
  724.         key=md5_$(md5sum < <( echo "$ALIAS" ) | cut -f1 -d' ')    
  725.         if [ -z "${aliases[$key]}" ]; then  
  726.           alias_index=$((alias_index+1))      
  727.           remaining_aliases[$key]="$ALIAS"
  728.           alias_keys[$alias_index]=$key
  729.           aliases[$key]="$ALIAS"
  730.         fi
  731.       done
  732.       #done < <( echo $ALIAS_LIST )
  733.       #N_ALIAS=#alias_index
  734.     if [ -z $subdep_version ]; then
  735.       more_aliases=true
  736.     else
  737.       more_aliases=last
  738.     fi
  739.     new_version=0
  740.     db_index=0      
  741.     #The Alias list should be sorted by our repo order. In other words the repo order defines the priority.
  742.     while [ $db_index -lt ${#REPO_DB_PATHS[@]} ]; do
  743.     #for aRepoDB in "$REPO_DB_FILE_DIR/${REPOFILE}"; do
  744.       aRepoDB=${REPO_DB_PATHS[$db_index]}
  745.       #while [ ! "$more_aliases" = done ]; do #TODO do we need this loop (see next for loop)#################
  746.       #alias_index=0 #We could use this instead of loop through the keys
  747.       for key in "${!remaining_aliases[@]}"; do
  748.         ALIAS="${remaining_aliases[$key]}"
  749.         alias_index=alias_indexs[$key]
  750.         [ "$ALIAS" = '' ] && continue
  751.         if [ ! -z "${verify_actions[lib_version]}" ] && [ ${verify_actions[lib_version]} -eq 1 ]; then
  752.           AWK_PRG="$(mk_AWK_prg $subdep ${awk_args[@]})"
  753.         else
  754.           AWK_PRG="$(mk_AWK_prg $subdep ${awk_args[@]})"
  755.         fi          
  756.         awk_result="$(cat $aRepoDB | awk "$AWK_PRG")"
  757.        
  758.         if [ ! -z "$awk_result" ]; then
  759.           if [ -z "$subdep_version" ]; then #TODO think about if we should do this when we aren't verifing the version
  760.             subdep_version="${awk_result[3]}"
  761.             subdep_version="${subdep_version%%.*}" #The major version number might be relevant
  762.           fi        
  763.           if [ -z "$lib_version" ]; then #TODO think about if we should do this when we aren't verifing the version
  764.             lib_version="$(echo ${awk_result[2]} | sed -r 's/(.*[!0-9])([0-9]*$)/\2/')"
  765.             new_version=0
  766.             for ALIAS2 in "${ALIAS_LIST[@]}"; do #TODO make sure the variable ALIAS2 doesn't conflict with anything
  767.               ALIAS3="$ALIAS2$lib_version"
  768.               key2=md5_$(md5sum < <( echo "$ALIAS3" ) | cut -f1 -d' ')
  769.               if [ -z "${aliases[$key2]}" ]; then
  770.                 new_version=1  
  771.                 #key=`md5sum < <( echo "$ALIAS" ) | cut -f1 -d' '`
  772.                 remaining_aliases[$key]="$ALIAS3"
  773.                 alias_keys[$alias_index2]=$key
  774.                 aliases[$key]="$ALIAS3"
  775.                 alias_index2=$((alias_index++))
  776.                 alias_indexs[$key2]=$alias_index2
  777.               fi
  778.             done
  779.             if [ $new_version -eq 1 ]; then
  780.               db_index=-1 #Start over at the first DB.
  781.               break 2
  782.             fi              
  783.           fi
  784.           result[$key]="$ALIAS"
  785.           #[ ! -z "alias_indexes[$key]" ] || alias_indexes[$key]=$alias_index
  786.           [ ! -z "db_indexes[$key]" ] || db_indexes[$key]=$db_index                                  
  787.           if [ ! -z "$subdep_version" ] && [ ${verify_actions[$subdep_version]} -eq 1 ]; then
  788.             checks_done[$key]=entry,version
  789.           else
  790.             checks_done[$key]=entry
  791.           fi
  792.           if [ $i -gt 0 ]; then
  793.             unset "remaining_aliases[$key]"
  794.             var=$((var +1))
  795.           fi
  796.         fi
  797.       done
  798.       db_index=$((db_index + 1))
  799.     done  
  800.   fi
  801.  
  802.  
  803.   for aKey in ${!result[@]}; do
  804.     echo "akey=$aKey"
  805.     alias="${result[$aKey]}"
  806.     if [ "$ALIAS" != subdep ] || [ $all -eq 1 ]; then  
  807.       echo "${result[$aKey]}"
  808.     fi
  809.   done #| sort  
  810.    
  811. #}
  812. #list_all_aliases "$@"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!