/* ------------------------------------------------------------------------- */
/*   "infoclues": A small utility to convert (simple) UHS-format hints into  */
/*                an Inform include file which runs an "Invisiclues"-style   */
/*                menu (with submenus) of hints                              */
/*                                                                           */
/*   (C) Copyright Graham Nelson, 1994, 1995                                 */
/*                                                                           */
/*   For use with Inform 5                                                   */
/* ------------------------------------------------------------------------- */

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct menu_item_s
{   char t[256];
} menu_item;

typedef struct menu_s
{   char name[32];
   char title[256];
   menu_item items[32];
   int menu_size;
} menu;

typedef struct subj_s
{   char name[256];
} subj;

FILE *ifp;
FILE *ofp;

char *process(char *s)
{   int i;
   for (i=0; s[i]!=0; i++)
   {   if (s[i]=='\"') s[i]='~';
       if ((s[i]=='\\')||(s[i]=='@')) s[i]='?';
   }
   i=0; while (s[i]==' ') i++; return(s+i);
}

int max_size = 12, max_width = 72;

menu main_menu, sub_menu, next_menu;

void compile_menu(menu *M)
{   int i, flag=0;

   if (M->menu_size > max_size+1)
   {   sprintf(next_menu.name, "%sN", M->name);
       sprintf(next_menu.title, "%s (2)", M->title);
       next_menu.menu_size = 0;
       for (i=max_size; i<M->menu_size; i++, next_menu.menu_size++)
           next_menu.items[i-max_size] = M->items[i];
       M->menu_size = max_size+1;
       sprintf(M->items[max_size].t, ">> To next page");
       flag=1;
       fprintf(ofp, "[ %s_Info i;\n", next_menu.name);
       fprintf(ofp, "  menu_item=menu_item+%d; i=%s_Info(menu_item);\n",
           max_size, M->name);
       fprintf(ofp, "  menu_item=menu_item-%d; return i;\n", max_size);
       fprintf(ofp, "];\n\n");
   }

   for (i=0; i<M->menu_size; i++)
   {   process(M->items[i].t);
       if (strlen(M->items[i].t) > max_width)
           sprintf(M->items[i].t + max_width-4, " ...");
   }

   fprintf(ofp, "[ %s_Menu;\n", M->name);
   fprintf(ofp, "  DoMenu(\"^\\\n");
   for (i=0; i<M->menu_size; i++)
       fprintf(ofp, "          ^     %s\\\n", M->items[i].t);
       fprintf(ofp, "          ^\", #r$%s_TR, #r$%s_Info%s);\n",
           M->name, M->name, (flag==0)?"":"X");
   fprintf(ofp, "];\n\n");

   fprintf(ofp, "[ %s_TR;\n", M->name);
   fprintf(ofp,
 "  if (menu_item==0) { item_name=\"%s\"; item_width=%d; return %d; }\n",
       M->title, strlen(M->title)/2, M->menu_size);
   for (i=0; i<M->menu_size; i++)
       fprintf(ofp,
       "  if (menu_item==%d) { item_name=\"%s\"; item_width=%d; }\n",
          i+1, M->items[i].t, strlen(M->items[i].t)/2);

   fprintf(ofp, "];\n\n");

   if (flag==1)
   {
       fprintf(ofp, "[ %s_InfoX;\n", M->name);
       fprintf(ofp, "  if (menu_item == %d) { %sN_Menu(); return 2; }\n",
           M->menu_size, M->name);
       fprintf(ofp, "  return %s_Info(menu_item);\n", M->name);
       fprintf(ofp, "];\n\n");
       compile_menu(&next_menu);
   }
}

subj the_subjects[64];

void prologue(void)
{
   fprintf(ofp, "!  Clues file generated automatically from UHS source\n\n");
   fprintf(ofp, "[ GiveHint hint flag keypress;\n");
   fprintf(ofp,
"  if (flag==1) print \"(Press H for another hint, or SPACE to return.)^^\";");
   fprintf(ofp, "  print_paddr hint;\n");
   fprintf(ofp, "  new_line; new_line;\n");
   fprintf(ofp, "  @read_char 1 0 0 keypress;\n");
   fprintf(ofp, "  if (keypress == 'H' or 'h') rfalse;\n");
   fprintf(ofp, "  rtrue;\n");
   fprintf(ofp, "];\n\n");
}

