0001 9 0;Ŀ;File not found. = h=N "?lm_J*j"T~Ap)F h?unsupported A A// SPDX-License-Identifier: GPL-2.0+ /* * Copyright (C) 2012 Hauke Mehrtens */ #ifndef __USB_CORE_EHCI_PDRIVER_H #define __USB_CORE_EHCI_PDRIVER_H struct platform_device; struct usb_hcd; /** * struct usb_ehci_pdata - platform_data for generic ehci driver * * @caps_offset: offset of the EHCI Capability Registers to the start of * the io memory region provided to the driver. * @has_tt: set to 1 if TT is integrated in root hub. * @port_power_on: set to 1 if the controller needs a power up after * initialization. * @port_power_off: set to 1 if the controller needs to be powered down * after initialization. * @no_io_watchdog: set to 1 if the controller does not need the I/O * watchdog to run. * @reset_on_resume: set to 1 if the controller needs to be reset after * a suspend / resume cycle (but can't detect that itself). * * These are general configuration options for the EHCI controller. All of * these options are activating more or less workarounds for some hardware. */ struct usb_ehci_pdata { int caps_offset; unsigned has_tt:1; unsigned has_synopsys_hc_bug:1; unsigned big_endian_desc:1; unsigned big_endian_mmio:1; unsigned no_io_watchdog:1; unsigned reset_on_resume:1; unsigned dma_mask_64:1; unsigned spurious_oc:1; /* Turn on all power and clocks */ int (*power_on)(struct platform_device *pdev); /* Turn off all power and clocks */ void (*power_off)(struct platform_device *pdev); /* Turn on only VBUS suspend power and hotplug detection, * turn off everything else */ void (*power_suspend)(struct platform_device *pdev); int (*pre_setup)(struct usb_hcd *hcd); }; #endif /* __USB_CORE_EHCI_PDRIVER_H */ /Cl4()v( .F m5_ub &=LV[(Cpackage Env; our $VERSION = '1.04'; =head1 NAME Env - perl module that imports environment variables as scalars or arrays =head1 SYNOPSIS use Env; use Env qw(PATH HOME TERM); use Env qw($SHELL @LD_LIBRARY_PATH); =head1 DESCRIPTION Perl maintains environment variables in a special hash named C<%ENV>. For when this access method is inconvenient, the Perl module C allows environment variables to be treated as scalar or array variables. The C function ties environment variables with suitable names to global Perl variables with the same names. By default it ties all existing environment variables (C) to scalars. If the C function receives arguments, it takes them to be a list of variables to tie; it's okay if they don't yet exist. The scalar type prefix '$' is inferred for any element of this list not prefixed by '$' or '@'. Arrays are implemented in terms of C and C, using C<$Config::Config{path_sep}> as the delimiter. After an environment variable is tied, merely use it like a normal variable. You may access its value @path = split(/:/, $PATH); print join("\n", @LD_LIBRARY_PATH), "\n"; or modify it $PATH .= ":."; push @LD_LIBRARY_PATH, $dir; however you'd like. Bear in mind, however, that each access to a tied array variable requires splitting the environment variable's string anew. The code: use Env qw(@PATH); push @PATH, '.'; is equivalent to: use Env qw(PATH); $PATH .= ":."; except that if C<$ENV{PATH}> started out empty, the second approach leaves it with the (odd) value "C<:.>", but the first approach leaves it with "C<.>". To remove a tied environment variable from the environment, assign it the undefined value undef $PATH; undef @LD_LIBRARY_PATH; =head1 LIMITATIONS On VMS systems, arrays tied to environment variables are read-only. Attempting to change anything will cause a warning. =head1 AUTHOR Chip Salzenberg EFE and Gregor N. Purdy EFE =cut sub import { my ($callpack) = caller(0); my $pack = shift; my @var