summaryrefslogtreecommitdiff
path: root/perllib/sdf/home
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/sdf/home')
-rw-r--r--perllib/sdf/home/stdlib/bugtrack.sdm2
-rw-r--r--perllib/sdf/home/stdlib/delphi.sdm58
-rw-r--r--perllib/sdf/home/stdlib/mif.sdn4
-rw-r--r--perllib/sdf/home/stdlib/misc.sdm6
-rw-r--r--perllib/sdf/home/stdlib/usecases.sdm2
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
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-02 04:13:45 +0000