tools/winapi/function.pm

   1 #
   2 # Copyright 1999, 2000, 2001 Patrik Stridvall
   3 #
   4 # This library is free software; you can redistribute it and/or
   5 # modify it under the terms of the GNU Lesser General Public
   6 # License as published by the Free Software Foundation; either
   7 # version 2.1 of the License, or (at your option) any later version.
   8 #
   9 # This library is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 # Lesser General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU Lesser General Public
  15 # License along with this library; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17 #
  18
  19 package function;
  20
  21 use strict;
  22 use warnings 'all';
  23
  24 sub new($) {
  25     my $proto = shift;
  26     my $class = ref($proto) || $proto;
  27     my $self  = {};
  28     bless ($self, $class);
  29
  30     return $self;
  31 }
  32
  33 sub file($$) {
  34     my $self = shift;
  35     my $file = \${$self->{FILE}};
  36
  37     local $_ = shift;
  38
  39     if(defined($_)) { $$file = $_; }
  40
  41     return $$file;
  42 }
  43
  44 sub debug_channels($$) {
  45     my $self = shift;
  46     my $debug_channels = \${$self->{DEBUG_CHANNELS}};
  47
  48     local $_ = shift;
  49
  50     if(defined($_)) { $$debug_channels = $_; }
  51
  52     return $$debug_channels;
  53 }
  54
  55 sub documentation_line($$) {
  56     my $self = shift;
  57     my $documentation_line = \${$self->{DOCUMENTATION_LINE}};
  58
  59     local $_ = shift;
  60
  61     if(defined($_)) { $$documentation_line = $_; }
  62
  63     return $$documentation_line;
  64 }
  65
  66 sub documentation($$) {
  67     my $self = shift;
  68     my $documentation = \${$self->{DOCUMENTATION}};
  69
  70     local $_ = shift;
  71
  72     if(defined($_)) { $$documentation = $_; }
  73
  74     return $$documentation;
  75 }
  76
  77 sub function_line($$) {
  78     my $self = shift;
  79     my $function_line = \${$self->{FUNCTION_LINE}};
  80
  81     local $_ = shift;
  82
  83     if(defined($_)) { $$function_line = $_; }
  84
  85     return $$function_line;
  86 }
  87
  88 sub linkage($$) {
  89     my $self = shift;
  90     my $linkage = \${$self->{LINKAGE}};
  91
  92     local $_ = shift;
  93
  94     if(defined($_)) { $$linkage = $_; }
  95
  96     return $$linkage;
  97 }
  98
  99 sub return_type($$) {
 100     my $self = shift;
 101     my $return_type = \${$self->{RETURN_TYPE}};
 102
 103     local $_ = shift;
 104
 105     if(defined($_)) { $$return_type = $_; }
 106
 107     return $$return_type;
 108 }
 109
 110 sub calling_convention($$) {
 111     my $self = shift;
 112     my $calling_convention = \${$self->{CALLING_CONVENTION}};
 113
 114     local $_ = shift;
 115
 116     if(defined($_)) { $$calling_convention = $_; }
 117
 118     return $$calling_convention;
 119 }
 120
 121 sub internal_name($$) {
 122     my $self = shift;
 123     my $internal_name = \${$self->{INTERNAL_NAME}};
 124
 125     local $_ = shift;
 126
 127     if(defined($_)) { $$internal_name = $_; }
 128
 129     return $$internal_name;
 130 }
 131
 132 sub argument_types($$) {
 133     my $self = shift;
 134     my $argument_types = \${$self->{ARGUMENT_TYPES}};
 135
 136     local $_ = shift;
 137
 138     if(defined($_)) { $$argument_types = $_; }
 139
 140     return $$argument_types;
 141 }
 142
 143 sub argument_names($$) {
 144     my $self = shift;
 145     my $argument_names = \${$self->{ARGUMENT_NAMES}};
 146
 147     local $_ = shift;
 148
 149     if(defined($_)) { $$argument_names = $_; }
 150
 151     return $$argument_names;
 152 }
 153
 154 sub argument_documentations($$) {
 155     my $self = shift;
 156     my $argument_documentations = \${$self->{ARGUMENT_DOCUMENTATIONS}};
 157
 158     local $_ = shift;
 159
 160     if(defined($_)) { $$argument_documentations = $_; }
 161
 162     return $$argument_documentations;
 163 }
 164
 165 sub statements_line($$) {
 166     my $self = shift;
 167     my $statements_line = \${$self->{STATEMENTS_LINE}};
 168
 169     local $_ = shift;
 170
 171     if(defined($_)) { $$statements_line = $_; }
 172
 173     return $$statements_line;
 174 }
 175
 176 sub statements($$) {
 177     my $self = shift;
 178     my $statements = \${$self->{STATEMENTS}};
 179
 180     local $_ = shift;
 181
 182     if(defined($_)) { $$statements = $_; }
 183
 184     return $$statements;
 185 }
 186
 187 1;