FIJI.pm 45.1 KB
Newer Older
Christian Fibich's avatar
Christian Fibich committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#-------------------------------------------------------------------------------
#  University of Applied Sciences Technikum Wien
#
#  Department of Embedded Systems
#  http://embsys.technikum-wien.at
#
#  Josef Ressel Center for Verification of Embedded Computing Systems
#  http://vecs.technikum-wien.at
#
#-------------------------------------------------------------------------------
#  File:              FIJI.pm
#  Created on:        18.02.2015
#  $LastChangedBy$
#  $LastChangedDate$
#
#  Description:
#  Various constants used in the FIJI packages.
#-------------------------------------------------------------------------------

20
## @file FIJI.pm
Christian Fibich's avatar
Christian Fibich committed
21
# @brief Contains class \ref FIJI
22

23
## @class FIJI
24
#
Christian Fibich's avatar
Christian Fibich committed
25
# @brief Various constants used in the FIJI packages.
26
package FIJI;
Christian Fibich's avatar
Christian Fibich committed
27
use Cwd;
28

29
30
31
use strict;
use warnings;

32
use constant DEFAULT_TIMER_VALUE => 1000000;
33
34
35
use Cwd 'realpath';
use File::Spec;
use Log::Log4perl qw(:easy);
Stefan Tauner's avatar
Stefan Tauner committed
36
37
use if $^O eq "MSWin32", "Win32::TieRegistry";

38
use constant FIJI_DIR => realpath(File::Spec->rel2abs("..", $FindBin::Bin));
Christian Fibich's avatar
Christian Fibich committed
39
40
41
42
43
44
45
46
47
48
49
use constant FIJI_DOCUMENTATION_PATH => realpath(
    File::Spec->rel2abs(
        File::Spec->catfile(
            "..",
            "docs",
            "userguide",
            "fiji_user_guide.pdf"
        ),
        $FindBin::Bin
    )
);
50

51
52
my @optimization_settings = qw(ALLOW OPTIMIZATION_OFF FIX_PLACEMENT);
use constant OPTIMIZATION_SETTINGS => \@optimization_settings;
53

54
55
56
57
58
59
#
# Maximal period polynomials for LFSRs of given lengths
# Thank you http://www.eej.ulst.ac.uk/~ian/modules/EEE515/files/old_files/lfsr/lfsr_table.pdf
# Our LFSR uses bit numbers are mirrored compared to the document above.
#
use constant LFSR_POLY_CHOICES => {
Christian Fibich's avatar
Christian Fibich committed
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
    2  => ['0x3'],
    3  => ['0x3'],
    4  => ['0x3'],
    5  => ['0x5', '0xF'],
    6  => ['0x3', '0x1B'],
    7  => ['0x3', '0xF'],
    8  => ['0x1D'],
    9  => ['0x11', '0x1B'],
    10 => ['0x9', '0x1B'],
    11 => ['0x5', '0x17'],
    12 => ['0x53'],
    13 => ['0x1B'],
    14 => ['0x2B'],
    15 => ['0x3', '0x17'],
    16 => ['0x2D'],
    17 => ['0x9', '0xF'],
    18 => ['0x81', '0x27'],
    19 => ['0x27'],
    20 => ['0x9', '0x53'],
    21 => ['0x5', '0x27'],
    22 => ['0x3', '0x39'],
    23 => ['0x21', '0x2B'],
    24 => ['0x1B'],
    25 => ['0x9', '0xF'],
    26 => ['0x47'],
    27 => ['0x27'],
    28 => ['0x9', '0x53'],
    29 => ['0x5', '0x17'],
    30 => ['0x53'],
    31 => ['0x9', '0xF'],
    32 => ['0xC5'],
    33 => ['0x2001', '0x53'],
    34 => ['0x119'],
    35 => ['0x5', '0x183'],
    36 => ['0x801', '0x183'],
    37 => ['0x53'],
    38 => ['0x63'],
    39 => ['0x11', '0x93'],
    40 => ['0x39'],
    41 => ['0x9', '0xF'],
    42 => ['0xA5'],
    43 => ['0x63'],
    44 => ['0x65'],
    45 => ['0x1B'],
    46 => ['0x1C1'],
    47 => ['0x21', '0x33'],
    48 => ['0x291'],
    49 => ['0x201', '0x71'],
    50 => ['0x1D'],
    51 => ['0x4B'],
    52 => ['0x9', '0x4B'],
    53 => ['0x47'],
    54 => ['0x149'],
    55 => ['0x1000001', '0x47'],
    56 => ['0x95'],
    57 => ['0x81', '0x2D'],
    58 => ['0x80001', '0x63'],
    59 => ['0x95'],
    60 => ['0x3', '0x35'],
    61 => ['0x27'],
    62 => ['0x69'],
    63 => ['0x3', '0x33'],
    64 => ['0x1B'],
123
124
};

125
126
127
128
#** @var public %designmap Hash containing all FIJI::Settings
#
# Architecture from http://www.perlmonks.org/?node_id=1072731
#
129
# Fields:
130
131
132
133
134
135
136
137
138
139
140
141
142
143
#    - ini_name     key name in FIJI Settings file
#    - unit         (optional) physical unit
#    - type         (optional) enables type-specific conversions and tests:
#                   - natural: values must be oct, hex, binary strings looking like a real number.
#                   - hexadecimal: values must be hexadecimal numbers.
#                   - boolean: will be convert to a truth value by Perl semantics
#                   - net: name of a net from the input netlist
#    - values       (optional) used to restrict valid values. Can be...
#                   - an array reference listing all valid values (emulates an enum)
#                   - a code reference to a function that gets the new and old values and
#                     returns true if the new value is allowed, or false otherwise.
#    - phases_opt   (optional) list of phases (subset of "setup", "instrument", "download")
#                   where no value must be present in input (e.g. ID is only necessary while downloading).
#    - depends_on   (optional) specifies the key of another constant.
144
145
#                   The respective constant is only relevant (and thuse required as input)
#                   if the value of the referenced constant is true.
146
147
148
149
150
151
#    - group        (optional) specifies how to group this value in output. Value will not be displayed if undef
#    - order        (optional) specifies how to sort this value in output group
#    - noedit       (optional) display value, but don't allow to alter
#    - default      (optional) default value if not given in file and not determinable otherwise
#    - help         (optional) short help text, e.g. to be displayed via Tk:Balloon
#    - forbidden_by (optional) specifies the key of another constant
152
153
#                     The respective constant may not be enabled if the value
#                     of the referenced constant is true
154
my %designmap;
155

