fork(1) download 
  1. import java.util.*;
  2. import java.lang.*;
  3. import java.io.*;
  4.  
  5. class Ideone
  6. {
  7.  
  8. 	public static void main (String[] args) throws java.lang.Exception
  9. 	{
  10. 		StreamTokenizer in = getTokenizer();
  11.  
  12. 		do {
  13. 			in.nextToken();
  14.  
  15. 			switch (in.ttype) {
  16. 			case StreamTokenizer.TT_WORD:
  17. 				System.out.println("WORD: " + in.sval);
  18. 				break;
  19. 			case StreamTokenizer.TT_NUMBER:
  20. 				System.out.println("NUMBER: " + in.nval);
  21. 				break;
  22. 			case '"':
  23. 				System.out.println("QUOTE: " + in.sval);
  24. 				break;
  25. 			case StreamTokenizer.TT_EOF:
  26. 				break;
  27. 			case '(':
  28. 			case ')':
  29. 			case '\'':
  30. 			case '.':
  31. 			case '`':
  32. 			case ',':
  33. 			case '@':
  34. 				System.out.println((char)in.ttype);
  35. 				break;				
  36. 			default:
  37. 				System.out.print("UNKNOWN: ");
  38. 				System.out.println((char)in.ttype);
  39. 				break;
  40. 			}
  41.  
  42. 		} while (in.ttype != StreamTokenizer.TT_EOF);
  43.  
  44. 	}
  45.  
  46. 	static StreamTokenizer getTokenizer() throws java.lang.Exception
  47. 	{
  48. 		StreamTokenizer in = new StreamTokenizer(
  49. 			new BufferedReader(new InputStreamReader(System.in)));
  50.  
  51. 		in.resetSyntax();
  52. 		in.wordChars(0, 0xFFFF);
  53. 		in.quoteChar('"');
  54. 		in.parseNumbers();
  55. 		in.lowerCaseMode(true);
  56. 		in.whitespaceChars(' ', ' ');
  57. 		in.whitespaceChars('\t', '\t');
  58. 		in.whitespaceChars('\r', '\r');
  59. 		in.whitespaceChars('\n', '\n');	
  60. 		in.commentChar(';');
  61. 		in.ordinaryChar('\'');
  62. 		in.ordinaryChar('(');
  63. 		in.ordinaryChar(')');
  64. 		in.ordinaryChar('`');
  65. 		in.ordinaryChar(',');
  66. 		in.ordinaryChar('.');
  67. 		in.ordinaryChar('@');
  68.  
  69. 		return in;
  70. 	}
  71. }
Success #stdin #stdout 0.07s 380224KB
comments (?)
stdin 
(defun abc (x y) (cons (car x) (cdr y)))
(+ 123 45 (* 3 4))
(define kkk "test lang") ; test language
(define fff '(abc efg))
(a . b)
(defmacro foo (x) `(cons ,x ,x))
(defmacro foo (x) `(progn ,@x))
stdout 
(
WORD: defun
WORD: abc
(
WORD: x
WORD: y
)
(
WORD: cons
(
WORD: car
WORD: x
)
(
WORD: cdr
WORD: y
)
)
)
(
WORD: +
NUMBER: 123.0
NUMBER: 45.0
(
WORD: *
NUMBER: 3.0
NUMBER: 4.0
)
)
(
WORD: define
WORD: kkk
QUOTE: test lang
)
(
WORD: define
WORD: fff
'
(
WORD: abc
WORD: efg
)
)
(
WORD: a
.
WORD: b
)
(
WORD: defmacro
WORD: foo
(
WORD: x
)
`
(
WORD: cons
,
WORD: x
,
WORD: x
)
)
(
WORD: defmacro
WORD: foo
(
WORD: x
)
`
(
WORD: progn
,
@
WORD: x
)
)
https://ideone.com/jEwpHw
language:
Java (HotSpot 12)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!