change variable value in debugging

Author: daimor

src/debug/debugSession.ts

@@ -105,7 +105,7 @@ export class ObjectScriptDebugSession extends LoggingDebugSession {
       ...response.body,
       supportsConfigurationDoneRequest: true,
       supportsEvaluateForHovers: true,
-      supportsSetVariable: false, // TODO
+      supportsSetVariable: true,
       supportsConditionalBreakpoints: false, // TODO
       supportsStepBack: false,
     };
@@ -505,4 +505,29 @@ export class ObjectScriptDebugSession extends LoggingDebugSession {
     }
     this.sendResponse(response);
   }
+
+  protected async setVariableRequest(
+    response: DebugProtocol.SetVariableResponse,
+    args: DebugProtocol.SetVariableArguments
+  ): Promise<void> {
+    const { value, name, variablesReference } = args;
+    let property = null;
+    if (this._contexts.has(variablesReference)) {
+      // VS Code is requesting the variables for a SCOPE, so we have to do a context_get
+      const context = this._contexts.get(variablesReference);
+      const properties = await context.getProperties();
+      property = properties.find(el => el.name === name);
+    } else if (this._properties.has(variablesReference)) {
+      // VS Code is requesting the subelements for a variable, so we have to do a property_get
+      property = this._properties.get(variablesReference);
+    }
+    property.value = value;
+    await this._connection.sendPropertySetCommand(property);
+
+    response.body = {
+      value: args.value,
+      variablesReference: args.variablesReference,
+    };
+    this.sendResponse(response);
+  }
 }

src/debug/xdebugConnection.ts

@@ -497,6 +497,22 @@ export class PropertyGetResponse extends Response {
   }
 }
 
+/** The response to a property_set command */
+export class PropertySetResponse extends Response {
+  /** the children of the given property */
+  public children: Property[];
+  /**
+   * @param  {XMLDocument} document
+   * @param  {Property} property
+   */
+  public constructor(document: XMLDocument, property: Property) {
+    super(document, property.context.stackFrame.connection);
+    // this.children = Array.from(document.documentElement.firstChild.childNodes).map(
+    //   (propertyNode: Element): Property => new Property(propertyNode, property.context)
+    // );
+  }
+}
+
 /**
  * class for properties returned from eval commands.
  * These don't have a full name or an ID, but have all children already inlined.
@@ -822,6 +838,18 @@ export class Connection extends DbgpConnection {
     );
   }
 
+  /** Sends a property_get command */
+  public async sendPropertySetCommand(property: Property): Promise<PropertySetResponse> {
+    const value = Buffer.from(property.value).toString("base64");
+    return new PropertySetResponse(
+      await this._enqueueCommand(
+        "property_set",
+        `-d ${property.context.stackFrame.level} -n ${property.fullName} -- ${value}`
+      ),
+      property
+    );
+  }
+
   // ------------------------------- eval -----------------------------------------
 
   /** sends an eval command */