@SET LDATETIME=%DATE%_%TIME%
@SET LDATETIME=%LDATETIME::=-%
@SET LDATETIME=%LDATETIME:,=-%
@SET LDATETIME=%LDATETIME:.=-%
@echo LDATETIME=%LDATETIME%
LDATETIME=21-10-2009_12-37-35-83
Hello guys,
there is a new chance to talk with Microsoft guys about Windows Embedded CE and Windows Mobile.
Title: Windows Embedded CE and Windows Mobile Live Chat
Date: Oct 27th, 2009 17:00 - 18:00 Central Europe Time
Don’t miss this opportunity to talk with interesting guys! All you have to do is to follow this link and join the live chat! :)
You can find the transcript from last months chat here and older transcripts here.Have fun!
@goto ;#DOS
##
# Visualize nesting level of IF/ELSE/ENDIF pairs
# Dr. Jürgen Welzenbach, 2009
#
# - Constants -------------------------
my $tag_Begin = "IF";
my $tag_Mid = "ELSE";
my $tag_End = "ENDIF";
## - Preamble -------------------------------------------------------
use strict;
use Cwd;
use File::Basename;
my $nestingWidth = 5;
## - Main -----------------------------------------------------------
&filter_files( @ARGV );
## - Functions ------------------------------------------------------
sub filter_file
{
my $fname = shift;
my($filename, $directories, $suffix) = fileparse($fname, qr/\.[^.]*/);
my $nestCount = 0;
my $lineNo = 1;
print "Checking $fname\n";
my $fname_ok = open( FILE, "<", $fname ); if ( $fname_ok ) { my $line; print("Line Level Text:\n"); while ( $line =)
{
my $printIt = 0;
$line = " " . $line;
## Ok, here's room for improovement; but I'm no perl specialist and for
## a quick hack it's ok - for the moment :-)
if ( $line =~ /\W$tag_Begin/ )
{
$line =~ s/^\s+//;
my $sp = sprintf("%4d [%2d]: %*s%s", $lineNo, $nestCount, ($nestCount*$nestingWidth), " ", $line);
print $sp;
$nestCount = $nestCount + 1;
}
elsif ( $line =~ /\W$tag_Mid/ )
{
$line =~ s/^\s+//;
my $sp = sprintf("%4d [%2d]: %*s%s", $lineNo, $nestCount, (($nestCount-1)*$nestingWidth), " ", $line);
print $sp;
}
elsif ( $line =~ /\W$tag_End/ )
{
$line =~ s/^\s+//;
$nestCount = $nestCount - 1;
my $sp = sprintf("%4d [%2d]: %*s%s", $lineNo, $nestCount, ($nestCount*$nestingWidth), " ", $line);
print $sp;
}
$lineNo = $lineNo + 1;
}
close( FILE );
warn $@ if $@;
}
else
{
if( !$fname_ok )
{
print "Error opening '$fname '\n";
}
else
{
close( FILE );
}
}
}
sub filter_files
{
my @args = @_;
while ( $#args >= 0 )
{
filter_file( $args[ 0 ] );
shift @args;
}
}
__END__
:;#DOS
@perl -S %0 %*
David Wurster, Senior Product Manager, will introduce and explain all the new features R3 incorporates and answer any questions you may have.
