Subversion Repositories gelsvn

Rev

Rev 218 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 218 Rev 259
1 
package XMLProjectBase;
 1 
package XMLProjectBase;
2 
 
 2 
 
3 
# ************************************************************
 3 
# ************************************************************
4 
# Description   : An XML base module for Project Creators
 4 
# Description   : An XML base module for Project Creators
5 
# Author        : Chad Elliott
 5 
# Author        : Chad Elliott
6 
# Create Date   : 1/30/2006
 6 
# Create Date   : 1/30/2006
7 
# ************************************************************
 7 
# ************************************************************
8 
 
 8 
 
9 
# ************************************************************
 9 
# ************************************************************
10 
# Pragmas
 10 
# Pragmas
11 
# ************************************************************
 11 
# ************************************************************
12 
 
 12 
 
13 
use strict;
 13 
use strict;
14 
 
 14 
 
15 
# ************************************************************
 15 
# ************************************************************
16 
# Subroutine Section
 16 
# Subroutine Section
17 
# ************************************************************
 17 
# ************************************************************
18 
 
 18 
 
19 
sub get_quote_symbol {
 19 
sub get_quote_symbol {
20 
  #my($self) = shift;
 20 
  #my($self) = shift;
21 
  return '"';
 21 
  return '"';
22 
}
 22 
}
23 
 
 23 
 
24 
 
 24 
 
25 
sub get_gt_symbol {
 25 
sub get_gt_symbol {
26 
  #my($self) = shift;
 26 
  #my($self) = shift;
27 
  return '>';
 27 
  return '>';
28 
}
 28 
}
29 
 
 29 
 
30 
 
 30 
 
31 
sub get_lt_symbol {
 31 
sub get_lt_symbol {
32 
  #my($self) = shift;
 32 
  #my($self) = shift;
33 
  return '<';
 33 
  return '<';
34 
}
 34 
}
35 
 
 35 
 
36 
 
 36 
 
37 
sub get_and_symbol {
 37 
sub get_and_symbol {
38 
  #my($self) = shift;
 38 
  #my($self) = shift;
39 
  return '&&';
 39 
  return '&&';
40 
}
 40 
}
41 
 
 41 
 
42 
 
 42 
 
43 
1;
 43 
1;
44 
 
 44