API tools faq
paste
Advertisement
s243a

draft: pkg-list-aliases (5)

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