home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / trystrng.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  2.7 KB  |  101 lines
  1.                                       -- Chapter 16 - Program 4
  2. with Text_IO; use Text_IO;
  3. with DynStrng; use DynStrng;
  4.  
  5. procedure TryStrng is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    Try_This : STRING(1..13);
  11.    Name     : DYNAMIC_STRING(0..15);
  12.    Stuff    : DYNAMIC_STRING(0..35);
  13.    Result   : BOOLEAN;
  14.    Neat     : constant STRING := "XYZ";
  15.    Good3    : STRING(1..3);
  16.    Good4    : STRING(1..4);
  17.    Column   : INTEGER;
  18.  
  19. begin
  20.  
  21.    Name(0) := CHARACTER'VAL(3);
  22.    Stuff(0) := CHARACTER'VAL(7);
  23.  
  24.    Put(Size_Of(Name));
  25.    Put(Size_Of(Stuff));
  26.    Put(Length(Name));
  27.    Put(Length(Stuff));
  28.    New_Line;
  29.  
  30.    Try_This := "ABCDEFGHIJKL$";
  31.    Copy(Try_This,Stuff,Result);
  32.    Put(Size_Of(Stuff));
  33.    Put(Length(Stuff));
  34.    Put(Stuff); Put(Stuff);
  35.    New_Line(2);
  36.  
  37.    Copy(Stuff,Name,Result);
  38.    Put(Name); Put(Name); Put(Name); New_Line;
  39.  
  40.    Concat(Name,Name,Stuff,Result);
  41.    Put(Stuff); New_Line;
  42.  
  43.    Delete(Stuff,5,3,Result);
  44.    Put(Stuff); New_Line;
  45.    Delete(Stuff,6,3,Result);
  46.    Put(Stuff); New_Line;
  47.    Delete(Stuff,6,3,Result);
  48.    Put(Stuff); New_Line;
  49.    Delete(Stuff,6,3,Result);
  50.    Put(Stuff); New_Line;
  51.    Delete(Stuff,6,3,Result);
  52.    Put(Stuff); New_Line;
  53.    Delete(Stuff,6,3,Result);
  54.    Put(Stuff); New_Line;
  55.    Delete(Stuff,6,3,Result);
  56.    Put(Stuff); New_Line;
  57.    Delete(Stuff,6,3,Result);
  58.    Put(Stuff); New_Line(2);
  59.  
  60.    Try_This := "1234567890123";
  61.    Copy(Try_This,Stuff,Result);
  62.    Copy(Neat,Name,Result);
  63.    Put(Stuff); Put(Name); New_Line;
  64.  
  65.    Insert(Stuff,Name,5,Result);
  66.    Put(Stuff); New_Line;
  67.    Insert(Stuff,Name,50,Result);
  68.    Put(Stuff); New_Line;
  69.    Insert(Stuff,Name,2,Result);
  70.    Put(Stuff); New_Line;
  71.    Insert(Stuff,Name,24,Result);
  72.    Put(Stuff); New_Line;
  73.    Insert(Stuff,Name,5,Result);
  74.    Put(Stuff); New_Line;
  75.    Insert(Stuff,Name,5,Result);
  76.    Put(Stuff); New_Line;
  77.    Insert(Stuff,Name,5,Result);
  78.    Put(Stuff); New_Line;
  79.    Insert(Stuff,Name,5,Result);
  80.    Put(Stuff); New_Line(2);
  81.  
  82.    Good3 := "123";
  83.    Try_This := "1234567890123";
  84.    Copy(Try_This,Stuff,Result);
  85.    Copy(Good3,Name,Result);
  86.    Pos(Stuff,Name,1,Column,Result);
  87.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  88.    Pos(Stuff,Name,2,Column,Result);
  89.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  90.    Pos(Stuff,Name,7,Column,Result);
  91.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  92.    Pos(Stuff,Name,12,Column,Result);
  93.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  94.    Pos(Stuff,Name,18,Column,Result);
  95.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  96.    Pos(Stuff,Name,50,Column,Result);
  97.    Text_IO.Put("Found in column number"); Put(Column); New_Line;
  98.  
  99. end TryStrng;
  100.  
  101.