home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_6 / issue_06 / cfrombasic / c / cexample
Encoding:
Text File  |  1993-01-24  |  5.5 KB  |  172 lines
  1. /* C Example version 1.00 by Thomas Down */
  2.  
  3. /* Tell system which parts of libraries you want to use */
  4.                    
  5. /* From standard library */
  6.  
  7. #include <stdlib.h>   /* Standard functions */
  8.  
  9. /* For RISC OS Libraries */
  10.  
  11. #include "wimp.h"     /* Low level WIMP access, equivalent to SYS's in Basic */
  12. #include "event.h"    /* Event handling */
  13. #include "win.h"      /* Window class, and more event handling */
  14. #include "dbox.h"     /* Dialog boxes */
  15. #include "menu.h"     /* Menu creation */
  16. #include "res.h"      /* Resource handling */       
  17. #include "sprite.h"   /* Sprite handling */
  18. #include "resspr.h"   /* Sprite resource handling */
  19. #include "template.h" /* Window resource handling */
  20. #include "baricon.h"  /* To put an icon on the iconbar! */
  21. #include "wimpt.h"    /* Wimp task handling */
  22. #include "werr.h"     /* WIMP error boxes */
  23.  
  24. /* This is a list of 'Function prototypes', telling the compiler about functions later */
  25. /* in the program. Doing this means that C does not have to be a two pass compiler */
  26.  
  27. void init(void);
  28. void bar_click(wimp_i i);
  29. void barmenu_select(void *,char *);
  30. void box_click(dbox,void *);
  31.  
  32. /* These are the declarations for global variables (variables which can be used by all the */
  33. /* differant functions). All variables in C must be declared before they can be used */
  34.  
  35. menu barmen;
  36. dbox box;
  37. BOOL boxon;
  38. BOOL hello=FALSE;
  39.  
  40. /* Main program, the equivalent of the first, non-procedure, part of a BASIC program */
  41.  
  42. int main(void)
  43. {
  44.   /* Initialise */
  45.   
  46.   init();
  47.   
  48.   /* Polling loop */
  49.  
  50.   for(;;)
  51.     event_process();
  52.     
  53.   return(0); /* Included for correctness. Never needed */
  54. }
  55.  
  56. /* Initialise */
  57.  
  58. void init(void)
  59. { 
  60.   /* Initialise library modules */
  61.   
  62.   wimpt_init("C Example"); /* Do WIMP_Initialise then initialise window module */
  63.   res_init("cexam");       /* Inform system that resources can be found at <cexam$dir>. */ 
  64.   resspr_init();           /* Load Sprites file */
  65.   template_init();         /* Load Templates file */
  66.   dbox_init();
  67.   
  68.   /* The next line installs an icon on the iconbar. !c example is the sprite name, */
  69.   /* (int)resspr_area() gives a pointer to the sprite pool, */
  70.   /* bar_click is the name of the function to call when the iconbar is clicked on */
  71.   
  72.   baricon("!c example",(int)resspr_area(),bar_click);
  73.   
  74.   /* The next two lines create a menu and attach it to the icon bar. barmenu_select */
  75.   /* is the function to call when an option is chosen from the menu. */
  76.   
  77.   barmen=menu_new("C Example",">Info,Quit");
  78.   event_attachmenu(win_ICONBAR,barmen,barmenu_select,0);
  79.   
  80.   /* Create a dialog box from the template "mainbox" */
  81.   
  82.   box=dbox_new("mainbox");
  83.   boxon=FALSE;
  84. }
  85.  
  86. /* This function is called when the iconbar icon is clicked. It is passed a handle for */
  87. /* the iconbar icon. It is not used, so the line i=i prevents the compiler complaining */
  88.  
  89. void bar_click(wimp_i i)
  90. {
  91.   i=i;
  92.   
  93.   if(boxon==FALSE)
  94.   {
  95.     dbox_showstatic(box);                /* Show dialog box 'box' */
  96.     dbox_eventhandler(box,box_click,0);  /* Install an event handler for it */
  97.     boxon=TRUE;
  98.   }
  99. }
  100.  
  101. /* This function is called whenever a selection is made from the iconbar menu. */
  102. /* char hit[], means it takes an array of chars (small integers) */
  103. /* C uses [] instead of () for arrays */
  104.  
  105. void barmenu_select(void *v,char hit[])
  106. {     
  107.   dbox proginfo;
  108.   
  109.   v=v;
  110.  
  111.   switch(hit[0]) {
  112.     case 1:
  113.       /* This creates the information dialog box, displays it, waits, then removes it */ 
  114.       proginfo=dbox_new("progInfo");
  115.       dbox_show(proginfo);
  116.       dbox_fillin(proginfo);
  117.       dbox_dispose(&proginfo);
  118.       break;
  119.     case 2:
  120.       /* The next line is C's equivalent of END in a Basic program. Note that no */
  121.       /* Wimp_CloseDown is used. If wimpt_init() is used to start the task, an exit */
  122.       /* handler is defined which automatically tidies up before the program shuts down */
  123.       exit(0); 
  124.       break;
  125.   }
  126. }
  127.  
  128. /* This function is called is the mouse is clicked in the dialog box */
  129.  
  130. void box_click(dbox d,void *v)
  131. {     
  132.   char string[20];
  133.   dbox_field df;
  134.   
  135.   v=v;
  136.   df=dbox_get(d);   /* Find out which icon has been clicked on */
  137.   
  138.   switch(df) {
  139.     case -1:
  140.       /* Field -1 is always the close icon, so hide the dialog box */
  141.       dbox_hide(d);
  142.       boxon=FALSE;
  143.       break;
  144.     case 1:
  145.       hello=!hello;
  146.       dbox_setnumeric(d,1,hello);
  147.       break;
  148.     case 2:
  149.       /* Get the text from icon 0 into char array 'string' */
  150.       dbox_getfield(d,0,string,16);
  151.       
  152.       /* werr(0,...) displays a non-fatal error or message. It is used in a similar way */
  153.       /* to the C PRINT function printf(). The first argument is werr() specific and is */
  154.       /* a flag specifying whether the error is fatal. The next argument is the so called */
  155.       /* formatting string. It is the string which is octually output. Variables are */
  156.       /* merged into the format string by CONVERSION CODES, which are a '%' followed by */
  157.       /* a letter representing variable type, 's' for string, 'd' for decimal integer etc. */
  158.       /* Conversion codes are replaced by any subsequent arguments to the function. In */
  159.       /* this case, there are two conversion arguments. The second is simply a char array */
  160.       /* (string). The first is more interesting, and is an example of the useful */
  161.       /* x ? y : z operator in C. Basically, the expression 'x' is evaluated. It it is */
  162.       /* TRUE, the whole sequence is equal to 'y', otherwise it is equal to 'z' */
  163.       
  164.       werr(0,"box on, %s, %s",(hello==TRUE) ? "Hello" : "Goodbye",string);
  165.       break;
  166.   }
  167. }
  168.  
  169.  
  170.  
  171.  
  172.