home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XCOMMU.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  12.9 KB  |  417 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.     Complete serial communications package
  7.        
  8. ****************************************************************/
  9. /*
  10. nobreak
  11. */
  12. project "xcommu"
  13.  
  14. domains
  15.   file    = sf; df  
  16.  
  17. database
  18.   editbuf(string)
  19.   port(integer,string)
  20.  
  21. include "tdoms.pro"
  22. include "comglobs.pro"
  23. include "tpreds.pro"
  24. include "menu.pro"
  25.  
  26. predicates
  27.   decide(integer)
  28.   
  29.   /* Polled transmission with time out */
  30.   send_str(string,integer)
  31.   send_ch(char,integer,integer)
  32.   send_ch_CRLF(char,integer,integer)
  33.   receive_str(integer)
  34.   receive_ch(char,integer,integer)
  35.   wait_ok(integer,integer,integer)
  36.  
  37.   /* Interrupt based Terminal Emulation */
  38.   interactive_com
  39.   chk_rdch
  40.   chk_wrch
  41.   rdch_CRLF_RS232(integer,char)
  42.  
  43.   /* Interrupt based Terminal Modem Communication */
  44.   interactive_modem
  45.   chk_rdmodem
  46.   chk_wrmodem
  47.   chk_modem(string,string)
  48.   init_modem_line
  49.   chk_modem_delay(integer,integer)
  50.   send_str_modem(string,integer,integer)
  51.   trans_modem(string,integer,integer,integer)
  52.   receive_modem(integer,integer,integer)
  53.  
  54.   /* Read and write to console the status of transmission */
  55.   wr_status(integer)
  56.   chk_stat(integer,integer,string)
  57.  
  58.   /* Miscellaneous */
  59.   mess(string)
  60.   rdch_keyb(char)
  61.   get_FileName(string,string)
  62.  
  63. GOAL
  64.     makewindow(1, 23,130," Message window ", 4,35,8,45),
  65.     makewindow(2, 42,36," Transmit window ", 3,0,10,80),
  66.     makewindow(3, 63,5," Receive window ", 13,0,10,80),
  67.     makewindow(6, 10,7," Configuration ",0,0,3,80),
  68.     assertz(editbuf("")),
  69.     asserta(port(1,"COMMU")),
  70.     asserta(port(2,"MODEM")),
  71.     repeat,
  72.     port(ComPort,"COMMU"),
  73.     port(ModPort,"MODEM"),
  74.     shiftwindow(6), clearwindow,
  75.     write(" The communication port is COM",ComPort,",  The modem is COM",ModPort),
  76.     shiftwindow(2), shiftwindow(3),
  77.     menu(10,20,64,23,
  78.          ["Open communication port",     /* 1 */
  79.             "Close communication port",         /* 2 */
  80.                "Send File using Protocol",         /* 3 */
  81.                "Receive File using Protocol",      /* 4 */
  82.                "Terminal Mode",                    /* 5 */
  83.                "No of Characters in buffers",      /* 6 */
  84.            "",                 
  85.                "Initialize modem port",          /* 8 */
  86.                "Close modem port",              /* 9 */
  87.                "Send File using modem",          /* 10 */
  88.                "Receive File using modem",       /* 11 */
  89.                "Terminal Mode using modem",      /* 12 */
  90.            "",
  91.                "Editor",                 /* 14 */
  92.                "Operating system",            /* 15 */
  93.           "Switch COM PORTS",              /* 16 */
  94.                "Quit"],                          /* 17 */
  95.               "Choose an option",0,Choice),
  96.     decide(Choice),
  97.     fail.
  98.  
  99. CLAUSES
  100. /* Open communication port    */
  101.   decide(1):-
  102.     port(PortNo,"COMMU"),            /* COM Port is PortNo */
  103.     InputBufSize    =    256,    /* Size of input buffer */
  104.     OutputBufSize    =    256,    /* Size of output buffer */
  105.     BaudRate    =    7,    /* 9600 bits per second    */
  106.     Parity        =    0,    /* No parity        */
  107.     WordLength    =    3,    /* Eight data bits    */
  108.     StopBits    =    0,    /* One stop bits    */
  109.     menu(10,10,64,23,["Without RTS/CTS and Xon/Xoff",
  110.                   "Xon/Xoff without RTS/CTS",
  111.                 "RTS/CTS without Xon/Xoff",
  112.                 "RTS/CTS and Xon/Xoff"],
  113.                 "Choose an option",0,Choice),
  114.       Protocol     = CHOICE-1,
  115.       openRs232(PortNo, InputBufSize, OutputBufSize, BaudRate, Parity,
  116.             WordLength, StopBits, Protocol),!.
  117.  
  118.   decide(1):-
  119.         mess("Open RS232 failed").
  120.  
  121.   /* Close communication port */
  122.   decide(2):-
  123.         port(PortNo,"COMMU"),closeRS232(PortNo),!.    /* Close PortNo */
  124.   decide(2):-
  125.         mess("Close RS232 failed").
  126.  
  127.   /*    Send file using protocol    */
  128.   decide(3):-
  129.         port(PortNo,"COMMU"),
  130.       shiftwindow(2),
  131.       get_filename("Name of file to be transmitted: ",FileName),
  132.     file_str(FileName,S), send_str(S,PortNo),!.
  133.   decide(3):-mess("Transmission failed").
  134.  
  135.   /*    Receive file using protocol    */
  136.   decide(4):-
  137.         port(PortNo,"COMMU"),
  138.       shiftwindow(3),
  139.       get_filename("Name of file to be received: ",FileName),
  140.       openwrite(df,FileName), receive_str(PortNo), closefile(df),!.
  141.   decide(4):-mess("Transmission failed").
  142.  
  143.   /* Terminal Mode */
  144.   decide(5):-
  145.       shiftwindow(2), write("\nTerminal Mode, Press Esc to abort\n"),
  146.       interactive_com.
  147.   
  148.   /* Number of characters in buffers */
  149.   decide(6):-
  150.         port(PortNo,"COMMU"),
  151.       queuesize_RS232(PortNo,CharInput,CharOutput),!,
  152.       makewindow(5,109,82," Information ",6,20,5,50),
  153.       write("\nNo of Characters in input buffer  : ",CharInput),
  154.       write("\nNo of Characters in output buffer : ",Charoutput),
  155.       readchar(_), removewindow.
  156.   decide(6):-mess("No Queues").
  157.  
  158.   /* Initialize modem port */
  159.   decide(8):-
  160.     port(PortNo,"MODEM"),        /* PortNo is Modem Port */
  161.     InputBufSize    =    256,    /* Size of input buffer */
  162.     OutputBufSize    =    256,    /* Size of output buffer */
  163.     BaudRate    =    4,    /* 1200 bits per second    */
  164.     Parity        =    2,    /* Even parity        */
  165.     WordLength    =    2,    /* Seven data bits    */
  166.     StopBits    =    0,    /* One stop bits    */
  167.       Protocol    =    3,    /* RTS/CTS and Xon/Xoff */
  168.       openRs232(PortNo, InputBufSize, OutputBufSize, BaudRate, Parity,
  169.             WordLength, StopBits, Protocol),
  170.       SetModemMode(PortNo,"AT",'\013',25),!.
  171.  
  172.   decide(8):-mess("Initialization of MODEM port failed").
  173.  
  174.   /* Close modem port    */
  175.   decide(9):-    
  176.          port(PortNo,"MODEM"),    
  177.          closeRS232(PortNo),!.      /* Close PortNo */
  178.   decide(9):-mess("Close Modem Port failed").
  179.  
  180.   /* Send file using modem port    */
  181.   decide(10):-    
  182.         port(PortNo,"MODEM"),    
  183.       shiftwindow(2),
  184.       get_filename("Name of file to be transmitted: ",FileName),
  185.     file_str(FileName,S),
  186.     send_str_modem(S,PortNo,1),!.
  187.   decide(10):-mess("Transmission via modem failed").
  188.  
  189.   /* Receive file using modem port    */
  190.   decide(11):-    
  191.         port(PortNo,"MODEM"),    
  192.       shiftwindow(3),
  193.       get_filename("Name of file to be received: ",FileName),
  194.       openwrite(df,FileName),
  195.       receive_str(PortNo), closefile(df), !.
  196.   decide(11):-mess("Transmission via Modem failed").
  197.  
  198.   /* Set modem in Terminal Mode */
  199.   decide(12):-
  200.       shiftwindow(2),
  201.       init_modem_line,
  202.       write("\nTerminal Mode, Press Esc to abort\n"),
  203.       interactive_modem.
  204.   
  205.   /* Editor */
  206.   decide(14):-
  207.     makewindow(5,109,82," Edit Window ",6,10,15,60),
  208.     editbuf(Str), edit(Str,Str2),
  209.     retract(editbuf(Str)), assert(editbuf(Str2)),!.
  210.  
  211.   /* Operating system */
  212.   decide(15):-system("").
  213.   
  214.   /* option to switch comm ports commu = 2 and modem = 1 */
  215.   decide(16):-
  216.       retract(port(_,_)), fail.
  217.   decide(16):-
  218.       assert(port(1,"MODEM")),
  219.       assert(port(2,"COMMU")).    
  220.       
  221.   /* Quit */
  222.   decide(17):-         
  223.          closeRS232(1),fail.      /* Close COM1 */
  224.   decide(17):-         
  225.          closeRS232(2),fail.      /* Close COM2 */
  226.   decide(17):-exit.
  227.  
  228.  
  229. /****************************************************************
  230.         Polled transmission with time out
  231. ****************************************************************/
  232.  
  233.   /* Transmit a string  */
  234.   send_str("",_):-!.
  235.   send_str(S,PortNo):-
  236.     frontchar(S,CH,S2),
  237.     write(CH), send_ch_CRLF(CH,50,PortNo),
  238.     send_str(S2,PortNo).
  239.  
  240.   send_ch_CRLF('\10',I,PortNo):-
  241.       !,send_ch('\13',I,PortNo), send_ch('\10',I,PortNo).
  242.   send_ch_CRLF(CH,I,PortNo):-send_ch(CH,I,PortNo).
  243.  
  244.   send_ch(CH,_,PortNo):-Txch_RS232(PortNo,CH),!.
  245.   send_ch(CH,I,PortNo):-
  246.       status_RS232(PortNo,Status), !,
  247.       wait_ok(Status,I,I2), send_ch(CH,I2,PortNo).
  248.  
  249.   /* Receive a string and copy it to a file */
  250.   receive_str(PortNo):-
  251.     receive_ch(CH,50,PortNo),!, write(CH),
  252.     writedevice(FP), writedevice(df), write(CH), writedevice(FP),
  253.       receive_str(PortNo).
  254.   receive_str(_).
  255.  
  256.   receive_ch(CH,_,PortNo):-Rxch_RS232(PortNo,CH), CH<>'\013', !.
  257.   receive_ch(CH,_,PortNo):-Rxch_RS232(PortNo,CH), !.
  258.   receive_ch(CH,I,PortNo):-
  259.       status_RS232(PortNo,Status),
  260.       wait_ok(Status,I,I2), receive_ch(CH,I2,PortNo).
  261.  
  262.   /* Test for time out */
  263.   wait_ok(_,I,I2):-I > 0, I2=I-1,ticks(10),!.
  264.   wait_ok(Status,_,50):-wr_status(Status).
  265.  
  266.   /* Transmit a string using modem port */
  267.   send_str_modem("",_,_):-!.
  268.   send_str_modem(S,PortNo,ChCoun):-
  269.     frontchar(S,CH,S2),
  270.     write(CH), send_ch_CRLF(CH,50,PortNo),
  271.     chk_modem_delay(ChCoun,NewChCoun),
  272.     send_str_modem(S2,PortNo,NewChCoun).
  273.  
  274.   /* Some modem are without hand shake */
  275.   chk_modem_delay(10,1):-!,Ticks(8).
  276.   chk_modem_delay(I,I2):-I2=I+1.
  277.   
  278.   /* Demask status value */
  279.   wr_status(0):-!.
  280.   wr_status(Status):-
  281.       shiftwindow(WD), shiftwindow(1),
  282.       chk_stat(Status,1,  "Input Characters have been lost"),
  283.       chk_stat(Status,2,  "Parity Error"),
  284.       chk_stat(Status,4,  "Overrun detected"),
  285.       chk_stat(Status,8,  "Framing error detected"),
  286.       chk_stat(Status,16, "Break signal detected"),
  287.       chk_stat(Status,32, "An Xoff has been received"),
  288.       chk_stat(Status,64, "An Xon has been received"),
  289.       chk_stat(Status,128,"An Xoff has been transmitted"),
  290.       chk_stat(Status,256,"An Xon has been transmitted"),
  291.       chk_stat(Status,512,"Input buffer empty when attempt to read"),
  292.       chk_stat(Status,1024,"Output buffer full when attempt to write"),
  293.       write("\nPress Space to continue or Esc to abort"), readchar(Ch),
  294.       shiftwindow(2), shiftwindow(3),
  295.       shiftwindow(WD),CH<>'\27'.
  296.  
  297.   chk_stat(Status,BitMask,Mess):-
  298.       bitand(Status,BitMask,V), V<>0, !, nl, write(Mess).
  299.   chk_stat(_,_,_).
  300.  
  301.  
  302. /****************************************************************
  303.  
  304.         TERMINAL MODE
  305.     Interrupt based transmission without time out
  306.  
  307. ****************************************************************/
  308.  
  309.   /* Terminal Mode */
  310.   interactive_com:-chk_rdch, chk_wrch,interactive_com.
  311.  
  312.   chk_rdch:-    
  313.        port(PortNo,"COMMU"),    
  314.        rdch_CRLF_RS232(PortNo,CH),!,shiftwindow(3), write(CH).
  315.   chk_rdch.
  316.  
  317.   chk_wrch:-shiftwindow(2), cursor(R,C), cursor(R,C), not(keypressed),!.
  318.   chk_wrch:-
  319.         port(PortNo,"COMMU"),!,    
  320.       rdch_keyb(CH),CH<>'\027',
  321.       write(CH), 
  322.       Txch_RS232(PortNo,CH).
  323.   
  324.   rdch_CRLF_RS232(PortNo,CH):-Rxch_RS232(PortNo,CH), CH<>'\013',!.
  325.   rdch_CRLF_RS232(PortNo,CH):-Rxch_RS232(PortNo,CH).
  326.  
  327.  
  328. /****************************************************************
  329.  
  330.          TERMINAL MODE - MODEM COMMUNICATION
  331.     Interrupt based transmission without time out
  332.  
  333. ****************************************************************/
  334.  
  335.   interactive_modem():-chk_rdmodem, chk_wrmodem,interactive_modem.
  336.   
  337.   chk_rdmodem:-RxStr_modem(Mess),shiftwindow(3), write(Mess), fail.
  338.   chk_rdmodem.
  339.  
  340.   chk_wrmodem:-shiftwindow(2), cursor(R,C), cursor(R,C), not(keypressed),!.
  341.   chk_wrmodem:-readln(L), upper_lower(L,L2), chk_modem(L,L2).
  342.  
  343.   /* Command to the modem when it is in terminal mode */
  344.   /* Send a break signal */
  345.   chk_modem(_,"break"):-!,
  346.            port(PortNo,"MODEM"),!,    
  347.            SetModemMode(PortNo,"AT",'\013',10),SendBreak_RS232.
  348.  
  349.   /* Prefix every commands with "AT" and suffix it with CR */
  350.   chk_modem(_,"at on"):-!,
  351.            port(PortNo,"MODEM"),!,    
  352.            SetModemMode(PortNo,"AT",'\013',10).
  353.  
  354.   /* No transformation at all - might be useful when transmitting data */
  355.   chk_modem(_,"at off"):-!,
  356.            port(PortNo,"MODEM"),!,    
  357.            SetModemMode(PortNo,"",'\013',10)./*No transform at all*/
  358.   chk_modem(L,_)      :-TxStr_modem(L,_).
  359.  
  360. /****************************************************************
  361.  
  362.         MODEM SUPPORT PREDICATES
  363.  
  364. ****************************************************************/
  365.  
  366.   init_modem_line:-
  367.       shiftwindow(OldWD),        /* Old window */
  368.       trans_modem("Z ",2,1,10),    /* Reset the modem to initial state */
  369.       trans_modem("C1",2,1,10),    /* Set carrier high */
  370.       shiftwindow(OldWd).
  371.  
  372.   trans_modem(Mstr,NoofAnsw,NoOFRetr,Delay):-
  373.     ticks(10),
  374.       shiftwindow(2),            /* Transmission window */
  375.       write("\n" ,Mstr),
  376.       TxStr_modem(Mstr,_),        /* Command to modem */
  377.       shiftwindow(3),            /* Receive window */
  378.       receive_modem(NoofAnsw,NoOfRetr,Delay).
  379.  
  380.   receive_modem(0,_,_):-!.        /* No more to receive */
  381.   receive_modem(I,R,Delay):-
  382.     ticks(Delay),
  383.       RxStr_modem(Mess1),
  384.     write(Mess1), I2=I-1, !,
  385.     receive_modem(I2,R,50).    /* first delay is highest */
  386.  
  387.   receive_modem(_,1,_):-trans_modem("I2",5,0,400),!,fail.
  388.     
  389.  
  390. /****************************************************************
  391.  
  392.         Miscellaneous
  393.  
  394. ****************************************************************/
  395.  
  396.   mess(Str):-
  397.       shiftwindow(WD), shiftwindow(1),
  398.       write("\n\n",Str),
  399.       write("\nPress Space to continue"), readchar(_),
  400.       shiftwindow(2), shiftwindow(3),
  401.       shiftwindow(WD).
  402.  
  403.   /* Read char from keyboard and transform CR to LF */
  404.   rdch_keyb(CH):-readchar(CH), CH<>'\013',!.
  405.   rdch_keyb('\010'). /*CH = '\010'.*/
  406.  
  407.   /* Get filename from concole */
  408.   get_FileName(Mess,FileName):-
  409.       makewindow(4,12,52," Input ",12,10,3,50),
  410.       write(Mess),
  411.       readln(FileName),FileName<>"",!,removewindow.
  412.   get_FileName(_,FileName):-
  413.       makewindow(4,23,12," Input ",12,10,12,50),
  414.       disk(Disk), dir(Disk,"*.txt",FileName),!,removewindow,removewindow.
  415.   get_FileName(_,""):-
  416.       removewindow, removewindow, fail.
  417.