156
BEGIN {
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
    %designmap = (
        FIU_NUM => {
            description => "Number of FIUs",
            ini_name    => "FIU_NUM",
            type        => 'natural',
            phases_opt  => [qw(setup instrument download)],    # auto-generated if need be
        },
        FIU_CFG_BITS => {
            description => "Bits per FIU pattern",
            ini_name    => "FIU_CFG_BITS",
            default     => 3,
            type        => 'natural',
            phases_opt  => [qw(setup instrument download)],    # currently not user-configurable at all
        },
        CFGS_PER_MSG => {
            description => "Patterns per FIU configuration",
            ini_name    => "CFGS_PER_MSG",
            default     => 2,
            type        => 'natural',
            phases_opt  => [qw(setup instrument download)],    # currently not user-configurable at all
        },
        CLOCK_NET => {
            type        => 'net',
            description => "Clock net",
            help        => "Select a net in the DUT which shall be used to clock the FIJI logic",
            ini_name    => "CLOCK_NET",
183
            default     => "",
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
            phases_opt  => [qw(setup download)],
            group       => 'clock',
            order       => 10,
        },
        FREQUENCY => {
            description => "Clock frequency",
            help        => "Enter the clock frequency in Hz.\n This information is needed e.g. to calculate the Baud rate prescaler",
            ini_name    => "FREQUENCY",
            default     => 50e6,
            type        => 'natural',
            phases_opt  => [qw(setup download)],
            unit        => 'Hz',
            group       => 'clock',
            order       => 20,
        },
        OUTPUT_DIR => {
            description => "Output directory",
201
            help        => "Output directory for FIJI Instrument (relative to location of FIJI settings file)",
202
            ini_name    => "OUTPUT_DIR",
203
            default     => ".",
204
205
206
207
208
            type        => 'dir',
            group       => 'general_control',
            phases_opt  => [qw(setup)],
            order       => 5,
        },
209
210
        INSTRUMENTATION_LOG => {
            description => "Instrumentation log file",
211
            help        => "Log file for FIJI Instrumentation tool (relative to location of FIJI settings file)",
212
213
214
215
216
217
218
            ini_name    => "INSTRUMENTATION_LOG",
            default     => "fiji_instrument.log",
            type        => 'file',
            group       => 'general_control',
            phases_opt  => [qw(setup)],
            order       => 6,
        },
219
220
221
222
223
224
225
226
227
        BAUDRATE => {
            description => "Baud rate",
            help        => "Enter the Baud rate for communication between Host and FIJI logic.",
            ini_name    => "BAUDRATE",
            default     => 115200,
            type        => 'natural',
            unit        => 'bps',
            group       => 'general_control',
            order       => 10,
228
229
230
231
232
233
234
235
            depends_on  => "FREQUENCY",
            values      => sub {
                my ($baud, $old, $fclk) = @_;
                if (defined $fclk) {
                    return $baud < $fclk;
                } else {
                    return 1;
                }
Christian Fibich's avatar
Christian Fibich committed
236
              }
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
        },
        ID => {
            description => "Design ID",
            help        => "The design ID is automatically calculated upon instrumentation.",
            ini_name    => "ID",
            type        => 'hexadecimal',
            phases_opt  => [qw(setup instrument)],                                              # generated in instrumentation
            noedit      => 1,
        },
        TIMER_WIDTH => {
            description => "Timer width",
            help        => "Enter the timer width in bytes.\n This influences the maximum fault duration.",
            ini_name    => "TIMER_WIDTH",
            default     => 4,
            type        => 'natural',
            unit        => 'bytes',
            values      => sub {
                my $val = shift;
Christian Fibich's avatar
Christian Fibich committed
255
                return ($val > 0 && $val <= 16);
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
            },
            group => 'general_control',
            order => 20,
        },
        LFSR_WIDTH => {
            description => "LFSR width",
            help        => "Enter the width of the LFSR in bits.\n The LFSR is used to emulate \"floating\" nets in the stuck-open model.",
            ini_name    => "LFSR_WIDTH",
            default     => 16,
            type        => 'natural',
            unit        => 'bits',
            values      => sub {
                my $val = shift;
                return $val > 0 && $val <= 64;
            },
            group => 'lfsr',
            order => 10,
        },
        LFSR_POLY => {
            description => "LFSR polynomial",
            help        => "Enter the polynomial for the LFSR.\n The LFSR is used to emulate \"floating\" nets in the stuck-open model.",
            ini_name    => "LFSR_POLY",
            default     => 0x2D,
279
            type        => 'lfsrpoly',
280
            depends_on  => 'LFSR_WIDTH',
281
            values      => sub {
282
283
284
                my ($val, $old, $top) = @_;
                $top = 64 if !defined $top;
                return $val > 0 && $val <= (2**($top) - 1);
285
286
287
288
289
290
291
292
293
294
            },
            group => 'lfsr',
            order => 20,
        },
        LFSR_SEED => {
            description => "LFSR seed value",
            help        => "Enter the starting value for the LFSR.\n The LFSR is used to emulate \"floating\" nets in the stuck-open model.",
            ini_name    => "LFSR_SEED",
            default     => 0xCAFE,
            type        => 'hexadecimal',
295
            depends_on  => 'LFSR_WIDTH',
296
            values      => sub {
297
298
299
                my ($val, $old, $top) = @_;
                $top = 64 if !defined $top;
                return $val > 0 && $val <= (2**($top) - 1);
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
            },
            group => 'lfsr',
            order => 30,
        },

        # External reset
        RESET_EXT_EN => {
            description => "Use external reset",
            help        => "If enabled, the FIJI logic can be reset using an FPGA pin.",
            ini_name    => "RESET_EXT_EN",
            default     => 0,
            type        => 'boolean',
            group       => 'reset_external',
            order       => 10,
        },
        RESET_EXT_ACTIVE => {
            description => "External Reset: Active level",
            help        => "If enabled, the FIJI logic can be reset using an FPGA pin.",
            ini_name    => "RESET_EXT_ACTIVE",
            type        => 'bit',
            values      => [qw(0 1)],
321
            phases_opt  => ['setup', 'download'],
322
323
324
325
326
327
328
329
330
            default     => '1',
            depends_on  => 'RESET_EXT_EN',
            group       => 'reset_external',
            order       => 20,
        },
        RESET_EXT_IN_NAME => {
            description => "External Reset: Port name (prefix)",
            help        => "Specify the name prefix of the external reset port in the wrapper.\n" . "'_n' will be appended if low-active reset is selected,\n" . "'_i' will be appended at the end",
            ini_name    => "RESET_EXT_IN_NAME",
Christian Fibich's avatar
Christian Fibich committed
331
            default     => "s_fiji_reset_i",
332
            phases_opt  => ['setup', 'download'],
Christian Fibich's avatar
Christian Fibich committed
333
            type        => "external_port",
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
            group       => 'reset_external',
            depends_on  => 'RESET_EXT_EN',
            phases_opt  => [qw(instrument download)],
            order       => 30,
        },

        # Reset from DUT
        RESET_DUT_OUT_EN => {
            description  => "Enable DUT-to-FIJI reset",
            help         => "If enabled, a net in the DUT is used as a reset source for the FIJI logic.",
            ini_name     => "RESET_DUT_OUT_EN",
            default      => 0,
            type         => 'boolean',
            group        => 'reset_from_dut',
            forbidden_by => 'RESET_DUT_IN_EN',
            order        => 10,
        },
        RESET_DUT_OUT_NAME => {
            description => "Source net for DUT-to-FIJI reset",
            help        => "If enabled, a net in the DUT is used as a reset source for the FIJI logic.",
            ini_name    => "RESET_DUT_OUT_NAME",
            depends_on  => 'RESET_DUT_OUT_EN',
            type        => 'net',
357
358
            default     => "",
            phases_opt  => ['setup'],
359
360
361
362
363
364
365
366
367
368
            group       => 'reset_from_dut',
            order       => 30,
        },
        RESET_DUT_OUT_ACTIVE => {
            description => "Active level for DUT-to-FIJI reset",
            help        => "If enabled, a net in the DUT is used as a reset source for the FIJI logic.",
            ini_name    => "RESET_DUT_OUT_ACTIVE",
            type        => 'bit',
            values      => [qw(0 1)],
            default     => '1',
369
            phases_opt  => ['setup'],
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
            depends_on  => 'RESET_DUT_OUT_EN',
            group       => 'reset_from_dut',
            order       => 20,
        },

        # Reset to DUT
        RESET_DUT_IN_EN => {
            description  => "Enable FIJI-to-DUT reset",
            help         => "If enabled, the DUT will be reset from the FIJI logic.",
            ini_name     => "RESET_DUT_IN_EN",
            default      => 0,
            type         => 'boolean',
            group        => 'reset_to_dut',
            forbidden_by => 'RESET_DUT_OUT_EN',
            order        => 10,
        },
        RESET_DUT_IN_NAME => {
            description => "Port for FIJI-to-DUT reset",
            help        => "The specified DUT reset input will be connected\n to the FIJI logic's reset output.",
            ini_name    => "RESET_DUT_IN_NAME",
390
            default     => "",
391
392
393
394
395
396
397
398
399
400
401
            depends_on  => 'RESET_DUT_IN_EN',
            type        => 'toplevel_port',
            group       => 'reset_to_dut',
            order       => 40,
        },
        RESET_DUT_IN_DURATION => {
            description => "Duration for FIJI-to-DUT reset",
            help        => "Enter the duration of each FIJI-to-DUT reset operation in clock cycles.",
            ini_name    => "RESET_DUT_IN_DURATION",
            type        => 'natural',
            default     => 1,
402
            phases_opt  => ['setup'],
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
            unit        => 'cycles',
            values      => sub {
                my $val = shift;
                return $val > 0 && $val <= 2**32 - 1;
            },
            depends_on => 'RESET_DUT_IN_EN',
            group      => 'reset_to_dut',
            order      => 30,
        },
        RESET_DUT_IN_ACTIVE => {
            description => "Active level for FIJI-to-DUT reset",
            help        => "Enter the level the FIJI-to-DUT reset signal shall be brought to during reset.",
            ini_name    => "RESET_DUT_IN_ACTIVE",
            type        => 'bit',
            values      => [qw(0 1)],
418
            phases_opt  => ['setup'],
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
            default     => '1',
            depends_on  => 'RESET_DUT_IN_EN',
            group       => 'reset_to_dut',
            order       => 20,
        },

        # Trigger from DUT
        TRIGGER_DUT_EN => {
            description => "Enable DUT-to-FIJI trigger",
            help        => "If enabled, a signal in the DUT can be selected to trigger fault injection operations.\n" . "Once a pattern is downloaded with the INTERNAL trigger enabled, the FIJI logic waits for\n" . "an inactive-to-active transition on this signal before starting to count down duration t1.",
            ini_name    => "TRIGGER_DUT_EN",
            default     => 0,
            type        => 'boolean',
            group       => 'trigger',
            order       => 10,
        },
435

436
437
438
439
440
441
        TRIGGER_DUT_ACTIVE => {
            description => "Active level for DUT-to-FIJI trigger",
            ini_name    => "TRIGGER_DUT_ACTIVE",
            help        => "Select the signal level to trigger fault injection.",
            type        => 'bit',
            values      => [qw(0 1)],
442
            phases_opt  => ['setup'],
443
444
445
            default     => '1',
            depends_on  => 'TRIGGER_DUT_EN',
            group       => 'trigger',
446
447
448
449
450
451
452
            order       => 20,
        },

        TRIGGER_DUT_NAME => {
            description => "Source net for DUT-to-FIJI trigger",
            help        => "Select the net in the DUT which shall be used to trigger fault injection operations.",
            ini_name    => "TRIGGER_DUT_NAME",
453
454
            default     => "",
            phases_opt  => ['setup'],
455
456
457
            depends_on  => 'TRIGGER_DUT_EN',
            type        => 'net',
            group       => 'trigger',
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
            order       => 30,
        },

        # External trigger
        TRIGGER_EXT_EN => {
            description => "Enable external trigger",
            help        => "If enabled, an I/O port can be selected to trigger fault injection operations.\n" . "Once a pattern is downloaded with the EXTERNAL trigger enabled, the FIJI logic waits for \n" . "an inactive-to-active transition on this port before starting to count down duration t1. \n" . "The port is synchronized to the FIJI logic's clock, thus introducing a few clock cycles delay.",
            ini_name    => "TRIGGER_EXT_EN",
            default     => 0,
            type        => 'boolean',
            group       => 'trigger',
            order       => 40,
        },
        TRIGGER_EXT_ACTIVE => {
            description => "Active level for external trigger",
            help        => "Select the port level to trigger fault injection.",
            ini_name    => "TRIGGER_EXT_ACTIVE",
            type        => 'bit',
            values      => [qw(0 1)],
477
            phases_opt  => ['setup'],
478
479
480
481
482
483
            default     => '1',
            depends_on  => 'TRIGGER_EXT_EN',
            group       => 'trigger',
            order       => 50,
        },
        TRIGGER_EXT_IN_NAME => {
484
            description => "External trigger port name",
485
486
            help        => "Specify the name of the external trigger port in the wrapper.\n" . "'_n' will be appended if low-active trigger level is selected,\n" . "'_i' will be appended at the end",
            ini_name    => "TRIGGER_EXT_IN_NAME",
Christian Fibich's avatar
Christian Fibich committed
487
            type        => "external_port",
488
            phases_opt  => ['setup'],
Christian Fibich's avatar
Christian Fibich committed
489
            default     => "s_fiji_trigger_ext_i",
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
            depends_on  => 'TRIGGER_EXT_EN',
            group       => "trigger",
            order       => 60,
        },
        FAULT_DETECT_1_EN => {
            description => "Enable fault-detect bit 1",
            help        => "If enabled, a signal in the DUT can be selected as a return channel.\n" . "This could e.g. be the output of a fault detection unit. \n" . "The FIJI logic registers inactive-to-active transition on this signal and returns the status \n" . "in the serial communication messages to the host.",
            ini_name    => "FAULT_DETECT_1_EN",
            type        => 'boolean',
            default     => 0,
            group       => 'fault_detect',
            order       => 10,
        },
        FAULT_DETECT_1_NAME => {
            description => "Source net for fault-detect bit 1",
            help        => "Select the net in the DUT which shall be used for the fault detection feature.",
            ini_name    => "FAULT_DETECT_1_NAME",
            type        => 'net',
508
509
            default     => "",
            phases_opt  => ['setup'],
510
511
512
513
514
515
516
517
518
519
            depends_on  => 'FAULT_DETECT_1_EN',
            group       => 'fault_detect',
            order       => 20,
        },
        FAULT_DETECT_1_INVERT => {
            description => "Invert fault detect bit 1",
            help        => "Specifies if the selected net shall be inverted prior to edge detection.\n" . "Leave unchecked if the net uses positive logic.",
            ini_name    => "FAULT_DETECT_1_INVERT",
            type        => 'boolean',
            values      => [qw(0 1)],
520
            phases_opt  => ['setup'],
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
            default     => '0',
            depends_on  => 'FAULT_DETECT_1_EN',
            group       => 'fault_detect',
            order       => 30,
        },
        FAULT_DETECT_2_EN => {
            description => "Enable fault-detect bit 2",
            help        => "If enabled, a signal in the DUT can be selected as a return channel.\n" . "This could e.g. be the output of a fault detection unit. \n" . "The FIJI logic registers inactive-to-active transition on this signal and returns the status \n" . "in the serial communication messages to the host.",
            ini_name    => "FAULT_DETECT_2_EN",
            type        => 'boolean',
            default     => 0,
            group       => 'fault_detect',
            order       => 40,
        },
        FAULT_DETECT_2_NAME => {
            description => "Source net for fault-detect bit 2",
            help        => "Select the net in the DUT which shall be used for the fault detection feature.",
            ini_name    => "FAULT_DETECT_2_NAME",
            type        => 'net',
540
541
            default     => "",
            phases_opt  => ['setup'],
542
543
544
545
546
547
548
549
550
551
            depends_on  => 'FAULT_DETECT_2_EN',
            group       => 'fault_detect',
            order       => 50,
        },
        FAULT_DETECT_2_INVERT => {
            description => "Invert fault detect bit 2",
            help        => "Specify if the selected net shall be inverted prior to edge detection.\n" . "Leave unchecked if the net uses positive logic.",
            ini_name    => "FAULT_DETECT_2_INVERT",
            type        => 'boolean',
            values      => [qw(0 1)],
552
            phases_opt  => ['setup'],
553
554
555
556
557
558
559
            default     => '0',
            depends_on  => 'FAULT_DETECT_2_EN',
            group       => 'fault_detect',
            order       => 60,
        },
        RX_IN_NAME => {
            description => "RX port name",
560
            help        => "Specify the name of the Host-to-FIJI serial RX port in the wrapper.",
561
            ini_name    => "RX_IN_NAME",
Christian Fibich's avatar
Christian Fibich committed
562
            type        => "external_port",
563
564
565
566
567
568
569
            default     => "s_fiji_rx_i",
            phases_opt  => [qw(instrument download)],
            group       => "general_control",
            order       => 30,
        },
        TX_OUT_NAME => {
            description => "TX port name",
570
            help        => "Specify the name of the FIJI-to-Host serial TX port in the wrapper.",
571
            ini_name    => "TX_OUT_NAME",
Christian Fibich's avatar
Christian Fibich committed
572
            type        => "external_port",
573
574
575
576
577
            phases_opt  => [qw(instrument download)],
            default     => "s_fiji_tx_o",
            group       => "general_control",
            order       => 40,
        },
578
579
        OPTIMIZATIONS => {
            description => "Optimizations",
580
            help        => "Specifies which set of constraints to use in synthesis/P&R to\n- prevent optimizations and/or\n- fix physical placement.",
581
            ini_name    => "OPTIMIZATIONS",
582
            type        => "dropdown",
583
            values      => \@optimization_settings,
584
            default     => "ALLOW",
585
            phases_opt  => [qw(setup)],
586
587
588
            group       => "general_control",
            order       => 50,
        },
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
        SYNTHESIS_TOOL => {
            description => "Synthesis Tool",
            help        => "The FPGA synthesis tool that will be used. Needed for generating appropriate constraints.",
            ini_name    => "SYNTHESIS_TOOL",
            type        => "dropdown",
            values      => ["SYNPLIFY_PRO"],
            default     => "SYNPLIFY_PRO",
            phases_opt  => [qw(setup)],
            group       => "general_control",
            order       => 60,
        },
        IMPLEMENTATION_TOOL => {
            description => "Implementation Tool",
            help        => "The FPGA implementation tool that will be used. Needed for generating appropriate constraints.",
            ini_name    => "IMPLEMENTATION_TOOL",
            type        => "dropdown",
            values      => ["ALTERA_QUARTUS"],
            default     => "ALTERA_QUARTUS",
            phases_opt  => [qw(setup)],
            group       => "general_control",
            order       => 70,
        },
611
    );
612
613
}

