source: rtems-graphics-toolkit/fltk-1.3.0/test/demo.cxx @ 46c28a1

Last change on this file since 46c28a1 was 46c28a1, checked in by Alexandru-Sever Horin <alex.sever.h@…>, on Jul 8, 2012 at 1:00:23 PM

Hello World building and running for rtems

  • Property mode set to 100644
File size: 12.2 KB
Line 
1//
2// "$Id: demo.cxx 8252 2011-01-11 10:36:44Z manolo $"
3//
4// Main demo program for the Fast Light Tool Kit (FLTK).
5//
6// Copyright 1998-2010 by Bill Spitzak and others.
7//
8// This library is free software; you can redistribute it and/or
9// modify it under the terms of the GNU Library General Public
10// License as published by the Free Software Foundation; either
11// version 2 of the License, or (at your option) any later version.
12//
13// This library is distributed in the hope that it will be useful,
14// but WITHOUT ANY WARRANTY; without even the implied warranty of
15// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16// Library General Public License for more details.
17//
18// You should have received a copy of the GNU Library General Public
19// License along with this library; if not, write to the Free Software
20// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
21// USA.
22//
23// Please report all bugs and problems on the following page:
24//
25//     http://www.fltk.org/str.php
26//
27
28#include <stdio.h>
29#include <string.h>
30#include <stdlib.h>
31#if defined(WIN32) && !defined(__CYGWIN__)
32#  include <direct.h>
33#  ifndef __WATCOMC__
34// Visual C++ 2005 incorrectly displays a warning about the use of POSIX APIs
35// on Windows, which is supposed to be POSIX compliant...
36#    define chdir _chdir
37#    define putenv _putenv
38#  endif // !__WATCOMC__
39#elif defined USING_XCODE
40#include <ApplicationServices/ApplicationServices.h>
41#include <unistd.h> // for chdir()
42#include <stdio.h>
43#include <stdlib.h> // for system()
44#include <string.h>
45#else
46#  include <unistd.h>
47#endif
48#include <FL/Fl.H>
49#include <FL/Fl_Double_Window.H>
50#include <FL/Fl_Box.H>
51#include <FL/Fl_Button.H>
52#include <FL/Fl_Choice.H>
53#include <FL/filename.H>
54#include <FL/x.H>
55
56/* The form description */
57
58void doexit(Fl_Widget *, void *);
59void doback(Fl_Widget *, void *);
60void dobut(Fl_Widget *, long);
61void doscheme(Fl_Choice *c, void *) {
62  Fl::scheme(c->text(c->value()));
63}
64
65Fl_Double_Window *form;
66Fl_Button *but[9];
67
68void create_the_forms() {
69  Fl_Widget *obj;
70  form = new Fl_Double_Window(350, 440);
71  obj = new Fl_Box(FL_FRAME_BOX,10,15,330,40,"FLTK Demonstration");
72  obj->color(FL_GRAY-4);
73  obj->labelsize(24);
74  obj->labelfont(FL_BOLD);
75  obj->labeltype(FL_ENGRAVED_LABEL);
76  obj = new Fl_Box(FL_FRAME_BOX,10,65,330,330,0);
77  obj->color(FL_GRAY-8);
78  obj = new Fl_Button(280,405,60,25,"Exit");
79  obj->callback(doexit);
80  Fl_Choice *choice = new Fl_Choice(75, 405, 100, 25, "Scheme:");
81  choice->labelfont(FL_HELVETICA_BOLD);
82  choice->add("none");
83  choice->add("gtk+");
84  choice->add("plastic");
85  choice->callback((Fl_Callback *)doscheme);
86  Fl::scheme(NULL);
87  if (!Fl::scheme()) choice->value(0);
88  else if (!strcmp(Fl::scheme(), "gtk+")) choice->value(1);
89  else choice->value(2);
90  obj = new Fl_Button(10,15,330,380); obj->type(FL_HIDDEN_BUTTON);
91  obj->callback(doback);
92  obj = but[0] = new Fl_Button( 30, 85,90,90);
93  obj = but[1] = new Fl_Button(130, 85,90,90);
94  obj = but[2] = new Fl_Button(230, 85,90,90);
95  obj = but[3] = new Fl_Button( 30,185,90,90);
96  obj = but[4] = new Fl_Button(130,185,90,90);
97  obj = but[5] = new Fl_Button(230,185,90,90);
98  obj = but[6] = new Fl_Button( 30,285,90,90);
99  obj = but[7] = new Fl_Button(130,285,90,90);
100  obj = but[8] = new Fl_Button(230,285,90,90);
101  for (int i=0; i<9; i++) {
102    but[i]->align(FL_ALIGN_WRAP);
103    but[i]->callback(dobut, i);
104  }
105  form->end();
106}
107
108/* Maintaining and building up the menus. */
109
110typedef struct {
111  char name[64];
112  int numb;
113  char iname[9][64];
114  char icommand[9][64];
115} MENU;
116
117#define MAXMENU 32
118
119MENU menus[MAXMENU];
120int mennumb = 0;
121
122int find_menu(const char* nnn)
123/* Returns the number of a given menu name. */
124{
125  int i;
126  for (i=0; i<mennumb; i++)
127    if (strcmp(menus[i].name,nnn) == 0) return i;
128  return -1;
129}
130
131void create_menu(const char* nnn)
132/* Creates a new menu with name nnn */
133{
134  if (mennumb == MAXMENU -1) return;
135  strcpy(menus[mennumb].name,nnn);
136  menus[mennumb].numb = 0;
137  mennumb++;
138}
139
140void addto_menu(const char* men, const char* item, const char* comm)
141/* Adds an item to a menu */
142{
143  int n = find_menu(men);
144  if (n<0) { create_menu(men); n = find_menu(men); }
145  if (menus[n].numb == 9) return;
146  strcpy(menus[n].iname[menus[n].numb],item);
147  strcpy(menus[n].icommand[menus[n].numb],comm);
148  menus[n].numb++;
149}
150
151/* Button to Item conversion and back. */
152
153int b2n[][9] = {
154        { -1, -1, -1, -1,  0, -1, -1, -1, -1},
155        { -1, -1, -1,  0, -1,  1, -1, -1, -1},
156        {  0, -1, -1, -1,  1, -1, -1, -1,  2},
157        {  0, -1,  1, -1, -1, -1,  2, -1,  3},
158        {  0, -1,  1, -1,  2, -1,  3, -1,  4},
159        {  0, -1,  1,  2, -1,  3,  4, -1,  5},
160        {  0, -1,  1,  2,  3,  4,  5, -1,  6},
161        {  0,  1,  2,  3, -1,  4,  5,  6,  7},
162        {  0,  1,  2,  3,  4,  5,  6,  7,  8}
163};
164int n2b[][9] = {
165        {  4, -1, -1, -1, -1, -1, -1, -1, -1},
166        {  3,  5, -1, -1, -1, -1, -1, -1, -1},
167        {  0,  4,  8, -1, -1, -1, -1, -1, -1},
168        {  0,  2,  6,  8, -1, -1, -1, -1, -1},
169        {  0,  2,  4,  6,  8, -1, -1, -1, -1},
170        {  0,  2,  3,  5,  6,  8, -1, -1, -1},
171        {  0,  2,  3,  4,  5,  6,  8, -1, -1},
172        {  0,  1,  2,  3,  5,  6,  7,  8, -1},
173        {  0,  1,  2,  3,  4,  5,  6,  7,  8}
174};
175
176int but2numb(int bnumb, int maxnumb)
177/* Transforms a button number to an item number when there are
178 maxnumb items in total. -1 if the button should not exist. */
179{ return b2n[maxnumb][bnumb]; }
180
181int numb2but(int inumb, int maxnumb)
182/* Transforms an item number to a button number when there are
183 maxnumb items in total. -1 if the item should not exist. */
184{ return n2b[maxnumb][inumb]; }
185
186/* Pushing and Popping menus */
187
188char stack[64][32];
189int stsize = 0;
190
191void push_menu(const char* nnn)
192/* Pushes a menu to be visible */
193{
194  int n,i,bn;
195  int men = find_menu(nnn);
196  if (men < 0) return;
197  n = menus[men].numb;
198  for (i=0; i<9; i++) but[i]->hide();
199  for (i=0; i<n; i++)
200  {
201    bn = numb2but(i,n-1);
202    but[bn]->show();
203    but[bn]->label(menus[men].iname[i]);
204    if (menus[men].icommand[i][0] != '@') but[bn]->tooltip(menus[men].icommand[i]);
205    else but[bn]->tooltip(0);
206  }
207  if (stack[stsize]!=nnn)
208    strcpy(stack[stsize],nnn);
209  stsize++;
210}
211
212void pop_menu()
213/* Pops a menu */
214{
215  if (stsize<=1) return;
216  stsize -= 2;
217  push_menu(stack[stsize]);
218}
219
220/* The callback Routines */
221
222void dobut(Fl_Widget *, long arg)
223/* handles a button push */
224{
225  int men = find_menu(stack[stsize-1]);
226  int n = menus[men].numb;
227  int bn = but2numb( (int) arg, n-1);
228  if (menus[men].icommand[bn][0] == '@')
229    push_menu(menus[men].icommand[bn]);
230  else {
231   
232#ifdef WIN32
233    STARTUPINFO         suInfo;         // Process startup information
234    PROCESS_INFORMATION prInfo;         // Process information
235   
236    memset(&suInfo, 0, sizeof(suInfo));
237    suInfo.cb = sizeof(suInfo);
238   
239    int icommand_length = strlen(menus[men].icommand[bn]);
240   
241    char* copy_of_icommand = new char[icommand_length+1];
242    strcpy(copy_of_icommand,menus[men].icommand[bn]);
243   
244    // On WIN32 the .exe suffix needs to be appended to the command
245    // whilst leaving any additional parameters unchanged - this
246    // is required to handle the correct conversion of cases such as :
247    // `../fluid/fluid valuators.fl' to '../fluid/fluid.exe valuators.fl'.
248   
249    // skip leading spaces.
250    char* start_command = copy_of_icommand;
251    while(*start_command == ' ') ++start_command;
252   
253    // find the space between the command and parameters if one exists.
254    char* start_parameters = strchr(start_command,' ');
255   
256    char* command = new char[icommand_length+6]; // 6 for extra 'd.exe\0'
257   
258    if (start_parameters==NULL) { // no parameters required.
259#  ifdef _DEBUG
260      sprintf(command, "%sd.exe", start_command);
261#  else
262      sprintf(command, "%s.exe", start_command);
263#  endif // _DEBUG
264    } else { // parameters required.
265      // break the start_command at the intermediate space between
266      // start_command and start_parameters.
267      *start_parameters = 0;
268      // move start_paremeters to skip over the intermediate space.
269      ++start_parameters;
270     
271#  ifdef _DEBUG
272      sprintf(command, "%sd.exe %s", start_command, start_parameters);
273#  else
274      sprintf(command, "%s.exe %s", start_command, start_parameters);
275#  endif // _DEBUG
276    }
277   
278    CreateProcess(NULL, command, NULL, NULL, FALSE,
279                  NORMAL_PRIORITY_CLASS, NULL, NULL, &suInfo, &prInfo);
280   
281    delete[] command;
282    delete[] copy_of_icommand;
283   
284#elif defined USING_XCODE
285    char *cmd = strdup(menus[men].icommand[bn]);
286    char *arg = strchr(cmd, ' ');
287   
288    char command[2048], path[2048], app_path[2048];
289   
290    // this neat litle block of code ensures that the current directory is set
291    // to the location of the Demo application.
292    CFBundleRef app = CFBundleGetMainBundle();
293    CFURLRef url = CFBundleCopyBundleURL(app);   
294    CFStringRef cc_app_path = CFURLCopyFileSystemPath(url, kCFURLPOSIXPathStyle);
295    CFStringGetCString(cc_app_path, app_path, 2048, kCFStringEncodingUTF8);
296    if (*app_path) {
297      char *n = strrchr(app_path, '/');
298      if (n) {
299        *n = 0;
300        chdir(app_path);
301      }
302    }
303   
304    if (arg) {
305      *arg = 0;
306      if (strcmp(cmd, "../fluid/fluid")==0) {
307        fl_filename_absolute(path, 2048, "../../../../test/");
308        sprintf(command, "open Fluid.app --args %s%s", path, arg+1);
309      } else {
310        fl_filename_absolute(path, 2048, "../../../../test/");
311        sprintf(command, "open %s.app --args %s%s", cmd, path, arg+1);
312      }
313    } else {
314      sprintf(command, "open %s.app", cmd);
315    }
316//    puts(command);   
317    system(command);
318   
319    free(cmd);
320#else // NON WIN32 systems.
321   
322    int icommand_length = strlen(menus[men].icommand[bn]);
323    char* command = new char[icommand_length+5]; // 5 for extra './' and ' &\0'
324   
325    sprintf(command, "./%s &", menus[men].icommand[bn]);
326    if (system(command)==-1) { /* ignore */ }
327   
328    delete[] command;
329#endif // WIN32
330  }
331}
332
333void doback(Fl_Widget *, void *) {pop_menu();}
334
335void doexit(Fl_Widget *, void *) {exit(0);}
336
337int load_the_menu(const char* fname)
338/* Loads the menu file. Returns whether successful. */
339{
340  FILE *fin = 0;
341  char line[256], mname[64],iname[64],cname[64];
342  int i, j;
343  fin = fl_fopen(fname,"r");
344#if defined ( USING_XCODE )
345  if (fin == NULL) {
346    // mac os bundle menu detection:
347    char* pos = strrchr(fname,'/');
348    if (!pos) return 0;
349    *pos='\0';
350    pos = strrchr(fname,'/');
351    if (!pos) return 0;
352    strcpy(pos,"/Resources/demo.menu");
353    fin  = fl_fopen(fname,"r");
354  }
355#endif
356  if (fin == NULL) {
357    return 0;
358  }
359  for (;;) {
360    if (fgets(line,256,fin) == NULL) break;
361    // remove all carriage returns that Cygwin may have inserted
362    char *s = line, *d = line;
363    for (;;++d) {
364      while (*s=='\r') s++;
365      *d = *s++;
366      if (!*d) break;
367    }
368    // interprete the line
369    j = 0; i = 0;
370    while (line[i] == ' ' || line[i] == '\t') i++;
371    if (line[i] == '\n') continue;
372    if (line[i] == '#') continue;
373    while (line[i] != ':' && line[i] != '\n') mname[j++] = line[i++];
374    mname[j] = '\0';
375    if (line[i] == ':') i++;
376    j = 0;
377    while (line[i] != ':' && line[i] != '\n')
378    {
379      if (line[i] == '\\') {
380        i++;
381        if (line[i] == 'n') iname[j++] = '\n';
382        else iname[j++] = line[i];
383        i++;
384      } else
385        iname[j++] = line[i++];
386    }
387    iname[j] = '\0';
388    if (line[i] == ':') i++;
389    j = 0;
390    while (line[i] != ':' && line[i] != '\n') cname[j++] = line[i++];
391    cname[j] = '\0';
392    addto_menu(mname,iname,cname);
393  }
394  fclose(fin);
395  return 1;
396}
397
398extern "C" int rtems_main(int argc, char **argv) {
399  putenv((char *)"FLTK_DOCDIR=../documentation/html");
400  char buf[FL_PATH_MAX];
401  strcpy(buf, argv[0]);
402#if ( defined _MSC_VER || defined __MWERKS__ ) && defined _DEBUG
403  // MS_VisualC appends a 'd' to debugging executables. remove it.
404  fl_filename_setext( buf, "" );
405  buf[ strlen(buf)-1 ] = 0;
406#endif
407  fl_filename_setext(buf,".menu");
408  const char *fname = buf;
409  int i = 0;
410  if (!Fl::args(argc,argv,i) || i < argc-1)
411    Fl::fatal("Usage: %s <switches> <menufile>\n%s",argv[0],Fl::help);
412  if (i < argc) fname = argv[i];
413 
414  create_the_forms();
415 
416  if (!load_the_menu(fname)) Fl::fatal("Can't open %s",fname);
417  if (buf!=fname)
418    strcpy(buf,fname);
419  const char *c = fl_filename_name(buf);
420  if (c > buf) {
421    buf[c-buf] = 0;
422    if (chdir(buf)==-1) { /* ignore */ }
423  }
424  push_menu("@main");
425  form->show(argc,argv);
426  Fl::run();
427  return 0;
428}
429
430//
431// End of "$Id: demo.cxx 8252 2011-01-11 10:36:44Z manolo $".
432//
433
Note: See TracBrowser for help on using the repository browser.