Changeset 513 in ProjectBuilder for 0.9.3/pb-modules

Timestamp:

Aug 7, 2008, 1:12:44 PM (16 years ago)

Author:

Bruno Cornec

Message:

Transport pb_display functions using gettext from Base into a separate module to allow Base to have only basic perl deps only abd be used in setupvm easily. (retrofiy in 0.9.3 to allow for setupvm to work)

File:

• 0.9.3/pb-modules/lib/ProjectBuilder/Base.pm (modified) (4 diffs)

0.9.3/pb-modules/lib/ProjectBuilder/Base.pm

@@ -21 +21 @@
 use English;
 use locale;
-use Locale::gettext;
 use POSIX qw(setlocale);
 
@@ -39 +38 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_display pb_display_init pb_get_uri pb_get_content pb_display_file pb_syntax_init pb_syntax pb_temp_init $pbdebug $pbLOG $pbdisplaytype $pblocale);
+our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_display_file pb_syntax_init pb_syntax pb_temp_init $pbdebug $pbLOG $pbdisplaytype $pblocale);
 
 =pod
@@ -85 +84 @@
   pb_log_init(2,\*STDOUT);
   pb_log(1,"Message to print\n");
-
-  #
-  # Manages prints of the program
-  #
-  pb_display_init("text","fr_FR:UTF-8");
-  pb_display("Message to print\n");
 
   #
@@ -271 +264 @@
 
 
-=item B<pb_display_init>
-
-This function initializes the environment used by the pb_display function.
-
-The first parameter is the type of display which will be used. Could be "text", "web", "newt",...
-The second parameter is the loacle to be used.
-
-The call to B<pb_display_init> is typically done after getting a parameter on the CLI indicating the locale used or the type of interface to report messages to.
-
-=cut
-
-sub pb_display_init {
-
-$pbdisplaytype = shift || "text";
-$pblocale = shift || "C";
-
-setlocale(LC_ALL, $pblocale);
-pb_log(1,"Using $pbdisplaytype interface with $pblocale locale\n");
-
-if ($pbdisplaytype =~ /text/) {
-} elsif ($pbdisplaytype = /newt/) {
-} else {
-    die "display system $pbdisplaytype unsupported";
-}
-}
-
-=item B<pb_display>
-
-This function prints the messages passed as parameter using the configuration set up with the B<pb_display_init> function.
-
-Here is a usage example:
-
-  pb_display_init("text","fr_FR.UTF-8");
-  pb_display("Hello World\n");
-
-  will print:
-  
-  Bonjour Monde
-
-=cut 
-
-sub pb_display {
-
-my $msg = shift;
-
-if ($pbdisplaytype =~ /text/) {
-    print STDOUT gettext($msg);
-    }
-}
-
 =item B<pb_display_file>