614
615
616
use constant \%designmap;
use constant DESIGNMAP => \%designmap;

Christian Fibich's avatar
Christian Fibich committed
617
618
619
620
621
622
623
#** @var public %displaygroups Hash containing groups for displaying \ref designmap
##
# Fields:
#    -title         Just a short title
#    -subtitle      ...
#    -description   Longer description
#    -order         The sorting order to display this group
624
my %displaygroups;
625

626
627
628
629
630
BEGIN {
    %displaygroups = (
        fault_detect => {
            title       => "Fault Detection Settings",
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
631
632
            description => "Settings concerning internal fault detection propagation",
            order       => 80,
633
634
635
636
        },
        trigger => {
            title       => "Trigger Settings",
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
637
638
            description => "Settings concerning internal and external fault injection triggers",
            order       => 70,
639
640
        },
        reset_to_dut => {
641
            title       => "Reset from FIJI to DUT",
642
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
643
644
            description => "Settings concerning FIJI's ability to reset the DUT",
            order       => 60,
645
646
        },
        reset_from_dut => {
647
            title       => "Reset from DUT to FIJI",
648
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
649
650
            description => "Settings concerning FIJI's internal (from DUT) reset feature",
            order       => 50,
651
652
        },
        reset_external => {
653
654
            title       => "External Reset",
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
655
656
            description => "Settings concerning FIJI's external (via pin) reset feature",
            order       => 40,
657
658
659
660
        },
        lfsr => {
            title       => "LFSR Settings",
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
661
662
            description => "Settings concerning the LFSR for Stuck-open emulation",
            order       => 30,
663
664
        },
        general_control => {
665
            title       => "General settings",
666
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
667
668
            description => "Settings concerning miscellanous features of FIJI",
            order       => 10,
669
670
671
672
        },
        clock => {
            title       => "Clock settings",
            subtitle    => "",
Christian Fibich's avatar
Christian Fibich committed
673
674
            description => "Settings concerning the clocking of the FIJI logic",
            order       => 20,
675
        }
676
    );
677
678
679
680
}
use constant \%displaygroups;
use constant DISPLAYGROUPS => \%displaygroups;

