OpenID consumer implementation

REQUIRES EiffelStudio 7.2
This commit is contained in:
Jocelyn Fiat
2013-02-27 22:13:31 +01:00
parent d4091a57c9
commit 69a77dc2c5
15 changed files with 13 additions and 52 deletions

View File

@@ -1,59 +0,0 @@
note
description: "Summary description for {OPENID_DISCOVER}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
OPENID_DISCOVER
create
make
feature {NONE} -- Initialization
make (a_server_uri: READABLE_STRING_8; a_version: like version)
do
version := a_version
server_uri := a_server_uri
end
feature -- Access
version: INTEGER
server_uri: READABLE_STRING_8
delegate: detachable READABLE_STRING_8 assign set_delegate
ax_supported: BOOLEAN assign set_ax_supported
sreg_supported: BOOLEAN assign set_sreg_supported
identifier_select: BOOLEAN assign set_identifier_select
has_error: BOOLEAN assign set_has_error
feature -- Change
set_delegate (v: like delegate)
do
delegate := v
end
set_ax_supported (v: like ax_supported)
do
ax_supported := v
end
set_sreg_supported (v: like sreg_supported)
do
sreg_supported := v
end
set_identifier_select (v: like identifier_select)
do
identifier_select := v
end
set_has_error (v: like has_error)
do
has_error := v
end
end