First integration of the new GW_ design more centralized on connector, and does not require specific feature on GW_APPLICATION depending on the connector.
So this is really more flexible this way, and much easier to write application supporting CGI, FCGI, Nino and so on .. as demonstrated in hello_world This is a first version, more will come later, mainly migrating from Eiffel Web Reloaded to this Eiffel Web Framework project.
This commit is contained in:
Jocelyn Fiat
136
library/server/libfcgi/implementation/windows/fcgi_c_api.e
Normal file
136
library/server/libfcgi/implementation/windows/fcgi_c_api.e
Normal file
@@ -0,0 +1,136 @@
|
||||
note
|
||||
description: "Wrappers around FastCGI C API."
|
||||
legal: "See notice at end of class."
|
||||
status: "See notice at end of class."
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
FCGI_C_API
|
||||
|
||||
feature -- Connections
|
||||
|
||||
accept: INTEGER
|
||||
-- Accept a Fast CGI connection.
|
||||
-- Return 0 for successful calls, -1 otherwise.
|
||||
external
|
||||
"dll libfcgi.dll signature (): EIF_INTEGER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_Accept"
|
||||
end
|
||||
|
||||
environ: POINTER
|
||||
-- Get the (char**) environ variable from the DLL.
|
||||
external
|
||||
"dll libfcgi.dll signature (): EIF_POINTER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_Environ"
|
||||
end
|
||||
|
||||
finish
|
||||
-- Finished current request from HTTP server started from
|
||||
-- the most recent call to `accept'.
|
||||
external
|
||||
"dll libfcgi.dll signature () use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_Finish"
|
||||
end
|
||||
|
||||
set_exit_status (v: INTEGER)
|
||||
-- Set the exit status for the most recent request
|
||||
external
|
||||
"dll libfcgi.dll signature (EIF_INTEGER) use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_SetExitStatus"
|
||||
end
|
||||
|
||||
feature -- Input
|
||||
|
||||
fread (v: POINTER; a_size: INTEGER; n: INTEGER; fp: POINTER): INTEGER
|
||||
-- FCGI_fread() read from input `fp' and put into `v'
|
||||
external
|
||||
"dll libfcgi.dll signature (EIF_POINTER, EIF_INTEGER, EIF_INTEGER, EIF_POINTER): EIF_INTEGER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_fread"
|
||||
end
|
||||
|
||||
feof (v: POINTER): INTEGER
|
||||
-- FCGI_feof()
|
||||
external
|
||||
"dll libfcgi.dll signature (EIF_POINTER): EIF_INTEGER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_feof"
|
||||
end
|
||||
|
||||
read_content_into (a_buffer: POINTER; a_length: INTEGER): INTEGER
|
||||
-- Read content stream into `a_buffer' but no more than `a_length' character.
|
||||
local
|
||||
i: INTEGER
|
||||
l_stdin: POINTER
|
||||
do
|
||||
l_stdin := stdin
|
||||
i := feof (l_stdin)
|
||||
if i /= 0 then
|
||||
Result := 0
|
||||
else
|
||||
Result := fread(a_buffer, 1, a_length, l_stdin)
|
||||
end
|
||||
end
|
||||
|
||||
gets (s: POINTER): POINTER
|
||||
-- gets() reads a line from stdin into the buffer pointed to
|
||||
-- by `s' until either a terminating newline or EOF, which it
|
||||
-- replaces with '\0'
|
||||
-- No check for buffer overrun is performed
|
||||
external
|
||||
"dll libfcgi.dll signature (EIF_POINTER): EIF_POINTER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_gets"
|
||||
end
|
||||
|
||||
feature -- Output
|
||||
|
||||
put_string (v: POINTER; n: INTEGER)
|
||||
local
|
||||
i: INTEGER
|
||||
do
|
||||
i := fwrite (v, 1, n, stdout)
|
||||
end
|
||||
|
||||
fwrite (v: POINTER; a_size: INTEGER; n: INTEGER; fp: POINTER): INTEGER
|
||||
-- FCGI_fwrite() ouput `v' to `fp'
|
||||
external
|
||||
"dll libfcgi.dll signature (EIF_POINTER, EIF_INTEGER, EIF_INTEGER, EIF_POINTER): EIF_INTEGER use fcgi_stdio.h "
|
||||
alias
|
||||
"FCGI_fwrite"
|
||||
end
|
||||
|
||||
feature -- Access
|
||||
|
||||
stdout: POINTER
|
||||
-- FCGI_stdout() return pointer on output FCGI_FILE
|
||||
external
|
||||
"C inline use %"fcgi_stdio.h%""
|
||||
alias
|
||||
"FCGI_stdout"
|
||||
end
|
||||
|
||||
stdin: POINTER
|
||||
-- FCGI_stdin() return pointer on input FCGI_FILE
|
||||
external
|
||||
"C inline use %"fcgi_stdio.h%""
|
||||
alias
|
||||
"FCGI_stdin"
|
||||
end
|
||||
|
||||
note
|
||||
copyright: "Copyright (c) 1984-2011, Eiffel Software and others"
|
||||
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
|
||||
source: "[
|
||||
Eiffel Software
|
||||
5949 Hollister Ave., Goleta, CA 93117 USA
|
||||
Telephone 805-685-1006, Fax 805-685-6869
|
||||
Website http://www.eiffel.com
|
||||
Customer support http://support.eiffel.com
|
||||
]"
|
||||
end
|
||||
267
library/server/libfcgi/implementation/windows/fcgi_imp.e
Normal file
267
library/server/libfcgi/implementation/windows/fcgi_imp.e
Normal file
@@ -0,0 +1,267 @@
|
||||
note
|
||||
description: "Implementation for the FCGI_I interface"
|
||||
legal: "See notice at end of class."
|
||||
status: "See notice at end of class."
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
deferred class FCGI_IMP
|
||||
|
||||
inherit
|
||||
FCGI_I
|
||||
|
||||
feature {NONE} -- Initialization
|
||||
|
||||
make
|
||||
-- Initialize FCGI interface
|
||||
do
|
||||
create fcgi
|
||||
end
|
||||
|
||||
fcgi: FCGI_C_API
|
||||
-- FastCGI C API primitives
|
||||
|
||||
feature -- Access
|
||||
|
||||
fcgi_environ: POINTER
|
||||
do
|
||||
Result := fcgi.environ
|
||||
end
|
||||
|
||||
-- updated_environ_variables: HASH_TABLE [STRING, STRING]
|
||||
-- local
|
||||
---- n, l_size,
|
||||
-- i: INTEGER
|
||||
-- p, v, null: POINTER
|
||||
-- do
|
||||
---- update_eif_environ
|
||||
---- Result := starting_environment_variables
|
||||
--
|
||||
---- p := environ_strings_pointer ($n)
|
||||
---- from
|
||||
---- i := 1
|
||||
---- l_size := 0
|
||||
---- create Result.make (n)
|
||||
---- until
|
||||
---- i > n
|
||||
---- loop
|
||||
---- create s.make_from_c (p.plus (l_size))
|
||||
---- l_size := l_size + s.count + 1
|
||||
---- if attached separated_variables (s) as t then
|
||||
---- Result.force (t.value, t.key)
|
||||
---- end
|
||||
---- i := i + 1
|
||||
---- end
|
||||
--
|
||||
-- p := fcgi.environ
|
||||
-- create Result.make (50)
|
||||
-- if p /= null then
|
||||
-- from
|
||||
-- i := 0
|
||||
-- v := fcgi_i_th_environ (i,p)
|
||||
-- until
|
||||
-- v = null
|
||||
-- loop
|
||||
-- if attached separated_variables (create {STRING}.make_from_c (v)) as t then
|
||||
-- Result.force (t.value, t.key)
|
||||
-- end
|
||||
-- i := i + 1
|
||||
-- v := fcgi_i_th_environ (i,p)
|
||||
-- end
|
||||
-- end
|
||||
-- end
|
||||
--
|
||||
-- fcgi_i_th_environ (i: INTEGER; p: POINTER): POINTER
|
||||
-- -- Environment variable at `i'-th position of `p'.
|
||||
-- require
|
||||
-- i_valid: i >=0
|
||||
-- external
|
||||
-- "C inline use <string.h>"
|
||||
-- alias
|
||||
-- "[
|
||||
-- return ((char **)$p)[$i];
|
||||
-- ]"
|
||||
-- end
|
||||
|
||||
feature -- FCGI connection
|
||||
|
||||
fcgi_listen: INTEGER
|
||||
-- Listen to the FCGI input stream
|
||||
-- Return 0 for successful calls, -1 otherwise.
|
||||
do
|
||||
Result := fcgi.accept
|
||||
end
|
||||
|
||||
-- update_eif_environ
|
||||
-- external
|
||||
-- "C inline use <string.h>"
|
||||
-- alias
|
||||
-- "[
|
||||
-- #ifdef EIF_WINDOWS
|
||||
-- #ifndef GetEnvironmentStringsA
|
||||
-- extern LPVOID WINAPI GetEnvironmentStringsA(void);
|
||||
-- #endif
|
||||
--
|
||||
-- eif_environ = (char**) GetEnvironmentStringsA();
|
||||
-- #endif
|
||||
-- ]"
|
||||
-- end
|
||||
|
||||
fcgi_finish
|
||||
-- Finish current request from HTTP server started from
|
||||
-- the most recent call to `fcgi_accept'.
|
||||
do
|
||||
fcgi.finish
|
||||
end
|
||||
|
||||
set_fcgi_exit_status (v: INTEGER)
|
||||
do
|
||||
fcgi.set_exit_status (-2)
|
||||
end
|
||||
|
||||
feature -- FCGI output
|
||||
|
||||
put_string (a_str: STRING)
|
||||
-- Put `a_str' on the FastCGI stdout.
|
||||
local
|
||||
l_c_str: C_STRING
|
||||
do
|
||||
l_c_str := c_buffer
|
||||
l_c_str.set_string (a_str)
|
||||
fcgi.put_string (l_c_str.item, l_c_str.count)
|
||||
end
|
||||
|
||||
feature -- FCGI input
|
||||
|
||||
copy_from_stdin (n: INTEGER; f: FILE)
|
||||
-- Read up to n bytes from stdin and write to given file
|
||||
local
|
||||
l_c_str: C_STRING
|
||||
num, readsize, writecount: INTEGER
|
||||
done: BOOLEAN
|
||||
l_fcgi: like fcgi
|
||||
do
|
||||
--put_trace ("copy_from_stdin, n=" +n.out)
|
||||
readsize := n.min (K_input_bufsize)
|
||||
--put_trace ("copy_from_stdin, readsize=" +readsize.out)
|
||||
l_c_str := c_buffer
|
||||
from
|
||||
l_fcgi := fcgi
|
||||
until done or writecount >= n
|
||||
loop
|
||||
num := l_fcgi.read_content_into (l_c_str.item, readsize)
|
||||
--put_trace ("copy_from_stdin, num=" +num.out)
|
||||
if num = 0 then
|
||||
-- EOF
|
||||
done := True
|
||||
else
|
||||
f.put_managed_pointer (c_buffer.managed_data, 0, num)
|
||||
writecount := writecount + num
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
feature {NONE} -- Implementation: FCGI Input
|
||||
|
||||
fill_pointer_from_stdin (p: POINTER; n: INTEGER): INTEGER
|
||||
-- Read up to `n' bytes from stdin and store in pointer `p'
|
||||
-- and return number of bytes read.
|
||||
do
|
||||
Result := fcgi.read_content_into (p, n)
|
||||
end
|
||||
|
||||
feature -- I/O Routines
|
||||
|
||||
--RFO read_stdin_into (a_str: STRING)
|
||||
--RFO -- Read a string from the `stdin' into `a_str'.
|
||||
--RFO require
|
||||
--RFO a_str_not_void: a_str /= Void
|
||||
--RFO local
|
||||
--RFO l_c_str: C_STRING
|
||||
--RFO n: INTEGER
|
||||
--RFO do
|
||||
--RFO l_c_str := c_buffer
|
||||
--RFO n := fcgi.read_content_into (l_c_str.item, l_c_str.capacity)
|
||||
--RFO a_str.set_count (n)
|
||||
--RFO l_c_str.read_substring_into (a_str, 1, n)
|
||||
--RFO end
|
||||
|
||||
--RFO read_string_into (a_str: STRING)
|
||||
--RFO require
|
||||
--RFO exists: a_str /= Void
|
||||
--RFO local
|
||||
--RFO l_c_str: C_STRING
|
||||
--RFO p: POINTER
|
||||
--RFO do
|
||||
--RFO create l_c_str.make_empty (1024)
|
||||
--RFO p := fcgi.gets (l_c_str.item)
|
||||
--RFO-- if p /= default_pointer and p = l_c_str.item then
|
||||
--RFO a_str.resize (l_c_str.count)
|
||||
--RFO l_c_str.read_string_into (a_str)
|
||||
--RFO-- else
|
||||
--RFO-- put_error_line ("Bad pointer from gets")
|
||||
--RFO-- end
|
||||
--RFO end
|
||||
|
||||
|
||||
--RFO read_line
|
||||
--RFO -- Read up to the next end of line, or end of input
|
||||
--RFO -- Leave result in last_string
|
||||
--RFO -- Newline character is absent from result
|
||||
--RFO do
|
||||
--RFO if last_string = Void then
|
||||
--RFO create Result.make (K_input_bufsize)
|
||||
--RFO else
|
||||
--RFO last_string.wipe_out
|
||||
--RFO end
|
||||
--RFO-- if input_filename /= Void then
|
||||
--RFO-- io.read_line
|
||||
--RFO-- last_string.append (io.last_string)
|
||||
--RFO-- else
|
||||
--RFO read_string_into (last_string)
|
||||
--RFO-- end
|
||||
--RFO end
|
||||
|
||||
|
||||
|
||||
feature {NONE} -- Implementation: environment
|
||||
|
||||
-- environ_strings_pointer (p_nb: TYPED_POINTER [INTEGER]): POINTER
|
||||
-- -- Environment variable strings returned by `GetEnvironmentStringsA'
|
||||
-- -- `p_nb' return the count of environment variables.
|
||||
-- external
|
||||
-- "C inline use <string.h>"
|
||||
-- alias
|
||||
-- "[
|
||||
-- #ifdef EIF_WINDOWS
|
||||
-- #ifndef GetEnvironmentStringsA
|
||||
-- extern LPVOID WINAPI GetEnvironmentStringsA(void);
|
||||
-- #endif
|
||||
--
|
||||
-- int cnt = 0;
|
||||
-- LPSTR vars = GetEnvironmentStringsA();
|
||||
-- char** p = (char**) vars;
|
||||
--
|
||||
-- for (; *vars; vars++) {
|
||||
-- while (*vars) { vars++; }
|
||||
-- cnt++;
|
||||
-- }
|
||||
--
|
||||
-- *$p_nb = cnt;
|
||||
-- return (EIF_POINTER) p;
|
||||
-- #endif
|
||||
-- ]"
|
||||
-- end
|
||||
|
||||
|
||||
note
|
||||
copyright: "Copyright (c) 1984-2011, Eiffel Software and others"
|
||||
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
|
||||
source: "[
|
||||
Eiffel Software
|
||||
5949 Hollister Ave., Goleta, CA 93117 USA
|
||||
Telephone 805-685-1006, Fax 805-685-6869
|
||||
Website http://www.eiffel.com
|
||||
Customer support http://support.eiffel.com
|
||||
]"
|
||||
end
|
||||
Reference in New Issue
Block a user