Christian Fibich's avatar
Christian Fibich committed
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
## @var public %fiumap Hash containing all FIJI::Settings for FIUs
#
# Fields:
#    - ini_name     key name in FIJI Settings file
#    - unit         (optional) physical unit
#    - type         (optional) enables type-specific conversions and tests:
#                   - natural: values must be oct, hex, binary strings looking like a real number.
#                   - hexadecimal: values must be hexadecimal numbers.
#                   - boolean: will be convert to a truth value by Perl semantics
#                   - net: name of a net from the input netlist
#    - values       (optional) used to restrict valid values. Can be...
#                   - an array reference listing all valid values (emulates an enum)
#                   - a code reference to a function that gets the new and old values and
#                     returns true if the new value is allowed, or false otherwise.
#    - phases_opt   (optional) list of phases (subset of "setup", "instrument", "download")
#                   where no value must be present in input (e.g. ID is only necessary while downloading).
#    - group        (optional) specifies how to group this value in output. Value will not be displayed if undef
#    - default      (optional) default value if not given in file and not determinable otherwise
699
my %fiumap;
700

701
BEGIN {
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
    %fiumap = (
        FIU_NET_NAME => {
            ini_name   => "NET_NAME",
            default    => "",
            phases_opt => [qw(setup)],
        },
        FIU_DRIVER_TYPE => {
            ini_name   => "DRIVER_TYPE",
            values     => [qw(PIN PORT ASSIGN)],
            default    => "",
            phases_opt => [qw(setup)],
        },
        FIU_DRIVER_PATH => {
            ini_name   => "DRIVER_PATH",
            phases_opt => [qw(setup)],
            default    => "",
        },
        FIU_MODEL => {
            ini_name   => "FAULT_MODEL",
            default    => "RUNTIME",
            values     => [qw(RUNTIME PASS_THRU STUCK_AT_0 STUCK_AT_1 STUCK_OPEN DELAY SEU)],
            phases_opt => [qw(setup)],
        },
        FIU_LFSR_MASK => {
            ini_name   => "LFSR_MASK",
            default    => 0,
            type       => 'hexadecimal',
            phases_opt => [qw(setup)],
        },
    );
732
733
734
735
}

