?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
update patch for openssl to 1.1.0h
[AROS-Contrib.git] / dopus / Config / main4.c
blob6254abc9398c04103a06c032c728652dad0289ef
1 /*
2
3 Directory Opus 4
4 Original GPL release version 4.12
5 Copyright 1993-2000 Jonathan Potter
6
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20
21 All users of Directory Opus 4 (including versions distributed
22 under the GPL) are entitled to upgrade to the latest version of
23 Directory Opus version 5 at a reduced price. Please see
24 http://www.gpsoft.com.au for more information.
25
26 The release of Directory Opus 4 under the GPL in NO WAY affects
27 the existing commercial status of Directory Opus 5.
28
29 */
30
31 #include "config.h"
32
33 static struct dopusfunction *seldrive;
34
35 int dodriveconfig()
36 {
37 ULONG class;
38 UWORD code,gadgetid,qual;
39 struct ConfigUndo *undo;
40 struct DOpusRemember *gadkey;
41 struct dopusfunction *seconddrive;
42 struct Gadget *gad;
43 struct Border *unselborder,*selborder;
44 int a,b,x,y,mode=-1,editon=0,dnum=-1,odnum;
45 char buf[256];
46 unsigned char c;
47
48 gadkey=NULL;
49 if (!(drivegads=(struct Gadget *)LAllocRemember(&gadkey,sizeof(struct Gadget)*USEDRIVECOUNT,
50 MEMF_CLEAR))) return(0);
51
52 CreateGadgetBorders(&gadkey,
53 80,10,
54 &selborder,&unselborder,
55 0,
56 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
57
58 seldrive=NULL; seligad=NULL;
59
60 x=x_off+76;
61 y=y_off+2;
62 for (a=0;a<USEDRIVECOUNT;a++) {
63 drivegads[a].NextGadget=(a<USEDRIVECOUNT-1)?&drivegads[a+1]:NULL;
64 drivegads[a].LeftEdge=x;
65 drivegads[a].TopEdge=y;
66 drivegads[a].Width=80;
67 drivegads[a].Height=10;
68 drivegads[a].Flags=(selborder)?GFLG_GADGHIMAGE:GFLG_GADGHCOMP;
69 drivegads[a].Activation=GACT_RELVERIFY;
70 drivegads[a].GadgetType=GTYP_BOOLGADGET;
71 drivegads[a].GadgetID=a+100;
72 drivegads[a].GadgetRender=unselborder;
73 drivegads[a].SelectRender=selborder;
74 if ((y+=10)>=y_off+62) {
75 y=y_off+2;
76 x+=100;
77 }
78 }
79
80 namesinfo.MaxChars=16;
81 showconfigscreen(CFG_DRIVE);
82
83 paint_state=0;
84 ClearMenuStrip(Window);
85 projectmenu.NextMenu=&neatstuffmenu;
86 neatstuffitem.Flags&=~CHECKED;
87 neatstuffmenu.LeftEdge=140;
88 FSSetMenuStrip(Window,&projectmenu);
89 undo=makeundo(UNDO_DRIVE);
90
91 showdrives();
92
93 FOREVER {
94 Wait(1<<Window->UserPort->mp_SigBit);
95 while (IMsg=getintuimsg()) {
96 class=IMsg->Class; code=IMsg->Code; x=IMsg->MouseX; y=IMsg->MouseY;
97 qual=IMsg->Qualifier;
98 if (class==GADGETUP || class==GADGETDOWN) {
99 gad=(struct Gadget *)IMsg->IAddress;
100 gadgetid=gad->GadgetID;
101 }
102 ReplyMsg((struct Message *)IMsg);
103 switch (class) {
104 case IDCMP_MENUPICK:
105 if (code==MENUNULL) break;
106 if (seldrive) {
107 select_gadget(seligad,0);
108 seligad=NULL; seldrive=NULL;
109 }
110 if (editon) {
111 driveeditoff();
112 editon=0;
113 }
114 if (mode>-1) {
115 select_gadget(&maingad[mode],0);
116 mode=-1;
117 }
118 dogadgetinfo(NULL);
119 switch (MENUNUM(code)) {
120 case 0:
121 switch ((a=ITEMNUM(code))) {
122 case 0:
123 case 1:
124 if (doload(CFG_DRIVE,a)) {
125 showdrives();
126 if (a) dogadgetinfo(cfg_string[STR_NEW_DRIVE_BANKS_LOADED]);
127 else dogadgetinfo(cfg_string[STR_DEFAULT_DRIVE_BANKS_RESET]);
128 }
129 break;
130 }
131 break;
132 case 1:
133 if (ITEMNUM(code)==0) {
134 if (neatstuffitem.Flags&CHECKED) {
135 if (!(paint_state=get_paint_colours(&paint_fg,&paint_bg,CFG_GADGET))) {
136 ClearMenuStrip(Window);
137 neatstuffitem.Flags&=~CHECKED;
138 FSSetMenuStrip(Window,&projectmenu);
139 }
140 }
141 else paint_state=0;
142 do_menuscreen_title(STR_DRIVE_SCREEN);
143 }
144 break;
145 }
146 break;
147
148 case IDCMP_RAWKEY:
149 if (!seldrive || !editon || (code>=0x60 && code<=0x67) || code&0x80)
150 break;
151 if (editdrivegadgets[1].Flags&SELECTED) {
152 qual&=IEQUALIFIER_LCOMMAND|IEQUALIFIER_RCOMMAND|
153 IEQUALIFIER_CONTROL|IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT|
154 IEQUALIFIER_LALT|IEQUALIFIER_RALT;
155 showkey(seldrive->key=code,seldrive->qual=qual,x_off+150,y_off+129,331,10);
156 break;
157 }
158 buf[0]=0;
159 RawkeyToStr(code,qual,NULL,buf,10);
160 c = LToLower(buf[0]);
161 if (c == getkeyshortcut(cfg_string[STR_EDIT_NAME]))
162 ActivateStrGad(&editdrivegadgets[0],Window);
163 else if (c == getkeyshortcut(cfg_string[STR_SHORTCUT_KEY]))
164 {
165 fixrmbimage(&sampleclearrmb,NULL,0,-1,-1);
166 editdrivegadgets[1].Flags|=SELECTED;
167 select_gadget(&editdrivegadgets[1],1);
168 fixrmbimage(&sampleclearrmb,NULL,1,-1,-1);
169 }
170 else if (c == getkeyshortcut(cfg_string[STR_PATH]))
171 ActivateStrGad(&editdrivegadgets[3],Window);
172 break;
173
174 case IDCMP_MOUSEBUTTONS:
175 if (code==SELECTDOWN) {
176 if (seldrive && editon) {
177 a=seldrive->fpen; b=seldrive->bpen;
178 if (docolourgad(rp,x_off+150,y_off+76,x,y,seldrive->name,&a,&b,CFG_DRIVE)) {
179 seldrive->fpen=a; seldrive->bpen=b;
180 showdrivename(seldrive,seligad);
181 }
182 }
183 }
184 else if (code==MENUDOWN) {
185 if (!seldrive || !editon) break;
186 if (fixrmbimage(&sampleclearrmb,NULL,0,x,y)) {
187 a=DoRMBGadget(&sampleclearrmb,Window);
188 fixrmbimage(&sampleclearrmb,NULL,1,-1,-1);
189 if (a==0) showkey(seldrive->key=0xFF,seldrive->qual=0,x_off+150,y_off+129,331,10);
190 editdrivegadgets[1].Flags&=~SELECTED;
191 help_ok=1;
192 }
193 }
194 break;
195
196 case IDCMP_GADGETUP:
197 if (gadgetid<DRIVE_OKAY) {
198 if (seldrive) {
199 select_gadget(seligad,0);
200 seligad=NULL; seldrive=NULL;
201 }
202 if (editon) {
203 driveeditoff();
204 editon=0;
205 }
206 if (mode==gadgetid) {
207 mode=-1;
208 dogadgetinfo(NULL);
209 break;
210 }
211 if (mode>-1) {
212 select_gadget(&maingad[mode],0);
213 mode=-1;
214 }
215 }
216 else if (gadgetid>=100) {
217 a=gadgetid-100;
218 odnum=dnum; dnum=a/6;
219 if (mode>-1) {
220 if (mode==DRIVE_DELETEDRIVE) {
221 deletedrive(&config->drive[a]);
222 seldrive=NULL;
223 dogadgetinfo(cfg_string[STR_DRIVE_GADGET_DELETED]);
224 showdrivename(seldrive,gad);
225 }
226 else if (!seldrive) {
227 seldrive=&config->drive[a];
228 seligad=gad;
229 select_gadget(gad,1);
230 switch (mode) {
231 case DRIVE_COPYDRIVE:
232 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_TO_COPY_TO]);
233 break;
234 case DRIVE_SWAPDRIVE:
235 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_TO_SWAP_WITH_FIRST]);
236 break;
237 case DRIVE_COPYBANK:
238 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_COPY_TO]);
239 break;
240 case DRIVE_SWAPBANK:
241 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_SWAP_WITH_FIRST]);
242 break;
243 case DRIVE_DELETEBANK:
244 if (request(cfg_string[STR_REALLY_DELETE_DRIVE_BANK])) {
245 x=dnum*6; b=x+6;
246 for (a=x;a<b;a++) deletedrive(&config->drive[a]);
247 }
248 seldrive=NULL;
249 showdrives();
250 doinitdrivetext(mode);
251 break;
252 case DRIVE_SORTBANK:
253 sortdrivebank(dnum);
254 seldrive=NULL;
255 showdrives();
256 doinitdrivetext(mode);
257 break;
258 }
259 }
260 else {
261 seconddrive=&config->drive[a];
262 if (seldrive==seconddrive) select_gadget(gad,0);
263 else {
264 switch (mode) {
265 case DRIVE_COPYDRIVE:
266 CopyMem((char *)seldrive,(char *)seconddrive,sizeof(struct dopusfunction));
267 seconddrive->function=getcopy(seldrive->function,-1,NULL);
268 break;
269 case DRIVE_SWAPDRIVE:
270 SwapMem((char *)seldrive,(char *)seconddrive,sizeof(struct dopusfunction));
271 break;
272 case DRIVE_COPYBANK:
273 if (dnum!=odnum) {
274 for (a=0;a<6;a++) {
275 CopyMem((char *)&config->drive[(odnum*6)+a],
276 (char *)&config->drive[(dnum*6)+a],sizeof(struct dopusfunction));
277 config->drive[(dnum*6)+a].function=getcopy(config->drive[(odnum*6)+a].function,-1,NULL);
278 }
279 }
280 break;
281 case DRIVE_SWAPBANK:
282 if (dnum!=odnum)
283 SwapMem((char *)&config->drive[odnum*6],
284 (char *)&config->drive[dnum*6],sizeof(struct dopusfunction)*6);
285 break;
286 }
287 seldrive=NULL;
288 showdrives();
289 }
290 seldrive=NULL; seligad=NULL;
291 doinitdrivetext(mode);
292 }
293 }
294 else {
295 if (paint_state) {
296 config->drive[a].fpen=paint_fg;
297 config->drive[a].bpen=paint_bg;
298 showdrivename(&config->drive[a],gad);
299 }
300 else {
301 if (seldrive && editon) select_gadget(seligad,0);
302 if (seldrive==&config->drive[a]) {
303 driveeditoff();
304 editon=0;
305 break;
306 }
307 seligad=gad; seldrive=&config->drive[a];
308 showdrivename(seldrive,gad);
309 setupcolourbox(rp,x_off+150,y_off+76,seldrive->fpen,seldrive->bpen);
310 strcpy(edit_namebuf,seldrive->name);
311 if (seldrive->function) strcpy(edit_pathbuf,seldrive->function);
312 else edit_pathbuf[0]=0;
313 SetAPen(rp,screen_pens[1].pen);
314 if (!editon) {
315 do_gad_label(cfg_string[STR_SHORTCUT_KEY],x_off+139,y_off+136);
316 do_gad_label(cfg_string[STR_PATH],x_off+139,y_off+122);
317 editdrivegadgets[1].Flags&=~SELECTED;
318 AddGadgets(Window,
319 editdrivegadgets,
320 drivegadgets2,
321 4,
322 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
323 fixrmbimage(&sampleclearrmb,&editdrivegadgets[1],2,-1,-1);
324 doglassimage(&editdrivegadgets[2]);
325 }
326 else {
327 RefreshStrGad(&editdrivegadgets[0],Window);
328 RefreshStrGad(&editdrivegadgets[3],Window);
329 }
330 if (editdrivegadgets[1].Flags&SELECTED) {
331 fixrmbimage(&sampleclearrmb,NULL,0,-1,-1);
332 editdrivegadgets[1].Flags&=~SELECTED;
333 select_gadget(&editdrivegadgets[1],0);
334 fixrmbimage(&sampleclearrmb,NULL,1,-1,-1);
335 }
336 showfuncob(rp,seldrive->name,seldrive->fpen,seldrive->bpen,CFG_DRIVE,x_off+244,y_off+66);
337 showkey(seldrive->key,seldrive->qual,x_off+150,y_off+129,331,10);
338 editon=1;
339 }
340 }
341 break;
342 }
343 switch (gadgetid) {
344 case DRIVE_GETDRIVES:
345 {
346 char fpen_back[USEDRIVECOUNT],bpen_back[USEDRIVECOUNT];
347 int a;
348
349 for (a=0;a<USEDRIVECOUNT;a++) {
350 fpen_back[a]=config->drive[a].fpen;
351 bpen_back[a]=config->drive[a].bpen;
352 }
353 fixcstuff(&cstuff);
354 GetDevices(&cstuff);
355 seldrive=NULL;
356 for (a=0;a<USEDRIVECOUNT;a++) {
357 config->drive[a].fpen=fpen_back[a];
358 config->drive[a].bpen=bpen_back[a];
359 }
360 showdrives();
361 dogadgetinfo(cfg_string[STR_SYSTEM_DEVICES_LISTED]);
362 }
363 break;
364
365 case DRIVE_EDITNAME:
366 strcpy(seldrive->name,edit_namebuf);
367 showfuncob(rp,seldrive->name,seldrive->fpen,seldrive->bpen,CFG_DRIVE,x_off+244,y_off+66);
368 showdrivename(seldrive,seligad);
369 if (code!=0x9) getnextgadget(gad);
370 break;
371
372 case DRIVE_EDITPATH:
373 freestring(seldrive->function);
374 seldrive->function=getcopy(edit_pathbuf,-1,NULL);
375 if (code!=0x9) getnextgadget(gad);
376 break;
377
378 case DRIVE_EDITREQ:
379 strcpy(dirbuf,edit_pathbuf);
380 if (funcrequester(FREQ_PATHREQ,buf,NULL)) {
381 LStrnCpy(edit_pathbuf,buf,FILEBUF_SIZE); edit_pathbuf[FILEBUF_SIZE]=0;
382 b=strlen(edit_pathbuf);
383 for (a=b;a>=0;a--) {
384 if (edit_pathbuf[a]=='/' || edit_pathbuf[a]==':') {
385 edit_pathbuf[a+1]=0;
386 break;
387 }
388 }
389 freestring(seldrive->function);
390 seldrive->function=getcopy(edit_pathbuf,-1,NULL);
391 RefreshStrGad(&editdrivegadgets[3],Window);
392 }
393 break;
394
395 case DRIVE_EDITSAMPLE:
396 help_ok=(editdrivegadgets[1].Flags&SELECTED)?0:1;
397 break;
398
399 case DRIVE_CANCEL:
400 doundo(undo,UNDO_DRIVE);
401 case DRIVE_OKAY:
402 doundo(undo,0);
403 RemoveGList(Window,drivegads,USEDRIVECOUNT);
404 LFreeRemember(&gadkey); drivegads=NULL;
405 ClearMenuStrip(Window); projectmenu.NextMenu=NULL;
406 FSSetMenuStrip(Window,&projectmenu);
407 help_ok=1;
408 paint_state=0;
409 return((gadgetid==DRIVE_OKAY));
410 }
411 mode=doinitdrivetext(gadgetid);
412 break;
413 }
414 }
415 }
416 }
417
418 void showdrives()
419 {
420 int a;
421
422 for (a=0;a<USEDRIVECOUNT;a++)
423 showdrivename(&config->drive[a],&drivegads[a]);
424 }
425
426 void showdrivename(drive,gadget)
427 struct dopusfunction *drive;
428 struct Gadget *gadget;
429 {
430 int a,x,y,l;
431 char showname[16];
432
433 x=gadget->LeftEdge;
434 y=gadget->TopEdge;
435 if (drive) SetAPen(rp,screen_pens[drive->bpen].pen);
436 else SetAPen(rp,screen_pens[0].pen);
437 RectFill(rp,x+2,y+1,x+77,y+8);
438 do3dbox(x+2,y+1,76,8);
439 if (drive) {
440 SetAPen(rp,screen_pens[drive->fpen].pen);
441 SetBPen(rp,screen_pens[drive->bpen].pen);
442 strcpy(showname,drive->name);
443 l = (80-8)/rp->Font->tf_XSize;
444 showname[l]=0;
445 UScoreText(rp,showname,x+((80-((a=strlen(showname))*rp->Font->tf_XSize))/2),y+7,-1);
446 SetBPen(rp,screen_pens[0].pen);
447 if (seldrive==drive) select_gadget(seligad,1);
448 }
449 }
450
451 int doinitdrivetext(id)
452 int id;
453 {
454 int mode=-1;
455
456 switch (id) {
457 case DRIVE_COPYBANK:
458 mode=DRIVE_COPYBANK;
459 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_COPY]);
460 break;
461 case DRIVE_SWAPBANK:
462 mode=DRIVE_SWAPBANK;
463 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_SWAP]);
464 break;
465 case DRIVE_DELETEBANK:
466 mode=DRIVE_DELETEBANK;
467 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_DELETE]);
468 break;
469 case DRIVE_SORTBANK:
470 mode=DRIVE_SORTBANK;
471 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_BANK_TO_SORT]);
472 break;
473 case DRIVE_COPYDRIVE:
474 mode=DRIVE_COPYDRIVE;
475 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_GADGET_TO_COPY]);
476 break;
477 case DRIVE_SWAPDRIVE:
478 mode=DRIVE_SWAPDRIVE;
479 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_GADGET_TO_SWAP]);
480 break;
481 case DRIVE_DELETEDRIVE:
482 mode=DRIVE_DELETEDRIVE;
483 dogadgetinfo(cfg_string[STR_SELECT_DRIVE_GADGET_TO_DELETE]);
484 break;
485 }
486 return(mode);
487 }
488
489 int docolourgad(r,x,y,mx,my,name,fp,bp,type)
490 struct RastPort *r;
491 int x,y,mx,my;
492 char *name;
493 int *fp,*bp,type;
494 {
495 int num,box;
496
497 if (my>y && my<y+21) {
498 for (box=0;box<2;box++) {
499 for (num=0;num<colour_box_num;num++) {
500 if (mx>=colour_box_xy[box][num][0] && mx<=colour_box_xy[box][num][2] &&
501 my>=colour_box_xy[box][num][1] && my<=colour_box_xy[box][num][3]) {
502 if ((box==0 && *fp!=num) || (box==1 && *bp!=num)) {
503 docoloursel(r,x+(box*248),y,(box==0)?*fp:*bp);
504 docoloursel(r,x+(box*248),y,num);
505 if (box==0) *fp=num;
506 else *bp=num;
507 if (name) showfuncob(r,name,*fp,*bp,type,x+94,y-10);
508 return(1);
509 }
510 return(0);
511 }
512 }
513 }
514 }
515 return(0);
516 }
517
518 void driveeditoff()
519 {
520 seldrive=NULL; seligad=NULL;
521 SetAPen(rp,screen_pens[0].pen);
522 RectFill(rp,
523 x_off+2,y_off+65,
524 x_bot,y_off+140);
525 RemoveGList(Window,editdrivegadgets,4);
526 }
527
528 void deletedrive(drive)
529 struct dopusfunction *drive;
530 {
531 drive->name[0]=0;
532 freestring(drive->function); drive->function=NULL;
533 drive->key=0xff;
534 drive->qual=0;
535 if (paint_state) {
536 drive->fpen=paint_fg;
537 drive->bpen=paint_bg;
538 }
539 else {
540 drive->fpen=1;
541 drive->bpen=0;
542 }
543 }
544
545 void sortdrivebank(m)
546 int m;
547 {
548 int gap,i,j,k;
549 char *ptr1,*ptr2,*zstr="\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f\x7f";
550
551 m*=6;
552 for (gap=3;gap>0;gap/=2)
553 for (i=gap;i<6;i++)
554 for (j=i-gap;j>=0;j-=gap) {
555 k=j+gap;
556 ptr1=(config->drive[j+m].name[0])?config->drive[j+m].name:zstr;
557 ptr2=(config->drive[k+m].name[0])?config->drive[k+m].name:zstr;
558 if (LStrCmpI(ptr1,ptr2)<=0) break;
559 SwapMem((char *)&config->drive[j+m],(char *)&config->drive[k+m],
560 sizeof(struct dopusfunction));
561 }
562 }
Mirror of AROS' Contrib svn.