home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / m / multimod / !MultiMod / c / gen < prev    next >
Encoding:
Text File  |  1992-11-16  |  11.1 KB  |  432 lines
  1. /* gen.c */
  2.  
  3. /* Contains routines which I have finished with */
  4.  
  5. #include "all.h"
  6.  
  7. static void mark_settitle(wimp_w w,char *title,int withstar)
  8. {
  9.         char buf[308];
  10.  
  11.         sprintf(buf,"Multi Module: %s%s",title,withstar ? " *" : "");
  12.         win_settitle(w,buf);
  13. }
  14.  
  15. void mark_changed(int handle)
  16. { mark_settitle(data[handle]->w,data[handle]->filename,data[handle]->changed = 1); }
  17.  
  18. void mark_unchanged(int handle)
  19. { mark_settitle(data[handle]->w,data[handle]->filename,data[handle]->changed = 0); }
  20.  
  21.  
  22. BOOL save_empty_mm(char *name,void *handle)
  23. {
  24.         int h;
  25.  
  26.         h = allocate_named_window(name);
  27.         return h == -1 ? FALSE : save_mm(name, (void *)h);
  28. }
  29.  
  30. char *suggest(int f)
  31. {
  32.         return (strcmp(data[f]->filename,"<Untitled>")==0) ?
  33.                 "Collection" :
  34.                 data[f]->filename;
  35. }
  36.  
  37. void handler(void *handle, char *hit)
  38. {
  39.         int f = (int) handle;
  40.  
  41.         switch (hit[0])
  42.         {
  43.         case mm_menu_disp: switch (hit[1])
  44.                            {
  45.                              case sorting_none    :
  46.                              case sorting_alpha   :
  47.                              case sorting_size    :
  48.                              case sorting_revsize :
  49.                                 if (data[f]->sort != hit[1])
  50.                                 {
  51.                                         data[f]->sort = hit[1];
  52.                                         setflags(f);
  53.                                         resort(f);
  54.                                         force_redraw(f);
  55.                                 }
  56.                                 break;
  57.  
  58.                              case display_fullinfo:
  59.                              case display_small   :
  60.                              case display_large   :
  61.                                 if (data[f]->disp != hit[1])
  62.                                 {
  63.                                         data[f]->disp = hit[1];
  64.                                         setflags(f);
  65.                                         resize_window(f);
  66.                                         force_redraw(f);
  67.                                 }
  68.                            }
  69.                            break;
  70.         case mm_menu_svap: saveas(0xff8,Module_Suggestion,0,save_to_absolute,0
  71.                                         ,print_info,(void *)f); break;
  72.         case mm_menu_save: saveas(MultiModule_FileType,suggest(f),
  73.                                   sizeof(single_file_info),
  74.                                   save_mm,0,print_info,(void *)f); break;
  75.         case mm_menu_del : delete_module(f); break;
  76.         case mm_menu_quit: if (verify_quit()) exit(0);
  77.         }
  78. }
  79.  
  80. void setflags(int handle)
  81. {
  82.         SFI d        = data[handle];
  83.         int dispmode = d->disp;
  84.         int sortmode = d->sort;
  85.         int f;
  86.  
  87.         for (f = display_large; f <= display_fullinfo; f++)
  88.                 menu_setflags(disp_menu,f,dispmode == f ? 1 : 0,0);
  89.  
  90.         for (f = sorting_none; f <= sorting_revsize; f++)
  91.                 menu_setflags(disp_menu,f,sortmode == f ? 1 : 0,0);
  92. }
  93.  
  94. void data_handler(int i, wimp_w w)
  95. {
  96.         win_register_event_handler(w, data_win_handler, (void *)i);
  97.         event_attachmenumaker(w,maker,handler,(void *)i);
  98. }
  99.  
  100. void blank_data(SFI d)
  101. {
  102.         int i;
  103.         char *j = (char *) d;
  104.  
  105.         for (i=0; i<sizeof(single_file_info); *j++ = '\0' , i++);
  106.         sprintf(d->ident,IDENT);
  107.         d->version = VERSION_NUMBER;
  108. }
  109.  
  110. BOOL save_mm(char *name, void *handle)
  111. {
  112.         SFI d = data[(int)handle];
  113.         int f = (int) d;
  114.  
  115.         os_regset regs;
  116.  
  117.         d->changed = FALSE;
  118.         if (xfersend_file_is_safe()) strncpy(d->filename,name,256);
  119.         regs.r[0] = 10;
  120.         regs.r[1] = (int) name;
  121.         regs.r[2] = MultiModule_FileType;
  122.         regs.r[4] = f;
  123.         regs.r[5] = f + sizeof(single_file_info);
  124.         os_swi(OS_File,®s);
  125.         if (xfersend_file_is_safe()) mark_unchanged((int)handle); 
  126.                         else         mark_changed((int)handle);
  127.         return TRUE;
  128. }
  129.  
  130. void data_init(void)
  131. {
  132.         int i;
  133.         for (i = 0; i < MaxFiles ; i++)
  134.                 using[i] = FALSE;
  135. }
  136.  
  137. void destroy_data(int i)
  138. {
  139.         if (!using[i]) werr(-1,"Tried to free an unallocated block"); else {
  140.         flex_free((flex_ptr)&data[i]);
  141.         using[i] = FALSE;
  142.         }
  143. }
  144.  
  145. /* Handles 'printing' of a multimod file */
  146.  
  147. int  print_info(char *name, void *handle)  /* returns file type */
  148. {
  149.         FILE *f = fopen(name,"w");
  150.         SFI   d = data[(int)handle];
  151.         int   i;
  152.         int   offset = AUXSIZE;
  153.         char  size[12];
  154.  
  155.         if (f == NULL)
  156.         {
  157.                 werr(0,"Couldn't save data for printing");
  158.                 return xfersend_printFailed;
  159.         }
  160.         fprintf(f,"Printout of contents of '%s' by Multi Module version %s\n\n",
  161.                         d->filename, example_Version_String);
  162.         fprintf(f,"Number of modules in file: %d\n\n",d->entries);
  163.         fprintf(f,"No.  %-16.16s Module Size  Data Offset\n","Module Leaf Name");
  164.  
  165.         calculate_offsets((int)handle);
  166.  
  167.         for (i = 0; i < d->entries; i++)
  168.         {
  169.                 fprintf(f,"%3d: %-16.16s %-11.11s   &%08x\n",
  170.                           i+1, d->m[i].leaf, size_string(d->m[i].size,size), offset);
  171.                 offset += d->m[i].size + 4;
  172.         }
  173.  
  174.         fprintf(f,"\nTotal size of modules : %s\n",size_string(offset-AUXSIZE,size));
  175.         fprintf(f,"Size of auxiliary code: %s\n\n",size_string(AUXSIZE,size));
  176.         fprintf(f,"Total application size: %s\n\n",size_string(offset + AUXSIZE,size));
  177.         fclose(f);
  178.         return 0xfff;
  179. }
  180.  
  181. char *size_string(int size, char *buffer)
  182. {
  183.         os_regset regs;
  184.  
  185.         regs.r[0] = size;
  186.         regs.r[1] = (int) buffer;
  187.         regs.r[2] = 12;
  188.         os_swi(OS_ConvertFixedFileSize,®s);
  189.         return buffer;
  190. }
  191.  
  192. int align(int i)
  193. {
  194.         return (i % 4) == 0 ? i : align(i+1);
  195. }
  196.  
  197. void calculate_offsets(int handle)
  198. {
  199.         SFI d = data[handle];
  200.         int i,sum = AUXSIZE + 4;
  201.  
  202.         if (d->entries > 0)
  203.                 for (i = 0; i < d->entries; sum += align(d->m[i++].size) + 4)
  204.                         d->m[i].offset = sum;
  205.  
  206. }
  207.  
  208. void delete_module(int handle)
  209. {
  210.         SFI d = data[handle];
  211.  
  212.         if (d->cm >= d->entries) { werr(0,"Module index doesn't exist"); return; }
  213.         if (d->cm != --d->entries)
  214.         {
  215.                 SMI smibase = &(d->m[d->cm]), sminext = smibase+1;
  216.                 int m;
  217.  
  218.                 for (m = d->cm ; m < d->entries ; m++)
  219.                         *smibase++ = *sminext++;
  220.         }
  221.         mark_changed(handle);
  222.         resize_window(handle);
  223.         force_redraw(handle);
  224. }
  225.  
  226. void add_module(int handle, char *filename)
  227. {
  228.         SFI d = data[handle];
  229.         SMI m = &(d->m[d->entries++]);
  230.         char leaf[12];
  231.         char fsp[256];
  232.         int match;
  233.  
  234.         if ((match = check_duplicates(handle,filename,leaf,fsp)) > -1)
  235.         {
  236.                 werr(0,"Module already in this collection");
  237.                 d->entries--;
  238.                 return;
  239.         }
  240.  
  241.         if (d->entries > MaxModules)
  242.         {        
  243.                 werr(0,"Too many modules (%d) in file",--d->entries);
  244.                 return;
  245.         }        
  246.  
  247.         if ((m->size = filesize(filename)) == -2)
  248.         {
  249.                 d->entries--;
  250.                 werr(0,"Only modules can be dropped in this window");
  251.                 return;
  252.         }
  253.  
  254.         mark_changed(handle);
  255.         m->order = d->next++;
  256.         strcpy(m->leaf,leaf);         /* Set the leaf name up */
  257.         strcpy(m->filename,filename); /* Set the filename up  */
  258.         sprintf(m->display,"%.11s",size_string(m->size,leaf));
  259.         resize_window(handle);
  260. }
  261.  
  262. int check_duplicates(int handle,char *filename,char *copy,char *copy2)
  263. {
  264.         char *leaf = filename;
  265.         char *orig = filename;
  266.         int  i;
  267.         SMI  m = &(data[handle]->m[0]);
  268.  
  269.         while (*filename) if (*filename++ == '.') leaf = filename;
  270.         if ((leaf - filename) > 16)
  271.         {
  272.                 werr(0,"Name too long '%s'",leaf);
  273.                 return -1;
  274.         }
  275.  
  276.         for (i = 0; i<data[handle]->entries; i++, m++)
  277.                 if (strcmp(m->filename,orig) == 0) return i;
  278.  
  279.         strcpy(copy,leaf);
  280.         return -1;
  281. }
  282.  
  283. int filesize(char *filename)
  284. {
  285.         os_filestr o;
  286.  
  287.         o.action = 5;
  288.         o.name   = filename;
  289.         os_file(&o);
  290.         if (o.action != 1) return -2;
  291.         if ((o.loadaddr & 0xffffff00) != (0xfff00000|(Module_FileType<<8))) return -2;
  292.         return o.start;
  293.  
  294. }
  295.  
  296. int lookup_window_bind(wimp_w w)
  297. {
  298.         int i;
  299.  
  300.         for (i = 0; i<MaxFiles; i++)
  301.                 if (using[i])
  302.                         if (data[i]->w == w) return i;
  303.  
  304.         return -1;
  305. }
  306.  
  307. int sumsizes(int handle)
  308. {
  309.         int total = 0;
  310.         int loop;
  311.  
  312.         for (loop = 0; loop < data[handle]->entries; loop++)
  313.                 total += data[handle]->m[loop].size;
  314.  
  315.         return total;
  316. }
  317.  
  318. void force_redraw(int handle)
  319. {
  320.         wimp_redrawstr r;
  321.         wimp_wstate state;
  322.         coords_cvtstr    c;
  323.  
  324.         r.w = data[handle]->w;
  325.         wimp_getwindowoutline(&r);
  326.         wimp_get_wind_state(r.w,&state);
  327.         c.box = state.o.box;
  328.         c.scx = state.o.x;
  329.         c.scy = state.o.y;
  330.         coords_box_toworkarea(&r.box ,&c);
  331.         wimp_force_redraw(&r);
  332. }
  333.  
  334. int longest(int handle)
  335. {
  336.         int i;
  337.         SFI d = data[handle];
  338.         SMI m = &(d->m[0]);
  339.         int h = 0;
  340.         int r;
  341.  
  342.         for (i = 0; i < d->entries; i++, m++)
  343.                 h = (r = strlen(m->filename)) > h ? r : h;
  344.  
  345.         return h;
  346. }
  347.  
  348. int smaller(int a,int b)
  349. {
  350.         return (a > b) ? b : a;
  351. }
  352.  
  353. int larger(int a, int b)
  354. {
  355.         return (a > b) ? a : b;
  356. }
  357.  
  358. int gbpb(int file, void *ptr, int amount, int at)
  359. {
  360.         os_gbpbstr g;
  361.  
  362.         g.action      = (at == -1) ? 2 : 1;
  363.         g.file_handle = file;
  364.         g.data_addr   = ptr;
  365.         g.number      = amount;
  366.         g.seq_point   = at;
  367.  
  368.         os_gbpb(&g);
  369.  
  370.         if (g.number)
  371.         {
  372.                 werr(0,"Save failed");
  373.                 return -1;
  374.         }
  375.         return g.seq_point;
  376. }
  377.  
  378. int readb(int file, void *ptr, int amount, int at)
  379. {
  380.         os_gbpbstr g;
  381.  
  382.         g.action      = (at == -1) ? 4 : 3;
  383.         g.file_handle = file;
  384.         g.data_addr   = ptr;
  385.         g.number      = amount;
  386.         g.seq_point   = at;
  387.  
  388.         os_gbpb(&g);
  389.  
  390.         if (g.number)
  391.         {
  392.                 werr(0,"Load failed");
  393.                 return -1;
  394.         }
  395.         return g.seq_point;
  396. }
  397.  
  398. #define BUFFER_SIZE 8192
  399. char buffer[BUFFER_SIZE];
  400.  
  401. int copyb(int source, int dest)
  402. {
  403.         os_gbpbstr p;
  404.  
  405.         do
  406.         {
  407.         p.action = 4;
  408.         p.file_handle = source;
  409.         p.data_addr   = buffer;
  410.         p.number      = BUFFER_SIZE;
  411.  
  412.         os_gbpb(&p);
  413.         if (p.number < BUFFER_SIZE)
  414.                 if (gbpb(dest,buffer,BUFFER_SIZE - p.number, -1) == -1) return FALSE;
  415.         } while (p.number == 0);
  416.  
  417.         return TRUE;
  418. }
  419.  
  420. #define DBOX_QUIT "You have unsaved data in %d file%s. Are you sure you want to quit?"
  421.  
  422. BOOL verify_quit(void)
  423. {
  424.         char qbuf[256];
  425.         int total = 0,i;
  426.  
  427.         for (i=0; i<MaxFiles; i++) if (using[i]) if (data[i]->changed) total++;
  428.  
  429.         sprintf(qbuf,DBOX_QUIT,total,total == 1 ? "" : "s");
  430.         return (total ? dboxquery(qbuf) == dboxquery_YES : TRUE);
  431. }
  432.