Μετατροπή curl σε OCaml

Το Cohttp είναι η πρότυπη βιβλιοθήκη HTTP client και server για την OCaml. Υποστηρίζει τόσο Lwt (lightweight threads) όσο και Async backends για ταυτόχρονο I/O. Εγκαταστήστε το με opam install cohttp-lwt-unix. Παρέχει ένα type-safe, συναρτησιακό API για αιτήματα HTTP. Το curl2code χρησιμοποιεί το Cohttp για όλες τις μετατροπές σε OCaml.

Το Cohttp είναι η πρότυπη βιβλιοθήκη HTTP της OCaml με υποστήριξη Lwt/Async. Το ocurl περιβάλλει το libcurl, δίνοντας πρόσβαση σε όλες τις δυνατότητες του curl από την OCaml. Το piaf είναι νεότερο και εγγενές στο HTTP/2. Χρησιμοποιήστε το Cohttp για ιδιωματική OCaml, και το ocurl όταν χρειάζεστε συγκεκριμένες δυνατότητες του curl. Για παρόμοιες συναρτησιακές γλώσσες, δείτε curl σε Elixir ή curl σε Clojure.

Προσθέστε μια κεφαλίδα Authorization στο αίτημα: Header.add headers "Authorization" ("Bearer " ^ token). Για Basic auth, κωδικοποιήστε τα διαπιστευτήρια σε base64 χρησιμοποιώντας το πακέτο base64. Οι κεφαλίδες του Cohttp είναι αμετάβλητες (immutable) — δημιουργήστε τις με Header.of_list ή συνδέστε κλήσεις Header.add.

Κατασκευάστε το σώμα multipart χειροκίνητα με boundary strings ή χρησιμοποιήστε μια βιβλιοθήκη όπως η multipart_form. Ορίστε την κεφαλίδα Content-Type με το boundary. Το σώμα του Cohttp είναι ένα απλό string ή stream — διαμορφώστε το multipart payload σύμφωνα με το RFC 2046. Το curl2code χειρίζεται τη μετατροπή της παραμέτρου -F.

Το Cohttp με Lwt επιστρέφει promises — χρησιμοποιήστε τη σύνταξη Lwt.catch ή try%lwt ... with για το χειρισμό σφαλμάτων. Ελέγξτε τον κωδικό κατάστασης της απόκρισης με Response.status response. Το σύστημα τύπων της OCaml διασφαλίζει ότι χειρίζεστε τις περιπτώσεις αποτυχίας. Χρησιμοποιήστε pattern matching στους κωδικούς κατάστασης για εξαντλητικό χειρισμό.

Με το Lwt backend: χρησιμοποιήστε το Lwt.all [request1; request2] για παράλληλη εκτέλεση ή το Lwt_list.map_p για αντιστοίχιση πάνω σε URLs. Με το Async: χρησιμοποιήστε το Deferred.all. Ο συνεργατικός ταυτοχρονισμός (cooperative concurrency) της OCaml μέσω Lwt ή Async παρέχει ασφαλές και αποδοτικό ταυτόχρονο I/O χωρίς προβλήματα thread safety.

Με το Lwt, χρησιμοποιήστε το Lwt.pick [request; Lwt_unix.sleep timeout >>= fun () -> Lwt.fail Timeout] για να τρέξετε ένα αίτημα ενάντια σε έναν χρονοδιακόπτη. Το Cohttp δεν διαθέτει ενσωματωμένες επιλογές timeout — περιβάλλετε το Lwt promise με έναν συνδυαστή timeout. Για επαναλήψεις (retries), υλοποιήστε μια αναδρομική συνάρτηση με μειούμενες προσπάθειες.

Το Cohttp δεν διαθέτει ενσωματωμένη υποστήριξη proxy. Χρησιμοποιήστε το ocurl (libcurl bindings) για ανάγκες proxy: ορίστε την επιλογή CURLOPT_PROXY. Εναλλακτικά, ορίστε τη μεταβλητή περιβάλλοντος HTTP_PROXY και ρυθμίστε τη σύνδεση ώστε να δρομολογείται χειροκίνητα μέσω του host και της θύρας του proxy.

Μετατρέψτε μια curl POST εντολή όπως curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL σε OCaml χρησιμοποιώντας το curl2code. Ο παραγόμενος κώδικας χρησιμοποιεί Client.post ~body:(Cohttp_lwt.Body.of_string json) uri. Το curl2code εντοπίζει αυτόματα τα -d/--data flags με JSON περιεχόμενο και ορίζει την κατάλληλη Content-Type κεφαλίδα στον κώδικα Cohttp.

Περάστε το curl -H "Authorization: Bearer YOUR_TOKEN" URL στο curl2code και αυτό θα δημιουργήσει κώδικα Cohttp με την κεφαλίδα εξουσιοδότησης: Header.add headers 'Authorization' 'Bearer YOUR_TOKEN'. Το curl2code εντοπίζει τα Bearer tokens τόσο από τα -H "Authorization: Bearer ..." όσο και από τα --oauth2-bearer flags. Για Basic auth, χρησιμοποιήστε το -u user:pass.

Το curl2code μετατρέπει το curl -H "Content-Type: application/json" URL σε κώδικα Cohttp με τη σωστή κεφαλίδα: Header.add headers 'Content-Type' 'application/json'. Για δεδομένα -d, το curl χρησιμοποιεί από προεπιλογή το application/x-www-form-urlencoded· για μεταφορτώσεις φορμών -F, χρησιμοποιεί το multipart/form-data. Το curl2code αντιστοιχίζει το καθένα στο σωστό Cohttp API.