use constant \%fiumap;
use constant FIUMAP => \%fiumap;
736

Christian Fibich's avatar
Christian Fibich committed
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
#** @var public %testconstmap Hash containing all global values of FIJI::Tests
#
# Fields:
#    - ini_name     key name in FIJI Tests file
#    - unit         (optional) physical unit
#    - type         (optional) enables type-specific conversions and tests:
#                   - natural: values must be oct, hex, binary strings looking like a real number.
#                   - hexadecimal: values must be hexadecimal numbers.
#                   - boolean: will be convert to a truth value by Perl semantics
#                   - net: name of a net from the input netlist
#    - values       (optional) used to restrict valid values. Can be...
#                   - an array reference listing all valid values (emulates an enum)
#                   - a code reference to a function that gets the new and old values and
#                     returns true if the new value is allowed, or false otherwise.
#    - phases_opt   (optional) list of phases (subset of "setup", "instrument", "download")
#                   where no value must be present in input (e.g. ID is only necessary while downloading).
#    - gui_modes    (optional) specifies in which mode of {manual,auto,random} this key will be displayed in the GUI
#    - depends_on   (optional) specifies the key of another constant.
#                   The respective constant is only relevant (and thuse required as input)
#                   if the value of the referenced constant is true.
#    - group        (optional) specifies how to group this value in output. Value will not be displayed if undef
#    - order        (optional) specifies how to sort this value in output group
#    - noedit       (optional) display value, but don't allow to alter
#    - default      (optional) default value if not given in file and not determinable otherwise
#    - help         (optional) short help text, e.g. to be displayed via Tk:Balloon
#    - forbidden_by (optional) specifies the key of another constant
#                     The respective constant may not be enabled if the value
#                     of the referenced constant is true
765
my %testconstmap;
766

