%s

/* * File: Bones.cpp * Author: S Harry White * Created: 2011-04-03 * Updated: 2021-12-13 * Tidy code. * Updated: 2022-07-15 * Add non-square rectangles. * Updated: 2023-01-26 * Increase size of buffer for perror message. * Updated: 2023-02-13 * Improve openInput and openOutput. * Updated: 2023-03-28 * Fix store allocation. Remove allocatedSize=0 from initGlobals(). */ #include "stdafx.h" #include #include #include #include #include #include #include #include #include #include #include const bool F=false, T=true; const int startSize=25; int R, C, N, minNumber, maxNumber, // Smallest, biggest number in the rectangle inputRectangleNumber, // Counts rectangles input from a .txt file. outputFileNumber, rectanglesPerFile, allocatedSize; double **xRectangle=NULL, StoB; // Rectangle to bones adjustment void initGlobals() { rectanglesPerFile=90000/(R*C); N=(int)sqrt((double)R*C); } //============================================ storage ================================================== char *storeAllocFail="Storage allocation failed"; bool reportError(char *msg) { printf("\a\nError: %s.\n", msg); return F; } bool reportNumError(char *s, double num) { // -------------- const int msgSize=256; char msg[msgSize]; sprintf_s(msg, msgSize, s, num); return reportError(msg); } // reportNumError void freeRectangle(const int size) { // ------------- if (xRectangle!=NULL) { for(int i=0; iC) ? R : C; if (sizeallocatedSize) { freeRectangle(allocatedSize); xRectangle=(double**) malloc(size*sizeof(double*)); ok=xRectangle!=NULL; if (ok) { int numAllocated=0; for(int i=0; i\n" "\n\n\n" "%s\n" "\n\n\n\n\n", title, s)>0; } // writeHead bool writeCell(FILE *wfp, char *_class, double value, bool useDouble) { // --------- if (useDouble) return fprintf(wfp, "%.1f\n", _class, value)>0; else return fprintf(wfp, "%d\n", _class, (int)value)>0; } // writeCell int tableWidth(bool toBones) { // ---------- int cellWidth=N<10 ? 24 : N<32 ? 30 : N<100 ? 40 : 50; if (toBones) cellWidth+=N%2 ? 8 : 20; return cellWidth*C; } // tableWidth bool writeRectangle(FILE *wfp, bool toBones, bool *writeError) { // -------------- const int width=tableWidth(toBones); double pm=toBones ? -StoB : StoB; if (fprintf(wfp, "" "\n", width, toBones ? "bone" : (R==C) ? "square" : "rectangle", C, width/C-2)<0) return F; for (int row=0; row\n")<0) return F; for (int col=0; col

