Category : Windows 3.X Files
Archive : SPEXTN.ZIP
Filename : NEWSAVER.C
Output of file : NEWSAVER.C contained in archive : SPEXTN.ZIP
FILE *fp;
char filename[100];
char fileroot[100];
void main(int argc,char **argv)
{
printf("newsaver - creates template for screen saver for Screen Peace\n");
printf(" by Anthony Andersen\n");
printf("This program is Public Domain\n\n");
if (argc == 1) {
printf("usage : newsaver filename\n\n");
printf(" where : filename is the name of the new screen saver project\n");
printf(" (no file extension)\n\n");
return;
}
strcpy(fileroot,argv[1]);
/* make file */
strcpy(filename,fileroot);
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"all: %s.spx\n",fileroot);
fprintf(fp,"\n");
fprintf(fp,".c.obj:\n");
fprintf(fp," cl -c -Asnw -Gsw -Oas -Zpe -W3 $*.c >$*.err\n");
fprintf(fp,"\n");
fprintf(fp,"%s.obj: %s.c %s.h\n",fileroot,fileroot,fileroot);
fprintf(fp,"\n");
fprintf(fp,"%s.res: %s.rc %s.dlg\n",fileroot,fileroot,fileroot);
fprintf(fp," rc -r %s.rc\n",fileroot);
fprintf(fp,"\n");
fprintf(fp,"libentry.obj: libentry.asm\n");
fprintf(fp," masm -Mx libentry,libentry;\n");
fprintf(fp,"\n");
fprintf(fp,"%s.spx: libentry.obj %s.obj %s.def %s.res\n",fileroot,fileroot,fileroot,fileroot);
fprintf(fp," link %s libentry, %s.exe, , /NOE /NOD sdllcew libw, %s.def\n",fileroot,fileroot,fileroot);
fprintf(fp," rc %s.res\n",fileroot);
fprintf(fp," if exist %s.spx del %s.spx\n",fileroot,fileroot);
fprintf(fp," ren %s.exe %s.spx\n",fileroot,fileroot);
fprintf(fp,"\n");
fclose(fp);
printf("created file %s\n",filename);
/* end */
/* def file */
strcpy(filename,fileroot);
strcat(filename,".def");
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"LIBRARY %s\n",fileroot);
fprintf(fp,"\n");
fprintf(fp,"EXETYPE WINDOWS\n");
fprintf(fp,"\n");
fprintf(fp,"CODE PRELOAD MOVEABLE DISCARDABLE\n");
fprintf(fp,"DATA PRELOAD SINGLE\n");
fprintf(fp,"\n");
fprintf(fp,"HEAPSIZE 1024\n");
fprintf(fp,"\n");
fprintf(fp,"EXPORTS\n");
fprintf(fp," WEP @1 RESIDENTNAME\n");
fprintf(fp," saverinit @2\n");
fprintf(fp," saverdraw @3\n");
fprintf(fp," saverdlgproc @4\n");
fprintf(fp," LibMain @5\n");
fclose(fp);
printf("created file %s\n",filename);
/* end */
/* c file */
strcpy(filename,fileroot);
strcat(filename,".c");
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"#include
fprintf(fp,"\n");
fprintf(fp,"#include \"%s.h\"\n",fileroot);
fprintf(fp,"\n");
fprintf(fp,"#define IDD_CHECKBOX 10\n");
fprintf(fp,"\n");
fprintf(fp,"unsigned long seed;\n");
fprintf(fp,"char buffer[10];\n");
fprintf(fp,"int enabled;\n");
fprintf(fp,"\n");
fprintf(fp,"\n");
fprintf(fp,"char savername[] = \"Generic Saver\";\n");
fprintf(fp,"char appname[] = \"Screen Peace\";\n");
fprintf(fp,"char keyname[] = \"Generic On\";\n");
fprintf(fp,"\n");
fprintf(fp,"/* this is called by the default dll entry code during the */\n");
fprintf(fp,"/* load library call - always happens BEFORE any other call */\n");
fprintf(fp,"/* in the dll. */\n");
fprintf(fp,"\n");
fprintf(fp,"int FAR PASCAL LibMain(hModule, wDataSeg, cbHeapSize, lpszCmdLine)\n");
fprintf(fp,"\n");
fprintf(fp,"HANDLE hModule;\n");
fprintf(fp,"WORD wDataSeg;\n");
fprintf(fp,"WORD cbHeapSize;\n");
fprintf(fp,"LPSTR lpszCmdLine;\n");
fprintf(fp,"\n");
fprintf(fp,"{\n");
fprintf(fp,"\n");
fprintf(fp," /* set up things here */\n");
fprintf(fp,"\n");
fprintf(fp," GetProfileString(appname,keyname,\"y\",buffer,9);\n");
fprintf(fp," if (buffer[0] != 'n' && buffer[0] != 'N') {\n");
fprintf(fp," enabled = TRUE;\n");
fprintf(fp," }\n");
fprintf(fp," return (1);\n");
fprintf(fp,"}\n");
fprintf(fp,"\n");
fprintf(fp,"\n");
fprintf(fp,"/* this is called by Windows when the dll is released */\n");
fprintf(fp,"\n");
fprintf(fp,"int FAR PASCAL WEP (bSystemExit)\n");
fprintf(fp,"int bSystemExit;\n");
fprintf(fp,"\n");
fprintf(fp,"{\n");
fprintf(fp," /* get rid of things you allocated in the LibMain proc here */\n");
fprintf(fp,"\n");
fprintf(fp," return (1);\n");
fprintf(fp,"}\n");
fprintf(fp,"\n");
fprintf(fp,"/* this is called (probably lots of times) by Screen Peace */\n");
fprintf(fp,"/* be careful not to allocate memory in here */\n");
fprintf(fp,"\n");
fprintf(fp,"char FAR * FAR PASCAL saverinit(BOOL far *savenabled)\n");
fprintf(fp,"\n");
fprintf(fp,"{\n");
fprintf(fp," /* tell enable state */\n");
fprintf(fp,"\n");
fprintf(fp," *savenabled = enabled;\n");
fprintf(fp,"\n");
fprintf(fp," /* this next is optional but it may be used in future versions */\n");
fprintf(fp,"\n");
fprintf(fp," return(savername);\n");
fprintf(fp,"}\n");
fprintf(fp,"\n");
fprintf(fp,"/* dialog proc for user customization */\n");
fprintf(fp,"\n");
fprintf(fp,"BOOL FAR PASCAL saverdlgproc(HWND hdlg,unsigned message,WORD wparam,LONG lparam)\n");
fprintf(fp,"\n");
fprintf(fp,"{\n");
fprintf(fp," switch (message) {\n");
fprintf(fp,"\n");
fprintf(fp," case WM_INITDIALOG:\n");
fprintf(fp," SendDlgItemMessage(hdlg,IDD_CHECKBOX,BM_SETCHECK,enabled,0);\n");
fprintf(fp," return (TRUE);\n");
fprintf(fp,"\n");
fprintf(fp," case WM_COMMAND:\n");
fprintf(fp," if (wparam == IDOK) {\n");
fprintf(fp," enabled = (int)SendDlgItemMessage(hdlg,IDD_CHECKBOX,BM_GETCHECK,0,0);\n");
fprintf(fp," if (enabled) buffer[0] = 'y';\n");
fprintf(fp," else buffer[0] = 'n';\n");
fprintf(fp," buffer[1] = 0;\n");
fprintf(fp," WriteProfileString(appname,keyname,buffer);\n");
fprintf(fp," EndDialog(hdlg,TRUE);\n");
fprintf(fp," return (TRUE);\n");
fprintf(fp," }\n");
fprintf(fp," else if (wparam == IDCANCEL) {\n");
fprintf(fp," EndDialog(hdlg,FALSE);\n");
fprintf(fp," return (TRUE);\n");
fprintf(fp," }\n");
fprintf(fp," break;\n");
fprintf(fp," }\n");
fprintf(fp,"\n");
fprintf(fp," return (FALSE);\n");
fprintf(fp,"}\n");
fprintf(fp,"\n");
fprintf(fp,"/* returns pseudorandom number from 0 to x-1 */\n");
fprintf(fp,"\n");
fprintf(fp,"int arand(int x)\n");
fprintf(fp,"{\n");
fprintf(fp," seed = seed*0x343fd+0x269ec3;\n");
fprintf(fp," return (int)(((seed>>16)&0x7fff)*x>>15);\n");
fprintf(fp,"}\n");
fprintf(fp,"\n");
fprintf(fp,"/* the main drawing routine */\n");
fprintf(fp,"\n");
fprintf(fp,"VOID FAR PASCAL saverdraw(HWND hwnd,HDC hdc,HANDLE hinst,BOOL (FAR PASCAL *yieldproc)(VOID)) \n");
fprintf(fp,"\n");
fprintf(fp,"{\n");
fprintf(fp," RECT rect;\n");
fprintf(fp," HBRUSH hbrush;\n");
fprintf(fp,"\n");
fprintf(fp," GetWindowRect(hwnd,&rect);\n");
fprintf(fp,"\n");
fprintf(fp," /* seed the pseudorandom number generator */\n");
fprintf(fp,"\n");
fprintf(fp," seed = GetTickCount();\n");
fprintf(fp,"\n");
fprintf(fp," hbrush = GetStockObject(BLACK_BRUSH);\n");
fprintf(fp,"\n");
fprintf(fp," /* You MUST \"black out\" the screen if you want the screen black */\n");
fprintf(fp,"\n");
fprintf(fp," FillRect(hdc,&rect,hbrush);\n");
fprintf(fp,"\n");
fprintf(fp," /* make sure to call yieldproc OFTEN - windows is locked up until */\n");
fprintf(fp," /* yieldproc is called. */\n");
fprintf(fp,"\n");
fprintf(fp," while ((*yieldproc)()) {\n");
fprintf(fp,"\n");
fprintf(fp," }\n");
fprintf(fp,"\n");
fprintf(fp,"}\n");
fclose(fp);
printf("created file %s\n",filename);
/* end */
/* res file */
strcpy(filename,fileroot);
strcat(filename,".rc");
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"#include \"windows.h\"\n");
fprintf(fp,"\n");
fprintf(fp,"RCINCLUDE %s.dlg\n",fileroot);
fclose(fp);
printf("created file %s\n",filename);
/* end */
/* dlg file */
strcpy(filename,fileroot);
strcat(filename,".dlg");
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"DIALOGBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 13, 35, 110, 80\n");
fprintf(fp,"STYLE WS_DLGFRAME | WS_POPUP\n");
fprintf(fp,"BEGIN\n");
fprintf(fp," CONTROL \"OK\", 1, \"button\", BS_DEFPUSHBUTTON | WS_TABSTOP | WS_CHILD, 40, 59, 30, 14\n");
fprintf(fp," CONTROL \"Generic Screen Saver\", 101, \"static\", SS_CENTER | WS_CHILD, 10, 8, 90, 8\n");
fprintf(fp," CONTROL \"by Someone\", 102, \"static\", SS_CENTER | WS_CHILD, 10, 22, 90, 8\n");
fprintf(fp," CONTROL \"Enabled\", 10, \"button\", BS_AUTOCHECKBOX | WS_TABSTOP | WS_CHILD, 35, 41, 40, 12\n");
fprintf(fp,"END\n");
fprintf(fp,"\n");
fclose(fp);
printf("created file %s\n",filename);
/* end */
/* dlg file */
strcpy(filename,fileroot);
strcat(filename,".h");
fp = fopen(filename,"wt");
if (fp == NULL) {
printf("ERROR - can't open file %s\n",filename);
return;
}
fprintf(fp,"\n");
fclose(fp);
printf("created file %s\n",filename);
/* end */
}
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/