Hello community, here is the log from the commit of package ghc-language-glsl for openSUSE:Factory checked in at 2017-08-31 20:56:59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-language-glsl (Old) and /work/SRC/openSUSE:Factory/.ghc-language-glsl.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-language-glsl" Thu Aug 31 20:56:59 2017 rev:2 rq:513416 version:0.2.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-language-glsl/ghc-language-glsl.changes 2017-03-16 09:35:33.153579392 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-language-glsl.new/ghc-language-glsl.changes 2017-08-31 20:57:03.330425760 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:18 UTC 2017 - psimons@suse.com + +- Update to version 0.2.1. + +------------------------------------------------------------------- Old: ---- language-glsl-0.2.0.tar.gz New: ---- language-glsl-0.2.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-language-glsl.spec ++++++ --- /var/tmp/diff_new_pack.zMUMqf/_old 2017-08-31 20:57:04.058323488 +0200 +++ /var/tmp/diff_new_pack.zMUMqf/_new 2017-08-31 20:57:04.062322926 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-language-glsl # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name language-glsl %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.2.0 +Version: 0.2.1 Release: 0 Summary: GLSL abstract syntax tree, parser, and pretty-printer License: BSD-3-Clause @@ -61,7 +61,7 @@ %install %ghc_lib_install -%ghc_fix_dynamic_rpath glsl-pprint +%ghc_fix_rpath %{pkg_name}-%{version} %check %cabal_test ++++++ language-glsl-0.2.0.tar.gz -> language-glsl-0.2.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/language-glsl-0.2.0/Language/GLSL/Pretty.hs new/language-glsl-0.2.1/Language/GLSL/Pretty.hs --- old/language-glsl-0.2.0/Language/GLSL/Pretty.hs 2015-05-19 20:05:24.000000000 +0200 +++ new/language-glsl-0.2.1/Language/GLSL/Pretty.hs 2017-07-16 16:29:51.000000000 +0200 @@ -10,10 +10,20 @@ -- helpers (TODO clean) ---------------------------------------------------------------------- +type Assoc = (Rational -> Rational, Rational -> Rational) + +assocLeft, assocRight, assocNone :: Assoc +assocLeft = (id,bump) +assocRight = (bump,id) +assocNone = (bump,bump) + +bump :: Rational -> Rational +bump = (+ 0.5) + prettyBinary :: Pretty a => - PrettyLevel -> Rational -> Rational -> String -> a -> a -> Doc -prettyBinary l p op o e1 e2 = prettyParen (p > op) $ - pPrintPrec l op e1 <+> text o <+> pPrintPrec l op e2 + PrettyLevel -> Rational -> Rational -> Assoc -> String -> a -> a -> Doc +prettyBinary l p op (lf,rf) o e1 e2 = prettyParen (p > op) $ + pPrintPrec l (lf op) e1 <+> text o <+> pPrintPrec l (rf op) e2 option :: Pretty a => Maybe a -> Doc option Nothing = empty @@ -237,40 +247,40 @@ UnaryOneComplement e1 -> prettyParen (p > 15) $ text "~" <> pPrintPrec l 15 e1 -- binary expression - Mul e1 e2 -> prettyBinary l p 14 "*" e1 e2 - Div e1 e2 -> prettyBinary l p 14 "/" e1 e2 - Mod e1 e2 -> prettyBinary l p 14 "%" e1 e2 - Add e1 e2 -> prettyBinary l p 13 "+" e1 e2 - Sub e1 e2 -> prettyBinary l p 13 "-" e1 e2 - LeftShift e1 e2 -> prettyBinary l p 12 "<<" e1 e2 - RightShift e1 e2 -> prettyBinary l p 12 ">>" e1 e2 - Lt e1 e2 -> prettyBinary l p 11 "<" e1 e2 - Gt e1 e2 -> prettyBinary l p 11 ">" e1 e2 - Lte e1 e2 -> prettyBinary l p 11 "<=" e1 e2 - Gte e1 e2 -> prettyBinary l p 11 ">=" e1 e2 - Equ e1 e2 -> prettyBinary l p 10 "==" e1 e2 - Neq e1 e2 -> prettyBinary l p 10 "!=" e1 e2 - BitAnd e1 e2 -> prettyBinary l p 9 "&" e1 e2 - BitXor e1 e2 -> prettyBinary l p 8 "^" e1 e2 - BitOr e1 e2 -> prettyBinary l p 7 "|" e1 e2 - And e1 e2 -> prettyBinary l p 6 "&&" e1 e2 + Mul e1 e2 -> prettyBinary l p 14 assocLeft "*" e1 e2 + Div e1 e2 -> prettyBinary l p 14 assocLeft "/" e1 e2 + Mod e1 e2 -> prettyBinary l p 14 assocLeft "%" e1 e2 + Add e1 e2 -> prettyBinary l p 13 assocLeft "+" e1 e2 + Sub e1 e2 -> prettyBinary l p 13 assocLeft "-" e1 e2 + LeftShift e1 e2 -> prettyBinary l p 12 assocLeft "<<" e1 e2 + RightShift e1 e2 -> prettyBinary l p 12 assocLeft ">>" e1 e2 + Lt e1 e2 -> prettyBinary l p 11 assocLeft "<" e1 e2 + Gt e1 e2 -> prettyBinary l p 11 assocLeft ">" e1 e2 + Lte e1 e2 -> prettyBinary l p 11 assocLeft "<=" e1 e2 + Gte e1 e2 -> prettyBinary l p 11 assocLeft ">=" e1 e2 + Equ e1 e2 -> prettyBinary l p 10 assocLeft "==" e1 e2 + Neq e1 e2 -> prettyBinary l p 10 assocLeft "!=" e1 e2 + BitAnd e1 e2 -> prettyBinary l p 9 assocLeft "&" e1 e2 + BitXor e1 e2 -> prettyBinary l p 8 assocLeft "^" e1 e2 + BitOr e1 e2 -> prettyBinary l p 7 assocLeft "|" e1 e2 + And e1 e2 -> prettyBinary l p 6 assocLeft "&&" e1 e2 -- TODO Xor 5 "^^" - Or e1 e2 -> prettyBinary l p 4 "||" e1 e2 + Or e1 e2 -> prettyBinary l p 4 assocLeft "||" e1 e2 Selection e1 e2 e3 -> prettyParen (p > 3) $ pPrintPrec l 3 e1 <+> char '?' <+> pPrintPrec l 3 e2 <+> char ':' <+> pPrintPrec l 3 e3 -- assignment, the left Expr should be unary expression - Equal e1 e2 -> prettyBinary l p 2 "=" e1 e2 - MulAssign e1 e2 -> prettyBinary l p 2 "*=" e1 e2 - DivAssign e1 e2 -> prettyBinary l p 2 "/=" e1 e2 - ModAssign e1 e2 -> prettyBinary l p 2 "%=" e1 e2 - AddAssign e1 e2 -> prettyBinary l p 2 "+=" e1 e2 - SubAssign e1 e2 -> prettyBinary l p 2 "-=" e1 e2 - LeftAssign e1 e2 -> prettyBinary l p 2 "<<=" e1 e2 - RightAssign e1 e2 -> prettyBinary l p 2 ">>=" e1 e2 - AndAssign e1 e2 -> prettyBinary l p 2 "&=" e1 e2 - XorAssign e1 e2 -> prettyBinary l p 2 "^=" e1 e2 - OrAssign e1 e2 -> prettyBinary l p 2 "|=" e1 e2 + Equal e1 e2 -> prettyBinary l p 2 assocRight "=" e1 e2 + MulAssign e1 e2 -> prettyBinary l p 2 assocRight "*=" e1 e2 + DivAssign e1 e2 -> prettyBinary l p 2 assocRight "/=" e1 e2 + ModAssign e1 e2 -> prettyBinary l p 2 assocRight "%=" e1 e2 + AddAssign e1 e2 -> prettyBinary l p 2 assocRight "+=" e1 e2 + SubAssign e1 e2 -> prettyBinary l p 2 assocRight "-=" e1 e2 + LeftAssign e1 e2 -> prettyBinary l p 2 assocRight "<<=" e1 e2 + RightAssign e1 e2 -> prettyBinary l p 2 assocRight ">>=" e1 e2 + AndAssign e1 e2 -> prettyBinary l p 2 assocRight "&=" e1 e2 + XorAssign e1 e2 -> prettyBinary l p 2 assocRight "^=" e1 e2 + OrAssign e1 e2 -> prettyBinary l p 2 assocRight "|=" e1 e2 -- sequence Sequence e1 e2 -> prettyParen (p > 1) $ pPrintPrec l 1 e1 <> char ',' <+> pPrintPrec l 1 e2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/language-glsl-0.2.0/glsl/sample-01.glsl new/language-glsl-0.2.1/glsl/sample-01.glsl --- old/language-glsl-0.2.0/glsl/sample-01.glsl 2015-05-19 20:05:24.000000000 +0200 +++ new/language-glsl-0.2.1/glsl/sample-01.glsl 2017-07-16 16:29:51.000000000 +0200 @@ -124,3 +124,7 @@ { float pattern[100]; float arr[]; }; + +float x = a / b / c; +float x = (a / b) / c; +float x = a / (b / c); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/language-glsl-0.2.0/language-glsl.cabal new/language-glsl-0.2.1/language-glsl.cabal --- old/language-glsl-0.2.0/language-glsl.cabal 2015-05-19 20:05:24.000000000 +0200 +++ new/language-glsl-0.2.1/language-glsl.cabal 2017-07-16 16:29:51.000000000 +0200 @@ -1,5 +1,5 @@ name: language-glsl -version: 0.2.0 +version: 0.2.1 Cabal-Version: >= 1.8 synopsis: GLSL abstract syntax tree, parser, and pretty-printer description: