/*
	the GUI protocol has been changed to support quoting and the java version
	has not been fixed!!!

	The JAVA version has never been operationnal (not much was missing though)
	as I was waiting to get the GUI protocol finalised.
*/

import java.awt.*;
import java.awt.image.*;
import java.util.*;
import java.net.*;
import java.io.*;

class icon_xpm{
	public String tb[];
	public icon_xpm next;
	public static icon_xpm first=null;
	public String name;
	public icon_xpm(String tbstr[], int nbstr, String name){
		this.next = first;
		first = this;
		tb = new String[nbstr];
		for (int i=0; i<nbstr; i++) tb[i] = tbstr[i];
		this.name = name;
	}
	public static icon_xpm locate(String name){
		icon_xpm x = first;
		while (x != null){
			if (x.name.compareTo(name)==0){
				break;
			}
			x = x.next;
		}
		if (x == null) System.err.println ("Unknown XPM icon " + name);
		return x;
	}
}

class mformscript extends Thread{
	String view;
	Process proc;
	mainform tbmain[];
	int maxmain;
	boolean must_exit;
	String tbstr[];
	int nbstr;
	public static PrintStream out;
	public mformscript (String url, Process _proc, boolean must_exit){
		// Obtient la définition 
		this.must_exit = must_exit;
		view = url;
		proc = _proc;
		maxmain = 100;
		tbmain = new mainform[100];
		for (int i=0; i<maxmain; i++) tbmain[i] = null;
		tbstr = new String[2000];
		nbstr = 0;
	}
	public void run(){
		setPriority (Thread.MIN_PRIORITY);
		if (view != null){
			readfromserver();
		}else if (proc != null){
			readfromproc (proc);
		}else{
			readfromstdin();
		}
		System.out.println ("Fin du run");
		if (must_exit) System.exit(0);
	}

