מודולה

**מוֹדוּלה** (באנגלית: **Modula**) היא שפת תכנות מערכות מובנת ופרוצדורלית עם טיפוסיות חזקה וסטטית שפותחה על ידי ניקלאוס וירת בין השנים 1973–1976 במכון הטכנולוגי של ציריך. מודולה הורחבה במקור מפסקל, וממנה נולד הפיתוח של מודולה־2. מודולה היא שפת תכנות ניסיונית והפיתוח שלה הופסק לטובת הפיתוח של מודולה־2.

## היסטוריה
בשנת 1973 וירת התחיל את הפיתוח של מודולה. המימוש הראשון שלה הושלם על מחשב PDP-11.

בשנת 1976 וירת פרסם את האפיון של השפה במכון הטכנולוגי של ציריך.

בשנת 1977 וירת התחיל את הפיתוח של מודולה־2 כהמשך לפיתוח של מודולה, וכתחליף לפסקל.

## דוגמאות
### מחלק מרבי משותף

```modula2
PROCEDURE GCD(n, m: INTEGER): INTEGER;
    VAR a, b: INTEGER;
BEGIN
    WHILE a <> b DO
        IF a < b THEN
            b := b - a
        ELSE
            a := a - b
        END
    END;
    GCD := a
END GCD
```


## עיצוב
וירת תכנן שמודולה תהיה היורשת של פסקל. אך בנוסף לכך, מודולה תוכננה להיות שפת תכנות מערכות. וירת זיהה שבשפות תכנות מערכות יש תלות רבה בין התוכנה לחומרה, וכמעט תמיד הקוד נכתב באופן מותאם לחומרה מסוימת, מה שלא אפשר שימוש חוזר בקוד על מחשבים עם חומרה שונה באותו הזמן. על רקע מצב זה, וירת תכנן את מודולה כך שתאפשר הידור נפרד של יחידות קוד מקור על מנת לבודד את הקוד שתלוי במערכת מן הקוד המופשט שאינו תלוי במערכת. וירת ויתר על חלק מהמאפיינים של פסקל כשתכנן את מודולה. בנוסף, וירת תכנן שמודולה תהיה חוצת ארכיטקטורות וחוצת פלטפורמות ככל הניתן. כפי שמסתמן במודולה־2, חידושיה המרכזיים של מודולה על פני פסקל היו:

# מודול כיחידת קוד מקור שעוברת הידור נפרד משאר הקוד.
# ריבוי וניהול תהליכים  על ידי  בתוך הקוד.

### טיפוסי נתונים
מודולה הכירה רק בארבע טיפוסי נתונים בסיסיים: מספר שלם, ערך בוליאני (אמת או שקר), תו, ומערך סיביות. לא אופיין מספר ממשי ולא אופיין טיפוס נפרד למחרוזות בשפה, אך היה ניתן ליצור מחרוזת באמצעות מערך תווים. אין גישה למצביעים בשפה.

### ריבוי תהליכים
כשפת תכנות מערכות, מודולה הציעה דרך ליישם  בצורה נוחה. להכרזת תהליכים בשפה היה תחביר דומה לתחביר של שגרות, אם כי היה ניתן להגדיר תהליכים אך ורק ברמת הקובץ ולא באופן מקונן בתוך רכיבים אחרים. בשונה משגרות, תהליכים לא היו עוצרים את שאר התוכנה בזמן ריצה, אלא רצים באופן מקביל. היה ניתן להריץ תהליכים אך ורק מגוף , ולא בשום מקום אחר בקוד. בנוסף, מודולים ששיתפו נתונים בין התהליכים הוגדרו בעזרת המילה `INTERFACE`. מודולים מסוג זה יצרו תור לכל משתנה בתוכם כדי למנוע מצב שבו שני תהליכים או יותר היו ניגשים לקרוא או לכתוב באותו משתנה באותו הזמן. וירת המליץ נגד השימוש במשתנים כדי לסנכרן בין תהליכים, במקום זאת הוא עיצב בשפה אותות מיוחדים לניהול תהליכים מכל מקום בקוד. לאותות היה תחביר דומה לזה של קריאת שגרה. היו שני סוגי אותות: לעצירת תהליכים, ולהמשך תהליכים.

## תחביר
התחביר של מודולה מורכב מפקודות אימפרטיביות. פקודות מופרדות בעזרת נקודה ופסיק `;`, ולעיתים קרובות הן גם מכילות ביטויים שעוברים חישוב. פקודות וביטויים מורכבים מאסימונים שנוצרים מרצף תווי ASCII. אסימונים מוכרים מייצגים בין היתר מילים שמורות, ערכים, מחרוזות, הערות, מזהים (שמות של משתנים, קבועים, שגרות, ומודולים), פעולות, ופיסוק.