767
BEGIN {
768
769
770
771
772
773
774
775
776
777
778
779
780
    %testconstmap = (
        FIJI_CFG => {
            description => "FIJI Settings File",
            ini_name    => "FIJI_CFG",
            default     => "fiji.cfg",
            phases_opt  => [qw (manual auto random)],

            #gui_modes   => [qw (manual auto random)],
        },
        UART => {
            description => "UART for Downloading",
            ini_name    => "UART",
            default     => "/dev/ttyUSB0",
781
            type        => "autocomplete",
782
            gui_modes   => [qw (manual auto random)],
783
            values      => sub {
Christian Fibich's avatar
Christian Fibich committed
784
785
786
787
                my $logger  = get_logger("");
                my $choices = [];
                my @s;
                if ($^O eq "MSWin32") {
788
789
790
791
792
793
794
                    my $reg = new Win32::TieRegistry("LMachine\\Hardware\\DEVICEMAP\\SERIALCOMM\\",{Access=>Win32::TieRegistry::KEY_READ(),Delimiter=>"\\"});
                    if (!defined $reg) {
                        $logger->error("Can't access registry key: $^E");
                    } else {
                        foreach my $port ($reg->ValueNames) {
                            push(@s, $reg->GetValue($port));
                        }
795
                    }
Christian Fibich's avatar
Christian Fibich committed
796
                } elsif ($^O eq "linux") {
797
                    @s = map {realpath($_)} glob("/dev/serial/by-id/*");
Christian Fibich's avatar
Christian Fibich committed
798
799
800
                }
                $choices = \@s;
                return $choices;
801
            },
Christian Fibich's avatar
Christian Fibich committed
802
            order => 1,
803
804
        },
        HALT_ON_FAULT_DETECT => {
Christian Fibich's avatar
Christian Fibich committed
805
806
807
808
809
810
811
            description           => "Halt on detected fault?",
            ini_name              => "HALT_ON_FAULT_DETECT",
            default               => 1,
            type                  => 'boolean',
            phases_opt            => [qw(manual)],
            gui_modes             => [qw (auto random)],
            order                 => 10,
812
            activated_by_settings => sub {
Christian Fibich's avatar
Christian Fibich committed
813
814
815
                my $settings = shift;
                return ($settings->{'design'}->{'FAULT_DETECT_1_EN'} == 1 || $settings->{'design'}->{'FAULT_DETECT_2_EN'} == 1);
              }
816
817
818
819
820
821
822
823
824
825
826
827
828
        },
        NUM_TESTS => {
            ini_name   => "NUM_TESTS",
            type       => 'natural',
            phases_opt => [qw(manual)],
        },
        REPEAT => {
            description => "Repeat Injection?",
            ini_name    => "REPEAT",
            default     => 0,
            type        => 'boolean',
            phases_opt  => [qw(manual)],
            gui_modes   => [qw (auto)],
829
            order       => 12,
830
831
832
833
834
835
836
837
        },
        REPEAT_OFFSET => {
            description => "Repetition start pattern",
            ini_name    => "REPEAT_OFFSET",
            default     => 0,
            type        => 'natural',
            phases_opt  => [qw(manual)],
            gui_modes   => [qw (auto)],
838
            order       => 13,
839
            depends_on  => "REPEAT",
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
        },
        HALT_ON_UART_ERROR => {
            ini_name   => "HALT_ON_UART_ERROR",
            default    => 1,
            type       => 'boolean',
            phases_opt => [qw(manual)],
        },
        HALT_ON_CRC_ERROR => {
            ini_name   => "HALT_ON_CRC_ERROR",
            default    => 1,
            type       => 'boolean',
            phases_opt => [qw(manual)],
        },
        HALT_ON_ID_ERROR => {
            ini_name   => "HALT_ON_ID_ERROR",
            default    => 1,
            type       => 'boolean',
            phases_opt => [qw(manual)],
        },
        HALT_ON_UNDERRUN => {
860
861
862
863
864
865
866
            description => "Halt on buffer underrun?",
            ini_name    => "HALT_ON_UNDERRUN",
            default     => 0,
            type        => 'boolean',
            phases_opt  => [qw(manual)],
            gui_modes   => [qw (auto random)],
            order       => 11,
867
868
869
870
871
872
873
874
875
876
877
878
879
        },
        MULTIFAULT => {
            description => "Generate multiple faults per pattern?",
            ini_name    => "MULTIFAULT",
            default     => 1,
            type        => 'boolean',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            order       => 60,
        },
        MIN_DURATION_T1 => {
            description => "Minimum Duration T1",
            ini_name    => "MIN_DURATION_T1",
880
            default     => DEFAULT_TIMER_VALUE,
881
882
883
884
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            type        => "min_duration",
            matching    => "MAX_DURATION_T1",
885
            unit        => "cycles",
886
887
888
889
890
            order       => 20,
        },
        MIN_DURATION_T2 => {
            description => "Minimum Duration T2",
            ini_name    => "MIN_DURATION_T2",
891
            default     => DEFAULT_TIMER_VALUE,
892
893
894
895
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            type        => "min_duration",
            matching    => "MAX_DURATION_T2",
896
            unit        => "cycles",
897
898
899
900
901
            order       => 40,
        },
        MAX_DURATION_T1 => {
            description => "Maximum Duration T1",
            ini_name    => "MAX_DURATION_T1",
Christian Fibich's avatar
Christian Fibich committed
902
            default     => (10 * DEFAULT_TIMER_VALUE),
903
904
905
906
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            type        => "max_duration",
            matching    => "MIN_DURATION_T1",
907
            unit        => "cycles",
908
909
910
911
912
            order       => 30,
        },
        MAX_DURATION_T2 => {
            description => "Maximum Duration T2",
            ini_name    => "MAX_DURATION_T2",
Christian Fibich's avatar
Christian Fibich committed
913
            default     => (10 * DEFAULT_TIMER_VALUE),
914
915
916
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            type        => "max_duration",
917
            matching    => "MIN_DURATION_T2",
918
            unit        => "cycles",
919
920
921
922
923
            order       => 50,
        },
        PROB_STUCK_AT_0 => {
            description => "Probability of stuck-at-0 fault",
            ini_name    => "PROB_STUCK_AT_0",
924
            default     => 0.1,
925
926
927
928
929
930
931
932
933
            type        => 'prob',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            fault       => "STUCK_AT_0",
            order       => 70,
        },
        PROB_STUCK_AT_1 => {
            description => "Probability of stuck-at-1 fault",
            ini_name    => "PROB_STUCK_AT_1",
934
            default     => 0.1,
935
936
937
938
939
940
941
942
943
            type        => 'prob',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            fault       => "STUCK_AT_1",
            order       => 80,
        },
        PROB_DELAY => {
            description => "Probability of delay fault",
            ini_name    => "PROB_DELAY",
944
            default     => 0.1,
945
946
947
948
949
950
951
952
953
            type        => 'prob',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            fault       => "DELAY",
            order       => 90,
        },
        PROB_SEU => {
            description => "Probability of single event upset",
            ini_name    => "PROB_SEU",
954
            default     => 0.1,
955
956
957
958
959
960
961
962
963
            type        => 'prob',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            fault       => "SEU",
            order       => 100,
        },
        PROB_STUCK_OPEN => {
            description => "Probability of stuck-open fault",
            ini_name    => "PROB_STUCK_OPEN",
964
            default     => 0.1,
965
966
967
968
969
970
            type        => 'prob',
            phases_opt  => [qw(manual auto)],
            gui_modes   => [qw (random)],
            fault       => "STUCK_OPEN",
            order       => 110,
        },
Christian Fibich's avatar
Christian Fibich committed
971
972
973
974
975
976
977
978
        INITIAL_RESET => {
            description           => "Initial test: Apply FIJI-to-DUT reset?",
            ini_name              => "INITIAL_RESET",
            default               => 0,
            type                  => 'boolean',
            phases_opt            => [qw(manual auto)],
            gui_modes             => [qw (random)],
            order                 => 15,
979
            activated_by_settings => sub {
Christian Fibich's avatar
Christian Fibich committed
980
981
982
983
                my $settings = shift;
                return ($settings->{'design'}->{'RESET_DUT_IN_EN'} == 1);
              }

984
985
        },
        INITIAL_TRIGGER => {
Christian Fibich's avatar
Christian Fibich committed
986
987
988
            description           => "Initial test: Wait for trigger?",
            ini_name              => "INITIAL_TRIGGER",
            default               => 'NONE',
989
            values                => [qw(DUT EXT NONE)],
Christian Fibich's avatar
Christian Fibich committed
990
991
992
993
            type                  => 'dropdown',
            phases_opt            => [qw(manual auto)],
            gui_modes             => [qw (random)],
            order                 => 16,
994
            activated_by_settings => sub {
Christian Fibich's avatar
Christian Fibich committed
995
996
997
998
999
1000
1001
                my $settings = shift;
                my $opt      = ();
                push @{$opt}, "NONE";
                push @{$opt}, "INT" if ($settings->{'design'}->{'TRIGGER_DUT_EN'} == 1);
                push @{$opt}, "EXT" if ($settings->{'design'}->{'TRIGGER_DUT_EN'} == 1);
                return $opt;
              }
1002
        },
1003
1004
1005
1006
1007
1008
        COMPLETION_SCRIPT => {
            description => "Script to run when the test is complete",
            ini_name    => "COMPLETION_SCRIPT",
            default     => "",
            type        => "file",
            filetypes   => [
Christian Fibich's avatar
Christian Fibich committed
1009
1010
1011
                ['Perl scripts', ['.pl']],
                ['All files', '*'],
            ],
1012
            phases_opt => [qw(manual auto random GUI)],
Christian Fibich's avatar
Christian Fibich committed
1013
1014
            gui_modes  => [qw (auto random)],
            order      => 15
1015
        }
1016
    );
1017
1018
1019
1020
}
use constant \%testconstmap;
use constant TESTCONSTMAP => \%testconstmap;

