Changeset View
Changeset View
Standalone View
Standalone View
tools/scan-build/CommonStuff.pm
| 1 | #!/usr/bin/env perl | ||||
|---|---|---|---|---|---|
| 2 | # | ||||
| 3 | # The LLVM Compiler Infrastructure | ||||
| 4 | # | ||||
| 5 | # This file is distributed under the University of Illinois Open Source | ||||
| 6 | # License. See LICENSE.TXT for details. | ||||
| 7 | # | ||||
| 8 | ##===----------------------------------------------------------------------===## | ||||
| 9 | # | ||||
| 10 | # A set of routines common to scan-build and [ccc/c++]-analyzer scripts. | ||||
| 11 | # | ||||
| 12 | ##===----------------------------------------------------------------------===## | ||||
| 13 | | ||||
| 14 | package CommonStuff; | ||||
| 15 | use strict; | ||||
| 16 | | ||||
| 17 | # Reads a section from INI (https://en.wikipedia.org/wiki/INI_file) file. | ||||
| 18 | # $INIFile - path to the file to read options from. | ||||
| 19 | # $SectionToRead - name of the section to read options from. | ||||
| 20 | # $OptionsOut - array reference to keep output, is being filled with | ||||
| 21 | # {Option =>, Value =>} elements as options are parsed. | ||||
| 22 | # Preserves an order in which the options occur in config file. | ||||
| 23 | sub ReadINI { | ||||
| 24 | my ($INIFile, $SectionToRead, $OptionsOut) = @_; | ||||
| 25 | my $CurrSection = ""; | ||||
| 26 | my $ErrMsg = undef; | ||||
| 27 | my %OptionNames = (); # Just to check for duplicated options in a section. | ||||
| 28 | my $SectionFound = 0; | ||||
| 29 | | ||||
| 30 | return "$!" unless open(IN, "<", $INIFile); | ||||
| 31 | | ||||
| 32 | while(<IN>) { | ||||
| 33 | s/^\s+|\s+$//og; # remove leading and trailing whitespaces | ||||
| 34 | next if (/^$/o); # skip empty lines | ||||
| 35 | next if (/^[#;]/o); # skip comments | ||||
| 36 | | ||||
| 37 | # Parse section name. | ||||
| 38 | if (/^\[([a-zA-Z0-9\-_]+)\]$/o) { | ||||
| 39 | $CurrSection = $1; | ||||
| 40 | $SectionFound |= $CurrSection eq $SectionToRead; | ||||
| 41 | next; | ||||
| 42 | } | ||||
| 43 | # Parse options. | ||||
| 44 | elsif (/^([a-zA-Z0-9\-_]+)\s*=\s*(.*)$/o) { | ||||
| 45 | next if $CurrSection ne $SectionToRead; | ||||
| 46 | if (exists $OptionNames{$1}) { | ||||
| 47 | $ErrMsg = "Duplicate option '$1' in section '[$CurrSection]'."; | ||||
| 48 | last; | ||||
| 49 | } | ||||
| 50 | $OptionNames{$1} = 1; | ||||
| 51 | # Fil output array with options with nonempty values. | ||||
| 52 | push @$OptionsOut, { Option => $1, Value => $2 } if $2 ne ""; | ||||
| 53 | } | ||||
| 54 | # Bad syntax. | ||||
| 55 | else { | ||||
| 56 | $ErrMsg = "Error parsing line '$_'."; | ||||
| 57 | last; | ||||
| 58 | } | ||||
| 59 | } | ||||
| 60 | | ||||
| 61 | $ErrMsg = "Section '[$SectionToRead]' not found." | ||||
| 62 | unless $ErrMsg || $SectionFound; | ||||
| 63 | | ||||
| 64 | close (IN); | ||||
| 65 | return $ErrMsg; | ||||
| 66 | } | ||||
| 67 | | ||||
| 68 | 1; | ||||