### אסימוני השפה

### מילים שמורות
למודולה היו 35 מילים שמורות.
```modula2
AND				DIV				INTERFACE		PROCEDURE		USE				
ARRAY			DO				LOOP			PROCESS			VALUE			
BEGIN			ELSE			MOD				RECORD			VAR				
CASE			ELSIF			MODULE			REPEAT			WHEN			
CONST			END				NOT				THEN			WHILE			
DEFINE			EXIT			OF				TYPE			WITH			
DEVICE			IF				OR				UNTIL			XOR
```


### פעולות

### פקודות וביטויים
בדומה לשפות תכנות אחרות, פקודות במודולה אפשרו תכנות אימפרטיבי בכך שהן הורו בקרת זרימה והקצאת ביטויים לתוך משתנים, בעוד שהביטויים עצמם היו רצפים של פעולות ואופרנדים שעוברים חישוב לפי סדר פעולות מתמטי, או סדר פעולות שהמתכנת היה מגדיר בעזרת סוגריים עגולים. מודולה הכירה בתשעה סוגי פקודות:

#  (קליטת ערך למשתנה) `:=`
# קריאת שגרה
# כניסה לתוך תחום ההכרזה של השדות ברשומה באמצעות הפקודה `WITH`
# שש פקודות לבקרת זרימה:
## תנאי `IF`
## ניתוב מקרים `CASE`
## יציאה ידנית מלולאת `LOOP` באמצעות הפקודה `EXIT`
## שלושה סוגי לולאות:
### לולאה אין סופית `LOOP`
### לולאת `WHILE`
### לולאת `REPEAT`

#### קבועים
מודולה אפשרה למתכנת להכריז ערכים קבועים. ערכים אלה אינם משתנים במהלך התוכנית. קבועים הוגדרו בשפה באמצעות מזהה והסימן `=` ולאחריו הערך (הערך יכול להיות גם מבנה נתונים ולא רק ערך בסיסי).
```modula2
ON = 1
OFF = 0
```


#### משתנים
הכרזה של משתנה נעשתה בעזרת הסימן `:` כשמשמאל שם המשתנה, ומימין טיפוס המשתנה.
```modula2
i, j, k: INTEGER
p, q: BOOLEAN
```


### בקרת זרימה
מהיותה שפת תכנות מבנית, חלק מסוגי הפקודות היו יכולות להכיל בתוכן תת-פקודות. לדוגמה, תנאי `IF` היה יכול להיות מוכל בתוך תנאי `IF` אחר, שגם הוא היה יכול להיות מוכל בתוך לולאת `WHILE`, וכך בעצם הייתה נוצרת בקרת זרימה. במודולה, הסימן נקודה ופסיק `;` הפריד בין פקודות והגדיר את סדר הביצוע בתוכנית.

##### לולאות
מודולה הציעה שלושה סוגי לולאות: `WHILE`, `REPEAT`, ו־`LOOP`. כמו בשפות אחרות, הלולאות `WHILE` ו־`REPEAT` היו תלויות בתנאי כלשהו. לעומת זאת, בלולאת `LOOP` נדרשה יציאה ידנית באמצעות הפקודה `EXIT` בתוכה.
```modula2
LOOP
    i := i + 1 WHEN i = n DO EXIT
END
```
בלולאת `WHILE`, כל עוד התנאי מתקיים, הלולאה תמשיך לחזור על עצמה. דוגמה ללולאת `WHILE`:
```modula2
WHILE i < n DO
    i := i + 1
END
```
בלולאת `REPEAT`, הבדיקה נעשית בסוף המחזור, והמחזור הראשון מתקיים ללא תנאי. התנאי לעצירה צריך להתקיים על מנת שהלולאה תיעצר. דוגמה ללולאת `REPEAT`:
```modula2
REPEAT
    i := i + 1
UNTIL i = n
```


##### תנאים
הפקודה `IF` אפשרה בקרת זרימה לפי תנאים. אם התנאי הראשון נכשל, ניתן לשרשר מספר תנאים נוספים אחריו בעזרת `ELSIF`, ומצב ברירת מחדל באמצעות `ELSE`. תחביר של תנאי מלא היה נראה כך:
```modula2
IF n = 0 THEN
    (* n equals 0 *)
ELSIF n = 1 THEN
    (* n equals 1 *)
ELSIF n > 1 THEN
    (* n is greater than 1 *)
ELSE
    (* n is lesser than 0 *)
END
```


#### ניתוב מקרים
הפקודה `CASE` הייתה מחשבת ביטוי כלשהו ואז מבצעת קטע פקודות בהתאם לתוצאה. הקטעים סומנו בעזרת ערך קבוע או ערך מפורש.
```modula2
CASE N OF
    0: BEGIN (* N equals 0 *) END
    1: BEGIN (* N equals 1 *) END
    2: BEGIN (* N equals 2 *) END
END
```


