Clipper

Na podstawie ChatGPT

 

Clipper to język programowania i narzędzie do tworzenia aplikacji biznesowych.
Został stworzony w latach 80. XX wieku i był szczególnie popularny
w środowiskach DOS (Disk Operating System).

Podstawowe informacje dotyczące programowania w Clipper:

1.      Struktura programu:

·         Programy w Clipper są organizowane w tzw. moduły,
które zawierają  funkcje, procedury i definicje danych.

·         Każdy moduł to osobny plik źródłowy z rozszerzeniem .prg.

2.      Składnia języka:

·         Clipper używa prostego i łatwego do zrozumienia języka, podobnego
do języka BASIC.

·         Wspiera zmienno-precyzyjne operacje matematyczne,
obsługę napisów tekstowych i tablic.

3.      Bazy danych:

·         Clipper jest znany z integracji z bazami danych, szczególnie
w kontekście aplikacji opartych na plikach DBF (Database File).

·         Obsługuje różne typy baz danych, takie jak dBASE, FoxPro i inne.

4.      Interfejs użytkownika:

·         Aplikacje w Clipper często posiadają tekstowy interfejs użytkownika,
charakterystyczny dla aplikacji działających w środowiskach DOS.

5.      Rozwinięcia (Extensions):

·         Clipper pozwala na korzystanie z rozszerzeń (extensions),
które są zewnętrznymi modułami zawierającymi specjalne funkcje i procedury.

6.      Następcy:

·         Clipper był popularny w latach 80. i 90., ale z biegiem czasu stracił
na popularności. Jego następcami są m.in. xBase++, Harbour i in.

7.      Przykładowy kod:

·         Poniżej znajduje się prosty przykład kodu w Clipper,
który wyświetla komunikat "Hello, World!":

 

PROCEDURE Main()

   ? "Hello, World!"

RETURN

 

Proste programy w clipper – przykłady

Oto kilka prostych przykładów programów napisanych w języku Clipper.
Te przykłady obejmują operacje matematyczne, obsługę tablic,
pętle i podstawowe interakcje z użytkownikiem.
Clipper był często używany w kontekście aplikacji biznesowych i baz danych dBASE,
więc te przykłady mogą się skupiać na takich zagadnieniach.

Przykład 1: Prosty kalkulator

PROCEDURE Main()

   LOCAL num1, num2, result, operator

   @ 1, 1 SAY 'Podaj pierwszą liczbę:' GET num1

   @ 2, 1 SAY 'Podaj drugą liczbę:' GET num2

   @ 3, 1 SAY 'Wybierz operator (+, -, *, /):' GET operator

 

   DO CASE

      CASE operator == '+'

         result = num1 + num2

      CASE operator == '-'

         result = num1 - num2

      CASE operator == '*'

         result = num1 * num2

      CASE operator == '/'

         IF num2 != 0

            result = num1 / num2

         ELSE

            ? 'Błąd: Dzielenie przez zero!'

            RETURN

         ENDIF

      OTHERWISE

         ? 'Błąd: Nieznany operator!'

         RETURN

   ENDCASE

 

   ? 'Wynik: ', result

   WAIT

RETURN

 

 

Przykład 2: Pętla i tablica

PROCEDURE Main()

   LOCAL i, numbers[5]

 

   FOR i = 1 TO 5

      @ i, 1 SAY 'Podaj liczbę ' + STR(i) + ':' GET numbers[i]

   NEXT i

 

   ? 'Podane liczby: ', numbers

   WAIT

RETURN

 

 

Przykład 3: Prosta baza danych DBF

PROCEDURE Main()

   USE Customer EXCLUSIVE NEW

   APPEND BLANK

   REPLACE Name WITH 'John Doe', Age WITH 30, City WITH 'New York'

   REPLACE Name WITH 'Jane Doe', Age WITH 25, City WITH 'Los Angeles'

   REPLACE Name WITH 'Bob Smith', Age WITH 35, City WITH 'Chicago'

 

   LOCATE FOR Age > 30

   ? 'Osoby powyżej 30 lat:'

   ? 'Imię: ', Name

   ? 'Wiek: ', Age

   ? 'Miasto: ', City

 

   USE

   WAIT

RETURN

 

 

Powyższe przykłady mają na celu pokazanie podstawowych konstrukcji w języku Clipper.
Clipper był często używany w kontekście programowania proceduralnego i operacji na bazach danych.
W praktyce programowanie w Clipper często wiązało się z pracą z plikami DBF
i realizacją operacji CRUD (Create, Read, Update, Delete) na rekordach bazy danych.