tumble / file diff

diff: parser.y

parser.y

changeset 15
dda3d673b82b
parent 12
c3e2c2344560
child 17
d4699dfddcc0
     1.1 --- a/parser.y	Sun Dec 30 04:16:46 2001 +0000
     1.2 +++ b/parser.y	Sun Dec 30 04:16:46 2001 +0000
     1.3 @@ -69,16 +69,16 @@
     1.4  	| INTEGER { $$.first = $1; $$.last = $1; } ;
     1.5  
     1.6  image_ranges:
     1.7 -	range
     1.8 -	| image_ranges ',' range ;
     1.9 +	range { input_images ($1.first, $1.last); }
    1.10 +	| image_ranges ',' range { input_images ($3.first, $3.last); } ;
    1.11  
    1.12  
    1.13  input_file_clause:
    1.14  	FILE_KEYWORD STRING  ';'  { open_tiff_input_file ($2) } ;
    1.15  
    1.16  image_clause:
    1.17 -	IMAGE INTEGER ';'
    1.18 -	| IMAGE INTEGER modifier_clause_list ';' ;
    1.19 +	IMAGE INTEGER ';' { input_images ($2, $2); }
    1.20 +	| IMAGE INTEGER modifier_clause_list ';' { input_images ($2, $2); } ;
    1.21  
    1.22  images_clause:
    1.23  	IMAGES image_ranges ';'
    1.24 @@ -155,12 +155,12 @@
    1.25  	FILE_KEYWORD STRING  ';' { open_pdf_output_file ($2) } ;
    1.26  
    1.27  page_ranges:
    1.28 -	range
    1.29 -	| page_ranges ',' range ;
    1.30 +	range { output_pages ($1.first, $1.last); }
    1.31 +	| page_ranges ',' range { output_pages ($3.first, $3.last); } ;
    1.32  
    1.33  page_clause:
    1.34 -	PAGE INTEGER ';'
    1.35 -	| PAGE STRING ',' INTEGER ';' ;
    1.36 +	PAGE INTEGER ';' { output_pages ($2, $2); }
    1.37 +	| PAGE STRING ',' INTEGER ';' { output_pages ($4, $4); } ;
    1.38  
    1.39  pages_clause:
    1.40  	PAGES page_ranges ';'