home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / rkrmsrc / utility / istr.e < prev    next >
Text File  |  1977-12-31  |  902b  |  40 lines
  1. -> istr.e
  2.  
  3. ->>> Header (globals)
  4. MODULE 'utility'
  5.  
  6. ENUM ERR_NONE, ERR_LIB
  7.  
  8. RAISE ERR_LIB IF OpenLibrary()=NIL
  9. ->>>
  10.  
  11. ->>> PROC main()
  12. PROC main() HANDLE
  13.   DEF butter, bread, ch1, ch2, result
  14.   butter:='Bøtervløøt'
  15.   bread:='Knåckerbrøt'
  16.  
  17.   utilitybase:=OpenLibrary('utility.library', 37)
  18.  
  19.   result:=Stricmp(butter, bread)
  20.  
  21.   WriteF('Comparing \s with \s yields \d\n', butter, bread, result)
  22.  
  23.   result:=Strnicmp(bread, butter, StrLen(bread))
  24.  
  25.   WriteF('Comparing (with length) \s with \s yields \d\n', bread, butter, result)
  26.  
  27.   ch1:=ToUpper($E6)  -> æ ASCII character 230 ae ligature
  28.   ch2:=ToLower($D0)  -> Ð ASCII character 208 Icelandic Eth
  29.  
  30.   WriteF('Chars \c \c\n', ch1, ch2)
  31. EXCEPT DO
  32.   -> E-Note: C version forgets to close the library!
  33.   IF utilitybase THEN CloseLibrary(utilitybase)
  34.   SELECT exception
  35.   CASE ERR_LIB;  WriteF('Error: could not open utility library\n')
  36.   ENDSELECT
  37. ENDPROC
  38. ->>>
  39.  
  40.