50 lines
650 B
Plaintext
50 lines
650 B
Plaintext
note
|
|
description: "Summary description for {WSF_FILE}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
WSF_FILE
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE}
|
|
|
|
make (a_name, a_type: STRING_32; a_size: INTEGER; a_id: detachable STRING_32)
|
|
do
|
|
name := a_name
|
|
type := a_type
|
|
size := a_size
|
|
id := a_id
|
|
end
|
|
|
|
feature
|
|
|
|
set_id (a_id: detachable STRING_32)
|
|
do
|
|
id := a_id
|
|
end
|
|
|
|
feature --Properties
|
|
|
|
is_uploaded: BOOLEAN
|
|
do
|
|
Result := attached id
|
|
end
|
|
|
|
name: STRING_32
|
|
-- File name
|
|
|
|
type: STRING_32
|
|
-- File mime type
|
|
|
|
size: INTEGER
|
|
-- File size
|
|
|
|
id: detachable STRING_32
|
|
-- Server side file id (e.g. S3 filename)
|
|
|
|
end
|