Sonraki satırlarda ise kullanacağımız ekran özelliklerini taşıyan RastPort ve ViewPort, Window özelliklerini taşıyan window yapı değişkenleri bir pointer yapı olarak tanımlanıyor. Burada pointer olarak tanımlamamızın sebebi, daha önceki yazılarımda da belirttiğim gibi bu yapıların orijinal yapıları görüntülemesi amacıyla kullanılmasından doğuyor.

char title[80];
char view[30][20];
char disk[30]|30];
char *name[]={ " ",0 };
char *list;
int no=0;
int fin;

title[0]='A'
title[1]='m'
title[2]='i'
title[3]='g'
title[4]='a'
...

view[30][20];

Programda kullandığımız ana değişkenler bu kadar. Bu değişkenler bütün alt rutinlerde tanımlıdır. Diğer değişkenler ise geçici (local) değişken olarak tanımlanıyor.

Bu tanımlardan sonra şimdi gelelim ana programın icra edildiği main() fonksiyonuna.

main() içerisindeki 'argc' ve 'argv' değişkenleri, verilen parametreleri ve parametre sayılarını saklıyor. 'argc' parametre sayısı, 'argv' ise parametrenin kendisini oluşturuyor. Bir örnek vermek gerekirse;

MenuDesign df0:s/menulist

main(argc,argv)
int argc;
char *argv[];
{
int a; /* local degisken */
if(argc==1) /* menu listesi kontrol ediliyor */
   printf("Usage : menudesign [list]\n ");
   return(1);
}

IntuitionBase=OpenLibrary("intuition.library",0); 
GfxBase=OpenLibrary("graphics.library",0); 
DosBase=OpenLibrary("dos.library",0);

window=IntuitionBase->ActiveWindow; 
rp=window->RPort;

SetDrMd(rp,JAM1);

Daha sonraki satırlarda, programın işlevini gerçekleştiren bizim hazırlamış olduğumuz alt rutinler mevcut. Bu rutinler belirli bir sırada çağrılarak adım adım program işleniyor. Bu sıra,

clear();       
load(argv[1]); 
scr_clear();   
draw_box():    
search();      
menudesign();  
flood():       
a=mouse();     
if(a==0) {     
    quit();   
    scr_clear();
    exit(0);
}
quit();
scr_clear();
printf("Loading %s...\n",view[a]);
strcpy(name[0],disk[a]); 
execv(name[0],name);     
}

clear(), 'view' ve 'disk' değişkenlerini boş karakterlerle dolduruyor ve temizliyoruz. Bunu yaparken strcpy() fonksiyonu işimizi rahatlıkla görüyor, 'i' değişkenini de register değişken olarak kullanarak işlemimizin hızını arttırıyoruz.

clear()
{
register int i;

for(i=0;i<30;i++) {
strcpy(view[i],"	");
	strcpy(disk[i],"	");
}
}

load(a)
char [a];
{
struct FileHandle *file;
file=Open(a,MODE_OLDFILE); 
if(file==NULL) {
      printf("%s dosyası bulunamadı..!\n",a);
      quit();
      exit(1);
}

list=AllocMem(1000,MEMF_CHIP|MEMF_CLEAR)İ; 
if(list==NULL) {
      printf("Hafıza yetersiz..!\n");
      quit();
      exit(1); 
} 
fin=Read(file,list,1000);
Close(file); 
return(0);
}

Sonraki satırlarda hafızanın yeterliliğini kontrol ederek menu listesini yüklemeye başlıyoruz. Read() fonksiyonu yükleme işlemini gerçekleştiriyor ve 'fin' değişkenine, yüklenen byte sayısını veriyor. Bu satırlar sonunda menü listesinin bulunduğu hafıza bölgesinin başlangıcını 'list' uzunluğunu ve sonunu 'fin' değişkeni ile saptamış oluyoruz.

draw_box()
{
register int x,y;

for(x=0;x<3;x++) {
 for(y=0;y<10;y++) {
   box(70+x*170,25+y*16,1);
 }
}
}

Search() rutini, en önemli rutini oluşturuyor. Burada menu listesinin ekrandaki ve disketteki isimleri, 'list' adresinden 'list+fin' adresine kadar aranarak kaydediliyor. Bu işlemler şu kademelerden geçiyor:

İlk olarak 0'dan 'fin'e kadar bir 'i' döngüsü oluştutuluyor. Bu bizim arayacağımız hafıza bölgesinin uzunluğunu belirtiliyor. Sonraki satırda, listede 'menu=' ifadesinin bulunup bulunmadığını strncmp() fonksiyonu ile karşılaştırarak öğreniliyor. Dikkat ettiyseniz 'list+i'den işleme başlıyoruz. strncmp()'deki 5 sayısı karşılaştırılan karakter sayısını belirliyor. Eğer sonuç 0 ise bu parametrelerin içeriklerinin eşit olduğu anlamına gelmektedir. Böyle bir durumda. 'menu='den sonraki karakterler satır sonuna kadar kontrol edilerek 'title' değişkenine aktarılıyor. Satır sonu return ile bittiğine göre, decimal olarak 10 değerini arıyoruz.

