Η Ταινία του Τηλεγραφητή

Έχεις ήδη χρησιμοποιήσει ροές στο channel-chatter και τις έχεις αποδεσμεύσει στο boatswains-bilge. Αυτή η άσκηση είναι η πρώτη δική σου προσαρμοσμένη ροή: μια κλάση που υλοποιεί το πρωτόκολλο, ώστε ο ίδιος κώδικας with-input-stream / read1 / stream-read1 που δούλευε σε ένα <string-reader> να δουλεύει και στη δική σου.

Mixins: το άλλο μισό της ιεραρχίας κλάσεων

Ξέρεις ήδη το TUPLE: child < parent … από το dragons-descendants: μια ιεραρχία με έναν μόνο γονέα, όπου τα πεδία περνούν προς τα κάτω. Η Factor έχει και έναν δεύτερο τρόπο να επεκτείνεις το γράφημα κλάσεων: τα ανοιχτά mixins. Ένα MIXIN: m δηλώνει μια κλάση χωρίς πεδία, στην οποία άλλες κλάσεις μπορούν να ενταχθούν εκ των υστέρων με INSTANCE: c m. Η συμμετοχή είναι πολλά-προς-πολλά: μια κλάση μπορεί να είναι στιγμιότυπο όσων mixins θέλει.

Το πρωτόκολλο των ροών χρησιμοποιεί δύο mixins για να δηλώσει ποιο μισό της διεπαφής υλοποιεί μια κλάση:

INSTANCE: my-stream input-stream    ! readable
INSTANCE: my-stream output-stream   ! writable

Μια ροή μπορεί να είναι το ένα, το άλλο ή και τα δύο. Οι γενικές μέθοδοι στο input-stream (ή στο output-stream) απευθύνονται, λοιπόν, σε οποιαδήποτε κλάση έχει ενταχθεί στο mixin: έτσι βρίσκουν τον δρόμο τους προς την κλάση σου τα read1, stream-contents, with-input-stream κ.λπ.

Τα mixins είναι ανοιχτά: μπορείς να προσθέσεις ένα νέο μέλος αφού δηλωθεί το mixin, ακόμη και σε διαφορετικό λεξιλόγιο. Αυτή είναι η διαφορά με το TUPLE: < parent, όπου η σχέση καθορίζεται όταν δηλώνεται η κλάση-παιδί.

Οι γενικές μέθοδοι του πρωτοκόλλου

Οι γενικές μέθοδοι του πρωτοκόλλου βρίσκονται στο io:

stream-read1         ( stream -- elt/f )
stream-read          ( n stream -- seq/f )
stream-read-unsafe   ( n buf stream -- count )
stream-write1        ( elt stream -- )
stream-write         ( seq stream -- )
stream-flush         ( stream -- )
stream-element-type  ( stream -- type )

Το stream-read1 επιστρέφει το επόμενο byte (ή f στο τέλος της ροής). Το stream-write1 γράφει ένα. Το stream-read-unsafe είναι η μαζική ανάγνωση χαμηλότερου επιπέδου που παρέχουν οι περισσότερες ροές εισόδου· το stream-read χτίζεται πάνω της και αναλαμβάνει τη δέσμευση μνήμης. Το stream-element-type λέει αν η ροή δουλεύει με bytes (+byte+) ή με χαρακτήρες (+character+). Όταν τυλίγεις μια άλλη ροή, η απλούστερη υλοποίηση αναθέτει απλώς στην υποκείμενη ροή.

Ο καθαρισμός προέρχεται από το destructors

Οι ροές είναι disposables: μια προσαρμοσμένη ροή επεκτείνει το disposable και υλοποιεί το dispose*. Αυτό είναι το framework από το boatswains-bilge, εφαρμοσμένο σε μια κλάση ροής:

TUPLE: my-stream < disposable underlying ;

: <my-stream> ( underlying -- s )
    my-stream new-disposable swap >>underlying ;

M: my-stream dispose* underlying>> dispose ;

Μόλις μπει αυτό στη θέση του, όλοι οι συνδυαστές with-… από το channel-chatter δουλεύουν αυτόματα στη ροή σου.