	// Locate a form using its name ID
	public mainform locate (String f){
		mainform ret = null;
		for (int i=0; i<maxmain; i++){
			mainform mf = tbmain[i];
			if (mf != null && mf.id.compareTo(f)==0){
				ret = mf;
				break;
			}
		}
		if (ret == null) System.err.println ("Can't locate form " + f);
		return ret;
	}
	private boolean setcontext (String path, mformctx ctx){
		boolean ret = false;
		String tb[] = new String[20];
		int nb = extrstr.splitpath (path,tb);
		for (int i=0; i<maxmain; i++){
			mainform mf = tbmain[i];
			if (mf != null
				&& mf.id.compareTo(tb[0])==0){
				ctx.fl = mf;
				ctx.bk = null;
				for (int j=1; j<nb; j++){
					if (ctx.fl != null){
						ctx.fl.locate(tb[j],ctx);
					}else if (ctx.bk != null){
						ctx.bk.locate(tb[j],ctx);
					}else{
						break;
					}
				}
				ret = ctx.bk != null || ctx.fl != null;
				break;
			}
		}
		return ret;
	}
	private void readlines(
		DataInputStream dis,
		mformctx ctx){
		//if (fl != null) fl.reset();
		try {
			boolean end = false;
			while (!end){
				String s = dis.readLine();
				if (s == null) break;
				s.trim();
				// System.err.println("Readline " + s);
				if (s.length()==0) continue;
				extrstr ex = new extrstr(s);
				String verb = ex.nextword();
				char first = verb.charAt(0);
				if (first=='#'){
					continue;
				}
				int num=0;
				// The protocol is both ascii and numeric. This allow
				// simple test case to be written
				// The numeric protocol is normally used
				if (first >= '0' && first <= '9'){
					num = Integer.parseInt(verb);
				}else{
					for (int i=0; i<proto.last; i++){
						if (verb.compareTo(protostr.tb[i])==0){
							num = i+1;
							break;
						}
					}
				}
				if (num == proto.Str){
					String ss = ex.nextwordq();
					// System.err.println ("str=" + ss);
					if (ctx.ta != null){
						ctx.ta.appendText(ss + '\n');
					}else{
						tbstr[nbstr++] = ss;
						continue;
					}
				}
				switch (num){
				case proto.Version:
					if (ex.nextint()!=5){
						mainform mf = new mainform ("th1","Incompatible application");
						mf.New_label ("The application is requesting a different GUI protocol.");
						mf.Newline();
						mf.New_label ("This front-end supports revision 5 of the protocol");
						mf.Newline();
						mf.New_label ("Revision was requested");
						mf.Newline();
						mf.New_button ("button",false,"ok");
						mf.Dispolast ('c',1,'c',1);
						mf.Popup();
					}else{
						out.println ("prefer reconfdia slider gauge setval alive context menu listen");
						out.flush();
					}
					break;
				case proto.Newline:
					ctx.fl.Newline();
					break;
				case proto.Skip:
					ctx.fl.Skip (ex.nextint());
					break;
				case proto.Fill:
					ctx.fl.Fill ();
					break;
				case proto.Hline:
					ctx.fl.New_hline (ex.nextwordq());
					break;
				case proto.Dispolast:
					ctx.fl.Dispolast (ex.nextword().charAt(0)
						,ex.nextint()
						,ex.nextword().charAt(0)
						,ex.nextint());
					break;
				case proto.Setweightlast:
					ctx.fl.Setweightlast (ex.nextint(),ex.nextint());
					break;
				case proto.Label:
					ex.skip();
					ctx.fl.New_label (ex.nextwordq());
					break;
				case proto.Richtext:
					ex.skip();
					ctx.fl.New_richtext (ex.nextwordq());
					break;
				case proto.String:
					ctx.fl.New_string (ex.nextwordq(),ex.nextint(),ex.nextwordq());
					break;
				case proto.Password:
					ctx.fl.New_password (ex.nextword(),ex.nextint());
					break;
				case proto.Checkbox:
					ctx.fl.New_checkbox (ex.nextword(),ex.nextint()!=0
						,ex.nextwordq());
					break;
				case proto.Radio:
					ctx.fl.New_radio (ex.nextword()
						,ex.nextint(),ex.nextint()!=0
						,ex.nextwordq());
					break;
				case proto.Button:
					ctx.fl.New_button (ex.nextword(),ex.nextint()!=0
						,ex.nextwordq());
					break;
				case proto.Buttonfill:
					ctx.fl.New_button (ex.nextword(),false,ex.nextwordq());
					break;
				case proto.Button_xpmf:
					janne.New_button (ctx.fl,ex.nextword(),ex.nextword(),ex.nextwordq());
					break;
				case proto.Button_xpm:
					{
						String id = ex.nextword();
						icon_xpm x = icon_xpm.locate(ex.nextword());
						if (x != null){
							janne.New_button (ctx.fl,id,x.tb,x.tb.length
								,ex.nextwordq());
						}
					}
					break;
				case proto.Icon_xpm:
					{
						String name = ex.nextword();
						icon_xpm x = icon_xpm.locate(name);
						if (x != null){
							janne.New_icon_xpm (ctx.fl,x.tb,x.tb.length);
						}
					}
					break;
				case proto.Xfer_xpm:
					new icon_xpm (tbstr,nbstr,ex.nextword());
					break;
				case proto.Choice:
					{
						Choice ch = ctx.fl.New_choice (ex.nextword(),ex.nextwordq());
						readlines (dis,new mformctx(ctx,ch));
					}
					break;
				case proto.Choice_item:
					if (ctx.ch != null){
						ctx.ch.addItem(ex.nextwordq());
					}else{
						ctx.fl.New_choice_item (ex.nextword(),ex.nextwordq());
					}
					break;
				case proto.List:
					ctx.fl.New_list (ex.nextword(),ex.nextint(),ex.nextwordq());
					break;
				case proto.List_item:
					ctx.fl.New_list_item (ex.nextword(),ex.nextwordq());
					break;
				case proto.Combo:
					{
						combo co = ctx.fl.New_combo (ex.nextword(),ex.nextint(),ex.nextwordq());
						readlines (dis,new mformctx (ctx,co));
					}
					break;
				case proto.Combo_item:
					if (ctx.co != null){
						ex.nextword();
						String nos = ex.nextword();
						int no = Integer.parseInt(nos.substring(1));
						ctx.co.setItem (no,ex.nextwordq(),ex.nextwordq());
					}else{
						ctx.fl.New_combo_item (ex.nextword(),ex.nextwordq(),ex.nextwordq());
					}
					break;
				case proto.Group:
					{
						group gr = new group(ctx.fl,ex.nextword(),ex.nextwordq());
						ctx.fl.New_form(gr);
						readlines(dis,new mformctx(ctx,gr));
					}
					break;
				case proto.Groupfit:
					{
						group gr = new group_fit(ctx.fl,ex.nextword(),ex.nextwordq());
						ctx.fl.New_form(gr);
						readlines(dis,new mformctx(ctx,gr));
					}
					break;
				case proto.Formbutton:
					{
						formbutton gr = new formbutton(ctx.fl,ex.nextword(),Color.white);
						ctx.fl.New_form(gr);
						readlines(dis,new mformctx(ctx,gr));
					}
					break;
				case proto.Form:
					{
						mform gr = new mform(ctx.fl,ex.nextwordq());
						ctx.fl.New_form(gr);
						readlines(dis,new mformctx(ctx,gr));
					}
					break;
				case proto.Page:
					{
						String id = ex.nextword();
						String title = ex.nextwordq();
						ex.getendskip();
						mform gr = new mform(ctx.bk,id);
						ctx.bk.New_page(gr,title);
						readlines(dis,new mformctx(ctx,gr));
					}
					break;
				case proto.Book:
					book b = new book(ctx.fl,ex.nextwordq());
					ctx.fl.New_book(b);
					readlines(dis,new mformctx(ctx,b));
					break;
				case proto.MainForm:
					{
						String id = ex.nextword();
						String title = ex.nextwordq();
						if (ctx.bk != null){
							System.err.println ("Insert mainform in book");
							mform gr = new mform(ctx.bk,id);
							ctx.bk.New_page(gr,title);
							readlines(dis,new mformctx(ctx,gr));
							ctx.bk.gettop().Popup();
						}else{
							mainform gr = new mainform(id,title);
							readlines(dis,new mformctx(ctx,gr));
							System.err.println ("Fin session");
							gr.Popup();
							for (int i=0; i<maxmain; i++){
								if (tbmain[i] == null){
									tbmain[i] = gr;
									break;
								}
							}
						}
					}
					break;
				case proto.End:
					end = true;
					break;
				case proto.Delete:
					String f = ex.nextword();
					for (int i=0; i<maxmain; i++){
						mainform mf = tbmain[i];
						if (mf != null && mf.id.compareTo(f)==0){
							mf.dispose();
							tbmain[i] = null;
						}
					}
					break;
				case proto.Dump:
					mainform mf = locate(ex.nextword());
					if (mf != null) mf.dump();
					break;
				case proto.Sidetitle:
					ctx.fl.setsidetitle (ex.nextwordq());
					break;
				case proto.Curfield:
					break;
				case proto.Setcontext:
					{
						String path = ex.nextword();
						mformctx nctx = new mformctx();
						setcontext (path,nctx);
						readlines(dis,nctx);
					}
					break;
				case proto.Clist:
					{
						String id = ex.nextword();
						String tb[] = new String[100];
						int nb = ex.getparms (tb);
						clist cl = new clist (ctx.fl,id,tb);
						ctx.fl.New_clist (cl);
						readlines(dis,new mformctx(ctx,cl));
					}
					break;
				case proto.Clist_item:
					break;
				case proto.Textarea:
					{
						String id = ex.nextword();
						int cols = ex.nextint();
						int rows = ex.nextint();
						TextArea ta = ctx.fl.New_text (id,rows,cols);
						readlines(dis,new mformctx(ctx,ta));
					}
					break;
				case proto.Alive:
					break;
				case proto.Listen:
					break;
				default:
					System.err.println ("Commande inconnu " + s);
				}
				nbstr = 0;
			}
		} catch (IOException ioe) {
			System.out.println("IOException: " + ioe);
		}
	}
	public void readfromserver(){
		out = null;
		try {
			URL yahoo = new URL(view);
			DataInputStream dis = new DataInputStream(yahoo.openStream());
			readlines (dis,new mformctx());
			dis.close();
		} catch (MalformedURLException me) {
			System.out.println("MalformedURLException: " + me);
		} catch (IOException ioe) {
			System.out.println("IOException: " + ioe);
		}
	}
	public void readfromstdin(){
		DataInputStream dis = new DataInputStream(System.in);
		out = System.out;
		try {
			readlines (dis,new mformctx());
			dis.close();
		} catch (IOException ioe) {
			System.out.println("IOException: " + ioe);
		}
	}
	public void readfromproc(Process proc){
		System.err.println ("readfromproc\n");
		DataInputStream dis = new DataInputStream(proc.getInputStream());
		out = new PrintStream (proc.getOutputStream());
		readlines (dis,new mformctx());
	}
	public static void main (String args[]) {
		boolean exit_eof = false;
		Process proc = null;
		for (int i = 0; i < args.length-1; i++){
			if (args[i].compareTo("--exit_eof")==0){
				exit_eof = true;
			}else if (args[i].compareTo("--exec")==0){
				i++;
				String nargs[] = new String[args.length-i];
				int start = i;
				for (; i<args.length; i++) nargs[i-start] = args[i];
				try {
					proc = Runtime.getRuntime().exec (nargs);
				}catch (Exception e){
					System.err.println ("Exception runtime");
				}
				break;
			}
		}
		mformscript sc = new mformscript (null,proc,exit_eof);
		//Thread th = new Thread (sc);
		//th.setDaemon(true);
		sc.start();
		System.out.println ("main continue");
		Thread.currentThread().setPriority (Thread.MAX_PRIORITY);
		if (false){
			mainform mf = new mainform ("th1","main th1");
			for (int i=0; i<2; i++){
				mf.New_label ("allo");
				mf.New_string ("s" + i,10+i,"allo " + i);
				mf.Newline();
			}
			mf.New_button ("button",false,"ok");
			//mf.Popup();
		}else if (false){
			while (true){
//				System.out.println ("running...");
//				try{
//					sleep(200);
//				}catch (InterruptedException e){
//				}
			}
		}else if(false){
			System.err.println ("Sleeping...");
//			try{
//				sleep(5000);
//			}catch (InterruptedException e){
//			}
			System.err.println ("End sleeping...");
		}
	}
}