\n\n")>0; } // writeRectangle void writeFoot(FILE *wfp, bool *writeError) { *writeError=fprintf(wfp, "\n")<0; } // --------- void stripName(char *inFname, char *obuf) { // --------- char *s=inFname; while (*s++!='\0'); while (--s!=inFname) // Remove .txt and any directory path. if (*s=='.') *s='\0'; else if ((*s=='\\')|(*s=='/')) { ++s; break; } strcpy_s(obuf, outSize, s); } // stripName bool openDir(char *dir) { // ------- char baseName[bufSize]; int sub=0; sprintf_s(baseName, bufSize, "ToFromBones%dx%d", R, C); strcpy_s(dir, bufSize, baseName); do { if (_mkdir(dir)==0) break; if (errno!=EEXIST) { char msg[bufSize+50]; sprintf_s(msg, bufSize+50, "\a\nCan't make folder %s", dir); perror(msg); return F; } sprintf_s(dir, bufSize, "%s_%d", baseName, ++sub); } while (T); printf("Output file(s) are in folder %s\n", dir); return T; } // openDir FILE *openOutput(char *dir, char *inFname, const bool toBones) { // ---------- int sub=0; FILE *wfp=NULL; const int baseSize=titleSize+25; char baseName[baseSize], buf[outSize]; sprintf_s(title, titleSize, "%s%s%d", inFname, toBones ? "Bones" : (R==C) ? "Squares" : "Rectangles", ++outputFileNumber); sprintf_s(baseName, baseSize, "%s\\%s", dir, title); sprintf_s(buf, outSize, "%s.html", baseName); do { if (_access_s(buf, 00)==ENOENT) break; sprintf_s(buf, outSize, "%s%d.html", baseName, ++sub); } while (T); if (fopen_s(&wfp, buf, "w")!=0) { char msg[outSize+50]; sprintf_s(msg, outSize+50, "\a\nCan't open for write %s", buf); perror(msg); } return wfp; } // openOutput bool startOutputFile(char *dir, char *inFn, FILE **wfp, bool toBones, bool *writeError) { // --------------- if (*wfp!=NULL) { writeFoot(*wfp, writeError); fclose(*wfp); *wfp=NULL; if (*writeError) return F; inputRectangleNumber=0; } if ((*wfp=openOutput(dir, inFn, toBones))==NULL) { *writeError=T; return F; } if (!writeHead(toBones, *wfp)) { *writeError=T; return F; } return T; } // startOutputFile //================================================ input ================================================ bool getToBones(FILE *rfp, bool *toBones) { // ---------- double tmp=0.; *toBones=T; for (int j=0; jgoodMax)) { reportNumError("%f is out of range", x); return F; } double y=(double)((int)x); if (toBones) { if (x!=y) return reportNumError("fractional number %f in input file", x); } else { if (R%2){ if (x!=y) return reportNumError("fractional number %f in odd order bones", x); } else { double z=x<0. ? y-.5 : y+.5; if (x!=z) return reportNumError("%f requires fraction .5 in even order bones", x); } } } return T; } // checkRectangle bool inputRectangle(FILE *rfp, bool toBones) { // -------------- bool zeroBased=F; if (!allocateRectangle()) return F; for (int r=0; r0) printf("\nelapsed time %d:%02d:%02d\n", et/3600, et%3600/60, et%60); } // reportElapsedTime bool doAnother(bool *inputOrder, bool writeError) { // --------- if (!writeError) { printf("\nAnother order? input y (yes), n (no) or the order: "); if (getYorInts(&R, &C)) { *inputOrder=(R<0); return T; } } freeRectangle(allocatedSize); return F; } // doAnother int main() { // ---- bool another=T, inputOrder=T, ok=F; allocatedSize=0; //outputLocalTime(); do { // for each input file bool writeError=F; if (inputOrder) { printf("\nOrder? "); if (!getInts(&R, &C, -1)) break; } if (checkSize()) { initGlobals(); char dir[bufSize]; if (openDir(dir)) { char ibuf[bufSize], obuf[bufSize]; FILE *rfp=openInput(ibuf); stripName(ibuf, obuf); if (rfp!=NULL) { bool toBones=F; if (getToBones(rfp, &toBones)) { time_t startTime=time(NULL); inputRectangleNumber=0; outputFileNumber=0; FILE *wfp=NULL; if (startOutputFile(dir, obuf, &wfp, toBones, &writeError)) { while (inputRectangle(rfp, toBones)) { if ((inputRectangleNumber>rectanglesPerFile) &&!startOutputFile(dir, obuf, &wfp, toBones, &writeError)) break; if (!writeRectangle(wfp, toBones, &writeError)) break; } if (wfp!=NULL) { if (!writeError) writeFoot(wfp, &writeError); fclose(wfp); } } reportElapsedTime(startTime); } fclose(rfp); } // (rfp!=NULL } // if (openDir } // (checkSize if (!writeError) ok=T; another=doAnother(&inputOrder, writeError); } while (another); printf("\n\nPress a key to close the console"); while (!_kbhit()) Sleep(250); return ok?EXIT_SUCCESS:EXIT_FAILURE; } // main