Skip to content

Commit b9ba4fe

Browse files
committed
Fix missing declarations for web service
1 parent 79a9925 commit b9ba4fe

File tree

2 files changed

+12
-4
lines changed

2 files changed

+12
-4
lines changed

Project/Sources/Methods/Compiler_Methods.4dm

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,4 +29,12 @@ C_OBJECT:C1216(JSONToClasses ;$2)
2929
C_OBJECT:C1216(ObjectToClassCode ;$0)
3030
C_TEXT:C284(ObjectToClassCode ;$1)
3131
C_OBJECT:C1216(ObjectToClassCode ;$2)
32-
C_COLLECTION:C1488(ObjectToClassCode ;$3)
32+
C_COLLECTION:C1488(ObjectToClassCode ;$3)
33+
34+
//JSONToClassesCode
35+
C_BOOLEAN:C305(JSONToClassesCode ;$2)
36+
37+
//JSONToClassesWebService
38+
C_BOOLEAN:C305(JSONToClassesWebService ;$0)
39+
C_TEXT:C284(JSONToClassesWebService ;$1)
40+
C_TEXT:C284(JSONToClassesWebService ;$2)

Project/Sources/Methods/JSONToClassesWebService.4dm

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ $name:=$1
55
C_TEXT:C284($2;$method)
66
$method:=$2
77

8-
C_TEXT:C284($output)
8+
C_TEXT:C284($output;$headers)
99

1010
Case of
1111
: (Position:C15("GET";$method)=1)
@@ -20,8 +20,8 @@ Case of
2020
WEB GET HTTP BODY:C814($output)
2121

2222
$output:=JSON Stringify:C1217(JSONToClassesCode ($output;True:C214))
23-
$vTcookie:="Content-type: application/json"
24-
WEB SET HTTP HEADER:C660($vTcookie)
23+
$headers:="Content-type: application/json"
24+
WEB SET HTTP HEADER:C660($headers)
2525
WEB SEND TEXT:C677($output)
2626
$0:=True:C214
2727

0 commit comments

Comments
 (0)