Skip to content

Commit 9d28d16

Browse files
author
Rubens F. N. da Silva
committed
Project update
1 parent fda955e commit 9d28d16

2 files changed

Lines changed: 11 additions & 52 deletions

File tree

‎forgery-prod.xml‎

Lines changed: 5 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -131,7 +131,7 @@
131131
</Method>
132132

133133
<Method name="Forge">
134-
<FormalSpec>settings:%DynamicObject,response:%Stream.Object=""</FormalSpec>
134+
<FormalSpec>settings:%DynamicObject,response:%Stream.Object="",outputToDevice:%Boolean=0</FormalSpec>
135135
<Private>1</Private>
136136
<ReturnType>%Status</ReturnType>
137137
<Implementation><![CDATA[
@@ -261,12 +261,12 @@ ListToJSON(urlIndex)
261261
262262
set str = ##class(%Stream.GlobalCharacter).%New()
263263
set alreadyRedirected = ##class(%Device).ReDirectIO()
264-
set oldMnemonic = "^"_##class(%Device).GetMnemonicRoutine()
264+
set oldMnemonic = ##class(%Device).GetMnemonicRoutine()
265265
set initIO = $io
266266
267267
try {
268-
use $io::("^"_$zname)
269268
do ##class(%Device).ReDirectIO(1)
269+
use $io::("^"_$zname)
270270
set isRedirected = 1
271271
set sc = $classmethod(dispatcherClass, "DispatchRequest", url, httpMethod)
272272
do str.Rewind()
@@ -276,7 +276,7 @@ ListToJSON(urlIndex)
276276
}
277277
278278
if oldMnemonic '= "" {
279-
use initIO::(oldMnemonic)
279+
use initIO::("^"_oldMnemonic)
280280
} else {
281281
use oldMnemonic
282282
}
@@ -434,7 +434,7 @@ AppendToRequest(settingName, settingData, parentKey = "")
434434
set appendToKeyName = parentKey
435435
}
436436
if settingName = "headers" { do request.SetHeader(appendToKeyName, val) }
437-
elseif settingName = "cookies" { do request.SetCookie(appendToKeyName, val) }
437+
elseif settingName = "cookies" { do request.InsertCookie(appendToKeyName, val) }
438438
elseif settingName = "mimedata" { do request.InsertMimeData(appendToKeyName, val) }
439439
elseif settingName = "queryparams" { do request.Insert(appendToKeyName, val) }
440440
}
@@ -814,24 +814,4 @@ was defined and false if it was never defined.</Description>
814814
]]></Implementation>
815815
</Method>
816816
</Class>
817-
818-
819-
<Class name="Forgery.Test">
820-
<Super>%Persistent</Super>
821-
<TimeCreated>65108,41689.954367</TimeCreated>
822-
823-
<Storage name="Default">
824-
<Type>%Library.CacheStorage</Type>
825-
<DataLocation>^Forgery.TestD</DataLocation>
826-
<DefaultData>TestDefaultData</DefaultData>
827-
<IdLocation>^Forgery.TestD</IdLocation>
828-
<IndexLocation>^Forgery.TestI</IndexLocation>
829-
<StreamLocation>^Forgery.TestS</StreamLocation>
830-
<Data name="TestDefaultData">
831-
<Value name="1">
832-
<Value>%%CLASSNAME</Value>
833-
</Value>
834-
</Data>
835-
</Storage>
836-
</Class>
837817
</Export>

‎forgery.xml‎

Lines changed: 6 additions & 27 deletions
Original file line numberDiff line numberDiff line change
@@ -131,7 +131,7 @@
131131
</Method>
132132

133133
<Method name="Forge">
134-
<FormalSpec>settings:%DynamicObject,response:%Stream.Object=""</FormalSpec>
134+
<FormalSpec>settings:%DynamicObject,response:%Stream.Object="",outputToDevice:%Boolean=0</FormalSpec>
135135
<Private>1</Private>
136136
<ReturnType>%Status</ReturnType>
137137
<Implementation><![CDATA[
@@ -261,12 +261,12 @@ ListToJSON(urlIndex)
261261
262262
set str = ##class(%Stream.GlobalCharacter).%New()
263263
set alreadyRedirected = ##class(%Device).ReDirectIO()
264-
set oldMnemonic = "^"_##class(%Device).GetMnemonicRoutine()
264+
set oldMnemonic = ##class(%Device).GetMnemonicRoutine()
265265
set initIO = $io
266266
267267
try {
268-
use $io::("^"_$zname)
269268
do ##class(%Device).ReDirectIO(1)
269+
use $io::("^"_$zname)
270270
set isRedirected = 1
271271
set sc = $classmethod(dispatcherClass, "DispatchRequest", url, httpMethod)
272272
do str.Rewind()
@@ -276,7 +276,7 @@ ListToJSON(urlIndex)
276276
}
277277
278278
if oldMnemonic '= "" {
279-
use initIO::(oldMnemonic)
279+
use initIO::("^"_oldMnemonic)
280280
} else {
281281
use oldMnemonic
282282
}
@@ -434,7 +434,7 @@ AppendToRequest(settingName, settingData, parentKey = "")
434434
set appendToKeyName = parentKey
435435
}
436436
if settingName = "headers" { do request.SetHeader(appendToKeyName, val) }
437-
elseif settingName = "cookies" { do request.SetCookie(appendToKeyName, val) }
437+
elseif settingName = "cookies" { do request.InsertCookie(appendToKeyName, val) }
438438
elseif settingName = "mimedata" { do request.InsertMimeData(appendToKeyName, val) }
439439
elseif settingName = "queryparams" { do request.Insert(appendToKeyName, val) }
440440
}
@@ -816,33 +816,12 @@ was defined and false if it was never defined.</Description>
816816
</Class>
817817

818818

819-
<Class name="Forgery.Test">
820-
<Super>%Persistent</Super>
821-
<TimeCreated>65108,41689.954367</TimeCreated>
822-
823-
<Storage name="Default">
824-
<Type>%Library.CacheStorage</Type>
825-
<DataLocation>^Forgery.TestD</DataLocation>
826-
<DefaultData>TestDefaultData</DefaultData>
827-
<IdLocation>^Forgery.TestD</IdLocation>
828-
<IndexLocation>^Forgery.TestI</IndexLocation>
829-
<StreamLocation>^Forgery.TestS</StreamLocation>
830-
<Data name="TestDefaultData">
831-
<Value name="1">
832-
<Value>%%CLASSNAME</Value>
833-
</Value>
834-
</Data>
835-
</Storage>
836-
</Class>
837-
838-
839-
<Project name="forgery" LastModified="2019-05-22 10:16:43.58917" TargetType="0" HttpServer="http://localhost:57772">
819+
<Project name="forgery" LastModified="2019-10-23 15:01:26.497873" TargetType="0" HttpServer="http://localhost:57772">
840820
<Items>
841821
<ProjectItem name="Forgery.Agent" type="CLS"></ProjectItem>
842822
<ProjectItem name="Forgery.Agent.Core" type="CLS"></ProjectItem>
843823
<ProjectItem name="Forgery.OutputCapturer" type="CLS"></ProjectItem>
844824
<ProjectItem name="Forgery.Request" type="CLS"></ProjectItem>
845-
<ProjectItem name="Forgery.Test" type="CLS"></ProjectItem>
846825
</Items>
847826
</Project>
848827
</Export>

0 commit comments

Comments
 (0)