[SCM] Lisaac compiler branch, master, updated. 19fb415e26131afe1d0dd21c4406cdffba517b0b

[Benoit Sonntag]

The following commit has been merged in the master branch:
commit 19fb415e26131afe1d0dd21c4406cdffba517b0b
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Sat Aug 1 22:09:49 2009 +0200

    Shorter test OK

diff --git a/bin/shorter.c b/bin/shorter.c
index 9cf2fbd..6cfd67d 100644
--- a/bin/shorter.c
+++ b/bin/shorter.c
@@ -2137,7 +2137,7 @@ __STRING_CONSTANT __string_153={__STRING_CONSTANT__,18,"directory_list_end"};
 __STRING_CONSTANT __string_154={__STRING_CONSTANT__,15,"file_list_begin"};
 __STRING_CONSTANT __string_155={__STRING_CONSTANT__,14,"file_list_item"};
 __STRING_CONSTANT __string_156={__STRING_CONSTANT__,13,"file_list_end"};
-__STRING_CONSTANT __string_157={__STRING_CONSTANT__,1989,"------------------\
+__STRING_CONSTANT __string_157={__STRING_CONSTANT__,1979,"------------------\
 ----------------------------------------------\n--                   Lisaac \
 source Shorter                    --\n--            LORIA - LSIIT - ULP - CN\
 RS - FRANCE             --\n--         Benoit SONNTAG - sonntag at icps.u-stras\
@@ -2146,25 +2146,25 @@ bg.fr         --\n--                   http://www.IsaacOS.com               \
 age:                                                      \n  shorter <input\
 _file[.li]> [Options]                       \n                              \
                               \nOptions:                                    \
-                \n  -o <output>      : output file or directory    <DEPRECAT\
-ED> \n                     (default: <input_file.ext>)            \n  -p    \
-           : include `Section Private'              \n  -c               : i\
-nclude code source         <DEPRECATED> \n  -r               : recursive bui\
-lder documentation <DEPRECATED> \n  -f <format_file> : formatting descriptio\
-n file            \n                     (see `/lisaac/shorter/')           \
-    \n  -d               : Lisaac doc style (no -c, -r)           \n        \
-                                                    \nExamples:             \
-                                      \n  * Output format file:             \
-                        \n    shorter -c -p -f latex hello_world.li  <DEPREC\
-ATED>     \n                                                            \n  \
-* Build html documentation:                               \n    shorter -r -\
-f html ~/lisaac/lib        <DEPRECATED>     \n                              \
-                              \n  * Build html documentation style JavaDoc: \
-                \n    shorter -d -f javadoc ~/lisaac/lib                    \
-     \n                                                            \nBug rep\
-ort:                                                 \n            post in :\
- https://gna.org/bugs/?group=isaac     \n            mail to : sonntag at icps.\
-u-strasbg.fr             \n"};
+                \n  -o <output>      : output file or directory             \
+  \n                     (default: <input_file.ext>)            \n  -p      \
+         : include `Section Private'              \n  -c               : inc\
+lude code source                    \n  -r               : recursive builder\
+ documentation        \n  -f <format_file> : formatting description file    \
+        \n                     (see `/lisaac/shorter/')               \n  -d\
+               : Lisaac doc style (no -c, -r)           \n                  \
+                                          \nExamples:                       \
+                            \n  * Output format file:                       \
+              \n    shorter -c -p -f latex hello_world.li                   \
+\n                                                            \n  * Build ht\
+ml documentation:                               \n    shorter -r -f html ~/l\
+isaac/lib                         \n                                        \
+                    \n  * Build html documentation style JavaDoc:           \
+      \n    shorter -d -f javadoc ~/lisaac/lib                         \n   \
+                                                         \nBug report:      \
+                                           \n            post in : https://g\
+na.org/bugs/?group=isaac     \n            mail to : sonntag at icps.u-strasbg.\
+fr             \n"};
 __STRING_CONSTANT __string_158={__STRING_CONSTANT__,8,"shorter/"};
 __STRING_CONSTANT __string_159={__STRING_CONSTANT__,3,".li"};
 __STRING_CONSTANT __string_160={__STRING_CONSTANT__,20,"Error: File format `"};
diff --git a/src/type/prototype.li b/src/type/prototype.li
index ca23e71..4ae7c00 100644
--- a/src/type/prototype.li
+++ b/src/type/prototype.li
@@ -650,7 +650,7 @@ Section PROTOTYPE
     + i:INTEGER;
     + lst:LINKED_LIST[STRING_CONSTANT];
     + code_balise:STRING_CONSTANT;
-    
+        
     cur := str.lower;
     str_tmp.clear;
     code_balise := ALIAS_STR.short_comment_slot_line;
@@ -659,7 +659,7 @@ Section PROTOTYPE
       (stat)
       .when 0 then {        
         // Begin.
-        (car = '*').if {
+        (car = '*').if {          
           (str_tmp.count > 1).if {
             (is_light).if {
               buf.append str_tmp;
@@ -687,7 +687,7 @@ Section PROTOTYPE
           str_tmp.add_last '_';          
         }.elseif {car = ':'} then {
           (str_tmp.count != 0).if {            
-            code_balise := ALIAS_STR.get str_tmp;
+            code_balise := ALIAS_STR.get str_tmp;                     
             lst := PARSER.short_dico.fast_reference_at code_balise;
             (lst = NULL).if {                          
               code_balise := NULL;
@@ -734,7 +734,7 @@ Section PROTOTYPE
             put str_tmp to buf like code_balise;
           };
           str_tmp.clear;
-          stat := 1;
+          stat := 1;          
         }.elseif {car = '`'} then {
           old_stat := stat;
           stat := 2;          

-- 
Lisaac compiler