Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

800 lines
24 KiB

/*
* lppage.c - page formatting
*/
#include <windows.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <direct.h>
#include <tools.h>
#include <time.h>
#include "lpr.h"
#define ESC '\033'
BOOL fPageTop = TRUE; /* TRUE => printer at top of page */
BOOL fFirstFile = TRUE; /* TRUE => first file to be printed */
/* information for formated page */
BOOL fInit; /* TRUE => valid info in page */
int iPage; /* current page being processed */
int rowLine; /* row for next line */
int iLine; /* number of current line */
char szFFile[MAX_PATH]; /* full path of file being displayed */
char szFTime[50]; /* ascii timestamp for file */
char szUsr[MAX_PATH]; /* name of user */
char szCompany[] = COMPANY;
char szConf[] = CONFIDENTIAL;
extern USHORT usCodePage;
/* Specifics about ctime */
#define cchDateMax 16
#define cchTimeMax 10
/* Maximum length in a short file name */
/* Shape of the banner */
#define crowBanner 30
#define ccolBanner 102
void BannerSz(szFName, cBanOut)
char *szFName;
int cBanOut; /* number to output; will be > 0 */
{
#define CenterCol(sz) (col + ((ccolBanner - (strlen(sz) << 3)) >> 1))
#define cchFShort 12
#define cchPShort 28
#define cchUsrShort 12 /* length username block can be on banner */
int row; /* Position of the banner */
int col;
char szDate[cchDateMax];
char szTime[cchTimeMax];
char szPath[MAX_PATH];
char szConfid[sizeof(szCompany) + sizeof(szConf)];
char szFNShort[cchFShort + 1]; /* To shorten the file name */
/* only up to 12 chars. */
char szUsrShort[cchUsrShort + 1];/* Need to shorten the username also! */
char szBuffer[30];
if (!fPostScript) {
row = ((fLaser ? rowLJBanMax : rowMac) - crowBanner - 10)/2;
col = ((fLaser ? colLJBanMax : colLPMax) - ccolBanner)/2;
}
szFNShort[cchFShort] = '\0' ;
strncpy(szFNShort, szFName, cchFShort);
szUsrShort[cchUsrShort] = '\0' ;
strncpy(szUsrShort, szUsr, cchUsrShort);
_getcwd(szPath, sizeof(szPath));
_strupr(szPath);
_strupr(szFNShort);
SzDateSzTime(szDate, szTime);
if (fPostScript) {
int iPathLen = strlen (szFFile);
while ((szFFile[iPathLen] != '\\') && (iPathLen>0)) {
iPathLen--;
}
OutLPR("\n", 0);
/* The 'strings' we are sending out, need to use OutLPRPS just in case
* they contain \, (, or )...
*/
// Assign a jobname
OutLPR ("statusdict begin statusdict /jobname (PPR: ", 0);
OutLPRPS (szUsr, 0);
OutLPR (" - ", 0);
OutLPRPS (szFNShort, 0);
OutLPR (") put end \n", 0);
if( fHDuplex || fVDuplex )
{
OutLPR( "statusdict begin ", 0 );
OutLPR( fHDuplex ? "true" : "false", 0 );
OutLPR( " settumble true setduplexmode end\n", 0);
}
// Define some of the data we will be wanting access to
OutLPR ("/UserName (", 0); OutLPRPS (szUsr, 0); OutLPR (") def \n", 0);
OutLPR ("/FileName (", 0); OutLPRPS (szFNShort ,0); OutLPR (") def \n", 0);
OutLPR ("/PathName (", 0); OutLPRPS (szFFile, iPathLen); OutLPR (") def \n", 0);
OutLPR ("/UserPath (", 0); OutLPRPS (szPath ,0); OutLPR (") def \n", 0);
OutLPR ("/Date (", 0); OutLPRPS (szDate, 0); OutLPR (") def \n", 0);
OutLPR ("/Time (", 0); OutLPRPS (szTime ,0); OutLPR (") def \n", 0);
OutLPR ("/FTime (", 0); OutLPRPS (szFTime,0); OutLPR (") def \n", 0);
OutLPR ("/Label ",0);
OutLPR ((fLabel ? "true" : "false"), 0);
OutLPR (" def \n", 0);
if (fConfidential) {
OutLPR ("/MSConfidential true def\n", 0);
OutLPR ("/Stamp (", 0);
if (szStamp && strlen(szStamp) > 0) {
OutLPR (szStamp, 0);
} else {
strcpy(szConfid, szCompany);
strcat(szConfid, " ");
strcat(szConfid, szConf);
OutLPR (szConfid, 0);
}
OutLPR (") def \n", 0);
}
if (szStamp != NULL) {
OutLPR ("/MSConfidential true def\n", 0);
OutLPR ("/Stamp (", 0);
OutLPRPS (szStamp, 0);
OutLPR (") def \n", 0);
}
// Width of 'gutter' in characters
sprintf (szBuffer, "/Gutter %d def \n", colGutter);
OutLPR (szBuffer, 0);
// The total column width in characters
sprintf (szBuffer, "/ColWidth %d def \n", colWidth);
OutLPR (szBuffer, 0);
// Number of character rows per page
sprintf (szBuffer, "/RowCount %d def \n", rowMac);
OutLPR (szBuffer, 0);
// The character column text should start in
sprintf (szBuffer, "/ColText %d def \n", colText);
OutLPR (szBuffer, 0);
// Number of columns per page
sprintf (szBuffer, "/Columns %d def\n", cCol);
OutLPR (szBuffer, 0);
/* ... Ok, now lets get started! */
if (cBanOut > 0) OutLPR ("BannerPage\n", 0);
cBanOut--;
/* print more banners if neccessary ?? */
while (cBanOut-- > 0) {
OutLPR ("BannerPage % Extra Banners??\n", 0);
}
} else {
FillRectangle(' ', 0, 0, row + crowBanner, col + ccolBanner + 1);
HorzLine('_', row, col + 1, col + ccolBanner);
HorzLine('_', row + 5, col, col + ccolBanner);
HorzLine('_', row + 16, col, col + ccolBanner);
HorzLine('_', row + 29, col, col + ccolBanner);
VertLine('|', col, row + 1, row + crowBanner);
VertLine('|', col + ccolBanner, row + 1, row + crowBanner);
WriteSzCoord("User:", row + 2, col + 15);
WriteSzCoord(szUsr, row + 2, col + 30);
WriteSzCoord("File Name:", row + 3, col + 15);
WriteSzCoord(szFNShort, row + 3, col + 30);
WriteSzCoord("Directory:", row + 3, col + 58);
WriteSzCoord(szPath, row + 3, col + 73);
WriteSzCoord("Date Printed:", row + 4, col + 15);
WriteSzCoord("Time Printed:", row + 4, col + 58);
WriteSzCoord(szDate, row + 4, col + 30);
WriteSzCoord(szTime, row + 4, col + 73);
block_flush(szUsrShort, row + 8, CenterCol(szUsrShort));
block_flush(szFNShort, row + 20, CenterCol(szFNShort));
if (fConfidential)
{
strcpy(szConfid, szCompany);
strcat(szConfid, " ");
strcat(szConfid, szConf);
WriteSzCoord(szConfid, row+18, col + (ccolBanner-strlen(szConfid))/2);
}
if (szStamp != NULL)
WriteSzCoord(szStamp, row+28, col + (ccolBanner-strlen(szStamp))/2);
/* move to top of page */
if (!fPageTop)
OutLPR(fPostScript ? "showpage\n" : "\r\f", 0);
if (fLaser)
{
if (fVDuplex || fHDuplex)
OutLPR(SELECTFRONTPAGE,0);
OutLPR(BEGINBANNER, 0);
}
if (fPostScript)
OutLPR("beginbanner\n", 0);
OutRectangle(0, 0, row + crowBanner, col + ccolBanner + 1);
cBanOut--;
/* print more banners if neccessary */
while (cBanOut-- > 0) {
OutLPR(fPostScript ? "showpage\n" : "\r\f", 0);
if (fPostScript)
OutLPR("beginbanner\n", 0);
OutRectangle(0, 0, row + crowBanner, col + ccolBanner + 1);
}
} /* End of PostScript check */
fPageTop = FALSE;
}
void SzDateSzTime(szDate, szTime)
/* fill sz's with date & time */
char *szDate, *szTime;
{
char *szt;
char sz[26];
time_t tT;
time(&tT);
szt = ctime(&tT);
/* convert ctime format into Date & Time */
strcpy(sz, szt);
sz[10] = sz[19] = sz[24] = '\0'; /* break into DAY:TIME:YEAR */
strcpy(szDate, &sz[0]);
strcat(szDate, " ");
strcat(szDate, &sz[20]);
strcpy(szTime, &sz[11]);
} /* SzDateSzTime */
void FlushPage()
/* FlushPage - dump a completed page to the printer */
{
if (!fInit)
{
if (!fPostScript) {
if (!fPageTop)
OutLPR("\r\f", 0);
else if (!fLaser && fLabel)
OutLPR("\n\n", 0); /* align printout on LP */
}
OutRectangle(0,0,rowMac,colMac);
fPageTop = FALSE;
}
}
void InitPage()
/* fill in the page image with a blanks (and frame, if needed) */
/* mark punch holes in to row for laserprinters in landscape mode, */
/* so that PlaceTop() can avoid these spots when placing strings */
{
int iCol;
fInit = TRUE;
FillRectangle(' ', 0, 0, rowMac, colMac);
if (!fPostScript)
if (fBorder)
{
/* Draw border around page */
HorzLine('_', 0 , 1, colMac - 1);
HorzLine('_', rowMac - 1, 1, colMac - 1);
VertLine('|', 0 , 1, rowMac);
VertLine('|', colMac - 1, 1, rowMac);
/* Fill in column separators */
for (iCol = 0; iCol < cCol - 1; iCol++)
VertLine('|', ColBeginIcol(iCol, colWidth) + colWidth, 1, rowMac-1);
/* mark punch holes */
if (fLabel && !fPortrait && (fPostScript || fLaser) )
{
if (fLaser)
{
HorzLine('\0', 0, 11, 19);
HorzLine('\0', 0, 83, 92);
HorzLine('\0', 0, 154, 162);
}
else
{
HorzLine('\0', 0, 11, 19);
HorzLine('\0', 0, 77, 86);
HorzLine('\0', 0, 144, 152);
}
}
}
}
void RestoreTopRow()
/* replace the zero bytes put in by InitPage() with underscores */
{
register char *pch;
for (pch = &page[0][0]; pch<&page[0][colMac-1]; pch++)
if (*pch=='\0' || (*pch==' ' && (*(pch-1)=='_' || *(pch+1)=='_')))
*pch = '_';
}
void PlaceTop(szLabel, ichAim, ichMin, ichMax)
char *szLabel;
int ichAim, ichMin, ichMax;
{
int cchLab, cTry, dich, ichLim1, ichLim2;
register int ich;
register char *pch;
BOOL fBackward;
cchLab = strlen(szLabel);
dich = (fBackward = ichAim<=(colMac-cchLab)/2) ? -1 : 1;
for (cTry=0; cTry<2; cTry++)
{
if (fBackward)
ichLim1 = (ichLim2=ichAim) + cchLab - 1;
else
ichLim2 = (ichLim1=ichAim+1) + cchLab - 1;
for (pch= &page[0][ich=ichLim1];
ich<ichMax && ich>ichMin;
pch += dich, ich += dich)
{
if (*pch != '_')
{
ichLim1 = ich + dich;
ichLim2 = ich + (fBackward ? -cchLab : cchLab);
}
else
{
if (ich==ichLim2) /* found spot, write string */
{
WriteSzCoord(szLabel, 0, min(ichLim1, ichLim2));
return;
}
}
}
/* if no spot found, try the other direction */
dich = -dich;
fBackward = !fBackward;
}
}
void PlaceNumber(iCol)
int iCol;
{
int ichAim, ichMin, ichMax, cchN;
char szN[8];
sprintf(szN, " %d ", iPage + iCol + 1);
ichMin = ColBeginIcol(iCol,colWidth);
ichAim = ichMin + (colWidth - (cchN=strlen(szN)) )/2;
ichMax = ichMin + colWidth - cchN - 1;
PlaceTop(szN, ichAim, ichMin, ichMax);
}
void LabelPage()
/* place page labels on page */
{
int col;
char szT[11];
char * szHeader;
szHeader = szBanner ? szBanner : szFFile;
if (fLabel)
{
if (fPortrait)
{
/* move top line over if gutter is being used */
col = colGutter;
/* place in szFTime */
WriteSzCoord(szFTime, 0, col);
col += strlen(szFTime)+2;
/* place in file name after szFTime */
WriteSzCoord(szHeader, 0, col);
col += (strlen(szHeader)+2);
/* place page numbers on page */
sprintf(szT, "Page %d", iPage + 1);
WriteSzCoord(szT, 0, col);
col += (strlen(szT)+2);
/* place user name on page */
WriteSzCoord(szUsr, 0, col);
col += (strlen(szUsr)+4);
if (fConfidential)
{
WriteSzCoord(szCompany, 0, col);
col += (strlen(szCompany)+1);
WriteSzCoord(szConf, 0, col);
}
if (szStamp!=NULL)
{
WriteSzCoord(szStamp, 0, col);
col += (strlen(szStamp)+4);
}
}
else
{
int iCol;
if (fConfidential)
{
PlaceTop(szCompany, colMac/2-strlen(szCompany)-1, 0, colMac-1);
PlaceTop(szConf, colMac/2, 0, colMac-1);
}
if (szStamp!=NULL)
PlaceTop(szStamp, colMac-strlen(szStamp)-1, 0, colMac-1);
/* place page numbers on columns */
for (iCol = 0; iCol < cCol; iCol++)
PlaceNumber(iCol);
RestoreTopRow();
/* place in centered file name */
WriteSzCoord(szHeader, rowMac-1, (colMac - strlen (szHeader))/2);
/* place in right-justified szFTime */
WriteSzCoord(szFTime, rowMac-1, colMac - 2 - strlen(szFTime));
/* place in name in lower left hand corner */
WriteSzCoord(szUsr,rowMac-1,2);
}
}
}
void AdvancePage()
/* advance the counters to a succeeding page. Flush if necessary. */
{
if (fBorder || fLabel)
rowLine = (fPortrait ? 3 : 1);
else
rowLine = 0;
iPage++;
/* if we have moved to a new printer page, flush and reinit */
if ( fPostScript || ((iPage % cCol) == 0))
{
FlushPage();
InitPage();
if (!fPostScript)
LabelPage();
}
}
void XoutNonPrintSz(sz)
/* replace non-printing characters in sz with dots; don't replace LF, CR, FF
or HT.
*/
register char *sz;
{
if (usCodePage != 0) {
return;
}
while (*sz != '\0') {
if ( !isascii(*sz)
|| ( !isprint(*sz) &&
*sz != LF && *sz != CR && *sz != HT && *sz != FF &&
*sz != *sz != ' ')) {
*sz = '.';
}
sz++;
}
}
void LineOut(sz, fNewLine)
/* LineOut - place a line of text into the page buffer. The line is broken
* into pieces that are at most colWidth long and are placed into separate
* lines in the page. Lines that contain form-feeds are broken into pieces
* also. Form-feeds cause advance to the next page. Handle paging. Handle
* flushing of the internal buffer.
*
* sz character pointer to string for output. We modify this string
* during the operation, but restore it at the end.
*
* fNewLine TRUE ==> this the start of a new input line (should number it)
*/
register char *sz;
BOOL fNewLine;
{
register char *pch;
/* if there is a form feed, recurse to do the part before it */
while (*(pch = sz + strcspn(sz, "\f")) != '\0')
{
if (pch != sz)
{
*pch = '\0'; /* temporarily fix to NULL */
LineOut(sz, fNewLine);
fNewLine = FALSE; /* Not a new line after a Form Feed */
*pch = FF; /* reset to form feed */
}
if (fPostScript) {
OutLPR ("\f\n\0", 0);
} else {
AdvancePage();
}
sz = pch + 1; /* point to first char after form feed */
}
if (fNewLine)
iLine++;
/* if the current line is beyond end of page, advance to next page */
if (rowLine == rowPage)
AdvancePage();
fInit = FALSE;
if (fNewLine && fNumber) {
char szLN[cchLNMax + 1];
sprintf(szLN, LINUMFORMAT, iLine);
if (fPostScript) {
OutLPR (szLN, 0);
} else {
WriteSzCoord(szLN, rowLine, ColBeginIcol(iPage % cCol,colWidth)+colGutter);
}
}
XoutNonPrintSz(sz);
/* if the line can fit, drop it in */
if (strlen(sz) <= (unsigned int)(colWidth - colText))
if (fPostScript) {
OutLPR (sz, 0);
OutLPR ("\n\000",0);
} else
WriteSzCoord(sz, rowLine++, ColBeginIcol(iPage % cCol,colWidth) + colText);
else
{
/* drop in the first part and call LineOut for the remainder */
char ch = sz[colWidth - colText];
sz[colWidth - colText] = '\0';
if (fPostScript) {
OutLPR (sz, 0);
OutLPR ("\n\000",0);
/*WriteSzCoord(sz, rowLine++, ColBeginIcol(0, colWidth) + colText);*/
} else
WriteSzCoord(sz, rowLine++, ColBeginIcol(iPage % cCol,colWidth) + colText);
sz[colWidth - colText] = ch;
LineOut(sz + colWidth - colText, FALSE );
}
}
void RawOut(szBuf, cb)
/* print line of raw output */
char * szBuf;
int cb;
{
fPageTop = (szBuf[cb - 1] == FF);
OutLPR(szBuf, cb);
}
BOOL FilenamX(szSrc, szDst)
/* copy a filename.ext part from source to dest if present.
return true if one is found
*/
char *szSrc, *szDst;
{
#define szSeps "\\/:"
register char *p, *p1;
p = szSrc-1;
while (*(p += 1+strcspn(p1=p+1, szSeps)) != '\0')
;
/* p1 points after last / or at bos */
strcpy(szDst, p1);
return strlen(szDst) != 0;
}
int
FileOut(szGiven)
/* FileOut - print out an entire file.
*
* szGiven name of file to display.
*/
char *szGiven;
{
FILE *pfile;
int cDots = 0;
long lcbStartLPR = 0l;
char rgbLine[cchLineMax];
char szFBase[MAX_PATH];
char rgchBuf[2];
/* open/secure input file */
if (!*szGiven || !strcmp(szGiven, "-"))
{
pfile = stdin;
strcpy(szFFile, szBanner ? szBanner : "<stdin>");
strcpy(szFBase, szFFile);
szFTime[0] = '\0';
szGiven = NULL;
}
else if ((pfile = fopen(szGiven, szROBin)) != NULL)
{
struct _stat st;
/* The file has been opened, now lets construct a string that
* tells us exactly what we opened...
*/
rootpath (szGiven, szFFile);
_strupr(szFFile);
FilenamX(szGiven, szFBase);
if (_stat(szGiven, &st) == -1)
Fatal("file status not obtainable : [%s]", szGiven, NULL);
strcpy(szFTime, ctime(&st.st_mtime));
*(szFTime + strlen(szFTime) - 1) = '\0';
}
else
{
Error("error opening input file %s", szGiven);
return(FALSE);
}
/* need to get user name to be printed in lower left corner of each */
/* page and on banner. */
QueryUserName(szUsr);
if (!fSilent) { // Print progress indicator
fprintf(stderr, "PRINTING %s ", szFBase);
}
/* check to see if user forgot -r flag and this is a binary file */
if (!fRaw && pfile != stdin)
{
fread((char *)rgchBuf, sizeof(char), 2, pfile);
if (rgchBuf[0] == ESC && strchr("&(*E", rgchBuf[1]) != 0)
{
fprintf(stderr, "ppr: warning: file is binary; setting raw mode flag");
fRaw = TRUE;
}
if (fseek(pfile, 0L, SEEK_SET) == -1)
fprintf(stderr, "ppr: seek failed"); /* reposition the file pointer to start of file */
}
if (fPostScript) {
if (!fFirstFile) {
OutLPR ("\034\n\000", 0); /* File Separator */
if (cBanner < 0) /* we at least need to set up the file stuff */
BannerSz (szBanner ? szBanner : szFBase, 0);
}
}
/* print banner(s) if any */
if (cBanner > 0)
BannerSz(szBanner ? szBanner : szFBase, cBanner);
else if (cBanner < 0 && fFirstFile)
BannerSz(szBanner ? szBanner : szFBase, -cBanner);
else if (cBanner==0 && fPostScript)
BannerSz(szBanner ? szBanner : szFBase, 0);
fFirstFile = FALSE;
/* always start contents of file at top of page */
if (!fPageTop)
{
if (!fPostScript)
OutLPR(fPostScript ? "showpage\n" : "\r\f", 0);
fPageTop = TRUE;
}
if (fLaser)
{
/* start output mode for laserjet */
if (fVDuplex || fHDuplex)
/* always start output on front page */
OutLPR(SELECTFRONTPAGE,0);
if (fPortrait)
OutLPR(BEGINPORTRAIT, 0);
else
OutLPR(aszSymSet[usSymSet], 0);
}
if (fPostScript) {
OutLPR (fPortrait ? (fPCondensed ? "QuadPage\n" : "Portrait\n") : "Landscape\n", 0);
OutLPR ("PrintFile\n", 0);
}
/* for PostScript we start the mode before each page */
lcbStartLPR = lcbOutLPR;
cDots = 0;
if (fRaw)
{
int cb;
/* read file and write directly to printer */
while ((cb = fread(rgbLine, 1, cchLineMax, pfile)) > 0)
{
RawOut(rgbLine, cb);
if (!fSilent && cDots < (lcbOutLPR-lcbStartLPR) / 1024L)
{
for (; cDots < (lcbOutLPR-lcbStartLPR) / 1024L; cDots++)
fputc('.', stderr);
}
}
}
else
{
/* initialize file information */
iLine = 0;
/* initialize page information */
iPage = -1;
rowLine = rowPage;
fInit = TRUE;
/* read and process each line */
while (fgetl(rgbLine, cchLineMax, pfile)) {
LineOut(rgbLine, TRUE);
if (!fSilent && cDots < (lcbOutLPR-lcbStartLPR) / 1024L) {
for (; cDots < (lcbOutLPR-lcbStartLPR) / 1024L; cDots++) {
fputc('.', stderr);
}
}
}
/* flush out remainder if any */
FlushPage();
}
if (!fPageTop && (fForceFF || fPostScript) && (!fPostScript || !fRaw))
{
if (!fPostScript)
OutLPR(fPostScript ? "showpage\n" : "\r\f", 0);
fPageTop = TRUE;
}
fclose(pfile);
if (!fSilent) /* finish PRINTING message with CRLF when done*/
fprintf(stderr, "%dk\n", (lcbOutLPR-lcbStartLPR)/1024);
if (fDelete && szGiven)
{
if (fSilent)
_unlink(szGiven);
else
{
fprintf(stderr, "DELETING %s...", szGiven);
if (!_unlink(szGiven))
fprintf(stderr, "OK\n");
else
fprintf(stderr, "FAILED: file not deleted\n");
}
}
return TRUE;
}