<commit_before><commit_msg>Add a skeleton xenops backend<commit_after>(*
 * Copyright (C) Citrix Systems Inc.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published
 * by the Free Software Foundation; version 2.1 only. with the special
 * exception on linking described in file LICENSE.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *)

open Xenops_interface
open Xenops_server_plugin
open Xenops_utils

let unimplemented x = raise (Unimplemented x) 

let init () = ()

module HOST = struct
	let get_console_data () = ""
	let get_total_memory_mib () = 0L
	let send_debug_keys _ = ()
end
module VM = struct
	let add _ = unimplemented "VM.add"
	let remove _ = unimplemented "VM.remove"
	let create _ _ _ = unimplemented "VM.create"
	let build _ _ _ _ = unimplemented "VM.build"
	let create_device_model _ _ _ _ _ = unimplemented "VM.create_device_model"
	let destroy_device_model _ _ = unimplemented "VM.destroy_device_model"
	let destroy _ _ = unimplemented "VM.destroy"
	let pause _ _ = unimplemented "VM.pause"
	let unpause _ _ = unimplemented "VM.unpause"
	let set_xsdata _ _ _ = unimplemented "VM.set_xsdata"
	let set_vcpus _ _ _ = unimplemented "VM.set_vcpus"
	let set_shadow_multiplier _ _ _ = unimplemented "VM.set_shadow_multipler"
	let set_memory_dynamic_range _ _ _ _ = unimplemented "VM.set_memory_dynamic_range"
	let request_shutdown _ _ _ _ = unimplemented "VM.request_shutdown"
	let wait_shutdown _ _ _ _ = unimplemented "VM.wait_shutdown"
	let save _ _ _ _ _ = unimplemented "VM.save"
	let restore _ _ _ _ _ _ = unimplemented "VM.restore"
	let s3suspend _ _ = unimplemented "VM.s3suspend"
	let s3resume _ _ = unimplemented "VM.s3resume"
	let get_state _ = Xenops_utils.halted_vm
	let set_domain_action_request _ _ = ()
	let get_domain_action_request _ = None
	let generate_state_string _ = ""
	let get_internal_state _ _ _ = ""
	let set_internal_state _ _ = ()
	let minimum_reboot_delay = 0.
end
module PCI = struct
	let get_state _ _ = unplugged_pci
	let plug _ _ _ = unimplemented "PCI.plug"
	let unplug _ _ _ = unimplemented "PCI.unplug"
	let get_device_action_request _ _ = None
end
module VBD = struct
	let set_active _ _ _ _ = ()
	let epoch_begin _ _ _ = ()
	let epoch_end _ _ _ = ()
	let plug _ _ _ = unimplemented "VBD.plug"
	let unplug _ _ _ _ = unimplemented "VBD.unplug"
	let insert _ _ _ _ = unimplemented "VBD.insert"
	let eject _ _ _ = unimplemented "VBD.eject"
	let set_qos _ _ _ = ()
	let get_state _ _ = unplugged_vbd
	let get_device_action_request _ _ = None
end
module VIF = struct
	let set_active _ _ _ _ = ()
	let plug _ _ _ = unimplemented "VIF.plug"
	let unplug _ _ _ _ = unimplemented "VIF.unplug"
	let move _ _ _ _ = unimplemented "VIF.move"
	let set_carrier _ _ _ _ = unimplemented "VIF.set_carrier"
	let set_locking_mode _ _ _ _ = unimplemented "VIF.set_locking_mode"
	let get_state _ _ = unplugged_vif
	let get_device_action_request _ _ = None
end
module UPDATES  = struct
	let get _ _ = while true do Thread.delay 5. done; assert false
end
module DEBUG = struct
	let trigger _ _ = unimplemented "DEBUG.trigger"
end

{'fraction_non_alphanumeric': 0.06716196136701337, 'fraction_numerical': 0.002674591381872214, 'mean_word_length': 4.069277108433735, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3718858', 'n_tokens_mistral': 1163, 'n_tokens_neox': 1118, 'n_words': 319}