diff options
Diffstat (limited to 'perllib/sdf/home/stdlib')
-rw-r--r-- | perllib/sdf/home/stdlib/bugtrack.sdm | 2 | ||||
-rw-r--r-- | perllib/sdf/home/stdlib/delphi.sdm | 58 | ||||
-rw-r--r-- | perllib/sdf/home/stdlib/mif.sdn | 4 | ||||
-rw-r--r-- | perllib/sdf/home/stdlib/misc.sdm | 6 | ||||
-rw-r--r-- | perllib/sdf/home/stdlib/usecases.sdm | 2 |
5 files changed, 36 insertions, 36 deletions
diff --git a/perllib/sdf/home/stdlib/bugtrack.sdm b/perllib/sdf/home/stdlib/bugtrack.sdm index 17c3885..ffeed25 100644 --- a/perllib/sdf/home/stdlib/bugtrack.sdm +++ b/perllib/sdf/home/stdlib/bugtrack.sdm @@ -56,7 +56,7 @@ sub bug_title_Macro { $title = $db_title; } elsif ($title ne $db_title) { - &'AppMsg("warning", "bug title does not match database value"); + &::AppMsg("warning", "bug title does not match database value"); } # Build result diff --git a/perllib/sdf/home/stdlib/delphi.sdm b/perllib/sdf/home/stdlib/delphi.sdm index 0d07c5d..73d3898 100644 --- a/perllib/sdf/home/stdlib/delphi.sdm +++ b/perllib/sdf/home/stdlib/delphi.sdm @@ -193,7 +193,7 @@ sub _DelphiGenerateHyperText { if ($text =~ /\./) { ($group, $text) = split(/\./, $text, 2); unless (defined($_delphi_groups{$group})) { - &'AppMsg("warning", "unknown delphi group '$group'"); + &::AppMsg("warning", "unknown delphi group '$group'"); } $prefix = $_delphi_groups{$group}; } @@ -222,7 +222,7 @@ sub _DelphiGenerateHyperText { # delphi_groups - table of logical group names and matching jump prefixes @_delphi_groups_FilterParams = (); -@_delphi_groups_FilterModel = &'TableParse( +@_delphi_groups_FilterModel = &::TableParse( 'Field Category Rule', 'Name key', 'Prefix optional', @@ -232,21 +232,21 @@ sub delphi_groups_Filter { local(@tbl, @flds, $rec, %values); # Parse and validate the data - @tbl = &'TableParse(@text); + @tbl = &::TableParse(@text); @text = (); - &'TableValidate(*tbl, *_delphi_groups_FilterModel); + &::TableValidate(*tbl, *_delphi_groups_FilterModel); # Process the data - (@flds) = &'TableFields(shift @tbl); + (@flds) = &::TableFields(shift @tbl); for $rec (@tbl) { - %values = &'TableRecSplit(*flds, $rec); + %values = &::TableRecSplit(*flds, $rec); $_delphi_groups{$values{'Name'}} = $values{'Prefix'}; } } # delphi_properties - table of properties for a Delphi class @_delphi_properties_FilterParams = (); -@_delphi_properties_FilterModel = &'TableParse( +@_delphi_properties_FilterModel = &::TableParse( 'Field Category Rule', 'Name key', 'Key optional <yes>', @@ -259,15 +259,15 @@ sub delphi_properties_Filter { local($row,$line,$pos); # Parse and validate the data - @tbl = &'TableParse(@text); + @tbl = &::TableParse(@text); @text = (); - &'TableValidate(*tbl, *_delphi_properties_FilterModel); + &::TableValidate(*tbl, *_delphi_properties_FilterModel); # Sort the data - @tbl = &'TableSort(*tbl, 'Name'); + @tbl = &::TableSort(*tbl, 'Name'); # Get the line and row counts - (@flds) = &'TableFields(shift @tbl); + (@flds) = &::TableFields(shift @tbl); $line_count=scalar(@tbl); $row_count=int(($line_count+2)/3); #print STDERR "LINE_COUNT $line_count ROW_COUNT $row_count\n"; @@ -310,7 +310,7 @@ sub delphi_properties_Filter { $rec=$tbl[$pos]; #print STDERR "TBL[$line,$row,$pos]=$rec\n"; } - %values = &'TableRecSplit(*flds, $rec); + %values = &::TableRecSplit(*flds, $rec); # divide into a three column table ... if ($values{'RO'}) { @@ -366,7 +366,7 @@ sub delphi_events_Filter { } # generic processing for methods & events -@_delphi_keytable_FilterModel = &'TableParse( +@_delphi_keytable_FilterModel = &::TableParse( 'Field Category Rule', 'Name key', 'Key optional <yes>' @@ -393,15 +393,15 @@ sub _delphi_keytable { } # Parse and validate the data - @tbl = &'TableParse(@text); + @tbl = &::TableParse(@text); @text = (); - &'TableValidate(*tbl, *_delphi_keytable_FilterModel); + &::TableValidate(*tbl, *_delphi_keytable_FilterModel); # Sort the data - @tbl = &'TableSort(*tbl, 'Name'); + @tbl = &::TableSort(*tbl, 'Name'); # Get the line and row counts - (@flds) = &'TableFields(shift @tbl); + (@flds) = &::TableFields(shift @tbl); $line_count=scalar(@tbl); $row_count=int(($line_count+2)/3); #print STDERR "LINE_COUNT $line_count ROW_COUNT $row_count\n"; @@ -444,7 +444,7 @@ sub _delphi_keytable { $rec=$tbl[$pos]; #print STDERR "TBL[$line,$row,$pos]=$rec\n"; } - %values = &'TableRecSplit(*flds, $rec); + %values = &::TableRecSplit(*flds, $rec); # method/event doesn't have the RO field but does still # use the same table formatting ... cute huh! @@ -484,7 +484,7 @@ sub _delphi_keytable { # delphi_see_also - a table of related entities @_delphi_see_also_FilterParams = (); -@_delphi_see_also_FilterModel = &'TableParse( +@_delphi_see_also_FilterModel = &::TableParse( 'Field Category Rule', 'Name key', 'Category optional <component|object|exception|type|property|method|event|function|procedure>' @@ -496,14 +496,14 @@ sub delphi_see_also_Filter { local($item, @items, $style); # Parse and validate the data - @tbl = &'TableParse(@text); + @tbl = &::TableParse(@text); @text = (); - &'TableValidate(*tbl, *_delphi_see_also_FilterModel); + &::TableValidate(*tbl, *_delphi_see_also_FilterModel); # Process the data - (@flds) = &'TableFields(shift @tbl); + (@flds) = &::TableFields(shift @tbl); for $rec (@tbl) { - %values = &'TableRecSplit(*flds, $rec); + %values = &::TableRecSplit(*flds, $rec); if ($values{'Category'}) { $style = $delphi_l2s{$values{'Category'}}; $style =~ tr/a-z/A-Z/; @@ -581,7 +581,7 @@ sub delphi_variables_Filter { } # generic processing for components, objects, types and routines -@_delphi_list_FilterModel = &'TableParse( +@_delphi_list_FilterModel = &::TableParse( 'Field Category Rule', 'Name key', 'Style optional', @@ -593,17 +593,17 @@ sub _delphi_list { local($item_style, $item, @items); # Parse and validate the data - @tbl = &'TableParse(@text); + @tbl = &::TableParse(@text); @text = (); - &'TableValidate(*tbl, *_delphi_list_FilterModel); + &::TableValidate(*tbl, *_delphi_list_FilterModel); # Sort the data - @tbl = &'TableSort(*tbl, 'Name'); + @tbl = &::TableSort(*tbl, 'Name'); # Process the data - (@flds) = &'TableFields(shift @tbl); + (@flds) = &::TableFields(shift @tbl); for $rec (@tbl) { - %values = &'TableRecSplit(*flds, $rec); + %values = &::TableRecSplit(*flds, $rec); $item_style = $values{'Style'} ne '' ? $values{'Style'} : $style; $item = "{{$item_style: $values{'Name'}}}"; push(@items, $item); diff --git a/perllib/sdf/home/stdlib/mif.sdn b/perllib/sdf/home/stdlib/mif.sdn index 0bbbbc6..76f6b8b 100644 --- a/perllib/sdf/home/stdlib/mif.sdn +++ b/perllib/sdf/home/stdlib/mif.sdn @@ -303,7 +303,7 @@ section value='section\x11 <$paranumonly\>, \xd2 <$paratext\>\xd3 , on p # Handle book mode !if MIF_BOOK_MODE # Start the front part - !output &'MifNewComponent('front') + !output &::MifNewComponent('front') # End the last component !block end @@ -313,7 +313,7 @@ section value='section\x11 <$paranumonly\>, \xd2 <$paratext\>\xd3 , on p # Start a new component, when requested !on paragraph '';; \ - &'MifNewComponent($attr{'component'}) if $attr{'component'} + &::MifNewComponent($attr{'component'}) if $attr{'component'} # Make each level 1 heading a component, unless it is already one !on paragraph '[HAP]1';; \ diff --git a/perllib/sdf/home/stdlib/misc.sdm b/perllib/sdf/home/stdlib/misc.sdm index c42c25e..2de4af8 100644 --- a/perllib/sdf/home/stdlib/misc.sdm +++ b/perllib/sdf/home/stdlib/misc.sdm @@ -69,7 +69,7 @@ sub squish_Macro { } elsif ($state eq 'off') { push(@text,'!off paragraph __squish_filter'); } else { - &'AppMsg("error", "squish \"$state\" not yet implemented"); + &::AppMsg("error", "squish \"$state\" not yet implemented"); return (); } @@ -95,7 +95,7 @@ sub keep_Macro { } elsif ($state eq 'off') { push(@text,'!off paragraph __keep_filter'); } else { - &'AppMsg("error", "keep \"$state\" not yet implemented"); + &::AppMsg("error", "keep \"$state\" not yet implemented"); return (); } return (@text); @@ -118,7 +118,7 @@ sub hyphen_Macro { } elsif ($state eq 'on') { push(@text,'!off paragraph __hyphen_filter'); } else { - &'AppMsg("error", "hyphen \"$state\" not yet implemented"); + &::AppMsg("error", "hyphen \"$state\" not yet implemented"); return (); } return (@text); diff --git a/perllib/sdf/home/stdlib/usecases.sdm b/perllib/sdf/home/stdlib/usecases.sdm index dd4e7fe..955dbbe 100644 --- a/perllib/sdf/home/stdlib/usecases.sdm +++ b/perllib/sdf/home/stdlib/usecases.sdm @@ -76,7 +76,7 @@ sub uc_title_Macro { $title = $db_title; } elsif ($title ne $db_title) { - &'AppMsg("warning", "usecase title does not match database value"); + &::AppMsg("warning", "usecase title does not match database value"); } # Build result |