Bir sonraki kademe ise '-' ve ' + ' karakterlerinden sonraki cümleleri 'view' ve 'disk' değişkenlerine aktarmakla geçiyor. Bu işlemler menu isminin bulunduğu gibi yapılıyor. Her eşitleme sonunda değişkenlerin uzunluğunu belirtmek için son karaktere '\0', satırsonu karakteri koyduğumuza dikkat edin. Bu, dizinin uzunluğunu bulmamızı sağlıyor.

search()
{
int a;
register int i,j,k;

for(i=0;i<=fin;i++) {
     a=strncmp(list+i,"menu=",5); 
     if(a==0) {
	 i+=5;
	 j=i;
	 while(*(list+i)!=10)i++;
	 for(k=0;k<i-j;k++) title[k] =(char)*(list+j+k);
	 title[k]='0';
     }
a=strncmp(list+i,"-",1);
     if(a==0) {
	 no++;
i++; j=i;
while(*(list+i)!='+')i++;
	 for(k=0;k<i-j;k++) view[no][k]=(char)*(list+j+k);
	 view[no][k]='0';
	 j=i+1;
	 while(*(list+i)!=10)i++;
	 for(k=0;k<i-j;k++) disk[no][k]=(char)*(list+j+k);
	 disk[no][k]='0';
     }
}
}

menu()
{
char a[50];

strcpy(a,"MenuDesign (c) 1992 Programming by Cenker OZKURT");
print(320-4*(strlen(a)),192,a,strlen(a)); 
print(320-4*(strlen(title)),22,title,strlen(title));
}

print(x,y,a,len)
int x,y; 
char a[];
int len;
{
SetAPen(rp,2);
Move(rp,x,y);
Text(rp,a,len);
SetAPen(rp,1);
Move(rp,x-1,y-1);
Text(rp,a,len);
}

flood()
{
register int x,y,i;

x=0; y=0;
for(i=1;i<=no;i++) {
	print(73+x*170,34+y*16,view[i],strlen(view[i]));
	y++; if(y==10) { y=0; x++; }
}
}

mouse()
{
int ret;
int q,w,p=0;
int a,b,c,d;
register int x,y;
register int i,j;
UBYTE *m=0xbfe001;

 while(1) {
  x=window->GZZMouseX; 
  y=window->GZZMouseY+10; 
  for(i=0;i<3;i++) {
     for(j=0;j<10;j++) { 
	a=70+i*170; 
	b=25+j*16; 
	c=a+160;
	d=b+11;
	if(x>a&&x<c&&y>b&&y<d&&(q!=a||w!=b)) { 
	    if(p==1)box(q,w,1); else p=1; 
	    box(a,b,2); q=a; w=b;
	}
	if(!(x>70&&x<570&&y>25&&y<185)) { 
	    if(p=1) { box(q,w,1); q=0; w=0; p=0; }
	}
	if(p==0&&!(*m&64)) return(0);
	ret=i*10+j+1
     if(ret<=no&&x>a&&x<c&&y>b&&y<d&&y!(*m&64))
	return(ret);
	}
     }
 }
}

x=window->GZZMouseX ve 
y=window->GZZMouseY

Sonraki satırlarda mouse() fonksiyonu bir sonsuz while döngüsüne giriyor. Bu döngü içerisinde mouse oynatıldığı sürece kutuların renkleri değiştirilerek mouse pozisyonunun belirtmek istediği kutu kullanıcıya gösteriliyor. Bunları yaparken box() rutinini tekrar kullandığımıza dikkat edin.

Mouse tuşuna basıldığında, seçilen kutunun değeri mouse'un bulunduğu pozisyona göre hesaplanarak return ile 'a' değişkenine aktarılıyor. Artık yüklenmek istenen utility isminin indisi belirlendiğine göre sıra geldi yükleme işlemine.

İlk olarak 'a' değişkeninin değerinin sıfırdan farklı olup olmadığını kontrol ediyoruz. Bu bize seçimin doğru yapılıp yapılmadığını veriyor. Eğer yapılmadıysa program sona eriyor.

Seçim doğru yapıldığı takdirde, quit() ile açılan Library'ler ve hafızalar terk ediliyor.

quit()
{
if(list)FreeMem(list,1000);
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
CloseLibrary(DosBase);
}

Programın açıklaması burada sona eriyor. Bu program ile Amiga C'de basit bir Utility programının nasıl yapıldığını gördünüz.

Gelecek ay yeni örneklerle buluşmak üzere, hoşçakalın...