The R Project SVN R

Rev

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

Rev 61977 Rev 62583
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1999-2008  The R Core Team
 3 
 *  Copyright (C) 1999-2013  The R Core Team
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 250... Line 250...
250 
    page = 1;
 250 
    page = 1;
251 
    i = 0;
 251 
    i = 0;
252 
    while (i < strlen(contents)) {
 252 
    while (i < strlen(contents)) {
253 
	if ( linep + fh >= rr ) { /* new page */
 253 
	if ( linep + fh >= rr ) { /* new page */
254 
	    if (page > 1) nextpage(lpr);
 254 
	    if (page > 1) nextpage(lpr);
255 
	    sprintf(msg, "Page %d", page++);
 255 
	    snprintf(msg, LF_FACESIZE + 128, "Page %d", page++);
256 
	    gdrawstr(lpr, f, Black, pt(cc - gstrwidth(lpr, f, msg) - 1, top),
 256 
	    gdrawstr(lpr, f, Black, pt(cc - gstrwidth(lpr, f, msg) - 1, top),
257 
		     msg);
 257 
		     msg);
258 
	    linep = top + 2*fh;
 258 
	    linep = top + 2*fh;
259 
	}
 259 
	}
260 
	j = 0;
 260 
	j = 0;