Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 2274568d authored by Krzysztof Kosiński's avatar Krzysztof Kosiński
Browse files

Remove old GL wrapper generation scripts. 

These have been superseded by the glgen scripts in opengl/tools.

Bug: 77458630
Test: Still builds.
Change-Id: I8e7ef7502604b0ec90fe5525ff3f3792d9a8f359
parent 7d7468f5

opengl/libs/tools/genfiles

deleted100755 → 0
+0 −50
Original line number Diff line number Diff line 
#! /bin/sh

#

# Copyright (C) 2008 Google Inc.

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

#      http://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.



# Force a specific locale for sorting to avoid irrelevant differences

# in the generated files that could hide real differences.

export LC_ALL=POSIX



./glapigen ../../include/GLES/gl.h      > ../GLES_CM/gl_api.in

./glapigen ../../include/GLES/glext.h   > ../GLES_CM/glext_api.in

./glapigen ../../include/GLES3/gl3.h    > ../GLES2/gl2_api.in

./glapigen ../../include/GLES2/gl2ext.h > ../GLES2/gl2ext_api.in



./glentrygen ../../include/GLES/gl.h      > /tmp/gl_entries.in

./glentrygen ../../include/GLES/glext.h   > /tmp/glext_entries.in

./glentrygen ../../include/GLES3/gl3.h    > /tmp/gl2_entries.in

./glentrygen ../../include/GLES2/gl2ext.h > /tmp/gl2ext_entries.in



# The awk command removes lines with the same function name as an earlier

# line, even if the rest of the line differs. Although signatures of

# functions with the same name should be the same, the different versions

# have some irrelevant whitespace and parameter name differences.

cat /tmp/gl_entries.in \

    /tmp/glext_entries.in \

    /tmp/gl2_entries.in \

    /tmp/gl2ext_entries.in \

        | sort -t, -k2 \

        | awk -F, '!_[$2]++' \

            > ../entries.in



cat ../../include/GLES/gl.h \

    ../../include/GLES/glext.h \

    ../../include/GLES2/gl2ext.h \

    ../../include/GLES3/gl3.h \

        | ./glenumsgen \

        | sort \

        > ../enums.in

opengl/libs/tools/glapigen

deleted100755 → 0
+0 −76
Original line number Diff line number Diff line 
#! /usr/bin/perl

#

# Copyright (C) 2008 Google Inc.

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

#      http://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.



use strict;



sub rtrim($)

{

    my $string = shift;

    $string =~ s/\s+$//;

    return $string;

}



while (my $line = <>) {

  next if $line =~ /^\//;

  next if $line =~ /^#/;

  next if $line =~ /^\s*$/;

  if ($line !~ /^GL_API(CALL)?\s+(.+)\s+GL_APIENTRY\s+([\w]+)\s*\(([^\)]+)\);/) {

    next;

  }

  my $type = rtrim($2);

  my $name = $3;

  my $args = $4;



  #printf("%s", $line);

  

  my $prefix = "";

  if ($name eq "glGetString") {

    $prefix = "__";

  }

  

  printf("%s API_ENTRY(%s%s)(%s)", $type, $prefix, $name, $args);

  

  printf(" {\n");

  if ($type eq "void") {

    printf("    CALL_GL_API(%s", $name);

  } else {

    printf("    CALL_GL_API_RETURN(%s", $name);

  }

  my @args = split ',', $args;

  my $len = scalar(@args);

  for (my $num = 0; $num < $len; $num++) {

    if ($args[$num] ne "void") {

      print ", ";

      #

      # extract the name from the parameter

      # type name

      # const type *name

      # type *name

      # type name[4]

      #

      if ($args[$num] =~ /(\S+\s)+\**\s*([\w]+)/) {

        printf("%s", $2);

      }

    }

  }

  printf(");\n");

  printf("}\n");

}

opengl/libs/tools/glentrygen

deleted100755 → 0
+0 −38
Original line number Diff line number Diff line 
#! /usr/bin/perl

#

# Copyright (C) 2008 Google Inc.

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

#      http://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.



use strict;



sub rtrim($)

{

    my $string = shift;

    $string =~ s/\s+$//;

    return $string;

}



while (my $line = <>) {

  next if $line =~ /^\//;

  next if $line =~ /^#/;

  next if $line =~ /^\s*$/;

  if ($line !~ /^GL_API(CALL)?\s+(.+)\s+GL_APIENTRY\s+([\w]+)\s*\(([^\)]+)\);/) {

    next;

  }

  my $type = rtrim($2);

  my $name = $3;

  my $args = $4;



  printf("GL_ENTRY(%s, %s, %s)\n", $type, $name, $args);

}

opengl/libs/tools/glenumsgen

deleted100755 → 0
+0 −38
Original line number Diff line number Diff line 
#! /usr/bin/perl

#

# Copyright (C) 2010 Google Inc.

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

#      http://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.



use strict;



my %enumHash = ();



while (my $line = <STDIN>) {

  next if $line =~ /^\//;

  # Skip bitfield definitions.

  next if $line =~ /_BIT(\d+_|\s+)/;

  if ($line !~ /^#define\s+(\S+)\s+(0x\S+)/) {

    next;

  }

  my $enumName = $1;

  my $enumValue = $2;

  next if exists($enumHash { $enumValue });

  $enumHash { $enumValue } = $enumName;

  printf("GL_ENUM(%s,%s)\n", $enumValue, $enumName);

}