tools/winapi/c_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 c_function;
  20
  21 use strict;
  22 use warnings 'all';
  23
  24 sub new($)
  25 {
  26     my ($proto) = @_;
  27     my $class = ref($proto) || $proto;
  28     my $self  = {};
  29     bless ($self, $class);
  30
  31     return $self;
  32 }
  33
  34
  35 #
  36 # Property setter / getter functions (each does both)
  37 #
  38
  39 sub file($;$)
  40 {
  41     my ($self, $filename) = @_;
  42     $self->{file} = $filename if (defined $filename);
  43     return $self->{file};
  44 }
  45
  46 sub begin_line($$)
  47 {
  48     my ($self, $begin_line) = @_;
  49     $self->{begin_line} = $begin_line if (defined $begin_line);
  50     return $self->{begin_line};
  51 }
  52
  53 sub begin_column($;$)
  54 {
  55     my ($self, $begin_column) = @_;
  56     $self->{begin_column} = $begin_column if (defined $begin_column);
  57     return $self->{begin_column};
  58 }
  59
  60 sub end_line($;$)
  61 {
  62     my ($self, $end_line) = @_;
  63     $self->{end_line} = $end_line if (defined $end_line);
  64     return $self->{end_line};
  65 }
  66
  67 sub end_column($;$)
  68 {
  69     my ($self, $end_column) = @_;
  70     $self->{end_column} = $end_column if (defined $end_column);
  71     return $self->{end_column};
  72 }
  73
  74 sub linkage($;$)
  75 {
  76     my ($self, $linkage) = @_;
  77     $self->{linkage} = $linkage if (defined $linkage);
  78     return $self->{linkage};
  79 }
  80
  81 sub return_type($;$)
  82 {
  83      my ($self, $return_type) = @_;
  84     $self->{return_type} = $return_type if (defined $return_type);
  85     return $self->{return_type};
  86 }
  87
  88 sub calling_convention($;$)
  89 {
  90     my ($self, $calling_convention) = @_;
  91     $self->{calling_convention} = $calling_convention if (defined $calling_convention);
  92     return $self->{calling_convention};
  93 }
  94
  95 sub name($;$)
  96 {
  97     my ($self, $name) = @_;
  98     $self->{name} = $name if (defined $name);
  99     return $self->{name};
 100 }
 101
 102 sub argument_types($;$)
 103 {
 104     my ($self, $argument_types) = @_;
 105     $self->{argument_types} = $argument_types if (defined $argument_types);
 106     return $self->{argument_types};
 107 }
 108
 109 sub argument_names($;$)
 110 {
 111     my ($self, $argument_names) = @_;
 112     $self->{argument_names} = $argument_names if (defined $argument_names);
 113     return $self->{argument_names};
 114 }
 115
 116 sub statements_line($;$)
 117 {
 118     my ($self, $statements_line) = @_;
 119     $self->{statements_line} = $statements_line if (defined $statements_line);
 120     return $self->{statements_line};
 121 }
 122
 123 sub statements_column($;$)
 124 {
 125     my ($self, $statements_column) = @_;
 126     $self->{statements_column} = $statements_column if (defined $statements_column);
 127     return $self->{statements_column};
 128 }
 129
 130 sub statements($;$)
 131 {
 132     my ($self, $statements) = @_;
 133     $self->{statements} = $statements if (defined $statements);
 134     return $self->{statements};
 135 }
 136
 137 1;