### תחום שדות רשומה
הפקודה `WITH` מקבלת רשומה והופכת את השדות שלה לזמינים בתוך הבלוק שלה בלי הצורך להקליד בכל פעם את הכתובת המלאה של השדה עם השם של הרשומה.
```modula2
WITH Account DO
    Balance := 0
END
```


### מבני נתונים
מודולה הכירה בשני מבני נתונים יסודיים: מערך ורשומה.

#### מערך
מערך הוגדר בשפה בעזרת המילה השמורה `ARRAY`, לאחריו טווח האינדקסים, ולאחר מכן טיפוסיות המערך. לדוגמה, מחרוזת באורך 80 תווים הוגדר כך:
```modula2
Line = ARRAY 0:79 OF CHAR
```
בנוסף, מערך רב ממדים הוגדר באמצעות רשימה של טווחים. לדוגמה, עמוד באורך 256 שורות שבכל אחת מהן יש 80 תווים הוגדר כך:
```modula2
Buffer = ARRAY 0:255, 0:79 OF CHAR
```
גישה לתוך מערך הייתה מתבצעת בעזרת זוג סוגריים מרובעים `[]` ובינם האינדקסים מסודרים ברשימה לכל ממד.
```modula2
B: Buffer
B[0, 0] := 'C'
```


#### רשומה
רשומה הוגדרה בשפה בעזרת המילה השמורה `RECORD` ואז רשימת השדות והטיפוסיות שלהם (הסימן נקודה ופסיק `;` הפריד בין השדות). לדוגמה:
```modula2
Account = RECORD
    FirstName: ARRAY 0:255 OF CHAR;
    LastName: ARRAY 0:255 OF CHAR;
    Balance: INTEGER;
    Alive: BOOLEAN
END
```
גישה לתוך שדות ברשומה הייתה מתבצעת באמצעות נקודה `.`.
```modula2
A: Account
A.Alive := TRUE
```


### שגרות
מהיותה שפת תכנות פרוצדורלית, פירקנים במודולה היו עשויים להגדיר תת-תוכניות ולייצא אותם כפקודות עם שמות ייחודיים ופרמטרים. פקודות כאלה נקראות שגרות והן היו מוגדרות בעזרת המילה השמורה `PROCEDURE`. שגרה היא בגדר  אם היא מחזירה ערך כלשהו, אחרת היא בגדר . פונקציה תחזיר את הערך שהוקצה למזהה שלה. הגדרת קבועים ומשתנים מקומיים התאפשרה לפני המילה `BEGIN`. המילה `CONST` הגדירה את הקבועים, בעוד המילה `VAR` הגדירה את המשתנים. דוגמה לפונקציה ריבועית פשוטה של מספרים שלמים f(n)=n^2 כך ש־f:\Z \rightarrow \N:
```modula2
PROCEDURE f(n: INTEGER): INTEGER;
BEGIN
    f := n * n;
END f
```

קריאה לשגרה נעשתה בעזרת רשימת ערכים מתאימים לפרמטרים בתוך סוגריים עגולים `()` מיד אחרי שם השגרה.
```modula2
k := Factorial(4)
```


### טיפוס נמנים
טיפוסי נמנים () הוגדרו בשפה בעזרת זוג סוגריים עגולים `()` ובתוכם רשימת מזהים מופרדים עם פסיק `,`.
```modula2
weekdays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday)
```


### מודולים
תוכניות במודולה היו בנויות מרכיבים שעברו הידור נפרד זה אחר זה לפי קשר התלות בינם, רכיבים אלו כונו "מודולים" או בעברית "פירקנים." מבנה המודול הוא גם השלד הבסיסי של כל קובץ קוד מקור בשפה. הקטע הבא מתאר את מבנה המודול במודולה. בסוף מודול תמיד מופיעה נקודה.
```modula2
MODULE MyModule
    DEFINE f, g;    (* List of exported identifiers *)
    USE;            (* List of imported identifiers *)
    CONST;          (* List of constants *)
    VAR;            (* List of variables *)
    (* Some procedures: *)
    PROCEDURE f(x: INTEGER): INTEGER BEGIN END f;
    PROCEDURE g(x: INTEGER): INTEGER BEGIN END g;
BEGIN
    (* Statements *)
END MyModule.
```


## ראו גם
* פסקל - שפת התכנות שממנה הורחבה מודולה.
* מודולה־2 - שפת התכנות שירשה את הפיתוח של מודולה.

## לקריאה נוספת

## קישורים חיצוניים
* 
* דגימות קוד של מודולה ב־RosettaCode (באנגלית)

## הערות שוליים
### אפיון השפה

### מקורות נוספים

קטגוריה:שפות תכנות