Merge "Remove old GL wrapper generation scripts."

#! /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

#! /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");

}

#! /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);

}

#! /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);

}