home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 01 / pattern / kit.pro < prev    next >
Encoding:
Text File  |  1987-04-20  |  879 b   |  26 lines
  1. /*****************************************************
  2.          KIT.PRO: TOOLBOX-PROGRAMMSCHABLONE
  3. ******************************************************/              
  4. include "MATCH.1"
  5. include "MATCH.2"
  6. predicates
  7.   literal(symbol, stringlist) 
  8. include "MATCH.3" 
  9. clauses
  10.   literal(smalls, 
  11.     ["a","b","c","d","e","f","g","h","i","j","k","l",
  12.     "m","n","o","p","q","r","s","t","u","v","w","x",
  13.     "y","z"]).
  14.   literal(caps, 
  15.     ["A","B","C","D","E","F","G","H","I","J","K","L",
  16.     "M","N","O","P","Q","R","S","T","U","V","W","X",
  17.     "Y","Z"] ).
  18.   literal(digits, 
  19.     ["0","1","2","3","4","5","6","7","8","9"]).
  20.   literal(letters, X) :- literal(smalls, S), 
  21.     literal(caps, C), append(S, C, X).
  22.   literal(alfanums, X) :-
  23.     literal(letters, C), literal(digits, N),
  24.     append(C, N, X).
  25. /****************** Ende KIT ************************/
  26.