Christian Fibich's avatar
Christian Fibich committed
1021
1022
1023
1024
1025
1026
## @var public %testguimodes Hash containing modes for displaying \ref testconstmap
#
# Fields:
#
#    -title         Just a short title
#    -description   Longer description
Christian Fibich's avatar
Christian Fibich committed
1027
my %testguimodes;
1028

Christian Fibich's avatar
Christian Fibich committed
1029
BEGIN {
1030
1031
1032
1033
1034
1035
    %testguimodes = (
        manual => {
            title       => "Manual",
            description => "Download faults one pattern at a time",
        },
        auto => {
1036
            title       => "Sequence",
1037
1038
1039
1040
1041
1042
1043
            description => "Download predefined sequence of fault patterns",
        },
        random => {
            title       => "Random",
            description => "Download predefined random fault patterns",
        },
    );
Christian Fibich's avatar
Christian Fibich committed
1044
1045
1046
1047
}
use constant \%testguimodes;
use constant TESTGUIMODES => \%testguimodes;

Christian Fibich's avatar
Christian Fibich committed
1048
1049
1050
1051
1052
1053
1054
1055
1056
## @var public %testpatmap Base values for each test in FIJI::Tests
#
# Fields:
#    - ini_name     key name in FIJI Settings file
#    - values       (optional) used to restrict valid values. Can be...
#                   - an array reference listing all valid values (emulates an enum)
#                   - a code reference to a function that gets the new and old values and
#                     returns true if the new value is allowed, or false otherwise.
#    - default      (optional) default value if not given in file and not determinable otherwise
1057
my %testpatmap;
1058

