Pasted

#!/usr/bin/gawk -f
         function version_split(version1,version_array,split_chars,       i1,remainder1,matches,num1_epoch_split){
           print "version1=" version1
           match(version1,/([[:digit:]])*:(.*|$)/,num1_epoch_split)
           if (length(num1_epoch_split) > 0 ){
             version_array[1]=num1_epoch_split[1]
             remainder1=num1_epoch_split[2]
           } else {
             version_array[1]=0 
             remainder1=version1
           }
           delete num1_epoch_split
           split_chars[1]=":"
           i1=2
           #match(remainder1,/^([^+\.\-~:]+)(([+\.~])([^+\.~\-:]+))*((\-)([^+\.~\-:])+)?$/,matches)   
           #match(remainder1,/^([^+\.\-~:]+)(([+\.\-~:])(.*))?$/,matches) 
           match(remainder1,/^([[:digit:]]+)(([+\.\-~:])(.*))?$/,matches)          
           while (length(matches) > 0) {
             version_array[i1]=matches[1]   
             print "version_array[" i1 "]=" version_array[i1]       
             if (length(matches)>1){       
               split_chars[i1]=matches[3]
               print "split_chars[" i1 "]=" split_chars[i1]
               remainder1=matches[4]
               print "remainder1=" remainder1
               #match(remainder1,/^([^+\.\-~:]+)(([+\.\-~:]+)(.*))?$/,matches) 
               match(remainder1,/^([[:digit:]]+)(([+\.\-~:]+)(.*))?$/,matches)
             }
             else{
               break
             }     
                   
             i1=i1+1                                      
           }
         }
         function v_le(ver_split, val_split,       len_ver){
           return v_ge(val_split,ver_split)
         }
         function v_ge(ver_split, val_split,       len_ver){
           print "v_ge"
           if (length(ver_split)<length(val_split)){
             len_ver=length(ver_split)
           }
           else{
            len_ver=length(val_split)
           } 
           for (i=1; i<=len_ver; i++){
             print "ver_split[" i "]=" ver_split[i]
             print "val_split[" i "]=" val_split[i]
             if ( ver_split[i] < val_split[i] ) return 0
             if ( ver_split[i] > val_split[i] ) return 1
           }
           print "finished ge compare"
           print "length_ver_split=" length(ver_split) 
           print "length_val_split=" length(val_split) 
           if ( length(ver_split) >= length(val_split) )
             return 1
           else
             return 0 
         }
         function v_gt(num1, num2,    le){
           ge = v_ge(num2,num1)
           if ( ge == 1 ){
             return 0
           }
           else {
             return 1
           }
         }
         function v_lt(num1, num2){
           return v_gt(num2, num1)
         }
         #An equal-ish functions.
         function v_e(ver_split, val_split,       len_ver){
           if (length(ver_split)<length(val_split)) len_ver=length(ver_split)
           else len_ver=length(val_split)
           for (i=1; i<len_ver; i++){
             if (version_array1[i] != version_array2[i])
               return 0
           }
          return 1
         }
         function arry_cmp(version,ops_array,val_array){
           print "test"
           version_split(version,ver_split,ver_split_chars)      
           for (i=1; i<=length(ops_array); i++){
             print "Ops_array " ops_array[i] " " val_array[i]
             version_split(val_array[i],val_split,val_split_chars)   
             #https://www.gnu.org/software/gawk/manual/gawk.html#Switch-Statement
             switch(ops_array[i]){
             case "<":
             case "lt":
               if (v_lt(ver_split,val_split) == 0 ){
                 return 0
               }
               break
             case ">":
             case "gt":
               if (v_gt(ver_split,val_split) == 0 ){
                 return 0
               }
               break
             case "<=":
             case "le":
               if (v_le(ver_split,val_split) == 0 ){
                 return 0
               }
               break           
             case ">=":
             case "ge":
               if (v_ge(ver_split,val_split) == 0 ){
                 return 0
               }
               break           
             case "==":
             case "e":
               if (v_e(ver_split,val_split) == 0 ){
                 return 0
               }
               break           
             }
             #https://unix.stackexchange.com/questions/147957/delete-an-array-in-awk
             delete val_split
             delete val_split_chars
           }
           print "returning result=1"
           return 1
         }
              BEGIN{FS="|"
         
awk_cmp_ary_op[1]="lt"
         
awk_cmp_ary_val[1]="9.10" #"2.1.12"
        }
        {
          #print "wtf"
          if( $2 == "base-files") {
                          if ( arry_cmp($3,awk_cmp_ary_op,awk_cmp_ary_val) == 1 ){
                 print "printing result 1"                            
                print
              }
          }
          else{ 
            match($2,/^(.*[^[:digit:]])([[:digit:]]*$|$)/,pkg_split)
            if ( pkg_split[1] == "base-files" ) {
                            if ( arry_cmp($3,awk_cmp_ary_op,awk_cmp_ary_val) == 1 ){
                print "printing result 2"            
                print
              }
            }
          }
          delete pkg_split
        }