Changeset 10221

Timestamp:

2005-07-06T15:48:06+12:00 (19 years ago)

Author:

kjdon

Message:

ran it through a spell checker

File:

• trunk/gsdl/perllib/parse2.pm (modified) (16 diffs)

trunk/gsdl/perllib/parse2.pm

@@ -1 +1 @@
 #Last: Keeping doing the processArg for handing different type of arguments
 
-#parse2(\@_,$argumnents,$self )
+#parse2(\@_,$arguments,$self )
 
 package parse2;
@@ -19 +19 @@
 #-----------------------------------------
 # Name: transformArg
-# Perameters: 1.(Array pointer of plugin pre-defined argument list)
+# Parameters: 1.(Array pointer of plugin pre-defined argument list)
 # Pre-condition: Call this function and pass a array pointer of argument list.
 # Post-condition: This function will transform the array to a hash table 
@@ -49 +49 @@
     if($intInputArg < $aryRange[0])
     {
-        print STDERR " Parameter Parsing Error (Incorrect Range): when parse arugment parameter for \"-$strArgName\"\n";
+        print STDERR " Parameter Parsing Error (Incorrect Range): when parse argument parameter for \"-$strArgName\"\n";
         return 0;
     }
@@ -58 +58 @@
         if($intInputArg > $aryRange[1])
         {
-            print STDERR " Parameter Parsing Error (Incorrect Range): when parse arugment parameter for \"-$strArgName\"\n";
+            print STDERR " Parameter Parsing Error (Incorrect Range): when parse argument parameter for \"-$strArgName\"\n";
             return 0;
         }
@@ -64 +64 @@
     }
     }
-    else{ die " System error: minimum range is not defined. Possiable misstyping in Argument list for $strArgName\n";}
+    else{ die " System error: minimum range is not defined. Possible mistyping in Argument list for $strArgName\n";}
     return 1;
 }
@@ -75 +75 @@
     if(length($intInputArg) != $intCharLength)
     { 
-        print STDERR " Parameter Parsing Error (Incorrect Char_Length): when parse arugment parameter for \"-$strArgName\"\n";
+        print STDERR " Parameter Parsing Error (Incorrect Char_Length): when parse argument parameter for \"-$strArgName\"\n";
         return 0;
     }
@@ -81 +81 @@
     else
     {
-    die " System error: incorrect char_lengh. Possiable misstyping in Argument list for $strArgName\n";
+    die " System error: incorrect char_length. Possible mistyping in Argument list for $strArgName\n";
     }
     return 1;
@@ -87 +87 @@
 #-----------------------------------------
 # Name: processArg
-# Perameters: 1.(Hash pointer of one argument)
+# Parameters: 1.(Hash pointer of one argument)
 #             2.(Array pointer of the user given argument)
 #             3.(Hash pointer of user given arguments' values)
@@ -125 +125 @@
     else
     {
-        print STDERR " Error: occour in parse2.pm::processArg()\n Unmatch Argument: -$strArgName with type $strArgType\n";
+        print STDERR " Error: occur in parse2.pm::processArg()\n Unmatched Argument: -$strArgName with type $strArgType\n";
         return 0;
     }
@@ -148 +148 @@
         if($blnCheckInList ne "true")
         {
-        print STDERR " Error: occour in parse2.pm::processArg()\n Unknow Enum List Type: -$strArgName with parameter: $strInputArg\n";
+        print STDERR " Error: occur in parse2.pm::processArg()\n Unknow Enum List Type: -$strArgName with parameter: $strInputArg\n";
         return 0;
         } else {
@@ -157 +157 @@
     else
     {
-        print STDERR " Error: occour in parse2.pm::processArg()\n Unknow Type: -$strArgName with type $strArgType\n";
+        print STDERR " Error: occur in parse2.pm::processArg()\n Unknow Type: -$strArgName with type $strArgType\n";
         return 0;
     }
@@ -173 +173 @@
     else
     {
-    print STDERR " Error: occour in parse2.pm::processArg()\n Unknow Type: -$strArgName with type $strArgType\n";
+    print STDERR " Error: occur in parse2.pm::processArg()\n Unknow Type: -$strArgName with type $strArgType\n";
     return 0;
     }
@@ -183 +183 @@
 #-----------------------------------------
 # Name: parse
-# Perameters: 1.(Array pointer of the user given argument)
+# Parameters: 1.(Array pointer of the user given argument)
 #             2.(Array pointer of plugin pre-defined argument list)  
 #             3.(Self pointer, where we store all the argument value)
@@ -193 +193 @@
 sub parse
 {
-    # Get the user supplied arugments pointer "\@_"
+    # Get the user supplied arguments pointer "\@_"
     my $aryptUserArguList = shift; 
 
@@ -250 +250 @@
         else
         {
-            print STDERR " Error: occour in parse2.pm::parse()\n Extra Arguments: $strOneArg\n";
+            print STDERR " Error: occur in parse2.pm::parse()\n Extra Arguments: $strOneArg\n";
             return 0;
         }
@@ -267 +267 @@
         else
         {
-        print STDERR " Error: occour in parse2.pm::parse()\n Invaild Argument: $strOneArg\n";
+        print STDERR " Error: occur in parse2.pm::parse()\n Invalid Argument: $strOneArg\n";
         return 0;
         }