Erlang - ไดรเวอร์

บางครั้งเราต้องการรันโปรแกรมภาษาต่างประเทศภายใน Erlang Runtime System ในกรณีนี้โปรแกรมจะถูกเขียนเป็นไลบรารีแบบแบ่งใช้ที่เชื่อมโยงแบบไดนามิกเข้ากับระบบรันไทม์ Erlang ไดรเวอร์ที่เชื่อมโยงกับโปรแกรมเมอร์จะปรากฏเป็นโปรแกรมพอร์ตและเป็นไปตามโปรโตคอลเดียวกันกับโปรแกรมพอร์ต

การสร้างไดรเวอร์

การสร้างไดรเวอร์ที่เชื่อมโยงกันเป็นวิธีที่มีประสิทธิภาพที่สุดในการเชื่อมต่อรหัสภาษาต่างประเทศกับ Erlang แต่ก็เป็นวิธีที่อันตรายที่สุดเช่นกัน ข้อผิดพลาดร้ายแรงใด ๆ ในไดรเวอร์ที่เชื่อมโยงอยู่จะทำให้ระบบ Erlang ผิดพลาด

ต่อไปนี้เป็นตัวอย่างของการใช้งานไดรเวอร์ใน Erlang -

ตัวอย่าง

-module(helloworld). 
-export([start/0, stop/0]). 
-export([twice/1, sum/2]). 

start() ->
   start("example1_drv" ). 
start(SharedLib) ->
   case erl_ddll:load_driver("." , SharedLib) of 
   ok -> ok; 
      {error, already_loaded} -> ok; 
      _ -> exit({error, could_not_load_driver}) 
   end, 
   
   spawn(fun() -> init(SharedLib) end). 

init(SharedLib) -> 
   register(example1_lid, self()), 
   Port = open_port({spawn, SharedLib}, []), 
   loop(Port). 

stop() -> 
   example1_lid ! stop. 

twice(X) -> call_port({twice, X}). 
sum(X,Y) -> call_port({sum, X, Y}). call_port(Msg) -> 
   example1_lid ! {call, self(), Msg}, receive 
      {example1_lid, Result} -> 
      Result 
   end. 

LINKED-IN DRIVERS 223 
loop(Port) -> 
receive 
   {call, Caller, Msg} -> 
   Port ! {self(), {command, encode(Msg)}}, receive 
   {Port, {data, Data}} ->
   Caller ! {example1_lid, decode(Data)} 
   end, 

loop(Port); 
stop -> Port ! 
   {self(), close}, 
   receive 
      {Port, closed} -> 
      exit(normal) 
   end; 
   
      {'EXIT', Port, Reason} -> 
      io:format("~p ~n" , [Reason]), 
      exit(port_terminated) 
   end. 

encode({twice, X}) -> [1, X]; 
encode({sum, X, Y}) -> [2, X, Y]. decode([Int]) -> Int.

โปรดทราบว่าการทำงานกับไดรเวอร์มีความซับซ้อนอย่างยิ่งและควรใช้ความระมัดระวังเมื่อทำงานกับไดรเวอร์