sonraki »

[Gökçe Bozkurt]

Selam

Basit mantıkta
Herhangi bir programı yüklerken karşımıza menü ve seçenekler çıkar
burada seçtiğimiz kriterlere göre program gerekli dosyaları yükler.

İste bu programı "installer" yapacak yardımcı program var mı ?

Amiga911 maker diye bir program var çok güzel
Ama o sadece ,istediğimiz tip bir sistem disketi veya program disketi yaratıyor.

Amacaım elimdeki sisteme özel, "device,library" dosyalarını yükleyen bir program yaratmak.

Seçeceğim sistem özelliklerine göre dosyları kopyalasın

[Alpyre]

AmigaInstaller LISP'e çok benzeyen bir programlama dilidir.

Bu dili ve Installer API'since sağlanan fonksiyonları öğrendikten sonra her türlü installer'ı herhangi bir metin düzenleyicide yazabilirsin.

Yazdıktan sonra tek yapman gereken simgesini seçip sağ fare menüsünden Icons->Info seçtikten sonra "Default Tool" bölümüne "Installer" yazıp kaydetmek.

Fonksiyon dökümantasyonu için aşağıdaki paketin Docs çekmecesine bakabilirsin:
http://www.aminet.net/util/sys/InstallerNG.lha

Bir alternatif yöntem de özel mesajdan dilediğin tüm özellikleri detaylıca yaz, ben sana yazayım.

[Gökçe Bozkurt]

Alpyre,

Öğrenebilmem adına basit bir örnek yapıp yayınlarsan,
hem boyumdan büyük bir işe kalkışıp kalkışmadığımı görürüm,
yapabileceğim tarz bir şey ise örneğini baz alarak geliştiririm.

Şöyle kısa bir başlangıç olsun.
Sorulan soru çoğaldıkça kombinayon artacağından programla dilinde
nereye varacağını kafamda kuramıyorum:


Program Amiga modelini sordu, seçenekler çıktı (A500/A600/A1200/A2000)
İşlemci hızını sordu, seçenekler çıktı (68k/020/040/060)
PCmcia olup olmadığını sordu seçenekler çıktı (Evet/Hayır)

Seçilmiş seçeneklere göre, bir kombinasyon oluştu
kombinasyanın karşılığı olan dosyalar boot partitionına kopyalandı.

Startup sequnce e otomatik satır ekleme vs gibi hayallerim yok.
Gerekli device ve library kopyalama programı gibi bir şey

bu arada imza kısmında Alper diye bir cihazın olduğu gözüküyor hiç duymamıştım

[Alpyre]

Alpyre,

Program Amiga modelini sordu, seçenekler çıktı (A500/A600/A1200/A2000)
İşlemci hızını sordu, seçenekler çıktı (68k/020/040/060)
PCmcia olup olmadığını sordu seçenekler çıktı (Evet/Hayır)

Şimdi aklımda ilk çağrışan şey bunların doğrudan sistemden okunabileceği. Yani kullanıcıya sormaya gerek kalmaksızın öğrenebiliriz hangi Amiga'dayız, işlemcimiz ne ve PCMCIA var mı diye.

bu arada imza kısmında Alper diye bir cihazın olduğu gözüküyor hiç duymamıştım

Ya zamanında hava atmak gibi olur diye yazmamıştım cihaz falan. O gün bugün kaldı işte öyle...

[Gökçe Bozkurt]

Alper profesyönel düşünme yaw
gwbasic bilgisi olan biriyim
onu da unutmuşumdur..
anca kullandığımız en komplike komut "if" dir

sonuçta her bilgisayarıma göre klasörü yaparım
winuade atarım bu kadar basit
ben sadece oyalanacak bir şey aradım ..

[Alpyre]

Madem öyle başlayalım o halde...

İlk önce script başlığımızı yazalım:

Kod:

;Automatic installer for library and devices
;Ver 0.1 25/09/2017
;Gökçe Bozkurt

Şimdi de karşılama iletimizi yazalım:

Kod:

(MESSAGE "This installer will copy some required library and devices according to your choices.")

İlk kullanıcı sorgulamamız. Hangi Amiga modeli için kuruyoruz:

Kod:

(SET #AmigaModel
    (ASKCHOICE
        (PROMPT "Please choose Amiga model:")
        (HELP "...")
        (DEFAULT 0)
        (CHOICES "A500" "A600" "A1200" "A2000")
    )
)

İkinci sorgulamamız. İşlemci hızı:

Kod:

(SET #CpuModel
    (ASKCHOICE
        (PROMPT "Please choose CPU model:")
        (HELP "...")
        (DEFAULT 0)
        (CHOICES "68k" "020" "040" "060")
    )
)

Son sorgulamamız. PCMCIA varlığı:

Kod:

(SET #PCMCIA
    (ASKCHOICE
        (PROMPT "Is a PCMCIA device available on your system:")
        (HELP "...")
        (DEFAULT 0)
        (CHOICES "Yes" "No")
    )
)

