| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
################################################################################ |
|
2
|
|
|
|
|
|
|
# |
|
3
|
|
|
|
|
|
|
# Copyright (c) 2002-2020 Marcus Holland-Moritz. All rights reserved. |
|
4
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify |
|
5
|
|
|
|
|
|
|
# it under the same terms as Perl itself. |
|
6
|
|
|
|
|
|
|
# |
|
7
|
|
|
|
|
|
|
################################################################################ |
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
################################################################################ |
|
11
|
|
|
|
|
|
|
# |
|
12
|
|
|
|
|
|
|
# METHOD: configure |
|
13
|
|
|
|
|
|
|
# |
|
14
|
|
|
|
|
|
|
# WRITTEN BY: Marcus Holland-Moritz ON: Jan 2002 |
|
15
|
|
|
|
|
|
|
# CHANGED BY: ON: |
|
16
|
|
|
|
|
|
|
# |
|
17
|
|
|
|
|
|
|
################################################################################ |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
SV * |
|
20
|
|
|
|
|
|
|
CBC::configure(...) |
|
21
|
|
|
|
|
|
|
PREINIT: |
|
22
|
7743
|
|
|
|
|
|
CBC_METHOD(configure); |
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
CODE: |
|
25
|
|
|
|
|
|
|
CT_DEBUG_METHOD; |
|
26
|
|
|
|
|
|
|
|
|
27
|
7743
|
100
|
|
|
|
|
if (items <= 2 && GIMME_V == G_VOID) |
|
|
|
100
|
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
{ |
|
29
|
27
|
100
|
|
|
|
|
WARN_VOID_CONTEXT; |
|
30
|
6083
|
|
|
|
|
|
XSRETURN_EMPTY; |
|
31
|
|
|
|
|
|
|
} |
|
32
|
7716
|
100
|
|
|
|
|
else if (items == 1) |
|
33
|
985
|
|
|
|
|
|
RETVAL = get_configuration(aTHX_ THIS); |
|
34
|
6731
|
100
|
|
|
|
|
else if (items == 2) |
|
35
|
235
|
|
|
|
|
|
handle_option(aTHX_ THIS, ST(1), NULL, &RETVAL, NULL); |
|
36
|
6496
|
100
|
|
|
|
|
else if (items % 2) |
|
37
|
|
|
|
|
|
|
{ |
|
38
|
6495
|
|
|
|
|
|
int i, changes = 0, layout = 0, preproc = 0; |
|
39
|
|
|
|
|
|
|
HandleOptionResult res; |
|
40
|
|
|
|
|
|
|
|
|
41
|
12966
|
100
|
|
|
|
|
for (i = 1; i < items; i += 2) |
|
42
|
|
|
|
|
|
|
{ |
|
43
|
6910
|
|
|
|
|
|
handle_option(aTHX_ THIS, ST(i), ST(i+1), NULL, &res); |
|
44
|
6471
|
100
|
|
|
|
|
if (res.option_modified) |
|
45
|
5999
|
|
|
|
|
|
changes = 1; |
|
46
|
6471
|
100
|
|
|
|
|
if (res.impacts_layout) |
|
47
|
6173
|
|
|
|
|
|
layout = 1; |
|
48
|
6471
|
100
|
|
|
|
|
if (res.impacts_preproc) |
|
49
|
148
|
|
|
|
|
|
preproc = 1; |
|
50
|
|
|
|
|
|
|
} |
|
51
|
|
|
|
|
|
|
|
|
52
|
6056
|
100
|
|
|
|
|
if (changes) |
|
53
|
|
|
|
|
|
|
{ |
|
54
|
5911
|
100
|
|
|
|
|
if (layout) |
|
55
|
|
|
|
|
|
|
{ |
|
56
|
5767
|
|
|
|
|
|
basic_types_reset(THIS->basic); |
|
57
|
|
|
|
|
|
|
|
|
58
|
5767
|
100
|
|
|
|
|
if (THIS->cpi.available && THIS->cpi.ready) |
|
|
|
100
|
|
|
|
|
|
|
59
|
5595
|
|
|
|
|
|
reset_parse_info(&THIS->cpi); |
|
60
|
|
|
|
|
|
|
} |
|
61
|
|
|
|
|
|
|
|
|
62
|
5911
|
100
|
|
|
|
|
if (preproc) |
|
63
|
|
|
|
|
|
|
{ |
|
64
|
85
|
|
|
|
|
|
reset_preprocessor(&THIS->cpi); |
|
65
|
|
|
|
|
|
|
} |
|
66
|
|
|
|
|
|
|
} |
|
67
|
|
|
|
|
|
|
|
|
68
|
6056
|
|
|
|
|
|
XSRETURN(1); |
|
69
|
|
|
|
|
|
|
} |
|
70
|
|
|
|
|
|
|
else |
|
71
|
1
|
|
|
|
|
|
Perl_croak(aTHX_ "Invalid number of arguments to %s", method); |
|
72
|
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
OUTPUT: |
|
74
|
|
|
|
|
|
|
RETVAL |
|
75
|
|
|
|
|
|
|
|