void epilogue(void)
{   int i; menu *M=&main_menu;
   fprintf(ofp, "[ Main_Info;\n");
   for (i=0; i<M->menu_size; i++)
       fprintf(ofp,
       "  if (menu_item == %d) Subj%d_Menu();\n", i+1, i+1);
   fprintf(ofp, "  return 2;\n\n");
   fprintf(ofp, "];\n\n");
   compile_menu(M);
}

char hintbuff[2048];
int in_sr_flag=0;
void finish_subject(void)
{   if (in_sr_flag!=1) return; in_sr_flag=0;
   fprintf(ofp, "];\n\n");
}
int in_hint_flag=0;
void finish_hint(void)
{   if (in_hint_flag!=1) return;
   if (strlen(hintbuff)!=0)
   {   fprintf(ofp, "  \"%s\";\n", process(hintbuff)); hintbuff[0]=0; }
   in_hint_flag=0;
   fprintf(ofp, "  }\n");
}

int main(int argc, char **argv)
{   char buffer[256], fw[256]; int hints=0, i, j, k, given;
   printf("Infoclues 1: Generates clues-menu Inform code from UHS source\n");

   if (argc!=3) { printf("Syntax is: infoclues fromfile tofile\n"); exit(1); }

   ifp = fopen(argv[1], "r");
   if (ifp==NULL) { printf("Input file won't open\n"); exit(1); }
   ofp = fopen(argv[2], "w");
   if (ofp==NULL) { printf("Output file won't open\n"); exit(1); }

   prologue();

   main_menu.menu_size = 0; strcpy(main_menu.title, "Clues");
   strcpy(main_menu.name, "Main");

   hintbuff[0]=0;

   while (feof(ifp)==0)
   {   if (fgets(buffer,256,ifp)==0) goto RunOut;
       for (i=0; buffer[i]==' '; i++) ;
       for (j=i; buffer[j]!=' ' && buffer[j]!=0; j++) fw[j-i]=buffer[j];
       fw[j-i]=0; while (buffer[j]==' ') j++;
       for (k=0; buffer[k]!=0; k++)
           if (buffer[k]=='\n') buffer[k]=0;

       if ((fw[0]=='[') && (fw[strlen(fw)-1]==']'))
       {   if (strcmp(fw, "[subject]")==0)
           {   strcpy(main_menu.items[main_menu.menu_size++].t, buffer+j);
               if (in_sr_flag==1)
               {   finish_hint(); finish_subject(); compile_menu(&sub_menu);
               }
               in_sr_flag=1;
               fprintf(ofp, "[ Subj%d_Info;\n", main_menu.menu_size);
               sub_menu.menu_size = 0; strcpy(sub_menu.title, buffer+j);
               sprintf(sub_menu.name, "Subj%d", main_menu.menu_size);
           }
           else
           {   strcpy(sub_menu.items[sub_menu.menu_size++].t, buffer+j);
               hints++; finish_hint();
               fprintf(ofp, "  if (menu_item==%d) {\n", sub_menu.menu_size);
               in_hint_flag=1; given=0;
           }
       }
       else if (strcmp(fw, ">>")==0)
       {   if (strlen(hintbuff)!=0)
           {   fprintf(ofp, "  if (GiveHint(\"%s\"%s)==1) return 2;\n",
                   process(hintbuff), (given++==0)?",1":"");
           }
           strcpy(hintbuff, buffer+j);
       }
       else
       {   sprintf(hintbuff+strlen(hintbuff), " %s", buffer+i);
       }
   }

   RunOut:

   fclose(ifp);

   if (in_sr_flag==1)
   {   finish_hint(); finish_subject(); compile_menu(&sub_menu);
   }
   epilogue();

   fclose(ofp);

   printf("Completed: %d subjects, %d hints\n",
          main_menu.menu_size, hints);
   return(0);
}

You are viewing proxied material from gopher.661.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.