Kullanıcıdan gerekli tüm bilgiyi aldık. Şimdi kuruluma geçmeden önce kullanıcıya yaptığı seçimleri hatırlatan bir son ikaz sayfası hazırlamalıyız. O da bir sonraki mesajda olsun.

Not: İleti metinlerini dilediğin gibi değiştir ve eğer istersen HELP metinlerini de doldur.

[Gökçe Bozkurt]

Choice leri nasıl aklında tutuyor.
Bir değişkene tanımlamadık ki ?

[Alpyre]

Choice leri nasıl aklında tutuyor.
Bir değişkene tanımlamadık ki ?

Hayır tanımladık. Değişkenlerimiz:
#AmigaModel, #CpuModel ve #PCMCIA

Installer'da # ile başlayan her şey birer değişkendir.

[Alpyre]

Aaa en önemli şeyi unuttuk bu arada. Hedef dizini sormayı.
Dizin sorguları hafifçe daha farklı yapılıyor şöyle ki:

Kod:

(SET #InstallPath
       (ASKDIR 
            (PROMPT "Please choose the device to make the installation into:")
            (HELP "...")
            (DEFAULT "SYS:")
            (DISK)
        )
)

Bu kodla #InstallPath adı verdiğimiz değişkenimiz seçilen hedef dizinini bir sıralı (string) olarak tutacak.
Varsayılan olarak SYS: seçili olacak (dilersen bunu kaldırabilirsin).
(DISK) ile sorgu listesi ilk önce sistemdeki bağlı sürücülerin listesini gösterecek şekilde açılacak.

[Alpyre]

Buraya kadar anlaşılmayan bir konu yoksa son ikaz sayfamızı kodlayalım.
Bu bir miktar daha karmaşık gözükebilir ama dikkatle incelerseniz çok da zor değil.
Burada CAT (concatenate) fonksiyonuyla uzun bir metin oluşturacağız. CAT verilen sıralıları birbine ekleyerek uzun bir metin oluşturur. MESSAGE da bu metni kullanıcıya görüntüleyecek.
Her satır başı yapmak istediğimizde sıralımıza bir "\n" ekliyoruz.

Kod:

(MESSAGE (CAT "\nThe choices you've made so far are:\n\n"
              "AmigaModel: " (SELECT #AmigaModel ("A500") ("A600") ("A1200") ("A2000")) "\n"
              "CPUModel  : " (SELECT #CPUModel ("68k") ("020") ("040") ("060")) "\n"
              "PCMCIA    : " (SELECT #PCMCIA ("Yes") ("No")) "\n\n"
              "Installation Path: " #InstallPath "\n\n"
              "Clicking proceed will begin the installation with these choices."
         )
)

[Alpyre]

Bu aşamada şu SELECT fonksiyonunu da tanıyalım.

ASKCHOICE ile yaptığımız sorguların sonuçları ilgili değişkenlerde hep tamsayı olarak saklandı (sıralı olarak değil dikkat!).
Örneğin ilk seçenek A500 seçildiğinde #AmigaModel 0 oldu. İkinci seçenek olan A600 seçildiğinde ise #AmigaModel 1 olacak, A1200 seçilirse 2 olacak vs. vs.

SELECT bize bu tamsayı seçim sonuçlarından dallanma yapmamızı sağlıyor. Şöyle ki:

Kod:

(SELECT #Choice ("Sıfır") ("Bir") ("İki"))

...gibi bir kodda #Choice değişkeni 0 ise "Sıfır", 1 ise "Bir" yazan bir sıralı döndürür.

Tabi o parantezlerin içine ille de sıralı yazmak zorunda değiliz. Başka kod da yazabiliriz. Bu tamamen LISP dilinin esnekliği.

[Gökçe Bozkurt]

Ben daha programı yüklemedim
sen programlamayı bitirdin

[Alpyre]

Ben daha programı yüklemedim
sen programlamayı bitirdin

Ahaha. Daha çok iş var. Öncelikle bu aşmada kodunu test etmelisin. Çünkü ilk testinde bir sorunla karşılaşacaksın. Merak etme çözümü var.

Şimdi test etmek için bu yukardakileri içeren bir metin dosyası oluştur Amiga'nda (ya da WinUAE'de fark etmez). Bu dosyanın bir simgesi olsun (EditPad ile oluşturursan varsayılan olarak oluşturacaktır, aksi takdirde senin oluşturman gerekiyor).

Icons->Info menüsünden Default Tool'u "Installer" yap. Ve kaydet. Çift tıkladığında yazdığımız kodun bu aşamaya kadar çalışması gerek.

[Gökçe Bozkurt]

gece 12:00 de hanım ve çocuktan kurtulabilirsem deneyeceğim

[emarti]

AmigaDos'ta script olarak daha basit olmaz mıydı?