Porting PiLLoW to Quintus Prolog - Revision history

John: /* Updating link to HTTPS */

2022-08-02T19:52:25Z

Updating link to HTTPS

← Older revision		Revision as of 15:52, 2 August 2022
Line 1:		Line 1:
	== Porting PiLLoW to Quintus Prolog 3.X ==		== Porting PiLLoW to Quintus Prolog 3.X ==

	The [~~http~~://cliplab.org/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and server applications.		The [https://cliplab.org/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and server applications.

	For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.		For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.

John: /* Updating link to HTTPS */

2022-08-02T19:51:09Z

Updating link to HTTPS

← Older revision		Revision as of 15:51, 2 August 2022
Line 9:		Line 9:
	==PiLLoW 1.1==		==PiLLoW 1.1==

	If you want to port [~~http~~://cliplab.org/miscdocs/pillow/pillow.html PiLLoW 1.1] to [~~http~~://quintus.sics.se/ Quintus Prolog], the following notes may be of use.		If you want to port [https://cliplab.org/miscdocs/pillow/pillow.html PiLLoW 1.1] to [https://quintus.sics.se/ Quintus Prolog], the following notes may be of use.

	===http_transaction/5===		===http_transaction/5===

John: /* Pillow 1.0 */

2018-01-13T20:34:04Z

Pillow 1.0

← Older revision	Revision as of 16:34, 13 January 2018
(No difference)

John: /* Pillow 1.0 */

2017-10-21T00:08:58Z

Pillow 1.0

← Older revision		Revision as of 20:08, 20 October 2017
Line 109:		Line 109:
	==Pillow 1.0==		==Pillow 1.0==

	I have ported PiLLoW 1.0 to use the [~~http~~://quintus.sics.se/ Quintus Prolog] 3.X libraries, and made it available as a [https://binding-time.co.uk/download/pillow.zip 260Kb Zip file]. It is offered here as free, '''unsupported''' source code, for which the author accepts no liability whatsoever.		I have ported PiLLoW 1.0 to use the [https://quintus.sics.se/ Quintus Prolog] 3.X libraries, and made it available as a [https://binding-time.co.uk/download/pillow.zip 260Kb Zip file]. It is offered here as free, '''unsupported''' source code, for which the author accepts no liability whatsoever.

	'''''Note:''''' The parsing of "multipart" form data on win32 can produce errors, when binary files are submitted, e.g. sending image files as part of the form input. This is because the default for "stdin" on win32 is "text".		'''''Note:''''' The parsing of "multipart" form data on win32 can produce errors, when binary files are submitted, e.g. sending image files as part of the form input. This is because the default for "stdin" on win32 is "text".

John: Remove broken syntax highlighting

2017-01-05T22:57:09Z

Remove broken syntax highlighting

← Older revision		Revision as of 18:57, 5 January 2017
Line 22:		Line 22:


	<~~syntaxhighlight lang~~="prolog">		<pre class="prolog">
	:- use_module(library(tcp)).		:- use_module(library(tcp)).
	:- use_module(library(socketio)).		:- use_module(library(socketio)).
Line 68:		Line 68:

	:- use_module( library(environ), [environ/2] ).		:- use_module( library(environ), [environ/2] ).
	</~~syntaxhighlight~~>		</pre>
	The ISO Prolog predicates used in PiLLoW can be mapped to equivalent Quintus built-in predicates.		The ISO Prolog predicates used in PiLLoW can be mapped to equivalent Quintus built-in predicates.

	<~~syntaxhighlight lang~~="prolog">flush_output :-		<pre class="prolog">flush_output :-
	ttyflush.		ttyflush.

Line 93:		Line 93:

	put_code( Code ) :-		put_code( Code ) :-
	put( Code ).</~~syntaxhighlight~~>		put( Code ).</pre>
	Similarly, some library predicates are not defined/defined differently in Quintus:		Similarly, some library predicates are not defined/defined differently in Quintus:

	<~~syntaxhighlight lang~~="prolog">atom_concat( A, B, AB ) :-		<pre class="prolog">atom_concat( A, B, AB ) :-
	name( A, AS ),		name( A, AS ),
	name( B, BS ),		name( B, BS ),
Line 105:		Line 105:
	environ( Var, QueryString ).		environ( Var, QueryString ).

	:- use_module( library(environ), [environ/2] ).</~~syntaxhighlight~~>		:- use_module( library(environ), [environ/2] ).</pre>

	==Pillow 1.0==		==Pillow 1.0==

John: /* PiLLoW 1.1 */

2016-05-22T00:29:25Z

PiLLoW 1.1

← Older revision		Revision as of 20:29, 21 May 2016
Line 9:		Line 9:
	==PiLLoW 1.1==		==PiLLoW 1.1==

	If you want to port [http://~~clip~~.~~dia.fi.upm.es~~/miscdocs/pillow/pillow.html PiLLoW 1.1] to [http://quintus.sics.se/ Quintus Prolog], the following notes may be of use.		If you want to port [http://cliplab.org/miscdocs/pillow/pillow.html PiLLoW 1.1] to [http://quintus.sics.se/ Quintus Prolog], the following notes may be of use.

	===http_transaction/5===		===http_transaction/5===

John: /* Porting PiLLoW to Quintus Prolog 3.X */ Updated PiLLoW link

2016-05-22T00:28:29Z

Porting PiLLoW to Quintus Prolog 3.X: Updated PiLLoW link

← Older revision		Revision as of 20:28, 21 May 2016
Line 1:		Line 1:
	== Porting PiLLoW to Quintus Prolog 3.X ==		== Porting PiLLoW to Quintus Prolog 3.X ==

	The [http://~~clip~~.~~dia.fi.upm.es~~/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and server applications.		The [http://cliplab.org/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and server applications.

	For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.		For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.

John at 09:52, 11 September 2015

2015-09-11T09:52:59Z

← Older revision		Revision as of 05:52, 11 September 2015
Line 5:		Line 5:
	For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.		For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.

	For server applications it provides a predicate to access CGI query parameters, so that a Prolog application can be used to handle form input directly i.e. without additional scripting. Additionally, HTML parsing supports the reverse translation of terms into HTML, so that forms can be generated.		For server applications, it provides a predicate to access CGI query parameters, so that a Prolog application can be used to handle form input directly i.e. without additional scripting. Additionally, HTML parsing supports the reverse translation of terms into HTML, so that forms can be generated.

	==PiLLoW 1.1==		==PiLLoW 1.1==

John: /* http_transaction/5 */

2014-06-08T21:39:18Z

http_transaction/5

← Older revision		Revision as of 17:39, 8 June 2014
Line 17:		Line 17:
	====http_transaction(+Host, +Port, +Request, +Timeout, -Response)====		====http_transaction(+Host, +Port, +Request, +Timeout, -Response)====

	Sends an HTTP Request to an HTTP server <~~code~~>(Host:Port)</~~code~~> and returns the ~~resultant~~ message in Response.		Sends an HTTP <var>Request</var> to an HTTP server <var>Host</var>:<var>Port</var> and returns the resulting message in <var>Response</var>.

			<var>Timeout</var> defines the maximum number of seconds to wait for a response.

John: Created page with "== Porting PiLLoW to Quintus Prolog 3.X == The [http://clip.dia.fi.upm.es/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and serve..."

2014-06-07T11:18:55Z

Created page with "== Porting PiLLoW to Quintus Prolog 3.X == The [http://clip.dia.fi.upm.es/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and serve..."

New page

== Porting PiLLoW to Quintus Prolog 3.X ==

The [http://clip.dia.fi.upm.es/miscdocs/pillow/pillow.html PiLLoW] library provides predicates for developing HTTP client and server applications.

For client applications, it provides mechanisms to retrieve HTML files and to parse HTML into useful Prolog terms.

For server applications it provides a predicate to access CGI query parameters, so that a Prolog application can be used to handle form input directly i.e. without additional scripting. Additionally, HTML parsing supports the reverse translation of terms into HTML, so that forms can be generated.

==PiLLoW 1.1==

If you want to port [http://clip.dia.fi.upm.es/miscdocs/pillow/pillow.html PiLLoW 1.1] to [http://quintus.sics.se/ Quintus Prolog], the following notes may be of use.

===http_transaction/5===

must be rewritten to use the Quintus tcp and socketio libraries.

====http_transaction(+Host, +Port, +Request, +Timeout, -Response)====

Sends an HTTP Request to an HTTP server <code>(Host:Port)</code> and returns the resultant message in Response.

<syntaxhighlight lang="prolog">
:- use_module(library(tcp)).
:- use_module(library(socketio)).
:- use_module(library(date), [now/1]).

http_transaction( Host, Port, Request, Timeout, Response ) :-
tcp:connect( Host, Port, Socket ),
Socket >= 0, % Fail if connect error
socket_io_open_output( Socket, Ocode ),
stream_code( OStream, Ocode ),
write_string( OStream, Request ),
close( OStream ),
socket_io_open_input( Socket, Icode ),
stream_code( IStream, Icode ),
now( Now ),
http_transaction1( Now, Socket, IStream, Timeout, Response ),
close( IStream ),
tcp:tcp_shutdown( Socket, _Status ),
Response \== timeout.

http_transaction1( Now, Socket, IStream, Timeout, Response ) :-
tcp:tcp_select( 0, Timeout, FD, Status ),
http_transaction2( Status, Now, Socket, FD, IStream, Timeout, Response ).

http_transaction2( 1, Then, Socket, FD, IStream, Timeout, Response ) :-
( Socket == FD ->
stream_to_string( IStream, Response )
; otherwise ->
now( Now ),
Elapsed is Now - Then,
( Elapsed < Timeout ->
Timeout1 is Timeout - Elapsed,
http_transaction1( Now, Socket, IStream, Timeout1, Response )
; otherwise ->
Response = timeout
)
).
http_transaction2( 0, _Then, _Socket, _FD, _IStream, _Timeout, timeout ).
http_transaction2( -1, _Then, Socket, _FD, IStream, Timeout, _Response ) :-
raise_exception( socket_error(Socket, IStream, Timeout) ).

getenvstr( Var, Chars ) :-
environ( Var, Atom ),
atom_chars( Atom, Chars ).

:- use_module( library(environ), [environ/2] ).
</syntaxhighlight>
The ISO Prolog predicates used in PiLLoW can be mapped to equivalent Quintus built-in predicates.

<syntaxhighlight lang="prolog">flush_output :-
ttyflush.

atom_codes( Atom, Codes ) :-
atom_chars( Atom, Codes ).

catch( Goal, Error, Action ) :-
on_exception( Error, Goal, Action ).

get_code( Code ) :-
get0( Code ).

get_code( Stream, Code ) :-
get0( Stream, Code ).

include( File ) :-
ensure_loaded( File ).

number_codes( Number, Codes ) :-
number_chars( Number, Codes ).

put_code( Code ) :-
put( Code ).</syntaxhighlight>
Similarly, some library predicates are not defined/defined differently in Quintus:

<syntaxhighlight lang="prolog">atom_concat( A, B, AB ) :-
name( A, AS ),
name( B, BS ),
append( AS, BS, ABS ),
atom_chars( AB, ABS ).

getenv( Var, QueryString ) :-
environ( Var, QueryString ).

:- use_module( library(environ), [environ/2] ).</syntaxhighlight>

==Pillow 1.0==

I have ported PiLLoW 1.0 to use the [http://quintus.sics.se/ Quintus Prolog] 3.X libraries, and made it available as a [https://binding-time.co.uk/download/pillow.zip 260Kb Zip file]. It is offered here as free, '''unsupported''' source code, for which the author accepts no liability whatsoever.

'''''Note:''''' The parsing of "multipart" form data on win32 can produce errors, when binary files are submitted, e.g. sending image files as part of the form input. This is because the default for "stdin" on win32 is "text".