dos33fsprogs/asoft_presenter/asoft_presenter.c

572 lines
14 KiB
C
Raw Normal View History

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
2012-05-03 17:40:46 +00:00
static void generate_keyhandler(void) {
printf("9000 REM ******************\n");
printf("9002 REM * GET KEYPRESSES *\n");
printf("9004 REM ******************\n");
printf("9006 N%%=2\n");
2012-05-03 17:40:46 +00:00
/* memory location -16384 holds keyboard strobe */
/* Loop until a key is pressed. */
printf("9008 X=PEEK(-16384): IF X < 128 THEN 9008\n");
2012-05-03 17:40:46 +00:00
/* get the key value, convert to ASCII */
printf("9010 X=PEEK(-16368)-128\n");
/* Exit if escape or Q pressed */
printf("9020 IF X=27 OR X=81 THEN TEXT:HOME:END\n");
2012-05-03 17:40:46 +00:00
/* increment page count if space or -> */
printf("9030 IF X=21 OR X=32 THEN P%%=P%%+1:N%%=3\n");
2012-05-03 17:40:46 +00:00
/* decrement page count if <- */
printf("9040 IF X=8 THEN P%%=P%%-1:N%%=1\n");
2012-05-03 17:40:46 +00:00
/* keep from going off the end */
printf("9050 IF P%%>TP%% THEN P%%=TP%%\n");
printf("9060 IF P%%<0 THEN P%%=0\n");
printf("9070 RETURN\n");
}
static void generate_footer(char *left, char *center, int cols) {
int center_len,center_count,i,right_count;
2012-05-03 17:40:46 +00:00
printf("10000 REM ****************\n");
printf("10001 REM * PRINT FOOTER *\n");
printf("10002 REM ****************\n");
/* make text black on white; move to bottom line */
printf("10003 HOME: INVERSE : VTAB 24\n");
2012-05-03 17:40:46 +00:00
printf("10005 X$=STR$(P%%)+\"/\":X$=X$+STR$(TP%%)\n");
printf("10007 L%%=LEN(X$)\n");
2012-05-03 17:40:46 +00:00
printf("10010 PRINT \"%s",left);
center_len=strlen(center);
center_count=(cols-center_len)/2;
center_count-=strlen(left);
if (center_count<0) {
fprintf(stderr,"Error! can't fit text in footer\n");
center_count=0;
}
for(i=0;i<center_count;i++) printf(" ");
printf("%s\";\n",center);
right_count=cols-strlen(left)-center_count-center_len;
2012-05-03 17:40:46 +00:00
printf("10012 FOR I=0 TO %d-L%%:PRINT \" \";: NEXT I\n",right_count-1);
2012-05-03 17:40:46 +00:00
printf("10014 PRINT LEFT$(X$,L%%-1);\n");
/* set last character to the right most char of the total pages */
/* without scrolling. */
2012-05-03 17:40:46 +00:00
printf("10015 TP$=STR$(TP%%) : X$=RIGHT$(TP$,1) : X=VAL(X$): POKE 2039,X+48\n");
/* reset text, move cursor up */
2012-05-03 17:40:46 +00:00
printf("10020 NORMAL : VTAB 1: PRINT\"\"\n");
printf("10030 RETURN\n");
}
static void print_line(unsigned char c, int num) {
int i;
for(i=0;i<num;i++) printf("%c",c);
}
static void center_comment(unsigned char c, int max_len, char *string) {
int half_len;
half_len=(max_len-strlen(string))/2;
print_line(' ',half_len);
printf("%s",string);
/* handle strings of odd length */
print_line(' ',max_len-half_len-strlen(string));
}
static void generate_initial_comment(char *title, char *author, char *email) {
int max_len;
max_len=strlen(title);
if (max_len<strlen(author)) max_len=strlen(author);
if (max_len<strlen(email)) max_len=strlen(email);
printf("2 REM ");
print_line('*',max_len+4);
printf("\n");
printf("4 REM * ");
center_comment(' ',max_len,title);
printf(" *\n");
printf("6 REM * ");
center_comment(' ',max_len,author);
printf(" *\n");
printf("8 REM * ");
center_comment(' ',max_len,email);
printf(" *\n");
printf("9 REM ");
print_line('*',max_len+4);
printf("\n");
}
struct project_info {
char *title;
char *author;
char *email;
int slides;
};
struct footer_info {
char *left;
char *center;
};
#define SLIDE_40COL 0
#define SLIDE_80COL 1
#define SLIDE_HGR 2
#define SLIDE_HGR2 3
#define SLIDE_HGR_PLOT 4
#define MAX_SLIDES 89
struct slide_info {
int type;
char *filename;
};
#define LINES_PER_SLIDE 100
2012-05-09 21:17:32 +00:00
static void print_number(int line_num, int x, int y, char *string) {
int i,first=1,ourx=x;
printf("%d",line_num);
for(i=0;i<strlen(string);i++) {
printf("%s XDRAW %d AT %d,%d ",
first?" ":":",(string[i]-'0')+1,
ourx,y);
first=0;
ourx+=10;
}
printf("\n");
}
void center_print(int line_num,char *string,int cols) {
int i,centering=(cols-strlen(string))/2;
printf("%d PRINT ",line_num);
if (centering<5) {
printf("\"");
for(i=0;i<centering;i++) printf(" ");
}
else {
printf("SPC(%d);\"",centering);
}
printf("%s\"\n",string);
}
static void print_til_eof(FILE *fff,int *line_num) {
char *result;
char string[BUFSIZ];
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if (string[0]=='\n') {
printf("%d PRINT\n",*line_num); (*line_num)++;
continue;
}
string[strlen(string)-1]='\0';
if ((string[0]=='%') && (string[1]=='c') && (string[2]=='%')) {
center_print(*line_num,string+3,40); (*line_num)++;
} else {
printf("%d PRINT \"%s\"\n",*line_num,string); (*line_num)++;
}
}
}
2012-05-09 21:17:32 +00:00
static void generate_slide(int num, int max, char*filename) {
int line_num;
FILE *fff;
char string[BUFSIZ],*result,type[BUFSIZ];
/* line numbers start at 100 and run LINES_PER_SLIDE per slide */
line_num=100+(num*LINES_PER_SLIDE);
/* print a REMARK block */
printf("%d REM ",line_num); line_num++;
print_line('*',strlen(filename)+8);
printf("\n");
printf("%d REM *** %s ***\n",line_num,filename); line_num++;
printf("%d REM ",line_num); line_num++;
print_line('*',strlen(filename)+8);
printf("\n");
/* print the footer */
printf("%d GOSUB 10000\n",line_num); line_num++;
/* generate the slide */
fff=fopen(filename,"r");
if (fff==NULL) {
fprintf(stderr,"Couldn't open %s!\n",filename);
}
else {
/* assume we load ourselves high */
int address=0x1000;
int num_plots=0,plot,color;
double maxx,maxy,x,y;
int applex,appley,hplot_num,first=1;
2012-05-09 21:17:32 +00:00
int xpoints,ypoints;
int axesx,axesy;
char axes_string[BUFSIZ];
2012-05-09 21:17:32 +00:00
#define HPLOTS_ON_LINE 6
result=fgets(type,BUFSIZ,fff);
if (strstr(type,"HGR_PLOT")) {
printf("%d IF ST%%=1 GOTO %d\n",line_num,line_num+3); line_num++;
printf("%d PRINT CHR$(4);\"BLOAD NUM.SHAPE,A$1000\"\n",line_num); line_num++;
printf("%d POKE 232,%d: POKE 233,%d : ROT=0: SCALE=3: ST%%=1\n",
line_num,address&0xff,(address>>8)&0xff); line_num++;
printf("%d HGR\n",line_num); line_num++;
/* get the size */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
sscanf(string,"%lf %lf",&maxx,&maxy);
break;
}
2012-05-09 21:17:32 +00:00
/* Draw the Axes */
printf("%d HCOLOR=3:HPLOT 0,0 TO 0,159: HPLOT 1,1 TO 1,159\n",
line_num); line_num++;
printf("%d HPLOT 0,159 TO 279,159\n",
line_num); line_num++;
/* get the axes ticks */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
sscanf(string,"%d %d",&xpoints,&ypoints);
break;
}
printf("%d FOR I=0 TO 279 STEP %d: "
"HPLOT I,155 TO I,159: NEXT I\n",
line_num,280/xpoints); line_num++;
printf("%d FOR I=159 TO 0 STEP -%d: "
"HPLOT 0,I TO 4,I: NEXT I\n",
line_num,160/ypoints); line_num++;
/* Look for START */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
if (strstr(string,"START")) break;
}
/* Number the Axes */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
if (strstr(string,"STOP")) break;
sscanf(string,"%d %d %s",&axesx,&axesy,axes_string);
print_number(line_num,axesx,axesy,axes_string); line_num++;
}
/* get number of plots */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
sscanf(string,"%d",&num_plots);
break;
}
for(plot=0;plot<num_plots;plot++) {
first=1;
/* Look for START */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
if (strstr(string,"START")) break;
}
/* get the color of the plot */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
sscanf(string,"%d",&color);
break;
}
printf("%d HCOLOR=%d\n",line_num,color); line_num++;
/* Plot the points */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
if (strstr(string,"STOP")) break;
sscanf(string,"%lf %lf",&x,&y);
applex=(int)((x/maxx)*280.0);
appley=159-(int)((y/maxy)*160.0);
if (first) {
printf("%d HPLOT %d,%d ",line_num,applex,appley); line_num++;
hplot_num=1;
first=0;
}
else if (hplot_num%HPLOTS_ON_LINE!=0) {
printf("TO %d,%d ",applex,appley);
hplot_num++;
} else {
printf("\n%d HPLOT TO %d,%d ",
line_num,applex,appley); line_num++;
hplot_num++;
}
}
printf("\n");
}
2012-05-09 21:17:32 +00:00
/* Print remaining text */
printf("%d VTAB 21\n",line_num); line_num++;
print_til_eof(fff,&line_num);
}
else if (strstr(type,"HGR2")) {
/* cheat and use HGR page 1 but text turned off */
printf("%d HGR:POKE -16302,0\n",line_num); line_num++;
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
}
string[strlen(string)-1]='\0';
printf("%d PRINT CHR$(4);\"BLOAD %s,A$2000\"\n",
line_num,string); line_num++;
}
else if (strstr(type,"HGR")) {
printf("%d HGR\n",line_num); line_num++;
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) break;
if ((string[0]=='#') || (string[0]=='\n')) continue;
break;
}
string[strlen(string)-1]='\0';
printf("%d PRINT CHR$(4);\"BLOAD %s,A$2000\"\n",
line_num,string); line_num++;
/* print rest of stuff */
printf("%d VTAB 21\n",line_num); line_num++;
print_til_eof(fff,&line_num);
}
else if (strstr(type,"80COL")) {
}
else if (strstr(type,"40COL")) {
printf("%d TEXT:VTAB 1\n",line_num); line_num++;
print_til_eof(fff,&line_num);
}
fclose(fff);
}
/* wait for keypress and move to next slide */
printf("%d GOSUB 9000\n",line_num); line_num++;
printf("%d ON N%% GOTO %d,%d,%d\n",
line_num,
/* previous */
num==0?(100+(num*LINES_PER_SLIDE)):(100+((num-1)*LINES_PER_SLIDE)),
/* current */
100+(num*LINES_PER_SLIDE),
/* next */
num<(max-1)?(100+((num+1)*LINES_PER_SLIDE)):
(100+(num*LINES_PER_SLIDE)));
}
int main(int argc, char **argv) {
int i;
char project_directory[BUFSIZ];
char filename[BUFSIZ],string[BUFSIZ];
char *result;
FILE *fff;
struct project_info info;
struct footer_info footer;
struct slide_info slides[MAX_SLIDES];
if (argc<2) {
fprintf(stderr,"\n");
fprintf(stderr,"USAGE: %s DIR\n",argv[0]);
fprintf(stderr,"\tWhere DIR contains presentation info\n\n");
exit(1);
}
/* read in project info */
strncpy(project_directory,argv[1],BUFSIZ);
sprintf(filename,"%s/info",project_directory);
fff=fopen(filename,"r");
if (fff==NULL) {
fprintf(stderr,"Error! Could not open %s\n",filename);
exit(1);
}
/* Get Title */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) {
fprintf(stderr,"Unexpected EOF finding TITLE in %s\n",filename);
exit(1);
}
if (!strncmp("TITLE",string,5)) break;
}
result=fgets(string,BUFSIZ,fff);
string[strlen(string)-1]='\0';
info.title=strdup(string);
/* Get Author */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) {
fprintf(stderr,"Unexpected EOF finding AUTHOR in %s\n",filename);
exit(1);
}
if (!strncmp("AUTHOR",string,6)) break;
}
result=fgets(string,BUFSIZ,fff);
string[strlen(string)-1]='\0';
info.author=strdup(string);
/* Get E-mail */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) {
fprintf(stderr,"Unexpected EOF finding EMAIL in %s\n",filename);
exit(1);
}
if (!strncmp("EMAIL",string,5)) break;
}
result=fgets(string,BUFSIZ,fff);
string[strlen(string)-1]='\0';
info.email=strdup(string);
/* Get list of slides */
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) {
fprintf(stderr,"Unexpected EOF finding SLIDES in %s\n",filename);
exit(1);
}
if (!strncmp("SLIDES",string,6)) break;
}
info.slides=0;
while(1) {
result=fgets(string,BUFSIZ,fff);
if (result==NULL) {
fprintf(stderr,"Unexpected EOF finding END_SLIDES in %s\n",filename);
exit(1);
}
if ((string[0]=='#') || (string[0]=='\n')) continue;
if (!strncmp("END_SLIDES",string,10)) break;
string[strlen(string)-1]='\0';
slides[info.slides].filename=strdup(string);
info.slides++;
}
if (result==NULL) fprintf(stderr,"Error reading!\n");
fclose(fff);
/************************/
/* read in footer info */
/************************/
strncpy(project_directory,argv[1],BUFSIZ);
sprintf(filename,"%s/footer",project_directory);
fff=fopen(filename,"r");
if (fff==NULL) {
fprintf(stderr,"Error! Could not open %s\n",filename);
exit(1);
}
result=fgets(string,BUFSIZ,fff);
string[strlen(string)-1]='\0';
footer.left=strdup(string);
result=fgets(string,BUFSIZ,fff);
string[strlen(string)-1]='\0';
footer.center=strdup(string);
fclose(fff);
/**************************/
/* Generate the program */
/**************************/
/* Print the initial program remarks */
generate_initial_comment(info.title,info.author,info.email);
printf("20 HOME\n");
printf("30 P%%=0 : TP%%=%d: ST%%=0\n",info.slides-1);
for(i=0;i<info.slides;i++) {
generate_slide(i,info.slides,slides[i].filename);
}
2012-05-03 17:40:46 +00:00
generate_keyhandler();
generate_footer(footer.left,footer.center,40);
return 0;
}