1059
BEGIN {
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
    %testpatmap = (
        TRIGGER => {
            ini_name => "TRIGGER",
            default  => "NONE",
            values   => [qw(INT EXT NONE)]
        },
        RESET_DUT_AFTER_CONFIG => {
            ini_name => "RESET_DUT_AFTER_CONFIG",
            type     => 'boolean',
            default  => 0
        },
    );
1072
1073
1074
1075
1076
}

use constant \%testpatmap;
use constant TESTPATMAP => \%testpatmap;

Christian Fibich's avatar
Christian Fibich committed
1077
1078
## @var public %fiuenum Assigns integer fault ID to textual ID
#
1079
my %fiuenum;
1080

1081
BEGIN {
1082
1083
1084
1085
1086
1087
1088
1089
    %fiuenum = (
        NONE       => 0x0,
        STUCK_AT_0 => 0x1,
        STUCK_AT_1 => 0x2,
        DELAY      => 0x3,
        SEU        => 0x4,
        STUCK_OPEN => 0x5
    );
1090
1091
1092
1093
1094
}

use constant \%fiuenum;
use constant FIUENUM => \%fiuenum;

Christian Fibich's avatar
Christian Fibich committed
1095
1096
1097
1098
1099
1100
## @function public REVERSE_FIU_ENUM ($val)
# @brief Assigns textual names to integer fault IDs
# makes use of \ref fiuenum
#
# @param val the textual ID of the Fault

1101
1102
sub REVERSE_FIU_ENUM {
    my ($val) = @_;
Christian Fibich's avatar
Christian Fibich committed
1103
1104
    for my $k (keys(%fiuenum)) {
        if ($fiuenum{$k} == $val) {
1105
1106
1107
1108
1109
1110
            return $k;
        }
    }
    return "NONE";
}

1111
use constant {HOST_TO_FIJI_LATENCY => 1.0e-3};    # 1 ms minimum latency
1112

1113
1114
1115
1116
1117
## @function ini2constkey ($ini_name, %$map_ref)
#
# Allows to retrieve the reversal of the mapping established by the
# ini_name fields, i.e. get the FIJI Settings name from (the external
# representation, that is) the name used in the .ini file.
Christian Fibich's avatar
Christian Fibich committed
1118
1119
1120
#
# @param ini_name The name of the ini key to retrieve
# @param map_ref  Reference to the map (\ref designmap etc. to use)
1121
sub ini2constkey {
Christian Fibich's avatar
Christian Fibich committed
1122
    my ($ini_name, $map_ref) = @_;
1123
    $map_ref = DESIGNMAP if !defined($map_ref);
Christian Fibich's avatar
Christian Fibich committed
1124
1125
    foreach my $k (keys %{$map_ref}) {
        if ($ini_name eq $map_ref->{$k}->{'ini_name'}) {
1126
1127
            return $k;
        }
1128
    }
1129
    return undef;
1130
1131
}

1132
1133
use base 'Exporter';

Christian Fibich's avatar
Christian Fibich committed
1134
our @EXPORT = (keys(%designmap), keys(%fiumap), keys(%testpatmap), keys(%testconstmap), keys(%fiuenum), keys(%displaygroups), keys(%testguimodes));
1135
our @EXPORT_OK = ('FIJI_DOCUMENTATION_PATH', 'FIJI_DIR', keys(%designmap), 'DESIGNMAP', keys(%fiumap), 'FIUMAP', keys(%testpatmap), 'TESTPATMAP', keys(%testconstmap), 'TESTCONSTMAP', keys(%fiuenum), 'FIUENUM', 'REVERSE_FIU_ENUM', 'DISPLAYGROUPS', keys(%displaygroups), 'TESTGUIMODES', keys(%testguimodes), 'HOST_TO_FIJI_LATENCY', 'DEFAULT_TIMER_VALUE', 'OPTIMIZATIONS', 'LFSR_POLY_CHOICES');
1136
1137
1138
1139
1140
1141

## @var @EXPORT_TAGS Export Tags
#
# By default this file exports only the individual subhashes.
# If 'all' is specified in the use/import clause then additionally the
# whole mappings will be exported as DESIGNMAP and FIUMAP.
1142
our %EXPORT_TAGS = (
1143
1144
    all     => \@EXPORT_OK,
    default => \@EXPORT,
Christian Fibich's avatar
Christian Fibich committed
1145
1146
    %EXPORT_TAGS =
      (fiji_dir => ['FIJI_DIR'], fiji_documentation_path => ['FIJI_DOCUMENTATION_PATH'])
1147

Christian Fibich's avatar
Christian Fibich committed
1148
      # log     => [ grep /^LOG_/, @EXPORT_OK ], # all constants beginning with "LOG_"
1149
1150
1151
);

1;