Category : C Source Code
Archive : DRAWFN3S.ZIP
Filename : DIR-GRAF.C
Output of file : DIR-GRAF.C contained in archive : DRAWFN3S.ZIP
* Procedures to print/change the current directory. *
* Both routine assume the usage of GraphGen.c graphic module, and use the *
* MenuArea (MSG_AREA_X/Y) as i/o (print and read). *
* *
* Ver 0.2 Gershon Elber May. 89 *
******************************************************************************/
#include
#include
#include
#include
#include
#include
#include "GraphGnG.h"
#include "Dir-Graf.h"
#ifndef LINE_LEN
#define LINE_LEN 128
#endif
#define READ_COLOR GREEN
/******************************************************************************
* Procedure to print the current directory content in menu area: *
* Print file name and size in k bytes one per line. if page is full *
* (> ~20 lines) it pause and continue in next page. No sort is perform. *
* Note it is the responsibility of the caller to clean the menu area on exit. *
******************************************************************************/
void PrintDir(char *FileToDir)
{
int i, j;
char s[128], Ctemp;
double Ylevel = 0.9;
struct ffblk ffblk;
GGClearMenuArea();
GGMySetColor(MAGENTA);
if (FileToDir == NULL) FileToDir = DEFAULT_FILE_TO_DIR;
getcwd(s, 127); /* Might be 64 chars at the most. */
j = 0;
i = strlen(s); /* Test if length greater than possible in one line. */
while (i > j) {
Ctemp = s[j+MAX_HELP_MENU_CHAR];
s[j+MAX_HELP_MENU_CHAR] = 0; /* Put temporary NULL there. */
GGPutMsgXY(&s[j], MSG_AREA_X, Ylevel);
s[j+MAX_HELP_MENU_CHAR] = Ctemp; /* Put the char back... */
j += MAX_HELP_MENU_CHAR;
Ylevel -= 0.09;
}
Ylevel -= 0.09; /* Make some space from directory name... */
GGMySetColor(GREEN);
if (!findfirst(FileToDir, &ffblk, 0))
do {
sprintf(s, "%3dk %s", (int) ((ffblk.ff_fsize+1023)/1024),
ffblk.ff_name);
if (Ylevel < -0.7) {
GGPutErrorMsg("");
GGClearMenuArea();
GGMySetColor(GREEN);
Ylevel = 0.9;
}
GGPutMsgXY(s, MSG_AREA_X, Ylevel);
Ylevel -= 0.09;
}
while (!findnext(&ffblk));
else {
sprintf(s, "NO '%s' FILE(S)", FileToDir);
GGPutMsgXY(s, MSG_AREA_X, Ylevel);
Ylevel -= 0.09;
}
if (!findfirst("*.*", &ffblk, FA_DIREC))
do {
switch (ffblk.ff_attrib) {
case FA_DIREC: /* Directory. */
sprintf(s, "
if (Ylevel < -0.7) {
GGPutErrorMsg("");
GGClearMenuArea();
GGMySetColor(GREEN);
Ylevel = 0.9;
}
GGPutMsgXY(s, MSG_AREA_X, Ylevel);
Ylevel -= 0.09;
break;
}
}
while (!findnext(&ffblk));
GGPutErrorMsg("");
}
/*****************************************************************************
* Routine to change current directory *
*****************************************************************************/
void ChangeDir(void)
{
int i, j;
char s[LINE_LEN], cwd[LINE_LEN], Ctemp, *sptr;
double Ylevel;
GGMySetColor(READ_COLOR);
getcwd(cwd, LINE_LEN-1); /* Might be 64 chars at the most. */
Ylevel = 0.38;
j = 0;
i = strlen(cwd); /* Test if length greater than possible in one line. */
while (i>j) {
Ctemp = cwd[j+MAX_HELP_MENU_CHAR];
cwd[j+MAX_HELP_MENU_CHAR] = 0; /* Put temporary NULL there. */
GGPutMsgXY(&cwd[j], MSG_AREA_X, MSG_AREA_Y+Ylevel);
cwd[j+MAX_HELP_MENU_CHAR] = Ctemp; /* Put the char back... */
j += MAX_HELP_MENU_CHAR;
Ylevel -= 0.09;
}
GGPutMsgXY("Enter New Dir :", MSG_AREA_X, MSG_AREA_Y+0.2);
s[0] = s[1] = s[2] = 0; /* Make sure that no old data remains there... */
GGGetGraphicLine(MSG_AREA_X, MSG_AREA_Y, s, READ_COLOR);
GGMySetColor(BLACK);
GGPutMsgXY("Enter New Dir :", MSG_AREA_X, MSG_AREA_Y+0.2);
Ylevel = 0.38;
j = 0;
i = strlen(cwd); /* Test if length greater than possible in one line. */
while (i>j) {
Ctemp = cwd[j+MAX_HELP_MENU_CHAR];
cwd[j+MAX_HELP_MENU_CHAR] = 0; /* Put temporary NULL there. */
GGPutMsgXY(&cwd[j], MSG_AREA_X, MSG_AREA_Y+Ylevel);
cwd[j+MAX_HELP_MENU_CHAR] = Ctemp; /* Put the char back... */
j += MAX_HELP_MENU_CHAR;
Ylevel -= 0.09;
}
if (s[1] == ':') sptr = &s[2]; /* sptr points on the path only. */
else sptr = s;
if (strlen(sptr) != 0 && chdir(s)) GGPutErrorMsg("No Such Dir!");
else if (s[1] == ':') {
if (islower(s[0])) s[0] = toupper(s[0]);
setdisk(s[0] - 'A'); /* Move to the new disk. */
if (getdisk() != s[0] - 'A') GGPutErrorMsg("No Such Disk!");
}
if (getcwd(s, LINE_LEN-1) == NULL) { /* Test if directory is valid! */
GGPutErrorMsg("CD error - ignored");
/* Restore old working directory: */
if (strlen(&cwd[2]) != 0) chdir(cwd); /* If directory is not root... */
if (islower(cwd[0])) cwd[0] = toupper(cwd[0]);
setdisk(cwd[0] - 'A'); /* Move to the original disk. */
}
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/