bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-11-04 00:05:35 -05:00
Code Issues Projects Releases Wiki Activity

Working the way I want it to. This is if/elsif logic. Ignores

Browse Source 
conditionals if deliminators are not used.


\
if ( condition )
  statement
  ..
elsif ( condition )
  statement
  ..
\

The \ can be at the start of the first conditional or the end of the
last statement
This commit is contained in:
freesource 2003-02-07 17:50:32 +00:00
parent c86b14e069
commit 3a14fa35d4
1 changed files with 27 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
BootRoot/Yard.pm
View File

@ -246,10 +246,12 @@ sub read_contents_file {
$line =~ s/\s+$//; $line =~ s/\s+$//;
# --freesource # --freesource
# IF ELSIF
#
# Here we get to decide which files to filter out and which # Here we get to decide which files to filter out and which
# to send on based on the # to send on based on the
# \ if ( condition ) \n statement \n elsif (condition) \n statement # \ if ( condition ) \n statement \n elsif (condition) \n statement
# \n else \n statement \ #
# control structure. \ is chosen as the beginning deliminator # control structure. \ is chosen as the beginning deliminator
# then the structure is parsed until the ending deliminator \ is # then the structure is parsed until the ending deliminator \ is
# found. The fun part is check the logic, all () need to be closed # found. The fun part is check the logic, all () need to be closed
@ -264,15 +266,14 @@ sub read_contents_file {
# statement or a line or so afterwards # statement or a line or so afterwards
# #
# This is non-strict checking .. junk can be after conditionals (maybe) - # This is non-strict checking .. junk can be after conditionals (maybe) -
# or last delimiter - which will be ignored - and else can preceed # or last delimiter - which will be ignored -
# an elsif :-)
# The most important check is to avoid never finding a final delimiter # The most important check is to avoid never finding a final delimiter
# #
# Error conditions in order - all these things need to exist or there # Error conditions in order - all these things need to exist or there
# is an ERROR. # is an ERROR.
# ( remember outer parens ) # ( remember outer parens )
# 1. if && ( && ) && statments # 1. if && ( && ) && statments
# 2. elsif && ( && ) && statements || else && statements # 2. elsif && ( && ) && statements
# 3. end deliminator \ has to be found before EOF # 3. end deliminator \ has to be found before EOF
# #
# Example (not practical ofcourse): # Example (not practical ofcourse):
@ -289,7 +290,8 @@ sub read_contents_file {
# First line found with \ && may be an if () # First line found with \ && may be an if ()
if ( $line =~ /\s*\\/ ) { # \ OR \ IF
if ( $line =~ /\s*\\/ && !%control_structure ) {
# Keep checking for logic # Keep checking for logic
$control_structure{WATCH}++; $control_structure{WATCH}++;
@ -299,7 +301,7 @@ sub read_contents_file {
next LINE; next LINE;
} }
else { else {
##########
$control_structure{if}++; $control_structure{if}++;
@ -360,15 +362,26 @@ sub read_contents_file {
# not going to worry about garbage at the end if the conditional # not going to worry about garbage at the end if the conditional
# is proper .. this isn't a new computer language :-) # is proper .. this isn't a new computer language :-)
###################
} # line equaled if } # line equaled if
} }
# Next line if it exists between \ \ # IF ELSIF
elsif ( %control_structure && $control_structure{WATCH} < 2 ) { elsif ( %control_structure && $control_structure{WATCH} < 2 ) {
my $end;
# Keep checking for logic
if ( $line =~ /\s*\\/ ) {
$control_structure{WATCH}++ ;
$line =~ s/\\//;
$end = 1;
}
# if condition is true because on same line as \ or now true # if condition is true because on same line as \ or now true
if ( $control_structure{if_true} ) { if ( $control_structure{if_true} ) {
@ -398,6 +411,10 @@ sub read_contents_file {
$control_structure{WATCH} < 2 ) { $control_structure{WATCH} < 2 ) {
next LINE; next LINE;
} }
elsif ( $control_structure{else_false} && $end ) {
next LINE;
}
} # true elsif condition } # true elsif condition
@ -476,7 +493,7 @@ sub read_contents_file {
} }
# ELSIF && ELSE # ELSIF
# if if didn't have anything we come here # if if didn't have anything we come here
# This is weird it just skips over this logic # This is weird it just skips over this logic
if ( !$control_structure{if_true} && if ( !$control_structure{if_true} &&
@ -485,10 +502,8 @@ sub read_contents_file {
if ( $line =~ m,\s*else\s*|\s*elsif\s*, ) { if ( $line =~ m,\s*else\s*|\s*elsif\s*, ) {
#########
if ( $line =~ m,\s*elsif\s*, ) { if ( $line =~ m,\s*elsif\s*, ) {
$control_structure{elsif}++; $control_structure{elsif}++;
@ -516,7 +531,6 @@ sub read_contents_file {
next LINE; next LINE;
} }
#next LINE;
} }
} # end for glob condition } # end for glob condition
@ -547,10 +561,6 @@ sub read_contents_file {
} # end elsif } # end elsif
###########
} }
@ -560,35 +570,21 @@ sub read_contents_file {
} }
##
} }
# Control Structure Trap
# If a condition is false the control structure falls through until it
# reaches a true condtion, this prevents that.
if (
$line =~ m,\s*if\(.*\)|\s*elsif\(.*\)|\s*else\s*, ) {
print "$line IMADEITHERE\n";
next LINE;
}
# last line found with ending \ can be besides a statement or by itself # last line found with ending \ can be besides a statement or by itself
if ( %control_structure && $control_structure{WATCH} == 2 ) { if ( %control_structure && $control_structure{WATCH} == 2 ) {
# Better make sure we actually get here # Better make sure we actually get here
undef %control_structure; undef %control_structure;
} }
# If genext2fs is being used we want to grab the values for # If genext2fs is being used we want to grab the values for
# devices and process them individually, globbing if necessary, # devices and process them individually, globbing if necessary,
# and appending the changes to the device table. --freesource # and appending the changes to the device table. --freesource