Re: [fpc-devel] Some thoughts on multi-line string support, and a possible syntax that I think is perfectly clean and Pascal-ish.

[Sven Barth via fpc-devel]

Am 05.07.2019 um 19:41 schrieb Ryan Joseph:

On Jul 5, 2019, at 1:36 PM, Ben Grasset <operato...@gmail.com> wrote:

{$push}
{$H+}
var Ansi: String;
{$pop}
This doesn’t work either.

{$push}
{$h+}
var lines: ansistring = `
   #version 150

   uniform sampler2D textures[8];
   in vec2 vertexTexCoord;
   in vec4 vertexColor;
   in float vertexUVMap;
   out vec4 fragColor;

   void main()
   {
     if (vertexUVMap == 255) {
       fragColor = vertexColor;
     } else {
       fragColor = texture(textures[int(vertexUVMap)], vertexTexCoord.st);
       if (vertexColor.a < fragColor.a) {
         fragColor.a = vertexColor.a;
       }
     }
   }`;
{$pop}
Works here if you use a good, old single line string. So it's probably 
some problem with the multiline string.

Regards,
Sven
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel