home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL48.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  443 b   |  18 lines
  1.               /* Program 48 */
  2. domains
  3.     tok = numb(integer);char(char);name(string)
  4.     tokl = tok*
  5. predicates
  6.     scanner(string,tokl)
  7.     maketok(string,tok)
  8. clauses
  9.     scanner("",[]).
  10.     scanner(Str,[Tok|Rest]):-
  11.         fronttoken(Str,Sym,Str1),
  12.         maketok(Sym,Tok),
  13.         scanner(Str1,Rest).
  14.     maketok(S,name(S)):- isname(S).
  15.     maketok(S,numb(N)):- str_int(S,N).
  16.     maketok(S,char(C)):- str_Char(S,C).
  17.  
  18.