Subversion Repositories DevTools

Rev

Rev 289 | Rev 315 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 289 Rev 311
Line 48... Line 48...
48 
    #
 48 
    #
49 
    my ($self) = {
 49 
    my ($self) = {
50 
            FH          => *CONFIG,                 # File Handle
 50 
            FH          => *CONFIG,                 # File Handle
51 
            NAME        => $name,                   # Name of the file
 51 
            NAME        => $name,                   # Name of the file
52 
            EOF         => 1,                       # Print EOF on closure
 52 
            EOF         => 1,                       # Print EOF on closure
53 
            TYPE        => 'perl',                  # vi style file type
 53 
            FTYPE        => 'perl',                 # vi style file type
54 
            CMT         => '#',                     # Line comments begin with
 54 
            CMT         => '#',                     # Line comments begin with
55 
            TIME        => '',                      # Inserted timestamp
 55 
            TIME        => '',                      # Inserted timestamp
56 
            DO_TIME     => 1,                       # Insert timestamp in header
 56 
            DO_TIME     => 1,                       # Insert timestamp in header
57 
       };
 57 
       };
58 
 
 58 
 
Line 63... Line 63...
63 
    {
 63 
    {
64 
        if ( /--NoEof/ ) {
 64 
        if ( /--NoEof/ ) {
65 
            $self->{'EOF'} = 0;
 65 
            $self->{'EOF'} = 0;
66 
 
 66 
 
67 
        } elsif ( /--Type=(.*)/ ) {
 67 
        } elsif ( /--Type=(.*)/ ) {
68 
            $self->{'TYPE'} = $1;
 68 
            $self->{'FTYPE'} = $1;
69 
            $self->{'CMT'} = 'REM' if ( $1 eq 'bat' );
 69 
            $self->{'CMT'} = 'REM' if ( $1 eq 'bat' );
70 
            $self->{'CMT'} = '//'  if ( $1 eq 'CSharp' );
 70 
            $self->{'CMT'} = '//'  if ( $1 eq 'CSharp' );
71 
            $self->{'CMT'} = '//'  if ( $1 eq 'C++' );
 71 
            $self->{'CMT'} = '//'  if ( $1 eq 'C++' );
72 
            $self->{'CMT'} = '//'  if ( $1 eq 'Delphi' );
 72 
            $self->{'CMT'} = '//'  if ( $1 eq 'Delphi' );
73 
 
 73 
 
Line 88... Line 88...
88 
    #   Create the file
 88 
    #   Create the file
89 
    #   Save the file handle
 89 
    #   Save the file handle
90 
    #
 90 
    #
91 
    open( $self->{'FH'}, ">", $name ) || ::Error( "Cannot create '$name'");
 91 
    open( $self->{'FH'}, ">", $name ) || ::Error( "Cannot create '$name'");
92 
    binmode ( $self->{'FH'} )
 92 
    binmode ( $self->{'FH'} )
93 
        if ( $self->{'TYPE'} eq 'sh' );
 93 
        if ( $self->{'FTYPE'} eq 'sh' );
94 
 
 94 
 
95 
    #
 95 
    #
96 
    #   Bless my self and return a handle
 96 
    #   Bless my self and return a handle
97 
    #
 97 
    #
98 
    return bless $self, __PACKAGE__;
 98 
    return bless $self, __PACKAGE__;
Line 212... Line 212...
212 
    }
 212 
    }
213 
 
 213 
 
214 
    my $var;
 214 
    my $var;
215 
    ($var = <<HERE_TARGET) =~ s/^\s+//gm;
 215 
    ($var = <<HERE_TARGET) =~ s/^\s+//gm;
216 
 
 216 
 
217 
    $self->{'CMT'} -*- mode: $self->{'TYPE'}; tabs: 8; -*-
 217 
    $self->{'CMT'} -*- mode: $self->{'FTYPE'}; tabs: 8; -*-
218 
    $self->{'CMT'} -- $desc
 218 
    $self->{'CMT'} -- $desc
219 
    $self->{'CMT'}
 219 
    $self->{'CMT'}
220 
    $self->{'CMT'}                   -- Please do not edit this file. --
 220 
    $self->{'CMT'}                   -- Please do not edit this file. --
221 
    $self->{'CMT'}
 221 
    $self->{'CMT'}
222 
    $self->{'CMT'} WARNING:
 222 
    $self->{'CMT'} WARNING:
Line 265... Line 265...
265 
    }
 265 
    }
266 
 
 266 
 
267 
    my $var;
 267 
    my $var;
268 
    ($var = <<HERE_TARGET) =~ s/^\s+//gm;
 268 
    ($var = <<HERE_TARGET) =~ s/^\s+//gm;
269 
 
 269 
 
270 
    $self->{'CMT'} -*- mode: $self->{'TYPE'}; tabs: 8; -*-
 270 
    $self->{'CMT'} -*- mode: $self->{'FTYPE'}; tabs: 8; -*-
271 
    $self->{'CMT'} -- $desc
 271 
    $self->{'CMT'} -- $desc
272 
    $self->{'CMT'}
 272 
    $self->{'CMT'}
273 
    $self->{'CMT'} -- Do not edit this file. --
 273 
    $self->{'CMT'} -- Do not edit this file. --
274 
    $self->{'CMT'}
 274 
    $self->{'CMT'}
275 
    $self->{'CMT'} Created by $by
 275 
    $self->{'CMT'} Created by $by
Line 298... Line 298...
298 
    my ($self, $noeof ) = @_;
 298 
    my ($self, $noeof ) = @_;
299 
    $self->{'EOF'} = 0 if ( $noeof );
 299 
    $self->{'EOF'} = 0 if ( $noeof );
300 
 
 300 
 
301 
    if ( $self->{'EOF'} )
 301 
    if ( $self->{'EOF'} )
302 
    {
 302 
    {
303 
        if ( $self->{'TYPE'} eq 'perl' )
 303 
        if ( $self->{'FTYPE'} eq 'perl' )
304 
        {
 304 
        {
305 
            my $var;
 305 
            my $var;
306 
            ($var = <<HERE_TARGET) =~ s/^\s+//gm;
 306 
            ($var = <<HERE_TARGET) =~ s/^\s+//gm;
307 
 
 307 
 
308 
            #-EOF-
 308 
            #-EOF-