?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
added concrete implementations of putc(), getc(), getchar() and gets()
[tangerine.git] / workbench / system / Wanderer / Tools / Info / main.c
blobd59b5ff2fd696834120378e826d4872ac717d5bf
1 /*
2 Copyright © 2003, The AROS Development Team. All rights reserved.
3 $Id$
4 */
5
6 #define MUIMASTER_YES_INLINE_STDARG
7
8 #define DEBUG 0
9 #include <aros/debug.h>
10
11 #include <proto/exec.h>
12 #include <proto/intuition.h>
13 #include <proto/muimaster.h>
14 #include <proto/workbench.h>
15 #include <proto/dos.h>
16 #include <proto/alib.h>
17 #include <proto/icon.h>
18
19 #include <dos/dos.h>
20 #include <dos/datetime.h>
21 #include <exec/memory.h>
22 #include <libraries/asl.h>
23 #include <libraries/commodities.h>
24 #include <libraries/mui.h>
25 #include <workbench/startup.h>
26 #include <workbench/workbench.h>
27 #include <workbench/icon.h>
28 #include <devices/inputevent.h>
29
30 #include <mui/TextEditor_mcc.h>
31 #include <zune/iconimage.h>
32
33 #include "locale.h"
34
35 #include <stdio.h>
36
37 #include <string.h>
38
39 #define RETURNID_SLEEP 1
40 #define RETURNID_WAKE 2
41 #define RETURNID_ABOUT 3
42 #define RETURNID_NEWKEY 4
43 #define RETURNID_DELKEY 5
44 #define RETURNID_LVACK 6
45 #define RETURNID_STRINGACK 7
46 #define RETURNID_SAVE 8
47 #define RETURNID_TOOLACK 9
48 #define RETURNID_STACKACK 10
49 #define RETURNID_COMMENTACK 11
50 #define RETURNID_VERSION 12
51
52 //#define VERSION "$VER: Info 0.1 ("ADATE") © AROS Dev Team"
53
54 #define MAX_PATH_LEN 1024
55 #define MAX_TOOLTYPE_LINE 256
56 #define BUFFERSIZE 1024
57
58 #define USE_TEXTEDITOR 1
59
60 static Object *window, *commentspace, *filename_string, *stackspace, *savebutton;
61 #if USE_TEXTEDITOR
62 static Object *editor, *slider;
63 #else
64 static Object *list, *editor, *liststr;
65 #endif
66
67 BOOL file_altered = FALSE;
68 BOOL icon_altered = FALSE;
69
70 UBYTE **BuildToolTypes(UBYTE **src_ttypes)
71 {
72 #if USE_TEXTEDITOR
73 APTR pool = CreatePool(MEMF_CLEAR, 200, 200);
74 STRPTR contents, sp, *dst_ttypes;
75 ULONG lines = 1;
76
77 if (!pool) return NULL;
78 contents = (STRPTR)DoMethod(editor, MUIM_TextEditor_ExportText);
79
80 if (!contents || !contents[0])
81 {
82 DeletePool(pool);
83 return NULL;
84 }
85
86 sp = contents;
87
88 while((sp = strchr(sp, '\n')))
89 {
90 sp++;
91 lines++;
92 }
93
94 dst_ttypes = AllocPooled(pool, (lines + 3) * sizeof(STRPTR));
95 if (!dst_ttypes)
96 {
97 FreeVec(contents);
98 DeletePool(pool);
99 return NULL;
100 }
101
102 *dst_ttypes++ = (STRPTR)pool;
103 *dst_ttypes++ = (STRPTR)contents;
104
105 for(sp = contents, lines = 0; sp; lines++)
106 {
107 dst_ttypes[lines] = sp;
108 sp = strchr(sp, '\n');
109 if (sp)
110 {
111 *sp++ = '\0';
112 }
113 else
114 {
115 dst_ttypes[lines] = 0;
116 }
117 }
118 dst_ttypes[lines] = 0;
119
120 return dst_ttypes;
121 #else
122 APTR pool = CreatePool(MEMF_CLEAR, 200, 200);
123 Object *listobj = list;
124 WORD list_index = 0, num_ttypes = 0, alloc_ttypes = 10;
125 UBYTE **dst_ttypes;
126
127 if (!pool) return NULL;
128
129 dst_ttypes = AllocPooled(pool, (alloc_ttypes + 2) * sizeof(UBYTE *));
130 if (!dst_ttypes)
131 {
132 DeletePool(pool);
133 return NULL;
134 }
135
136 get(listobj, MUIA_List_Entries, &list_index);
137 while(num_ttypes<list_index)
138 {
139 STRPTR text = NULL;
140 DoMethod(listobj, MUIM_List_GetEntry, num_ttypes, (IPTR)&text);
141 if (num_ttypes >= alloc_ttypes)
142 {
143 UBYTE **new_dst_ttypes = AllocPooled(pool, (alloc_ttypes + 10 + 2) * sizeof(UBYTE *));
144 if (!new_dst_ttypes)
145 {
146 DeletePool(pool);
147 return NULL;
148 }
149 CopyMem(dst_ttypes + 1, new_dst_ttypes + 1, alloc_ttypes * sizeof(UBYTE *));
150 dst_ttypes = new_dst_ttypes;
151 alloc_ttypes += 10;
152 }
153 dst_ttypes[num_ttypes + 1] = AllocPooled(pool, strlen(text) + 1);
154 if (!dst_ttypes[num_ttypes + 1])
155 {
156 DeletePool(pool);
157 return NULL;
158 }
159 CopyMem(text, dst_ttypes[num_ttypes + 1], strlen(text) + 1);
160 D(bug("[WBInfo] tooltype #%ld %s\n", num_ttypes + 1, text));
161 num_ttypes++;
162 }
163 dst_ttypes[0] = (APTR)pool;
164 return dst_ttypes + 1;
165 #endif
166 }
167
168 void FreeToolTypes(UBYTE **ttypes)
169 {
170 #if USE_TEXTEDITOR
171 if (ttypes)
172 {
173 DeletePool((APTR)ttypes[-2]);
174 FreeVec((APTR)ttypes[-1]);
175 }
176 #else
177 if (ttypes)
178 {
179 DeletePool((APTR)ttypes[-1]);
180 }
181 #endif
182 }
183
184 void SaveIcon(struct DiskObject *icon, STRPTR name, BPTR cd)
185 {
186 STRPTR tool = NULL, stack = NULL;
187 BPTR restored_cd;
188 LONG ls;
189 UBYTE **ttypes = NULL, **old_ttypes = NULL;
190
191 restored_cd = CurrentDir(cd);
192
193 switch(icon->do_Type)
194 {
195 case WBPROJECT:
196 get(filename_string, MUIA_String_Contents, &tool);
197 icon->do_DefaultTool = tool;
198 break;
199 case WBTOOL:
200 get(stackspace, MUIA_String_Contents, &stack);
201 stcd_l(stack, &ls);
202 icon->do_StackSize = ls;
203 break;
204 }
205
206 old_ttypes = (UBYTE **)icon->do_ToolTypes;
207 if ((ttypes = BuildToolTypes(old_ttypes)))
208 {
209 icon->do_ToolTypes = ttypes;
210 }
211 PutIconTags(name, icon, TAG_DONE);
212 if (ttypes)
213 {
214 icon->do_ToolTypes = old_ttypes;
215 FreeToolTypes(ttypes);
216 }
217 CurrentDir(restored_cd);
218 icon_altered = FALSE;
219 }
220
221 void SaveFile(struct AnchorPath * ap, BPTR cd)
222 {
223 STRPTR text=NULL;
224 BPTR restored_cd;
225 restored_cd = CurrentDir(cd);
226 get(commentspace, MUIA_String_Contents, &text);
227 if (text)
228 SetComment(ap->ap_Buf, text);
229 CurrentDir(restored_cd);
230 file_altered = FALSE;
231 }
232
233 #if !USE_TEXTEDITOR
234 void ListToString(void)
235 {
236 STRPTR text = NULL;
237 DoMethod(list, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR) &text);
238 if (text)
239 {
240 set(liststr, MUIA_String_Contents, text);
241 nnset(liststr, MUIA_Disabled, FALSE);
242 set(window, MUIA_Window_ActiveObject, (IPTR)liststr);
243 }
244 }
245
246 void StringToKey(void)
247 {
248 STRPTR text = NULL;
249 STRPTR input = NULL;
250
251 icon_altered = TRUE;
252
253 DoMethod(list, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR) &text);
254 if (text)
255 {
256 get(liststr, MUIA_String_Contents, &input);
257 DoMethod(list, MUIM_List_InsertSingle, input, MUIV_List_Insert_Active);
258 set(list, MUIA_List_Active, MUIV_List_Active_Down);
259 DoMethod(list, MUIM_List_Remove, MUIV_List_Remove_Active);
260 nnset(liststr, MUIA_String_Contents, (IPTR) "");
261 nnset(liststr, MUIA_Disabled, TRUE);
262 set(window, MUIA_Window_ActiveObject, (IPTR)savebutton);
263 }
264 }
265
266 void NewKey(void)
267 {
268 nnset(liststr, MUIA_String_Contents, "");
269 nnset(liststr, MUIA_Disabled, FALSE);
270 DoMethod(list, MUIM_List_InsertSingle, "", MUIV_List_Insert_Bottom);
271 nnset(list, MUIA_List_Active, MUIV_List_Active_Bottom);
272 set(window, MUIA_Window_ActiveObject, (IPTR) liststr);
273 }
274
275 void DelKey(void)
276 {
277 STRPTR text = NULL;
278 DoMethod(list, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR)&text);
279
280 if (text)
281 {
282 DoMethod(list, MUIM_List_Remove, MUIV_List_Remove_Active);
283 DoMethod(list, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR)&text);
284 if (!text)
285 {
286 nnset(liststr, MUIA_String_Contents, (IPTR) "");
287 nnset(liststr, MUIA_Disabled, TRUE);
288 ListToString();
289 } else {
290 ListToString();
291 }
292 }
293 }
294 #endif
295
296 static char * GetVersion(STRPTR name, BPTR cd)
297 {
298 D(bug("[WBINFO/Getversion] Name %s\n", name));
299 STRPTR commandline = NULL;
300 ULONG commandlineSize;
301 static TEXT result[100]; // must be static because we return its address
302 char *retval = result;
303 TEXT tmpfilename[40];
304 int nr = 0;
305 int i;
306 BPTR output = NULL;
307 BPTR restored_cd = (BPTR)-1;
308
309 if (name == NULL)
310 {
311 D(bug("[WBINFO/Getversion] Name is Null\n"));
312 goto exit;
313 }
314
315 memset(result, 0, sizeof(result));
316 result[0] = '?';
317
318 commandlineSize = strlen(name) + 20;
319 commandline = AllocVec(commandlineSize, MEMF_CLEAR);
320 if (commandline == NULL)
321 {
322 D(bug("[WBInfo/GetVersion] Can't allocate RAM for commandline\n"));
323 goto exit;
324 }
325
326 restored_cd = CurrentDir(cd);
327
328 //search for non-existing temp file name
329 do
330 {
331 nr++;
332 if (nr > 30)
333 {
334 D(bug("[WBINFO/Getversion] Can't find non-existing tmpfile"));
335 goto exit;
336 }
337 sprintf(tmpfilename, "t:tmp_version_%d", nr);
338 output = Open(tmpfilename, MODE_OLDFILE);
339 if (output)
340 {
341 Close(output);
342 }
343 } while (output != NULL);
344
345 D(bug("[WBInfo/Getversion] tmpfilename %s\n", tmpfilename));
346 output = Open(tmpfilename, MODE_NEWFILE);
347 if (output == NULL)
348 {
349 D(bug("[WBInfo/Getversion] Can't create tmpfile\n"));
350 goto exit;
351 }
352
353 // call c:version
354 sprintf(commandline, "c:version \"%s\" full", name);
355 D(bug("[WBInfo/GetVersion] Commandline %s\n", commandline));
356 if (SystemTags(commandline,
357 SYS_Asynch, FALSE,
358 SYS_Output, (IPTR) output,
359 //SYS_Error, (IPTR) NULL,
360 NP_StackSize, 16000,
361 TAG_DONE) != 0)
362 {
363 D(bug("[WBInfo/Getversion] SystemTags failed\n"));
364 goto exit;
365 }
366
367 // Seek didn't work for me on RAM-Disk, so we reopen the file
368 Close(output);
369 output = Open(tmpfilename, MODE_OLDFILE);
370 if (output == NULL)
371 {
372 D(bug("[WBInfo/GetVersion] Can't open tmpfile\n"));
373 goto exit;
374 }
375 // read result
376 if (Read(output, result, sizeof(result) - 1) == -1)
377 {
378 D(bug("[WBInfo/GetVersion] Can't read from tmpfile\n"));
379 goto exit;
380 }
381 D(bug("[WBInfo/GetVersion] Result %s\n", result));
382
383 // remove illegal chars (e.g. newline) from result
384 for (i = 0 ; result[i] != 0 ; i++)
385 {
386 if (result[i] < 32)
387 result[i] = ' ';
388 }
389
390 // set string pointer after program name
391 while (*retval != ' ')
392 retval++;
393
394 exit:
395 FreeVec(commandline);
396 if (output)
397 {
398 Close(output);
399 DeleteFile(tmpfilename);
400 }
401 if (restored_cd != (BPTR)-1)
402 CurrentDir(restored_cd);
403
404 return retval;
405 }
406
407 int main(int argc, char **argv)
408 {
409 Object *application, *group, *toolspace=NULL, *toollabel=NULL;
410 Object *registergroup=NULL, *infomenu=NULL, *protectmenu=NULL, *toolmenu=NULL;
411 Object *stacklabel=NULL, *drawerspace=NULL;
412 Object *sizespace=NULL, *typespace=NULL, *quit=NULL, *aboutmenu=NULL;
413 Object *datespace=NULL, *versionspace=NULL;
414 Object *cancelbutton=NULL;
415 #if !USE_TEXTEDITOR
416 Object *newkey=NULL, *delkey=NULL;
417 #endif
418 Object *readobject=NULL, *writeobject=NULL, *executeobject=NULL, *deleteobject=NULL;
419 Object *scriptobject=NULL, *pureobject=NULL, *archiveobject=NULL;
420 struct WBStartup *startup;
421 struct DiskObject *icon=NULL;
422 struct AnchorPath *ap=NULL;
423 struct DateStamp *ds=NULL;
424 struct DateTime dt;
425 IPTR dte;
426 STRPTR name=NULL, type=NULL;
427 BPTR cd, lock, icon_cd;
428 LONG returnid = 0;
429 ULONG protection;
430 char stack[16];
431 char deftool[MAX_PATH_LEN];
432 char comment[MAXCOMMENTLENGTH];
433 char size[10];
434 char date[LEN_DATSTRING];
435 char time[LEN_DATSTRING];
436 char dow[LEN_DATSTRING];
437 char datetime[2*LEN_DATSTRING];
438 UBYTE flags[8], lname[MAXFILENAMELENGTH];
439
440 char *pages[] = {_(MSG_INFORMATION),_(MSG_PROTECTION),_(MSG_TOOLTYPES),NULL};
441 char * typeNames[] =
442 {
443 NULL, /* not used */
444 _(MSG_DISK), /* 1 */
445 _(MSG_DRAWER), /* 2 */
446 _(MSG_TOOL), /* 3 */
447 _(MSG_PROJECT), /* 4 */
448 _(MSG_GARBAGE), /* 5 */
449 _(MSG_DEVICE), /* 6 */
450 _(MSG_KICK), /* 7 */
451 _(MSG_APPICON) /* 8 */
452 };
453
454 if (argc != 0)
455 {
456 /* start from wanderer only */
457 PrintFault(ERROR_FILE_NOT_OBJECT, argv[0]);
458 return RETURN_FAIL;
459 }
460
461 startup = (struct WBStartup *) argv;
462
463 if (startup->sm_NumArgs < 2)
464 {
465 /* need atleast 1 arg */
466 PrintFault(ERROR_REQUIRED_ARG_MISSING, argv[0]);
467 D(bug("[WBInfo] required arg missing\n"));
468 return RETURN_FAIL;
469 }
470
471 lock = startup->sm_ArgList[1].wa_Lock;
472 NameFromLock(lock, lname, MAXFILENAMELENGTH);
473 D(bug("[WBInfo] name from lock: %s\n",lname));
474 name = startup->sm_ArgList[1].wa_Name;
475 cd = CurrentDir(lock);
476 if (name == NULL)
477 {
478 /* directory not found*/
479 PrintFault(ERROR_DIR_NOT_FOUND, argv[0]);
480 D(bug("[WBInfo] dir not found\n"));
481 return RETURN_FAIL;
482 };
483
484 ap = AllocVec(sizeof(struct AnchorPath) + MAX_PATH_LEN, MEMF_CLEAR);
485 if (ap == NULL)
486 {
487 PrintFault(ERROR_NO_FREE_STORE, argv[0]);
488 D(bug("[WBInfo] no free store\n"));
489 return RETURN_FAIL;
490 }
491
492 ap->ap_Strlen = MAX_PATH_LEN;
493
494 if (0 != MatchFirst(name, ap))
495 {
496 D(bug("[WBInfo] pass to diskinfo\n"));
497 OpenWorkbenchObject(
498 "WANDERER:Tools/DiskInfo",
499 WBOPENA_ArgLock, (IPTR) startup->sm_ArgList[1].wa_Lock,
500 WBOPENA_ArgName, (IPTR) startup->sm_ArgList[1].wa_Name,
501 TAG_DONE);
502 FreeVec(ap);
503 return RETURN_OK;
504 };
505
506 ap->ap_BreakBits = SIGBREAKF_CTRL_C;
507
508 if (!(ap->ap_Flags & APF_DIDDIR))
509 {
510 D(bug("[WBInfo] scan file\n"));
511 /* fill comment */
512 sprintf(comment,"%s",ap->ap_Info.fib_Comment);
513
514 /* fill date and time */
515 ds = &ap->ap_Info.fib_Date;
516 DateStamp((struct DateStamp *)&dt);
517 CopyMem(ds, &dt.dat_Stamp, sizeof(struct DateStamp));
518 dt.dat_Format = FORMAT_DOS;
519 dt.dat_Flags = 0;
520 dt.dat_StrDay = dow;
521 dt.dat_StrDate = date;
522 dt.dat_StrTime = time;
523 dte = DateToStr(&dt);
524 sprintf(datetime, "%s %s", time, date);
525
526 /* fill size */
527 sprintf(size, "%ld", ap->ap_Info.fib_Size);
528
529 /* fill protection */
530 protection = ap->ap_Info.fib_Protection;
531
532 /* Convert the protection bits to a boolean */
533 flags[0] = protection & FIBF_SCRIPT ? 1 : 0; /* s */
534 flags[1] = protection & FIBF_PURE ? 1 : 0; /* p */
535 flags[2] = protection & FIBF_ARCHIVE ? 1 : 0; /* a */
536
537 /* The following flags are high-active! */
538 flags[3] = protection & FIBF_READ ? 0 : 1; /* r */
539 flags[4] = protection & FIBF_WRITE ? 0 : 1; /* w */
540 flags[5] = protection & FIBF_EXECUTE ? 0 : 1; /* e */
541 flags[6] = protection & FIBF_DELETE ? 0 : 1; /* d */
542 flags[7] = 0x00; /* h */
543 };
544
545 /* read icon */
546
547 icon = GetIconTags(name,
548 ICONGETA_FailIfUnavailable, FALSE,
549 ICONGETA_IsDefaultIcon, FALSE,
550 TAG_DONE);
551
552 if (icon != NULL)
553 {
554 D(bug("[WBInfo] file has icon\n"));
555 type = (char *) typeNames[icon->do_Type];
556 D(bug("[WBInfo] icon type is: %s\n", type));
557 sprintf(stack, "%ld", icon->do_StackSize);
558 if (icon->do_DefaultTool)
559 sprintf(deftool, "%s", icon->do_DefaultTool);
560 else
561 *deftool = '\0';
562 } else {
563 FreeVec(ap);
564 PrintFault(ERROR_OBJECT_WRONG_TYPE, argv[0]);
565 return RETURN_FAIL;
566 }
567
568 application = ApplicationObject,
569 MUIA_Application_Title, __(MSG_TITLE),
570 MUIA_Application_Version, (IPTR) "$VER: Info 0.2 ("ADATE") © AROS Dev Team",
571 MUIA_Application_Description, __(MSG_DESCRIPTION),
572 MUIA_Application_Base, (IPTR) "INFO",
573 MUIA_Application_Menustrip, (IPTR) MenuitemObject,
574 MUIA_Family_Child, (IPTR) MenuitemObject,
575 MUIA_Menuitem_Title, __(MSG_PROJECT),
576 MUIA_Family_Child, (IPTR)(infomenu = MenuitemObject, MUIA_Menuitem_Title,
577 __(MSG_INFORMATION), MUIA_Menuitem_Shortcut, (IPTR) "I", End),
578 MUIA_Family_Child, (IPTR)(protectmenu = MenuitemObject, MUIA_Menuitem_Title,
579 __(MSG_PROTECTION),MUIA_Menuitem_Shortcut, (IPTR) "P", End),
580 MUIA_Family_Child, (IPTR)(toolmenu = MenuitemObject, MUIA_Menuitem_Title,
581 __(MSG_TOOLTYPES),MUIA_Menuitem_Shortcut, (IPTR) "T", End),
582 MUIA_Family_Child, (IPTR) MenuitemObject, MUIA_Menuitem_Title, ~0, End,
583 MUIA_Family_Child, (IPTR) (aboutmenu = MenuitemObject, MUIA_Menuitem_Title,
584 __(MSG_ABOUT), (IPTR) MUIA_Menuitem_Shortcut, (IPTR) "?", End),
585 MUIA_Family_Child, (IPTR) MenuitemObject, MUIA_Menuitem_Title, ~0, End,
586 MUIA_Family_Child, (IPTR) (quit = MenuitemObject, MUIA_Menuitem_Title,
587 __(MSG_QUIT), MUIA_Menuitem_Shortcut, (IPTR) "Q", End),
588 End,
589 End,
590 SubWindow, (IPTR) (window = WindowObject,
591 MUIA_Window_Title, (IPTR) __(MSG_ICON),
592 MUIA_Window_ID, MAKE_ID('I','N','F','O'),
593 MUIA_Window_Activate, TRUE,
594 WindowContents, (IPTR) VGroup,
595 Child, (IPTR) HGroup,
596 Child, (IPTR) VGroup,
597 Child, (IPTR) IconImageObject,
598 MUIA_InputMode, MUIV_InputMode_Toggle,
599 MUIA_IconImage_File, (IPTR) name,
600 End,
601 End,
602 Child, (IPTR) VGroup,
603 Child, (IPTR) TextObject,
604 TextFrame,
605 MUIA_Background, MUII_TextBack,
606 MUIA_Text_PreParse, (IPTR) "\33l",
607 MUIA_Text_Contents, (IPTR) FilePart(name),
608 End,
609 End,
610 End,
611 Child, (IPTR) RegisterGroup(pages),
612 MUIA_CycleChain, 1,
613 Child, (IPTR) HGroup, /* hgroup information pannel */
614 Child, (IPTR) VGroup,
615 Child, (IPTR) HGroup,
616 Child, (IPTR) ColGroup(2),
617 Child, (IPTR) Label2(__(MSG_SIZE)),
618 Child, (IPTR) (sizespace = TextObject,
619 TextFrame,
620 MUIA_Background, MUII_TextBack,
621 MUIA_Text_PreParse, (IPTR) "\33r",
622 MUIA_Text_Contents, (IPTR) size,
623 End),
624 Child, (IPTR) Label2(__(MSG_DATE)),
625 Child, (IPTR) (datespace = TextObject,
626 TextFrame,
627 MUIA_Background, MUII_TextBack,
628 MUIA_Text_PreParse, (IPTR) "\33r",
629 MUIA_Text_Contents, (IPTR) datetime,
630 End),
631 Child, (IPTR) Label2(__(MSG_TYPE)),
632 Child, (IPTR) (typespace = TextObject,
633 TextFrame,
634 MUIA_Background, MUII_TextBack,
635 MUIA_Text_PreParse, (IPTR) "\33r",
636 MUIA_Text_Contents, (IPTR) type,
637 End),
638 Child, (IPTR) Label2(__(MSG_VERSION)),
639 Child, (IPTR) (versionspace = TextObject,
640 ButtonFrame,
641 MUIA_Background, MUII_TextBack,
642 MUIA_Text_PreParse, (IPTR) "\33r",
643 MUIA_Text_Contents, (IPTR) NULL,
644 MUIA_Text_Contents, (IPTR) "?",
645 MUIA_InputMode, MUIV_InputMode_RelVerify,
646 End),
647 End,
648 End,
649 Child, (IPTR) HVSpace,
650 Child, (IPTR) (group = HGroup,
651 End),
652 Child, (IPTR) HGroup,
653 Child, (IPTR) Label2(__(MSG_COMMENT)),
654 Child, (IPTR) (commentspace = StringObject,
655 StringFrame,
656 MUIA_CycleChain, 1,
657 End),
658 End,
659 End,
660 End, /* end hgroup information pannel */
661 Child, (IPTR) HGroup, /* hgroup protections pannel */
662 Child, (IPTR) VGroup,
663 Child, (IPTR) ColGroup(2),
664 Child, (IPTR) HVSpace,
665 Child, (IPTR) ColGroup(2),
666 Child, (IPTR) Label2(_(MSG_READ)),
667 Child, (IPTR) (readobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
668 Child, (IPTR) Label2(_(MSG_WRITE)),
669 Child, (IPTR) (writeobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
670 Child, (IPTR) Label2(_(MSG_EXECUTE)),
671 Child, (IPTR) (executeobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
672 Child, (IPTR) Label2(_(MSG_DELETE)),
673 Child, (IPTR) (deleteobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
674 Child, (IPTR) Label2(_(MSG_SCRIPT)),
675 Child, (IPTR) (scriptobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
676 Child, (IPTR) Label2(_(MSG_PURE)),
677 Child, (IPTR) (pureobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
678 Child, (IPTR) Label2(_(MSG_ARCHIVED)),
679 Child, (IPTR) (archiveobject = MUI_MakeObject(MUIO_Checkmark,NULL)),
680 End,
681 End,
682 End,
683 End, /* end hgroup protections pannel */
684 Child, (IPTR) HGroup, /* hgroup tooltypes pannel */
685 Child, (IPTR) VGroup,
686 Child, (IPTR) HGroup,
687 Child, (IPTR) VGroup,
688 GroupSpacing(0),
689 #if !USE_TEXTEDITOR
690 Child, (IPTR) ListviewObject,
691 MUIA_Listview_List, (IPTR) (list = ListObject,
692 InputListFrame,
693 MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
694 MUIA_List_DestructHook, MUIV_List_DestructHook_String,
695 MUIA_List_AutoVisible, TRUE,
696 End),
697 End,
698 Child, (IPTR) (liststr = StringObject,
699 MUIA_Disabled, TRUE,
700 StringFrame,
701 End),
702 #else
703 Child, (IPTR) HGroup,
704 GroupSpacing(0),
705 Child, (IPTR) (editor = MUI_NewObject(MUIC_TextEditor,
706 TAG_DONE)),
707 Child, (IPTR) (slider = ScrollbarObject,
708 End),
709 End,
710 #endif
711 End,
712 End,
713 #if !USE_TEXTEDITOR
714 Child, (IPTR) HGroup,
715 MUIA_Group_SameSize, TRUE,
716 Child, (IPTR) (newkey = SimpleButton(__(MSG_NEW_KEY))),
717 Child, (IPTR) (delkey = SimpleButton(__(MSG_DELETE_KEY))),
718 End,
719 #endif
720 End,
721 End, /* end hgroup tooltypes pannel */
722 End,
723 Child, (IPTR) HGroup,
724 MUIA_Group_SameSize, TRUE,
725 Child, (IPTR) (savebutton =
726 ImageButton(_(MSG_SAVE),"THEME:Images/Gadgets/Prefs/Save")),
727 Child, (IPTR) (cancelbutton =
728 ImageButton(_(MSG_CANCEL),"THEME:Images/Gadgets/Prefs/Cancel")),
729 End,
730 End,
731 End),
732 End;
733
734 icon_cd = CurrentDir(cd);
735
736 if (application != NULL)
737 {
738 ULONG signals = 0;
739
740 #if !USE_TEXTEDITOR
741 set(liststr, MUIA_String_AttachedList, (IPTR)list);
742 #endif
743
744 // menu
745 DoMethod(aboutmenu, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
746 (IPTR) application, 2,
747 MUIM_Application_ReturnID, RETURNID_ABOUT);
748 DoMethod(infomenu, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
749 (IPTR) registergroup, 3, MUIM_Set, MUIA_Group_ActivePage, 0);
750 DoMethod(protectmenu, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
751 (IPTR) registergroup, 3, MUIM_Set, MUIA_Group_ActivePage, 1);
752 DoMethod(toolmenu, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
753 (IPTR) registergroup, 3, MUIM_Set, MUIA_Group_ActivePage, 2);
754 DoMethod(quit, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
755 (IPTR) application, 2, MUIM_Application_ReturnID,
756 MUIV_Application_ReturnID_Quit);
757
758 DoMethod(cancelbutton, MUIM_Notify, MUIA_Pressed, FALSE,
759 (IPTR) application, 2,
760 MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
761 DoMethod(savebutton, MUIM_Notify, MUIA_Pressed, FALSE,
762 (IPTR) application, 2,
763 MUIM_Application_ReturnID, RETURNID_SAVE);
764 DoMethod(application, MUIM_Notify, MUIA_Application_Sleep, FALSE,
765 (IPTR) application, 2,
766 MUIM_Application_ReturnID, RETURNID_WAKE);
767 DoMethod(application, MUIM_Notify, MUIA_Application_Sleep, TRUE,
768 (IPTR) application, 2,
769 MUIM_Application_ReturnID, RETURNID_SLEEP);
770 DoMethod(window, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
771 (IPTR) application, 2, MUIM_Application_ReturnID,
772 MUIV_Application_ReturnID_Quit );
773 #if !USE_TEXTEDITOR
774 DoMethod(newkey, MUIM_Notify, MUIA_Pressed, FALSE,
775 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_NEWKEY);
776 DoMethod(delkey, MUIM_Notify, MUIA_Pressed, FALSE,
777 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_DELKEY);
778 DoMethod(list, MUIM_Notify, MUIA_List_Active, MUIV_EveryTime,
779 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_LVACK);
780 DoMethod(liststr, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
781 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_STRINGACK);
782 #endif
783 DoMethod(commentspace, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
784 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_COMMENTACK);
785 DoMethod(versionspace, MUIM_Notify, MUIA_Pressed, FALSE,
786 (IPTR) application, 2,
787 MUIM_Application_ReturnID, RETURNID_VERSION);
788
789 #if USE_TEXTEDITOR
790 set(editor, MUIA_TextEditor_Slider, slider);
791
792 if (icon->do_ToolTypes)
793 {
794 char *tt = NULL, *contents;
795 int i = 0;
796 ULONG len = 0;
797
798 while ((tt = icon->do_ToolTypes[i]) != NULL)
799 {
800 len = len + strlen(icon->do_ToolTypes[i]) + 1;
801 i++;
802 }
803
804 contents = AllocVec(len + 1, MEMF_ANY);
805 if (contents)
806 {
807 contents[0] = 0;
808 i = 0;
809
810 while ((tt = icon->do_ToolTypes[i]) != NULL)
811 {
812 strcat(contents, icon->do_ToolTypes[i]);
813 strcat(contents, "\n");
814 i++;
815 }
816
817 set(editor, MUIA_TextEditor_Contents, contents);
818 FreeVec(contents);
819 }
820 }
821 #else
822
823 if (icon->do_ToolTypes)
824 {
825 char *tt = NULL;
826 int i = 0;
827 while ((tt = icon->do_ToolTypes[i]) != NULL)
828 {
829 DoMethod(list, MUIM_List_InsertSingle, tt, MUIV_List_Insert_Bottom);
830 i++;
831 }
832 }
833 #endif
834
835 switch(icon->do_Type)
836 {
837 case WBPROJECT:
838 toolspace = MUI_NewObject(MUIC_Popasl, ASLFR_DoSaveMode, TRUE,
839 MUIA_Popstring_String,
840 filename_string = MUI_MakeObject(MUIO_String, NULL, MAX_PATH_LEN),
841 MUIA_Popstring_Button, PopButton(MUII_PopFile), TAG_DONE);
842 toollabel = MUI_MakeObject(MUIO_Label, _(MSG_DEFTOOL), NULL);
843 if ((toolspace != NULL)&&(toollabel != NULL)&&(filename_string != NULL))
844 {
845 DoMethod(group, MUIM_Group_InitChange);
846 DoMethod(group, OM_ADDMEMBER, toollabel);
847 DoMethod(group, OM_ADDMEMBER, toolspace);
848 DoMethod(group, MUIM_Group_ExitChange);
849
850 set(filename_string, MUIA_String_Contents, deftool);
851 set(toolspace, MUIA_CycleChain, 1);
852 DoMethod(filename_string, MUIM_Notify,
853 MUIA_String_Acknowledge, MUIV_EveryTime,
854 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_TOOLACK);
855 }
856 break;
857 case WBTOOL:
858 stackspace = MUI_MakeObject(MUIO_String, NULL, 16);
859 stacklabel = MUI_MakeObject(MUIO_Label, _(MSG_STACK), NULL);
860 if ((stackspace != NULL)&&(stacklabel !=NULL))
861 {
862 DoMethod(group, MUIM_Group_InitChange);
863 DoMethod(group, OM_ADDMEMBER, stacklabel);
864 DoMethod(group, OM_ADDMEMBER, stackspace);
865 DoMethod(group, MUIM_Group_ExitChange);
866 SetAttrs(stackspace, MUIA_String_Contents, stack,
867 MUIA_CycleChain, 1,
868 MUIA_String_Accept, (IPTR)"0123456789",TAG_DONE);
869 DoMethod(stackspace, MUIM_Notify,
870 MUIA_String_Acknowledge, MUIV_EveryTime,
871 (IPTR) application, 2, MUIM_Application_ReturnID, RETURNID_STACKACK);
872 }
873 break;
874 case WBDRAWER:
875 drawerspace = MUI_NewObject(MUIC_Rectangle, TAG_DONE);
876 if ((drawerspace != NULL))
877 {
878 DoMethod(group, MUIM_Group_InitChange);
879 DoMethod(group, OM_ADDMEMBER, drawerspace);
880 DoMethod(group, MUIM_Group_ExitChange);
881 }
882 break;
883 }
884
885 if (comment != NULL)
886 set(commentspace, MUIA_String_Contents, comment);
887
888 set(readobject, MUIA_Selected, flags[3]);
889 set(writeobject, MUIA_Selected, flags[4]);
890 set(executeobject, MUIA_Selected, flags[5]);
891 set(deleteobject, MUIA_Selected, flags[6]);
892
893 set(scriptobject, MUIA_Selected, flags[0]);
894 set(pureobject, MUIA_Selected, flags[1]);
895 set(archiveobject, MUIA_Selected, flags[2]);
896
897 SetAttrs(window, MUIA_Window_Open, TRUE, TAG_DONE);
898
899 while (returnid != MUIV_Application_ReturnID_Quit)
900 {
901 #ifdef DEBUG
902 if (returnid)
903 {
904 D(bug("[WBInfo] broker command received: %ld\n", returnid));
905 #endif
906 switch(returnid)
907 {
908 case RETURNID_SLEEP:
909 set(window, MUIA_Window_Open, FALSE);
910 set(window, MUIA_Window_Activate, TRUE);
911 break;
912 case RETURNID_WAKE:
913 set(window, MUIA_Window_Open, TRUE);
914 break;
915 case RETURNID_ABOUT:
916 if (MUI_RequestA(application,NULL,0,
917 _(MSG_ABOUT), _(MSG_OK), _(MSG_COPYRIGHT), NULL))
918 break;
919 #if !USE_TEXTEDITOR
920 case RETURNID_NEWKEY:
921 NewKey();
922 break;
923 case RETURNID_DELKEY:
924 DelKey();
925 icon_altered = TRUE;
926 break;
927 case RETURNID_LVACK:
928 ListToString();
929 break;
930 case RETURNID_STRINGACK:
931 StringToKey();
932 icon_altered = TRUE;
933 break;
934 #endif
935 case RETURNID_SAVE:
936 #if !USE_TEXTEDITOR
937 if (icon_altered)
938 #endif
939 SaveIcon(icon, name, lock);
940 if (file_altered)
941 SaveFile(ap, lock);
942 DoMethod(application, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
943 break;
944 case RETURNID_STACKACK:
945 set(window, MUIA_Window_ActiveObject, (IPTR)savebutton);
946 icon_altered = TRUE;
947 break;
948 case RETURNID_TOOLACK:
949 set(window, MUIA_Window_ActiveObject, (IPTR)savebutton);
950 icon_altered = TRUE;
951 break;
952 case RETURNID_COMMENTACK:
953 set(window, MUIA_Window_ActiveObject, (IPTR)savebutton);
954 file_altered = TRUE;
955 break;
956 case RETURNID_VERSION:
957 set(versionspace, MUIA_Text_Contents, GetVersion(name, lock));
958 break;
959 }
960 #ifdef DEBUG
961 }
962 #endif
963 if (signals)
964 {
965 signals = Wait(signals | SIGBREAKF_CTRL_C);
966 if(signals & SIGBREAKF_CTRL_C) break;
967 }
968
969 returnid = ((LONG) DoMethod(application, MUIM_Application_NewInput, (IPTR) &signals));
970 }
971 SetAttrs(window, MUIA_Window_Open, FALSE, TAG_DONE);
972 MUI_DisposeObject(application);
973 } else {
974 PrintFault(ERROR_INVALID_RESIDENT_LIBRARY, argv[0]);
975 D(bug("[WBInfo: Couldn't create app\n"));
976 }
977 FreeDiskObject(icon);
978 FreeVec(ap);
979 return RETURN_OK;
980 }
A totally sweet operating system