home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip_2004-07_cd1.bin / tema / aos / files / Oberon.exe / Oberon / Docu.exe / Docu / PhonePad.Mod (.txt) < prev    next >
Oberon Text  |  2000-02-29  |  2KB  |  48 lines
  1. Oberon10.Scn.Fnt
  2. (* ETH Oberon, Copyright 2000 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich.
  3. Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *)
  4. MODULE PhonePad; (** portable *)    (*JG 27.7.94*)
  5.     IMPORT Objects, Texts, Gadgets, Attributes, Links;
  6.     VAR W: Texts.Writer;
  7.     PROCEDURE Search*;
  8.         log: Objects.Object; T: Texts.Text;
  9.         Name, FName, Business, Street, City, PhoneNo: ARRAY 64 OF CHAR;
  10.     BEGIN
  11.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "Name"), "Value", Name);
  12.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "FName"), "Value", FName);
  13.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "Business"), "Value", Business);
  14.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "Street"), "Value", Street);
  15.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "City"), "Value", City);
  16.         Attributes.GetString(Gadgets.FindObj(Gadgets.context, "PhoneNo"), "Value", PhoneNo);
  17.         Links.GetLink(Gadgets.FindObj(Gadgets.context, "Log"), "Model", log);
  18.         T := log(Texts.Text);
  19.         IF PhoneNo[0] # 0X THEN
  20.             Texts.WriteString(W, "T-Query ");
  21.             Texts.WriteString(W, PhoneNo)
  22.         ELSIF Name[0] # 0X THEN
  23.             IF FName[0] # 0X THEN
  24.                 Texts.WriteString(W, "NFC-Query ");
  25.                 Texts.WriteString(W, Name); Texts.Write(W, " ");
  26.                 Texts.WriteString(W, FName); Texts.Write(W, " ");
  27.                 Texts.WriteString(W, City)
  28.             ELSE
  29.                 Texts.WriteString(W, "NC-Query ");
  30.                 Texts.WriteString(W, Name); Texts.Write(W, " ");
  31.                 Texts.WriteString(W, City)
  32.             END
  33.         ELSIF Street[0] # 0X THEN
  34.             Texts.WriteString(W, "SC-Query ");
  35.             Texts.WriteString(W, Street); Texts.Write(W, " ");
  36.             Texts.WriteString(W, City)
  37.         ELSIF Business[0] # 0X THEN
  38.             Texts.WriteString(W, "BC-Query ");
  39.             Texts.WriteString(W, Business); Texts.Write(W, " ");
  40.             Texts.WriteString(W, City)
  41.         ELSE Texts.WriteString(W, "incomplete")
  42.         END;
  43.         Texts.WriteLn(W);
  44.         Texts.Append(T, W.buf)
  45.     END Search;
  46. BEGIN Texts.OpenWriter(W)
  47. END PhonePad.
  48.