Data update

Task/Abbreviations-easy/ALGOL-68/abbreviations-easy.alg

@@ -1,12 +1,4 @@
 # "Easy" abbreviations                                                 #
-# table of "commands" - upper-case indicates the mminimum abbreviation #
-STRING command table = "Add ALTer  BAckup Bottom  CAppend Change SCHANGE  CInsert CLAst COMPress COpy "
-                     + "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find "
-                     + "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput "
-                     + "Join SPlit SPLTJOIN  LOAD  Locate CLocate  LOWercase UPPercase  LPrefix MACRO "
-                     + "MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD  Query  QUIT "
-                     + "READ  RECover REFRESH RENum REPeat  Replace CReplace  RESet  RESTore  RGTLEFT "
-                     + "RIght LEft  SAVE  SET SHift SI  SORT  SOS  STAck STATus  TOP TRAnsfer Type Up";
 
 # returns the next word from text, updating pos                        #
 PRIO NEXTWORD = 1;
@@ -80,6 +72,18 @@ PROC test expand = ( STRING words, command table )VOID:
         print( ( "Output: ", results, newline ) )
      END # test expand # ;
 
-# task test cases                                                      #
-test expand( "riG   rePEAT copies  put mo   rest    types   fup.    6       poweRin", command table );
-test expand( "",                                                                      command table )
+BEGIN # task test cases                                                #
+    # table of "commands"                                              #
+    #     - upper-case indicates the mminimum abbreviation             #
+    STRING command table
+         = "Add ALTer  BAckup Bottom  CAppend Change SCHANGE  CInsert CLAst COMPress COpy "
+         + "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find "
+         + "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput "
+         + "Join SPlit SPLTJOIN  LOAD  Locate CLocate  LOWercase UPPercase  LPrefix MACRO "
+         + "MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD  Query  QUIT "
+         + "READ  RECover REFRESH RENum REPeat  Replace CReplace  RESet  RESTore  RGTLEFT "
+         + "RIght LEft  SAVE  SET SHift SI  SORT  SOS  STAck STATus  TOP TRAnsfer Type Up"
+         ;
+    test expand( "riG   rePEAT copies  put mo   rest    types   fup.    6       poweRin", command table );
+    test expand( "",                                                                      command table )
+END

Task/Abbreviations-easy/FutureBasic/abbreviations-easy.basic

@@ -27,12 +27,12 @@ end fn
 
 local fn Commands as CFArrayRef
   CFStringRef words = @"Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy "
-  words = fn StringByAppendingString( words, @"COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " )
-  words = fn StringByAppendingString( words, @"NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " )
-  words = fn StringByAppendingString( words, @"Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " )
-  words = fn StringByAppendingString( words, @"MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " )
-  words = fn StringByAppendingString( words, @"READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " )
-  words = fn StringByAppendingString( words, @"RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" )
+  words = concat( words, @"COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " )
+  words = concat( words, @"NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " )
+  words = concat( words, @"Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " )
+  words = concat( words, @"MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " )
+  words = concat( words, @"READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " )
+  words = concat( words, @"RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" )
 end fn = fn StringComponentsSeparatedByCharactersInSet( words, fn CharacterSetWhitespaceAndNewlineSet )
 
 
@@ -55,7 +55,7 @@ void local fn Validate
   CFStringRef userString = fn ControlStringValue( _userStringFld )
   CFArrayRef words = fn StringComponentsSeparatedByCharactersInSet( userString, fn CharacterSetWhitespaceAndNewlineSet )
   long cmdCount = len(commands)
-  CFMutableStringRef results = fn MutableStringWithCapacity(0)
+  CFMutableStringRef results = fn MutableStringNew
   long wordCount = len(words)
   long i, j
   for i = 0 to wordCount - 1