int isl_args_parse(struct isl_args *args, int argc, char **argv, void *opt,
unsigned flags)
{
int a = -1;
int skip = 0;
int i;
int n;
struct isl_prefixes prefixes = { 0 };
n = n_arg(args->args);
for (i = 1; i < argc; ++i) {
if ((strcmp(argv[i], "--version") == 0 ||
strcmp(argv[i], "-V") == 0) && any_version(args->args))
print_version_and_exit(args->args);
}
while (argc > 1 + skip) {
int parsed;
if (argv[1 + skip][0] != '-') {
a = next_arg(args->args, a);
if (a >= 0) {
char **p;
p = (char **)(((char *)opt)+args->args[a].offset);
free(*p);
*p = strdup(argv[1 + skip]);
argc = drop_argument(argc, argv, 1 + skip, 1);
--n;
} else if (ISL_FL_ISSET(flags, ISL_ARG_ALL)) {
fprintf(stderr, "%s: extra argument: %s\n",
prog_name(argv[0]), argv[1 + skip]);
exit(-1);
} else
++skip;
continue;
}
check_help(args, argv[1 + skip], argv[0], opt, flags);
parsed = parse_option(args->args, &argv[1 + skip],
&prefixes, opt);
if (parsed)
argc = drop_argument(argc, argv, 1 + skip, parsed);
else if (ISL_FL_ISSET(flags, ISL_ARG_ALL)) {
fprintf(stderr, "%s: unrecognized option: %s\n",
prog_name(argv[0]), argv[1 + skip]);
exit(-1);
} else
++skip;
}
if (n > 0) {
fprintf(stderr, "%s: expecting %d more argument(s)\n",
prog_name(argv[0]), n);
exit(-1);
}
return argc;
}
int rmodule_stage_load(struct rmod_stage_load *rsl)
{
struct rmodule rmod_stage;
size_t region_size;
char *stage_region;
int rmodule_offset;
int load_offset;
struct cbfs_stage stage;
void *rmod_loc;
struct region_device *fh;
if (rsl->prog == NULL || prog_name(rsl->prog) == NULL)
return -1;
fh = prog_rdev(rsl->prog);
if (rdev_readat(fh, &stage, 0, sizeof(stage)) != sizeof(stage))
return -1;
rmodule_offset =
rmodule_calc_region(DYN_CBMEM_ALIGN_SIZE,
stage.memlen, ®ion_size, &load_offset);
stage_region = cbmem_add(rsl->cbmem_id, region_size);
if (stage_region == NULL)
return -1;
rmod_loc = &stage_region[rmodule_offset];
printk(BIOS_INFO, "Decompressing stage %s @ 0x%p (%d bytes)\n",
prog_name(rsl->prog), rmod_loc, stage.memlen);
if (!cbfs_load_and_decompress(fh, sizeof(stage), stage.len, rmod_loc,
stage.memlen, stage.compression))
return -1;
if (rmodule_parse(rmod_loc, &rmod_stage))
return -1;
if (rmodule_load(&stage_region[load_offset], &rmod_stage))
return -1;
prog_set_area(rsl->prog, rmod_stage.location,
rmodule_memory_size(&rmod_stage));
prog_set_entry(rsl->prog, rmodule_entry(&rmod_stage), NULL);
/* Allow caller to pick up parameters, if available. */
rsl->params = rmodule_parameters(&rmod_stage);
return 0;
}
void removePIDFile()
{
char rpath[MAX_NAME_LEN];
sprintf(rpath, "%s/%s.pid", rconfig.config_dir, prog_name());
remove(rpath);
}
static void print_help_and_exit(struct isl_arg *arg, const char *prog,
void *opt)
{
int i;
struct isl_prefixes prefixes = { 0 };
printf("Usage: %s [OPTION...]", prog_name(prog));
for (i = 0; arg[i].type != isl_arg_end; ++i)
if (arg[i].type == isl_arg_arg)
printf(" %s", arg[i].argument_name);
printf("\n\n");
print_help(arg, &prefixes, opt);
printf("\n");
if (any_version(arg))
printf(" -V, --version\n");
print_bool_help(help_arg, NULL, NULL);
for (i = 0; arg[i].type != isl_arg_end; ++i) {
if (arg[i].type != isl_arg_footer)
continue;
wrap_msg(arg[i].help_msg, 0, 0);
printf("\n");
}
exit(0);
}
static inline void midi_change(int md)
{
int c;
char tmp0[64];
if(md!=0 && outch==0){return;}
B_CLR_AL();C_WINDOW(0,32);
if(md==0){
msg("OUT MIDI CH.=");
strcpy(tmp0,chstr(outch));
sinput(tmp0,0x803);c=strch(outch,tmp0);
if(c>=0 && c<=32){outch=c;}
msg_clr();B_LOCATE(38,31);
if(outch!=0){B_PRINT(chstr(outch));B_PRINT(" ");}else{B_PRINT("THRU");}
}else{
c=timsel(outch,0,36,prog);if(c>=0){c=c&0xff;}
if(c>=0){
prog=c;strcpy(tmp0,"PROGRAM:");strcat(tmp0,prog_name(outch,0,c,1));
B_LOCATE(44,31);B_PRINT(tmp0);
}
midi_chout(0xc0+((outch-1)&15));midi_chout(prog);
}
C_WINDOW(4,26);B_LOCATE(0,0);
}
Str_t args::GetProgName(CoCStr_t arg)
{
Str_t prog_name(arg);
Str_t like_unix = prog_name.substr(0, 1);
Str_t like_win = prog_name.substr(1, 2);
if ( like_unix.compare("/") == 0 )
prog_name = prog_name.substr(prog_name.find_last_of("/")+1, prog_name.size());
else if ( like_win.compare(":\\") == 0 )
prog_name = prog_name.substr(prog_name.find_last_of("\\")+1, prog_name.size());
return prog_name;
}
int prog_locate(struct prog *prog)
{
struct cbfsf file;
cbfs_prepare_program_locate();
if (cbfs_boot_locate(&file, prog_name(prog), NULL))
return -1;
cbfs_file_data(prog_rdev(prog), &file);
return 0;
}
static void vboot_prepare(void)
{
int run_verification;
run_verification = verification_should_run();
if (run_verification) {
verstage_main();
car_set_var(vboot_executed, 1);
} else if (verstage_should_load()) {
struct cbfsf file;
struct prog verstage =
PROG_INIT(PROG_VERSTAGE,
CONFIG_CBFS_PREFIX "/verstage");
printk(BIOS_DEBUG, "VBOOT: Loading verstage.\n");
/* load verstage from RO */
if (cbfs_boot_locate(&file, prog_name(&verstage), NULL))
die("failed to load verstage");
cbfs_file_data(prog_rdev(&verstage), &file);
if (cbfs_prog_stage_load(&verstage))
die("failed to load verstage");
/* verify and select a slot */
prog_run(&verstage);
/* This is not actually possible to hit this condition at
* runtime, but this provides a hint to the compiler for dead
* code elimination below. */
if (!IS_ENABLED(CONFIG_RETURN_FROM_VERSTAGE))
return;
car_set_var(vboot_executed, 1);
}
/*
* Fill in vboot cbmem objects before moving to ramstage so all
* downstream users have access to vboot results. This path only
* applies to platforms employing VBOOT_DYNAMIC_WORK_BUFFER because
* cbmem comes online prior to vboot verification taking place. For
* other platforms the vboot cbmem objects are initialized when
* cbmem comes online.
*/
if (ENV_ROMSTAGE && IS_ENABLED(CONFIG_VBOOT_DYNAMIC_WORK_BUFFER)) {
vb2_store_selected_region();
vboot_fill_handoff();
}
}
static int fsp_find_and_relocate(struct prog *fsp)
{
struct region_device fsp_rdev;
uint32_t type = CBFS_TYPE_FSP;
if (cbfs_boot_locate(&fsp_rdev, prog_name(fsp), &type)) {
printk(BIOS_ERR, "ERROR: Couldn't find fsp.bin in CBFS.\n");
return -1;
}
if (fsp_relocate(fsp, &fsp_rdev)) {
printk(BIOS_ERR, "ERROR: FSP relocation failed.\n");
return -1;
}
return 0;
}
void arch_prog_run(struct prog *prog)
{
ll_printk("prog_run: %s jump to boot code at %p\n", prog_name(prog), prog_entry(prog));
// ENV_RAMSTAGE为1，表示是在ramstage阶段，接着就到payload或kernel了，
if (ENV_RAMSTAGE)
try_payload(prog);
// 如果当前是romstage，则直接跳转到地址执行 (romstage后即为ramstage)
ll_printk("jump to ramstage....\n");
__asm__ volatile (
#ifdef __x86_64__
"jmp *%%rdi\n"
#else
"jmp *%%edi\n"
#endif
:: "D"(prog_entry(prog))
);
}
/* Entry point taken when romstage is called after a separate verstage. */
asmlinkage void *romstage_after_verstage(void)
{
/* Need to locate the current FSP_INFO_HEADER. The cache-as-ram
* is still enabled. We can directly access work buffer here. */
FSP_INFO_HEADER *fih;
struct prog fsp = PROG_INIT(PROG_REFCODE, "fsp.bin");
console_init();
if (prog_locate(&fsp)) {
fih = NULL;
printk(BIOS_ERR, "Unable to locate %s\n", prog_name(&fsp));
} else
/* This leaks a mapping which this code assumes is benign as
* the flash is memory mapped CPU's address space. */
fih = find_fsp((uintptr_t)rdev_mmap_full(prog_rdev(&fsp)));
set_fih_car(fih);
/* Return new stack value in ram back to assembly stub. */
return cache_as_ram_stage_main(fih);
}
main(int argc, char **argv)
{
char *filename, *prog_name(char *s);
int i;
void help(void);
pname = prog_name(argv[0]);
if (argc == 1) {
help();
exit(1);
}
for (i = 1; i < argc; i++) {
if (strcmp(argv[i], "--version") == 0)
printf("%s\n", wfdbversion());
else if (strcmp(argv[i], "--libs") == 0)
expand_var(wfdbldflags());
else if (strcmp(argv[i], "--cflags") == 0)
expand_var(wfdbcflags());
else
help();
}
exit(0);
}
/* Read and interpret command-line arguments. */
void init(int argc, char *argv[])
{
int i;
void help();
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'a': /* annotator names follow */
if (++i >= argc-1) {
(void)fprintf(stderr,
"%s: reference and test annotator names must follow -a\n",
pname);
exit(0);
}
an[0].name = argv[i];
an[1].name = argv[++i];
break;
case 'c': /* condensed output */
if (++i >= argc) {
(void)fprintf(stderr, "%s: output file name must follow -c\n",
pname);
exit(0);
}
ofname = argv[i];
fflag = 1;
break;
case 'C': /* condensed output with SVEB statistics */
if (++i >= argc) {
(void)fprintf(stderr, "%s: output file name must follow -C\n",
pname);
exit(0);
}
ofname = argv[i];
fflag = 4;
break;
case 'f': /* start time follows */
if (++i >= argc) {
(void)fprintf(stderr,"%s: start time must follow -f\n", pname);
exit(0);
}
start = i; /* save arg index, convert to samples later, when
record has been opened and sampling frequency is
known */
break;
case 'h': /* print usage summary */
help();
exit(0);
break;
case 'l': /* line-format output */
if (++i >= argc-1) {
(void)fprintf(stderr,
"%s: two output file names must follow -l\n",
pname);
exit(0);
}
ofname = argv[i];
sfname = argv[++i];
fflag = 2;
break;
case 'L': /* line-format output, with SVEB statistics */
if (++i >= argc-1) {
(void)fprintf(stderr,
"%s: two output file names must follow -L\n",
pname);
exit(0);
}
ofname = argv[i];
sfname = argv[++i];
fflag = 5;
break;
case 'o': /* generate output annotation file */
oflag = 1;
break;
case 'O': /* generate expanded output annotation file */
oflag = 1;
Oflag = 1;
fflag = 0;
break;
case 'r': /* record name follows */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: record name must follow -r\n", pname);
exit(0);
}
// record = argv[i];
break;
case 's': /* standard-format output */
if (++i >= argc) {
(void)fprintf(stderr, "%s: output file name must follow -s\n",
pname);
exit(0);
}
ofname = argv[i];
fflag = 3;
break;
case 'S': /* standard-format output, with SVEB statistics */
if (++i >= argc) {
(void)fprintf(stderr, "%s: output file name must follow -S\n",
pname);
exit(0);
}
ofname = argv[i];
fflag = 6;
break;
case 't': /* end time follows */
if (++i >= argc) {
(void)fprintf(stderr, "%s: end time must follow -t\n", pname);
exit(0);
}
end_time = i;
break;
case 'v': /* verbose mode */
verbose = 1;
break;
case 'w': /* match window follows */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: match window must follow -w\n", pname);
exit(0);
}
match_dt = i;
break;
default:
(void)fprintf(stderr,
"%s: unrecognized option %s\n", pname, argv[i]);
exit(0);
}
else {
(void)fprintf(stderr,
"%s: unrecognized argument %s\n",pname,argv[i]);
exit(0);
}
}
if (!record || !an[0].name) {
help();
exit(0);
}
if (start != 0L || end_time != 0L || match_dt != 0)
(void)fprintf(stderr,"%s: (warning) nonstandard comparison selected\n",
pname);
if (sampfreq(record) <= 0) {
(void)fprintf(stderr,
"%s: (warning) %g Hz sampling frequency assumed\n",
pname, WFDB_DEFFREQ);
(void)setsampfreq(WFDB_DEFFREQ);
}
/* Set the match window and the times of the start and end of the test
period. Initialize the shutdown tally to 1/2 second so that it will be
properly rounded to the nearest second at the end. */
if (match_dt)
match_dt = (int)strtim(argv[match_dt]);
else
match_dt = (int)strtim(".15"); /* 150 milliseconds */
if (start)
start = strtim(argv[(int)start]);
else
start = strtim("5:0"); /* 5 minutes */
if (end_time)
end_time = strtim(argv[(int)end_time]);
else if ((end_time = strtim("e")) == 0L)
end_time = -1L; /* record length unavailable -- go to end of
reference annotation file */
if (end_time > 0L && end_time < start) {
(void)fprintf(stderr, "%s: improper interval specified\n", pname);
exit(0);
}
shut_down = strtim(".5"); /* 1/2 second */
an[0].stat = an[1].stat = WFDB_READ;
if (oflag) {
an[2].name = "bxb";
an[2].stat = WFDB_WRITE;
}
if (annopen(record, an, 2 + oflag) < 0) exit(0);
}
int
main(int argc, char **argv)
{
CKMENU *mp;
FILE *fp = NULL;
int c, i;
char **item;
char temp[LSIZE * MB_LEN_MAX];
size_t mmax;
size_t invismaxsize = INVISMAXSIZE;
size_t n, r;
wchar_t wline[LSIZE], wtemp[LSIZE];
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
prog = prog_name(argv[0]);
invis = (char **)calloc(invismaxsize, sizeof (char *));
if (!invis) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
while ((c = getopt(argc, argv, "m:oni:l:f:ud:p:e:h:k:s:QW:?")) != EOF) {
/* check for invalid option */
if ((*prog == 'e') && !strchr(eusage, c))
usage(); /* no valid options */
if ((*prog == 'h') && !strchr(husage, c))
usage();
switch (c) {
case 'Q':
ckquit = 0;
break;
case 'W':
ckwidth = atol(optarg);
if (ckwidth < 0) {
(void) fprintf(stderr,
gettext("%s: ERROR: negative display width specified\n"),
prog);
exit(1);
}
break;
case 'm':
max = atoi(optarg);
if (max > SHRT_MAX || max < SHRT_MIN) {
(void) fprintf(stderr,
gettext("%s: ERROR: too large or too small max value specified\n"),
prog);
exit(1);
}
break;
case 'o':
attr |= CKONEFLAG;
break;
case 'n':
attr &= ~CKALPHA;
break;
case 'i':
invis[ninvis++] = optarg;
if (ninvis == invismaxsize) {
invismaxsize += INVISMAXSIZE;
invis = (char **)realloc(invis,
invismaxsize * sizeof (char *));
if (!invis) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
(void) memset(invis + ninvis, 0,
(invismaxsize - ninvis) *
sizeof (char *));
}
break;
case 'l':
label = optarg;
break;
case 'f':
if ((fp = fopen(optarg, "r")) == NULL) {
(void) fprintf(stderr,
gettext("%s: ERROR: can't open %s\n"),
prog, optarg);
exit(1);
}
break;
case 'u':
attr |= CKUNNUM;
break;
case 'd':
deflt = optarg;
break;
case 'p':
prompt = optarg;
break;
case 'e':
error = optarg;
break;
case 'h':
help = optarg;
break;
case 'k':
kpid = atoi(optarg);
break;
case 's':
signo = atoi(optarg);
break;
default:
usage();
}
}
if (signo) {
if (kpid == BADPID)
usage();
} else
signo = SIGTERM;
mp = allocmenu(label, attr);
if (fp) {
*wtemp = L'\0';
while (fgetws(wline, LSIZE, fp)) {
/*
* Skip comment lines, those beginning with '#'.
* Note: AT&T forgot this & needs the next 2 lines.
*/
if (*wline == L'#')
continue;
n = wcslen(wline);
if ((n != 0) && (wline[n - 1] == L'\n'))
wline[n - 1] = L'\0';
/*
* if the line begins with a space character,
* this is a continuous line to the previous line.
*/
if (iswspace(*wline)) {
(void) wcscat(wtemp, L"\n");
(void) wcscat(wtemp, wline);
} else {
if (*wtemp) {
n = wcslen(wtemp);
r = wcstombs(temp, wtemp,
n * MB_LEN_MAX);
if (r == (size_t)-1) {
(void) fprintf(stderr,
gettext("Invalid character in the menu definition.\n"));
exit(1);
}
if (setitem(mp, temp)) {
(void) fprintf(stderr,
gettext(INTERR), prog);
exit(1);
}
}
(void) wcscpy(wtemp, wline);
}
}
if (*wtemp) {
n = wcslen(wtemp);
r = wcstombs(temp, wtemp, n * MB_LEN_MAX);
if (r == (size_t)-1) {
(void) fprintf(stderr,
gettext("Invalid character in the menu definition.\n"));
exit(1);
}
if (setitem(mp, temp)) {
(void) fprintf(stderr, gettext(INTERR), prog);
exit(1);
}
}
}
while (optind < argc) {
if (setitem(mp, argv[optind++])) {
(void) fprintf(stderr, gettext(INTERR), prog);
exit(1);
}
}
for (n = 0; n < ninvis; ) {
if (setinvis(mp, invis[n++])) {
(void) fprintf(stderr, gettext(INTERR), prog);
exit(1);
}
}
if (*prog == 'e') {
ckindent = 0;
ckitem_err(mp, error);
exit(0);
} else if (*prog == 'h') {
ckindent = 0;
ckitem_hlp(mp, help);
exit(0);
}
if (max < 1) {
mmax = mp->nchoices;
} else {
mmax = max;
}
/*
* if -o option is specified, mp->nchoices is 1, and if no invisible
* item is specified, ckitem() will consume two entries of item,
* even though 'max' is set to 1. So to take care of that problem, we
* allocate one extra element for item
*/
item = (char **)calloc(mmax+1, sizeof (char *));
if (!item) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
n = ckitem(mp, item, max, deflt, error, help, prompt);
if (n == 3) {
if (kpid > -2)
(void) kill(kpid, signo);
(void) puts("q");
} else if (n == 0) {
i = 0;
while (item[i])
(void) puts(item[i++]);
}
return (n);
}
int main(int argc, char **argv)
{
char *record = NULL; /* input record name */
float sps; /* sampling frequency, in Hz (SR) */
float samplingInterval; /* sampling interval, in milliseconds */
int i, max, min, minutes = 0, onset, timer, vflag = 0;
int dflag = 0; /* if non-zero, dump raw and filtered
samples only; do not run detector */
int Rflag = 0; /* if non-zero, resample at 125 Hz */
int EyeClosing; /* eye-closing period, related to SR */
int ExpectPeriod; /* if no ABP pulse is detected over this period,
the threshold is automatically reduced
to a minimum value; the threshold is
restored upon a detection */
int Ta, T0; /* high and low detection thresholds */
WFDB_Anninfo a;
WFDB_Annotation annot;
WFDB_Siginfo *s;
WFDB_Time from = 0L, next_minute, spm, t, tpq, to = 0L, tt, t1;
char *p, *prog_name();
static int gvmode = 0;
void help();
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'd': /* dump filter data */
dflag = 1;
break;
case 'f': /* starting time */
if (++i >= argc) {
(void)fprintf(stderr, "%s: time must follow -f\n", pname);
exit(1);
}
from = i;
break;
case 'h': /* help requested */
help();
exit(0);
break;
case 'H': /* operate in WFDB_HIGHRES mode */
gvmode = WFDB_HIGHRES;
break;
case 'm': /* threshold */
if (++i >= argc || (Tm = atoi(argv[i])) <= 0) {
(void)fprintf(stderr, "%s: threshold ( > 0) must follow -m\n",
pname);
exit(1);
}
break;
case 'r': /* record name */
if (++i >= argc) {
(void)fprintf(stderr, "%s: input record name must follow -r\n",
pname);
exit(1);
}
record = argv[i];
break;
case 'R': /* resample */
Rflag = 1;
break;
case 's': /* signal */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: signal number or name must follow -s\n",
pname);
exit(1);
}
sig = i; /* remember argument until record is open */
break;
case 't': /* end time */
if (++i >= argc) {
(void)fprintf(stderr, "%s: time must follow -t\n", pname);
exit(1);
}
to = i;
break;
case 'v': /* verbose mode */
vflag = 1;
break;
default:
(void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
argv[i]);
exit(1);
}
else {
(void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
argv[i]);
exit(1);
}
}
if (record == NULL) {
help();
exit(1);
}
if (gvmode == 0 && (p = getenv("WFDBGVMODE")))
gvmode = atoi(p);
setgvmode(gvmode|WFDB_GVPAD);
if ((nsig = isigopen(record, NULL, 0)) < 1) exit(2);
if ((s = (WFDB_Siginfo *)malloc(nsig * sizeof(WFDB_Siginfo))) == NULL) {
(void)fprintf(stderr, "%s: insufficient memory\n", pname);
exit(2);
}
a.name = "wabp"; a.stat = WFDB_WRITE;
if ((nsig = wfdbinit(record, &a, 1, s, nsig)) < 1) exit(2);
if (sig >= 0) sig = findsig(argv[sig]);
if (sig < 0 || sig >= nsig) {
/* Identify the lowest-numbered ABP, ART, or BP signal */
for (i = 0; i < nsig; i++)
if (strcmp(trim_whitespace(s[i].desc), "ABP") == 0 ||
strcmp(s[i].desc, "ART") == 0 ||
strcmp(s[i].desc, "BP") == 0)
break;
if (i == nsig) {
fprintf(stderr, "%s: no ABP signal specified; use -s option\n\n",
pname);
help();
exit(3);
}
sig = i;
}
if (vflag)
fprintf(stderr, "%s: analyzing signal %d (%s)\n",
pname, sig, s[sig].desc);
sps = sampfreq((char *)NULL);
if (Rflag)
setifreq(sps = 125.);
if (from > 0L) {
if ((from = strtim(argv[from])) < 0L)
from = -from;
}
if (to > 0L) {
if ((to = strtim(argv[to])) < 0L)
to = -to;
}
annot.subtyp = annot.num = 0;
annot.chan = sig;
annot.aux = NULL;
Tm = physadu((unsigned)sig, Tm);
samplingInterval = 1000.0/sps;
spm = 60 * sps;
next_minute = from + spm;
EyeClosing = sps * EYE_CLS; /* set eye-closing period */
ExpectPeriod = sps * NDP; /* maximum expected RR interval */
SLPwindow = sps * SLPW; /* slope window size */
if (vflag) {
printf("\n------------------------------------------------------\n");
printf("Record Name: %s\n", record);
printf("Total Signals: %d (", nsig);
for (i = 0; i < nsig - 1; i++)
printf("%d, ", i);
printf("%d)\n", nsig - 1);
printf("Sampling Frequency: %.1f Hz\n", sps);
printf("Sampling Interval: %.3f ms\n", samplingInterval);
printf("Signal channel used for detection: %d\n", sig);
printf("Eye-closing period: %d samples (%.0f ms)\n",
EyeClosing, EyeClosing*samplingInterval);
printf("Minimum threshold: %d\n", Tm);
printf("\n------------------------------------------------------\n\n");
printf("Processing:\n");
}
(void)sample(sig, 0L);
if (dflag) {
for (t = from; (to == 0L || t < to) && sample_valid(); t++)
printf("%6d\t%6d\n", sample(sig, t), slpsamp(t));
exit(0);
}
/* Average the first 8 seconds of the slope samples
to determine the initial thresholds Ta and T0 */
t1 = from + strtim("8");
for (T0 = 0, t = from; t < t1 && sample_valid(); t++)
T0 += slpsamp(t);
T0 /= t1 - from;
Ta = 3 * T0;
/* Main loop */
for (t = from; (to == 0L || t < to) && sample_valid(); t++) {
static int learning = 1, T1;
if (learning) {
if (t > from + LPERIOD) {
learning = 0;
T1 = T0;
t = from; /* start over */
}
else T1 = 2*T0;
}
if (slpsamp(t) > T1) { /* found a possible ABP pulse near t */
timer = 0;
/* used for counting the time after previous ABP pulse */
max = min = slpsamp(t);
for (tt = t+1; tt < t + EyeClosing/2; tt++)
if (slpsamp(tt) > max) max = slpsamp(tt);
for (tt = t-1; tt > t - EyeClosing/2; tt--)
if (slpsamp(tt) < min) min = slpsamp(tt);
if (max > min+10) {
onset = max/100 + 2;
tpq = t - 5;
for (tt = t; tt > t - EyeClosing/2; tt--) {
if (slpsamp(tt) - slpsamp(tt-1) < onset) {
tpq = tt;
break;
}
}
if (!learning) {
/* Check that we haven't reached the end of the record. */
(void)sample(sig, tpq);
if (sample_valid() == 0) break;
/* Record an annotation at the ABP pulse onset */
annot.time = tpq;
annot.anntyp = NORMAL;
if (putann(0, &annot) < 0) { /* write the annotation */
wfdbquit(); /* close files if an error occurred */
exit(1);
}
}
/* Adjust thresholds */
Ta += (max - Ta)/10;
T1 = Ta / 3;
/* Lock out further detections during the eye-closing period */
t += EyeClosing;
}
}
else if (!learning) {
/* Once past the learning period, decrease threshold if no pulse
was detected recently. */
if (++timer > ExpectPeriod && Ta > Tm) {
Ta--;
T1 = Ta / 3;
}
}
/* Keep track of progress by printing a dot for each minute analyzed */
if (t >= next_minute) {
next_minute += spm;
(void)fprintf(stderr, ".");
(void)fflush(stderr);
if (++minutes >= 60) {
(void)fprintf(stderr, "\n");
minutes = 0;
}
}
}
(void)free(lbuf);
(void)free(ebuf);
wfdbquit(); /* close WFDB files */
fprintf(stderr, "\n");
if (vflag) {
printf("\n\nDone! \n\nResulting annotation file: %s.wabp\n\n\n",
record);
}
exit(0);
}
int
main(int argc, char **argv)
{
int c, n;
char *gid;
size_t len;
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
prog = prog_name(argv[0]);
while ((c = getopt(argc, argv, "md:p:e:h:k:s:QW:?")) != EOF) {
/* check for invalid option */
if ((*prog == 'v') || (*prog == 'd'))
usage(); /* no valid options */
if ((*prog == 'e') && !strchr(eusage, c))
usage();
if ((*prog == 'h') && !strchr(husage, c))
usage();
switch (c) {
case 'Q':
ckquit = 0;
break;
case 'W':
ckwidth = atoi(optarg);
if (ckwidth < 0) {
(void) fprintf(stderr,
gettext("%s: ERROR: negative display width specified\n"),
prog);
exit(1);
}
break;
case 'm':
disp = 1;
break;
case 'd':
deflt = optarg;
break;
case 'p':
prompt = optarg;
break;
case 'e':
error = optarg;
break;
case 'h':
help = optarg;
break;
case 'k':
kpid = atoi(optarg);
break;
case 's':
signo = atoi(optarg);
break;
default:
usage();
}
}
if (signo) {
if (kpid == BADPID)
usage();
} else
signo = SIGTERM;
if (*prog == 'v') {
if (argc != (optind+1))
usage();
exit(ckgid_val(argv[optind]));
}
if (argc != optind)
usage();
if (*prog == 'e') {
ckindent = 0;
ckgid_err(disp, error);
exit(0);
} else if (*prog == 'h') {
ckindent = 0;
ckgid_hlp(disp, help);
exit(0);
} else if (*prog == 'd') {
exit(ckgid_dsp());
}
if (deflt) {
len = strlen(deflt) + 1;
if (len < MAX_INPUT)
len = MAX_INPUT;
} else {
len = MAX_INPUT;
}
gid = (char *)malloc(len);
if (!gid) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
n = ckgid(gid, disp, deflt, error, help, prompt);
if (n == 3) {
if (kpid > -2)
(void) kill(kpid, signo);
(void) puts("q");
} else if (n == 0)
(void) fputs(gid, stdout);
return (n);
}
main(int argc, char **argv)
{
char *record = NULL, *prog_name();
int aindex = 0, alen = 0, framelen = 0;
int i, nsig, s, vflag = 0;
WFDB_Sample *frame;
WFDB_Siginfo *si;
void help();
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'F':
if (++i >= argc) {
(void)fprintf(stderr, "%s: sampling frequency must follow -F\n",
pname);
exit(1);
}
sscanf(argv[i], "%lf", &sfreq);
if (sfreq <= 0.0) sfreq = 1.0;
break;
case 'h': /* help requested */
help();
exit(0);
break;
case 'r': /* record name */
if (++i >= argc) {
(void)fprintf(stderr, "%s: record name must follow -r\n",
pname);
exit(1);
}
record = argv[i];
break;
case 'v': /* verbose output -- include column headings */
vflag = 1;
break;
default:
(void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
argv[i]);
exit(1);
}
else {
(void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
argv[i]);
exit(1);
}
}
if (record == NULL) {
help();
exit(1);
}
setgvmode(WFDB_HIGHRES);
if ((nsig = isigopen(record, NULL, 0)) <= 0) exit(2);
if ((si = malloc(nsig * sizeof(WFDB_Siginfo))) == NULL) {
(void)fprintf(stderr, "%s: insufficient memory\n", pname);
exit(2);
}
if ((nsig = isigopen(record, si, nsig)) <= 0)
exit(2);
for (i = framelen = 0; i < nsig; i++) {
if (strcmp(si[i].desc, "EDF Annotations") == 0) {
aindex = framelen;
alen = si[i].spf;
}
framelen += si[i].spf;
}
if (alen == 0) {
(void)fprintf(stderr, "%s: record %s has no EDF annotations\n",
pname, record);
(void)free(si);
wfdbquit();
exit(3);
}
if ((frame = (int *)malloc((unsigned)framelen*sizeof(WFDB_Sample)))==NULL) {
(void)fprintf(stderr, "%s: insufficient memory\n", pname);
(void)free(si);
exit(2);
}
if (sfreq > 0.0) {
setgvmode(WFDB_LOWRES);
setsampfreq(sfreq);
}
else
sfreq = sampfreq(NULL);
/* Print column headers if '-v' option selected. */
if (vflag)
(void)printf(" Time Sample # Type Sub Chan Num\tAux\n");
while (getframe(frame) > 0) {
WFDB_Sample *p;
state = 0;
for (i = 0, p = (frame + aindex); i < alen; i++, p++) {
if (*p) {
proc(*p);
proc(*p >> 8);
}
else
break;
}
}
main(int argc, char **argv)
{
char *p;
char *record = NULL; /* input record name */
float sps; /* sampling frequency, in Hz (SR) */
float samplingInterval; /* sampling interval, in milliseconds */
int i, max, min, minutes = 0, onset, timer, vflag = 0;
int dflag = 0; /* if non-zero, dump raw and filtered
samples only; do not run detector */
int jflag = 0; /* if non-zero, annotate J-points */
int Rflag = 0; /* if non-zero, resample at 120 or 150 Hz
*/
int EyeClosing; /* eye-closing period, related to SR */
int ExpectPeriod; /* if no QRS is detected over this period,
the threshold is automatically reduced
to a minimum value; the threshold is
restored upon a detection */
double Ta, T0; /* high and low detection thresholds */
WFDB_Anninfo a;
WFDB_Annotation annot;
WFDB_Gain gain;
WFDB_Siginfo *s;
WFDB_Time from = 0L, next_minute, spm, t, tj, tpq, to = 0L, tt, t1;
static int gvmode = WFDB_GVPAD | WFDB_LOWRES;
char *prog_name();
void help();
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'd': /* dump filter data */
dflag = 1;
break;
case 'f': /* starting time */
if (++i >= argc) {
(void)fprintf(stderr, "%s: time must follow -f\n", pname);
exit(1);
}
from = i;
break;
case 'h': /* help requested */
help();
exit(0);
break;
case 'H': /* operate in WFDB_HIGHRES mode */
gvmode = WFDB_GVPAD | WFDB_HIGHRES;
break;
case 'j': /* annotate J-points (ends of QRS complexes) */
jflag = 1;
break;
case 'm': /* threshold */
if (++i >= argc || (Tm = atoi(argv[i])) <= 0) {
(void)fprintf(stderr, "%s: threshold ( > 0) must follow -m\n",
pname);
exit(1);
}
break;
case 'p': /* specify power line (mains) frequency */
if (++i >= argc || (PWFreq = atoi(argv[i])) <= 0) {
(void)fprintf(stderr,
"%s: power line frequency ( > 0) must follow -p\n",
pname);
exit(1);
}
break;
case 'r': /* record name */
if (++i >= argc) {
(void)fprintf(stderr, "%s: input record name must follow -r\n",
pname);
exit(1);
}
record = argv[i];
break;
case 'R': /* resample */
Rflag = 1;
break;
case 's': /* signal */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: signal number or name must follow -s\n",
pname);
exit(1);
}
sig = i; /* remember the argument until the record is open */
break;
case 't': /* end time */
if (++i >= argc) {
(void)fprintf(stderr, "%s: time must follow -t\n", pname);
exit(1);
}
to = i;
break;
case 'v': /* verbose mode */
vflag = 1;
break;
default:
(void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
argv[i]);
exit(1);
}
else {
(void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
argv[i]);
exit(1);
}
}
if (record == NULL) {
help();
exit(1);
}
if (gvmode == 0 && (p = getenv("WFDBGVMODE")))
gvmode = atoi(p);
setgvmode(gvmode|WFDB_GVPAD);
if ((nsig = isigopen(record, NULL, 0)) < 1) exit(2);
if ((s = (WFDB_Siginfo *)malloc(nsig * sizeof(WFDB_Siginfo))) == NULL) {
(void)fprintf(stderr, "%s: insufficient memory\n", pname);
exit(2);
}
if ((nsig = isigopen(record, s, nsig)) < 1) exit(2);
sps = sampfreq((char *)NULL);
if (sps < PWFreq) {
(void)fprintf(stderr, "%s: sampling frequency (%g Hz) is too low%s",
pname, sps,
(gvmode & WFDB_HIGHRES) ? "\n" : ", try -H option\n");
exit(3);
}
if (gvmode & WFDB_HIGHRES)
setafreq(sampfreq((char *)NULL));
a.name = "wqrs"; a.stat = WFDB_WRITE;
if (annopen(record, &a, 1) < 0) exit(2);
if (sig >= 0) sig = findsig(argv[sig]);
if (sig < 0 || sig >= nsig) sig = 0;
if ((gain = s[sig].gain) == 0.0) gain = WFDB_DEFGAIN;
if (Rflag) {
if (PWFreq == 60.0) setifreq(sps = 120.);
else setifreq(sps = 150.);
}
if (from > 0L) {
if ((from = strtim(argv[from])) < 0L)
from = -from;
}
if (to > 0L) {
if ((to = strtim(argv[to])) < 0L)
to = -to;
}
else
to = strtim("e");
annot.subtyp = annot.num = 0;
annot.chan = sig;
annot.aux = NULL;
Tm = muvadu((unsigned)sig, Tm);
samplingInterval = 1000.0/sps;
lfsc = 1.25*gain*gain/sps; /* length function scale constant */
spm = 60 * sps;
next_minute = from + spm;
LPn = sps/PWFreq; /* The LP filter will have a notch at the
power line (mains) frequency */
if (LPn > 8) LPn = 8; /* avoid filtering too agressively */
LP2n = 2 * LPn;
EyeClosing = sps * EYE_CLS; /* set eye-closing period */
ExpectPeriod = sps * NDP; /* maximum expected RR interval */
LTwindow = sps * MaxQRSw; /* length transform window size */
(void)sample(sig, 0L);
if (dflag) {
for (t = from; t < to || (to == 0L && sample_valid()); t++)
printf("%6d\t%6d\n", sample(sig, t), ltsamp(t));
exit(0);
}
if (vflag) {
printf("\n------------------------------------------------------\n");
printf("Record Name: %s\n", record);
printf("Total Signals: %d (", nsig);
for (i = 0; i < nsig - 1; i++)
printf("%d, ", i);
printf("%d)\n", nsig - 1);
printf("Sampling Frequency: %.1f Hz\n", sps);
printf("Sampling Interval: %.3f ms\n", samplingInterval);
printf("Signal channel used for detection: %d\n", sig);
printf("Eye-closing period: %d samples (%.0f ms)\n",
EyeClosing, EyeClosing*samplingInterval);
printf("Minimum threshold: %d A/D units (%d microvolts)\n",
Tm, adumuv(sig, Tm));
printf("Power line frequency: %d Hz\n", PWFreq);
printf("\n------------------------------------------------------\n\n");
printf("Processing:\n");
}
/* Average the first 8 seconds of the length-transformed samples
to determine the initial thresholds Ta and T0. The number of samples
in the average is limited to half of the ltsamp buffer if the sampling
frequency exceeds about 2 KHz. */
if ((t1 = strtim("8")) > BUFLN*0.9)
t1 = BUFLN/2;
t1 += from;
for (T0 = 0, t = from; t < t1 && sample_valid(); t++)
T0 += ltsamp(t);
T0 /= t1 - from;
Ta = 3 * T0;
/* Main loop */
for (t = from; t < to || (to == 0L && sample_valid()); t++) {
static int learning = 1, T1;
if (learning) {
if (t > t1) {
learning = 0;
T1 = T0;
t = from; /* start over */
}
else
T1 = 2*T0;
}
/* Compare a length-transformed sample against T1. */
if (ltsamp(t) > T1) { /* found a possible QRS near t */
timer = 0; /* used for counting the time after previous QRS */
max = min = ltsamp(t);
for (tt = t+1; tt < t + EyeClosing/2; tt++)
if (ltsamp(tt) > max) max = ltsamp(tt);
for (tt = t-1; tt > t - EyeClosing/2; tt--)
if (ltsamp(tt) < min) min = ltsamp(tt);
if (max > min+10) { /* There is a QRS near tt */
/* Find the QRS onset (PQ junction) */
onset = max/100 + 2;
tpq = t - 5;
for (tt = t; tt > t - EyeClosing/2; tt--) {
if (ltsamp(tt) - ltsamp(tt-1) < onset &&
ltsamp(tt-1) - ltsamp(tt-2) < onset &&
ltsamp(tt-2) - ltsamp(tt-3) < onset &&
ltsamp(tt-3) - ltsamp(tt-4) < onset) {
tpq = tt - LP2n; /* account for phase shift */
break;
}
}
if (!learning) {
/* Check that we haven't reached the end of the record. */
(void)sample(sig, tpq);
if (sample_valid() == 0) break;
/* Record an annotation at the QRS onset */
annot.time = tpq;
annot.anntyp = NORMAL;
if (putann(0, &annot) < 0) { /* write the annotation */
wfdbquit(); /* close files if an error occurred */
exit(1);
}
if (jflag) {
/* Find the end of the QRS */
for (tt = t, tj = t + 5; tt < t + EyeClosing/2; tt++) {
if (ltsamp(tt) > max - (max/10)) {
tj = tt;
break;
}
}
(void)sample(sig, tj);
if (sample_valid() == 0) break;
/* Record an annotation at the J-point */
annot.time = tj;
annot.anntyp = JPT;
if (putann(0, &annot) < 0) {
wfdbquit();
exit(1);
}
}
}
/* Adjust thresholds */
Ta += (max - Ta)/10;
T1 = Ta / 3;
/* Lock out further detections during the eye-closing period */
t += EyeClosing;
}
}
else if (!learning) {
/* Once past the learning period, decrease threshold if no QRS
was detected recently. */
if (++timer > ExpectPeriod && Ta > Tm) {
Ta--;
T1 = Ta / 3;
}
}
/* Keep track of progress by printing a dot for each minute analyzed */
if (t >= next_minute) {
next_minute += spm;
(void)fprintf(stderr, ".");
(void)fflush(stderr);
if (++minutes >= 60) {
(void)fprintf(stderr, " %s\n", timstr(t));
minutes = 0;
}
}
}
if (minutes) (void)fprintf(stderr, " %s\n", timstr(t));
(void)free(lbuf);
(void)free(ebuf);
wfdbquit(); /* close WFDB files */
fprintf(stderr, "\n");
if (vflag) {
printf("\n\nDone! \n\nResulting annotation file: %s.wqrs\n\n\n",
record);
}
exit(0);
}
main(int argc, char **argv)
{
char *oaname = "gqf";
double HR;
FILE *config = NULL;
int a0 = 0, a1 = 0, **count, dn, i, ibest, ichosen = 0, j, *mbuf,
n, niann = 0, nseg, tdn;
WFDB_Anninfo *a;
WFDB_Annotation annot;
WFDB_Frequency spm;
WFDB_Time t0, tf;
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'a': /* input annotator names */
for (a0 = a1 = ++i; a1 < argc && *argv[a1] != '-'; a1++, i++)
;
if ((niann = a1 - a0) < 2) {
(void)fprintf(stderr,
"%s: input annotator names must follow -a\n",
pname);
cleanup(1);
}
break;
case 'c': /* configuration file */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: name of configuration file must follow -c\n", pname);
cleanup(1);
}
if ((config = fopen(argv[i], "rt")) == NULL) {
(void)fprintf(stderr,
"%s: can't read configuration file %s\n", pname, argv[i]);
cleanup(1);
}
break;
case 'h': /* help requested */
help();
cleanup(0);
break;
case 'o': /* output annotator name */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: output annotator name must follow -o\n",
pname);
cleanup(1);
}
oaname = argv[i];
break;
case 'r': /* record name */
if (++i >= argc) {
(void)fprintf(stderr, "%s: input record name must follow -r\n",
pname);
cleanup(1);
}
record = argv[i];
break;
default:
(void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
argv[i]);
cleanup(1);
}
else {
(void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
argv[i]);
cleanup(1);
}
}
/* Quit unless record name and at least two annotator names specified. */
if (record == NULL || niann < 2) {
help();
cleanup(1);
}
/* Set up annotator info. */
a = gcalloc(sizeof(WFDB_Anninfo), niann+1);
for (i = a0, j = 0; i < a1; i++, j++) {
a[j].name = argv[i]; a[j].stat = WFDB_READ;
}
a[j].name = oaname; a[j].stat = WFDB_WRITE;
/* Read a priori physiologic parameters from the configuration file if
available. They can be adjusted in the configuration file for pediatric,
fetal, or animal ECGs. */
if (config) {
char buf[256], *p;
/* Read the configuration file a line at a time. */
while (fgets(buf, sizeof(buf), config)) {
/* Skip comments (empty lines and lines beginning with `#'). */
if (buf[0] == '#' || buf[0] == '\n') continue;
/* Set parameters. Each `getconf' below is executed once for
each non-comment line in the configuration file. */
getconf(HR, "%lf");
}
fclose(config);
}
/* If any a priori parameters were not specified in the configuration file,
initialize them here (using values chosen for adult human ECGs). */
if (HR == 0.0) HR = 75;
spm = 60.0 * sampfreq(record); /* sample intervals per minute */
nseg = strtim("e")/spm; /* number of complete 1-minute intervals */
/* Set up buffer for median calculation. */
mbuf = gcalloc(sizeof(int), niann + 1);
mbuf[niann] = HR; /* initial median is HR */
/* Set up arrays for HR minute-by-minute time series. */
count = gcalloc(sizeof(int *), niann + 1);
for (i = 0; i < niann; i++)
count[i] = gcalloc(sizeof(int), nseg+1);
/* Pass 1: Load the HR arrays. */
if (annopen(record, a, niann) < 0) cleanup(2);
for (i = 0; i < niann; i++) {
for (tf = spm, j = 0; j < nseg+1; tf += spm, j++) {
n = 0;
while (getann(i, &annot) == 0 && annot.time < tf)
if (isqrs(annot.anntyp)) n++;
count[i][j] = n;
}
}
wfdbquit();
/* Pass 2: Select the input annotations to be copied, and copy them. */
if (annopen(record, a, niann+1) < 0) cleanup(2);
for (j = 0, t0 = 0, tf = spm; j < nseg+1; j++, t0 = tf, tf += spm) {
for (i = 0; i < niann; i++)
mbuf[i] = count[i][j];
/* Note that the last element, mbuf[niann], is the previous median. */
qsort(mbuf, niann+1, sizeof(int), icomp);
/* If mbuf has an even number of members, the median is the mean of
the two central values. */
if (niann & 1) mbuf[niann] = (mbuf[(niann-1)/2] + mbuf[(niann+1)/2])/2;
/* Otherwise it's the single central value. */
else mbuf[niann] = mbuf[niann/2];
/* Find the input that best matches the prediction (the median). */
for (i = 0, dn = 9999; i < niann; i++) {
tdn = mbuf[niann] - count[i][j];
if (tdn < 0) tdn = -tdn;
if (tdn < dn) { dn = tdn; ibest = i; }
}
/* If the best match is not the previously chosen input, avoid switching
the input unless it's more than 2 beats further from the median. */
if (ibest != ichosen) {
tdn = mbuf[niann] - count[ichosen][j];
if (tdn < 0) tdn = -tdn;
if (tdn < dn + 3) ibest = ichosen;
}
ichosen = ibest;
/* Copy the chosen annotations for this one-minute segment. */
n = 0;
while (getann(ichosen, &annot) == 0 && n <= count[ichosen][j]) {
if (annot.time >= t0 && isqrs(annot.anntyp)) {
putann(0, &annot);
n++;
}
}
ungetann(ichosen, &annot);
}
cleanup(0);
}
/*
* halts the gRouter.
* TODO: should we do any specific clean up of state before halting the router?
*/
void haltCmd()
{
verbose(1, "[haltCmd]:: Router %s shutting down.. ", prog_name());
raise(SIGUSR1);
}
int
main(int argc, char **argv)
{
int c, n;
int i;
char *strval;
size_t len;
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
prog = prog_name(argv[0]);
while ((c = getopt(argc, argv, "d:p:e:h:k:s:QW:?")) != EOF) {
switch (c) {
case 'Q':
ckquit = 0;
break;
case 'W':
ckwidth = atoi(optarg);
if (ckwidth < 0) {
(void) fprintf(stderr,
gettext("%s: ERROR: negative display width specified\n"),
prog);
exit(1);
}
break;
case 'd':
deflt = optarg;
break;
case 'p':
prompt = optarg;
break;
case 'e':
error = optarg;
break;
case 'h':
help = optarg;
break;
case 'k':
kpid = atoi(optarg);
break;
case 's':
signo = atoi(optarg);
break;
default:
usage();
}
}
if (signo) {
if (kpid == BADPID)
usage();
} else
signo = SIGTERM;
if (optind >= argc)
usage(); /* must be at least one keyword */
nkeyword = argc - optind;
keyword = (char **)malloc(sizeof (char *) * (nkeyword + 1));
if (!keyword) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
for (i = 0; i < nkeyword; i++)
keyword[i] = argv[optind++];
keyword[nkeyword] = NULL;
if (deflt) {
len = strlen(deflt) + 1;
if (len < MAX_INPUT)
len = MAX_INPUT;
} else {
len = MAX_INPUT;
}
strval = (char *)malloc(len);
if (!strval) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
n = ckkeywd(strval, keyword, deflt, error, help, prompt);
if (n == 3) {
if (kpid > -2)
(void) kill(kpid, signo);
(void) puts("q");
} else if (n == 0)
(void) fputs(strval, stdout);
return (n);
}
static void vboot_prepare(void)
{
if (verification_should_run()) {
/* Note: this path is not used for VBOOT_RETURN_FROM_VERSTAGE */
verstage_main();
car_set_var(vboot_executed, 1);
vb2_save_recovery_reason_vbnv();
/*
* Avoid double memory retrain when the EC is running RW code
* and a recovery request came in through an EC host event. The
* double retrain happens because the EC won't be rebooted
* until kernel verification notices the EC isn't running RO
* code which is after memory training. Therefore, reboot the
* EC after we've saved the potential recovery request so it's
* not lost. Lastly, only perform this sequence on x86
* platforms since those are the ones that currently do a
* costly memory training in recovery mode.
*/
if (IS_ENABLED(CONFIG_EC_GOOGLE_CHROMEEC) &&
IS_ENABLED(CONFIG_ARCH_X86))
google_chromeec_early_init();
} else if (verstage_should_load()) {
struct cbfsf file;
struct prog verstage =
PROG_INIT(PROG_VERSTAGE,
CONFIG_CBFS_PREFIX "/verstage");
printk(BIOS_DEBUG, "VBOOT: Loading verstage.\n");
/* load verstage from RO */
if (cbfs_boot_locate(&file, prog_name(&verstage), NULL))
die("failed to load verstage");
cbfs_file_data(prog_rdev(&verstage), &file);
if (cbfs_prog_stage_load(&verstage))
die("failed to load verstage");
/* verify and select a slot */
prog_run(&verstage);
/* This is not actually possible to hit this condition at
* runtime, but this provides a hint to the compiler for dead
* code elimination below. */
if (!IS_ENABLED(CONFIG_VBOOT_RETURN_FROM_VERSTAGE))
return;
car_set_var(vboot_executed, 1);
}
/*
* Fill in vboot cbmem objects before moving to ramstage so all
* downstream users have access to vboot results. This path only
* applies to platforms employing VBOOT_STARTS_IN_ROMSTAGE because
* cbmem comes online prior to vboot verification taking place. For
* other platforms the vboot cbmem objects are initialized when
* cbmem comes online.
*/
if (ENV_ROMSTAGE && IS_ENABLED(CONFIG_VBOOT_STARTS_IN_ROMSTAGE)) {
vb2_store_selected_region();
vboot_fill_handoff();
}
}
int
main(int argc, char **argv)
{
int c, n;
char *pathval;
size_t len;
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
prog = prog_name(argv[0]);
while ((c = getopt(argc, argv, "abcfglrtwxyznod:p:e:h:k:s:QW:?"))
!= EOF) {
/* check for invalid option */
if ((*prog == 'v') && !strchr(vusage, c))
usage();
if ((*prog == 'e') && !strchr(eusage, c))
usage();
if ((*prog == 'h') && !strchr(husage, c))
usage();
switch (c) {
case 'Q':
ckquit = 0;
break;
case 'W':
ckwidth = atoi(optarg);
if (ckwidth < 0) {
(void) fprintf(stderr,
gettext("%s: ERROR: negative display width specified\n"),
prog);
exit(1);
}
break;
case 'a':
pflags |= P_ABSOLUTE;
break;
case 'b':
pflags |= P_BLK;
break;
case 'c':
pflags |= P_CHR;
break;
case 'f':
case 'g': /* outdated */
pflags |= P_REG;
break;
case 'l':
pflags |= P_RELATIVE;
break;
case 'n':
pflags |= P_NEXIST;
break;
case 'o':
pflags |= P_EXIST;
break;
case 't':
pflags |= P_CREAT;
break;
case 'r':
pflags |= P_READ;
break;
case 'w':
pflags |= P_WRITE;
break;
case 'x':
pflags |= P_EXEC;
break;
case 'y':
pflags |= P_DIR;
break;
case 'z':
pflags |= P_NONZERO;
break;
case 'd':
deflt = optarg;
break;
case 'p':
prompt = optarg;
break;
case 'e':
error = optarg;
break;
case 'h':
help = optarg;
break;
case 'k':
kpid = atoi(optarg);
break;
case 's':
signo = atoi(optarg);
break;
default:
usage();
}
}
if (signo) {
if (kpid == BADPID)
usage();
} else
signo = SIGTERM;
if (ckpath_stx(pflags)) {
(void) fprintf(stderr,
gettext("%s: ERROR: mutually exclusive options used\n"),
prog);
exit(4);
}
if (*prog == 'v') {
if (argc != (optind+1))
usage(); /* too many paths listed */
exit(ckpath_val(argv[optind], pflags));
} else if (*prog == 'e') {
if (argc > (optind+1))
usage();
ckindent = 0;
ckpath_err(pflags, error, argv[optind]);
exit(0);
}
if (optind != argc)
usage();
if (*prog == 'h') {
ckindent = 0;
ckpath_hlp(pflags, help);
exit(0);
}
if (deflt) {
len = strlen(deflt) + 1;
if (len < MAX_INPUT)
len = MAX_INPUT;
} else {
len = MAX_INPUT;
}
pathval = (char *)malloc(len);
if (!pathval) {
(void) fprintf(stderr,
gettext("Not enough memory\n"));
exit(1);
}
n = ckpath(pathval, pflags, deflt, error, help, prompt);
if (n == 3) {
if (kpid > -2)
(void) kill(kpid, signo);
(void) puts("q");
} else if (n == 0)
(void) fputs(pathval, stdout);
return (n);
}
int
main(int argc, char **argv)
{
int c, n;
long lvalue, uvalue, intval;
char *ptr = 0;
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
prog = prog_name(argv[0]);
while ((c = getopt(argc, argv, "l:u:b:d:p:e:h:k:s:QW:?")) != EOF) {
/* check for invalid option */
if ((*prog == 'v') && !strchr(vusage, c))
usage();
if ((*prog == 'e') && !strchr(eusage, c))
usage();
if ((*prog == 'h') && !strchr(husage, c))
usage();
switch (c) {
case 'Q':
ckquit = 0;
break;
case 'W':
ckwidth = atoi(optarg);
if (ckwidth < 0) {
(void) fprintf(stderr,
gettext("%s: ERROR: negative display width specified\n"),
prog);
exit(1);
}
break;
case 'b':
base = atoi(optarg);
if ((base < 2) || (base > 36)) {
(void) fprintf(stderr,
gettext("%s: ERROR: base must be between 2 and 36\n"),
prog);
exit(1);
}
break;
case 'u':
upper = optarg;
break;
case 'l':
lower = optarg;
break;
case 'd':
deflt = optarg;
break;
case 'p':
prompt = optarg;
break;
case 'e':
error = optarg;
break;
case 'h':
help = optarg;
break;
case 'k':
kpid = atoi(optarg);
break;
case 's':
signo = atoi(optarg);
break;
default:
usage();
}
}
if (signo) {
if (kpid == BADPID)
usage();
} else
signo = SIGTERM;
if (upper) {
uvalue = strtol(upper, &ptr, base);
if (ptr == upper) {
(void) fprintf(stderr,
gettext("%s: ERROR: invalid upper value specification\n"),
prog);
exit(1);
}
} else
uvalue = LONG_MAX;
if (lower) {
lvalue = strtol(lower, &ptr, base);
if (ptr == lower) {
(void) fprintf(stderr,
gettext("%s: ERROR: invalid lower value specification\n"),
prog);
exit(1);
}
} else
lvalue = LONG_MIN;
if (uvalue < lvalue) {
(void) fprintf(stderr,
gettext("%s: ERROR: upper value is less than lower value\n"),
prog);
exit(1);
}
if (*prog == 'v') {
if (argc != (optind+1))
usage();
exit(ckrange_val(lvalue, uvalue, base, argv[optind]));
}
if (optind != argc)
usage();
if (*prog == 'e') {
ckindent = 0;
ckrange_err(lvalue, uvalue, base, error);
exit(0);
} else if (*prog == 'h') {
ckindent = 0;
ckrange_hlp(lvalue, uvalue, base, help);
exit(0);
}
n = ckrange(&intval, lvalue, uvalue, (short)base,
deflt, error, help, prompt); /* libadm interface */
if (n == 3) {
if (kpid > -2)
(void) kill(kpid, signo);
(void) puts("q");
} else if (n == 0)
(void) printf("%ld", intval);
return (n);
}
uint32_t vboot_init_crtm(void)
{
struct prog bootblock = PROG_INIT(PROG_BOOTBLOCK, "bootblock");
struct prog verstage =
PROG_INIT(PROG_VERSTAGE, CONFIG_CBFS_PREFIX "/verstage");
struct prog romstage =
PROG_INIT(PROG_ROMSTAGE, CONFIG_CBFS_PREFIX "/romstage");
char tcpa_metadata[TCPA_PCR_HASH_NAME];
/* Initialize TCPE PRERAM log. */
tcpa_preram_log_clear();
/* measure bootblock from RO */
struct cbfsf bootblock_data;
struct region_device bootblock_fmap;
if (fmap_locate_area_as_rdev("BOOTBLOCK", &bootblock_fmap) == 0) {
if (tpm_measure_region(&bootblock_fmap,
TPM_CRTM_PCR,
"FMAP: BOOTBLOCK"))
return VB2_ERROR_UNKNOWN;
} else {
if (cbfs_boot_locate(&bootblock_data,
prog_name(&bootblock), NULL) == 0) {
cbfs_file_data(prog_rdev(&bootblock), &bootblock_data);
if (create_tcpa_metadata(prog_rdev(&bootblock),
prog_name(&bootblock), tcpa_metadata) < 0)
return VB2_ERROR_UNKNOWN;
if (tpm_measure_region(prog_rdev(&bootblock),
TPM_CRTM_PCR,
tcpa_metadata))
return VB2_ERROR_UNKNOWN;
} else {
printk(BIOS_INFO,
"VBOOT: Couldn't measure bootblock into CRTM!\n");
return VB2_ERROR_UNKNOWN;
}
}
if (CONFIG(VBOOT_STARTS_IN_ROMSTAGE)) {
struct cbfsf romstage_data;
/* measure romstage from RO */
if (cbfs_boot_locate(&romstage_data,
prog_name(&romstage), NULL) == 0) {
cbfs_file_data(prog_rdev(&romstage), &romstage_data);
if (create_tcpa_metadata(prog_rdev(&romstage),
prog_name(&romstage), tcpa_metadata) < 0)
return VB2_ERROR_UNKNOWN;
if (tpm_measure_region(prog_rdev(&romstage),
TPM_CRTM_PCR,
tcpa_metadata))
return VB2_ERROR_UNKNOWN;
} else {
printk(BIOS_INFO,
"VBOOT: Couldn't measure %s into CRTM!\n",
CONFIG_CBFS_PREFIX "/romstage");
return VB2_ERROR_UNKNOWN;
}
}
if (CONFIG(VBOOT_SEPARATE_VERSTAGE)) {
struct cbfsf verstage_data;
/* measure verstage from RO */
if (cbfs_boot_locate(&verstage_data,
prog_name(&verstage), NULL) == 0) {
cbfs_file_data(prog_rdev(&verstage), &verstage_data);
if (create_tcpa_metadata(prog_rdev(&verstage),
prog_name(&verstage), tcpa_metadata) < 0)
return VB2_ERROR_UNKNOWN;
if (tpm_measure_region(prog_rdev(&verstage),
TPM_CRTM_PCR,
tcpa_metadata))
return VB2_ERROR_UNKNOWN;
} else {
printk(BIOS_INFO,
"VBOOT: Couldn't measure %s into CRTM!\n",
CONFIG_CBFS_PREFIX "/verstage");
return VB2_ERROR_UNKNOWN;
}
}
return VB2_SUCCESS;
}
main(int argc, char **argv)
{
char buf[80], *ifname, *record = NULL;
double sps, wgain;
int bitspersample, bytespersecond, framelen, i, nsig, tag, wres;
long flen, len, wnsamp;
static WFDB_Siginfo *s;
/* Interpret the command line. */
pname = prog_name(argv[0]);
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') switch (*(argv[i]+1)) {
case 'h': /* help requested */
help();
exit(1);
break;
case 'i': /* input file name follows */
if (++i >= argc) {
(void)fprintf(stderr,
"%s: name of wav-format input file must follow -i\n",
pname);
exit(1);
}
ifname = argv[i];
if (strlen(ifname)<5 || strcmp(".wav", ifname+strlen(ifname)-4)) {
(void)fprintf(stderr,
"%s: name of input file must end in '.wav'\n",
pname);
exit(1);
}
break;
case 'r':
if (++i >= argc) {
(void)fprintf(stderr,
"%s: record name must follow -r\n", pname);
exit(1);
}
record = argv[i];
break;
default:
(void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
argv[i]);
exit(1);
}
else {
(void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
argv[i]);
exit(1);
}
}
/* Check that required arguments are present and valid. */
if (ifname == NULL) {
help();
exit(1);
}
/* If the record name was not specified, generate it from ifname. */
if (record == NULL) {
record = malloc(strlen(ifname));
strncpy(record, ifname, strlen(ifname)-4);
record[strlen(ifname)-3] = '\0';
}
/* Open the input file. */
if ((ifile = fopen(ifname, "rb")) == NULL) {
fprintf(stderr, "%s: can't open %s\n", pname, ifname);
exit(2);
}
/* Determine the size of the input file. */
fseek(ifile, 0L, SEEK_END);
flen = ftell(ifile);
fseek(ifile, 0L, SEEK_SET);
/* Read and check the header chunk. */
if (fread(buf, 1, 4, ifile) != 4 ||
strncmp(buf, "RIFF", 4)) {
fprintf(stderr, "%s: %s is not a .wav-format file\n", pname, ifname);
exit(3);
}
len = in32() + 8;
if (len != flen) {
fprintf(stderr,
"%s: header chunk of %s has incorrect length (%ld, should be %ld)\n",
pname, ifname, len, flen);
exit(3);
}
if (fread(buf, 1, 4, ifile) != 4 ||
strncmp(buf, "WAVE", 4)) {
fprintf(stderr, "%s: %s is not a .wav-format file\n", pname, ifname);
exit(3);
}
/* Read and check the format chunk. */
if (fread(buf, 1, 4, ifile) != 4 ||
strncmp(buf, "fmt ", 4)) {
fprintf(stderr, "%s: format chunk missing or corrupt in %s\n",
pname, ifname);
exit(3);
}
len = in32();
tag = in16();
if (len != 16 || tag != 1) {
fprintf(stderr, "%s: unsupported format %d in %s\n",
pname, tag, ifname);
exit(3);
}
nsig = in16();
sps = in32();
bytespersecond = in32();
framelen = in16();
bitspersample = in16();
if (bitspersample <= 8) {
wres = 8;
wgain = 12.5;
}
else if (bitspersample <= 16) {
wres = 16;
wgain = 6400;
}
else {
fprintf(stderr, "%s: unsupported resolution (%d bits/sample) in %s\n",
pname, bitspersample, ifname);
exit(3);
}
if (framelen != nsig * wres / 8) {
fprintf(stderr, "%s: format chunk of %s has incorrect frame length\n",
pname, ifname);
exit(3);
}
/* Read and check the beginning of the data chunk. */
if (fread(buf, 1, 4, ifile) != 4 ||
strncmp(buf, "data", 4)) {
fprintf(stderr, "%s: data chunk missing or corrupt in %s\n",
pname, ifname);
exit(3);
}
len = in32();
wnsamp = len / framelen;
if ((s = malloc(nsig * sizeof(WFDB_Siginfo))) == NULL) {
(void)fprintf(stderr, "%s: insufficient memory\n", pname);
exit(2);
}
for (i = 0; i < nsig; i++) {
s[i].fname = ifname;
s[i].desc = NULL;
s[i].units = NULL;
s[i].gain = wgain;
s[i].initval = 0;
s[i].group = 0;
s[i].fmt = (wres == 16) ? 16 : 80;
s[i].spf = 1;
s[i].bsize = 0;
s[i].adcres = wres;
s[i].adczero = (wres == 16) ? 0 : 128;
s[i].baseline = s[i].adczero;
s[i].nsamp = wnsamp;
s[i].cksum = 0;
wfdbsetstart(i, 44L);
}
setsampfreq(sps);
if (setheader(record, s, nsig))
exit(4);
/* Clean up. */
wfdbquit();
exit(0);
}