kaptain-0.73/0000750023433300116100000000000011532670023011573 5ustar zsoltengkaptain-0.73/kaptain.pro0000640023433300116100000000173311532667703013764 0ustar zsoltengCONFIG += qt QT += qt3support HEADERS += communication.h global.h grammar.h intermediate.h kaptain.h \ lexer.h process.h tools.h SOURCES += communication.cpp grammar.cpp intermediate.cpp kaptain.cpp \ main.cpp process.cpp tools.cpp LEXSOURCES += lexer.lpp YACCSOURCES += parser.ypp QMAKE_LEX = flex QMAKE_YACC = bison QMAKE_YACCFLAGS = -d -o parser.tab.c QMAKE_YACC_HEADER = parser.tab.h QMAKE_YACC_SOURCE = parser.tab.c unix:!macx { # installation on Unix-ish platforms isEmpty(PREFIX):PREFIX = /usr/local isEmpty(BIN_DIR):BIN_DIR = $$PREFIX/bin isEmpty(DATA_DIR):DATA_DIR = $$PREFIX/share isEmpty(DOCS_DIR):DOCS_DIR = $$DATA_DIR/doc/kaptain isEmpty(MAN_DIR):MAN_DIR = $$DATA_DIR/man/man1 target.path = $$BIN_DIR documentation.files = COPYING README doc/* documentation.path = $$DOCS_DIR man.files = man/kaptain.1 man.path = $$MAN_DIR examples.files = examples/* examples.path=$$DATA_DIR/kaptain INSTALLS = target documentation examples man } kaptain-0.73/Makefile0000640023433300116100000004234611532670040013244 0ustar zsolteng############################################################################# # Makefile for building: kaptain # Generated by qmake (2.01a) (Qt 4.6.2) on: Mon Feb 28 10:51:28 2011 # Project: kaptain.pro # Template: app # Command: /usr/bin/qmake -unix -o Makefile kaptain.pro ############################################################################# ####### Compiler, tools and options CC = gcc CXX = g++ DEFINES = -DQT_NO_DEBUG -DQT_QT3SUPPORT_LIB -DQT3_SUPPORT -DQT_GUI_LIB -DQT_CORE_LIB -DQT_SHARED CFLAGS = -pipe -O2 -D_REENTRANT -Wall -W $(DEFINES) CXXFLAGS = -pipe -O2 -D_REENTRANT -Wall -W $(DEFINES) INCPATH = -I/usr/share/qt4/mkspecs/linux-g++ -I. -I/usr/include/qt4/QtCore -I/usr/include/qt4/QtGui -I/usr/include/qt4/Qt3Support -I/usr/include/qt4 -I. LINK = g++ LFLAGS = -Wl,-O1 LIBS = $(SUBLIBS) -L/usr/lib -lQt3Support -lQtGui -lQtCore -lpthread AR = ar cqs RANLIB = QMAKE = /usr/bin/qmake TAR = tar -cf COMPRESS = gzip -9f COPY = cp -f SED = sed COPY_FILE = $(COPY) COPY_DIR = $(COPY) -r STRIP = strip INSTALL_FILE = install -m 644 -p INSTALL_DIR = $(COPY_DIR) INSTALL_PROGRAM = install -m 755 -p DEL_FILE = rm -f SYMLINK = ln -f -s DEL_DIR = rmdir MOVE = mv -f CHK_DIR_EXISTS= test -d MKDIR = mkdir -p ####### Output directory OBJECTS_DIR = ./ ####### Files SOURCES = communication.cpp \ grammar.cpp \ intermediate.cpp \ kaptain.cpp \ main.cpp \ process.cpp \ tools.cpp moc_communication.cpp \ moc_kaptain.cpp \ parser_yacc.cpp \ lexer_lex.cpp OBJECTS = communication.o \ grammar.o \ intermediate.o \ kaptain.o \ main.o \ process.o \ tools.o \ moc_communication.o \ moc_kaptain.o \ parser_yacc.o \ lexer_lex.o DIST = /usr/share/qt4/mkspecs/common/g++.conf \ /usr/share/qt4/mkspecs/common/unix.conf \ /usr/share/qt4/mkspecs/common/linux.conf \ /usr/share/qt4/mkspecs/qconfig.pri \ /usr/share/qt4/mkspecs/features/qt_functions.prf \ /usr/share/qt4/mkspecs/features/qt_config.prf \ /usr/share/qt4/mkspecs/features/exclusive_builds.prf \ /usr/share/qt4/mkspecs/features/default_pre.prf \ /usr/share/qt4/mkspecs/features/release.prf \ /usr/share/qt4/mkspecs/features/default_post.prf \ /usr/share/qt4/mkspecs/features/qt.prf \ /usr/share/qt4/mkspecs/features/unix/thread.prf \ /usr/share/qt4/mkspecs/features/moc.prf \ /usr/share/qt4/mkspecs/features/warn_on.prf \ /usr/share/qt4/mkspecs/features/resources.prf \ /usr/share/qt4/mkspecs/features/uic.prf \ /usr/share/qt4/mkspecs/features/yacc.prf \ /usr/share/qt4/mkspecs/features/lex.prf \ /usr/share/qt4/mkspecs/features/include_source_dir.prf \ kaptain.pro QMAKE_TARGET = kaptain DESTDIR = TARGET = kaptain first: all ####### Implicit rules .SUFFIXES: .o .c .cpp .cc .cxx .C .cpp.o: $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" .cc.o: $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" .cxx.o: $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" .C.o: $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" .c.o: $(CC) -c $(CFLAGS) $(INCPATH) -o "$@" "$<" ####### Build rules all: Makefile $(TARGET) $(TARGET): $(OBJECTS) $(LINK) $(LFLAGS) -o $(TARGET) $(OBJECTS) $(OBJCOMP) $(LIBS) Makefile: kaptain.pro /usr/share/qt4/mkspecs/linux-g++/qmake.conf /usr/share/qt4/mkspecs/common/g++.conf \ /usr/share/qt4/mkspecs/common/unix.conf \ /usr/share/qt4/mkspecs/common/linux.conf \ /usr/share/qt4/mkspecs/qconfig.pri \ /usr/share/qt4/mkspecs/features/qt_functions.prf \ /usr/share/qt4/mkspecs/features/qt_config.prf \ /usr/share/qt4/mkspecs/features/exclusive_builds.prf \ /usr/share/qt4/mkspecs/features/default_pre.prf \ /usr/share/qt4/mkspecs/features/release.prf \ /usr/share/qt4/mkspecs/features/default_post.prf \ /usr/share/qt4/mkspecs/features/qt.prf \ /usr/share/qt4/mkspecs/features/unix/thread.prf \ /usr/share/qt4/mkspecs/features/moc.prf \ /usr/share/qt4/mkspecs/features/warn_on.prf \ /usr/share/qt4/mkspecs/features/resources.prf \ /usr/share/qt4/mkspecs/features/uic.prf \ /usr/share/qt4/mkspecs/features/yacc.prf \ /usr/share/qt4/mkspecs/features/lex.prf \ /usr/share/qt4/mkspecs/features/include_source_dir.prf \ /usr/lib/libQt3Support.prl \ /usr/lib/libQtGui.prl \ /usr/lib/libQtCore.prl $(QMAKE) -unix -o Makefile kaptain.pro /usr/share/qt4/mkspecs/common/g++.conf: /usr/share/qt4/mkspecs/common/unix.conf: /usr/share/qt4/mkspecs/common/linux.conf: /usr/share/qt4/mkspecs/qconfig.pri: /usr/share/qt4/mkspecs/features/qt_functions.prf: /usr/share/qt4/mkspecs/features/qt_config.prf: /usr/share/qt4/mkspecs/features/exclusive_builds.prf: /usr/share/qt4/mkspecs/features/default_pre.prf: /usr/share/qt4/mkspecs/features/release.prf: /usr/share/qt4/mkspecs/features/default_post.prf: /usr/share/qt4/mkspecs/features/qt.prf: /usr/share/qt4/mkspecs/features/unix/thread.prf: /usr/share/qt4/mkspecs/features/moc.prf: /usr/share/qt4/mkspecs/features/warn_on.prf: /usr/share/qt4/mkspecs/features/resources.prf: /usr/share/qt4/mkspecs/features/uic.prf: /usr/share/qt4/mkspecs/features/yacc.prf: /usr/share/qt4/mkspecs/features/lex.prf: /usr/share/qt4/mkspecs/features/include_source_dir.prf: /usr/lib/libQt3Support.prl: /usr/lib/libQtGui.prl: /usr/lib/libQtCore.prl: qmake: FORCE @$(QMAKE) -unix -o Makefile kaptain.pro dist: @$(CHK_DIR_EXISTS) .tmp/kaptain1.0.0 || $(MKDIR) .tmp/kaptain1.0.0 $(COPY_FILE) --parents $(SOURCES) $(DIST) .tmp/kaptain1.0.0/ && $(COPY_FILE) --parents communication.h global.h grammar.h intermediate.h kaptain.h lexer.h process.h tools.h .tmp/kaptain1.0.0/ && $(COPY_FILE) --parents communication.cpp grammar.cpp intermediate.cpp kaptain.cpp main.cpp process.cpp tools.cpp .tmp/kaptain1.0.0/ && $(COPY_FILE) --parents parser.ypp .tmp/kaptain1.0.0/ && $(COPY_FILE) --parents parser.ypp .tmp/kaptain1.0.0/ && $(COPY_FILE) --parents lexer.lpp .tmp/kaptain1.0.0/ && (cd `dirname .tmp/kaptain1.0.0` && $(TAR) kaptain1.0.0.tar kaptain1.0.0 && $(COMPRESS) kaptain1.0.0.tar) && $(MOVE) `dirname .tmp/kaptain1.0.0`/kaptain1.0.0.tar.gz . && $(DEL_FILE) -r .tmp/kaptain1.0.0 clean:compiler_clean -$(DEL_FILE) $(OBJECTS) -$(DEL_FILE) *~ core *.core ####### Sub-libraries distclean: clean -$(DEL_FILE) $(TARGET) -$(DEL_FILE) Makefile mocclean: compiler_moc_header_clean compiler_moc_source_clean mocables: compiler_moc_header_make_all compiler_moc_source_make_all compiler_moc_header_make_all: moc_communication.cpp moc_kaptain.cpp compiler_moc_header_clean: -$(DEL_FILE) moc_communication.cpp moc_kaptain.cpp moc_communication.cpp: communication.h /usr/bin/moc-qt4 $(DEFINES) $(INCPATH) communication.h -o moc_communication.cpp moc_kaptain.cpp: kaptain.h /usr/bin/moc-qt4 $(DEFINES) $(INCPATH) kaptain.h -o moc_kaptain.cpp compiler_rcc_make_all: compiler_rcc_clean: compiler_image_collection_make_all: qmake_image_collection.cpp compiler_image_collection_clean: -$(DEL_FILE) qmake_image_collection.cpp compiler_moc_source_make_all: compiler_moc_source_clean: compiler_uic_make_all: compiler_uic_clean: compiler_yacc_decl_make_all: parser_yacc.h compiler_yacc_decl_clean: -$(DEL_FILE) parser_yacc.h parser_yacc.h: parser.ypp bison -d -o parser.tab.c -p parser -b parser parser.ypp rm -f parser_yacc.h parser_yacc.cpp mv -f parser.tab.h parser_yacc.h mv -f parser.tab.c parser_yacc.cpp compiler_yacc_impl_make_all: parser_yacc.cpp compiler_yacc_impl_clean: -$(DEL_FILE) parser_yacc.cpp parser_yacc.cpp: parser.ypp \ parser_yacc.h compiler_lex_make_all: lexer_lex.cpp compiler_lex_clean: -$(DEL_FILE) lexer_lex.cpp lexer_lex.cpp: lexer.lpp flex -Plexer lexer.lpp rm -f lexer_lex.cpp mv -f lex.lexer.c lexer_lex.cpp compiler_clean: compiler_moc_header_clean compiler_yacc_decl_clean compiler_yacc_impl_clean compiler_lex_clean ####### Compile communication.o: communication.cpp global.h \ tools.h \ communication.h \ grammar.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o communication.o communication.cpp grammar.o: grammar.cpp global.h \ grammar.h \ communication.h \ tools.h \ intermediate.h \ kaptain.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o grammar.o grammar.cpp intermediate.o: intermediate.cpp intermediate.h \ grammar.h \ kaptain.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o intermediate.o intermediate.cpp kaptain.o: kaptain.cpp tools.h \ process.h \ kaptain.h \ intermediate.h \ grammar.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o kaptain.o kaptain.cpp main.o: main.cpp global.h \ tools.h \ communication.h \ process.h \ grammar.h \ intermediate.h \ kaptain.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o main.o main.cpp process.o: process.cpp process.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o process.o process.cpp tools.o: tools.cpp tools.h $(CXX) -c $(CXXFLAGS) $(INCPATH) -o tools.o tools.cpp moc_communication.o: moc_communication.cpp $(CXX) -c $(CXXFLAGS) $(INCPATH) -o moc_communication.o moc_communication.cpp moc_kaptain.o: moc_kaptain.cpp $(CXX) -c $(CXXFLAGS) $(INCPATH) -o moc_kaptain.o moc_kaptain.cpp parser_yacc.o: parser_yacc.cpp $(CXX) -c $(CXXFLAGS) $(INCPATH) -o parser_yacc.o parser_yacc.cpp lexer_lex.o: lexer_lex.cpp $(CXX) -c $(CXXFLAGS) $(INCPATH) -o lexer_lex.o lexer_lex.cpp ####### Install install_target: first FORCE @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/local/bin/ || $(MKDIR) $(INSTALL_ROOT)/usr/local/bin/ -$(INSTALL_PROGRAM) "$(QMAKE_TARGET)" "$(INSTALL_ROOT)/usr/local/bin/$(QMAKE_TARGET)" -$(STRIP) "$(INSTALL_ROOT)/usr/local/bin/$(QMAKE_TARGET)" uninstall_target: FORCE -$(DEL_FILE) "$(INSTALL_ROOT)/usr/local/bin/$(QMAKE_TARGET)" -$(DEL_DIR) $(INSTALL_ROOT)/usr/local/bin/ install_documentation: first FORCE @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ || $(MKDIR) $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/COPYING $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/README $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/crypt.gif $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/database.tgz $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/fig1.png $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/kaptain.html $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/kaptain.info $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/kaptain.texi $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/record.gif $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/tar.gif $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/doc/tutorial.tgz $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ uninstall_documentation: FORCE -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/COPYING -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/README -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/crypt.gif -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/database.tgz -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/fig1.png -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/kaptain.html -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/kaptain.info -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/kaptain.texi -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/record.gif -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/tar.gif -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/doc/kaptain/tutorial.tgz -$(DEL_DIR) $(INSTALL_ROOT)/usr/local/share/doc/kaptain/ install_examples: first FORCE @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/local/share/kaptain/ || $(MKDIR) $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/arping.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/budget.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/crypt.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/curl.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/dia2code.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/emboss.tgz $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/enscript.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/find.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/finger.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/grep.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/indent.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/lameGUI.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/ls.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/mpage.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/nslookup.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/open.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/ping.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/povray.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/procmail.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/puf.tgz $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/search.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/tar.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/weblint.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/wget.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/whois.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/examples/zangband.kaptn $(INSTALL_ROOT)/usr/local/share/kaptain/ uninstall_examples: FORCE -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/arping.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/budget.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/crypt.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/curl.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/dia2code.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/emboss.tgz -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/enscript.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/find.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/finger.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/grep.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/indent.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/lameGUI.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/ls.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/mpage.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/nslookup.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/open.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/ping.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/povray.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/procmail.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/puf.tgz -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/search.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/tar.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/weblint.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/wget.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/whois.kaptn -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/kaptain/zangband.kaptn -$(DEL_DIR) $(INSTALL_ROOT)/usr/local/share/kaptain/ install_man: first FORCE @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/local/share/man/man1/ || $(MKDIR) $(INSTALL_ROOT)/usr/local/share/man/man1/ -$(INSTALL_FILE) /home/zsolt/kaptain/kaptain-0.73/man/kaptain.1 $(INSTALL_ROOT)/usr/local/share/man/man1/ uninstall_man: FORCE -$(DEL_FILE) -r $(INSTALL_ROOT)/usr/local/share/man/man1/kaptain.1 -$(DEL_DIR) $(INSTALL_ROOT)/usr/local/share/man/man1/ install: install_target install_documentation install_examples install_man FORCE uninstall: uninstall_target uninstall_documentation uninstall_examples uninstall_man FORCE FORCE: kaptain-0.73/communication.cpp0000640023433300116100000001563111531160643015154 0ustar zsolteng#include #include #include #include #include #include #include #include #include #include #include #include #include #include "global.h" #include "tools.h" #include "communication.h" #include "grammar.h" #define NO_MORE_IO "At most one i/o channel is allowed.\n" extern Grammar * yygrammar; Communicator::Communicator() { reader=0; fd_read=-1; fd_write=-1; input=true; output=true; ok=false; } Communicator::~Communicator() { if (reader) delete reader; if (fd_read!=-1) close(fd_read); if (fd_write!=-1) close(fd_write); } bool Communicator::is_stdin() { return fd_read==STDIN_FILENO; } bool Communicator::setup_stdio() { if (fd_read!=-1 || fd_write!=-1) { MAKE_WARNING(NO_MORE_IO); return false; } setup_stdin(); setup_stdout(); return true; } bool Communicator::setup_socket_server(string port_str) { if (fd_read!=-1 || fd_write!=-1) { MAKE_WARNING(NO_MORE_IO); return false; } int port; /* determining port number */ if (sscanf(port_str.c_str(), "%d", &port)!=1) { ostringstream message; message << "Invalid port number `" << port_str << "'." << endl; MAKE_ERROR(message.str()); return false; } int socket_fd; struct sockaddr_in my_addr; struct sockaddr_in their_addr; int sin_size, yes=1; /* Create the socket. */ socket_fd = socket (AF_INET, SOCK_STREAM, 0); if (socket_fd == -1) { MAKE_ERROR(string("socket: ")+string(strerror(errno))+string(".\n")); return false; } if (setsockopt(socket_fd,SOL_SOCKET,SO_REUSEADDR,&yes,sizeof(int)) == -1) { MAKE_ERROR(string("setsockopt: ")+string(strerror(errno))+string(".\n")); return false; } my_addr.sin_family = AF_INET; // host byte order my_addr.sin_port = htons(port); // short, network byte order my_addr.sin_addr.s_addr = INADDR_ANY; // automatically fill with my IP memset(&(my_addr.sin_zero), '\0', 8); // zero the rest of the struct /* bind */ if (bind(socket_fd, (struct sockaddr *)&my_addr, sizeof (struct sockaddr)) == -1) { MAKE_ERROR(string("bind: ")+string(strerror(errno))+string(".\n")); return false; } /* listen */ if (listen(socket_fd,1) == -1) { MAKE_ERROR(string("listen: ")+string(strerror(errno))+string(".\n")); return false; } /* accept */ sin_size = sizeof(struct sockaddr_in); fd_read=accept(socket_fd, (struct sockaddr *)& their_addr, (socklen_t *)&sin_size); if (fd_read==-1) { MAKE_ERROR(string("accept: ")+string(strerror(errno))+string(".\n")); return false; } fcntl(fd_read, F_SETFL, O_NONBLOCK); //cout << inet_ntoa(their_addr.sin_addr) << endl; fd_write=fd_read; reader=new QSocketNotifier(fd_read, QSocketNotifier::Read); connect(reader, SIGNAL(activated(int)), SLOT(data_arrived(int))); ok=true; return true; } bool Communicator::setup_socket_client(string url) { if (fd_read!=-1 || fd_write!=-1) { MAKE_WARNING(NO_MORE_IO); return false; } unsigned int port; size_t separ; string host, port_str; /* separating host and port */ separ=url.find(':'); if (separ==url.npos) { ostringstream message; message << "Could not determine server address and port from `" << url << "' (host:port)." << endl; MAKE_ERROR(message.str()); return false; } /* determining port number */ host=url.substr(0,separ); port_str=url.substr(separ+1); if (sscanf(port_str.c_str(), "%u", &port)!=1) { ostringstream message; message << "Invalid port number `" << port_str << "'." << endl; MAKE_ERROR(message.str()); return false; } /* connect to the server */ struct hostent* hostinfo; struct sockaddr_in their_addr; hostinfo = gethostbyname (host.c_str()); if (hostinfo == NULL) { MAKE_ERROR(string("Couldn't resolve host name `") +host+string("'.\n")); return false; } fd_read = socket (AF_INET, SOCK_STREAM, 0); if (fd_read == -1) { MAKE_ERROR(string("socket: ")+string(strerror(errno))+string(".\n")); return false; } their_addr.sin_family = AF_INET; // host byte order their_addr.sin_port = htons(port); // short, network byte order their_addr.sin_addr = *((struct in_addr *)hostinfo->h_addr); memset(&(their_addr.sin_zero), '\0', 8); // zero the rest of the struct if (::connect (fd_read, (struct sockaddr *)&their_addr, sizeof (struct sockaddr)) == -1) { MAKE_ERROR(string("Couldn't connect to `") +url+string("'. ")+string(strerror(errno))+string("\n")); return false; } fd_write=fd_read; fcntl(fd_read, F_SETFL, O_NONBLOCK); reader=new QSocketNotifier(fd_read, QSocketNotifier::Read); connect(reader, SIGNAL(activated(int)), SLOT(data_arrived(int))); ok=true; return true; } bool Communicator::setup_progio(string command) { if (fd_read!=-1 || fd_write!=-1) { MAKE_WARNING(NO_MORE_IO); return false; } int left[2]; int right[2]; pid_t pid; pipe (left); pipe (right); pid = fork (); if (pid == (pid_t) 0) { close (left[1]); close (right[0]); dup2 (left[0], STDIN_FILENO); dup2 (right[1], STDOUT_FILENO); execlp("/bin/sh", "/bin/sh", "-c", command.c_str(), NULL); } else { close (left[0]); close (right[1]); fd_read=right[0]; fd_write=left[1]; } if (fd_read!=-1 && fd_write!=-1) { fcntl(fd_read, F_SETFL, O_NONBLOCK); reader=new QSocketNotifier(fd_read, QSocketNotifier::Read); connect(reader, SIGNAL(activated(int)), SLOT(data_arrived(int))); ok=true; return true; } MAKE_ERROR("Unable to create pipe to `"+command+"': "+strerror(errno)+".\n"); return false; } bool Communicator::setup_stdin() { fd_read=STDIN_FILENO; // stdin fcntl(fd_read, F_SETFL, O_NONBLOCK | O_RDONLY ); reader=new QSocketNotifier(fd_read, QSocketNotifier::Read); connect(reader, SIGNAL(activated(int)), SLOT(data_arrived(int))); return true; } bool Communicator::setup_stdout() { fd_write=STDOUT_FILENO; ok=true; return true; } bool Communicator::setup_filein(string) { return false; } bool Communicator::setup_fileout(string) { return false; } void Communicator::send(string message) { if (ok && output) { int res=write(fd_write, message.c_str(), message.size()); if (res==-1) { cerr << (string("Error: Unable to send data: ") +string(strerror(errno))+string(".\n")); exit(-1); close(fd_write); ok=false; } } } void Communicator::data_arrived(int) { #define BUFF_SIZE 255 char buff[BUFF_SIZE+1]; ssize_t n; do { n=read(fd_read, buff, BUFF_SIZE); if (n==-1) { break; } buff[n]=0; message+=string(buff); } while (n==BUFF_SIZE); size_t line; while ( (line=message.find('\n'))!=message.npos) { string first_line=message.substr(0,line+1); if (input) yygrammar->recieve(first_line); message=message.substr(line+1); } } kaptain-0.73/communication.h0000640023433300116100000000136110120611332014601 0ustar zsolteng#ifndef COMMUNICATION_HH #define COMMUNICATION_HH #include #include using namespace std; class Communicator : public QObject { Q_OBJECT private: int fd_read, fd_write; QSocketNotifier * reader; bool ok; bool input, output; string message; // buffer public: Communicator(); ~Communicator(); bool is_stdin(); bool setup_stdio(); bool setup_progio(string); bool setup_socket_server(string); bool setup_socket_client(string); bool setup_stdin(); bool setup_stdout(); bool setup_filein(string); bool setup_fileout(string); void no_input() {input=false;} void no_output() {output=false;} void send(string); public slots: void data_arrived(int); }; #endif // COMMUNICATION_HH kaptain-0.73/global.h0000640023433300116100000000044210120611331013172 0ustar zsolteng#ifndef GLOBAL_HH #define GLOBAL_HH class Error; extern void STATUS(const char *); extern void DONE(void); extern Error * glob_error; #define MAKE_ERROR(s) (glob_error->error(s)) #define MAKE_WARNING(s) (glob_error->warning(s)) #define GO_ON() (glob_error->go_on()) #endif // GLOBAL_HH kaptain-0.73/grammar.cpp0000640023433300116100000006454511162156751013752 0ustar zsolteng#include #include #include #include "global.h" #include "grammar.h" #include "communication.h" #include "tools.h" #include "intermediate.h" #include "kaptain.h" extern Communicator * glob_communicator; const char * special_names[]={ "@integer", // 1 "@string", // 2 "@list", // 3 "@float", // 4 "@button", // 5 "@regexp", // 6 "@infile", // 7 "@outfile", // 8 "@directory", // 9 "@combo", // 10 "@container", // 11 "@close", // 12 "@action", // 13 "@edit", // 14 "@combow", // 15 "@exec", // 16 "@echo", // 17 "@icon", // 18 "@text", // 19 "@execclose", // 20 "@execbuffer", // 21 "@dump", // 22 "@preview", // 23 "@size", // 24 "@password", // 25 "@fork", // 26 "@fill", // 27 "@multicol", // 28 "@line" // 29 }; int special_num=29; const char * modifier_names[]={ ":tabbed", // 1 ":framed", // 2 ":horizontal", // 4 ":wizard", // 8 ":dialog", // 16 ":reverse", // 32 ":noeval", // 64 ":double", // 128 ":beside", // 256 ":tree", // 512 ":detailed", // 1024 ":stack", // 2048 ":checkbox", // 4096 ":tristate", // 8192 ":radioparent", // 16384 ":leftaligned", // 32768 ":rightaligned", // 65536 ":radio", // 131072 "" }; int modifier_num=12; int extra_modifier_num=18; int two_power[]={1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, 2097152, 4194304, 8388608, 16777216, 33554432, 67108864}; /*----------------------------------------------------------------------*/ Grammar::Grammar() { start_rule=0; was_default_widget_done=false; } Grammar::~Grammar() { list::iterator pr; /* delete the rules of the grammar */ for (pr=rules.begin(); pr!=rules.end(); pr++) if (*pr) delete *pr; list::iterator pd; /* delete the descriptions of the grammar */ for (pd=descriptions.begin(); pd!=descriptions.end(); pd++) if (*pd) delete *pd; } void Grammar::add_rule(Rule * r) { rules.push_back(r); } void Grammar::add_description(string *s, list *l, string **t) { descriptions.push_back(new Description(this, s, l, t)); } void Grammar::add_constraint(string *s1, string *s2) { int n1=broker.get_nonterminal(s1), n2=broker.get_nonterminal(s2); /* add to a multimap */ constraints.insert(pair(n1, n2)); } Rule * Grammar::get_rule(int nt) { Rule * result=0; list::iterator ri; for (ri=rules.begin(); ri!=rules.end(); ri++) if ((*ri)->get_left()==nt) result=(*ri); /* return the pointer to the last rule of the list having left side `nt' */ return result; } void Grammar::verify() { /* verify every separate rule */ list::iterator rp; for (rp=rules.begin(); rp!=rules.end(); rp++) if (*rp) // special symbol names // modifier symbol names (*rp)->verify_rule(); /* start rule */ verify_start_rule(); /* recursion */ STATUS("Looking for recursion..."); verify_recursion(); DONE(); /* unreachable nonterminals */ STATUS("Checking reachability..."); verify_reachability(); DONE(); /* unterminateable nonterminals */ STATUS("Verifying termination..."); verify_terminateability(); DONE(); /* descriptions of nonexistent rules */ verify_descriptions(); } void Grammar::verify_start_rule() { if (!GO_ON()) return; string start_const("start"); int start=broker.get_nonterminal(&start_const); list::iterator rp; for (rp=rules.begin(); rp!=rules.end(); rp++) if (*rp) { if ((*rp)->get_left()==start) { start_rule=*rp; break; } } if (rp==rules.end()) { ostringstream message; /* No `start' rule. */ message << "No `start' rule." << endl; MAKE_ERROR(message.str()); } } void Grammar::verify_recursion() { if (!GO_ON()) return; int i=0; int N=broker.get_nt_num(); vector > is_on_right; is_on_right.resize(N); int validnum=0; vector valid; valid.resize(N); for (i=0; i::iterator rp; for (rp=rules.begin(); rp!=rules.end(); rp++) if (*rp) { if ((*rp)->disjunction==0) continue; list & conj=(*rp)->disjunction->conjunctions; list::iterator cp; for (cp=conj.begin(); cp!=conj.end(); cp++) { list::iterator ip; list & li=(*cp)->symbols; for (ip=li.begin(); ip!=li.end(); ip++) if (*ip<0) { is_on_right[-*ip-1].push_back(-(*rp)->get_left()-1); } } if (!valid[-(*rp)->get_left()-1]) validnum++; valid[-(*rp)->get_left()-1]=true; } i=0; while (i0) { /* recursion found */ ostringstream message; message << "Recursion found in rules:"; for (int j=0; j nt_done; set nt_pending; int current; nt_pending.insert(start_rule->get_left()); do { /* get first pending element */ current=*nt_pending.begin(); nt_pending.erase(nt_pending.begin()); list::iterator rp; for (rp=rules.begin(); rp!=rules.end(); rp++) if (*rp) if ((*rp)->get_left()==current) { /* normal rule, having a right side */ if ((*rp)->disjunction) { list & conj=(*rp)->disjunction->conjunctions; list::iterator cp; for (cp=conj.begin(); cp!=conj.end(); cp++) { list::iterator ip; list & li=(*cp)->symbols; for (ip=li.begin(); ip!=li.end(); ip++) if (*ip<0 && *ip!=current && find(nt_done.begin(), nt_done.end(), *ip) == nt_done.end() && find(nt_pending.begin(), nt_pending.end(), *ip) == nt_pending.end() ) { nt_pending.insert(*ip); } } } if ((*rp)->type>0 && (*rp)->parameters) { /* special symbol: parameters are also reachable */ list::iterator pi; for (pi=(*rp)->parameters->begin(); pi!=(*rp)->parameters->end(); pi++) if (*pi && (*pi)->type==T_NONTERM) { int nt=(*pi)->value; if (find(nt_done.begin(), nt_done.end(), nt) == nt_done.end() && find(nt_pending.begin(), nt_pending.end(), nt) == nt_pending.end()) nt_pending.insert(nt); } } if ((*rp)->type>0 && (*rp)->initvalue) { /* special symbol: initvalue is also reachable */ if ((*rp)->initvalue && (*rp)->initvalue->type==T_NONTERM) { int nt=(*rp)->initvalue->value; if (find(nt_done.begin(), nt_done.end(), nt) == nt_done.end() && find(nt_pending.begin(), nt_pending.end(), nt) == nt_pending.end()) nt_pending.insert(nt); } } } nt_done.insert(current); } while (!nt_pending.empty()); list unreachable; int nt_num=broker.get_nt_num(); for (int i=0; i::iterator it; for (it=unreachable.begin(); it!=unreachable.end(); it++) { string name=broker.get_string(*it); if (name[0]!='-') /* not internal nonterminal */ message << " `" << name << "'"; } message << "." << endl; MAKE_WARNING(message.str()); } } void Grammar::verify_terminateability() { if (!GO_ON()) return; list unterminated; list::iterator rp; /* check every rule */ for (rp=rules.begin(); rp!=rules.end(); rp++) if (*rp) { /* normal rule, having a right side */ if ((*rp)->disjunction) { list & conj=(*rp)->disjunction->conjunctions; list::iterator cp; for (cp=conj.begin(); cp!=conj.end(); cp++) { list::iterator ip; list & li=(*cp)->symbols; for (ip=li.begin(); ip!=li.end(); ip++) if (*ip<0 && get_rule(*ip)==0) unterminated.push_back(*ip); } } if ((*rp)->type>0) /* SPECIAL */ { if ((*rp)->parameters) { /* parameters are also reachable */ list::iterator pi; for (pi=(*rp)->parameters->begin(); pi!=(*rp)->parameters->end(); pi++) if (*pi && (*pi)->type==T_NONTERM) { int nt=(*pi)->value; if (nt<0 && get_rule(nt)==0) unterminated.push_back(nt); } } if ((*rp)->initvalue) { /* initvalue is also reachable */ if ((*rp)->initvalue && (*rp)->initvalue->type==T_NONTERM) { int nt=(*rp)->initvalue->value; if (nt<0 && get_rule(nt)==0) unterminated.push_back(nt); } } } } /* make message */ if (!unterminated.empty()) { ostringstream message; message << "Unterminated nonterminals:"; list::iterator it; for (it=unterminated.begin(); it!=unterminated.end(); it++) { string name=broker.get_string(*it); if (name[0]!='-') /* not internal nonterminal */ message << " `" << name << "'"; } message << "." << endl; MAKE_ERROR(message.str()); } } void Grammar::verify_descriptions() { if (!GO_ON()) return; list::iterator di; for (di=descriptions.begin(); di!=descriptions.end(); di++) if (*di) { Rule * r=get_rule((*di)->nonterminal); if (r==0) { ostringstream message; message << "No rule found for `" << broker.get_string((*di)->nonterminal) << "', description ignored." << endl; MAKE_WARNING(message.str()); delete *di; descriptions.erase(di); } } } void Grammar::unify_rules() { if (!GO_ON()) return; /* combines several rules of the same left hand side */ list::iterator r, rx; restart: for (r=rules.begin(); r!=rules.end(); r++) if (*r) { rx=r; rx++; while (rx!=rules.end()) if (*rx) { if ((*r)->get_left()==(*rx)->get_left()) { /* unifying `r' and `rx' */ list::reverse_iterator ci; if ((*r)->disjunction) for (ci=(*r)->disjunction->conjunctions.rbegin(); ci!=(*r)->disjunction->conjunctions.rend(); ci++) if (*ci) { (*rx)->disjunction->add_conjunction(*ci); *ci=0; } Rule * zombie=*r; rules.erase(r); delete zombie; goto restart; } rx++; } } } void Grammar::unify_descriptions() { /* insert description data into rules */ list::iterator di; for (di=descriptions.begin(); di!=descriptions.end(); di++) if (*di) { int nt=(*di)->nonterminal; Rule * r=get_rule(nt); if (r->textinfo[0].empty()) r->textinfo[0]=(*di)->textinfo[0]; if (r->textinfo[1].empty()) r->textinfo[1]=(*di)->textinfo[1]; if (r->textinfo[2].empty()) r->textinfo[2]=(*di)->textinfo[2]; if ((*di)->modifiers) { r->add_modifiers((*di)->modifiers); (*di)->modifiers=0; } } } void Grammar::unify() { unify_rules(); unify_descriptions(); } string Grammar::evaluate_nonterminal(int nt, bool consider_noeval) { //cout << "Grammar::evaluate_nonterminal(" << nt << ")" << endl; string s; Rule * r=get_rule(nt); if (r) s=r->evaluate(consider_noeval); return s; } int Grammar::get_constraint_for(int nt) { int result=0; multimap::iterator mi; mi=constraints.find(nt); if (mi!=constraints.end()) result=mi->second; return result; } void Grammar::send(string message) { glob_communicator->send(message); } void Grammar::recieve(string message) { size_t b=message.find_first_of("(=?!"); if (b!=message.npos) { string tail=message.substr(b+1,message.length()-b-1); string head=message.substr(0,b); int nt=broker.get_nonterminal(&head); Rule * r=get_rule(nt); if (r) r->recieve(message[b],tail); } } /*----------------------------------------------------------------------*/ Rule::Rule(Grammar * gr) { grammar=gr; left=0; disjunction=0; parameters=0; type=0; /* normal by default */ initvalue=0; transformations=0; modifiers=0; my_intermediate=0; } Rule::~Rule() { if (disjunction) delete disjunction; if (parameters) { list::iterator pp; /* delete each parameter in the list */ for (pp=parameters->begin(); pp!=parameters->end(); pp++) if (*pp) delete *pp; delete parameters; } if (initvalue) delete initvalue; if (transformations) { list::iterator tp; /* delete each transformation in the list */ for (tp=transformations->begin(); tp!=transformations->end(); tp++) if (*tp) delete *tp; delete transformations; } if (modifiers) { list::iterator sp; /* delete each modifier in the list */ for (sp=modifiers->begin(); sp!=modifiers->end(); sp++) if (*sp) delete *sp; delete modifiers; } } void Rule::set_left(string * s) { left=grammar->broker.get_nonterminal(s); } void Rule::set_disjunction(Disjunction * d) { disjunction=d; } void Rule::set_special(string * spec_name, list * params, Parameter * init) { type=1; if (spec_name) special_type=*spec_name; /* remove old values */ if (initvalue) delete initvalue; if (parameters) { list::iterator pi; for (pi=parameters->begin(); pi!=parameters->end(); pi++) if (*pi) delete (*pi); delete parameters; } /* set new values */ initvalue=init; parameters=params; } void Rule::add_modifiers(list * l) { if (modifiers==0) modifiers=l; else { list::iterator sp; for (sp=l->begin(); sp!=l->end(); sp++) modifiers->push_back(*sp); delete l; } } void Rule::set_textinfo(string ** ti) { /* `ti' is an array of 3 string pointers */ if (ti[0]) textinfo[0]=*ti[0]; if (ti[1]) textinfo[1]=*ti[1]; if (ti[2]) textinfo[2]=*ti[2]; } void Rule::set_transformations(list * t) { transformations=t; } void Rule::verify_rule() { if (!GO_ON()) return; /* verify special name also sets `type' */ if (type>0) { for (type=0; type::iterator mi; if (modifiers) for (mi=modifiers->begin(); mi!=modifiers->end(); mi++) if (*mi) { int n=0; for (n=0; nbroker.get_string(left) << endl; string result; if (type>0) { //cout << "SPEC " << type << endl; if (my_intermediate) result=my_intermediate->evaluate_special(); } else if (disjunction) { if (disjunction->conjunctions.size()==0); else if (disjunction->conjunctions.size()==1) result=disjunction->conjunctions.front()->evaluate(consider_noeval); else { int sel=0; if (my_intermediate) sel=my_intermediate->get_current_selection(); else { // directly default selection: sel=disjunction->default_num; /* try using constraints */ int nt=grammar->get_constraint_for(left); if (nt!=0) { Rule * source=grammar->get_rule(nt); if (source && source->my_intermediate) sel=source->my_intermediate-> get_current_selection(); } } /* find `sel'th child */ list::iterator ci; for (ci=disjunction->conjunctions.begin(); ci!=disjunction->conjunctions.end(); ci++) { if (sel==0) break; sel--; } if (ci!=disjunction->conjunctions.end()) result=(*ci)->evaluate(consider_noeval); } } /* perform some transformations ... */ if (transformations) { list::iterator ti; for (ti=transformations->begin(); ti!=transformations->end(); ti++) if (*ti) { string result2=result; /* apply (*ti) to result */ if ((*ti)->type==T_SUBST) { //cout << "s '" << (*ti)->data << "' '" // << (*ti)->data2 << "' " // << ((*ti)->value ? 't' : 'f') // << endl; /* substitution */ Regexp::substitute((*ti)->data, // pattern result2, // src (*ti)->data2, // replacement result, // dest (*ti)->value); } if ((*ti)->type==T_TRANS) { //cout << "t '" << (*ti)->data << "' '" // << (*ti)->data2 << "' " // << endl; Regexp::transliterate((*ti)->data, // from (*ti)->data2, // to result2, // src result); // dest } } } if (consider_noeval && my_intermediate && my_intermediate->is(is_noeval)) result.erase(); return result; } int Rule::get_default_selection() { int sel=0; if (disjunction) sel=disjunction->get_default_num(); /* reverse checkboxes */ if (my_intermediate->is(is_checkbox) && disjunction->conjunctions.size()==2 && disjunction->conjunctions.front()->symbols.size()==0) /* setting checkbox means to choose nonempty */ sel=1-sel; return sel; } int Rule::get_current_selection() { int sel=0; if (my_intermediate) sel=my_intermediate->get_current_selection(); /* treat reversed disjunctions in a different way: `a -> @ | b' */ if (my_intermediate->is(is_checkbox) && disjunction->conjunctions.size()==2 && disjunction->conjunctions.front()->symbols.size()==0) /* setting checkbox means to choose nonempty */ sel=1-sel; return sel; } void Rule::send(string message, bool prefix_sender) { string total; if (prefix_sender) total=grammar->broker.get_string(left)+message+'\n'; else total=message+'\n'; grammar->send(total); } void Rule::recieve(char command, string message) { if (my_intermediate) if (command=='?') { // process here send(evaluate(false), false); // don't consider :noeval and do not write sender before the message } else if (command=='!') { /* FIXME */ } else { /* process at `intermediate' */ my_intermediate->recieve(command+message); } } /*----------------------------------------------------------------------*/ Disjunction::Disjunction(Grammar * gr) { grammar=gr; default_num=-1; } Disjunction::~Disjunction() { list::iterator cp; /* delete each conjunction in the list */ for(cp=conjunctions.begin(); cp!=conjunctions.end(); cp++) if (*cp) delete *cp; } int Disjunction::get_default_num() { if (default_num==-1) { default_num=0; int def=0; list::iterator conj; /* set `num_default' to the last conjunction marked to be default */ for (conj=conjunctions.begin(); conj!=conjunctions.end(); conj++, def++) if ((*conj)->get_default()) default_num=def; } return default_num; } void Disjunction::add_conjunction(Conjunction * c) { conjunctions.push_front(c); } /*----------------------------------------------------------------------*/ Conjunction::Conjunction(Grammar * gr) { grammar=gr; is_default=false; } Conjunction::~Conjunction() { } void Conjunction::set_default() { is_default=true; } void Conjunction::add_nonterminal(string * s) { symbols.push_front(grammar->broker.get_nonterminal(s)); } void Conjunction::add_terminal(string * s) { symbols.push_front(grammar->broker.get_terminal(s)); } void Conjunction::add_special(string * s, list * p, Parameter * iv) { Rule * r=new Rule(grammar); ostringstream name; int new_left_side=-grammar->broker.get_nt_num()-1; name << new_left_side; string str=name.str(); r->set_left(&str); r->set_special(s, p, iv); grammar->add_rule(r); symbols.push_front(new_left_side); } string Conjunction::evaluate(bool consider_noeval) { //cout << "Conjunction::evaluate()" << endl; string s; list::iterator li; for (li=symbols.begin(); li!=symbols.end(); li++) if ((*li)>0) s+=grammar->broker.get_string(*li); else s+=grammar->evaluate_nonterminal(*li, consider_noeval); return s; } /*----------------------------------------------------------------------*/ Broker::Broker() { /* initial table sizes */ nonterminal_table.reserve(20); terminal_table.reserve(20); } Broker::~Broker() { } int Broker::get_nonterminal(string * s) { int result; vector::iterator it; it=find(nonterminal_table.begin(), nonterminal_table.end(), *s); if (it==nonterminal_table.end()) { /* insert element as new */ nonterminal_table.push_back(*s); result=nonterminal_table.size()-1; } else result=it-nonterminal_table.begin(); return -result-1; } int Broker::get_terminal(string * s) { int result; vector::iterator it; it=find(terminal_table.begin(), terminal_table.end(), *s); if (it==terminal_table.end()) { /* insert element as new */ terminal_table.push_back(*s); result=terminal_table.size()-1; } else result=it-terminal_table.begin(); return result+1; } string Broker::get_string(int i) { if (i<0) { /* nonterminal */ return nonterminal_table[-i-1]; } else { /* terminal */ return terminal_table[i-1]; } } /*----------------------------------------------------------------------*/ Parameter::Parameter(Grammar * gr) { grammar=gr; } void Parameter::set_numeral(int n) { type=T_NUMERAL; value=n; } void Parameter::set_string(string * s) { type=T_STRING; data=*s; } void Parameter::set_nonterminal(string * s) { type=T_NONTERM; value=grammar->broker.get_nonterminal(s); } void Parameter::set_regexp(string * s) { type=T_REGEXP; data=*s; } void Parameter::set_substitution(string ** s) { type=T_SUBST; data=*s[0]; data2=*s[1]; if ((*s[2])[0]=='g') value=1; // indicate `g' flag else value=0; } void Parameter::set_transliteration(string ** s) { type=T_TRANS; data=*s[0]; data2=*s[1]; } /*----------------------------------------------------------------------*/ Description::Description(Grammar * gr, string *s, list *l, string **t) { grammar=gr; nonterminal=grammar->broker.get_nonterminal(s); modifiers=l; if (t[0]) textinfo[0]=*t[0]; if (t[1]) textinfo[1]=*t[1]; if (t[2]) textinfo[2]=*t[2]; } Description::~Description() { if (modifiers) { list::iterator sp; for (sp=modifiers->begin(); sp!=modifiers->end(); sp++) if (*sp) delete *sp; delete modifiers; } } kaptain-0.73/grammar.h0000640023433300116100000001060210120611331013357 0ustar zsolteng#ifndef GRAMMAR_HH #define GRAMMAR_HH #include #include #include #include using namespace std; class Grammar; class Rule; class Disjunction; class Conjunction; class Broker; class Parameter; class Intermediate; /* different parameter types */ #define T_NUMERAL 1 #define T_NONTERM 2 #define T_STRING 3 #define T_REGEXP 4 #define T_SUBST 5 #define T_TRANS 6 /****************/ class Description { friend class Grammar; friend class Intermediate; Grammar * grammar; list * modifiers; string textinfo[3]; int nonterminal; public: Description(Grammar *, string *, list *, string **); ~Description(); }; /***************/ class Parameter { friend class Grammar; friend class Intermediate; friend class Rule; Grammar * grammar; int type; int value; string data; string data2; public: Parameter(Grammar *); void set_numeral(int); void set_string(string *); void set_nonterminal(string *); void set_regexp(string *); void set_substitution(string **); void set_transliteration(string **); }; /***********/ class Broker { /* Broker of string<->int transformations */ vector nonterminal_table; vector terminal_table; public: Broker(); ~Broker(); int get_nonterminal(string *); /* returns the number of a nonterminal */ int get_terminal(string *); /* returns the number of a terminal */ string get_string(int); /* returns the name of a nonterminal or the value of a terminal */ int get_nt_num() { return nonterminal_table.size(); } }; /****************/ class Conjunction { friend class Grammar; friend class Intermediate; friend class Rule; Grammar * grammar; list symbols; bool is_default; public: Conjunction(Grammar *); ~Conjunction(); void add_nonterminal(string *); void add_terminal(string *); void set_default(); bool get_default() { return is_default; } void add_special(string *, list *, Parameter *); string evaluate(bool); }; /****************/ class Disjunction { friend class Grammar; friend class Rule; friend class Intermediate; Grammar * grammar; list conjunctions; int default_num; public: Disjunction(Grammar * gr=NULL); ~Disjunction(); int get_default_num(); void add_conjunction(Conjunction *); }; /*********/ class Rule { friend class Grammar; friend class Intermediate; Grammar * grammar; int left; /* left hand side nonterminal */ Disjunction * disjunction; /* the right hand side */ int type; /* special(>0) or normal(0) */ string special_type; list * parameters; /* parameter list */ Parameter * initvalue; list * modifiers; int mods; /* modifier bits */ /* textual information for the rule */ string textinfo[3]; /* transformations for the rule */ list * transformations; Intermediate * my_intermediate; public: Rule(Grammar *); ~Rule(); void set_left(string *); void set_disjunction(Disjunction *); void set_special(string *, list *, Parameter *); void add_modifiers(list *); void set_textinfo(string ** ti); void set_transformations(list *); int get_left() { return left; } Intermediate * get_intermediate() { return my_intermediate; } int get_default_selection(); int get_current_selection(); void verify_rule(); string evaluate(bool); void send(string message, bool prefix_sender=true); void recieve(char, string); }; /************/ class Grammar { friend class Intermediate; list rules; multimap constraints; list descriptions; Rule * start_rule; public: Grammar(); ~Grammar(); Broker broker; bool was_default_widget_done; // global variable for a Kaptain tree void add_rule(Rule *); void add_description(string *, list *, string **); void add_constraint(string *, string *); Rule * get_rule(int); Rule * get_start_rule() { return start_rule; } void verify(); void verify_start_rule(); void verify_recursion(); void verify_reachability(); void verify_terminateability(); void verify_descriptions(); void unify(); void unify_rules(); void unify_descriptions(); string evaluate_nonterminal(int, bool); int get_constraint_for(int); void send(string); void recieve(string); }; #endif // GRAMMAR_HH kaptain-0.73/README0000640023433300116100000000316211532667773012500 0ustar zsoltengKaptain - Universal Graphical Front-end --------------------------------------- Universal Graphical Front-end for command-line programs. (c) 2000-2004, 2011 Zsolt Terek All bug reports and suggestions are welcome. If you have made a grammar that can be useful for others, prease send it to me. To compile and install, run qmake kaptain.pro make make install What's new in Kaptain 0.73 -------------------------- Maintenance release; ported to compile with Qt4, rewritten to use qmake. What's new in Kaptain 0.72 -------------------------- Bug fixes and minor changes for Qt 3.3 and gcc-3.3 compatibility. Run configure as shown below to specify the qt directory explicitly. The script will search for `bin', `include' and `lib' subdirs below. ./configure --with-qt-dir=/my/qt/dir What's new in Kaptain 0.71 -------------------------- Bug fixes and minor changes for Qt 3 and gcc-3.2 compatibility. Run configure as shown below to specify qt include directory explicitly. ./configure --with-qt-dir=/usr/share/qt3 UPGRADING FROM Kaptain 0.6 -------------------------- Since Kaptain 0.7 was completely rewritten, the syntax of grammars has changed. To make your scripts work with Kaptain 0.7, check the followings: - All statements should end with a semicolon (;). This was only needed for rules in Kaptain 0.6, but now it is neccesary for descriptions and constraints, too. - String constants and regular expressions should be closed on the line they are opened. To write multi-line strings, the only way is to use the < #include #include #include #include "kaptain.h" #include extern char * special_names[]; extern char * modifier_names[]; extern int two_power[]; extern int extra_modifier_num; extern int glob_parse_result; extern list * glob_param_list; extern Parameter * glob_init_value; extern int glob_parse_result; extern void lexer_scan_string(const char *); extern int parserparse(); Intermediate::Intermediate(Intermediate * f) { type=0; father=f; my_rule=0; my_kaptain=0; child_num=0; grammar=0; modifiers=0; } Intermediate::~Intermediate() { list::iterator ip; for (ip=children.begin(); ip!=children.end(); ip++) if (*ip) delete *ip; } bool Intermediate::is(int i) { bool result=(modifiers & i); //cout << "IS " << modifiers << " & " << i << " = " << result << endl; return result; //return modifiers & i; } bool Intermediate::create_from(Grammar * gr, Rule * r) { grammar=gr; my_rule=r; if (my_rule==0) return false; if (my_rule->my_intermediate) return false; my_rule->my_intermediate=this; if (my_rule->type > 0) { /* special symbol */ type=SPEC; spec_type=my_rule->type; } else { assert(my_rule->disjunction!=0); /* a rule of a nonterminal */ if (my_rule->disjunction->conjunctions.size()>1) { type=DISJ; list::iterator ci; for (ci=my_rule->disjunction->conjunctions.begin(); ci!=my_rule->disjunction->conjunctions.end(); ci++) if (*ci) { Intermediate * child=new Intermediate(this); child->type=CONJ; child->grammar=grammar; child->create_from_conjunction(*ci); children.push_back(child); } child_num=children.size(); } else if (my_rule->disjunction->conjunctions.size()==1) { type=CONJ; Conjunction * only_child; only_child=*(my_rule->disjunction->conjunctions.begin()); create_from_conjunction(only_child); } else type=INVALID; } textinfo[0]=my_rule->textinfo[0]; textinfo[1]=my_rule->textinfo[1]; textinfo[2]=my_rule->textinfo[2]; modifiers=my_rule->mods; if (type==INVALID) cerr << "INVALID Intermediate Object." << endl; return true; } void Intermediate::create_from_conjunction(Conjunction * c) { //c->is_default; list::iterator ii; for (ii=c->symbols.begin(); ii!=c->symbols.end(); ii++) if (*ii<0) /* only nonteminals */ { Rule * child_rule=grammar->get_rule(*ii); if (child_rule) { Intermediate * child=new Intermediate(this); /* throw INVALID children */ if (child->create_from(grammar, child_rule)) children.push_back(child); else delete child; } } child_num=children.size(); } void Intermediate::print(int tab) { for (int i=0; iget_left()!=0) cout << grammar->broker.get_string(my_rule->get_left()) << " "; else if (my_rule) cout << "0 "; else cout << "NULL "; cout << children.size() << " "; if (! textinfo[0].empty()) cout << textinfo[0] << " " << modifiers << " "; for (int i=0; i::iterator ii; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii) (*ii)->print(tab+1); } bool Intermediate::empty() { if (type==SPEC || type==DISJ) return false; if (children.size()==0) return textinfo[0].empty(); list::iterator ii; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii && !((*ii)->empty())) return false; /* has a nonempty child */ /* all children are empty */ return true; } /* get intermediate for a given rule */ Intermediate * Intermediate::get_intermediate(int nt) { Rule * r=grammar->get_rule(nt); return r ? r->get_intermediate() : 0; } string Intermediate::evaluate_nonterminal(int nt, bool consider_noeval) { return grammar->evaluate_nonterminal(nt, consider_noeval); } string Intermediate::get_name() { string s; if (my_rule && my_rule->get_left()!=0) s=grammar->broker.get_string(my_rule->get_left()); return s; } bool Intermediate::is_default_widget() { if (grammar->was_default_widget_done) return false; grammar->was_default_widget_done=true; return true; } int Intermediate::get_default_selection() { int sel=0; if (my_rule && type==DISJ) sel=my_rule->get_default_selection(); return sel; } string Intermediate::evaluate_special() { string s; if (my_kaptain) s=my_kaptain->evaluate_special(); return s; } int Intermediate::get_selected_child() { list::iterator child; int selected=0; if (is(is_radioparent)) { for (child=children.begin(); child!=children.end(); child++) { if ((*child)->my_kaptain && (*child)->my_kaptain->radio_is_selected()) break; selected++; } if (child==children.end()) selected=0; } else if (is(is_stack) && my_kaptain) { selected=my_kaptain->get_selected_page(); } return selected; } int Intermediate::get_selected_checkbox() { int i=0; if (is(is_checkbox) && my_kaptain) i=my_kaptain->get_check_selected(); return i; } int Intermediate::get_current_selection() { return is(is_radioparent) || is(is_stack) ? get_selected_child() : get_selected_checkbox(); } /* handling parameters */ /* No 0 : initial value */ /* No 1,2,... : parameters specified in parentheses */ /* If `glob_parse_result' is 1, `glob_param_list' and `glob_init_value' are regarded */ Parameter * Intermediate::get_parameter(int n) { Parameter * par=0, * _initvalue=0; list * _parameters=0; if (glob_parse_result==0 && my_rule) { _initvalue=my_rule->initvalue; _parameters=my_rule->parameters; } else if (glob_parse_result==1) { _initvalue=glob_init_value; _parameters=glob_param_list; } if (is_special() && my_rule && n>=0) { if (n==0) par=_initvalue; else if (_parameters) { int i=0; list::iterator pp=_parameters->begin(); while (pp!=_parameters->end()) { i++; if (i==n) { par=*pp; break; } pp++; } } } return par; } int Intermediate::get_parameter_num() { int result=0; if (is_special()) if (glob_parse_result==0 && my_rule && my_rule->parameters) result=my_rule->parameters->size(); else if (glob_parse_result==1 && glob_param_list) result=glob_param_list->size(); return result; } bool Intermediate::parameter_type(int n, int ptype) { Parameter * par=get_parameter(n); return (par && par->type==ptype); } int Intermediate::get_int_parameter(int n) { Parameter * par=get_parameter(n); int result = (par && par->type==T_NUMERAL || par->type==T_NONTERM) ? par->value : -1; return result; } string Intermediate::get_string_parameter(int n) { Parameter * par=get_parameter(n); string s = (par && (par->type==T_STRING || par->type==T_REGEXP)) ? par->data : string() ; int size = s.size(); if (size>1 && s[size-1]=='\n') s.erase(size-1); return s; } void Intermediate::get_subst_parameter(int n, string & pattern, string & replacement, bool & global_flag) { Parameter * par=get_parameter(n); if (par) { pattern=par->data; replacement=par->data2; global_flag=par->value==1; } } void Intermediate::transduce() { transduce_1(); transduce_2(); } void Intermediate::transduce_1() { /* BOTTOM-UP */ bool xis_framed=false; list::iterator ii; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii) { (*ii)->transduce_1(); /* upspread SPEC rule if (children.size()==1 && (*ii)->is_special()) { type=(*ii)->type; spec_type=(*ii)->spec_type; delete *ii; *ii=0; break; inkabb a nagyapatol kellene - } */ /* FIXME !!!!!!!!!!!! */ /* get selection information before killing! */ /* 1) transfer framing data to children */ if (is(is_framed)) { xis_framed=true; (*ii)->modifiers|=2; // framed; } if ((*ii)->children.size()==1 && (*ii)->my_rule==0) { Intermediate * zombie=*ii; *ii=*(zombie->children.begin()); (*ii)->father=zombie->father; zombie->children.clear(); delete zombie; } else if ((*ii)->children.size()==0 && (*ii)->my_rule==0) { Intermediate * zombie=*ii; *ii=0; delete zombie; } } if (xis_framed) modifiers^=2; // framed children.remove(NULL); } void Intermediate::transduce_2() { /* TOP-DOWN */ /* remove :stack if not in disjunction */ if (is(is_stack) && (!is_disjunction() || is(is_tree))) modifiers^=is_stack; if (is_disjunction() && !is(is_stack) && children.size()<=1) if (child_num<3) modifiers|=is_checkbox; // checkbox else modifiers|=is_checkbox | is_tristate; list::iterator ii; bool has_spec_child=false; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii) { if ((*ii)->is_special()) has_spec_child=true; } /* remove :tree from direct specials */ if (is(is_tree) && has_spec_child) modifiers^=is_tree; int empty_child=0; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii) { if ((*ii)->empty()) empty_child++; if ((*ii)->is_special()) has_spec_child=true; /* `@integer' and `:beside' special case */ if (children.size()==1 && (*ii)->is_special() && (*ii)->spec_type==1) // @integer (*ii)->modifiers|=(is(is_beside) ? is_right_aligned : is_left_aligned); /* get label for a frame */ if (is(is_framed) && children.size()==1 && textinfo[0].empty()) { textinfo[0]=(*ii)->textinfo[0]; (*ii)->textinfo[0]=string(); } /* spread :detailed in a tree */ if (is(is_tree) && is(is_detailed)) (*ii)->modifiers|=is_detailed; // spread 'is_detailed' /* radio & checkbox work */ if (is_disjunction()) { if (is(is_stack)) modifiers|=is_stack; else if (children.size()>1 /*|| child_num>3 */) { modifiers|=is_radioparent; (*ii)->modifiers|=is_radio; // radio } else if (children.size()==1) { modifiers|=is_checkbox; // checkbox if (textinfo[0].empty()) { textinfo[0]=(*children.begin())->textinfo[0]; (*children.begin())->textinfo[0]=string(); } } } (*ii)->transduce_2(); } /* if (children.size()==3 && is(is_radioparent) && (empty_child==2 && !(children.front()->empty()) || empty_child==3)) { modifiers|=is_tristate; modifiers^=is_radioparent; list::iterator ii; for (ii=children.begin(); ii!=children.end(); ii++) if (*ii) { (*ii)->modifiers^=is_radio; } } */ } void Intermediate::send(string message, char separ) { if (is_special() && father) /* send throuh SPEC's father */ father->send(message); else if (my_rule) if (separ!=0) /* send directly */ my_rule->send(separ+message); else my_rule->send(message, false); } void Intermediate::recieve(string message) { if (children.size()==1 && children.front()->is_special()) /* process at the SPEC child */ children.front()->recieve(message); else { /* process here */ if (is_special()) { lexer_scan_string(message.c_str()); glob_parse_result=-1; glob_param_list=0; glob_init_value=0; if (parserparse()==0 && glob_parse_result==1 && my_kaptain) { /* save old parameters, initvalue */ /* reset the widget */ my_kaptain->create_special(); /* restore old parameters, initvalue if the new ones are 0 */ my_rule->set_special(0, glob_param_list, glob_init_value); glob_parse_result=0; glob_init_value=0; glob_param_list=0; // get_parameter now works again // on my_rule's params } /* garbage collection */ if (glob_init_value) delete glob_init_value; if (glob_param_list) { list::iterator pi; for (pi=glob_param_list->begin(); pi!=glob_param_list->end(); pi++) if (*pi) delete (*pi); delete glob_param_list; } } else /* not special */ if (type==DISJ && message[0]=='=') if (message[1]!='\r' && message[1]!='\n') { int res=0; if (sscanf(message.c_str()+1,"%d",&res)==1) { my_kaptain->select_it(res); } } else { int res=0; ostringstream reply; res=get_current_selection(); reply << res; send(reply.str(),'='); } } } kaptain-0.73/intermediate.h0000640023433300116100000000413311162144266014424 0ustar zsolteng#ifndef INTERMEDIATE__HH #define INTERMEDIATE__HH #include #include using namespace std; class Grammar; class Rule; class Conjunction; class Parameter; class Kaptain; #define INVALID 0 #define DISJ 1 #define CONJ 2 #define SPEC 3 #define is_tabbed 1 #define is_framed 2 #define is_horizontal 4 #define is_wizard 8 #define is_subdialog 16 #define is_reverse 32 #define is_noeval 64 #define is_double 128 #define is_beside 256 #define is_tree 512 #define is_detailed 1024 #define is_stack 2048 #define is_checkbox 4096 #define is_tristate 8192 #define is_radioparent 16384 #define is_left_aligned 32768 #define is_right_aligned 65536 #define is_radio 131072 class Intermediate { friend class Kaptain; friend class Rule; list children; Intermediate * father; int type; int child_num; // before deleting some... Rule * my_rule; Kaptain * my_kaptain; Grammar * grammar; string textinfo[3]; int spec_type; int modifiers; public: Intermediate(Intermediate *); ~Intermediate(); bool is_disjunction() { return type==DISJ; } bool is_conjunction() { return type==CONJ; } bool is_special() { return type==SPEC; } bool is(int i); bool empty(); /* interface to grammar */ Intermediate * get_intermediate(int); string evaluate_nonterminal(int, bool); string get_name(); bool is_default_widget(); int get_default_selection(); /* interface to kaptain */ int get_selected_child(); int get_selected_checkbox(); int get_current_selection(); string evaluate_special(); /* parameters and initvalue */ Parameter * get_parameter(int); int get_parameter_num(); bool parameter_type(int, int); int get_int_parameter(int); string get_string_parameter(int); void get_subst_parameter(int, string &, string &, bool &); bool create_from(Grammar *, Rule *); void create_from_conjunction(Conjunction *); void transduce(); void transduce_1(); void transduce_2(); void print(int); void recieve(string); void send(string message, char separ=':'); }; #endif // INTERMEDIATE__HH kaptain-0.73/kaptain.cpp0000640023433300116100000014561311531162201013732 0ustar zsolteng#include "tools.h" #include "process.h" #include "kaptain.h" #include "intermediate.h" #include "grammar.h" #include #include #include #include #include #include #include #include #include //Added by qt3to4: #include #include #include #include #include #include #include #include #include #include #include #define BORDER 10 #define SPACING 5 extern bool global_test; extern Grammar * yygrammar; /* ---------------------------------------------------------------------- */ QRegValidator::QRegValidator(QString s, QWidget *parent, const char *name ) : QValidator(parent,name) { compiled_pattern=new regex_t; valid=!regcomp(compiled_pattern, s, REG_EXTENDED); if (!valid) cerr << "Ignoring invalid regular expression:" << (const char*)s << endl; } QRegValidator::~QRegValidator() { delete compiled_pattern; } QValidator::State QRegValidator::validate(QString & s, int &) const { regmatch_t regs[10]; QValidator::State state=QValidator::Invalid; const char * str=s; if (valid && str && regexec(compiled_pattern, str, 10, regs, 0)==0) state=QValidator::Acceptable; return state; } /* ---------------------------------------------------------------------- */ QPixmap & get_pixmap(QString file_name) { QPixmap * pm=new QPixmap(file_name); return *pm; } void image_text(string s, string & image, string & text) { list result; image=string(); // clear text=string(); if (Regexp::matches("^\\{(.*)\\}(.*)$",s, result) && result.size()==2) { image=result.front(); text=result.back(); } else text=s; } /* make button label or image */ void button_label(QPushButton * push_button, string s) { string image, text; image_text(s, image, text); if (image.empty()) push_button->setText(text.c_str()); else push_button->setPixmap(get_pixmap(image.c_str())); } /* ---------------------------------------------------------------------- */ Kaptain::Kaptain(Intermediate * i, Kaptain * p, QWidget * widget, Q3BoxLayout * layout, QDialog * dialog, bool _no_title, const char *) { im=i; assert(im!=0); im->my_kaptain=this; parent=p; /* parent_widget is always needed */ parent_widget=widget; parent_dialog=dialog; parent_layout=layout; if (!parent_widget) { if (im->is(is_wizard) && parent==0) { /* only top level wizard */ wizard=new Q3Wizard(dialog, im->get_name().c_str(), true); parent_dialog=wizard; parent_widget=parent_dialog; } else { parent_dialog=new QDialog(dialog, im->get_name().c_str(), true); parent_widget=parent_dialog; parent_layout=new Q3VBoxLayout(parent_widget, BORDER, SPACING); } kill_dialog=true; } else kill_dialog=false; myself=0; radio_button=0; checkbox=0; spin_box=0; line_edit=0; tab_widget=0; list_box=0; combo_box=0; push_button=0; list_view=0; list_view_item=0; widget_stack=0; my_panel=0; mapping=0; stack_size=0; container_source=0; edit=0; child_dialog=0; alignment=0; grid=0; grid_rows=1; grid_columns=1; no_title=_no_title; done_title=false; title=im->textinfo[0].c_str(); tooltip=im->textinfo[1].c_str(); whatsthis=im->textinfo[2].c_str(); no_tree=false; // forbids tree creation if true ignore_radio=false; children.setAutoDelete(true); create(); set_info(myself); } Kaptain::~Kaptain() { /* if (kill_dialog && parent_dialog) delete parent_dialog; */ if (mapping) delete mapping; } void Kaptain::create() { if (im->type==INVALID) return; if (im->is(is_wizard) && parent==0) { // only toplevel node can be wizard create_wizard(); } else if (parent && parent->im->is(is_tree) && !no_tree) { /*-- inside a tree --*/ create_tree_item(); } else { /*-- out of a tree --*/ no_title=no_title || im->is(is_subdialog); /** create frame **/ if (im->is(is_framed)) create_frame(); /** create title **/ create_title(); // also creates sublayout /** create object(s) **/ if (im->is_special()) { /* a special object */ create_minimum_layout(); create_special(); /* using proper alignment */ if (im->is(is_left_aligned)) alignment=Qt::AlignLeft; if (im->is(is_right_aligned)) alignment=Qt::AlignRight; /* inserted into a layout */ if (myself) parent_layout->addWidget(myself, 0, alignment); /* give keyboard focus to the first SPEC widget */ if (myself && im->is_default_widget()) myself->setFocus(); } else { /* children sequence */ if (im->is(is_tabbed)) { /* tab widget */ create_minimum_layout(); create_tabbed(); } else if (im->is(is_tree)) { /* tree view */ create_minimum_layout(); create_tree_view(); } else if (im->is(is_subdialog)) { /* subdialog */ create_minimum_layout(); create_subdialog(); } else if (im->is(is_stack)) { /* stack */ create_minimum_layout(); create_stack(); } else { /* box layout */ if (im->is(is_double)) create_grid_layout(); create_sequence(); } } } } void Kaptain::create_frame() { if (!parent_layout) { parent_layout=new Q3VBoxLayout(parent_widget, SPACING); } Q3GroupBox * frame=new Q3GroupBox(title, parent_widget); done_title=true; parent_widget=frame; parent_layout->addWidget(parent_widget); int frame_size = 2*frame->lineWidth() + frame->midLineWidth() + frame->margin(); parent_layout=new Q3VBoxLayout(frame, frame_size+5, SPACING); parent_layout->addSpacing(frame->fontMetrics().height()-frame_size); set_info(frame); } void Kaptain::create_title() { /* dialog title */ if (kill_dialog) // I'm dialog owner { parent_dialog->setCaption(title); // what about icons ??? done_title=true; } if (!((no_title || done_title))) //&& !im->is(is_radio) && !im->is(is_checkbox)) { /* need a layout for the title */ Q3BoxLayout::Direction need_dir=Q3BoxLayout::TopToBottom; if (im->is(is_beside)) need_dir=Q3BoxLayout::LeftToRight; if (!(parent_layout && parent_layout->direction()==need_dir)) { if (parent_layout) parent_layout=new Q3BoxLayout(parent_layout, need_dir, SPACING); else parent_layout=new Q3BoxLayout(parent_widget, need_dir, BORDER, SPACING); } if (im->is(is_radio) && !ignore_radio) { /* place a radio button */ radio_button=new QRadioButton(title, parent_widget); parent_layout->addWidget(radio_button); connect(radio_button, SIGNAL(clicked()), SLOT(radio_clicked())); done_title=true; set_info(radio_button); } if (im->is(is_checkbox)) { if (im->is(is_radio) && !ignore_radio) // both radio and checkbox { /* radio was done above. insert indentation */ Q3HBoxLayout * indent=new Q3HBoxLayout(parent_layout); indent->addSpacing(parent_widget->fontMetrics().height() +SPACING); Q3VBoxLayout * indent2=new Q3VBoxLayout(indent); parent_layout=indent2; /* FIXME shouldn't the title differ? */ } /* create checkbox */ checkbox=new QCheckBox(title, parent_widget); if (im->is(is_tristate)) checkbox->setTristate(); parent_layout->addWidget(checkbox); connect(checkbox, SIGNAL(stateChanged(int)), SLOT(message_checkbox(int))); done_title=true; set_info(checkbox); } if (!no_title && !done_title && !title.isEmpty()) { /* if all else fails, a simple label */ QLabel * label=new QLabel(title, parent_widget); parent_layout->addWidget(label); set_info(label); } done_title=true; /* put content a bit indented to the radio or checkbox */ if ( ( im->is(is_radio) || im->is(is_checkbox) ) && need_dir==Q3BoxLayout::TopToBottom && !(im->empty())) { Q3HBoxLayout * indent=new Q3HBoxLayout(parent_layout); indent->addSpacing(parent_widget->fontMetrics().height()+SPACING); parent_layout=indent; } } // create sublayout suitable for children create_sublayout(); } void Kaptain::create_minimum_layout() { if (parent_layout==0) parent_layout=new Q3VBoxLayout(parent_widget, BORDER, SPACING); } void Kaptain::create_sublayout() { Q3BoxLayout::Direction dir; /* calculate layout direction needed */ if (im->is(is_double)) dir=Q3BoxLayout::TopToBottom; // no matter what direction else if (im->is(is_horizontal) || im->is(is_beside)) if (im->is(is_reverse)) dir=Q3BoxLayout::RightToLeft; else dir=Q3BoxLayout::LeftToRight; else if (im->is(is_reverse)) dir=Q3BoxLayout::BottomToTop; else dir=Q3BoxLayout::TopToBottom; /* create if parent_layout is different */ if (!(parent_layout && (parent_layout->direction()==dir || im->is(is_double)))) { if (parent_layout) parent_layout=new Q3BoxLayout(parent_layout, dir, SPACING); else parent_layout=new Q3BoxLayout(parent_widget, dir, BORDER, SPACING); } /* grid layout is created just before create_sequence() is called */ } void Kaptain::create_grid_layout() { /* double columns or rows */ grid_rows=(im->children.size()+1)/2; grid_columns=2; if (im->is(is_horizontal)) { int t=grid_rows; grid_rows=grid_columns; grid_columns=t; } grid=new Q3GridLayout(parent_layout, grid_rows, grid_columns, SPACING); //parent_layout->setStretchFactor(grid, 1); /*for (int i=0; isetRowStretch(i,1); for (int i=0; isetColStretch(i,1);*/ } void Kaptain::create_sequence() { create_sublayout(); int child_index=0, child_num=im->children.size(); list::iterator ii; for (ii=im->children.begin(); ii!=im->children.end(); ii++) if (*ii) { /* render new layout if needed */ Q3BoxLayout * new_layout=parent_layout; if (im->is(is_double)) { int x,y, pos=child_index; if (im->is(is_reverse)) pos=child_num-1-pos; x=pos / 2; y=pos % 2; if (im->is(is_horizontal)) {int t=x;x=y;y=t;} new_layout=new Q3VBoxLayout(SPACING); grid->addLayout(new_layout, x, y); } Kaptain * child=new Kaptain(*ii, this, parent_widget, new_layout, parent_dialog); children.append(child); child_index++; } select_defaults(); } void Kaptain::select_defaults() { /* default selection */ if (im->type==DISJ) { int sel=im->get_default_selection(); select_it(sel); } } void Kaptain::select_it(int sel) { int item=0; Kaptain * child; if (im->is(is_radioparent)) { for (child=children.first(); child; child=children.next()) { if (item==sel) break; item++; } if (!child) child=children.first(); child->radio_select(true); } else if (im->is(is_checkbox)) if (checkbox) if (im->is(is_tristate)) switch (sel) { case 0: checkbox->setChecked(true); break; case 1: checkbox->setNoChange(); break; case 2: checkbox->setChecked(false); break; default: break; } else checkbox->setChecked(!sel); else { if (list_view_item) ((Q3CheckListItem *)list_view_item)->setOn(!sel); } else if (im->is(is_stack)) { select_page(sel); } } void Kaptain::create_tabbed() { tab_widget=new QTabWidget(parent_widget); parent_layout->addWidget(tab_widget); list::iterator ii; for (ii=im->children.begin(); ii!=im->children.end(); ii++) if (*ii) { QWidget * new_widget=new QWidget(tab_widget); tab_widget->addTab(new_widget, QString((*ii)->textinfo[0].c_str())); Kaptain * child=new Kaptain(*ii, this, new_widget, 0, parent_dialog, true); children.append(child); } } void Kaptain::create_stack() { widget_stack=new Q3WidgetStack(parent_widget); parent_layout->addWidget(widget_stack); int i=0; list::iterator ii; for (ii=im->children.begin(); ii!=im->children.end(); ii++) if (*ii) { QWidget * new_widget=new QWidget(widget_stack); widget_stack->addWidget(new_widget, i); Kaptain * child=new Kaptain(*ii, this, new_widget, 0, parent_dialog, true); children.append(child); i++; } select_defaults(); } void Kaptain::select_page(int p) { if (widget_stack && mapping==0) widget_stack->raiseWidget(p); } int Kaptain::get_selected_page() { int selected=0; if (widget_stack) { selected=widget_stack->id(widget_stack->visibleWidget()); if (selected==-1) selected=0; } return selected; } Kaptain * Kaptain::get_tree_top() { /* find topmost tree element */ Kaptain * ancestor=this; while (ancestor && ancestor->widget_stack==0) ancestor=ancestor->parent; return ancestor; } void Kaptain::create_tree_view() { list_view=new Q3ListView(parent_widget); mapping=new Q3PtrDict; parent_layout->addWidget(list_view); /* list view setup */ list_view->setSorting(-1); list_view->setRootIsDecorated(true); list_view->addColumn(QString()); if (im->is(is_detailed)) list_view->addColumn(QString()); // two columns else list_view->header()->hide(); // no header /* create widget stack */ widget_stack=new Q3WidgetStack(parent_widget); list::reverse_iterator ii; /* simply insert child nodes */ for (ii=im->children.rbegin(); ii!=im->children.rend(); ii++) if (*ii) { Kaptain * child=new Kaptain(*ii, this, parent_widget, parent_layout, parent_dialog); children.append(child); } select_defaults(); if (stack_size) /* panel should be created */ { /* insert empty panel with 0 id */ widget_stack->addWidget(new QWidget(widget_stack),0); parent_layout->addWidget(widget_stack); connect(list_view, SIGNAL(currentChanged(Q3ListViewItem *)), SLOT(panel_selected(Q3ListViewItem *))); } else delete widget_stack; list_view->adjustSize(); } void Kaptain::create_tree_item() { // take image and label // string img, txt, tit; tit=title.latin1(); image_text(tit,img,txt); title=QString(txt.c_str()); if (parent && parent->list_view_item) { if (im->is(is_radioparent)) list_view_item=new Q3CheckListItem(parent->list_view_item, title, Q3CheckListItem::Controller); else if (im->is(is_radio)) { list_view_item=new Q3CheckListItem((Q3CheckListItem *) parent->list_view_item, title, Q3CheckListItem::RadioButton); } else if (im->is(is_checkbox)) { list_view_item=new Q3CheckListItem(parent->list_view_item, title, Q3CheckListItem::CheckBox); } else list_view_item=new Q3ListViewItem(parent->list_view_item, title); } else if (parent && parent->list_view) { if (im->is(is_radioparent)) list_view_item=new Q3CheckListItem(parent->list_view, title, Q3CheckListItem::Controller); else if (im->is(is_radio)) { parent->list_view_item= new Q3CheckListItem(parent->list_view, parent->title, Q3CheckListItem::Controller); list_view_item=new Q3CheckListItem((Q3CheckListItem *) parent->list_view_item, title, Q3CheckListItem::RadioButton); } else if (im->is(is_checkbox)) { list_view_item=new Q3CheckListItem(parent->list_view, title, Q3CheckListItem::CheckBox); } else list_view_item=new Q3ListViewItem(parent->list_view, title); } if (im->is(is_detailed)) list_view_item->setText(1,tooltip); if (!img.empty()) list_view_item->setPixmap(0, get_pixmap(img.c_str())); no_tree=!(im->is(is_tree)) || im->is_special() || im->is(is_radio) || im->is(is_checkbox); /* only insert children into widget stack, not this node */ ignore_radio= im->is(is_radio) && im->is(is_checkbox); no_title= im->is(is_radio) != im->is(is_checkbox); if (no_tree) { /* create this node again on the widget_stack */ Kaptain * top=get_tree_top(); parent_widget=new QWidget(top->widget_stack); my_panel=parent_widget; parent_layout=0; top->widget_stack->addWidget(parent_widget,top->stack_size); /* to raise the widget when the tree item is selected the mapping list_view_item->Kaptain is needed */ top->mapping->insert((void *)list_view_item, this); /* call create again with no_tree set */ if (im->children.size()>0 || ignore_radio) { create(); top->stack_size++; } } else { list::reverse_iterator ii; /* insert child nodes */ for (ii=im->children.rbegin(); ii!=im->children.rend(); ii++) if (*ii) { Kaptain * child=new Kaptain(*ii, this, parent_widget, parent_layout, parent_dialog); children.append(child); } } select_defaults(); } void Kaptain::panel_selected(Q3ListViewItem * item) { Kaptain * owner=mapping->find((void *)item); if (owner) widget_stack->raiseWidget(owner->my_panel); else widget_stack->raiseWidget(0); } void Kaptain::create_subdialog() { QString label; push_button=new QPushButton(parent_widget); parent_layout->addWidget(push_button); button_label(push_button, title.latin1()); push_button->setFixedSize(push_button->sizeHint()); connect(push_button, SIGNAL(clicked()), SLOT(subdialog_clicked())); if (im->children.size()>1) { child_dialog=new QDialog(parent_dialog, im->get_name().c_str(), true); Q3BoxLayout * child_layout=new Q3VBoxLayout(child_dialog, BORDER, SPACING); child_dialog->setCaption(title); list::iterator ii; for (ii=im->children.begin(); ii!=im->children.end(); ii++) if (*ii) { Kaptain * child=new Kaptain(*ii, this, child_dialog, child_layout, child_dialog); children.append(child); } } else if (im->children.size()==1) { Kaptain * child=new Kaptain(im->children.front(), this, 0, 0, 0); children.append(child); child_dialog=child->main_dialog(); } } void Kaptain::create_wizard() { list::iterator ii; for (ii=im->children.begin(); ii!=im->children.end(); ii++) if (*ii) { QWidget * new_widget=new QWidget(wizard); wizard->addPage(new_widget, QString((*ii)->textinfo[0].c_str())); wizard->setCaption(title); wizard->setHelpEnabled(new_widget, false); Kaptain * child=new Kaptain(*ii, this, new_widget, 0, wizard, true); children.append(child); } } void Kaptain::create_special() { int spec=im->spec_type; bool again=false; /* creates a widget and sets myself to point to it */ switch (spec) { case 1: // @integer again=spin_box; if (!again) { spin_box=new QSpinBox(parent_widget); myself=spin_box; spin_box->setFixedSize(spin_box->sizeHint()); } { /* initial setup */ int min=0, max=99, init=0; if (im->parameter_type(0,T_NUMERAL)) init=im->get_int_parameter(0); if (im->parameter_type(1,T_NUMERAL)) min=im->get_int_parameter(1); if (im->parameter_type(2,T_NUMERAL)) max=im->get_int_parameter(2); if (maxmax) init=max; spin_box->setRange(min,max); spin_box->setValue(init); } break; case 2: // @string --> @float, @regex, @password again=line_edit; if (!again) { line_edit=new QLineEdit(parent_widget); myself=line_edit; } /* initial value */ if (im->parameter_type(0,T_STRING)) line_edit->setText(QString(im->get_string_parameter(0).c_str())); /* maximum length */ if (im->parameter_type(1,T_NUMERAL)) line_edit->setMaxLength(im->get_int_parameter(1)); break; case 3: // @list --> @combo, @comborw { again=list_box; if (!again) { list_box=new Q3ListBox(parent_widget); connect(list_box, SIGNAL(highlighted(const QString &)), SLOT(message_listbox(const QString &))); myself=list_box; } else { if (im->get_parameter_num()>0) list_box->clear(); } bool has_string_regexp_init=false, regexp=false; bool s_global_flag=false, has_substitution=false; string s_pattern, s_replacement, pattern; list result; if (im->parameter_type(0,T_STRING) || im->parameter_type(0,T_REGEXP)) { has_string_regexp_init=true; regexp=im->parameter_type(0,T_REGEXP); pattern=im->get_string_parameter(0); } int items_inserted=0; /* process parameters and initvalue */ int pn=im->get_parameter_num(); for (int i=1; i<=pn; i++) { if (im->parameter_type(i,T_SUBST)) { /* update substitution */ has_substitution=true; im->get_subst_parameter(i, s_pattern, s_replacement, s_global_flag); } if (im->parameter_type(i,T_STRING)) { list lines; Regexp::split('\n', im->get_string_parameter(i), lines); list::iterator it; for (it=lines.begin(); it!=lines.end(); it++) { string original_line=(*it), modified_line=original_line; /* execute substitution */ if (has_substitution) Regexp::substitute(s_pattern, original_line, s_replacement, modified_line, s_global_flag); list_box->insertItem(modified_line.c_str()); if (has_string_regexp_init) { /* select the line - equal to a string - matching a regexp */ if ((!regexp && pattern==(*it)) || (regexp && Regexp::matches (pattern, original_line, result))) { has_string_regexp_init=false; // select first choice list_box->setCurrentItem(items_inserted); } } items_inserted++; } } } /* integer initvalue */ if (im->parameter_type(0,T_NUMERAL)) list_box->setCurrentItem(im->get_int_parameter(0)-1); } break; case 4: // @float --> @string, @regex, @password again=line_edit; if (!again) { line_edit=new QLineEdit(parent_widget); myself=line_edit; line_edit->setValidator(new QDoubleValidator(parent_widget)); } /* initial value */ if (im->parameter_type(0,T_STRING)) line_edit->setText(QString(im->get_string_parameter(0).c_str())); if (im->parameter_type(0,T_NUMERAL)) line_edit->setText(QString::number(im->get_int_parameter(0))); break; case 5: // @button case 12: // @close case 13: // @action case 16: // @exec case 17: // @echo case 20: // @execclose case 21: // @execbuffer case 22: // @dump case 23: // @preview case 26: // @fork again=push_button; if (!again) { push_button=new QPushButton(parent_widget); myself=push_button; } /* initial value is the label */ if (im->parameter_type(0,T_STRING)) button_label(push_button, im->get_string_parameter(0)); push_button->setFixedSize(push_button->sizeHint()); if (im->parameter_type(0,T_STRING) && im->get_string_parameter(0)[0]==' ') //if (im->is_default_button()) push_button->setDefault(true); /* button pressed ... */ if (!again) connect(push_button, SIGNAL(clicked()), SLOT(button_pressed())); break; case 6: // @regex --> @string, @float, @password again=line_edit; if (!again) { line_edit=new QLineEdit(parent_widget); myself=line_edit; } /* first parameter is regular expression */ if (im->parameter_type(1,T_STRING) || im->parameter_type(1,T_REGEXP)) { line_edit->setValidator (new QRegValidator(im->get_string_parameter(1).c_str(), parent_widget)); list result; /* initial value */ if (im->parameter_type(0,T_STRING) && Regexp::matches(im->get_string_parameter(1).c_str(), im->get_string_parameter(0).c_str(),result)) line_edit->setText(im->get_string_parameter(0).c_str()); } break; case 7: // @infile case 8: // @outfile case 9: // @directory again=line_edit; if (!again) { myself=new Q3HBox(parent_widget); ((Q3HBox *)myself)->setSpacing(SPACING); line_edit=new QLineEdit(myself); push_button=new QPushButton(myself); push_button->setText("..."); push_button->adjustSize(); } if (im->parameter_type(0,T_STRING)) line_edit->setText(im->get_string_parameter(0).c_str()); /* button pressed ... */ if (!again) connect(push_button, SIGNAL(clicked()), SLOT(button_pressed())); break; case 10: // @combo case 15: // @combow --> @list { again=combo_box; if (!again) { combo_box=new QComboBox(spec==15, parent_widget); connect(combo_box, SIGNAL(activated(const QString &)), SLOT(message_listbox(const QString &))); myself=combo_box; } else { if (im->get_parameter_num()>0) combo_box->clear(); } bool has_string_regexp_init=false, regexp=false; bool s_global_flag=false, has_substitution=false; string s_pattern, s_replacement, pattern; list result; if (im->parameter_type(0,T_STRING) || im->parameter_type(0,T_REGEXP)) { has_string_regexp_init=true; regexp=im->parameter_type(0,T_REGEXP); pattern=im->get_string_parameter(0); } int items_inserted=0; /* process parameters and initvalue */ int pn=im->get_parameter_num(); for (int i=1; i<=pn; i++) { if (im->parameter_type(i,T_SUBST)) { /* update substitution */ has_substitution=true; im->get_subst_parameter(i, s_pattern, s_replacement, s_global_flag); } if (im->parameter_type(i,T_STRING)) { list lines; Regexp::split('\n', im->get_string_parameter(i), lines); list::iterator it; for (it=lines.begin(); it!=lines.end(); it++) { string original_line=(*it), modified_line=original_line; /* execute substitution */ if (has_substitution) Regexp::substitute(s_pattern, original_line, s_replacement, modified_line, s_global_flag); combo_box->insertItem(modified_line.c_str()); if (has_string_regexp_init) { /* select the line - equal to a string - matching a regexp */ if ((!regexp && pattern==(*it)) || (regexp && Regexp::matches (pattern, original_line, result))) { has_string_regexp_init=false; // select first choice combo_box->setCurrentItem(items_inserted); } } items_inserted++; } } } /* integer initvalue */ if (im->parameter_type(0,T_NUMERAL)) combo_box->setCurrentItem(im->get_int_parameter(0)-1); } break; case 11: // @container { again=list_box; if (!again) { Q3VBox * vbox=new Q3VBox(parent_widget); myself=vbox; Q3HBox * hbox=new Q3HBox(vbox); hbox->setSpacing(SPACING); vbox->setSpacing(SPACING); list_box=new Q3ListBox(vbox); // buttons push_button=new QPushButton(hbox); push_button2=new QPushButton(hbox); } string txt_add("Add"); string txt_remove("Remove"); /* 1: source for the container: NONTERMINAL */ if (im->parameter_type(1,T_NONTERM)) container_source=im->get_int_parameter(1); /* 2,3: Add, Remove button label: string */ if (im->parameter_type(2,T_STRING)) txt_add=im->get_string_parameter(2); if (im->parameter_type(3,T_STRING)) txt_remove=im->get_string_parameter(3); // text or image label if (!again || im->parameter_type(2,T_STRING)) button_label(push_button, txt_add.c_str()); if (!again || im->parameter_type(3,T_STRING)) button_label(push_button2, txt_remove.c_str()); push_button->setFixedSize(push_button->sizeHint()); push_button2->setFixedSize(push_button2->sizeHint()); /* when button is pressed */ if (!again) { connect(push_button, SIGNAL(clicked()), SLOT(container_add())); connect(push_button2, SIGNAL(clicked()), SLOT(container_remove())); } } break; case 14: // @edit --> @preview's pressed action { again=edit; if (!again) { edit=new Q3MultiLineEdit(parent_widget); myself=edit; } /* init value */ if (im->parameter_type(0,T_STRING)) edit->setText(im->get_string_parameter(0).c_str()); int param=1; /* font, size parameters */ if (im->parameter_type(1,T_STRING)) { string font_name=im->get_string_parameter(1); QFont font(font_name.c_str()); if (font_name[0]=='-') font.setRawName(font_name.c_str()); edit->setFont(font); param++; } /* window size */ if (im->parameter_type(param,T_NUMERAL)) edit->setMinimumWidth(im->get_int_parameter(param)); if (im->parameter_type(param+1,T_NUMERAL)) edit->setMinimumHeight(im->get_int_parameter(param+1)); } break; case 18: // @icon { QLabel * label=(QLabel *)myself; again=label; if (!again) { label=new QLabel(parent_widget); myself=label; } if (im->parameter_type(1,T_STRING)) { QPixmap & pixmap=get_pixmap(im->get_string_parameter(1).c_str()); label->setPixmap(pixmap); label->setFixedSize(pixmap.size()); } } break; case 19: // @text { QLabel * text=(QLabel *)myself; again=text; if (!again) { text=new QLabel(parent_widget); myself=text; text->setAlignment(Qt::AlignLeft|Qt::AlignTop|Qt::TextWordWrap); text->setFrameStyle(Q3Frame::Panel | Q3Frame::Sunken); } /* concatenate parameters */ list lines; int pm=im->get_parameter_num(); for (int i=0; i<=pm; i++) { if (im->parameter_type(i,T_STRING)) lines.push_back(im->get_string_parameter(i)); } string joined; Regexp::join('\n', lines, joined); text->setText(joined.c_str()); } break; case 24: // @size if (im->parameter_type(1,T_NUMERAL)) parent_widget->setMinimumWidth(im->get_int_parameter(1)); if (im->parameter_type(2,T_NUMERAL)) parent_widget->setMinimumHeight(im->get_int_parameter(2)); if (im->parameter_type(3,T_NUMERAL)) parent_widget->setMaximumWidth(im->get_int_parameter(3)); if (im->parameter_type(4,T_NUMERAL)) parent_widget->setMaximumHeight(im->get_int_parameter(4)); break; case 25: // @password --> @string, @float, @regex again=line_edit; if (!again) { line_edit=new QLineEdit(parent_widget); myself=line_edit; line_edit->setEchoMode(QLineEdit::Password); } /* initial value */ if (im->parameter_type(0,T_STRING)) line_edit->setText(QString(im->get_string_parameter(0).c_str())); /* maximum length */ if (im->parameter_type(1,T_NUMERAL)) line_edit->setMaxLength(im->get_int_parameter(1)); break; case 27: // @fill myself=new QWidget(parent_widget); parent_layout->addWidget(myself,1); myself=0; // do not add it later to the layout break; case 28: // @multicol -:-> @list { again=list_view; if (!again) { list_view=new Q3ListView(parent_widget); list_view->setAllColumnsShowFocus(true); list_view->setSorting(-1); myself=list_view; } else { list_view->clear(); } /* coulomn separation, substitution */ bool has_regexp=false, has_substitution=false; string s_pattern, s_replacement; string separator_reg; bool s_global_flag; list result; /* initial value selection */ bool init_regexp=false, init_string=false, init_number=false; int init_num=0; string init_str; string init_reg; /* initial value */ if (im->parameter_type(0,T_NUMERAL)) { init_number=true; init_num=im->get_int_parameter(0); } if (im->parameter_type(0,T_REGEXP)) { init_regexp=true; init_reg=im->get_string_parameter(0); } if (im->parameter_type(0,T_STRING)) { init_string=true; init_str=im->get_string_parameter(0); } int i=1, item_inserted=0, pn=im->get_parameter_num(); bool init_selected=false, has_header=false; int max_col_num=0; Q3ListViewItem * current_item=0; /* optional first regexp */ if (im->parameter_type(i, T_REGEXP)) { has_regexp=true; separator_reg=im->get_string_parameter(i); i++; } for (; i<=pn; i++) { /* process multiline strings like for @list */ if (im->parameter_type(i,T_SUBST)) { /* update substitution */ has_substitution=true; im->get_subst_parameter(i, s_pattern, s_replacement, s_global_flag); } if (im->parameter_type(i,T_STRING)) { list lines; Regexp::split('\n', im->get_string_parameter(i), lines); list::iterator it; for (it=lines.begin(); it!=lines.end(); it++) { string original_line=(*it), modified_line=original_line; /** substitution **/ if (has_substitution) Regexp::substitute(s_pattern, original_line, s_replacement, modified_line, s_global_flag); /** separation **/ result.clear(); if (has_regexp) // separate using regexp { if (!Regexp::matches (separator_reg, modified_line, result)) result.push_back(modified_line); } else // separate at tabs { Regexp::split('\t', modified_line, result); } if (has_header) current_item=new Q3ListViewItem(list_view,current_item); /** inserting the fields **/ list::iterator si; int col=0; for (si=result.begin(); si!=result.end(); si++, col++) if (has_header) { if (max_col_num==col) { max_col_num++; list_view->addColumn(""); } current_item->setText(col,(*si).c_str()); } else { /* create header field */ list_view->addColumn((*si).c_str()); max_col_num++; } /** selection **/ result.clear(); if (!init_selected && has_header) { /* select the line - equal to a string - matching a regexp - equal to an integer */ if ((init_string && init_str.c_str()==(*it)) || (init_number && init_num==item_inserted+1) || (init_regexp && Regexp::matches (string(init_reg), string(original_line), result))) { init_selected=true; // select first choice list_view->setCurrentItem(current_item); } } if (has_header) item_inserted++; has_header=true; //only the first time } } } } break; case 29: // @line { again=myself; if (!again) { Q3Frame * line=new Q3Frame(parent_widget); line->setFrameStyle( Q3Frame::HLine | Q3Frame::Sunken ); myself=line; } } break; default: // fallback to @integer again=spin_box; if (!again) { spin_box=new QSpinBox(parent_widget); myself=spin_box; } } } void Kaptain::set_info(QWidget * w) { if (w) { if (!tooltip.isEmpty()) QToolTip::add(w, tooltip); if (!whatsthis.isEmpty()) Q3WhatsThis::add(w, whatsthis); } } /* ---------- RADIO BUTTONS ---------- */ bool Kaptain::radio_is_selected() { bool is=false; if (radio_button) is=radio_button->isChecked(); else if (im->is(is_radio) && list_view_item) is=((Q3CheckListItem *)list_view_item)->isOn(); return is; } void Kaptain::radio_select(bool on) { if (radio_button) radio_button->setChecked(on); else if (im->is(is_radio) && list_view_item) { ((Q3CheckListItem *)list_view_item)->setOn(on); } if (on) im->send("selected"); } void Kaptain::radio_clicked() { /* deselect others */ Kaptain * brother; for (brother=parent->children.first(); brother!=0; brother=parent->children.next()) if (brother) { brother->radio_select(false); } /* select this */ radio_select(true); } int Kaptain::get_check_selected() { int is=0; if (checkbox) if (checkbox->isTristate()) switch (checkbox->state()) { case QCheckBox::Off: is=2; break; case QCheckBox::NoChange: is=1; break; case QCheckBox::On: is=0; break; default: break; } else is=checkbox->isChecked() ? 0 : 1; else if (im->is(is_checkbox) && list_view_item) is=((Q3CheckListItem *)list_view_item)->isOn() ? 0 : 1; return is; } string Kaptain::evaluate_parameter(int i, bool consider_noeval) { string eval; if (im->parameter_type(i,T_NONTERM)) { int nt=im->get_int_parameter(i); eval=im->evaluate_nonterminal(nt, consider_noeval); } else if (im->parameter_type(i,T_STRING)) { eval=im->get_string_parameter(i); } return eval; } /* Ask topmost Kaptain to quit */ void Kaptain::quit() { Kaptain * p=this; /* fing topmost node */ while (p->parent) p=p->parent; /* tell him to stop */ connect(this, SIGNAL(close()), p->parent_dialog, SLOT(accept())); emit close(); } /* Close current dialog */ void Kaptain::close_dialog() { /* tell him to stop */ connect(this, SIGNAL(close()), parent_dialog, SLOT(accept())); emit close(); } /* evaluate each nonterminal parameter, collect into string list */ void Kaptain::generate_arglist(list & arglist, bool need_shell, bool consider_noeval) { int pn=im->get_parameter_num(); // create command line if (pn==1 && need_shell) // calling bash { arglist.push_back("/bin/sh"); arglist.push_back("-c"); } for (int i=1; i<=pn; i++) if (im->parameter_type(i,T_STRING)) // append string arglist.push_back(im->get_string_parameter(i)); else if (im->parameter_type(i, T_NONTERM)) arglist.push_back // append generated text (im->evaluate_nonterminal(im->get_int_parameter(i), consider_noeval)); } /* ---------- BUTTONS ---------- */ void Kaptain::button_pressed() { int spec=im->spec_type; switch (spec) { case 5: // @button im->send("pressed"); break; case 12: // @close close_dialog(); break; case 13: // @action case 16: // @exec case 20: // @execclose case 26: // @fork { list arglist; if (global_test) { /* just print */ generate_arglist(arglist, false, true); copy(arglist.begin(), arglist.end(), ostream_iterator(cout)); cout << endl; } else { generate_arglist(arglist, true, true); exec_async(arglist); } if (spec==16) // @exec quit(); else if (spec==20) // @execclose close_dialog(); } // FIXME @action is synchronous! break; case 17: // @echo case 22: // @dump { list arglist; generate_arglist(arglist, false, true); copy(arglist.begin(), arglist.end(), ostream_iterator(cout)); cout << endl; if (spec==22) // @dump quit(); } break; case 21: // @execbuffer { // FIXME blocking gui! list arglist; generate_arglist(arglist, true, true); buffer_output=exec_sync_stdout(arglist); } break; case 23: // @preview { QDialog * view=new QDialog(parent_dialog,0,true); Q3BoxLayout * lay=new Q3VBoxLayout(view, BORDER, SPACING); Q3TextView * text_view=new Q3TextView(view); QPushButton * button=new QPushButton(view); lay->addWidget(text_view); lay->addWidget(button); connect(button, SIGNAL(clicked()),view, SLOT(accept())); //connect(text_view, SIGNAL(), view, SLOT(accept())); //button->setDefault(TRUE); /* init value */ if (im->parameter_type(0,T_STRING)) view->setCaption(im->get_string_parameter(0).c_str()); /* process parameters */ int param=2; /* font, size parameters */ if (im->parameter_type(param,T_STRING)) { string font_name=im->get_string_parameter(param); QFont font(font_name.c_str()); if (font_name[0]=='-') font.setRawName(font_name.c_str()); text_view->setFont(font); param++; } /* window size */ if (im->parameter_type(param,T_NUMERAL)) { text_view->setMinimumWidth(im->get_int_parameter(param)); param++; } if (im->parameter_type(param,T_NUMERAL)) { text_view->setMinimumHeight(im->get_int_parameter(param)); param++; } if (im->parameter_type(param,T_STRING)) button->setText(im->get_string_parameter(param).c_str()); else button->setText("OK"); button->setFixedSize(button->sizeHint()); if (im->parameter_type(1,T_NONTERM)) text_view->setText(im->evaluate_nonterminal (im->get_int_parameter(1), true).c_str()); view->exec(); delete lay; delete view; } break; case 7: // @infile case 8: // @outfile case 9: // @directory { QString filter, initial, result; if (im->parameter_type(1,T_STRING)) filter=im->get_string_parameter(1).c_str(); initial=line_edit->text(); if (spec==7) result=Q3FileDialog::getOpenFileName(initial, filter, parent_widget); if (spec==8) result=Q3FileDialog::getSaveFileName(initial, filter, parent_widget); if (spec==9) result=Q3FileDialog::getExistingDirectory(initial, parent_widget); if (!result.isEmpty()) line_edit->setText(result); } break; default: ; } } /* ---------- CONTAINER ---------- */ void Kaptain::container_add() { /* add one line to the continer */ if (container_source) { string s=im->evaluate_nonterminal(container_source, false); if (!s.empty()) list_box->insertItem(s.c_str()); } else list_box->insertItem("NO_SOURCE"); } void Kaptain::container_remove() { /* remove selected line */ if (list_box->currentItem()!=-1) list_box->removeItem(list_box->currentItem()); } void Kaptain::subdialog_clicked() { if (child_dialog) { child_dialog->exec(); } } string Kaptain::evaluate_special() { string s; int spec=im->spec_type; /* creates a widget and sets myself to point to it */ switch (spec) { case 1: // @integer { ostringstream ss; ss << spin_box->value(); s=ss.str(); } break; case 2: // @string case 4: // @float case 6: // @regex case 7: // @infile case 8: // @outfile case 9: // @directory case 25: // @password s=line_edit->text().latin1(); break; case 3: // @list case 10: // @combo { int n=0; if (spec==3) // @list n=list_box->currentItem(); else if (spec==10) // @combo n=combo_box->currentItem(); int items_inserted=0; /* find nth line */ int pn=im->get_parameter_num(); for (int i=1; i<=pn; i++) { if (im->parameter_type(i,T_STRING)) { list lines; Regexp::split('\n', im->get_string_parameter(i), lines); list::iterator it; for (it=lines.begin(); it!=lines.end(); it++) { if (items_inserted==n) s=(*it); items_inserted++; } } } } break; case 5: // @button case 12: // @close case 13: // @action case 16: // @exec case 17: // @echo case 20: // @execclose case 22: // @dump case 23: // @preview case 26: // @fork break; case 21: // @execbuffer s=buffer_output; break; case 15: // @combow --> @list s=combo_box->currentText().latin1(); break; case 11: // @container for (uint i=0; icount(); i++) s+=list_box->text(i).latin1(); break; case 14: // @edit s=edit->text().latin1(); break; case 18: // @icon case 19: // @text case 24: // @size case 27: // @fill break; case 28: // @multicol { Q3ListViewItem * p = list_view->firstChild(); Q3ListViewItem * current=list_view->currentItem(); int n = 0; while (p) { if (p == current) break; p = p->nextSibling(); n++; } if (p) { n++; // because the first string is the header int items_inserted=0; /* find nth line */ int pn=im->get_parameter_num(); for (int i=1; i<=pn; i++) { if (im->parameter_type(i,T_STRING)) { list lines; Regexp::split('\n', im->get_string_parameter(i), lines); list::iterator it; for (it=lines.begin(); it!=lines.end(); it++) { if (items_inserted==n) s=(*it); items_inserted++; } } } } } break; case 29: // @line break; default: break; } return s; } /* -------------------- message handlers -------------------- */ void Kaptain::message_checkbox(int state) { if (state==2) im->send("on"); else if (state==1) im->send("no-change"); else if (state==0) im->send("off"); } void Kaptain::message_listbox(const QString & s) { if (im) im->send(s.latin1()); } kaptain-0.73/kaptain.h0000640023433300116100000000626011531163202013373 0ustar zsolteng#ifndef KAPTAIN_HH #define KAPTAIN_HH #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //Added by qt3to4: #include #include #include #include #include #include using namespace std; class Intermediate; class QRegValidator : public QValidator { QString regexp; regex_t * compiled_pattern; bool valid; public: QRegValidator(QString, QWidget *parent=0, const char *name=0); ~QRegValidator(); virtual QValidator::State validate(QString &, int &) const; }; class Kaptain : public QObject { Q_OBJECT private: Intermediate * im; Kaptain * parent; QWidget * parent_widget; QDialog * parent_dialog; bool kill_dialog; Q3BoxLayout * parent_layout; QWidget * myself; QRadioButton * radio_button; QCheckBox * checkbox; QSpinBox * spin_box; QLineEdit * line_edit; QTabWidget * tab_widget; Q3ListBox * list_box; QComboBox * combo_box; QPushButton * push_button, * push_button2; Q3ListView * list_view; Q3ListViewItem * list_view_item; Q3WidgetStack * widget_stack; Q3PtrDict * mapping; // used in list_views QWidget * my_panel; int stack_size; // used in treeview stacks int container_source; // used in @container Q3MultiLineEdit * edit; QDialog * child_dialog; Q3Wizard * wizard; string buffer_output; Qt::Alignment alignment; int grid_rows, grid_columns; Q3GridLayout * grid; QString title; QString tooltip; QString whatsthis; bool no_title; bool done_title; bool no_tree; bool ignore_radio; Q3PtrList children; void create_frame(); void create_title(); void create_minimum_layout(); void create_sublayout(); void create_grid_layout(); void create_sequence(); void create_tabbed(); void create_tree_view(); void create_subdialog(); void create_wizard(); void create_tree_item(); void create_stack(); void set_info(QWidget *); // add tooltip & whatsthis information Kaptain * get_tree_top(); void quit(); void close_dialog(); void generate_arglist(list &, bool, bool); void radio_select(bool); void select_defaults(); string evaluate_parameter(int, bool); public: Kaptain(Intermediate *, Kaptain *, QWidget *, Q3BoxLayout *, QDialog *, bool no_title=false, const char *name=0 ); ~Kaptain(); void create(); void create_special(); bool radio_is_selected(); int get_check_selected(); void select_page(int); int get_selected_page(); void select_it(int); string evaluate_special(); QDialog * main_dialog() { return parent_dialog; } public slots: void radio_clicked(); void panel_selected(Q3ListViewItem *); void button_pressed(); void container_add(); void container_remove(); void subdialog_clicked(); void message_checkbox(int); void message_listbox(const QString &); signals: void close(); }; #endif // KAPTAIN_HH kaptain-0.73/AUTHORS0000640023433300116100000000005210120611326012632 0ustar zsoltengTerk Zsolt kaptain-0.73/COPYING0000640023433300116100000004313110120611326012622 0ustar zsolteng GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. kaptain-0.73/ChangeLog0000640023433300116100000000000110120611326013326 0ustar zsolteng kaptain-0.73/lexer.h0000640023433300116100000000000010120611331013037 0ustar zsoltengkaptain-0.73/lexer.lpp0000640023433300116100000001673111162156272013444 0ustar zsolteng%{ #include #include #include "global.h" #include "tools.h" #include "process.h" #include "grammar.h" #include "parser_yacc.h" using namespace std; string * terminal; string delimiter; int rarrow_lineno=0, larrow_lineno=0, nonterminal_lineno=0, last_correct_lineno=0; char quoting, first_char; bool my_exception(int e); string safe_getenv(char *); %} %option noyywrap yylineno %x DOUBLE_QUOTES SINGLE_QUOTES BACK_QUOTES QUOTE QUOTE_START SUPER_QUOTE %x REG_EXP REG_EXP_START %x SUBST1 SUBST2 SUBST3 SUBST_START %x TRANS1 TRANS2 TRANS_START alpha [a-zA-Z_] alphanum [a-zA-Z_0-9] Word {alpha}{alphanum}* %% [ \t\n\r]+ ; #.*\n ; #.* ; [+-]?[0-9]+ { parserlval.integer=atoi(yytext); return NUMBER; } {Word} { nonterminal_lineno=yylineno; parserlval.pstring=new string(yytext); return NONTERMINAL; } :{Word} { parserlval.pstring=new string(yytext); return MODIFIER; } @{Word} { parserlval.pstring=new string(yytext); return SPECIAL; } "->" { rarrow_lineno=yylineno; return RARROW; } "<-" { larrow_lineno=yylineno; return LARROW; } \" { terminal=new string; BEGIN(DOUBLE_QUOTES); } { \\n { terminal->append("\n"); } \\t { terminal->append("\t"); } \\\n ; \\. { terminal->append(yytext+1); } \" { parserlval.pstring=terminal; BEGIN(INITIAL); return TERMINAL; } \n { if (my_exception(1)) return ERROR; } [^\n$\\""]+ { terminal->append(string(yytext)); } \$[a-zA-Z]+ { terminal->append(safe_getenv(yytext+1)); } \$\{[^}]+\} { yytext[yyleng-1]=0; char * env = getenv(yytext+2); if (env) terminal->append(env); } . { terminal->append(yytext); } } ' { terminal=new string; BEGIN(SINGLE_QUOTES); } { ' { parserlval.pstring=terminal; BEGIN(INITIAL); return TERMINAL; } \n { my_exception(1); return ERROR; } [^\n'']+ { terminal->append(string(yytext)); } . { terminal->append(yytext); } } ` { terminal=new string; BEGIN(BACK_QUOTES); } { ` { parserlval.pstring=new string(exec_sync_stdout(*terminal)); delete terminal; BEGIN(INITIAL); return TERMINAL; } \n { my_exception(1); return ERROR; } [^\n`]+ { terminal->append(string(yytext)); } . { terminal->append(yytext); } } (q|x)/[^a-zA-Z0-9;().=:_\n\t -] { BEGIN(QUOTE_START); first_char=yytext[0]; terminal=new string; } . { quoting=yytext[0]; BEGIN(QUOTE); } . { if (yytext[0]==quoting) { BEGIN(INITIAL); if (first_char=='x') parserlval.pstring=new string (exec_sync_stdout(*terminal)); else parserlval.pstring=terminal; return TERMINAL; } terminal->append(yytext); } \n { my_exception(1); return ERROR; } (m)/[^a-zA-Z0-9;().=:_\n\t -] { BEGIN(REG_EXP_START); first_char=yytext[0]; terminal=new string; } . { quoting=yytext[0]; BEGIN(REG_EXP); } . { if (yytext[0]==quoting) { BEGIN(INITIAL); parserlval.pstring=terminal; return REGEXP; } terminal->append(yytext); } \n { my_exception(2); return ERROR; } (s)/[^a-zA-Z0-9;().=:_\n\t -] { BEGIN(SUBST_START); first_char=yytext[0]; terminal=new string; } . { quoting=yytext[0]; BEGIN(SUBST1); } . { if (yytext[0]==quoting) { BEGIN(SUBST2); parserlval.string_array[0]=terminal; terminal=new string; } else terminal->append(yytext); } . { if (yytext[0]==quoting) { BEGIN(SUBST3); parserlval.string_array[1]=terminal; } else terminal->append(yytext); } \n { my_exception(3); return ERROR; } \n { my_exception(3); return ERROR; } .|\n { terminal=new string; terminal[0]=yytext[0]; parserlval.string_array[2]=terminal; if (yytext[0]!='g') unput(yytext[0]); BEGIN(INITIAL); return SUBSTITUTION; /* if (yytext[0]=='g') parserlval.string_array[2]=(string *)1; // indicate `g' flag else { parserlval.string_array[2]=0; unput(yytext[0]); } BEGIN(INITIAL); return SUBSTITUTION; */ } (tr|y)/[^a-zA-Z0-9;().=:_\n\t -] { BEGIN(TRANS_START); first_char=yytext[0]; terminal=new string; } . { quoting=yytext[0]; BEGIN(TRANS1); } . { if (yytext[0]==quoting) { BEGIN(TRANS2); parserlval.string_array[0]=terminal; terminal=new string; } else terminal->append(yytext); } . { if (yytext[0]==quoting) { BEGIN(INITIAL); parserlval.string_array[1]=terminal; return TRANSLITERATION; } else terminal->append(yytext); } \n { my_exception(4); return ERROR; } \n { my_exception(4); return ERROR; } "<<".*\n { BEGIN(SUPER_QUOTE); delimiter=string(yytext+2); terminal=new string; } ^.*\n { if (yytext==delimiter) { BEGIN(INITIAL); terminal->erase(terminal->size()-1,1); parserlval.pstring=terminal; return TERMINAL; } //if (!(terminal->empty())) // terminal->append("\n"); terminal->append(yytext); } \n ; . { return yytext[0]; } %% extern Grammar * yygrammar; bool my_exception(int e) { ostringstream message; string s; bool warning=false; switch (e) { case 1: s="String constant has reached the end of the line"; warning=true; break; case 2: s="Regular expression constant has reached the end of the line"; break; case 3: s="Substitution constant has reached the end of the line"; break; case 4: s="Transliteration constant has reached the end of the line"; break; default: s="Unknown error"; } message << s << " at line " << yylineno << "." << endl; if (warning) MAKE_WARNING(message.str()); else MAKE_ERROR(message.str()); return !warning; // report error or not } /* returns emty string if no uch environment variable exists */ string safe_getenv(char * s) { string r; char * env; env=getenv(s); if (env) r=env; return r; } kaptain-0.73/INSTALL0000640023433300116100000001547210120611326012627 0ustar zsoltengBasic Installation ================== These are generic installation instructions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, a file `config.cache' that saves the results of its tests to speed up reconfiguring, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.in' is used to create `configure' by a program called `autoconf'. You only need `configure.in' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. If you're using `csh' on an old version of System V, you might need to type `sh ./configure' instead to prevent `csh' from trying to execute `configure' itself. Running `configure' takes a while. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Type `make install' to install the programs and any data files and documentation. 4. You can remove the program binaries and object files from the source code directory by typing `make clean'. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. You can give `configure' initial values for variables by setting them in the environment. Using a Bourne-compatible shell, you can do that on the command line like this: CC=c89 CFLAGS=-O2 LIBS=-lposix ./configure Or on systems that have the `env' program, you can do it like this: env CPPFLAGS=-I/usr/local/include LDFLAGS=-s ./configure Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you must use a version of `make' that supports the `VPATH' variable, such as GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. If you have to use a `make' that does not supports the `VPATH' variable, you have to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. Installation Names ================== By default, `make install' will install the package's files in `/usr/local/bin', `/usr/local/man', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PATH'. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you give `configure' the option `--exec-prefix=PATH', the package will use PATH as the prefix for installing programs and libraries. Documentation and other data files will still use the regular prefix. If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Optional Features ================= Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Specifying the System Type ========================== There may be some features `configure' can not figure out automatically, but needs to determine by the type of host the package will run on. Usually `configure' can figure that out, but if it prints a message saying it can not guess the host type, give it the `--host=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name with three fields: CPU-COMPANY-SYSTEM See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the host type. If you are building compiler tools for cross-compiling, you can also use the `--target=TYPE' option to select the type of system they will produce code for and the `--build=TYPE' option to select the type of system on which you are compiling the package. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Operation Controls ================== `configure' recognizes the following options to control how it operates. `--cache-file=FILE' Use and save the results of the tests in FILE instead of `./config.cache'. Set FILE to `/dev/null' to disable caching, for debugging `configure'. `--help' Print a summary of the options to `configure', and exit. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--version' Print the version of Autoconf used to generate the `configure' script, and exit. `configure' also accepts some other, not widely useful, options. kaptain-0.73/main.cpp0000640023433300116100000001446611162157053013241 0ustar zsolteng#include #include #include #include "global.h" #include "tools.h" #include "communication.h" #include "process.h" #include "grammar.h" #include "intermediate.h" #include "kaptain.h" #include #include #include //#include "../config.h" #define PACKAGE "kaptain" #define VERSION "0.8" extern FILE * lexerin; extern int last_correct_lineno, yylineno; Grammar * yygrammar; int parserparse(); int yylex(); bool global_debug=false, global_test=false; int glob_parse_result=0; list * glob_param_list=0; Parameter * glob_init_value=0; Communicator * glob_communicator=0; Error * glob_error=0; class Instance { Grammar * grammar; Intermediate * intermediate; Kaptain * kaptain; public: Instance(); ~Instance(); void init(int, char **); void load(); void transform(); int run(); Communicator communicator; Error error; string filename; bool dbg_print_before; bool dbg_print_after; bool quit; bool test; }; extern int lexerlex (void); int parserlex() { return lexerlex(); } int main(int argc, char * argv[]) { POSIX_init(); Instance instance; QApplication a(argc, argv); glob_communicator=&instance.communicator; glob_error=&instance.error; instance.init(argc,argv); instance.load(); instance.error.print(); instance.transform(); int res=instance.run(); return res; } /*---*/ Instance::Instance() { grammar=0; intermediate=0; kaptain=0; dbg_print_before=false; dbg_print_after=false; quit=false; } void STATUS(const char * s) { if (global_debug) cout << s << endl; } void DONE(void) { } Instance::~Instance() { if (grammar) delete grammar; if (intermediate) delete intermediate; if (kaptain) delete kaptain; } void Instance::init(int argc, char * argv[]) { int at=1; // start at first argument while (at" << endl; quit=true; } else if /* help */ (strcmp(argv[at],"--help")==0 || strcmp(argv[at],"-h")==0) { cout << "kaptain is a universal graphical front-end." << endl << "Usage: kaptain [options] file" << endl << endl; quit=true; } else if /* socket client */ (strcmp(argv[at],"--client")==0 || strcmp(argv[at],"-c")==0) { /* getting next argument */; at++; if (at==argc) MAKE_ERROR("Missing `hostname:port' for client socket.\n"); else communicator.setup_socket_client(argv[at]); } else if /* socket server */ (strcmp(argv[at],"--server")==0 || strcmp(argv[at],"--port")==0 || strcmp(argv[at],"-s")==0) { /* getting next argument */; at++; if (at==argc) MAKE_ERROR("Missing port number for server socket.\n"); else communicator.setup_socket_server(argv[at]); } else if /* pipe to a program */ (strcmp(argv[at],"--pipe")==0 || strcmp(argv[at],"--prog")==0 || strcmp(argv[at],"-p")==0) { /* getting next argument */; at++; if (at==argc) MAKE_ERROR("Missing command name for creatinf pipe.\n"); else communicator.setup_progio(argv[at]); } else if (strcmp(argv[at],"--no-input")==0) { communicator.no_input(); ; } else if (strcmp(argv[at],"--no-output")==0) { communicator.no_output(); ; } else if /* file input (strcmp(argv[at],"--input")==0 || strcmp(argv[at],"-i")==0) { communicator.setup_stdin(); ; } else if */ /* standard input/output */ (strcmp(argv[at],"--stdio")==0) { communicator.setup_stdio(); ; } else if (filename.empty()) /* filename */ filename=argv[at]; at++; } } void Instance::load() { if (quit || !GO_ON()) return; grammar=new Grammar(); yygrammar=grammar; // global variable for the parser STATUS("Parsing script..."); if (strcmp(filename.c_str(),"-")==0 || filename.empty()) { if (communicator.is_stdin()) { MAKE_ERROR("No input file.\n"); lexerin=0; return; } lexerin=stdin; } else lexerin=fopen(filename.c_str(),"rt"); if (!lexerin) { /* I/O error */ ostringstream message; if (filename.empty()) filename=string("stdin"); message << "Can't read input file: " << filename << endl; MAKE_ERROR(message.str()); } else { /* OK */ if (parserparse()!=0 || glob_parse_result!=0) { /* parse error */ ostringstream message; extern int lexerlineno; message << "Parse error on line " << lexerlineno << endl << "Stuck __after__ the rule on line " << last_correct_lineno << endl; MAKE_ERROR(message.str()); } fclose(lexerin); } DONE(); grammar->unify(); grammar->verify(); return; } void Instance::transform() { if (quit || !GO_ON()) return; STATUS("Transforming rules..."); intermediate=new Intermediate(0); intermediate->create_from(grammar, grammar->get_start_rule()); if (dbg_print_before) intermediate->print(0); intermediate->transduce(); if (dbg_print_before && dbg_print_after) cout << "---" << endl; if (dbg_print_after) intermediate->print(0); DONE(); } int Instance::run() { if (quit) return 0; if (!GO_ON()) return -1; STATUS("Done."); kaptain=new Kaptain(intermediate, 0, 0, 0, 0); qApp->setMainWidget(kaptain->main_dialog()); return kaptain->main_dialog()->exec(); } kaptain-0.73/man/0000750023433300116100000000000011532667206012357 5ustar zsoltengkaptain-0.73/man/kaptain.10000640023433300116100000000601711532667206014075 0ustar zsolteng.\" hey, Emacs: -*- nroff -*- .\" kaptain is free software; you can redistribute it and/or modify .\" it under the terms of the GNU General Public License as published by .\" the Free Software Foundation; either version 2 of the License, or .\" (at your option) any later version. .\" .\" This program is distributed in the hope that it will be useful, .\" but WITHOUT ANY WARRANTY; without even the implied warranty of .\" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the .\" GNU General Public License for more details. .\" .\" You should have received a copy of the GNU General Public License .\" along with this program; see the file COPYING. If not, write to .\" the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. .\" .TH KAPTAIN 1 "September 11, 2004" .\" Please update the above date whenever this man page is modified. .\" .\" Some roff macros, for reference: .\" .nh disable hyphenation .\" .hy enable hyphenation .\" .ad l left justify .\" .ad b justify to both left and right margins (default) .\" .nf disable filling .\" .fi enable filling .\" .br insert line break .\" .sp insert n+1 empty lines .\" for manpage-specific macros, see man(7) .SH NAME kaptain \- Universal graphical front-end for command-line programs. .SH SYNOPSIS .B kaptain .RI [ options ] .RI file .SH DESCRIPTION \fBkaptain\fP reads the given file and builds a user-friendly dialog according to the grammar rules found in it. .PP See .B info kaptain for a detailed overview. .SH OPTIONS \fBkaptain\fP accepts the following options: .TP .B \-h, \-\-help Show summary of options. .TP .B \-V Run in verbose mode. .TP .B \-\-version Show version of program. .TP .B \-\-test Run in test mode. This means that commands are not executed when a button is pressed, only printed to the standard output. .TP .B \-V, \-\-verbose Report more information on processing the input file. Internal representation of the grammar and the dialog tree is also printed. Use this flag if Kaptain does not work as expected. .TP .B \-c , \-\-client Establish communication channel as a client connecting to a server on listening on . .TP .B \-s , \-\-server Listen to the specified and accept the first connection. This will be used as a communication channel. .TP .B \-p , \-\-pipe Start the given command and communicate with it on its standard input and output. Don't forget to quote if it contains spaces or other metacharacters used by the shell. .TP .B \-\-stdio Use standard input and output for communication. In this case you must specify an input file, thus grammar script cannot be read from the standard input when it is used as a communication channel. .TP .B \-\-no\-input Instructs Kaptain not to process messages received on the input channel. .TP .B \-\-no\-output If this flag is set, Kaptain will not send any messages on its output channel. .SH AUTHOR Zsolt Ter\['e]k . kaptain-0.73/doc/0000750023433300116100000000000011532667610012350 5ustar zsoltengkaptain-0.73/doc/crypt.gif0000640023433300116100000000634610120611327014174 0ustar zsoltengGIF87a```~}|zyxwutsqponlkjhgfecba`^]\ZYXWUTSQPONLKJHGFECBA@>=<:98754310/.,+*('&%#"!  pppa NNN,@  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgg4`M7uj@8U qW/RH;hH]m[H#.cB!]iAJJf܍lcQ'y]@%$٧{X[c"ayq]wo oPkOH{ZhA/ /_ق%(iirj\j1,s1Z9R ,IFRi.'3Љ3p0PG-TWmXg\KDֱhQٌK_v hǽ`k2m3|E4TO i4:4"4/v)Ȕt}Wu'yQeyߠ抡踦ꬷnPN,⢋3H.3(YvM8sN:N +)d{Fud)P)$b;JL )I !@JPn+!)T(ݕw(e`:I) ^f"+z<J(pcyk+l;,Kx:F27Ucy:!T(pU\ȞNh؏Zċ sH2th<ȷ5hndf:sy̓}ǏQS35Wқ!DpD&IJZScd"Azb'*d4)ɱ,;!iJFe|P(7yFte$ceFHK2(FJlL,6DЌ4IM36d#iQ&-!ű:gxx?_SKڙky\ 'qL>Iz,\D7tF`u&6Pg+e87jabъy{~<˒j5]Tp0(HUn4)(,zGD=F7u2]2J0IժNpLTέũQ"«T#P9f=ZUH{D(BgpG*L7לծiHb:d{-qiOeSYu l:?%=MjW->ܼg_m" v@$6"x"j=yR|Hq\;`]XEdY{rGi<7nU] :FPvμGLz^'yS.}e_P_ 9"&(v'(,J H RO0h^ KU T`03lXP?dAP!oCRd `SO8؅"N^+uHΡv(e`XQHV, @Y aH.%L}Y=T,R ̩J-'R_9CxH"I,s۫<Ʒ[_t]:t;]6py*Mt-~KWa%}fm,W_zehݥq#,g.tr}7Э  ՞6ߏ=M03VK_q\@,ՙ?=>")3xHmW{,o\5Gg@bSqN&Pct%=KašnR\CJ\TاF}v\4#K%,Ntc]'[.vn?{P Eڍ6VSӕ.xFj=wq9f zޛW7-s-оG=oFԻT:#~O9p◥>΋M72|@-Oq;\3!WoFzݿž<%|W~snJcoHzVGs~Hrnz؁WyRuHyy"(R$I&xygx1w)87 u,Huf 1 +y6uy(!G.xH3vwK?ׂg+8\65884ȃfx8xjpqXlnCXtetx},P{!Xu|6HXX|y3Xh:爡$GqWcJA~Dh{h>}}PHXqu}wEpGo(%XU8hnjozx9C9 SeUI۸Kpˆ~؉exhVZ@&Qoy ِYo[Z;kaptain-0.73/doc/database.tgz0000640023433300116100000007634610120611327014645 0ustar zsoltengfZ=XT(Cw0 %Ғ1 1twtt#(҂ ""{/ss}u{ŽY{C!>vN-%///ZOHGW1sWtp~.ɸ"~#z Lq#DBl Vp:v`uw[78ׯA.־t`D5 luoqI{XX:B =#f ?4r{{0X܎ohA-6.n` ++mb% w8b ^ Eg7kO+3W ҒԾo!Jixы ;woѦE!DE~Y p:@n1 F9/E/xi/9% IB?)ph䯐p%S؉h:!՟(BmoڹR.?bZj=@X- ֠1nIa1sܤkL :LLj7F^m`]ah`'Ducw:e 7[ϛ0wk.7C0 w(b_&`'YA ݈ѷ~rCA. [}#|+; 7wۀyf {:pz=DJ۝! "/XC 䈰T~Gțrr 1?1E\ܠ~w1g簢g1~_j`I+Gw}z g+#U<o'Abxn|F'4L#/]!VP,_qKrc`ۥ#gGtB|\M9DL8@rG=Y?"^[983srp㇎ۘØØIJi^li5ȭvoo'ݲ-t! Ʊ8{:Y"DD /Lq&'Zx !<x¡!+ H+$WtCP5㷥Ŏ FqkD"@!R;ݼ1ƪ7On $S7!?oX޾]%a|Fp+?֨6 bwR]{GCrlmf tpc$wAFgH$1`[D|CI-J oyw3H:ZoiɩhYj},"6[X+2&m~3 vct*oPoq[wl9nF  VO䌰Nw/([?؆ZĎ ކ5W5B-㗣fvxm0ܜ_w%[}%6b_;6W`%_A%?3㿊_i_9SZL6W r!RVm99Z-(74%"nz/7IbGb ۹-=8 ~KIt8dT* N7X]o0CFůɟxnA<<~A@P0zG?Ṵ"g_ז?s~D򅣕3^Pww/98 e艈7N8w& C"޳ UqΈ=:XI~3WZ۾9YY!79 M!^r&Z ݎ܆ېdaew`f_!C\-~obSKqutqtguAP/Dc}h֩/wy*f fFE? ю DŽxx"<W\p b$y~ˉdA¯hyW}tż7"w0mM#\ ؟ {Co8v7G}>][@ P+ȃ?Z1/=?ڸnrF AFDDyy}kyy?/7(E,?AH A@ԛ@` `"c!c#'HOT?$?BЏ k `599E/)З}(>7՛ ٛ7 -ًz#{Ed@AT{((L((,((l7ՍōySss\@ W"""|SEPEQPQ:I:=@CTGI4G)4G f^^BСPjnN NVVVhc`TxwwwssseeիW333cccݭ "nl S+47 EUSh*,7%ebK'R'˦2 خM3kϊUbQj~aZ@u,rnB֐ Bf78Q! *ENᘤ#0P}(,KP,)1s y{$BT| ہg /Ĥ?$.<0F%Dg;^$*1-ו~%dT,}Y#E@L$}O(;qd,֛k&#c9DUޛvPQ,hO!1ǫM06BIEWĺv[Tv#< }ܤ/02R#{o@H:@3KPyED%'E$i5 M] dJ&0 \\yDtRLw<-*xox" ! .;D{^f򲮈* Hh\T1]Ш^_t=u THA.#z&;zf PssVb/}X }T/F[r;Q] Cg$w#qqז6!]6x 2-Gv pBTߏ.YS,*ʻ,cF/$t\T:$&ռ=侣'FEBc\*gsJZ,stgtAڞ@_v39̻$loІ"c##r6S>/6}lǺ|W [̚|=*ؙfjKmх+P?|'-x0o?>xqe( Flj1X%F̧X3v+TOPO׻`|W҄!;awx1_TSRZd7%CoVȴ.>Pn| mɺSү{ l- 'wGAq2_LH;k A D)}#Aa#T yqC6Ul`~u5Մԭob؂ГV8ep ]}t%\0=XE}5 ǷɾS,!+ jXdemڜ9hfyTPށ생Uy!ZɩњE.kw:(HiG]x4*%k#m|B$3(6 1(8Qi_ȭ%tNiQE^2q|}%+`ug)qQ'4|ö_:/D|̜DVJwJGX3hzw:~{ҳND=9uo4Sjވ `{~g"OCp+#E3f+d0Fl3]Mgzgwa?e.RhrOŷnSc[oj/7FoQd8|=j.1Pǡo/>5_$9#-^J + R Io/_ QA@;WL@T>w[d0|`B`b`R``ʎ```l ]a OA?T@!!䡼¡>Y>tbt@@S2rV];)k@d000|vL YMY-"0#/##з"\#I"Ѥ":" #Q"ɣ"0!YQ(d((T(u f'j>ybR芬Ȉ(HBFfV`etMGXy4ZGd:sarŽ^G>Qv4+y܈p}1ڬtͬ8Л`X.Sk}7 0ꦄVKQ,sY ߗϢbT+smCY>-%<?Eqkdّ )IJƲ"|E@Hx@e2s4y2KϨ\t8B!\k<J.ꭟxJa|7&IA(:**M1CQP3*J?"Z6:usf{S(9M"-B0:%Z[cIHGNcIQPQa"9;FPtxb4F'4S7S7;gb͞f9d\D%w0$wrA:ٟ )rb(Ҥ|)T"*Yrѳ ;bSc,}'g+++y^eb`D; {1t@0⺜O ytHn:4o6*1cU“Ӊaw3CY2r:3utSuP/)$WaF*,Z4G/y+b⥥zbޮ6whoY: Y; VJJ' :KKu %c4s)-E˭ mr1ʄJWVxL=8,*-"ϔJIG3W_UńTTU~>B֏ʩʛ )Q(.5. =cRV,Z_VՑSQ3+*`#29TIZ\u 6:r̈oVD_e9K#[q>gfPRpb_\wnH|qXoZ/toٷ\>ht6ׇᘊ8Y +1 ERj~D FfV,?-gF^{? ~ku>eXQKPXՖG-TG-"U%z9ݭ<:s,[AQֹmmhSmTnmFI,>폔&Kc:BS &2Lňu$綠tLB 3;ĶuQfw?,Y-{҅SvQ:Iv(wPE%.w^w w>9H5-88?lPSTuDQLR¯M\Vv\$`H|Y>*wշ/H2|p//6myk㏧Ri sҲ?6OOLOMNOQNzQϮT &ǞXU[k=-ef p,1&ԓ $e;&v ?oӹsg2u'FMLk0O0 S ?X340̯~ziIo ;9@?EfE=#wT HY{_js(?_,qg{+Ɯ?_7&oB,,E_]sU;X^_J3>0"f}@u7J9qeIB-֪ﾯ/$jgWC|C_1Ak4_=J<< ?nTҶ,;a5koG4Ro|X 3[_5YhhဝZ-G,̌63w⿆VߴrFtg*)dyk}cpXyfhS|3JG 4* 1Ϳ, y/R{Q%ݵU)˽s rU]rW˾MqvB'4Otwswbb.cLN$scOv!)ivWR~}+{ w4u[ϋw0q~^Uljў|GC;Muē'E{1en]mܽYJ ¼"}FgްQ> /qVG3V۞Ę٣r&B!ǂ1xkAYܓWGl'SdIU4' ''/qS OZ9_yGs0ᰖa#yY04 rJ7[~`-ÖSx!ՙgq}ާ\% IŁ۞x?|eyh\N/‰@Q_*VBL 0Y^QAv?/pLH~ iƢۯAnO}/h#.\Ľ̼LROyp%Ѵ3sw"sc̬it&֩Rڑ[3ol62,F\nuXvaOg*CO~n})sc)Jl1~%Ȅ0q ϕ4>ϋ3Ym"5o#3QQ4}#RŘ6W.Yn,L ǣy)Jl ü\(|*0yf`!_xvdD%N{*ūgFL2㱾&iEt doFjIElIEmD\A{UpGE9ɺ $>zKc?OcLw#oz?&_~h0Zq`h*/];$QY+a8a(1t[Qåpu@s x$mI0ΰg2!24sP,ÅeIZw2Y ˱ [Jwg5sr x.%ԙ=7ӫ]S^〻t?beuS),[,/7ܞüf(=3zҳ3'=;n;<߉5זXn߸!V[oC zh:kC~:|kh$'7,XvkM%ɤoοY+ܻ=Fx/,j20NhէUT~ɖ |j*fV]|;ʤ)M,F]Oz:կw|>\_-q~ONѸ5Af:ؒ4r oT\CދB[,D>14\/K&ٕ 5'T2&ߏj)3.RBƭ0h2V}oJn";WĴSڟQGFC@YV]0E2AP!HEh1ɾI>ف4]밥3'M^U V<$ҵ$V7F A,keL",8]h쯋eйecf~^O ~T2#'M@vI,rP+#i A=,B K"HGyMdzn&]VLUO䕆%`YD3(JMk\ehi8(#zoCZ{xuG]C9FJ(^hD:)eRcl 萟Ίϳ y23s>~h˜YJ!%<`)KdR$ ݃\g[8kuuqDV{'JF.1ٝXK)Ud_$k& cmrhȳPXtxRge w끭\R*$\CO:= (I+ F|@xB`сǏ qhXllHE&[WذB ĢeG*RZWW_\ep,LL>z`*E׆dQUaDTw)4dU{JWe1n^3ƄRzY&mǝJ8ޓdžʽmҝEfV8C`η $<ןVLK\#0oY[x#v<2fw9B1e@H;E$al/ %Qtj|.[ɱT{]|5׵QT_Ǒ^Z>M"Q:䢶{a[^Hl ǼИm y"̜]}Gj5Z~ﴘDG*>g HbhVÀHD۳/+%2!_LY(yyW$9hT9|{0 e^z"=@U4AKV|e),?S OͰV?Jm"Ǟ?Rx޴:8aTe| Gadcx6MyHqu 9gC@d="}e(AΞ e!̈Ɓ; ."`}f挙9Hle[\=@bJO 9͹O|2$_O5bf/d cgm;tcKib p3 h`&rӋ&UhUTdPWu,SԲCpYu[12,zt̾ޛ& S3C]Y'yC IOETx!SuZ!i̙󫓋mk9͜cUdS֎sGx?̅?ā{pd4(> ~aZZ^}OO,2Ր∫Y__\E0&=._ޣ@UDZOe,ELA@Ba a~Onj\Щ\d%ݯ)ՈݩmDe:v-|2u FvUD4yð+'Df()Ү򱫠c]/QEa`s4-R&h)=0_k'.Z'D"R_/FYބl|t'(FDQy&(ay>3 j8O)TEfzNI@Nl  B ɚۻΔR&FC΢!Z 6ND>Lڹ 2ڲȶR-Rc!wKyl&*ݎtϗ͝;\6!3a2$dsTC viBd=T<ʟ#lDgf6b_T3Av@q2yŠ!QkPvo OQ*>W.l2 EH&JFؓ4/5B| *$VG*$t@zh}oS:Ƥ, ZH`HU$45S:= MV;X+Y*سCE¤|h/iRIg邂VhP3ʥ04?cߦ $`eLtN$Rݱ 9{1لPHĎ$0k' 3m}ejܻ'ģTAk 43c=שȉ_ǵIW'}D/6HPO^/*31trqt>K@h`g =BaN&2AgِӎOgUtUimD!Mn/T&'z8Xc39q/|4/I/T#4D# UULl]:=QΒALyyj ,8sۗnN,">ASS79$yKr/"gﱋP!U@رp0]E [+[^7'46>i<X$~ݞU#Vo1`8֊,ܨd@eMIl3:yo]TY!|ٛktzn'e֧]q]TX vA̓gS]S]oغVV[jV;sǞ<|%Mc-^4vյ2S9}t4Y Qk r޳d9'ʝx᱃Fw߭v:t,* j e5v.9t,>ocb~_H\;o0{oCt&U]AFXWufhJ*3!O5DR#8C&X?[GBh^rz&&Q ''K'{&,&{&k&OְO6aOIN=Şl󟪌jeꝞʙ,ʛ07l왞>=7ٚ7 Y[):墣͞|=~q&Ņ˼zf, sss?qwMIIz? aNs /{_Yཿ@Q/ޟ1/Y@?Ǭ G+^k_`Ԡ[_}@>mwnilV31t>µ75:ōnYQKI&x8=#ɪsq󗣹WJV WJkV 8OVLq^8#ƀgSB!/W[Z'y]zΐڲ׋KoN &C; o;Yǻ0li}BKVOUp p#2 Iڪ_Or1N.i`3 އNNGg{]gG|6 JR.|}`N ,vxJ[\VleCȤUwitc wz6%x4cw5q㛳jv_ONZpb8j4${o%Pr78p7 }KRs`Ke[fgzZnڍ~]>V7IUmmz<ٷ9x%^y7`xs?>-x~'(ʻCՃGǗ}.*LAo 6>?\~Ѿ<.:6?S`0d3c쐌棺:)'?8=ClZwwW-g_7D~~yz`=Â.U>>wrTs0.C#÷g8?%n(<7n83'ǒ-suӃ NC\bǗg3'O韟{VP Y‹-&6ߐ,?9 sy!%Gg3؃Ko5OE 2^}BX5p=K:~1ޟw ^k'xר':jG"'>~}/y벰h!'S?NeOq~ 􅙳*Q5 EP;h]PRSaRP?j Nq5ZJ7>EWRwݴ[QCRU6Q5T>gO(QqYq(O$jfL^VB'w&o p:0H<&k``+# [گ+eI5t(K2uaT6Lv:ͷNF9*;.:8O9ob9wKPv-u:L`c4ؾ֘.ZK߷)~8u:Jkqүi6B ;'K4#e TITq`L]4,Kq(`Ncz>#6}^'86,='1gTo‰7e|Cf ]f寝{+D/Vf.&P0`/eGP|x0?HXԋLbnԢ\uv s\f}Ra@miL=S (Xԧd`Op{V>){R>N3߿ " } GfQ]CgNRD[c wzN FAOSE a: H\IFs?'KTk3 7.kss$5riФ+{XXuk@w"+Ȕ8V6pof6_F: >T/ϱcJsX̳uB&H&"LBibCe/LpEbkF'6jL}9vܳT~{R*)kDu?ﱔF$;P aI7L@K# Rhc$4؜aճ- F, >~LfAPb[6-^66$^=E=@{ Ǎuk05MiDl琦[7Xacm@]b|9蜃4a(6$mln㻝@I +"=%`7' bgiU3WR9|ł1-yrUr`y-[rI*H`T3| 8ptxvޏsdmEGs@Wd-r!PvIT}67vmo;w ~l7XlZtp}cܳXm HFR!y R{"dr9XyRxgl*jW-=뺹n ]:HO;~.X ] 4[E=eAp ;ؽ}ԊRhMHIf ^&U.zW{tCԻ`$s~/ 7`#s{(@p {(kG |Wu/wh{n];#;˘uzl@}wc|ʖ%qӟ,)R籝|GoW/iK굵=lvEtEE5¨a8nWn0(q໑@j}A`r_$_0XH STf@9xg.f @8 4>D=X) ZO{2G8MW8Yf. "#"Fm#\##6GaۺVK׶h.`74DjFG$GQQb u4$4jWcN葳o"#cc"I*͐|:ᚕaVYDŽt/SjF͡ ՌǨ b[ǽQ߼ Cyy$!CΣRѣy[nGx`$/0{B) r<~VVظxQ3H8HߎeԔ7_:"٪+;R,"(SS'R\1+^(p$\'XAh.NUY)PTT s{qa $`6 r;ǜUB A7g0M$ycdTƹ^ŢLd I~ tRr+ 5]JNя\pDmD-ۇǫ+b0Y6>ݡMR#]E\Yu[3Nd_RLEteǰPO )3_N5p5a }#ld9m9M7 <8Q1=ݛ95FEwOS,^Y,n~c:s 2c=]AL2 `>Χc0 M?̎172~ewWB&<;[nEKtKAFHbxvHN>rҋɜ2T.,`U:)G!'4A8Tp?*N:9*ZMi(DUP -[yRW@d?;d-ϔɎ"0lk4lq=#''ϫiR:QݓTm{n.ѼQ}J־l? {;oՙb3Dѓrܖ7 E-ʅ.`V׭cM5tkjriKqڜZZ]Xњ诜]J'!-zGvD疔EFU(v)+ĶEՍ-7gxh?i|TJtH܆2шOݷYi*57y3sq@w]s/=՞l^/|oƪOUlJ-_[r["b `5ʬmOjD@(yɎt/% ʾ es]ryL3R;cr}sJr2-seieoI˕w5QOsmS+d%C/H6 {e/j*hH0GWC#^e uʒ狱6ӽGO9Vt2ZDo.B*\U&`( 2=M^u_g; + x?#Zhq:t|q`Ek7~*0)[#H[ɜ{W`y{ a#9tu_+ 9.~W$oJqaQu WS OA؅HG֎[Cv2cV}MxԏpWQ볭8BKt(%l?,p ]LopڞkJ={ΛuP{y"xxF7hlXG 2jŞ:vNC>ߗ]G7Y>1vJ0RQ3K}kr:n+)X:"mFm:+#']ZȘ@9й*kSЇu%{ G8"Fk r7ϧ'&N@QI^]T;% / ]_\-9PAB2Uȏ'W?N>@@тLQ6!C=*ghӐdYs )OC'B{ y^,Nr# 5u`Iiؐ8aII@ ~A<4L d8J}~h,}ymT-T?Ykm;> (®3ˣd|!}ؼGS^unWÒ/jW4'ܠ|Wx#4ȼ fWD{“D&UxN JqB`kс랆kӤkӋckM?*Z-x?;P\AyS z`$|(K!@I E39fHBc,kY2O?6йAҮ@L9\tIIId%  s?֡EikhtEN*eӥ/k_-xRTȼ8}3js} (&y5 |~G drB :cz#J^GwD~Q^nNH (4uxӓ9S*ݱ]h^~S=tsض2 ף^r@ⵙ#p_D0w[ H9+v} uxc7F\}1C{n-a'cݶ*Fy2[t!xԲn>g:5Go[Q6i䌸??ۓxf\񊼥w Ѕj*Y3yGf۽?J!hxl66 <ØE:,{;h4n z ii.4|7 z~ԒM$SfL-w| bގ+};"5y"x&9Xid:|М7{i)fbAMEd("Z{[vL$yM 0к ¸8`ty}+$L"U/5X //gH2E|S/(ԋH RGYR (S%yU'ʳ0rN^U.YAUHȒ;üxr5R垝4)},{g}lCP\eЍ3.EBЈ g*JE?xЍTpbx7 =rt ="W {6D(#!s5"!c\$L=')Ia+6L"ׄ$}8Ƽp){ql10s,m.eRyP\S=SG0swxWs~8<8ثv,Lf8)<̊b07ti4B{uG%lpQ} vn69J2 T4X},I5B|Ń$I Gyn2a+ )tC͑aI0w 諡_ ïE#$sy(}IB` MItdry#_-Y!-? /sJ YGQ$DH_BM HXHǖFΛno?iKǕ HNSi|ڗ 3rr+[ Wb8XՃ-D Cp˓`)Dw: l$aQ.kܱN(&e! sY6ĥp Ɗ])3:B)ʗme"`Wc}v^` L;DH=)QQvQhb~f:>[|)`5U-H VCW+_+KQjI3K'=„ 1ȤQ)Okt:CHC.9M CSo1XbPS3e ,"O&Ad s\4I dtPPnH( .ac?ѩ iDÐ$kʺZ[++w?IH]E<m?A9@FeN-1[vOV~QǤsX'J[Sy7p8Ò$L>@Wtęv a@V7o= N|UV<$'ήk3-bJ8kԖѫ=Fir&4I\h磌m. T.W5zpP`=MJZEWY,tslp8E&w2"9 ºLksN`A[+چ$zs,~8T: t2}IJC, 1ID'FחF| P0Eվ׍x]Ag8c)DocyICN`8ϲ`'(4ۅ2|v毫g2˼t(ZQQ[Nvk?rmqVW+SƁGGӡXI,`HH4w}$\l[˴Y\)I) } d g;ܑ0^fR4W#pkwa . ;H `R/J,Yן߾NUnN}oޗOe-Ie bu%~PקSo%.aLx_42,0VúFy&`lb4^$xeZ%'" "ԴB+Sޑԙuׁ!qo0(@nD͂#]aAKv5&Vd[mIecSYU 0m(*@]?d{b34 s֒B|QZ ľ}}Tfl\/,d-L=?mgs ]ɰG/Ԇ[ UGb8Eɗ[˔yCĻd~ dFNnG:JLjV59n'0 rגeL*2fL,DD1$bF$>60#ꀎOmKŖR_б/cƂ@IZPѨ$4}B} OS|$F$LI>r'k)d9uTM>kjE (VD46W8sD;6e/j\Aylҙr\sb17Pʼ1 ֠ŐM<=S92[tZл0 2>Τ}GшvV^f,B_F:rd,]} +xQC xWW qgr.ěg?EX 8G9{&dWЦ^ޠ! 3D bd`_h`M&JfWѱLeT9ZJYYELn0:Ja]U'pE&\:QmKS|h1nS]WaMvYW2"!>N 9 \|jeSzU_f2䐩̣C:ܲ]C_a(L v7ax[( YbL5X>5V'jBI9.l?VjԨ/< RLI=pL]YQ( Wy@> C q&FM+x4bK]lЀodW.)Ya?m, ުJ%rũ 8򵑾dFmpb}k(jt/o&iNkoj1c cE@/$h-N4B)z)HZvb"=̣ dL'ƬG>byC:+V 5oixNs _WS(9p;vv `?-$d۬>nVT"$;9s'y&Y&H/8ۓ"fXMk/}'5 `L~JBP3:sV|M-EF:SF 'DC+;qkg {+M4yi:(t1"f2fv SҩL9- I$Is l Sp$\1yk&#&$C9{ F)-G**(΍l M+(I#k/Z=^P qWC"F_b_yX^QL}}XFk}Nr~#|mF-e{ȒHrLTB3Ș֏yLHETSVi+Řv5+ۜfЭ hX׵pIgu4$ܚy0Г"6Mc3jL(Rb<ק..[=׷% nfH(t0 D.Z)gR~}k8:2Ss-nɻ;œ>qo4gbt\gvxH,#R,gK2T?Ȫ>l? رTʬnG{dm,QPtِ*˰E+IowW=ٔ"hށ7F?j'x J<gzTDl̽ WG7`$__7Oy  EI I~n)<86`$Rc>:h+ &mna1t,ςI V}|JS823> >D[:F/t2 fBcC#@UkSX4@/FбRv:/mmMfCQ|? S>?T88Δۊa%_^stN{JQ>6 inM8ƛu"~xqzYy{C!)Oݘۜ=@sLJ7Sƽ^Y >E#[_NM>WK5f0 z7BAn<V$UBQh`j=GH`Y+ԑf=L"hήX>8+)qk¸71Y0iXnM,*5\^-1A:bHLtY~JJgaVI ԶNb,XF|-V@אǵԞ4Ô,R'3I9jd%WP- L= %ֻl 7b\+ C'EW)`r4{ߒ)$9P6-ڗ5%QC?EQG_^#~; 6601өAM]۶ V4oXSٖZASk.4E=Ue鴗@b<rɧ08B)iYFv8bF(#k=MZ%xdX&%4t$rؼ2xD1u1/2dTIG8:9?m yQeP͔2U{u-;3yw}. aw=Bp/H:ffeL>M21Я-41w]ŋ%(9s铡]iQB aF!!Utzu-I_`$t#vKI+7{3rh:+`ҲmDC &Dkd BzF|I8z09T$˴F{; eI"M yaak~J 9,wաFgSKݜ>j{D#K|4 C)c5ɤqɈOqt8=# s6$6iVʓ> E5'3@^FJNOIBh_~zH r;vӠD YƟsV f71kKdNUqy:9-l29\A1k[V $AБdfY`ڦ5Wtv}]dm<2w<1KZ+3?;+X\Z#m [;“p5%2A&$1A߀$=[8 - q0I>}iOloY`F逗sJm"ҶP( 4}vW9/:X5z1FtPRjIչ(.(;>d_0pу} YV Ay.?KL?2iM&D7>% 65"κ ,DzFWɍ|{k4JhЀ7J%2RwM@g@oriem-pF!|3VPrXykǓmF3 (Cs]Njbs]SJؽKjErve0!lݥ]QJ[/_nt$mؽ#M R"#-6E(5ٝL$Dt!fiGևdb?b-5dfüS#a?*R!|*!c9w ȚnhcP.Y3u\rLBh7$S2֬iMj+Ӹc C%f>.R2ΜjOsTS(< ?S2%pr=ޞ D}qM'15N@װ7G^VET$;WW2[ZsԎNZ+66Do(>|"{5_cg|i{*h ]NIk &(%<8Z ӑAճ]3I|cu[mٝx}yV*xj{;Ms-J?s# F2BW}B X^?T_Z|,E"]v42>Kk?DRP>'Ù̫S&j_џ>߮OQw,:HQr>l( RO8QlFb9[yq@))"!Y"YB"Uٹyd?||Ӕ3 +Dsj&r>`&\edgEf/tbd[Qd+zeta `^a*Y2'b;b`來Ya2M%Yb)x?ܽ˴w 2͛J#NS*r}z! U(*p"[g~LF/K6d!T$o%(;R t㠈< AȲo#nxZ,$c-U,<( ;S!-/j;^"Zcɼa"Sy뜹aHnUF SlBQ2$h,sr8sH/~P4MjL7"kaqzzy' fR ZFvqAReStigydwLJuE)ou ܯEvFUy_QpSDlĭjaӣJ#"3njlnz񬣳+YFuJLQ2rk`u] ` PКHW9%ه-O;W'UvNukavee`v9*6v3HM(z)w{Rot{Ŷ)w6c$c5a@;'>{2rTm:у%ڗ+weQܼ;{檜>v,agdhOYtϗ՜UyU} 5csJkz˕utWaCO]8<}Ra_-ij?J6}It1v5Cqhh(ŵ FӻC!V`VﯲYC::9˟__}WS]]]]]]?K'.kaptain-0.73/doc/fig1.png0000640023433300116100000000216110120611327013667 0ustar zsoltengPNG  IHDRE9PLTE޽͜0LbbKGDH pHYs  ~tIMEn8IDATxڋv `k u}] 7.j;uFvGi}NAGw4˷ ~ gbg{/? кRmk 0/mz3m5Y-5 ْsmz4z) hKն/`dk"J 3smR%DP%ۢ úǖ]kZrSgEִuu>:kj^)p vkFyJW鹕EnWhђs]%v5{t8kh.ɹFS2\OZDMFBF (a%Li0m~Іa~m).^qEy4mi&Wћ\w=RWߵ6h Yy~+&) R -90;\RWYQ8j6MfhG5!f[T}`MB ®{[ (a%Li-/QJh?BECǴH̓Z4[4)B'S3in;-E[@G5E] 4=BE5>GEв&{M}}~AAA+΍w(0Q4JދƵl jX]Zt,ӖT'* h:T)Ǘ@Mij2,Si;0QhXQF}kڠUkڻW+Vy3a%Li0jﴀawZƽ4_iLcӘ41iL;F+p\?M.Ua%LUBV L#i0-e7ϦyVsȅܙeO4жwJF (MYaK[cJ;?Li0Q4Jfo]f|UբIENDB`kaptain-0.73/doc/kaptain.html0000640023433300116100000027001710120611327014657 0ustar zsolteng Kaptain:
[Top] [Contents] [Index] [ ? ]

Kaptain

1. The Concepts of Kaptain  
2. Invoking Kaptain  
3. Grammar Scripts  
4. Examples  
5. External Control  
6. Errors  
7. Reference of Special Symbols  
A. Reference of Modifiers  
Concept Index  Concept index.

This is a manual for Kaptain, the Universal Graphical Front-end.

Copyright © 2000-2004 Zsolt Terk

[ < ] [ > ]   [ << ] [ Up ] [ >> ]         [Top] [Contents] [Index] [ ? ]

1. The Concepts of Kaptain

Kaptain is a universal graphical front-end. It was originally developed in order to provide a simple and efficient tool for creating dialog-based interface for command line programs. Now, its communication features allow it to serve the graphical user interface of a program without directly using a graphical library, such as GTK or Qt.

When Kaptain is started, it reads a so-called grammar script. This is a text file, which contains a description in a form of a context-free grammar and optionally some other instructions. This manual refers to the input file of Kaptain as a grammar script. See 3. Grammar Scripts for a complete overview on grammar script syntax.

According to the grammar script, Kaptain builds a graphical dialog box. Certain parts of the dialog box are associated with certain elements of the grammar. This association is quite natural, thats why Kaptain's language is so easy to learn.

In the dialog box, several widgets are present. These objects can be manipulated by the user--text can be entered into input fields, checkboxes can be set on and off. When a certain push button is pressed, Kaptain reads the data specified by the user in the dialog box and uses the context-free grammar to generate text. The generated text is then executed as a command, just like as if it were entered at the command prompt.

Suppose we have a program named prog that runs in two different modes. For its first mode, an integer parameter should be given, and the second mode needs some text as parameter. An example for starting prog in its first mode:
 
and in second mode 

 
Kaptain is a perfect tool for creating a graphical front-end for this
program. First of all, we need to describe the possible command lines
with a grammar.

 
start -> "prog " parameter ;
parameter -> "-x " @integer | "-y " @string ;



The grammar in the example above is almost enough for Kaptain to build a
dialog containing an integer input box and a string input field, each
having a radio button. Additionally a push button is needed and some
text might be specified in order to label the input fields.



Given a file containing such a description, Kaptain parses the grammar
and builds a dialog box. When the push button is pressed, the text is
generated according to the settings of the user.



The complete grammar for the program above might look like this:

 
start -> "prog " parameter @action(start)="Ok";
parameter -> x | y ;
x "First mode" -> "-x " @integer;
y "Second mode" -> "-y " @string;







According to the settings in the figure, the generated text is
`prog -x 0', since the first radio button is selected.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 2. Invoking Kaptain 





Kaptain needs a grammar script in order to display the dialog. This is
usually located in a file, and the name of that file is passed to
Kaptain as an argument. The grammar script can be written to the
standart input of Kaptain, too.



The running mode of Kaptain can be normal or test mode. In test mode,
commands are not executed, they are printed to the standard output
instead.



The command line of Kaptain generally looks like this:

 
Kaptain [options] file

If the file is omitted, the standard input is used as a
source for the input file.



Some options are used to specify running mode, while others set up
different kinds of communication channels for external control. Kaptain
accepts the following switches and parameters:



`--version'


Print out the version information of Kaptain end quit.




`--help'


Write a brief help on command line options.




`--test'


Run in test mode. This means that commands are not executed when a
button is pressed, only printed to the standard output.




`-V'

`--verbose'

Report more information on processing the input file. Internal
representation of the grammar and the dialog tree is also printed. Use
this flag if Kaptain does not work as expected.




`-c host:port'

`--client host:port'


Establish communication channel as a client connecting to a server on
host listening on port.




`-s port'

`--server port'


Listen to the specified port and accept the first connection. This
will be used as a communication channel.




`-p command'

`--pipe command'


Start the given command and communicate with it on its standard input
and output. Don't forget to quote command if it contains spaces or
other metacharacters used by the shell.
 

`--stdio'


Use standard input and output for communication. In this case you must
specify an input file, thus grammar script cannot be read from the
standard input when it is used as a communication channel.




`--no-input'


Instructs Kaptain not to process messages recieved on the input channel.




`--no-output'


If this flag is set, Kaptain will not send any messages on its output
channel.








These are the possible parameters and options accepted by Kaptain
called from the command prompt.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3. Grammar Scripts 





The input file of Kaptain is a grammar script. It contains the
description of a context-free grammar in a form of rules. Beside the
rules, it might also contain so-called descriptions and constraints.



Comments can be placed in grammar scripts. Hashmark (`#') is a
comment character, which means that all characters after the hashmark up
to the end of the line are ignored together with the hashmark. This is
not true if the hashmark appears inside a quoted string, see
3.3 Quotations.





 

3.1 Grammars  


3.2 Special symbols  


3.3 Quotations  


3.4 Regulas expressions and translations  


3.5 Using text manipulation in grammar rules  













[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.1 Grammars 





The program Kaptain reads an input file containing the description in
the form of a context-free grammar. The concept of context-free grammar
is coming form formal linguistic. A grammar is built up of several
rules. Each rule contains a left hand side symbol and some symbols on
the right hand side separated by an arrow:

 
start -> "progname" options parameters ;

An interpretation of a rule is the following. The symbol on the left
hand side, which is a nonterminal symbol is considered as the
concatenation of the symbols on the right, which can be either
nonterminal or terminal symbols. In a Kaptain grammar,
symbols are separated by whitespace and rules should end with a
semicolon.



Nonterminal symbols are similar to variables in other programming
languages. Their name can contain alphanumeric characters and
underscore, and should not begin with numbers.




Terminal symbols are written between quotation marks. Kaptain has many
ways for specifying terminal symbols, see 3.3 Quotations




The text generation process is an iterated application of rules on the
current sentence. Starting from the nonterminal symbol `start',
every step consists of an application of a rule. This means that a
nonterminal symbol in the current sentence--which is the left hand side
of the applied rule--is replaced by the symbols on right hand side of
the rule. This process ends if there are no more nonterminal symbols in
the current sentence.





To illustrate text generation, let us have the following grammar:

 
start -> "Your " animal "is " size ;
animal -> "dog " ;
animal -> "cat " ;
size -> "big." ;
size -> "small." ;



Starting with the sentence `start', only the first rule can be
applied.  The current sentence is then `"Your " animal "is "
size'. Here both `animal' and `size' is nonterminal,
thus any of the rules but the first can be applied. This way exactly
four different sentences can be generated by this grammar:

 
Your dog is big.
Your cat is small.
Your dog is big.
Your cat is small.



As a syntactic simplification, different rules of the same left hand
side can be written in one complex rule using `|' character as a
separator of the different right hand sides. The grammar above is
equivalent to the following:

 
start -> "Your " animal "is " size ;
animal -> "dog " | "cat " ;
size -> "big." | "small." ;



The set of sentences that can be generated using a certain grammar is
called the language generated by that grammar. Formal
languages is a branch of mathematics that deals with languages and
grammars.







 

3.2 Special symbols  













[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.2 Special symbols 





The expression power of grammars is great. However, sometimes it is
quite comlicated to express simple things. For example, the definition
of numbers is quite long and messy: (Of course, it is possible to write
a different grammar for the numbers, this is not a unique definition.)

 
number -> digits ;
digits -> digit digits | digit ;
digit -> "0" | "1" | "2" | "3" | "4" 
       | "5" | "6" | "7" | "8" | "9" ;



Beside terminal and nonterminal symbols, Kaptain offers so-called
special symbols to appear in grammars. 

Special symbols always start with `@'. Such a symbol almost always
refers to a widget in the dialog. For example `@integer'
represents a widget, which is a rectangular area where the user can
write a decimal number. The special symbol evaluates to the value that
it contains at the time of the text generation process.



Special symbols may accept different number of parameters and an
optional initial value. The general form is as follows:

 
@specname(param_1, param_2, ..., param_n)=initvalue

If no parameters are given, the parentheses can be omitted. The same
simplification can be applied to the initvalue, what's more, equality
sign must not be written if no initvalue is present. The following forms
are thus enabled:

 
@specname
@specname=initvalue
@specname(param_1, param_2, ...)
@specname(param_1, param_2, ...)=initvalue

Note that the number and type of parameters is not unique, but if
Kaptain cannot interpret a certain parameter in some position, then it
will be simply ignored.



The complete reference of special symbols can be found in
7. Reference of Special Symbols.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.3 Quotations 


Quotations are the constructions for specifying a literal string, which
is a terminal symbol in the grammar. Kaptain understands a great variety
of quotations in order to make it possible to write character sequences
in the easiest way. The possibble quotations are similar to those of the
language perl and the unix shells.







Double quotes


Strings between double quotes are weakly quoted strings. This means that
some characters are treated as meta-characters. For example, backslash
(\) is an escape-character. The following escape-sequences are
available: \n, \t, \", \\. Other characters
are not modified if preceeded by backslash.  This way one can place
double quote character inside a string:

 
"Double quotes \" are easy to write."

which stands for 

 
Double quotes " are easy to write.



An other meta-character is the dollar sign ($), which is used for
inserting environmental variables into strings. For example in
"$HOME/hello" the sequence $HELLO is replaced by the
content of the HELLO environmental variable. If the environmental
variable name contains other characters than letters, the following form
should be used: ${ANY89}.



This kind of quotation should always end on the same line it was
started. If the end-of-line symbol is reached within the string, Kaptain
prints a warning.




Single quotes


Strings quoted by a single apostrophe are strongly quoted strings. This
means that each character inside the string stands for itself, except
the apostrophe, which always means the ending of the string. There is no
way to include apostrophe in single quoted strings.

 
'No way to have apostrophes in this string'

This kind of quotation should always end on the same line it was
started. If the end-of-line symbol is reached within the string, Kaptain
prints a warning.




Backquotes


Strings in backquotes are treated in a special way. Immediately after
the string is parsed, Kaptain executes the given string as a shell
command, and inserts the text it has written to the standard output
instead of the original string. For example, placing `ls`
evaluates to a string which contains the file names of the current
directory. An easy way to create a list box containing the available
files is the following:

 
@list(`ls`)

Since command ls returns the files separated by a newline symbol,
`@list' inserts the different lines of its parameter value as
different list items. See section 7. Reference of Special Symbols.



The commands are passed to `/bin/sh', so any shell constructions
can be given, e.g., pipes.



Using backquots is a strong form of quoting: there are no special
characters. As a consequence of this, no backquote (`) can appear
inside.




Perlish single quotes


Single quotes are used when no apostrophes appear in the string. Perl
introduced a quotation form where the user chooses the most appropriate
delimiter and any other character can be placed between the delimiters
without modification. The following

 
q%any characters except the delimiter%

is evaluated to 

 
any characters except the delimiter

and the delimiter character, here % can be replaced by any
except the following: letters, numbers, ;().=:_- and
whitespace.



The letter `q' at the beginning stands for quotation.




Perlish exection quotes


Analogous to the previous generalization of single quotes, perl
generalizes backquotes using the following form:

 
x%shell command line not containing the delimiter%

which evaluates to

 
shell command line not containing the delimiter

The delimiter can be of the same set as above, and the letter `x'
stands for execution.




Multiline quotes


A long string spreading on more than one line is usually written using
the line-delimiter construction.



When Kaptain parses two less signs (<<), the text up to the end of the
line is stored as a delimiter string and it starts to scan a quotation.
The quotation is ended if a line occurs that is exactly same as the
delimiter string.




 
... <<LINE_DELIMITER
Here goes
the long text
LINE_DELIMITER

The sample above evaluates to the following two lines:

 
Here goes
the long text

The ellipses indicates that the << sequence needs not to be on the
beginning of a line. The quotation above is equivalent to the following:

 
... "Here goes\nthe long text"

















[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.4 Regulas expressions and translations 






 

3.4.1 Regular expressions  


3.4.2 Substitutions  


3.4.3 Transliterations  






All expressions mentioned here use / (slash) as bounding
character. This can be replaced by any expect letters, numbers, blanks,
underscore, hyphen and semicolon. But the beginning and the ending
bounding characters must be the same, there is no way to refer to that
character inside the expression. For example, instead of
m/hello/, one can write m%hello%, m^hello^, and so
on.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.4.1 Regular expressions 






Kaptain understands regular expressions like grep or perl. For a
detailed review, type man grep or man perlre at the
command prompt. You can give a regular expression as a parameter to some
special symbols, like this:

 
@string(m/$[0-9]*^/, ...



Here m/$[0-9]*^/ means that the string value in the input line
must match the corresponding regular expression. In this
particular case, this means the user can only type integers into the
line input field.



When parentheses are found in the regular expression, a subexpression is
matched which can be referred with \d where d is a
digit. (\1, \2, ... \9) For example:

 
@multicol(m/([^[:blank:]]*)[[:blank:]]+([^[:blank:]]*)/, 
          "First_name Last_name",
          "Albert Einstein Dr.", "Isaac Newton", "Rudolf Kepler")



Here the regular expression matches each separate string and the
subexpressions match the first and the second word. In this case, a
twocolumn listview is displayed, each line contains a name. The first
column contains their first name, the second the last name. Note that
the third word "Dr." in line "Albert Einstein Dr." is not
matched by the second subexpression, so it is not displayed.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.4.2 Substitutions 







Substitution is based on regular expression matching just like in perl
or sed. (For some metacharacters, sed uses different syntax.)
Substitution expression needs a regular expression and a substitution
string as an input:

 
s/regexp/subs/



For example, to replace the words "dog" in a text to "cat, just write
s/dog/cat/g. That g at the end means that substitution is
repeated until the regular expression cannot match. In the second part,
you can refer to the matched subexpressions by \d, where d
is a digit. \0 refers to the whole matched string. Thus the
following swaps the first two words in the text:

 
s/([^[:blank:]]*)[[:blank:]]+([^[:blank:]]*)/\2 \1/



You can use it in listbox:

 
@list(s/([^[:blank:]]*)[[:blank:]]+([^[:blank:]]*)/\2 \1/,
     "Albert Einstein Dr.", "Isaac Newton", "Rudolf Kepler")

Here, the names in the listbox will appear in reverse order (this is
common in Hungary) while the selected name will appear in the generated
text in western style.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.4.3 Transliterations 






Transliteration is a very simple operation which replaces some
characters with some others.

 
tr/abc/def/

This replaces a with d, b with e, c
with f.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 3.5 Using text manipulation in grammar rules 





If you put some substitution or transliteration expressions on the
beginning of the right side of a rule, those are executed each time when
text is generated with that rule. This means that for

 
no_jim_and_joe -> s/Jim/Peter/g s/Joe/Peter/g tr/+/-/ @string;

If the user writes Jim or Joe into the input box, it is replaced with
Peter, and plus signs are changet to minus when the text is generated.



You can only mention s/// and tr/// operations just after
the arrow of a rule, but any number of such expressions can be written
there. They are executed from right to left, as it is expected naturally
(in my opinion).










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 4. Examples 





If you write your own grammars, and you think they might be useful for
others, please send them to me terek@users.sourceforge.net, I
will put them to the main Kaptain site.




 

4.1 Sound recording  


4.2 Creating archives  


4.3 Calling perl  













[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 4.1 Sound recording 





Let's record from the microphone connected to the computer. The command
is

 
terek@fido:~$ dd count=5 bs=8 < /dev/audio > myfile.au

It would be better to see a beautiful dialog. The grammar

 
#!/usr/local/bin/Kaptain
start:framed -> "dd count=" count " bs=" size "k <" input " > " output ;
count "Number of blocks" -> @integer=5 ;
size "Size of blocks (k)" -> @integer=8 ;
input "Input device" -> audio | dsp ;
audio "Audio" -> "/dev/audio" ;
dsp "DSP" -> "/dev/dsp" ;
output "Output file" -> @outfile("*.au");














[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 4.2 Creating archives 





Here is a simple grammar, just witten in 5 minutes (may contain errors,
check before you try to use it!)

 
#!/usr/bin/kaptn

start "Tar" -> tar buttons;

tar -> "tar " choice " " opt archive " " files;
opt:framed :horizontal  -> extropt createopt ;

createopt "Write options" -> dump remove verb comp;
extropt "Read options" -> noerr keep same abs;

dump "Dump files, not just symlinks" -> "--dereference " | @;
noerr"Ignore failed read" -> "--ignore-failed-read " | @;
keep "Keep existing files" -> "-k " | @;
same "Extract all protection information" -> "-p " | @;
abs "Absolute path names" -> "-P " | @;
remove "Remove files after adding to archive" 
   -> "--remove-files " | @;
verb "Verbosely list files proceeded" -> "-v " | @;

comp -> compress | @;
compress "Compression" -> gzip | bzip;
gzip "gzip" -> "-z ";
bzip "bzip2" -> "--use-compress-program bzip2 ";

choice:framed  -> work;
work "Main choice" -> concat | ! create | diff | del | append 
                     | list | update | extract;
concat "Append to archive" -> "A";
create "Create archive" -> "c";
diff "Find differences between archive and file system" -> "d";
del "Delete from archive" -> "-delete";
append "Append to the end of an archive" -> "r";
list "List contents" -> "t";
update "Update archive" -> "u";
extract "Extract from archive" -> "x";

archive "Archive name" -> @infile;

files "Files to work with" -> @string ;

buttons :horizontal -> @action(tar)="OK" @close="Cancel";



It looks like this:

<#if output="html">



This produces a command like

 
tar c --remove-files --use-compress-program bzip2 files.tar *.cpp *.h










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 4.3 Calling perl 





Kaptain can generate various texts, such as complicated pipes or a piece
of perl code.  To create your encrpyted password, use the perl command:

 
print crypt('passwd','sa')."\n";



Let's make the grammar:




 
#!/usr/local/bin/Kaptain
start "Password encrypter" -> code @action("perl","-e",code)="Crypt";
code:framed -> "print crypt('" passw "','" sa q%')."\n"% ;
passw "Password" -> @string="notsimple";
sa "Random chars(2)" -> @string(2)="y4";



Notice that the @action has three parameters; the perl
compiler is called without the shell, having two parameters: -e
and the evaluated text of code;



Simple but great:











[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 5. External Control 







This chapter describes the communication with the dialog in Kaptain.



The most interesting new feature in Kaptain 0.7 is the possibility of
modifying the data in the widgets while Kaptain is running. For this,
Kaptain needs a communication channel, which can be some network
communicaton, redirection to an other program (using pipes) or the
standard input and output.



On a communication channel Kaptain can recieve messages. There are
two kinds of  messages:




    


  1. Setting message:

This can be sent to rules that contain exactly one special symbol on the
right side. A message consists of two parts: first comes a nonterminal
name, which specifies the target of the message. This should be followed
by a the real message (till the end of that line), which can be in fact
anything that can be written after the special symbol you are refferring
to by the rule.  For example, having a rule like

     
    number -> @string

    then you can send a message like

     
    number="Hello"

    and the string input field will be set to the given value. 

    

Thus the general form of a setting message is:

     
    nonterminal(par1,par2,...)=initvalue
nonterminal=initvalue

    The later one is the simplified form, i.e., when no parameters are
given. This was the case in the example above.

    

For a detailed overview of the possible parameters and initial values
for a given type of special symbol, See section 7. Reference of Special Symbols.

    


  2. Asking message:

If a nonterminal is followed by a question mark in a message sent to
Kaptain on a communication chanel, Kaptain sends back the generated text
by the given nonterminal in the following form:

     
    start?                                          <- to Kaptain
start!<...here comes the generated text...>     <- from kaptin

    This way data can be retrieved at any time from the widgets.

    













[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 6. Errors 





Kaptain reads the given file and parses the grammar according the rules
in 3. Grammar Scripts.



If Kaptain finds something that is not according the rules described in
this manual, it either signals an error or just a warning.



For example, warnings are generated if string, regular expressions, or
other language constructs are opened but not closed till the end of the
line. This is often handy when typoes are made in the grammar script.



On the other hand, Kaptain might find syntax error, and it immediately
stops. In this case, the name of the last rule that was read
successfully is printed together with its line number. Thus one has to
look at the errors after the last correct rule. The most usual mistake
is that the closing semicolon is forgotten from the end of a rule.










[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 7. Reference of Special Symbols 









`@integer'


creates an integer input field with up and down arrows, which can be
used to increase or decrease the number in the field. Two integer
parameters are accepted, these are the minimum and maximum
values. Initial value can be an integer, too. For example,

 
@integer(-10,20)=4 

will create an integer input which can store a number between 
-10 and 20, and is initially set to 4. The minimum and maximum value
default to 0 and 99, respectively, while the uninitialized field is set
to 0.



This object evaluates to the value of the input field.




`@string'


makes a one-line input field. If an integer parameter is given, the
maximum length of the string is bounded by that number. For example,

 
@string(20)="Hello" 

creates an input field with `Hello' inside, allowing 
strings of at most 20 characters.



This object evaluates to the value of the input field.




`@float'


makes a line input field than can contain a real number. Initial value
should be given in quotes if it contains other characters than numbers,
for example @float="1.13".



This object evaluates to the value of the input field.




`@regexp'


Similar input field to @string, but the regular expression
parameter is used to control the string that is entered. For example,
@regexp(m/^[ab]*$/) enables only characters a and
b to be entered. Initial string value is processed if it matches
the regular expression.




`@password'


This is identical to `@string', the only difference is that the
characters are not shown; an asterix appears like in usual password
input fields.




`@list'



`@combo'

`@combow'

These specials generate a list box, a combo box or a writable combo
box, respectively. Each given parameter is inserted into the box if it
is a number or a string. If a multi-line string occurs, every line is
inserted as a separate item. Thus @list("hello",`ls`,"bye")
creates a list box containing the files from the current directory, and
two more lines: `hello' and `bye'.



If the given initial value is a number, it indicates which line should
initially be selected. In case of a string, the first occurrence of that
string is highlighted. Finally, if a regular expression is given as an
initial value, the first line matching that regular expression will be
selected.



If a substitution expression comes in the parameter list, it is
applied to the following string parameters until a new substitution
parameter is reached. This is useful to make different text in the
dialog box than that appears in the generated text. For example, in
@list(s/^.*://,"a:A","b:B","c:C") only the text after the colon
is inserted into the list box, and the whole string is used when the
symbol is evaluated. Note that the initial value selection described in
the previous paragraph is made by comparison to the original strings,
not the modified ones that appear on the screen.



The @list and @combo objects evaluate to the line from
which the currently selected line was generated using substitutions.
The @combow evaluates the line in the combo widget.




`@button'


Places a simple push button with label given as initial value. The label
can be an image, if a filename is given in braces, like
@button="{ok.png}".
creates a push button using the given initial value. If the value is in
the form of "{filename}", then it is considered to be a
pixmap file, otherwise the initial value is used as a text label. For
example @button="OK" creates a simple push button with label
`OK'.



One push button in a dialog can be the default button: This can be
achieved by putting a space to the beginning of its name. For example, a
default ok button is created for the following code: @button="
OK".




`@close'


Creates a button, which closes the current dialog when pressed.




`@action'


Synchronous execution. When this button is pressed, the given
command is executed. During the execution, the button is disabled.




`@fork'


Asynchronous execution. When this button is pressed, the given
command is started in the background, without any effect to the dialog.




`@exec'


Final execution. When this button is pressed, the given command
is started and Kaptain quits immediately.




`@execclose'


This is similar to `@exec', the only difference is that Kaptain
only closes the current dialog. In the topmost dialog, this has the same
effect as `@exec', since Kaptain quits when it closes the topmost
dialog.




`@echo'


Creates a button, which causes the generated text to be printed to the
standard output.




`@dump'


Creates a similar button to `@echo', but Kaptain quits after
printing the generated text to the standard output.




`@execbuffer'

This button causes the synchronous execution of the given command, when
pressed. The standard output of the executed command is captured and
stored. Later, this symbol evaluates to the stored text. This is the
only button-like special that can evaluate to nonempty text.




`@preview'



Creates a push button, which shows up a new dialog when pressed.  The
new dialog contains the code generated for a given nonterminal.  The
accepted parameters are the following: the nonterminal,font
descriptor(string), minimum width and height (integers) and the closing
button's text.

 
@preview(start,"Lucidatypewriter",300,200,"Close")




`@infile'



`@outfile'

`@directory'

These special symbols generate a line input field together with a push
button. When the button is pressed, a file or directory choosing dialog
appears. The name of file selected by the user is then inserted into the
input field. @infile stands for a file open dialog, while
@outfile for file saving dialog. Using
@directory, one can select an existing directory.



The initial value given to these symbols is inserted to the input field
at startup. When the button is pressed, the dialog is starting on the
file/directory currently specified in the input field, if exists.



The file-like specials (@infile, @outfile) accept one
string argument. It can be a filter for the file selection
dialog. An example for a multiple filter is the following:

 
The separators between filter groups can be either double semicolons or
newline characters. 



A complete example for @infile:

 
If no filter is specified, all files can be selected. In case of no
initial value, the current directory is the starting point.



These items evaluate to the text in the input field.




`@container'


Creates two buttons and a list box. The first parameter
should be a nonterminal symbol, the following two strings are
interpreted as the labels for the buttons. When the first button is
pressed, the given nonterminal symbol is evaluated, and the generated
text is inserted as a line into the list box.  When the second button is
pressed, the current line is removed from the list box. Button names
default to `Add' and `Remove'.



This object is useful in cases when recursion is needed in the
grammar. (In Kaptain, recursion is forbidden.) For example, if one or
more file name is needed, one can write this:

 
filename -> @infile; box -> @container(filename);

The container evaluates to its contents, its lines are simply
concatenated.




`@multcol'

Creates a multi-column table with the given data filled.  If the first
parameter is a regular expression (m/.../), all the following
string parameters are matched against this expression. Each such string
parameter stands for one line, which is separated according to the
regular expression.The subexpressions matched form the columns of the
given row. If there is no regular expression, the rows are separated at
the tab characters.



The forthcoming string parameters are the rows of the table, except the
first one, which is specially the header. Initial value, if an integer
is given determines the selected element in the table.



The @multicol special symbol generates to the content of the
selected row.

 
@multicol("Header 1\tHeader 2","data\tdata\tdata","abc")=1;
@multicol(m/([^ ]+) ([^ ]+) ([^ ]+)/,"1 2 3","a b c",
          "xx yy zz")=0;




`@fill'


Inserts some stretchable space into the dialog. No other functionality,
evaluates to empty string.




`@text'


This special symbol creates slightly sunken box in the dialog with the
given text inside. The text to be displayed is the concatenation of the
initial value and all the string parameters. Since it has no functions,
it is only good for informing the user.



This object evaluates to the empty string.




`@icon'


Displays an image in the dialog. The first parameter should be string,
which is the name of a graphic file. Several file formats are
recognized. From Qt's manual:


Qt currently supports the following image file formats: PNG, BMP, XBM,
XPM and PNM. It may also support JPEG, MNG and GIF, if specially
configured during compilation. The different PNM formats are: PBM (P1 or
P4), PGM (P2 or P5), PPM (P3 or P6).





Icons evaluate to empty string.




`@edit'


This is a multi-line text editor field. Initial value is inserted, it
can be a multiline text, too.  The first parameter, if it is a string,
is treated as a font name, Kaptain tries to set the editor font. The
next two parameters of integer type can be specified to set the minimum
width and height for the editor field, in pixels. For example,
@edit("lucidatypewriter",300,200)="Hello,\nEditor!" creates an
editor field of 300x200 pixels, using a nice font.



If the given font name starts with a minus sign, it is treated as an
XLDF (X Logical Font Description). Note that Qt does not handle
wildcards in font descriptions, nor the aliases at this time. A fully
specified font looks like this:

 














[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 A. Reference of Modifiers 





Modifiers always begin with a colon and are related to the nonterminal
after which they appear.  For example:




 
start :framed :horizontal -> a b c ;



means that a, b and c are placed horizontally one by one, and each is in
a frame.



Modifiers usually have effect on the appearence of the dialog.






`:framed'


Makes the child widgets to appear in a frame.




`:tabbed'


Makes the child widgets to appear on different tabs.




`:horizontal'


Makes the child widgets to appear horizontal one by one, instead of the
default vertical arrangement.




`:reverse'


Makes the child widgets to appear in reverse order. That is down to top
if :horizontal is not present, otherwise right to left.




`:noeval'


The nonterminal will evaluate to an empty string. It is useful when you
use a @string input field by a @container, and you want to have only
those items which were inserted into the container.




`:double'


Place child elements in two rows or columns. It is useful when you have
many radio buttons.




`:beside'


Place child elements immediately to the right of the label of this rule
(if it's a radio button or check box), not below as by default.  Use it
in the similar situations as this:

 
number :beside "Number" -> @integer | @ ;




`:dialog'


Create a pushbutton, which if pressed, makes a subdialog to
appear with the right side of the rule.




`:wizard'


Create a pushbutton, which stands for a subdialog, having all the
nonterminals from the right side as pages in a so called Wizard
dialog (with Next, Back, Cancel and Finish
buttons). Must be on a conjunctive rule.




`:tree'


Places all children in a tree widget. If the children are also marked
with :tree, they will appear on the second level in the tree. Look at
the example grammar for indent. This is a very good way to place a great
amount of structured information in the dialog. Checkboxes and radio
buttons can appear in the tree, but if other things are present, they
will be placed under or beside the QListView object. Use it with :beside
if you want to create things like KControlCenter.  If the label of the
tree item is like {icons/my.gif}Text", then the picture
mentioned between the braces will be placed beside the Text--this can
be very attractive.




`:detailed'


Together with :tree, it makes a second column appear in the
TreeView where the tooltip information is placed.




`:stack'


Creates a widget stack, which means all chind widgets of the
corresponding rule are located in the same area, and only one is
visible. To control which one is on the top of the stack (that is,
visible) external communication can be used. See section 5. External Control.















[ < ]
[ > ]
   [ << ]
[ Up ]
[ >> ]
            [Top]
[Contents]
[Index]
[ ? ]



 Concept Index 






Jump to:   A
   
B
   
C
   
D
   
E
   
F
   
G
   
H
   
I
   
L
   
M
   
N
   
P
   
Q
   
R
   
S
   
T
   
V
   
W
   






Index Entry Section


 


A


action7. Reference of Special Symbols


Asking message5. External Control


 


B


Backquotes3.3 Quotations


besideA. Reference of Modifiers


button7. Reference of Special Symbols


 


C


Client socket2. Invoking Kaptain


close7. Reference of Special Symbols


Comments3. Grammar Scripts


Communication channels5. External Control


container7. Reference of Special Symbols


Context-free grammar1. The Concepts of Kaptain


 


D


detailedA. Reference of Modifiers


dialogA. Reference of Modifiers


Dialog box1. The Concepts of Kaptain


doubleA. Reference of Modifiers


Double quotes3.3 Quotations


dump7. Reference of Special Symbols


 


E


echo7. Reference of Special Symbols


edit7. Reference of Special Symbols


exec7. Reference of Special Symbols


execclose7. Reference of Special Symbols


External control5. External Control


 


F


fill7. Reference of Special Symbols


float7. Reference of Special Symbols


fork7. Reference of Special Symbols


Formal languages3.1 Grammars


framedA. Reference of Modifiers


 


G


Generating text3.1 Grammars


Grammar1. The Concepts of Kaptain


Grammar script1. The Concepts of Kaptain


Grammar scripts3.1 Grammars


Grammars3.1 Grammars


 


H


help2. Invoking Kaptain


horizontalA. Reference of Modifiers


 


I


icon7. Reference of Special Symbols


infile7. Reference of Special Symbols


integer7. Reference of Special Symbols


 


L


Language3.1 Grammars


list7. Reference of Special Symbols


 


M


Multiline quotes3.3 Quotations


 


N


No input2. Invoking Kaptain


No output2. Invoking Kaptain


noevalA. Reference of Modifiers


Nonterminal symbol3.1 Grammars


 


P


password7. Reference of Special Symbols


Perlish exection quotes3.3 Quotations


Perlish single quotes3.3 Quotations


Pipe2. Invoking Kaptain


 


Q


Quotations3.3 Quotations


 


R


regexp7. Reference of Special Symbols


Regular expression based substitution3.4.2 Substitutions


Regular expression's subexpression3.4.1 Regular expressions


Regular expressions3.4.1 Regular expressions


reverseA. Reference of Modifiers


 


S


Scripts3.1 Grammars


Sentence3.1 Grammars


Server socket2. Invoking Kaptain


Setting message5. External Control


Single quotes3.3 Quotations


Special symbol3.2 Special symbols


stackA. Reference of Modifiers


Standard input2. Invoking Kaptain


string7. Reference of Special Symbols


Subexpression3.4.1 Regular expressions


Substitution3.4.2 Substitutions


 


T


tabbedA. Reference of Modifiers


Terminal symbols3.1 Grammars


Test mode2. Invoking Kaptain


text7. Reference of Special Symbols


Text generation3.1 Grammars


transliteration3.4.3 Transliterations


treeA. Reference of Modifiers


 


V


Version2. Invoking Kaptain


 


W


wizardA. Reference of Modifiers


 


Jump to:   A
   
B
   
C
   
D
   
E
   
F
   
G
   
H
   
I
   
L
   
M
   
N
   
P
   
Q
   
R
   
S
   
T
   
V
   
W
   










[Top]
[Contents]
[Index]
[ ? ]



Table of Contents



1. The Concepts of Kaptain


2. Invoking Kaptain


3. Grammar Scripts




3.1 Grammars


3.2 Special symbols


3.3 Quotations


3.4 Regulas expressions and translations




3.4.1 Regular expressions


3.4.2 Substitutions


3.4.3 Transliterations




3.5 Using text manipulation in grammar rules




4. Examples




4.1 Sound recording


4.2 Creating archives


4.3 Calling perl




5. External Control


6. Errors


7. Reference of Special Symbols


A. Reference of Modifiers


Concept Index










[Top]
[Contents]
[Index]
[ ? ]



Short Table of Contents



1. The Concepts of Kaptain


2. Invoking Kaptain


3. Grammar Scripts


4. Examples


5. External Control


6. Errors


7. Reference of Special Symbols


A. Reference of Modifiers


Concept Index











[Top]
[Contents]
[Index]
[ ? ]



About this document

This document was generated 
using texi2html

  
The buttons in the navigation panels have the following meaning:






 Button 
 Name 
 Go to 
 From 1.2.3 go to





 [ < ] 

Back


previous section in reading order


1.2.2






 [ > ] 

Forward


next section in reading order


1.2.4






 [ << ] 

FastBack


previous or up-and-previous section 


1.1






 [ Up ] 

Up


up section


1.2






 [ >> ] 

FastForward


next or up-and-next section


1.3






 [Top] 

Top


cover (top) of document


   






 [Contents] 

Contents


table of contents


   






 [Index] 

Index


concept index


   






 [ ? ] 

About


this page


   







where the  Example  assumes that the current position 
is at  Subsubsection One-Two-Three  of a document of 
the following structure:

    

  •  1. Section One  
    • 

      

    • 1.1 Subsection One-One
      • 

        

      •  ... 
        • 

      

    • 1.2 Subsection One-Two
      • 

        

      • 1.2.1 Subsubsection One-Two-One

      • 1.2.2 Subsubsection One-Two-Two

      • 1.2.3 Subsubsection One-Two-Three     
<== Current Position 

      • 1.2.4 Subsubsection One-Two-Four

      

    • 1.3 Subsection One-Three
      • 

        

      •  ... 
        • 

      

    • 1.4 Subsection One-Four
      • 

    






  

This document was generated
by Terk Zsolt on September, 11  2004
using texi2html




kaptain-0.73/doc/kaptain.info0000640023433300116100000014054411532667541014670 0ustar  zsoltengThis is kaptain.info, produced by makeinfo version 4.13 from
kaptain.texi.

INFO-DIR-SECTION Utilities
START-INFO-DIR-ENTRY
* Kaptain: (kaptain).           Universal graphical front-end.
END-INFO-DIR-ENTRY

   This is a manual for Kaptain, the Universal Graphical Front-end.

   Copyright (C) 2000-2004 Zsolt Tere'k


File: kaptain.info,  Node: Top,  Next: The Concepts of Kaptain,  Prev: (dir),  Up: (dir)

* Menu:

* The Concepts of Kaptain::
* Invoking Kaptain::
* Grammar Scripts::
* Examples::
* External Control::
* Errors::
* Reference of Special Symbols::
* Reference of Modifiers::
* Concept Index::               Concept index.


File: kaptain.info,  Node: The Concepts of Kaptain,  Next: Invoking Kaptain,  Prev: Top,  Up: Top

1 The Concepts of Kaptain
*************************

Kaptain is a universal graphical front-end. It was originally developed
in order to provide a simple and efficient tool for creating
dialog-based interface for command line programs. Now, its communication
features allow it to serve the graphical user interface of a program
without directly using a graphical library, such as GTK or Qt.

   When Kaptain is started, it reads a so-called grammar script. This
is a text file, which contains a description in a form of a context-free
grammar and optionally some other instructions. This manual refers to
the input file of Kaptain as a _grammar script._ See *note Grammar
Scripts:: for a complete overview on grammar script syntax.  

   According to the grammar script, Kaptain builds a _graphical dialog
box_.  Certain parts of the dialog box are associated with certain
elements of the grammar. This association is quite natural, thats why
Kaptain's language is so easy to learn.  

   In the dialog box, several widgets are present. These objects can be
manipulated by the user--text can be entered into input fields,
checkboxes can be set on and off. When a certain push button is pressed,
Kaptain reads the data specified by the user in the dialog box and uses
the context-free grammar to generate text. The generated text is then
executed as a command, just like as if it were entered at the command
prompt.

   Suppose we have a program named `prog' that runs in two different
modes. For its first mode, an integer parameter should be given, and the
second mode needs some text as parameter. An example for starting
`prog' in its first mode:
   and in second mode
   Kaptain is a perfect tool for creating a graphical front-end for this
program. First of all, we need to describe the possible command lines
with a grammar.
     start -> "prog " parameter ;
     parameter -> "-x " @integer | "-y " @string ;

   The grammar in the example above is almost enough for Kaptain to
build a dialog containing an integer input box and a string input
field, each having a radio button. Additionally a push button is needed
and some text might be specified in order to label the input fields.

   Given a file containing such a description, Kaptain parses the
grammar and builds a dialog box. When the push button is pressed, the
text is generated according to the settings of the user.

   The complete grammar for the program above might look like this:
     start -> "prog " parameter @action(start)="Ok";
     parameter -> x | y ;
     x "First mode" -> "-x " @integer;
     y "Second mode" -> "-y " @string;


File: kaptain.info,  Node: Invoking Kaptain,  Next: Grammar Scripts,  Prev: The Concepts of Kaptain,  Up: Top

2 Invoking Kaptain
******************

Kaptain needs a grammar script in order to display the dialog. This is
usually located in a file, and the name of that file is passed to
Kaptain as an argument. The grammar script can be written to the
standart input of Kaptain, too.

   The running mode of Kaptain can be normal or test mode. In test mode,
commands are not executed, they are printed to the standard output
instead.

   The command line of Kaptain generally looks like this:
     Kaptain [options] FILE
   If the FILE is omitted, the standard input is used as a source for
the input file.

   Some options are used to specify running mode, while others set up
different kinds of communication channels for external control. Kaptain
accepts the following switches and parameters:
`--version'
     Print out the version information of Kaptain end quit.

`--help'
     Write a brief help on command line options.

`--test'
     Run in test mode. This means that commands are not executed when a
     button is pressed, only printed to the standard output.

`-V'
`--verbose'
     Report more information on processing the input file. Internal
     representation of the grammar and the dialog tree is also printed.
     Use this flag if Kaptain does not work as expected.

`-c HOST:PORT'
`--client HOST:PORT'
     Establish communication channel as a client connecting to a server
     on HOST listening on PORT.

`-s PORT'
`--server PORT'
     Listen to the specified PORT and accept the first connection. This
     will be used as a communication channel.

`-p COMMAND'
`--pipe COMMAND'
     Start the given command and communicate with it on its standard
     input and output. Don't forget to quote COMMAND if it contains
     spaces or other metacharacters used by the shell.

`--stdio'
     Use standard input and output for communication. In this case you
     must specify an input file, thus grammar script cannot be read
     from the standard input when it is used as a communication channel.

`--no-input'
     Instructs Kaptain not to process messages recieved on the input
     channel.

`--no-output'
     If this flag is set, Kaptain will not send any messages on its
     output channel.


   These are the possible parameters and options accepted by Kaptain
called from the command prompt.


File: kaptain.info,  Node: Grammar Scripts,  Next: Examples,  Prev: Invoking Kaptain,  Up: Top

3 Grammar Scripts
*****************

The input file of Kaptain is a grammar script. It contains the
description of a context-free grammar in a form of rules. Beside the
rules, it might also contain so-called descriptions and constraints.

   Comments can be placed in grammar scripts. Hashmark (`#') is a
comment character, which means that all characters after the hashmark up
to the end of the line are ignored together with the hashmark. This is
not true if the hashmark appears inside a quoted string, see *note
Quotations::.  

* Menu:

* Grammars::
* Special symbols::
* Quotations::
* Regulas expressions and translations::
* Using text manipulation in grammar rules::


File: kaptain.info,  Node: Grammars,  Next: Special symbols,  Prev: Grammar Scripts,  Up: Grammar Scripts

3.1 Grammars
============

The program Kaptain reads an input file containing the description in
the form of a context-free grammar. The concept of context-free grammar
is coming form formal linguistic. A grammar is built up of several
rules. Each rule contains a left hand side symbol and some symbols on
the right hand side separated by an arrow:
     start -> "progname" options parameters ;
   An interpretation of a rule is the following. The symbol on the left
hand side, which is a _nonterminal symbol_ is considered as the
concatenation of the symbols on the right, which can be either
_nonterminal_ or _terminal symbols_. In a Kaptain grammar, symbols are
separated by whitespace and rules should end with a semicolon.

   Nonterminal symbols are similar to variables in other programming
languages. Their name can contain alphanumeric characters and
underscore, and should not begin with numbers.  

   Terminal symbols are written between quotation marks. Kaptain has
many ways for specifying terminal symbols, see *note Quotations:: 

   The text generation process is an iterated application of rules on
the current sentence. Starting from the nonterminal symbol `start',
every step consists of an application of a rule. This means that a
nonterminal symbol in the current sentence--which is the left hand side
of the applied rule--is replaced by the symbols on right hand side of
the rule. This process ends if there are no more nonterminal symbols in
the current sentence.  

   To illustrate text generation, let us have the following grammar:
     start -> "Your " animal "is " size ;
     animal -> "dog " ;
     animal -> "cat " ;
     size -> "big." ;
     size -> "small." ;

   Starting with the sentence `start', only the first rule can be
applied.  The current sentence is then `"Your " animal "is " size'.
Here both `animal' and `size' is nonterminal, thus any of the rules but
the first can be applied. This way exactly four different sentences can
be generated by this grammar:
     Your dog is big.
     Your cat is small.
     Your dog is big.
     Your cat is small.

   As a syntactic simplification, different rules of the same left hand
side can be written in one complex rule using `|' character as a
separator of the different right hand sides. The grammar above is
equivalent to the following:
     start -> "Your " animal "is " size ;
     animal -> "dog " | "cat " ;
     size -> "big." | "small." ;

   The set of sentences that can be generated using a certain grammar is
called the _language_ generated by that grammar. _Formal languages_ is
a branch of mathematics that deals with languages and grammars.  

* Menu:

* Special symbols::


File: kaptain.info,  Node: Special symbols,  Next: Quotations,  Prev: Grammars,  Up: Grammar Scripts

3.2 Special symbols
===================

The expression power of grammars is great. However, sometimes it is
quite comlicated to express simple things. For example, the definition
of numbers is quite long and messy: (Of course, it is possible to write
a different grammar for the numbers, this is not a unique definition.)
     number -> digits ;
     digits -> digit digits | digit ;
     digit -> "0" | "1" | "2" | "3" | "4"
            | "5" | "6" | "7" | "8" | "9" ;

   Beside terminal and nonterminal symbols, Kaptain offers so-called
_special symbols_ to appear in grammars.  Special symbols always start
with `@'. Such a symbol almost always refers to a widget in the dialog.
For example `@integer' represents a widget, which is a rectangular area
where the user can write a decimal number. The special symbol evaluates
to the value that it contains at the time of the text generation
process.

   Special symbols may accept different number of parameters and an
optional initial value. The general form is as follows:
     @specname(param_1, param_2, ..., param_n)=initvalue
   If no parameters are given, the parentheses can be omitted. The same
simplification can be applied to the initvalue, what's more, equality
sign must not be written if no initvalue is present. The following forms
are thus enabled:
     @specname
     @specname=initvalue
     @specname(param_1, param_2, ...)
     @specname(param_1, param_2, ...)=initvalue
   Note that the number and type of parameters is not unique, but if
Kaptain cannot interpret a certain parameter in some position, then it
will be simply ignored.

   The complete reference of special symbols can be found in *note
Reference of Special Symbols::.


File: kaptain.info,  Node: Quotations,  Next: Regulas expressions and translations,  Prev: Special symbols,  Up: Grammar Scripts

3.3 Quotations
==============

Quotations are the constructions for specifying a literal string, which
is a terminal symbol in the grammar. Kaptain understands a great variety
of quotations in order to make it possible to write character sequences
in the easiest way. The possibble quotations are similar to those of the
language perl and the unix shells.

_Double quotes_
     Strings between double quotes are weakly quoted strings. This
     means that some characters are treated as meta-characters. For
     example, backslash (\) is an escape-character. The following
     escape-sequences are available: `\n', `\t', `\"', `\\'. Other
     characters are not modified if preceeded by backslash.  This way
     one can place double quote character inside a string:
          "Double quotes \" are easy to write."
     which stands for
          Double quotes " are easy to write.

     An other meta-character is the dollar sign ($), which is used for
     inserting environmental variables into strings. For example in
     `"$HOME/hello"' the sequence `$HELLO' is replaced by the content
     of the `HELLO' environmental variable. If the environmental
     variable name contains other characters than letters, the
     following form should be used: `${ANY89}'.

     This kind of quotation should always end on the same line it was
     started. If the end-of-line symbol is reached within the string,
     Kaptain prints a warning.

_Single quotes_
     Strings quoted by a single apostrophe are strongly quoted strings.
     This means that each character inside the string stands for
     itself, except the apostrophe, which always means the ending of
     the string. There is no way to include apostrophe in single quoted
     strings.
          'No way to have apostrophes in this string'
     This kind of quotation should always end on the same line it was
     started. If the end-of-line symbol is reached within the string,
     Kaptain prints a warning.

_Backquotes_
     Strings in backquotes are treated in a special way. Immediately
     after the string is parsed, Kaptain executes the given string as a
     shell command, and inserts the text it has written to the standard
     output instead of the original string. For example, placing ``ls`'
     evaluates to a string which contains the file names of the current
     directory. An easy way to create a list box containing the
     available files is the following:
          @list(`ls`)
     Since command `ls' returns the files separated by a newline symbol,
     `@list' inserts the different lines of its parameter value as
     different list items. *Note Reference of Special Symbols::.

     The commands are passed to `/bin/sh', so any shell constructions
     can be given, e.g., pipes.

     Using backquots is a strong form of quoting: there are no special
     characters. As a consequence of this, no backquote (`) can appear
     inside.

_Perlish single quotes_
     Single quotes are used when no apostrophes appear in the string.
     Perl introduced a quotation form where the user chooses the most
     appropriate delimiter and any other character can be placed
     between the delimiters without modification. The following
          q%any characters except the delimiter%
     is evaluated to
          any characters except the delimiter
     and the delimiter character, here `%' can be replaced by any
     _except_ the following: letters, numbers, `;().=:_-' and
     whitespace.

     The letter `q' at the beginning stands for _quotation_.

_Perlish exection quotes_
     Analogous to the previous generalization of single quotes, perl
     generalizes backquotes using the following form:
          x%shell command line not containing the delimiter%
     which evaluates to
          shell command line not containing the delimiter
     The delimiter can be of the same set as above, and the letter `x'
     stands for _execution_.

_Multiline quotes_
     A long string spreading on more than one line is usually written
     using the line-delimiter construction.

     When Kaptain parses two less signs (`<<'), the text up to the end
     of the line is stored as a delimiter string and it starts to scan
     a quotation.  The quotation is ended if a line occurs that is
     exactly same as the delimiter string.

          ... < s/Jim/Peter/g s/Joe/Peter/g tr/+/-/ @string;
   If the user writes Jim or Joe into the input box, it is replaced with
Peter, and plus signs are changet to minus when the text is generated.

   You can only mention `s///' and `tr///' operations just after the
arrow of a rule, but any number of such expressions can be written
there. They are executed from right to left, as it is expected naturally
(in my opinion).


File: kaptain.info,  Node: Examples,  Next: External Control,  Prev: Grammar Scripts,  Up: Top

4 Examples
**********

If you write your own grammars, and you think they might be useful for
others, please send them to me , I will
put them to the main Kaptain site.

* Menu:

* Sound recording::
* Creating archives::
* Calling perl::


File: kaptain.info,  Node: Sound recording,  Next: Creating archives,  Prev: Examples,  Up: Examples

4.1 Sound recording
===================

Let's record from the microphone connected to the computer. The command
is
     terek@fido:~$ dd count=5 bs=8 < /dev/audio > myfile.au
   It would be better to see a beautiful dialog. The grammar
     #!/usr/local/bin/Kaptain
     start:framed -> "dd count=" count " bs=" size "k <" input " > " output ;
     count "Number of blocks" -> @integer=5 ;
     size "Size of blocks (k)" -> @integer=8 ;
     input "Input device" -> audio | dsp ;
     audio "Audio" -> "/dev/audio" ;
     dsp "DSP" -> "/dev/dsp" ;
     output "Output file" -> @outfile("*.au");


File: kaptain.info,  Node: Creating archives,  Next: Calling perl,  Prev: Sound recording,  Up: Examples

4.2 Creating archives
=====================

Here is a simple grammar, just witten in 5 minutes (may contain errors,
check before you try to use it!)
     #!/usr/bin/kaptn

     start "Tar" -> tar buttons;

     tar -> "tar " choice " " opt archive " " files;
     opt:framed :horizontal  -> extropt createopt ;

     createopt "Write options" -> dump remove verb comp;
     extropt "Read options" -> noerr keep same abs;

     dump "Dump files, not just symlinks" -> "--dereference " | @;
     noerr"Ignore failed read" -> "--ignore-failed-read " | @;
     keep "Keep existing files" -> "-k " | @;
     same "Extract all protection information" -> "-p " | @;
     abs "Absolute path names" -> "-P " | @;
     remove "Remove files after adding to archive"
        -> "--remove-files " | @;
     verb "Verbosely list files proceeded" -> "-v " | @;

     comp -> compress | @;
     compress "Compression" -> gzip | bzip;
     gzip "gzip" -> "-z ";
     bzip "bzip2" -> "--use-compress-program bzip2 ";

     choice:framed  -> work;
     work "Main choice" -> concat | ! create | diff | del | append
                          | list | update | extract;
     concat "Append to archive" -> "A";
     create "Create archive" -> "c";
     diff "Find differences between archive and file system" -> "d";
     del "Delete from archive" -> "-delete";
     append "Append to the end of an archive" -> "r";
     list "List contents" -> "t";
     update "Update archive" -> "u";
     extract "Extract from archive" -> "x";

     archive "Archive name" -> @infile;

     files "Files to work with" -> @string ;

     buttons :horizontal -> @action(tar)="OK" @close="Cancel";

   <#if output="html">

   This produces a command like
     tar c --remove-files --use-compress-program bzip2 files.tar *.cpp *.h


File: kaptain.info,  Node: Calling perl,  Prev: Creating archives,  Up: Examples

4.3 Calling perl
================

Kaptain can generate various texts, such as complicated pipes or a piece
of perl code.  To create your encrpyted password, use the perl command:
     print crypt('passwd','sa')."\n";

   Let's make the grammar:

     #!/usr/local/bin/Kaptain
     start "Password encrypter" -> code @action("perl","-e",code)="Crypt";
     code:framed -> "print crypt('" passw "','" sa q%')."\n"% ;
     passw "Password" -> @string="notsimple";
     sa "Random chars(2)" -> @string(2)="y4";

   Notice that the `@action' has three parameters; the `perl' compiler
is called without the shell, having two parameters: `-e' and the
evaluated text of `code';


File: kaptain.info,  Node: External Control,  Next: Errors,  Prev: Examples,  Up: Top

5 External Control
******************

This chapter describes the communication with the dialog in Kaptain.

   The most interesting new feature in Kaptain 0.7 is the possibility of
modifying the data in the widgets while Kaptain is running. For this,
Kaptain needs a communication channel, which can be some network
communicaton, redirection to an other program (using pipes) or the
standard input and output.

   On a communication channel Kaptain can recieve messages. There are
two kinds of  messages:

  1. Setting message: This can be sent to rules that contain exactly
     one special symbol on the right side. A message consists of two
     parts: first comes a nonterminal name, which specifies the target
     of the message. This should be followed by a the real message
     (till the end of that line), which can be in fact anything that
     can be written after the special symbol you are refferring to by
     the rule.  For example, having a rule like
          number -> @string
     then you can send a message like
          number="Hello"
     and the string input field will be set to the given value.

     Thus the general form of a _setting message_ is:
          nonterminal(par1,par2,...)=initvalue
          nonterminal=initvalue
     The later one is the simplified form, i.e., when no parameters are
     given. This was the case in the example above.

     For a detailed overview of the possible parameters and initial
     values for a given type of special symbol, *Note Reference of
     Special Symbols::.

  2. Asking message: If a nonterminal is followed by a question mark in
     a message sent to Kaptain on a communication chanel, Kaptain sends
     back the generated text by the given nonterminal in the following
     form:
          start?                                          <- to Kaptain
          start!<...here comes the generated text...>     <- from kaptin
     This way data can be retrieved at any time from the widgets.



File: kaptain.info,  Node: Errors,  Next: Reference of Special Symbols,  Prev: External Control,  Up: Top

6 Errors
********

Kaptain reads the given file and parses the grammar according the rules
in *note Grammar Scripts::.

   If Kaptain finds something that is not according the rules described
in this manual, it either signals an error or just a warning.

   For example, warnings are generated if string, regular expressions,
or other language constructs are opened but not closed till the end of
the line. This is often handy when typoes are made in the grammar
script.

   On the other hand, Kaptain might find syntax error, and it
immediately stops. In this case, the name of the last rule that was read
successfully is printed together with its line number. Thus one has to
look at the errors after the last correct rule. The most usual mistake
is that the closing semicolon is forgotten from the end of a rule.


File: kaptain.info,  Node: Reference of Special Symbols,  Next: Reference of Modifiers,  Prev: Errors,  Up: Top

7 Reference of Special Symbols
******************************

`@integer'
     creates an integer input field with up and down arrows, which can
     be used to increase or decrease the number in the field. Two
     integer parameters are accepted, these are the minimum and maximum
     values. Initial value can be an integer, too. For example,
          @integer(-10,20)=4
     will create an integer input which can store a number between -10
     and 20, and is initially set to 4. The minimum and maximum value
     default to 0 and 99, respectively, while the uninitialized field
     is set to 0.

     This object evaluates to the value of the input field.

`@string'
     makes a one-line input field. If an integer parameter is given, the
     maximum length of the string is bounded by that number. For
     example,
          @string(20)="Hello"
     creates an input field with `Hello' inside, allowing strings of at
     most 20 characters.

     This object evaluates to the value of the input field.

`@float'
     makes a line input field than can contain a real number. Initial
     value should be given in quotes if it contains other characters
     than numbers, for example `@float="1.13"'.

     This object evaluates to the value of the input field.

`@regexp'
     Similar input field to `@string', but the regular expression
     parameter is used to control the string that is entered. For
     example, `@regexp(m/^[ab]*$/)' enables only characters `a' and `b'
     to be entered. Initial string value is processed if it matches the
     regular expression.

`@password'
     This is identical to `@string', the only difference is that the
     characters are not shown; an asterix appears like in usual password
     input fields.

`@list'
`@combo'
`@combow'
     These specials generate a list box, a combo box or a writable combo
     box, respectively. Each given parameter is inserted into the box
     if it is a number or a string. If a multi-line string occurs,
     every line is inserted as a separate item. Thus
     `@list("hello",`ls`,"bye")' creates a list box containing the
     files from the current directory, and two more lines: `hello' and
     `bye'.

     If the given initial value is a number, it indicates which line
     should initially be selected. In case of a string, the first
     occurrence of that string is highlighted. Finally, if a regular
     expression is given as an initial value, the first line matching
     that regular expression will be selected.

     If a _substitution expression_ comes in the parameter list, it is
     applied to the following string parameters until a new substitution
     parameter is reached. This is useful to make different text in the
     dialog box than that appears in the generated text. For example, in
     `@list(s/^.*://,"a:A","b:B","c:C")' only the text after the colon
     is inserted into the list box, and the whole string is used when
     the symbol is evaluated. Note that the initial value selection
     described in the previous paragraph is made by comparison to the
     original strings, not the modified ones that appear on the screen.

     The `@list' and `@combo' objects evaluate to the line from which
     the currently selected line was generated using substitutions.
     The `@combow' evaluates the line in the combo widget.

`@button'
     Places a simple push button with label given as initial value. The
     label can be an image, if a filename is given in braces, like
     `@button="{ok.png}"'.  creates a push button using the given
     initial value. If the value is in the form of `"{FILENAME}"', then
     it is considered to be a pixmap file, otherwise the initial value
     is used as a text label. For example `@button="OK"' creates a
     simple push button with label `OK'.

     One push button in a dialog can be the default button: This can be
     achieved by putting a space to the beginning of its name. For
     example, a default ok button is created for the following code:
     `@button=" OK"'.

`@close'
     Creates a button, which closes the current dialog when pressed.

`@action'
     _Synchronous execution._ When this button is pressed, the given
     command is executed. During the execution, the button is disabled.

`@fork'
     _Asynchronous execution._ When this button is pressed, the given
     command is started in the background, without any effect to the
     dialog.

`@exec'
     _Final execution._ When this button is pressed, the given command
     is started and Kaptain quits immediately.

`@execclose'
     This is similar to `@exec', the only difference is that Kaptain
     only closes the current dialog. In the topmost dialog, this has
     the same effect as `@exec', since Kaptain quits when it closes the
     topmost dialog.

`@echo'
     Creates a button, which causes the generated text to be printed to
     the standard output.

`@dump'
     Creates a similar button to `@echo', but Kaptain quits after
     printing the generated text to the standard output.

`@execbuffer'
     This button causes the synchronous execution of the given command,
     when pressed. The standard output of the executed command is
     captured and stored. Later, this symbol evaluates to the stored
     text. This is the only button-like special that can evaluate to
     nonempty text.

`@preview'
     Creates a push button, which shows up a new dialog when pressed.
     The new dialog contains the code generated for a given
     nonterminal.  The accepted parameters are the following: the
     nonterminal,font descriptor(string), minimum width and height
     (integers) and the closing button's text.
          @preview(start,"Lucidatypewriter",300,200,"Close")

`@infile'
`@outfile'
`@directory'
     These special symbols generate a line input field together with a
     push button. When the button is pressed, a file or directory
     choosing dialog appears. The name of file selected by the user is
     then inserted into the input field. `@infile' stands for a _file
     open dialog_, while `@outfile' for _file saving dialog._ Using
     `@directory', one can select an existing _directory._

     The initial value given to these symbols is inserted to the input
     field at startup. When the button is pressed, the dialog is
     starting on the file/directory currently specified in the input
     field, if exists.

     The file-like specials (`@infile', `@outfile') accept one string
     argument. It can be a _filter_ for the file selection dialog. An
     example for a multiple filter is the following:
     The separators between filter groups can be either double
     semicolons or newline characters.

     A complete example for `@infile':
     If no filter is specified, all files can be selected. In case of no
     initial value, the current directory is the starting point.

     These items evaluate to the text in the input field.

`@container'
     Creates _two buttons_ and a _list box_. The first parameter should
     be a nonterminal symbol, the following two strings are interpreted
     as the labels for the buttons. When the first button is pressed,
     the given nonterminal symbol is evaluated, and the generated text
     is inserted as a line into the list box.  When the second button is
     pressed, the current line is removed from the list box. Button
     names default to `Add' and `Remove'.

     This object is useful in cases when recursion is needed in the
     grammar. (In Kaptain, recursion is forbidden.) For example, if one
     or more file name is needed, one can write this:
          filename -> @infile; box -> @container(filename);
     The container evaluates to its contents, its lines are simply
     concatenated.

`@multcol'
     Creates a multi-column table with the given data filled.  If the
     first parameter is a regular expression (`m/.../'), all the
     following string parameters are matched against this expression.
     Each such string parameter stands for one line, which is separated
     according to the regular expression.The subexpressions matched
     form the columns of the given row. If there is no regular
     expression, the rows are separated at the tab characters.

     The forthcoming string parameters are the rows of the table,
     except the first one, which is specially the header. Initial
     value, if an integer is given determines the selected element in
     the table.

     The `@multicol' special symbol generates to the content of the
     selected row.
          @multicol("Header 1\tHeader 2","data\tdata\tdata","abc")=1;
          @multicol(m/([^ ]+) ([^ ]+) ([^ ]+)/,"1 2 3","a b c",
                    "xx yy zz")=0;

`@fill'
     Inserts some stretchable space into the dialog. No other
     functionality, evaluates to empty string.

`@text'
     This special symbol creates slightly sunken box in the dialog with
     the given text inside. The text to be displayed is the
     concatenation of the initial value and all the string parameters.
     Since it has no functions, it is only good for informing the user.

     This object evaluates to the empty string.

`@icon'
     Displays an image in the dialog. The first parameter should be
     string, which is the name of a graphic file. Several file formats
     are recognized. From Qt's manual:

          Qt currently supports the following image file formats: PNG,
          BMP, XBM, XPM and PNM. It may also support JPEG, MNG and GIF,
          if specially configured during compilation. The different PNM
          formats are: PBM (P1 or P4), PGM (P2 or P5), PPM (P3 or P6).

     Icons evaluate to empty string.

`@edit'
     This is a multi-line text editor field. Initial value is inserted,
     it can be a multiline text, too.  The first parameter, if it is a
     string, is treated as a font name, Kaptain tries to set the editor
     font. The next two parameters of integer type can be specified to
     set the minimum width and height for the editor field, in pixels.
     For example, `@edit("lucidatypewriter",300,200)="Hello,\nEditor!"'
     creates an editor field of 300x200 pixels, using a nice font.

     If the given font name starts with a minus sign, it is treated as
     an XLDF (X Logical Font Description). Note that Qt does not handle
     wildcards in font descriptions, nor the aliases at this time. A
     fully specified font looks like this:



File: kaptain.info,  Node: Reference of Modifiers,  Next: Concept Index,  Prev: Reference of Special Symbols,  Up: Top

Appendix A Reference of Modifiers
*********************************

Modifiers always begin with a colon and are related to the nonterminal
after which they appear.  For example:

     start :framed :horizontal -> a b c ;

   means that a, b and c are placed horizontally one by one, and each
is in a frame.

   Modifiers usually have effect on the appearence of the dialog.

`:framed'
     Makes the child widgets to appear in a frame.

`:tabbed'
     Makes the child widgets to appear on different tabs.

`:horizontal'
     Makes the child widgets to appear horizontal one by one, instead
     of the default vertical arrangement.

`:reverse'
     Makes the child widgets to appear in reverse order. That is down
     to top if `:horizontal' is not present, otherwise right to left.

`:noeval'
     The nonterminal will evaluate to an empty string. It is useful
     when you use a @string input field by a @container, and you want
     to have only those items which were inserted into the container.

`:double'
     Place child elements in two rows or columns. It is useful when you
     have many radio buttons.

`:beside'
     Place child elements immediately to the right of the label of this
     rule (if it's a radio button or check box), not below as by
     default.  Use it in the similar situations as this:
          number :beside "Number" -> @integer | @ ;

`:dialog'
     Create a pushbutton, which if pressed, makes a subdialog to appear
     with the right side of the rule.

`:wizard'
     Create a pushbutton, which stands for a subdialog, having all the
     nonterminals from the right side as pages in a so called _Wizard_
     dialog (with _Next_, _Back_, _Cancel_ and _Finish_ buttons). Must
     be on a conjunctive rule.

`:tree'
     Places all children in a tree widget. If the children are also
     marked with :tree, they will appear on the second level in the
     tree. Look at the example grammar for indent. This is a very good
     way to place a great amount of structured information in the
     dialog. Checkboxes and radio buttons can appear in the tree, but
     if other things are present, they will be placed under or beside
     the QListView object. Use it with :beside if you want to create
     things like KControlCenter.  If the label of the tree item is like
     `{icons/my.gif}Text"', then the picture mentioned between the
     braces will be placed beside the Text--this can be very attractive.

`:detailed'
     Together with `:tree', it makes a second column appear in the
     TreeView where the tooltip information is placed.

`:stack'
     Creates a widget stack, which means all chind widgets of the
     corresponding rule are located in the same area, and only one is
     visible. To control which one is on the top of the stack (that is,
     visible) external communication can be used. *Note External
     Control::.



File: kaptain.info,  Node: Concept Index,  Prev: Reference of Modifiers,  Up: Top

Concept Index
*************

[index]
* Menu:

* action:                                Reference of Special Symbols.
                                                              (line  97)
* Asking message:                        External Control.    (line  39)
* Backquotes:                            Quotations.          (line  46)
* beside:                                Reference of Modifiers.
                                                              (line  40)
* button:                                Reference of Special Symbols.
                                                              (line  80)
* Client socket:                         Invoking Kaptain.    (line  41)
* close:                                 Reference of Special Symbols.
                                                              (line  94)
* Comments:                              Grammar Scripts.     (line  14)
* Communication channels:                External Control.    (line   6)
* container:                             Reference of Special Symbols.
                                                              (line 166)
* Context-free grammar:                  The Concepts of Kaptain.
                                                              (line  16)
* detailed:                              Reference of Modifiers.
                                                              (line  68)
* dialog:                                Reference of Modifiers.
                                                              (line  46)
* Dialog box:                            The Concepts of Kaptain.
                                                              (line  21)
* double:                                Reference of Modifiers.
                                                              (line  36)
* Double quotes:                         Quotations.          (line  13)
* dump:                                  Reference of Special Symbols.
                                                              (line 120)
* echo:                                  Reference of Special Symbols.
                                                              (line 116)
* edit:                                  Reference of Special Symbols.
                                                              (line 226)
* exec:                                  Reference of Special Symbols.
                                                              (line 106)
* execclose:                             Reference of Special Symbols.
                                                              (line 110)
* External control:                      External Control.    (line   6)
* fill:                                  Reference of Special Symbols.
                                                              (line 202)
* float:                                 Reference of Special Symbols.
                                                              (line  30)
* fork:                                  Reference of Special Symbols.
                                                              (line 101)
* Formal languages:                      Grammars.            (line  60)
* framed:                                Reference of Modifiers.
                                                              (line  17)
* Generating text:                       Grammars.            (line  31)
* Grammar:                               The Concepts of Kaptain.
                                                              (line  16)
* Grammar script:                        The Concepts of Kaptain.
                                                              (line  16)
* Grammar scripts:                       Grammars.            (line   6)
* Grammars:                              Grammars.            (line   6)
* help:                                  Invoking Kaptain.    (line  27)
* horizontal:                            Reference of Modifiers.
                                                              (line  23)
* icon:                                  Reference of Special Symbols.
                                                              (line 214)
* infile:                                Reference of Special Symbols.
                                                              (line 139)
* integer:                               Reference of Special Symbols.
                                                              (line   7)
* Language:                              Grammars.            (line  60)
* list:                                  Reference of Special Symbols.
                                                              (line  49)
* Multiline quotes:                      Quotations.          (line  89)
* No input:                              Invoking Kaptain.    (line  61)
* No output:                             Invoking Kaptain.    (line  65)
* noeval:                                Reference of Modifiers.
                                                              (line  31)
* Nonterminal symbol:                    Grammars.            (line  20)
* password:                              Reference of Special Symbols.
                                                              (line  44)
* Perlish exection quotes:               Quotations.          (line  80)
* Perlish single quotes:                 Quotations.          (line  66)
* Pipe:                                  Invoking Kaptain.    (line  51)
* Quotations:                            Quotations.          (line   6)
* regexp:                                Reference of Special Symbols.
                                                              (line  37)
* Regular expression based substitution: Substitutions.       (line   6)
* Regular expression's subexpression:    Regular expressions. (line  23)
* Regular expressions:                   Regular expressions. (line   6)
* reverse:                               Reference of Modifiers.
                                                              (line  27)
* Scripts:                               Grammars.            (line   6)
* Sentence:                              Grammars.            (line  60)
* Server socket:                         Invoking Kaptain.    (line  46)
* Setting message:                       External Control.    (line  17)
* Single quotes:                         Quotations.          (line  35)
* Special symbol:                        Special symbols.     (line  16)
* stack:                                 Reference of Modifiers.
                                                              (line  72)
* Standard input:                        Invoking Kaptain.    (line  56)
* string:                                Reference of Special Symbols.
                                                              (line  20)
* Subexpression:                         Regular expressions. (line  23)
* Substitution:                          Substitutions.       (line   6)
* tabbed:                                Reference of Modifiers.
                                                              (line  20)
* Terminal symbols:                      Grammars.            (line  23)
* Test mode:                             Invoking Kaptain.    (line  30)
* text:                                  Reference of Special Symbols.
                                                              (line 206)
* Text generation:                       Grammars.            (line  31)
* transliteration:                       Transliterations.    (line   6)
* tree:                                  Reference of Modifiers.
                                                              (line  56)
* Version:                               Invoking Kaptain.    (line  24)
* wizard:                                Reference of Modifiers.
                                                              (line  50)



Tag Table:
Node: Top317
Node: The Concepts of Kaptain640
Node: Invoking Kaptain3354
Node: Grammar Scripts5779
Node: Grammars6554
Node: Special symbols9343
Node: Quotations11155
Node: Regulas expressions and translations16029
Node: Regular expressions16733
Node: Substitutions18160
Node: Transliterations19352
Node: Using text manipulation in grammar rules19680
Node: Examples20543
Node: Sound recording20909
Node: Creating archives21610
Node: Calling perl23512
Node: External Control24268
Node: Errors26340
Node: Reference of Special Symbols27266
Node: Reference of Modifiers37849
Node: Concept Index40860

End Tag Table
kaptain-0.73/doc/kaptain.texi0000640023433300116100000012724211532667302014701 0ustar  zsolteng\input texinfo   @c -*-texinfo-*-

@c %**start of header
@setfilename kaptain.info
@settitle Kaptain
@dircategory Utilities
@direntry
* Kaptain: (kaptain).           Universal graphical front-end.
@end direntry
@finalout
@c %**end of header

@c @setchapternewpage odd
@c @iftex
@c \input epsf
@c @end iftex

@ifinfo
This is a manual for Kaptain, the Universal Graphical Front-end.

Copyright @copyright{} 2000-2004 Zsolt Ter@'{e}k
@end ifinfo

@titlepage
@title Kaptain
@subtitle Universal Graphical Front-end, version 0.72
@author Zsolt Ter@'{e}k

@page
@vskip 0pt plus 1filll
Copyright @copyright{} 2000-2004 Zsolt Ter@'{e}k

Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission notice
are preserved on all copies.

Permission is granted to copy and distribute modified versions of this
manual under the conditions for verbatim copying, provided that the entire
resulting derived work is distributed under the terms of a permission
notice identical to this one.

Permission is granted to copy and distribute translations of this manual
into another language, under the above conditions for modified versions,
except that this permission notice may be stated in a translation
approved by the Free Software Foundation.
@end titlepage

@node    Top, The Concepts of Kaptain, (dir), (dir)
@comment node-name, next,          previous, up

@menu
* The Concepts of Kaptain::     
* Invoking Kaptain::            
* Grammar Scripts::             
* Examples::                    
* External Control::            
* Errors::                      
* Reference of Special Symbols::  
* Reference of Modifiers::      
* Concept Index::               Concept index.
@end menu

@ifhtml
This is a manual for Kaptain, the Universal Graphical Front-end.

Copyright @copyright{} 2000-2004 Zsolt Terk
@end ifhtml

@node    The Concepts of Kaptain, Invoking Kaptain, Top, Top
@comment node-name,     next,          previous, up
@chapter The Concepts of Kaptain

Kaptain is a universal graphical front-end. It was originally developed
in order to provide a simple and efficient tool for creating
dialog-based interface for command line programs. Now, its communication
features allow it to serve the graphical user interface of a program
without directly using a graphical library, such as GTK or Qt.

When Kaptain is started, it reads a so-called grammar script. This is a
text file, which contains a description in a form of a context-free
grammar and optionally some other instructions. This manual refers to
the input file of Kaptain as a @emph{grammar script.} See @ref{Grammar
Scripts} for a complete overview on grammar script syntax.
@cindex Context-free grammar
@cindex Grammar
@cindex Grammar script

According to the grammar script, Kaptain builds a @emph{graphical dialog
box}.  Certain parts of the dialog box are associated with certain
elements of the grammar. This association is quite natural, thats why
Kaptain's language is so easy to learn.
@cindex Dialog box

In the dialog box, several widgets are present. These objects can be
manipulated by the user---text can be entered into input fields,
checkboxes can be set on and off. When a certain push button is pressed,
Kaptain reads the data specified by the user in the dialog box and uses
the context-free grammar to generate text. The generated text is then
executed as a command, just like as if it were entered at the command
prompt.

Suppose we have a program named @code{prog} that runs in two different
modes. For its first mode, an integer parameter should be given, and the
second mode needs some text as parameter. An example for starting
@code{prog} in its first mode: 
@example prog -x 12
@end example
@noindent 
and in second mode 
@example prog -y 'hello' 
@end example
@noindent
Kaptain is a perfect tool for creating a graphical front-end for this
program. First of all, we need to describe the possible command lines
with a grammar.
@example
start -> "prog " parameter ;
parameter -> "-x " @@integer | "-y " @@string ;
@end example

The grammar in the example above is almost enough for Kaptain to build a
dialog containing an integer input box and a string input field, each
having a radio button. Additionally a push button is needed and some
text might be specified in order to label the input fields.

Given a file containing such a description, Kaptain parses the grammar
and builds a dialog box. When the push button is pressed, the text is
generated according to the settings of the user.

The complete grammar for the program above might look like this:
@example
start -> "prog " parameter @@action(start)="Ok";
parameter -> x | y ;
x "First mode" -> "-x " @@integer;
y "Second mode" -> "-y " @@string;
@end example

@c @iftex
@c @tex
@c $$\epsfbox{fig1.eps}$$
@c @end tex
@c According to the settings in the figure, the generated text is
@c @samp{prog -x 0}, since the first radio button is selected.
@c @end iftex

@ifhtml
@html

@end html

According to the settings in the figure, the generated text is
@samp{prog -x 0}, since the first radio button is selected.
@end ifhtml

@node Invoking Kaptain, Grammar Scripts, The Concepts of Kaptain, Top
@comment  node-name,  next,  previous,  up
@chapter Invoking Kaptain

Kaptain needs a grammar script in order to display the dialog. This is
usually located in a file, and the name of that file is passed to
Kaptain as an argument. The grammar script can be written to the
standart input of Kaptain, too.

The running mode of Kaptain can be normal or test mode. In test mode,
commands are not executed, they are printed to the standard output
instead.

The command line of Kaptain generally looks like this:
@example
Kaptain @r{[options]} @var{file}
@end example
@noindent If the @var{file} is omitted, the standard input is used as a
source for the input file.

Some options are used to specify running mode, while others set up
different kinds of communication channels for external control. Kaptain
accepts the following switches and parameters:
@table @samp
@c @item --author
@c @itemx --about
@item --version
@cindex Version
Print out the version information of Kaptain end quit.

@item --help
@cindex help
Write a brief help on command line options.

@item --test
@cindex Test mode
Run in test mode. This means that commands are not executed when a
button is pressed, only printed to the standard output.

@item -V
@itemx --verbose
@c @itemx --debug
Report more information on processing the input file. Internal
representation of the grammar and the dialog tree is also printed. Use
this flag if Kaptain does not work as expected.

@item -c @var{host:port}
@itemx --client @var{host:port}
@cindex Client socket
Establish communication channel as a client connecting to a server on
@var{host} listening on @var{port.}

@item -s @var{port}
@itemx --server @var{port}
@cindex Server socket
Listen to the specified @var{port} and accept the first connection. This
will be used as a communication channel.

@item -p @var{command}
@itemx --pipe @var{command}
@cindex Pipe
Start the given command and communicate with it on its standard input
and output. Don't forget to quote @var{command} if it contains spaces or
other metacharacters used by the shell.
 
@item --stdio
@cindex Standard input
Use standard input and output for communication. In this case you must
specify an input file, thus grammar script cannot be read from the
standard input when it is used as a communication channel.

@item --no-input
@cindex No input
Instructs Kaptain not to process messages received on the input channel.

@item --no-output
@cindex No output
If this flag is set, Kaptain will not send any messages on its output
channel.

@end table

These are the possible parameters and options accepted by Kaptain
called from the command prompt.


@node Grammar Scripts, Examples, Invoking Kaptain, Top
@comment  node-name,  next,  previous,  up
@chapter Grammar Scripts

The input file of Kaptain is a grammar script. It contains the
description of a context-free grammar in a form of rules. Beside the
rules, it might also contain so-called descriptions and constraints.

Comments can be placed in grammar scripts. Hashmark (@samp{#}) is a
comment character, which means that all characters after the hashmark up
to the end of the line are ignored together with the hashmark. This is
not true if the hashmark appears inside a quoted string, see
@ref{Quotations}.
@cindex Comments


@menu
* Grammars::                    
* Special symbols::             
* Quotations::                  
* Regulas expressions and translations::  
* Using text manipulation in grammar rules::  
@end menu

@node Grammars, Special symbols, Grammar Scripts, Grammar Scripts
@comment  node-name,  next,  previous,  up
@section Grammars
@cindex Grammars
@cindex Scripts
@cindex Grammar scripts

The program Kaptain reads an input file containing the description in
the form of a context-free grammar. The concept of context-free grammar
is coming form formal linguistic. A grammar is built up of several
rules. Each rule contains a left hand side symbol and some symbols on
the right hand side separated by an arrow:
@example
start -> "progname" options parameters ;
@end example
An interpretation of a rule is the following. The symbol on the left
hand side, which is a @emph{nonterminal symbol} is considered as the
concatenation of the symbols on the right, which can be either
@emph{nonterminal} or @emph{terminal symbols}. In a Kaptain grammar,
symbols are separated by whitespace and rules should end with a
semicolon.

Nonterminal symbols are similar to variables in other programming
languages. Their name can contain alphanumeric characters and
underscore, and should not begin with numbers.
@cindex Nonterminal symbol

Terminal symbols are written between quotation marks. Kaptain has many
ways for specifying terminal symbols, see @ref{Quotations}
@cindex Terminal symbols

The text generation process is an iterated application of rules on the
current sentence. Starting from the nonterminal symbol @samp{start},
every step consists of an application of a rule. This means that a
nonterminal symbol in the current sentence---which is the left hand side
of the applied rule---is replaced by the symbols on right hand side of
the rule. This process ends if there are no more nonterminal symbols in
the current sentence.
@cindex Text generation
@cindex Generating text

To illustrate text generation, let us have the following grammar:
@example
start -> "Your " animal "is " size ;
animal -> "dog " ;
animal -> "cat " ;
size -> "big." ;
size -> "small." ;
@end example

Starting with the sentence @samp{start}, only the first rule can be
applied.  The current sentence is then @samp{"Your " animal "is "
size}. Here both @samp{animal} and @samp{size} is nonterminal,
thus any of the rules but the first can be applied. This way exactly
four different sentences can be generated by this grammar:
@example
Your dog is big.
Your cat is small.
Your dog is big.
Your cat is small.
@end example

As a syntactic simplification, different rules of the same left hand
side can be written in one complex rule using @samp{|} character as a
separator of the different right hand sides. The grammar above is
equivalent to the following:
@example
start -> "Your " animal "is " size ;
animal -> "dog " | "cat " ;
size -> "big." | "small." ;
@end example

The set of sentences that can be generated using a certain grammar is
called the @emph{language} generated by that grammar. @emph{Formal
languages} is a branch of mathematics that deals with languages and
grammars.
@cindex Formal languages
@cindex Language
@cindex Sentence

@menu
* Special symbols::             
@end menu

@node  Special symbols, Quotations, Grammars, Grammar Scripts
@comment  node-name,  next,  previous,  up
@section Special symbols

The expression power of grammars is great. However, sometimes it is
quite comlicated to express simple things. For example, the definition
of numbers is quite long and messy: (Of course, it is possible to write
a different grammar for the numbers, this is not a unique definition.)
@example
number -> digits ;
digits -> digit digits | digit ;
digit -> "0" | "1" | "2" | "3" | "4" 
       | "5" | "6" | "7" | "8" | "9" ;
@end example

Beside terminal and nonterminal symbols, Kaptain offers so-called
@emph{special symbols} to appear in grammars. 
@cindex Special symbol
Special symbols always start with @samp{@@}. Such a symbol almost always
refers to a widget in the dialog. For example @samp{@@integer}
represents a widget, which is a rectangular area where the user can
write a decimal number. The special symbol evaluates to the value that
it contains at the time of the text generation process.

Special symbols may accept different number of parameters and an
optional initial value. The general form is as follows:
@example
@@specname(param_1, param_2, ..., param_n)=initvalue
@end example
If no parameters are given, the parentheses can be omitted. The same
simplification can be applied to the initvalue, what's more, equality
sign must not be written if no initvalue is present. The following forms
are thus enabled:
@example
@@specname
@@specname=initvalue
@@specname(param_1, param_2, ...)
@@specname(param_1, param_2, ...)=initvalue
@end example
@noindent 
Note that the number and type of parameters is not unique, but if
Kaptain cannot interpret a certain parameter in some position, then it
will be simply ignored.

The complete reference of special symbols can be found in
@ref{Reference of Special Symbols}.

@node Quotations, Regulas expressions and translations, Special symbols, Grammar Scripts
@comment  node-name,  next,  previous,  up
@section Quotations
@cindex Quotations
Quotations are the constructions for specifying a literal string, which
is a terminal symbol in the grammar. Kaptain understands a great variety
of quotations in order to make it possible to write character sequences
in the easiest way. The possibble quotations are similar to those of the
language perl and the unix shells.

@table @emph

@item Double quotes
@cindex Double quotes
Strings between double quotes are weakly quoted strings. This means that
some characters are treated as meta-characters. For example, backslash
(\) is an escape-character. The following escape-sequences are
available: @code{\n}, @code{\t}, @code{\"}, @code{\\}. Other characters
are not modified if preceeded by backslash.  This way one can place
double quote character inside a string:
@example
"Double quotes \" are easy to write."
@end example
which stands for 
@example
Double quotes " are easy to write.
@end example

An other meta-character is the dollar sign ($), which is used for
inserting environmental variables into strings. For example in
@code{"$HOME/hello"} the sequence @code{$HELLO} is replaced by the
content of the @code{HELLO} environmental variable. If the environmental
variable name contains other characters than letters, the following form
should be used: @code{$@{ANY89@}}.

This kind of quotation should always end on the same line it was
started. If the end-of-line symbol is reached within the string, Kaptain
prints a warning.

@item Single quotes
@cindex Single quotes
Strings quoted by a single apostrophe are strongly quoted strings. This
means that each character inside the string stands for itself, except
the apostrophe, which always means the ending of the string. There is no
way to include apostrophe in single quoted strings.
@example
'No way to have apostrophes in this string'
@end example
This kind of quotation should always end on the same line it was
started. If the end-of-line symbol is reached within the string, Kaptain
prints a warning.

@item Backquotes
@cindex Backquotes
Strings in backquotes are treated in a special way. Immediately after
the string is parsed, Kaptain executes the given string as a shell
command, and inserts the text it has written to the standard output
instead of the original string. For example, placing @code{`ls`}
evaluates to a string which contains the file names of the current
directory. An easy way to create a list box containing the available
files is the following:
@example
@@list(`ls`)
@end example
Since command @code{ls} returns the files separated by a newline symbol,
@samp{@@list} inserts the different lines of its parameter value as
different list items. @xref{Reference of Special Symbols}.

The commands are passed to @samp{/bin/sh}, so any shell constructions
can be given, e.g., pipes.

Using backquots is a strong form of quoting: there are no special
characters. As a consequence of this, no backquote (`) can appear
inside.

@item Perlish single quotes
@cindex Perlish single quotes
Single quotes are used when no apostrophes appear in the string. Perl
introduced a quotation form where the user chooses the most appropriate
delimiter and any other character can be placed between the delimiters
without modification. The following
@example
q%any characters except the delimiter%
@end example
is evaluated to 
@example
any characters except the delimiter
@end example
and the delimiter character, here @code{%} can be replaced by any
@emph{except} the following: letters, numbers, @code{;().=:_-} and
whitespace.

The letter @samp{q} at the beginning stands for @emph{quotation}.

@item Perlish exection quotes
@cindex Perlish exection quotes
Analogous to the previous generalization of single quotes, perl
generalizes backquotes using the following form:
@example
x%shell command line not containing the delimiter%
@end example
which evaluates to
@example
shell command line not containing the delimiter
@end example
The delimiter can be of the same set as above, and the letter @samp{x}
stands for @emph{execution}.

@item Multiline quotes
@cindex Multiline quotes
A long string spreading on more than one line is usually written using
the line-delimiter construction.

When Kaptain parses two less signs (@code{<<}), the text up to the end of the
line is stored as a delimiter string and it starts to scan a quotation.
The quotation is ended if a line occurs that is exactly same as the
delimiter string.

@example
... < s/Jim/Peter/g s/Joe/Peter/g tr/+/-/ @@string;
@end example
If the user writes Jim or Joe into the input box, it is replaced with
Peter, and plus signs are changet to minus when the text is generated.

You can only mention @code{s///} and @code{tr///} operations just after
the arrow of a rule, but any number of such expressions can be written
there. They are executed from right to left, as it is expected naturally
(in my opinion).


@node Examples, External Control, Grammar Scripts, Top
@comment  node-name,  next,  previous,  up
@chapter Examples

@c @ifhtml
@c @html
@c 
@c @end html
@c @end ifhtml

If you write your own grammars, and you think they might be useful for
others, please send them to me @email{terek@@users.sourceforge.net}, I
will put them to the main Kaptain site.

@menu
* Sound recording::             
* Creating archives::           
* Calling perl::                
@end menu

@node Sound recording, Creating archives, Examples, Examples
@section Sound recording

Let's record from the microphone connected to the computer. The command
is
@example
terek@@fido:~$ dd count=5 bs=8 < /dev/audio > myfile.au
@end example
It would be better to see a beautiful dialog. The grammar
@example
#!/usr/local/bin/Kaptain
start:framed -> "dd count=" count " bs=" size "k <" input " > " output ;
count "Number of blocks" -> @@integer=5 ;
size "Size of blocks (k)" -> @@integer=8 ;
input "Input device" -> audio | dsp ;
audio "Audio" -> "/dev/audio" ;
dsp "DSP" -> "/dev/dsp" ;
output "Output file" -> @@outfile("*.au");
@end example

@ifhtml
@html

@end html
@end ifhtml

@node Creating archives, Calling perl, Sound recording, Examples
@section Creating archives

Here is a simple grammar, just witten in 5 minutes (may contain errors,
check before you try to use it!)
@example
#!/usr/bin/kaptn

start "Tar" -> tar buttons;

tar -> "tar " choice " " opt archive " " files;
opt:framed :horizontal  -> extropt createopt ;

createopt "Write options" -> dump remove verb comp;
extropt "Read options" -> noerr keep same abs;

dump "Dump files, not just symlinks" -> "--dereference " | @@;
noerr"Ignore failed read" -> "--ignore-failed-read " | @@;
keep "Keep existing files" -> "-k " | @@;
same "Extract all protection information" -> "-p " | @@;
abs "Absolute path names" -> "-P " | @@;
remove "Remove files after adding to archive" 
   -> "--remove-files " | @@;
verb "Verbosely list files proceeded" -> "-v " | @@;

comp -> compress | @@;
compress "Compression" -> gzip | bzip;
gzip "gzip" -> "-z ";
bzip "bzip2" -> "--use-compress-program bzip2 ";

choice:framed  -> work;
work "Main choice" -> concat | ! create | diff | del | append 
                     | list | update | extract;
concat "Append to archive" -> "A";
create "Create archive" -> "c";
diff "Find differences between archive and file system" -> "d";
del "Delete from archive" -> "-delete";
append "Append to the end of an archive" -> "r";
list "List contents" -> "t";
update "Update archive" -> "u";
extract "Extract from archive" -> "x";

archive "Archive name" -> @@infile;

files "Files to work with" -> @@string ;

buttons :horizontal -> @@action(tar)="OK" @@close="Cancel";
@end example

@ifhtml
@html
It looks like this:

@end html
@end ifhtml
<#if output="html">

This produces a command like
@example
tar c --remove-files --use-compress-program bzip2 files.tar *.cpp *.h
@end example


@node Calling perl,  , Creating archives, Examples
@section Calling perl

Kaptain can generate various texts, such as complicated pipes or a piece
of perl code.  To create your encrpyted password, use the perl command:
@example
print crypt('passwd','sa')."\n";
@end example

Let's make the grammar:

@example
#!/usr/local/bin/Kaptain
start "Password encrypter" -> code @@action("perl","-e",code)="Crypt";
code:framed -> "print crypt('" passw "','" sa q%')."\n"% ;
passw "Password" -> @@string="notsimple";
sa "Random chars(2)" -> @@string(2)="y4";
@end example

Notice that the @code{@@action} has three parameters; the @code{perl}
compiler is called without the shell, having two parameters: @code{-e}
and the evaluated text of @code{code};

@ifhtml
@html
Simple but great:

@end html
@end ifhtml


@node External Control, Errors, Examples, Top
@comment  node-name,  next,  previous,  up
@chapter External Control

@cindex External control
@cindex Communication channels
This chapter describes the communication with the dialog in Kaptain.

The most interesting new feature in Kaptain 0.7 is the possibility of
modifying the data in the widgets while Kaptain is running. For this,
Kaptain needs a communication channel, which can be some network
communicaton, redirection to an other program (using pipes) or the
standard input and output.

On a communication channel Kaptain can recieve messages. There are
two kinds of  messages:

@enumerate

@item Setting message:
@cindex Setting message
This can be sent to rules that contain exactly one special symbol on the
right side. A message consists of two parts: first comes a nonterminal
name, which specifies the target of the message. This should be followed
by a the real message (till the end of that line), which can be in fact
anything that can be written after the special symbol you are refferring
to by the rule.  For example, having a rule like
@example
number -> @@string
@end example
then you can send a message like
@example
number="Hello"
@end example
and the string input field will be set to the given value. 

Thus the general form of a @emph{setting message} is:
@example
nonterminal(par1,par2,...)=initvalue
nonterminal=initvalue
@end example
The later one is the simplified form, i.e., when no parameters are
given. This was the case in the example above.

For a detailed overview of the possible parameters and initial values
for a given type of special symbol, @xref{Reference of Special Symbols}.

@item Asking message: 
@cindex Asking message
If a nonterminal is followed by a question mark in a message sent to
Kaptain on a communication chanel, Kaptain sends back the generated text
by the given nonterminal in the following form:
@example
start?                                          <- to Kaptain
start!<...here comes the generated text...>     <- from kaptin
@end example
This way data can be retrieved at any time from the widgets.

@end enumerate

@node Errors, Reference of Special Symbols, External Control, Top
@comment  node-name,  next,  previous,  up
@chapter Errors

Kaptain reads the given file and parses the grammar according the rules
in @ref{Grammar Scripts}.

If Kaptain finds something that is not according the rules described in
this manual, it either signals an error or just a warning.

For example, warnings are generated if string, regular expressions, or
other language constructs are opened but not closed till the end of the
line. This is often handy when typoes are made in the grammar script.

On the other hand, Kaptain might find syntax error, and it immediately
stops. In this case, the name of the last rule that was read
successfully is printed together with its line number. Thus one has to
look at the errors after the last correct rule. The most usual mistake
is that the closing semicolon is forgotten from the end of a rule.


@node Reference of Special Symbols, Reference of Modifiers, Errors, Top
@comment  node-name,  next,  previous,  up
@chapter Reference of Special Symbols

@table @samp

@item @@integer
@cindex integer
creates an integer input field with up and down arrows, which can be
used to increase or decrease the number in the field. Two integer
parameters are accepted, these are the minimum and maximum
values. Initial value can be an integer, too. For example,
@example 
@@integer(-10,20)=4 
@end example
@noindent will create an integer input which can store a number between 
-10 and 20, and is initially set to 4. The minimum and maximum value
default to 0 and 99, respectively, while the uninitialized field is set
to 0.

This object evaluates to the value of the input field.

@item @@string
@cindex string
makes a one-line input field. If an integer parameter is given, the
maximum length of the string is bounded by that number. For example,
@example 
@@string(20)="Hello" 
@end example
@noindent creates an input field with @samp{Hello} inside, allowing 
strings of at most 20 characters.

This object evaluates to the value of the input field.

@item @@float
@cindex float
makes a line input field than can contain a real number. Initial value
should be given in quotes if it contains other characters than numbers,
for example @code{@@float="1.13"}.

This object evaluates to the value of the input field.

@item @@regexp
@cindex regexp
Similar input field to @code{@@string}, but the regular expression
parameter is used to control the string that is entered. For example,
@code{@@regexp(m/^[ab]*$/)} enables only characters @code{a} and
@code{b} to be entered. Initial string value is processed if it matches
the regular expression.

@item @@password
@cindex password
This is identical to @samp{@@string}, the only difference is that the
characters are not shown; an asterix appears like in usual password
input fields.

@item @@list
@cindex list
@itemx @@combo
@itemx @@combow
These specials generate a list box, a combo box or a writable combo
box, respectively. Each given parameter is inserted into the box if it
is a number or a string. If a multi-line string occurs, every line is
inserted as a separate item. Thus @code{@@list("hello",`ls`,"bye")}
creates a list box containing the files from the current directory, and
two more lines: @samp{hello} and @samp{bye}.

If the given initial value is a number, it indicates which line should
initially be selected. In case of a string, the first occurrence of that
string is highlighted. Finally, if a regular expression is given as an
initial value, the first line matching that regular expression will be
selected.

If a @emph{substitution expression} comes in the parameter list, it is
applied to the following string parameters until a new substitution
parameter is reached. This is useful to make different text in the
dialog box than that appears in the generated text. For example, in
@code{@@list(s/^.*://,"a:A","b:B","c:C")} only the text after the colon
is inserted into the list box, and the whole string is used when the
symbol is evaluated. Note that the initial value selection described in
the previous paragraph is made by comparison to the original strings,
not the modified ones that appear on the screen.

The @code{@@list} and @code{@@combo} objects evaluate to the line from
which the currently selected line was generated using substitutions.
The @code{@@combow} evaluates the line in the combo widget.

@c buttons -------------------------------------------------------------

@item @@button
@cindex button
Places a simple push button with label given as initial value. The label
can be an image, if a filename is given in braces, like
@code{@@button="@{ok.png@}"}.
creates a push button using the given initial value. If the value is in
the form of @code{"@{@var{filename}@}"}, then it is considered to be a
pixmap file, otherwise the initial value is used as a text label. For
example @code{@@button="OK"} creates a simple push button with label
@samp{OK}.

One push button in a dialog can be the default button: This can be
achieved by putting a space to the beginning of its name. For example, a
default ok button is created for the following code: @code{@@button="
OK"}.

@item @@close
@cindex close
Creates a button, which closes the current dialog when pressed.

@item @@action
@cindex action
@emph{Synchronous execution.} When this button is pressed, the given
command is executed. During the execution, the button is disabled.

@item @@fork
@cindex fork
@emph{Asynchronous execution.} When this button is pressed, the given
command is started in the background, without any effect to the dialog.

@item @@exec
@cindex exec
@emph{Final execution.} When this button is pressed, the given command
is started and Kaptain quits immediately.

@item @@execclose
@cindex execclose
This is similar to @samp{@@exec}, the only difference is that Kaptain
only closes the current dialog. In the topmost dialog, this has the same
effect as @samp{@@exec}, since Kaptain quits when it closes the topmost
dialog.

@item @@echo
@cindex echo
Creates a button, which causes the generated text to be printed to the
standard output.

@item @@dump
@cindex dump
Creates a similar button to @samp{@@echo}, but Kaptain quits after
printing the generated text to the standard output.

@itemx @@execbuffer
This button causes the synchronous execution of the given command, when
pressed. The standard output of the executed command is captured and
stored. Later, this symbol evaluates to the stored text. This is the
only button-like special that can evaluate to nonempty text.

@itemx @@preview

Creates a push button, which shows up a new dialog when pressed.  The
new dialog contains the code generated for a given nonterminal.  The
accepted parameters are the following: the nonterminal,font
descriptor(string), minimum width and height (integers) and the closing
button's text.
@example
@@preview(start,"Lucidatypewriter",300,200,"Close")
@end example

@c end buttons ---------------------------------------------------------

@item @@infile
@cindex infile
@itemx @@outfile
@itemx @@directory
These special symbols generate a line input field together with a push
button. When the button is pressed, a file or directory choosing dialog
appears. The name of file selected by the user is then inserted into the
input field. @code{@@infile} stands for a @emph{file open dialog}, while
@code{@@outfile} for @emph{file saving dialog.} Using
@code{@@directory}, one can select an existing @emph{directory.}

The initial value given to these symbols is inserted to the input field
at startup. When the button is pressed, the dialog is starting on the
file/directory currently specified in the input field, if exists.

The file-like specials (@code{@@infile}, @code{@@outfile}) accept one
string argument. It can be a @emph{filter} for the file selection
dialog. An example for a multiple filter is the following:
@example @code{"C++ Files (*.cpp *.cc *.C *.cxx);;Headers (*.h *.hxx)"} 
@end example
The separators between filter groups can be either double semicolons or
newline characters. 

A complete example for @code{@@infile}:
@example @code{@@infile("*.xpm *.png *.gif")="/usr/share/pixmaps"} 
@end example
If no filter is specified, all files can be selected. In case of no
initial value, the current directory is the starting point.

These items evaluate to the text in the input field.

@item @@container
@cindex container
Creates @emph{two buttons} and a @emph{list box}. The first parameter
should be a nonterminal symbol, the following two strings are
interpreted as the labels for the buttons. When the first button is
pressed, the given nonterminal symbol is evaluated, and the generated
text is inserted as a line into the list box.  When the second button is
pressed, the current line is removed from the list box. Button names
default to @samp{Add} and @samp{Remove}.

This object is useful in cases when recursion is needed in the
grammar. (In Kaptain, recursion is forbidden.) For example, if one or
more file name is needed, one can write this:
@example
filename -> @@infile; box -> @@container(filename);
@end example 
The container evaluates to its contents, its lines are simply
concatenated.


@itemx @@multcol
Creates a multi-column table with the given data filled.  If the first
parameter is a regular expression (@code{m/.../}), all the following
string parameters are matched against this expression. Each such string
parameter stands for one line, which is separated according to the
regular expression.The subexpressions matched form the columns of the
given row. If there is no regular expression, the rows are separated at
the tab characters.

The forthcoming string parameters are the rows of the table, except the
first one, which is specially the header. Initial value, if an integer
is given determines the selected element in the table.

The @code{@@multicol} special symbol generates to the content of the
selected row.
@example
@@multicol("Header 1\tHeader 2","data\tdata\tdata","abc")=1;
@@multicol(m/([^ ]+) ([^ ]+) ([^ ]+)/,"1 2 3","a b c",
          "xx yy zz")=0;
@end example


@item @@fill
@cindex fill
Inserts some stretchable space into the dialog. No other functionality,
evaluates to empty string.

@item @@text
@cindex text
This special symbol creates slightly sunken box in the dialog with the
given text inside. The text to be displayed is the concatenation of the
initial value and all the string parameters. Since it has no functions,
it is only good for informing the user.

This object evaluates to the empty string.

@item @@icon
@cindex icon
Displays an image in the dialog. The first parameter should be string,
which is the name of a graphic file. Several file formats are
recognized. From Qt's manual:
@quotation
Qt currently supports the following image file formats: PNG, BMP, XBM,
XPM and PNM. It may also support JPEG, MNG and GIF, if specially
configured during compilation. The different PNM formats are: PBM (P1 or
P4), PGM (P2 or P5), PPM (P3 or P6).
@end quotation

Icons evaluate to empty string.

@item @@edit
@cindex edit
This is a multi-line text editor field. Initial value is inserted, it
can be a multiline text, too.  The first parameter, if it is a string,
is treated as a font name, Kaptain tries to set the editor font. The
next two parameters of integer type can be specified to set the minimum
width and height for the editor field, in pixels. For example,
@code{@@edit("lucidatypewriter",300,200)="Hello,\nEditor!"} creates an
editor field of @math{300x200} pixels, using a nice font.

If the given font name starts with a minus sign, it is treated as an
XLDF (X Logical Font Description). Note that Qt does not handle
wildcards in font descriptions, nor the aliases at this time. A fully
specified font looks like this:
@example -misc-fixed-medium-r-normal--12-120-75-75-c-70-iso8859-2
@end example

@end table


@node Reference of Modifiers, Concept Index, Reference of Special Symbols, Top
@comment  node-name,  next,  previous,  up
@appendix Reference of Modifiers

Modifiers always begin with a colon and are related to the nonterminal
after which they appear.  For example:

@example
start :framed :horizontal -> a b c ;
@end example

means that a, b and c are placed horizontally one by one, and each is in
a frame.

Modifiers usually have effect on the appearence of the dialog.

@table @samp
@item :framed
@cindex framed
Makes the child widgets to appear in a frame.

@item :tabbed
@cindex tabbed
Makes the child widgets to appear on different tabs.

@item :horizontal
@cindex horizontal
Makes the child widgets to appear horizontal one by one, instead of the
default vertical arrangement.

@item :reverse
@cindex reverse
Makes the child widgets to appear in reverse order. That is down to top
if @code{:horizontal} is not present, otherwise right to left.

@item :noeval
@cindex noeval
The nonterminal will evaluate to an empty string. It is useful when you
use a @@string input field by a @@container, and you want to have only
those items which were inserted into the container.

@item :double
@cindex double
Place child elements in two rows or columns. It is useful when you have
many radio buttons.

@item :beside
@cindex beside
Place child elements immediately to the right of the label of this rule
(if it's a radio button or check box), not below as by default.  Use it
in the similar situations as this:
@example
number :beside "Number" -> @@integer | @@ ;
@end example

@item :dialog
@cindex dialog
Create a pushbutton, which if pressed, makes a subdialog to
appear with the right side of the rule.

@item :wizard
@cindex wizard
Create a pushbutton, which stands for a subdialog, having all the
nonterminals from the right side as pages in a so called @emph{Wizard}
dialog (with @emph{Next}, @emph{Back}, @emph{Cancel} and @emph{Finish}
buttons). Must be on a conjunctive rule.

@item :tree
@cindex tree
Places all children in a tree widget. If the children are also marked
with :tree, they will appear on the second level in the tree. Look at
the example grammar for indent. This is a very good way to place a great
amount of structured information in the dialog. Checkboxes and radio
buttons can appear in the tree, but if other things are present, they
will be placed under or beside the QListView object. Use it with :beside
if you want to create things like KControlCenter.  If the label of the
tree item is like @code{@{icons/my.gif@}Text"}, then the picture
mentioned between the braces will be placed beside the Text---this can
be very attractive.

@item :detailed
@cindex detailed
Together with @code{:tree}, it makes a second column appear in the
TreeView where the tooltip information is placed.

@item :stack
@cindex stack
Creates a widget stack, which means all chind widgets of the
corresponding rule are located in the same area, and only one is
visible. To control which one is on the top of the stack (that is,
visible) external communication can be used. @xref{External Control}.

@c internal modifiers DO NOT USE THEM EXPLICITLY
@c @item :checkbox
@c @item :tristate
@c @item :radioparent
@c @item :leftaligned
@c @item :rightaligned
@c @item :radio

@end table

@node    Concept Index,  , Reference of Modifiers, Top
@comment node-name,    next,  previous,      up
@unnumbered Concept Index

@printindex cp

@contents
@bye






kaptain-0.73/doc/record.gif0000640023433300116100000001334610120611327014307 0ustar  zsoltengGIF87a```~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"! 

	ppp,@H*\ȰÇ#JHbȱǏ0`(Q2` D a
*XpC6l @!b	%L8E
*V`Ѣ/`Ĉ!c5jظqJ(y @2"E9$I%K0iɓ'PD"e
*UXK-Zpŋ/_	#f2eʘ9sM4j֬aæ7o#G:tرs7-B-5&#EXg}\"d}thfb-`'%s罪	[4v\
^7,ۊߝ箾ir,1q7齺.{_츷
{;h7ٱo:^׿iԒ@~ľ	ZUʻ
zpN`7=
9IoZBKpZ׭
\sa`X?l5TU	G/vMb5X̢{UqKCzb6 	HJPG6O0(HQJJ$(
WZD)IJlB	_B0YLcT2Lg>є4YMk^6Mo~8YNsT:Nw]P|̈F(`+iKb2$';O2tR
ST*Yي"eBkir@.t^Ȓ%$8OH1*%PyUȕ=%h9[II%aJLKH_Lቬmn!ÑB|.`5S
ty;ৠ&ĚKSSLy>)I_=M*LTViH:-u@1CQnZY1
0\[#dxͫ^WbxFT֩)_jUWE2e,0ZjwҮȺNZKIKZamwvXl!PKMk*vܺir۹>K=s+	d>uIV馪ncK}
L놯6!|+.5Xzi^ɛTvo+7$[XV@Uo-@},'s(NQ\s.nnTc,Ţ
6ba9L8fv0imj˂h3F0HcaULT2~|2όK`rkD'<	PBos)MyJ9t+aKYΒx`\r/$0yMȓ-
%H9SH9j%`Y
ɖE%x_:IQrgf$*i}GG@ɜ%%PU!R4@
*mCIH)$@QȔ5J%XWHA%py]*ɗM
&B\!ipkpc~9QwP
$π RHRB#/HpH@䶻}o>ϽO~DO=}?:%X)fZM4ɛ)gnql+;͖CӞd4^TN\A5mnzZ%jjy[T֨YTUgx2{<)FI|Z\+j|Z,RWz=:2gW+|KbOhr8OWުoy<2#"[ʚ-^K5f}=ZKDUd8+zx١CWL4pwpF)kqw ꦮ*j W
I~ګ٠3gw)8wy=xɡBWxWƥ9u-JuY)9)vih9j+.w*suzszs7tUZ#)*nviuygIgag*Oڣ:	P*JGÚ*ۤ
SJٚcšf&hdٔl۶er[8bCȈ8]׉1rcO|3ķKRkVP[;	\:i4y}ɾߍ%i{v&\
?
e'"->}m3]NȼN>.	"p2{>&қMዓ..%N, ^.M3}8W"A<ݎA.CEΌJ^@s6ٕM8,l册刬-MmOl`pnYdT.	֏{wy^{^U0B^3sPnC&n&ǜ*u(ULYn@Bnׇ?mf|d^=ғN똞3>2.*8.'Ѿ{ӎߦvJ9>~7^N+r˙N޻eR>&aD:`]~
;kaptain-0.73/doc/tar.gif0000640023433300116100000003442710120611327013622 0ustar  zsoltengGIF87a```~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"! 

	ppp,@H*\ȰÇ#JHŋ3jȱǏ@ɓ(SP0_"@f8\g
}@Ft	VZX/`ؚk
`7l<!Aw$[„Op
W(^q-\H~A12ǐy4B]ÆoXuwv=|AB|!DYn#БHGJhgIN;yBy(QKY/e{*To+ǒZl! rŁ^$ aD(Ƅba!QƆfth !"iƉj",Ƌn4a#q(ǎr#@QǐviH$y4Ǔz!%TǕ~d\% )Șbfn4HjdJ,d/pL0%N<PeRJ1%SPIEUdW^XdZ\r%]xŗ_&&a!b9d.Tffq&gFi6klنn>p'q)ǜs1uayx=qzG}](~ Rhjȡ 1"&-4q#:A
IHޱ$NB)UZ\%bi hy;'w-DmH'L7PG-TWm+\w`-d}#=@L0@IoMs)&ѝwJt
smm'7G.Wng敫k-褗n騧^uwsJ.n{Is"qwu]w7/8S|MxwH^ۃJ;o篿s$`7?9oI7a{׳ vr`GH&mLLCI\8!e5:ti:61{"Y0HtA'ZĻbA-X"/(+cax(!OpFАṣ8:ޱ|,)}|+"FN͏

6GZ$If	m*W)M򁂄	'hF&B1SL$IZFq/=8\^|+kf:s3IMF?6(Ln
T`8Yrb4:׉?tC 2g$g0)5oj$DhE׷[*(=bFQI7j @=Ғk#$yCZT{O,f9=0nσ)/OSt=
PQNuHMj~Ԧ:uiLZ!=̫^+<=,F1:bֳWQnNa׵*sH͗WγgTBM|`kX5јK]kewCĮ'n-dG{.^Xy-nOwݺOU _!3w%MqEe!S+]VR`0oa;ƒm
D߱W/*W4hvc*tHtqNХtLr5`OzݧTgOϽwOO>W?/N3lId>i&5y`0(AJQ,)O
Rde+W2p-iYK[̥.w$}1(`,1q04@q8Q<@ QǑDEQIٱM QQ1U`Y 2 r ]  !a@!r!!e!"#R"i")"-"m #3R#7#q#=#A2$u`$G$K$y%Q2%Ur%}%[%_&@&er&iBPm}ͧLG}~'3A6
@(~(g~)~b)')"**H*B++h,ȁb, (,&"-,ւ-2H6-ߢ<8.B.bH.„NX/"T/Z0`x0	Cf0l81r1cx1!Ç~X2'#2-33㈐x34z9O(74s6z&iU|'qPƒ0Y6fG6H}GRd8_sbf]ElV4t79M3yJ	y9VKgӔGXenD_Cf
Y\B	`9F#dyD)H4.P6]Eg^`Xs5tigRYGAs3SV\jc	jEcUF6seeDfKgx+VU]IKjUyy~k>pW	_p	Qy>hzԅVך+Y@k]<9d	cωcɘgY9_sUcЙY՛ɑ5xYf	w6@JydA#!K=y\37Ğ:7`i3ZAyDeT
Z+Yp&U6}Iww"ʒzT*
٢©tiKY]uVM6teFDWjI5g	
\Fyh5ʕ/deZbbAW/hb5Zc:HZyBUJ5o5syF61&lfcyOlLxKS@Wmr~ڤA֝	ع[EQo	d)t韍6YUOTƤ6
L2U4jvQ9rzzm-sɪJEDd驪IZPŧZk.J4i{YfJ>JժժZ
*]z`l3ZVsVfR
m"8W#OEg@h"g֭#FHK^J`ym7kJve*Aɮ%Vt鰿ֱT98gSe]ؚ.0k2,
>jDۧFLVvR;T[Z>HbWpŵpUٖXiecuVjCrǵol;t[㶄e|۷~oO,\Z)CI^kNNctW{۹d[{o8fp8D;[wg'v+)AzGG9N[R;5[&{4SOw+=ռfojP;{tw4盾/{5h(?Q(I')Sъ)])gQG*q*{ы+
h+Q+(,ь,%,Q+H-1-5-8((.>.Dh.JH/P/VH 0\ h0b!0h(")1n"1th#1z$I2$2H%	3%i36z'7ǣx(G(8))')X*h*+x+H+8,Ϙ,$(,*X-0h۸-9.!?x.aE.롎K8/Q/!W/	b]X0c0i1'"ox11bu1;{82E␁2O"2YbX3cn&>S8rlG[}w'/}}ȉҿGȏȕRțɡGɧɭR	ɳʹHʿR!˒'-H37-8L.<.|@/܄Dl/J"y&sgy%\sjEs*^^[`5dWf~viG;k+H9	S
Měq.UV$ TI>T3dt~csUXcsTNU2fzl􅯜*9Zce ˡ$\F$VG)Zqy,h.㕞؞N)@/)mOUhV~f$noN䎖e	t~>PgԞ?f8e;ay>?Ag6#Uҥo.Q^9ZznJUkNPqE"4fTo6!_Y_Ǯ3&JlOMnrL^u/T_9B>yWeqn9^lz5GHiﯚEJ並Q{YE.ߕJ^od4k+_%?_ziOX;_Mw\
>ZZU4ϭc7{CHNe?;/E[o1@@
DPA
>	ha1ǑAz$1GWRL5męSN1y%JY$*rhʡ-4zTU^Ŋ3(PzVXeNZ1Ymݾ[vڮ5śWޛw/X`}ӝhpaƍdʕ.v11Mɖ=3hҥ'woVLtLV]ViH^iӺS/TQK
uTH=,6ݼ5t&l_#N0\	]ze]^Y}2ϼ*%x_B^`۵`lL>Kq/\j-VNq=^Gk\hUDɌ4c79@qC9ܞK_MyZ{K$5Fhf`VXjvA57#U2"k*ekdzNlYN{dgAuW[4X–*
r4$gaَ=_]14nlf9~cK+ʫWwexoTɣ~OWka~~O|hmտ}܇[uwd?K'ɡ@)HtwOMkF<FQ\@!!뜷3g`e:A,=ibh 4 q__BfDbݎ#OFk?*fņ]=D0֎+v+cƨ	`l|	.ĎwcG>я5HBҐDd"H7ё,Lj 9IJRPd&tIsc6F&;iҔQd3Kx2)eTҖ".uK!̤$	.bӘDf2Lf6әτf49MjVUMnvӛPDw"kӜDg:չNvӝtgaPwkN~ӟh@MyHV#gkP
uh>%PVԢŨ@	:qut$gFURԥIUARMv4/iNuSkg-/ҞըGEj;!06թOjT:^>
Wec=ULj_}Wſ	XfVHS٩%mk\"Vn.[=E3vdk`"TVt5lbX6v|jR%;YVֲFtDS>ID>LD>OE>R4E?UdEC?XEs?[E?^E`̿#FcTFf,Fi\Fl	FoGrDGutGxLG{|G~H4H!dH<$Hl'H*HBIȓ<0ܼxI=4TC3=L=93|=<4=?d4=B4>E5<>HT5l>K5>N5>QD6>T6,?W6\?Z47?]7{ka쿀dgLj|mp+sKvO?忂OAOCEPEu5PGUPIuPKPM5POePQPSQU5QW%šUQYUœuQ[žQ]<.B'Sed:^)^)^#^3^:%_߿P+:_YOiB_m_^,J뱔	(6FV"ү+o
Fi!rաZ6a(VHva-y"aވΞb4#~$	<
(v ),/OM`16`-..,Hc&
%1	9&9RcH2%,`+
Bc|u
FGF0UJLdK(OVcOe&R~SF&eX~&'}cI.;~
#Q"1"?&JdacB"_b	fCJdX"R"	gv%`kKdi
.	7fIaqUz{}~耎ށ&h)31Kxb2lmV_
[1ʨ+.ʊ`%邩IF!Q*d`ai4.OBfQZџ
%C!;^!y!vF.Jjnݾfmh!%F	gnrΦfag~щENFVv﯂ުonvv5ln+v⿹d΋^öBf1攎knvp[iXkokj:k@&>q0p	F+>`Un&eF2oށ+,Y/?0sM"2*Fs:5$~h7%Оe!gJ9'nc)t`c=בsԞVD 󲖏n-tRrVFQyi'N_m5WupnujXY.g[Wb]\u	`%nbsb$_tF__/eOt>'g6kw(u
jm(wra9jiFso/&@s'^khwwxY	lwiv/x	u_b/axG瞊x8?puJ)fdc6iWjjFu.Obp}҉Cgy')m"nw%yfr7uGnoדι !a{zL&"zx_6GWg|?ɧ4|*:ߺ&x@x62ekuiw⦤|}n֬zcgkHm^gZn}~*~Zxhw}~V }/rN9#(7+6WywfOp/hb+9,h „
2l!Ĉ'RD8@`Lx"Ȑ"G,iǃ)Ol%̘WM:w9&A>-jР63:)ԨIRju*VZZké5rdj1jՖ5gn]Xw]:rvڶvY@^s&)1]a$Ky,eq~,aҏGF6kI-y'߳vwlۥa^-n냯m3n>iocθc濻m:zN~wZG~{6_z(~	xvGbEN_z
ƷaB2>!/V~`y *gy%x}Xj&efxaoWkd&gx.n[A)j\FӁ	G~eXe)ЋU׉٩b-AFѠ硍::YJ:LjԕzD)!J֧ᨊDꪱR*jZ%:,O{WF,',D)hՆF[j{24z;.fhQfH>R?-䒋-Zb%$":.9^^
G++͸djl·Ж"lŃ0\/q~x8(3|`N\0JY?e-%'aפh]sm;d#\xmv.l^ٺ,fK1{T'lkkwףGR6/f:fz8`?v
j-9U.stw
;Eg+C<?=J'mԧ-;7VR1/W>C-WvcJ^_u/#>(IbBRVANM#%y`Z|OUuW3NDr921r._O6xꃜ֢@]1ߎ0L^%aUdHCIO))q޳
~9xB+ 801&,Q?>f|^И]uoՒkU<cq!G%Ml)-n3OI=JZ1y#CP)ʒhr*$%x-B"b-k&Y\XՊ3%Zr4*1Wj
~*S ҅ELn0ggCec&w9!hʏ]$"3&fH;bY|_q)g(6`R,+9UQ%i4Lu
q|3BsގAMaHQb:4eHћΤ䩤Z	Mt̩Q_S%PB'T
J5YHHOT^cdW!W
ʙ8o-sk=$RV7zϵNqkqhB{5Q\atՉlmZs2U
n%+b=?֥͊mm:W2BT1XؖH`y2jE
&9c';E1ƽnyK߂oRESmQ3+]&zhKY7&JIJTW_+އU1J
B+HNm.,֗W
_AV\`g=x}!}2KRoMbX_Uc̢8$YqH[L.E㱐-0$^X %!~ȝpa&7"CNJ*\d9e+{y̸	͜W+[n3?g+s|J~3-AІ.4NE3ю~4
]g=S:{4xLs4}Prm4\Uӡ	pOG.7ֹ9=jqk+w	LZ
ŮmTC#]gkDu6p$ӝ,tTST+yӻ7}7.[4f38#.iNxs8C.rDE5;򕳼.9̍/	7c#8N>:>?:ғtE]ZjkuV:ֳnCwH)vTاoן%Zw~;
wOi{w<#_:u6o%s^ƒs3>/Siݭ}^{M/~Wqϯkէ=lӔ|R5]KvA
ѫdSv	WI<M OUL\	N  *E  `)
   !!&.!ZRSEN%Q!fb~!u!뉡!
ΝHޟޥ!͕l!! n5 6#\!~` b)0#f&r\$~"*n)u"ѽa+"!,"-Z*]-.-n."0\/
D01z ʠ2 36c>#4 	T6&_5f764Y͞-Y5nR9Ҟ98#&c:r#:fJ88=J@F?6q@`>=DA>B_>EcBFxCDJ
V]PwADKUFK:$0HQIY $
BRN:@Fdx$3%$H%eY%,%<&dFdN&e&[[;kaptain-0.73/doc/tutorial.tgz0000640023433300116100000026065510120611327014742 0ustar  zsoltengfZ=T]_7n݃Kpw	4
.N`v`6`
V`	^df`
&~F`z:
Z	jT@@	@@d@?IqQaA|<
\_8M#1#0=-5|*
 2  " <,@4@@$@8(0'''z떖E?a?ς0,%+	Š+@͕>n>\c(T,m U+FGLQ|́u95hۯ_QF
UVZ-7;k2;:k8m)gC
)8Ohd_
w]DL}6Kްo9bT~i.E4ǮY-*u
a7y'zG "pSzr[poET020Dr q/EB[w2H HsX?XQ` DYVSf GpSmTx xK(p فl[o^c{ ?`G$$8:`IlaQ$`EqqY$K`MYI]U`mS?% Pd!%QТPAȦqYeq,[S"?Q)L㡒ҠPxiҢd``r QiYSl
SԔ:8N|MMW8qAeaC'~1!+T)	9`)'cx8sJrwR/~2:0m	:#D
_1;"4`'qEUe)f6gbRp)aI0V2$Y̾m1JDV
%C6K!GU\%A͜iY\k6;!UÈ\Qi8,5gpCư|	[Jl*k!5bv22@.4JBvϜ#RIXK>u^TEYJXί 5\SDk1MY$jsH˸C"iaxeܣ3
?cJ$O}=ر"9Q	V+wQbS 6`m&oK#b19˾u
\EuX}QN.5
'kZ~>raWO#x&R;L_]3jLqU$"BV󫺊t{RBxkz=)ɢ,jU4S[DOy[ً,nr=BF+M_1y:%(+ J8Vmsr>w:%1]OhG)4u/vΜ4:\A
FJձA
J3r/[ʁtMΔs#݅UV	ZoE3,c=BE
x-cr=FfX/6ߨ\%FPZa!QJe[un(xө"W֌8.fwV#o=Gܳ)8VWo/*"u1#$O(!I<1.}灳Y.F2Dw}ǮLoʤj{)ZKbry
N+
~KH\ZkH?|
䉗3(E-~b$NS8}Z,נW3CgYЧcoK3oqKśII/
Xr]"NN~Duy`kOaLjU﬐psS
C:!LX^Q4vm웼5/woɦujM((rzDYWq(L4GD;/q	6n3Q76-
y+l99o
$Vƹ5v1a]D2n^2@އ?f`.O5@rZ2CD7%J<>{f|Eyrd[pX~

	fțWqA5X`0։X;ZfDW.<R>=A*TV;ϯ2"鍡ˎZo3~za6F9醔:\kz8IB}
3ro?M3RfSr	l\Ո̌"
|l:XIu=R^%3P<_:6J(#4HyKo,/ݼ*A#QY"Tfe&&m6*wBeeQƃ>|%*a"69*5e8j#3vP+W+,3,."-z0VȀc॥PdJd}hLOməⷭ	РykF׃Rhae$dRHΩ?gʶ%&%${ÚTS&sdȭ(?QrdxRڷkpΨx:>d`qdjg{g4NzeɃjҘEOe'\
:2;7)'0yE2R;w;w8+w-w\;Sxr%.w^;\3Gu:o:97tw4Q)/;(֒o6zOlv|{js*~!:_!N!O!nv!~{!j!s!j6wU~,1tFߙڃ}K^5Mǧ+D\EL&WX?
~E54I+GjJ?LXh蔴HXdI@L@T.|dc}GrO{jisi~Y0_YNYOYdvYt{Y,h,,^$ٟ	*1;.a(T]HQo
C~B(K;Y5dĒpH%wGUw]KeZXL${p4c8v}8u8p$Y`$Uo.ڪ6&66`}oFNv`g>ƨbˮuWw^6찎8(\/2ZN0;Px|ds7t\KU'm@y~.7H~hk<۝g,"vBC0'sDғ*oα`Uy1i7ĉr}yyI!o53yXY<"mZËxjigy~.Tmk볍ݘ=x]cnӚHZ=p쟠[31w@Ɲm갹law|u&j6M;WLR{'3[h5ZL))0wgen{lUˠ>?4"vj ;mN }MZG3nidJ+/l	u$0iy	_Rs
m%l.|3oeS`ewy3zcQ2otӀM"uh9[IZQ~#&^oW=u?(^q'
	--9yN
*Ɲ2fMm=!+n .{z.[Pig[k.YXɜ{sO~=zUܾϳfh9䲄4øBGx@Pi)aP}IV~cbͻvآKaO>b0C`z!b^4_JVƊ`qP.nZ^]NajXXzgwAsDH]㉸I
K>]ב\'o1eb
~gy/TCk"f5lЫ)N	~.ޟڵ?sz̿S+/?:S$"o`ppq~U01A8+,3]0Wcsd2~t!W: ?1Xwp}09}T9i\ǩ8N낯s.	z䦒Y{kd.n%δq|>k;qmEOwXUؖΣR룳9^DmqjV`,SyC.c'4N<!PˎT	S9|a/~$;3z}@C	5$蕝['[j_oeS/2ݯ )̨)-wnĻi%	(=6\]$YG #D,-D$#A	p'L//Ψ@>S;Z >Ŝ(h]vTKmb)<^)k;4N'%r47:eU	Sp}y{"Ժ4*Qgg
#$`GĽ
:ͼ:H
x;Qum3%"|Å4F{;8֣@@±i[Ǚ߅_yσkglߤ8Vj#H_msN_jF:d`(&u&
>!*ԂPtQX	hZR|1u9CY%sh{P)хHD"()44߾w_&)-j

S$kۮ/Ex/
X\G_
m S.ɹ1]Gh@(*8*R$a2ōrd[.BPj*RTMj_06R;Ǧ[Ú~7-^IɰHBqiGP5/\[3oֶƥcc[;k߲Qd+.I&Gh&y9Ă3wT%E=̭d6H
vl,j]ec*w}
S2&.1.x<۽mN
4ފ,˒6'2A`m,$HYgX[~)TVvC}e;h$=@-9Gy8[C@E2ړZ'Fh4!Ɔюλ b:[c	1!C(!N-3/3˄3';Q'89k	i?mHܴՎf,aRǘaTR%H R_-^ CUzvgX%RT[a@Gӯ<__|Xώ 	|"Bwe-2*LT	A.GF%Xɡ.D0g	72F0[D]/D	'Ǿ3('j]`5es9IRBJ%QPȚQ@_:(h
3_gxD1eM~Vwg{r{tpP	~-QU$}r Cޣv('&gYwʔw\@Z¦#9;՛VVXt@ۣ~ף׿Je #h5Hrd?:5Z

-m6`*P2m[6Hk>┽MQg6i1wZ؋uU&ROIW&Y[L9$1ZxW4Uێ̦g;Xo2duǕp*al鹱!>rUr֜ٯnt^M8~ ~h{JcV
;PdT ``;f z(/e:f{EWoH_R8Uv[Y*}v[+?#ۢ/R >Uɰ428Cn5\h1pPݘv;YLB8#r5)}ӥ?Zno<#žXynltz=;Z(.0+iUq9^qb!cQs|ˣeLR`ƣ}i._`QV$W/eVנc:0F}0jG0ewݼa;p5Oaj~N3l|~)|(zp9eΞ%i&/C&h߬RQXywc7Vik8a; Ff|O(yia(;a'}i
"4ZIK
YY87\oߙe™ƿ㝅pbGrbz3Qp2Cy3	đpz){PBSoz({zD(C{in0b@äeTã]O J#AKy7,0ä
 ?dK	þEh5ݟFceC+W~ֆu7)'ǎ/K#+X%)FM)*҆n/.+5%b?L/+ .دߣ#.= kH"sڏOI> .>ONgǎ41mLG1t”DuBm2pJvRKPsc΋
)-՘ʀ﷗ŒJ=:*L
v9zY:s$z9W/-b~(r⫄Zn.Qcn\tpYJjFf402K8Rl7a. Vg[~L-;_2qyB	nءuf?#e ,ds0GdkpƢYDF	%Db+=	_tF8K6&v
$dK7Vu
 I;Iy!`ɋE8'dWIFV
u@PNJ0#K	mF1[$n%w&&Sx''V%F&'ӗLB̄6d%Jo$&W&/^$Ud{lsG5$s֕&(ЦF6s{ƒM	n1Q~OKb*JHCJNɣc	M͌&FKhHbwjs  -<[uKY3
ѹ'eMUϐb*Uf;fKp!#)A
Oz5(OufmYrdH6kj_bOdG~:VT|^R"Y
	srں1ZoT>>!7ubX(&ek!	0uψӄ}^*ƔJS19]g~NxIaBC=W1~I*Ѳz%o5nA\򏝘Ks$S"ȖsK^cBQY6do>EڪL]\kQhڨC^rz3t\oyczI?O`a^ѠkB`5mS{n.Ϝ~2z6>݈MN_d\XD6{U߳5("w,-}о^\BO]Qi
0IFspF>ۘ43o߉(1l7(׵U<;5F4$x%!59iWܴOLt(Dk-;K!D2SɐHӓ;Ԗ>i(34r*#j2zǍ,䉗i1K-6+S;g\WZԛ"Z>3ު>fffdkpHc`O?c!Ubc@az^@A5lN+}^F}$?A<` {䏑K=DklS"{}NW	hTxOtmrÒX5K}{Kþb`v-V佅GNQUvUÍWk(^s
*q?
&qy{ &QG[h|Wq&>qižN<ȴh=޳#ܶ@χwg/Ig	8Bs^08:Q$(	I*ШGSVY]s]Q'K%ZE{M5f9[e}i2O
th:
Ǒ\:TL^/T-.gwu&zQ.y6K
'.k%+se@	zߕ*!:#N?X	bp2'6aڋqc d
g
IZ~;#˛t=ϟ_ʾ_\`w4hmlѮ0;?֟vҹT*y`IU(>r{vZa-R}QTa<]$5bCu\Ooa3QWKi\V:_󴾸3K%z`.D&JJeEC.E4mŪxSis
3̢{۟J$9>}s_.I+`jgN=n K	yhjS8
*?ƦԎ3:#K(=ۇ5S/ݓ2xiڲ>k\]EzzDL%c1IMe˲ y"CˆC1]SL~-Y
cy+hdyu(?z+w/sW,q[7,_,{DO-jaSe.*OAsO=ˆTpRM9-M^zAG	s3!1pݑ>^g?ͮ#>£TĺlOS7qbk{ýrEPb5AuVR=Fn;ON_YCgEKG1%|+Nr7N-jNS~_=lG펢DTO(.".]eg$T>Zy:z55g(Lљlڸnz/zPnS֮[	}| Ub镪9eMڡWi&kNpΗ(\ŋ}%C
m!w GO%VR#GT Y6RcJG3Ț\k!@?W6PGA06]aJ`>!ca<|X!1\|X!)ޏvDF!9{KCJ+%ܨcX N\?	57ЗHƂ(A[Ws/!)+cp2( l<_@RDK :LPO	^C‚󁣣PX(ReGCa7e`;B1>I铪tQըA3 Nl`_`aIcvb^6(~BF=~h51j/$ybZ	H;@^\/)1mRC:[ea@a]XI!j|)&9?rzzVUAOV"9a3"%gتқq:HuW
 zP75p	P3yΝ'
s&$ f*j"-7s9et X'5*p!A>w rou$:-0|,~JCB^#F5dDy#5z-łCDrB%'\'Ѫj73:}UqN3d{=΀f(48=a{^%;[u#wq4ŏu[0X\NCǪU֬q)ߜ[.V|9}ŗZ-|uMUT+:\?[O-=VgA:MH\vrv$-yo;cMM?*
ֶnO
=v/[: }Ix>o!Aq?F`8U5l#!:ljAPHpdHrHRd=AD]Lz4o`0#*h3/3MÃg .מ[YYZ^_FG(BR	XG(6WWzWW__I_%ugA\
w-_kunjl5HD
ڱsW6,uDV.'.7rtnoro̶쿑1Sa? HsI^z/pA"W-xֹ70ww2m
HDP]쵧fVff۳G`V```᲍VWYWW?g謫o "$|AmXEA#&Xw#8@Z;#%!}sV{^MpѶv1@@C|@@rCMHK;yrD2e7Ydq+r@	{1!}C.}!h."!N.9a FлDXt,]8
LUIL{
LVH7xxxy>W73cZIlc.c%W7y0	%(*SSFESK;ef>Tk4gh
Ma#\-~7bL_N_DNLWF&z(De.r(i.n|(!A%eNSL]L]Wa%n_R#o_sRXoq5s>8$6:ŝّ5-'{22US2S32M|+(+,}x|ؒe[Y:dt-ڷ
&\?%+4l+bW6;ϣз_%WW'ҷ
liw uwnwTvwWv@VFfP!,"
&;Wdаs@.S5^5_oR5_R3>8$00Z5a7>")=WI:?_dL=c%QeF?[ؑ\$vת^Ա_8ĸif.R]yL~:~ll8~59[]S?[e!?_ >ڼf[Mm1p99&1303y9xi1mYt
p|Yytg_ewt99@zr\ᚫFuFxdٱoaɊ1űyB7Q6;3zPգ*v"|BxB94n	2u	"EIvqtrqPst-e-;"L<C
2bDs*2(C%BCrF[C@\>0oYɩ&`pOaEԢ/	V@FX*d^bȜD]Էy8$85{yCϧG{]_Է])۱aŻ`&
"&L"ǔU$O\Mwsur/pK
[gPT	Wa͊.OkWr1P0
yU
!^`.̶ul7[s..|?)!Sj䢻P](ZH=Al?]9_BّК2xw8RP.
oXٹH.K뫗o/خZ&]]E~1Rp{N2]D0K(ACޙUfc
)]qFqvTV#?šԨ+]|&Ȓ^}z+t"*N-44q+*U2\
0kvKCŨǡp`@u4QodmqjkFiK]|qBp{*%34
rk2>ũV'H
$#&	uzumF׊ic=ul0E9Aa/ņ1)3)1hUyoa+ɴ'+M`3#ɀ7.sO[SZW7&߆.	Vv+1K~CE{✞0rw(1(2~ ؀o/!B/Cw%KxP8ۗ;q*XuMkJ|/8$e!6jfX+_.t#oJԐIeyt͟

Bٿt&p8BoPZZ7aY؍jyIxTjqþ(z[zu>->B|r#ZS9gYt{
<{mq=+y4[,8)g2enrsN.,=1ubw@ioY.R#4>q'P@yC[FIrIS!
[	_Iį_/w^(b}JV?ypnC.lBN\C9i+WQOt@χIjC[qrBrޤX%W_)1O0m143zgEXhJ_'lrK?+
}^w\"dyZz>'ͱ)ҰE#՟ے7
Z&7q+9to5 J,L|~m*sz%dZk
wCe~Bi@b|7nJ@3O/6ߏ]M?Ɖož9&n(dftuڹxF<$i{w	]h
JPyDB`>GJFI$HZ
ב}
Ja#ai0
,xbPxsbd0;J_P_
?N)~IKU$[,cF1inXYEb:L!#C?;osiH9eݦ`B~4ޘeBvfX*_lJJ4(Bb
c\?_
?XL.qOI4zcn
}]WSw١TL^ yN7t#iN+nX^8ZF1c>xSBAPǶ(**X_.o[b%E	DUɨROMNcYDk(BMkѷG{o(Fr	mK	1n:W?Co2@#v(	H9(PS#R)aЌz
}WSFP]VvJ+A‹Z\KgXaz)b3vY"6bvܴ9yqB,?8Ov3^dw̹6ܷ97~aKHn,V$uک@qjz9¨]T[Ng
H%T(v5cĤ°MYŲ3PER[L|,BfnyZà|9MK4km2uNJ~ζƷAVlx2+VKn[=W|6nPű7/6(
PZűk%,LD|ʴHRrN}+1E?SVt}gm13/sQo{*@nƞ
zܶ=]euH>4m&nwV̿wFէ!La-j5XsQ5Iÿ"UaĉU?ZOn̩
H^)}eȃbL[($J^,N$
4潃_7ABadxH_S4kYr
LA~VU)ɤxaA)R*$;_06?Ɛ*~p?EQ-PcrHaqU%"OI&KbqOp4Ȗ.lyWAg=l!kjRVb%f0h0'DMiH)e0t{'VAW/)3=[D"9,	SxP#6K[AlCim۸&;E1oܪUFpL;
Ž+Q?Y7%I23TǙR5%CnK^ZFyI3Ao~s8'fv9:59=g1,el۸`/I`G52fXT: w%ݼ.UDqetCX-	qlm~ڸǯAZW?L-0;dދfD/tH9Y5e%O
\GSѠxv~?>8.{bA=mzsץ =iÆ[&;36p1O)l{u9➽>%/6h]schCt0 EQ16ϧ;ڶe	5_NݛǏb'nɪtڞkM,L&ITZy<#ݢūXo}p? cvMT<~pfwk/^ÅY	ZS4
ZS-,>%k
)BJzhysݤCmɶ>9
CԱkyM
+FϠe[޵iuB
B(cgOȟ[{j.PP:=73XRAY!Bu0Xaz>eo:] JYy~|-"s::>Jy\vc;½pF^J~>a'(kNX`	`8PrH1IXf8TOc]w40\5~`UGo/lg0և0M<ۿ/?uZexQu'
?Tå}/`3Nmgb7;S;;WAj0đ؋}Oag7m_ (&`a`̚a@&pߪk8$ƒ`֬a% 3&}5Ð]k#yQlќ%;0qrߴ:D~HVg}&VL׺ɮxL+4fh^$2`ZqvT"Erj켚p1X"5>N`wL\vPMG]c
kQCBIMhk}xis-k7#UP+KFդAA	10T($X	?l~oy>9NO$s VYU^Y%ʒ
P<]+Vl}빊Ť;OW/&*dgӲ߽k.(9l'˄W?{=.0hbM{љAt'`Wt#(Nf \g0Y+jBP~2'O.̦^F;vB=$[#áΩΉ3ŎLhey&7:w\OELʻ5J霢DWɕ
cs/oR
D}&
)s'[?x,zNW9AIZT3OdWp1Ө)"?؄D{c!ϙ{$(@\eŚdEDd%SŻS\YI8D?[6
r`IH]5ZN3L5`J[yV!JwJL$k59RzLb'T57E/xV
OJe(C)U7hEae{j<!I\wie3?0Exf[QR8d9\/5ZniXt]F?hjQhR!MR &y;;wZM1L,^0u-4-{[-?d?g
RUu4tx)ulu%tE
c`*ҲPq*q`aoV-DŵK̺/6I#bh𲂛d*ӥ1i/_Ujsm
jH+`r_ia[7s`3љx(YjMazX{`KcD!h>x{P{cX2oD;3Ě+-V`mֿpe_-NnxP`P;#J;X`i83[99h88s+
t>ChP)V_SBfR8t˛[g6bIWPl><^o<] 1HCtvԔ}NqNi(=rqT|m<.mӛau>?Ec+ٴ@SҚ19w:x0t&f
˃(
G0~'<"UDkOz hc)p;X˺U`K,eYуۋ|1İ?Cbqg<<\4l 
jᚚWSU+-5ѱ5MFK:'jM"2EqDEד7EYӜ!1]+"+*lo{Ώd"j{l}YO1|Dvʢv{S,㭅%OLbV4v~fo*vՊ[.yw5SDEeEi&uj{ꉻ/ߔ(d
rC*,
۫`(ㅌn5VG++y89D;GyrTxY͹^Ώ6*xAn?2St'hh]
Jf2 d$aS|m}1nFW7m{:O?T|eɂ|i*y5I3;P+_YOYT{YsY_yOaGnףOEG)		ryLׄEr*ŊXqvY4^-Z%TQË1^\rSgVR=Z]G.<7|כ5GfGڒ󧌮т)|qowWKYJΆ
wWu1־Xύ_Ed*j*$I*\)|^Ut9Sa=i Y_bц_:k-:NTm^Q
;Ҍv-5\w!uwN]maQc/嗟omEc%	f0?Y't5MQyUK`s$z\v'῰}X4r~w>4tc~uz{[kU]M0C86b_;8>Nu51spڿ9:![ۂ4;P}&י;7jIb52]y^υ	gdwT;,9)MY$9\[Je2ESC=qz%	NP`^kƤkȶ׍,5)KbUե_-k9DS8S~+&MqC3\p+y}䉟-|~}fio,_(]P}?H
6;g~X\i!VȚK\Wi
|GۯޞjܕG.pP{´kYoUN{$EDVx${$›/_4H88;ҡ	5b47@?r^#7WKK啜snc+]++o;Ԡk3Lo"B2ݷ
[uyI;@iНyI}
P%D%M9x0c+>X)E0p?EWWuY+O7No!oΡ}BHR1W0_!"Y
{(0:\`0.h8DL)tZV2%'l!d|
A	QE}\0XY׵|@GpBN-mpb,Fob1&Ct[A:%l/D,UXa'˼PÆǡd~GAۑ|*Q0<&Qt^L]*K?Ѳn
eEe̒$̒şӒSwXiSR5d~e&2Y9]p.Q>#6+ȲVo#%LV?eӟGKmʾڔGTTԌTtV5LV7oFִRUx vurv1v
Lcv?'g	
bW[6K;#sCnV&vL6N_>
gcecc@ˠ?$`АPPPhh8x8XX8$dll,,\
b\|2|,,bZ2J*jj\"z&OL?ާ
39u0(c3GЄ
A@CB|@A@cÐ;c}M*Rd7q	çDMCK'&.!)%-#EM]CSK['$4,<"2*:9%5-=#3+Ҳ򊆟M-m}C#sK+;{Gon7C.pHHH$+4
39WXLѤ8
vK,xlJmD	K&ؿ˵
 B}
Npпr%T{5f3g%
ĉ.zMS?);Joׁ^%Gý.IɻuAh\;5j?A@kMw<ʻ_mBTvJP  HO*pzke[|œ
լTĠC	#Ҋ3Oc]|:R	,GQ,SuO!Ez_EKůOR?ZL?.1[dW^("	Ŷ	l3	?RL_f1k%*; Q"SP*Tr뇚
KjYMֿ3ۿLOt22
гf3ٿy0)f..b~cC#J!>Ja?Ky
7.evfzH
qzqF-o7oӧ/n6^3W`EB\t5ӅTK\g
c4'
i-tz7Fq/qwnjQێ999:-c˕V)HsAaMpO.NfN4~8l4&_=DӴyi`D;o
36al&V=[6 E]GCƏWE@ZgjC9r{8eTכʢ<(-7%	#0[$wokk1#P~NC]Dp~
^5Y3'u mf-vս%4Y8Q,x$umkrn^ 
ꎶmLrr-&op-!3V>LS "8a~АĉkK oԅjPm)_ٌ2B,6tgVu_1}I.~,-ʪ=*͂NDo{1鋲JҼ 3Qc\p3&$
y9}tDٲ$-(#j@ʬ!
w	z@L#ѷOȺ*n$h_3j+零2:R‡_CsSo:&cy;o5ST,yA-rFS"UPjRjb(S*exs'BE2'ubdt
aj\rF-+pg&^:wu!-{RO+nD	{[K=uMY{|
emXJBp>K5Zj1DȢ1r>L)>#\A ﺑr	Ɲ1P&|A,0]sGً~hEͥz*%4ǐek,{ʭ8]1Gוd}Z"}^ɘ(92~ Fӧ5]YUn3nH./C
p3Mf9?[cߘl.xM#:es8ZrNjCpCy
\xuu>h+9Z֝ɖ&-IS\`,X8Dkgތ>k&[T!iV9ԡDm͸mx|MCՇG8Oђ<{+1*x.U$m6Dh.mN;GCb)EazC;n'6%j,G^ugL)X
5Za5!L0켊69SוW5Kk۩lZ̲By-Pٸe}NE^^#yC `@RMt>`IokVO%ytzW[>6>×swz?[GO/<[dKqo! ּI},jc/=i%IsZ,_vs~cL^"
Us1(`rъg_:yj|wD\}wev,zHR.N{`eI	'kbz:FL
z(U/Jd}nIu	o
cSNM8w
DsT5:uHe=5%+=W)LFZ_ZEYܬ)j-HM
}/rIA~**x]\'hP9ü`jҖ
g	<B VG:d
qۋ’;=\G8*,`:LQ2^QoLd	wZeDS2w	R_Qa%̴m3*l	}l~AFmK6ZtK6t[g%g^QXCxdA*ac_!ު)Rz&k7\$o|Wy'!e'>arl?:FQ[NP~>3!Ɲh`nոlf7VFEnc5M}9#pi+gu߱Eо~Ԛ8MyNicƟ4AIE)^Jϥ:WWf(TDs
B{D,UN_YsPO.c1ԤNDžC?T65aFs*S~:5?\܊9oۻ*a$2,bۗzvˏˀ4@NWm>1Jdشa
!nBbnpNіİ*C]xŋLM]ixػkeTAp.8hHMn}]\(C̸.GkҸ\$ݡ}D8
.)̏@폐}"u_aﯓmqs?RS%DQ5dqPθSkjze
؆0ft	L0`
I-
s^T^ɤ@@HO4poaYr+S8ɳ&7VI
JU5)
{V3-_3D	K°~#i3Yo͞{e|*7>(ƈ5!4:U]0YĖ+~r~19?|-nkd`l[93\wE>0AZuouPb
6UKd+%M&-6TkLs	%un'G+B=گ f[r3w8R,}^;|pu8Y1sOtSv!u.>fCZC2kY9SG:]+ק~B'Y̭I ~OĽhWk#BيeiVdO'G^PsqYJb郷VS?rפI'oJW2ԜzbCVjZA7x߸0}˪ú%GJ}r4ȺKR#[e\BISvY^l\Z_֯drؔGO!BFcHnG_۱I? =kk*Kq"a(DڻT2O1+fesGZ%vLuI2z/O,>Jh XR>giȰ}mnZ4y@BG=8&PI@qj |˺\3^Yb *򉄳)8}C!R[iU0,<sCA<9*Nh#_}ظJ2U^ӸƄð>3>0I'UƆ=0?@@׫OAlc#E];rmVbYU5`zyNpw"Cԓ&w=0,yw5X==8-gOBZ<ѪZ2I x wGڒi,.O&S	^Rj;[`~3IN7\if/][|^Z[<=]p;d,x6-tyb:,{Nʶ%E	a*PlolT
,~ʱw[-bHV&TETx9Ǣ
kr,3+#v}߸?S&yBOh{GEb#f-Ww$D6!׏Л
T_5/]X#i\ƌjk^?ۈgSrQ.(}%ؖcTiX/hU,C8dzf">,[]EA@ؿwͳI?1%,Ml]c\>~d26G럅Wґ?jJi
Q
_ɨӱܒ0I\Ru/R8'߬j)Lu43~M橩	!-ǭҘϓ*LiFh>xz
+9.=ϑ?՟*sSmMK'iSO0+B>)vȸcɵacz,ʆ`NRJ>2;\mAAd>cTNo|e
CdP1A@ry,>J='?^վW65}05FsxF9U^x-a'(aށoB褠{ab!u/YNמku-#衘ſP$T?Fc_S>O\kIh*M+G2`!Npr%Oy
Ԍ:3$.Dn+̊}MPtvpϩg;8̸q~k@njUwJ{#X]zא`#t9yض$||3vNŅNѿ;V6մgc*čzh oZbx}=AɏRR7˔Gp"fA/ߡ9;]qwg$!VBޓw xI_L >0ҕ$}:A@>[x$qq1*x=FN[NR	ٺJ2'GMpRDM'dd醅oҭ--IcbhdaƦK9SΔ"E^}&l"`$PM^=nJK6>T%1zD.}׃V/YkgswkE>c"vHpEv$2&/k{x_!23w
(-bX?!zoMa[)^}V0V7(YX-#&&%<YA=
lH[dS0xŌll|.
Jh}m@s<`YM/r$wsnl02żkձħoH2M'*f
4vNx^N3rŶg!~B=*:[;%50  BiǻW!r2[LRF%OmWqn2*1!Xq-Anl2B_]}>o6*	~V7KgJ{!XVV){OXyh!?XpT$>b?d}U&kM*h%f.iH<2+Y6C+>Z	DNO7D=mYyLCXoa
a `P,BƅkgP
>vQ?X| _e%ëç'Ʃ:v.<
|G<1ۯ>64:;Bc8R7Ȯ
R}X+dli4\uXbofl`@3yڻ^$y_2?(,onWZ$֋1A
h#Lܒ8/x:A<0%#jĞ6=1{ِ$@҂]=vhmh,0NyIȈ#Qw^M![I1эT=^OWtX[Pf꓈^=}+:vl&ݙ"S#8_':e
0t*H:$2%bMHU[or͞nlڢPm~NW/tTOP;Z0YDB"|R5ѭ(L@U"J~a!#Ku@r_dh_KF-W''syZsvp  Iјqr1	m
=s4Ny!Ff1K4'>mOK4OYr{]LY
*bkhnO![kv:"OhE^mX%ck"|0&,SvhFUÚ<0"GRw	f8b€cu}2.w++
x9t㵨F5Y{u篴cIW8RBp	vYZ{_l:J8HC~aH>0N(LYllfXDrYV}}XbRJt+#vK0GZw&n5z|B7m9IKRrZ{rm56tҖkڙɾk!cl8ZW2j-hISv]T;gS֗K!dE0HXe/߱#/kns*}La7!xIie(؈d%^Vrs3.\=T]$Uz]}1MLL/_*  ((<0s:pH,ߠ_e@ыPTc1Ӡ.?-pm
v{klWn)@؋K6z}J
]NjЀ-L%\yGY\*s Pxjr5Iɞ_ښij'Nf]Xd0(9;QA
BJm<}rKf;c-)U՝́ $læn#npIhrH_Hʘܖ+Z̨XT
 tQ^fLV;Ȭk`}TkLg;;_ۿUTUcQA50fo\7M:i5sJoDG2?)"WTS`6aEqф­¥pwww­pݝkCvzkf{k%';b{/v8o~MamcK\yxU)l4]qK^[@UB"
W't˚hьJyAEEK*4>_BƛxQ1H,)^A7Hߒ_=^ƝfYƈw2"?@{0_0-v6%  ҃f5.ieg$a^;lo=GM8ꛊĕ^j%MPo[˼7ѱnYSn[s1RovK"r#>op
pc0szEp4G;@%z1 ]q,M`*wz!˹";$KҦU~н>w;RsFf~G}?yty
wFKKyC-Sjl;݃IW P,=j<3_WݏIO2=zx	(]姱\ko2@u93OlJ^!,}^	?𾳊Rv[F |,H
*˨1,zb;1W7B[+7]#VRq	FxD1fyY	dx
ԑ59;a4?Z϶]QQsI=d4kf.C;Y%;W)|6$41/hJg㛎.	l飳s&55^tyڧD*}~ȵ?ktDVeg o፼2c~~]ZxMq!EUYZM-{sy*hy~[G0w+G`z3>|%w`p{Q5o?Ogt'W /QOMk#n}pyx-}xhoÖ]e,h8'0iب҄OqSQoUpzq/;~@ȣ;m_ .;kk-v5˖'ÙmTh^H(P!5u5տ%[m8a鿜/	433]oyK?^٧Ϳo*އR%Wk?G='DsN!wzi\2zZzB1ֲE[adjG[r^Wb癟(3oqX]CrH)k=ף%rG:0װgꔢgX
w+}!j07+d5H`3Z@Bdh<7ݢu`G$o :M
ndf	EX3ImRsNS*{t)I
q&#`5)/n$&dݢɝ=žYeP48ZʠCE{RKXWc}}@7\7ID-Q/eR!t#-2otPO;z¶Y-ڿ\*zItSwmEWoޫcإuڒm3&p	V*) haL<}XKmE\4Z6j]ÏOpjR~5p?MZ{~+U1枣{ߗ/ܷ; #
=g4ܼ|7W!*5CrO+&oYYb}k̳b1_V$]ΈKd>o7/,czҲatęrny<8bV+XR.?
oԱr&K=M'^^[tSW-=mFFq;ͮ-?wH㳐Y`9#j_ե#T[ذ5!.7*jbnڧ#!?'9!h;2Q(niYvqy#C$K'd42I;#$
;:
c6MjN#$񁣿_<^>\G\
wP}U;Q.XdѣVp rG'trǦP'Y~e6B5Thp|	߁NAl+݇	|f"9ׇطgLRTеn!ט3מ.B`-B|p{Cߐ}vH6~?IIsQ
د3VkKMSU75Jl H,HюE3A`d۬,ߞWg}edNqgꖺ2#4Xω͉;vǪ$ͻo~w;j9ǽm$C+-NT]%'ð7s]7ϯxj-_0%?Bxu=ź"uLك21LRj}P{0}Zy`70qff&f6G~Ԃ=G>
^!p7pD~=-5X%X91hh|UPePEPyYiɏqQaA~^5@@@@@@@?(>.6`&`:@@˷G_}AwO./h]@(2td}G/!A1`JȄ\p:~DP~ן`DðÿP(Iai] `Ζ)
Gr:A~z}#D&	A&R'#U*0B.)F\<LQg:AH?
M"}j'qQCrUg=T#!棪qwnjÍ1rjvF!z:F9lӪe׋PU.lzTS=|e*?5?:%Zl-5hP
!eQl1f5OYۜ	ҎMVOi,_v9wԸVL|}kle?)yP`Htڭ[^xt܃|^qJm۫ٶ+ y_ʷFr~NѿQr3!L;$MߪŻAWxHaS;;\<3w؏[/]"ʄ	{Qj4V1BYvu}5贻jk^V$!NAT HJ16Y&I#F(gM%ǔoTi&!*
+)֮ʬFTW*$9*.*
nqMW;.C7$^BCX-ȐCR:}֩W(D^
^X2Gt$G^%!*y_D4^mٜ1J@-i:͜;',bNH?4WmTVx"j\)f4'w.dcl!q2m!FBjzj<1e6?9븏x˱"ٽxzg
Z*Uʁ*k)Yo҈ՖsKA1K2™C{U~6},Ĥg .ʘBfm\!mʔcbm1L6I^*_AbYJVZ/ !V/„R$VYC#T˫٥"oHi;O^7v1RM~GmL%gN,4anL"g-PnX7O84fnsPMHh:^(vnhhTJiJk]'
9d_)1
*V8$WYdSgNi
@n̿0MfuQy0D<3ļv/aB܌h^EP
i_Ū2V:ߕݢFB\choFbp+_\"Tpˋ8̘efQoƪ;h~ke~)BյP|^DDd9ʉñmcݔߡ\|q
njgûNBݣƱ
ª`cX=z*se(1i|@n֟VБo[(
0Bd/AS>Bf䬟0rzTySZYYs|?Ҡ9C0p>"_Fҵ)DtۺtUsQ54{Rϝ0Q<ʃ$ZB%XhiMcVT.WXWSVqTcc#1&D6üJJð%nӼpۊ|3)ӟZ3:,qC3mgQZ;B7zOkƛkmy;ܭvIz欻QQ.;H_fY>U&*yp@PIn&c>_Y52#83;[ɂp|.5J%grm&u[srAî_TGgʼ2{n7Ҩ3c#V 3g F [ cƐh$ER_Z.uY:+AQ{һF#-X-Xg5X1+Đ3X#-&ƛ<ķr`-4>DLt4#ԷJWaaGȻ۷MCd%0pcuus?Lo@%SBu/L[ꍮj- J#2Mʈ2
TaѴըǨb1I!eմ0ӥ(C-X8è`_Cp}!~7oF2R$BW[`d@1gl%A_ZX@Y8@ArOU^XA@c^܀@@$@ߠ(9t(
=uk)~9
.L8NjޠUXA@b^\YP%A_Z@@@8@@2ૌ0`BEG06ǰkkw'
`:q:K:zWqR\kI-qJƟ55L0ג[⿷h'XpR>J5S/\hT-o}hFFی¦qp҇q'ƨʦ:&8)Z'&)	uO[9sr5"rSrm^C1[̭Z1B8V]U|tA7_qF^wX%
Q
=j\ؙ>S=R-D342 k1zаWr©}‰.,H)o.RVSRlH;]9z\.Xb^:r#vļ:GXCKţwC944e=PVaCkIL#R_J^lav]VaYV/]QXYQST]*Qw(ƩX58C_V*9d<4p5JDFHJKkcI_F(Yhq;Tf
AB;eT*_g µ]ݞVvjY0s4st1zQ}qaq݅L8zom<qxAtc|meho$Sۈw
ʎ(U4(9HWs_GS*Db@Y]T
F7Ysź.0Njŧ_SͨS-ȷsPS8z]ՓS7c
ѱN&"ckռFT_ة*]\|5 S
e	dB:B*`tpklMt6m{
ߨt_o:T=+s)<ԴP)u3Q?y&+Fpz48dԻ@]8Pxݤ-.FzS32%?E)^eL6iEP4z0H8wSVw9zaEt㴂pS{^:FDt>{=.=YxX*g;gEzߔچLmj:A7_9O6aj׸ҷ÷P3׶0s2s	.sIƀ+l\l`O{40OLXl^N5o_1t_Kύω*kخٹ|wd{o$wou^|of/`;<lldc4/oBl ov0+^>i)A)m+A$3朏dhP.D5\/R|/MT8v*t<0rH_PCb
Jry3
?U?̂GSϼ[2jW\~)PH?<*B` gz0Ep$:4}|>EsI?qp(4E(plPVBrQ#b8*	`Eu'ߪn
rq5(M#l2OCL6%{\ 댣ӯN^EG\g1/bwiKaؒ2^C34ZbBY-"ZۄE7u/A6ӆ0(m°r/:Ltip7yݮF-uQ\"v.MT{t 1FA5N0|;[hȜ(
Ѣb7W4^msWLz%9?벯ЋHM?#_&-a#(2&
&q꒤&w^]\߯:IM#)~IR)y#8#-Ü$D4:ORb'C\EpjffaRر\e@V&
	2`~MèUL3_fq*Y{`x*OEzW2	-ܷN;5
yEiI֩ez7SPKhzTS|kr[l|.QKnFoM5{Y7WF?V\mϲ9:ml3uMvՅ<ꇪybC^&ΕDoDng89X^*\G!U,/}}'"*`ٕn.(ld)an9̑uSTSg*ٷAڐCN!RrTHkc(#RY7ѷtQP5a8'O߸dj
^ѩ8բf9-l(yE$z~U)/f_K&hR%g1UrK+U9_c\{%0[C(Y(9BNssNpP beZ3oקoQ~fjٷzQ8Q/ɓzWvRCMPt[H^L-}V-+.QWdZ%옋ΕX)qQ$:cy-t6'%+cĩ"Ԁc`[4|bu2
z55POXM.f4mb)͆VKKcTz&{[qV*1ө^Пԟ
Xʃxqivp&0rDsǮ56T~eʘ9tNE֮䛥P	Wюp(+{9d5z:5b^PsǮɽOX6K@eq39O1Jkxؾ]wTͧ*!6tn/s}וB}_)Ot[bҕ
{UE/
g=xR'Tr^/_>-jzCR/t
~AC@#-<%M%\`WݺeWc,؀ܗ(Mշ@pCh\4 /՟}# <(\\16D*t&"$Q$"?5$B'}+Gɹ9 嘞$1d 'IFXw.trLi/آ_$`݅ňXƺJd	ŝ.H")L;
h7a
AS
C`KVuy@+Y
bkd9
vjY[i
1NE	Əhy	[Ѫ]h%6
R^d%ƹlGę%nGF6Ƌ{;a4FF-F܎dHMY%aK3u&5Jď[f4IYIAJ⯍
(/*)>\Rf OlTqšh+U4<]g[{b]f"kq
ePyeOk|g{-ԁݵl6,"/ܲ붧qq5@'va̚;wIZvZѭgM>scʶsb/O /~e/HG'u
%QhLxٙ();G%O1B44H[mpKD
KbEu`hkugwbck
zWx+إx!A[bJJ
6ȭJ'L~RjqSETJ+?X~DSe<p[vc<.Z?C!q!j2ITŴ_Gl
IgR=g,iU\ő.B7T'r!ZQs{3hiz	]Yk)v]g
1M'xJ p	rx=۾w4>BcBg'8uv/pYe#Л>)[H?%yV
"Zm	}K!GW}a}B
6eZ3ϐՇr/4|/Z^m^s~~v~}[p?AۡA$y{D4A?T0>d
d-H4ts-'TGٿ {)#\2'L5x5բ I^D(%v;.(O.,H(x.M<+./TYjsV5؟QYߏ#7~v8+!.zu⢵ugAEfas%Q	5=[p5뙇ݎaE="+@k-]VusgZ^?x( ŜC%v1CRű~3-X
׈w;,4/y;/'5 &cÆuO˶",MsQͶ%ػnzqa?Bԃ9c-pM/ս+hH ɳ>a-,~1%(Y7
Wpqp`e~D $כڀaqڿ"|Wjct;蹣1٫[uaёz5Sl?eV]`-;ogǾ~xt0H
v/H.Ay;f”hL0늡D(Xu^ʟ"1Q#{>]y%!
!]	3yU&9-rk*4JwMd
qrY>ޚ \\`OhJQpy-b0Y:,C4)PK*[:_,+WtNQ^к.S|W
iT.JFdY'wC.xoe}vUO:prFPLEmy9!|yq઺?ZS“S֌``̃#ƨ5*lzO'l[P5@L:𭕐ZmM6?Zߚͺ[Vm딛!W<#im&7]ͫv!!ZqIYRT?\5Aa6򍾵es#ac|*NSaSeC+O?ba8\jzV#.#RJG"m%OԠ͠Ӹ&l`b⪑dN/E]=6Ȕdb32_eXb`z=e'[Np}9ۅv]V€Jй*e_0"h+Wjonѐi*lFW.AIVi9D몰UR--)9V
HwήÕ@)"/<-]PM5@ɃjL
&x*)yK9MOtť|fcjmc|*
rr.{3U.CπJ*}og.
S67Ͽ oCߖN9ȝˉlrj#mA?rI;''.hD̼/VB>-f]׾_[\n~Fv-f~~{~&ɮ#ȏąCm[݈Ƞr4qZhWn,r衹p"
y/3c{2c:Q%Oaks^]eRY%5\I(uBCHMBDB,HWCCH8C9C]4HL1L40r5"ϫёPxA0eR
,H,P9ۇ㵆iqBFF;yE$E`Fcx}].2M&,X}7̝9"'5eb-. 7/$ZCe!WVtFjX!zQc~\|GR"Y[>N:tBHލq^V.w2,N)jFuyGIs2W"5-w/Ns\6nFr^QIW!-4Iw1={o9]Bfo-HtV"|ry";9#"Ǵo*/{Fص$.Dg|1hveVgfڧf6X
H؀ʨvVo.EQ"	>ŧEE%Eeot(;
ۘ8:/O22l;K/8ѿcbs32&vSRFs[Z}Rrr*::==Vz:--2{{33{bc]Z33'![SSG+*{K7Jbc{ml

fo<<򭬂f[Z>Z5-/\U54ѱյ}pp>ie694`TZ_Դטݒ>28ؓ;=ۛ=Ydm>PS>\PV6X_T
̜JOHMIN)+[HL-70)ll\ޏYPne{jZP0ko7]QQ_WjeݽTkbӳP3W55>~K))#IIC		mm߿l$'7	~+,/}}KZ[VGG23GӇ--Wj\\;;Ս+}}ssg*+ǪSӛKJffbc{Z[

&&&6J'SS?d~aaq5'g.,+k2uthhmn4pbb/&iã}v%kFXvvxxeJPwNPPQPQ1*.ѱյ~0
EbXnoB"flDJ
TF,ƒLNͱҙ\aBDjRBl报JF˭ʕZ|vj
݉Vl֚NӭڝO_eLJs"DGHdrd~MXmO7D~h:Y(S\_[ĭ͑lhs<۞|Xɦ_hMџq#^:VvqTvL"܋1^컪}M6PAPqFAHGD~'04WSZ7?>	aпGKv`[֤h}=*n3F:!$e?!u}7/?x=r:OTT?եaĨԦ"&
n%ź@,韁`ƽq`0 Ś(v{K9(颈$sb=!`%qcC7	GйcIˇB*"YQM0裸-o'!ZPa*3N*QT_N\,&mg-
P.!t$(͜Ӈa:/3AkݚЏOPȣd)Ǧd(0¥!5B8f^"*xn4̞ꚴN\o;kt?\U‚OB}y˸L1D6}$ɗ{hƴongYŜ2Iey]U;MN$8?DIG((/5D
Cs<.КFJ:R.F&8VRbUً(D#_`20xN$L FA^bR"oQoOPudA2ˆ1nCH^J`I˜}u~\W'w5h؝>`ʑL*[i=pUBlއV!揵`?!fӏ$mG"aЏLL>OBxq /Q 	ЧjPL;
@C+S0jjsӭC	HSqQ}mHYؠG!BP>LϘ`iI9:ߐ+Ĩ'Cc~`:4/-APb G&|BsSxi*Jҵ3"Si	\gBkmYon?O#GEh;l+3޻7;-3i	ۋǗ<=S.ޏJKwvX~~~Pn~0i~pm~~H~XhnXn_%ܥ~BpjPa^/A_kyW9D5a\>߷HJ`+sj13/&Gn՗(쓶[yZe[jժ1L.eVXmZG[jdc0o#7Јհ/Fa+aŸ
ós	¶p@4t洈b6ȆHVȂLjLj^(oQaA1	Ai)nieX,QQ{mn15mћu1nm|;m$bbOD!$WCcc54({`b/)cc0cb>Ecas&ПS%GsŖ'@UE!?!²vGGc'tT'e1'Ia1I䚱J1c	#XQQXDZn)\A#n,IAnn	,kI1ORb4Hz%HaqZ0`qiJ{<ؗ9<&ީJaGeEPTR%I%J%sՕE6gPe&Rehakf=gPz'=eiўDQeUI%d%i=ePZ='NSepRftcMKNKprݳ2sXӯ'g&Jsb%S(z26-r=RO!Sb5[̟~cGys#k$	fIwV$IjP‰;
_(ցs&JͷVlQbQ`jg$J-Qd]Uƫ^rRղ,#-OT=̄,,4E²'IT,=5
InE48hKͳVȕwTd-T]g5pm@Mio8gZMUUSUaqQT"}ڴ'Яմ4iܼT9V7]<]gn=Rc\:RJ^
+#x]LqY=(Y]f/UU=2- $ͮbPT*OyŃT]x/lzm:8B6lwkMio76	zIE\ETa4ɳ/VS[:Dzs^-
-]3w1]T?&F*kq!co^Z@h]k:l]<cʢ~:?PG?\WzGVn/;Q9[9=eׂ~`z(SC"XNGsqcz=f*(m&N&b|Ӣdf,"a#d;^PkO&Dd8:Zof5kkҶeI׽T@~筍o9<{q8~:H=>1I~(Pwkby!0r~fSޥb2)\y"ܡZ&!a=)tNij[wm
Z9k߈h4CozcQߥSz_@)Ι:*¯H=ؖYԌ52fg	?Տ]`'Ƒ@]KvE(|RNtoH"DF9x{ك9󾭳}4{XM%~i=}70[k97GHJAY9OkYkCv~LjQ=Tu?%~y~/CRHBGoq~MzI]RyxFy٤B 9"p4{w;wF`)8u;jwbQP)%%v255\w:1Z{_`[@2L.G4]t
n"'SgqU&"$Yic2kvźn'=ݾ|/CS.%**Ǽަ9|eJӹ9c:+/8]sсwm:?G~j}4X"^US,157lu0< "AgM^jVl 5U&'Y;(ؤ
{e,0F>!.īdk=haPS6xY@c/#R/ki ǵ6'Qn=ez۩#kI4"4k
mA\ؤ\}THAS,v"㾲1ŭ)*bzG_SNSٳF]rE'։Sxͪ&կ<llb$zE!dC0S׊n@#<,̐qy'Kܻ4B~ZrPu5X])v%iŒr=ntMMU3^_;7м\PPqTOn9<輵8V]J۾;mk%'aYY;mU#	aʼ3:B,ldyly24JG=LJm{ޡx+yy.=GByc]
^5g쒮>c_X̪u9tbZqtϑLua>@v09P?Wڽ{^2vg`r^;7s؉6ԾW5ouO)raHnp\[O}K:d+Y S
4"͖vZ\5>=cA˨,*V;xOn`%ĉ7k~a,s3fQC]K6iV->x7a`06%+9
nZZSiiœO9%`0)#v7A`f"ఆ3S$l./Nǰꁕ7ץ=0+ݼp1IA##|>A$vJ
XSRhpf%jPoã!R!hRvIh_eFڔ]`~90hWXj&Hə&/u}K&6iߘjL&e!o2A80BiDec(%."juIyE[ERb
iETѢw5

߹ZtW`32P_(>]a]r@|w,fj}w62g,l/=+Y4d92ƨnT|46i=uP*rulbJ)rcIJFQURఇRrCy3ґ?c$\=g1DpzJ~CrХchVr叁
vyob4N':`Ơi6z˱׈涍CR=Ӊ.h]D}qo2J?PRm:P]^UM<g(;R/k#A?s%KĻVNW?GBk+#Hp=asmѕEm݌N78꬟#"_{gQ2iD_W]pjYK+*Ndkݝ!xGRRPp(X6SH2M@K-",AF	.\]^EhJo2R
ŹDίj>Uu\jUe
(#p߮զBGVܫd,FnEsR1Of]Ot,>ԩ_j(d|B+3=9F"#Hb0vSt01
yBѫ
/Ke-8o
Zf~ǫ3VSM1De5Xw;C!-ۺplZx6_TX1O;$8N
{-lNҩ؀$8ؓuш} IʒN+$Uُ+QD\L44NҮ$79ꫀm|
UJeI'_40T1S6I7QX`E&Ǩ&y'H
AM-<=d_/Q'h'&?ȂiO-Ȍܶ.N~ʜ$"1[
@{S|ěy	*3MZOW:K}ԝaY`gYx+z\5
/.rKB߫/yQwO~wRHMǪ}BA?u%>$w@:*j5 qC[YFTŮW.v:191$
f}%wS=Yh̨:I)nnc_!kZu"lQvh
 ]3wR9Mn׿\8oxKB[Y __uZvdU*=ST5w73Ռ#, .ͻȮDU8xO%eoyȉHxyM&6e8}[eB%-%lT,7ؐXNRhB
RnQE,oYCT^bKu8%u	R6Z\-RpXVVOR;P(,X;fm9+
ߊ܊Ɋ͈:#[O2mJ $
j\[߲Fhj]*F>HsOQn&~|wp0񴷟/*]+<uTV!@ZWJ6M+s$No~;ϵNL"ںj~qg!UBұO*biFjwJIKS{]~C3Adò6\tOre^(ngESo:煰%=D5Huߘ$̉9!i}ޱ=ھ6U-J?&d3KqQ)24RSqKlk[ߛb<2ٔ|>Q%ICmfQ	=ZtՑͧ-EDcIozoT¶!t~S q1wD([);C
.w@~IeƬXc+,w'Oß_@b푙Q쑥|7_!kأޣ]ޣ;ܣcgg"7bѠ.&f>ZzUWCWepx[~_ܘ'eYnߋ@XdC@@f@v@@@C|"Zcd}U_LR>"Jlā/_oyzP}946=4u1]<4K9(1	?>^>TJ@@62]{kb1$*2W>jN(LF,/
dڙجaF8ۋ.ظO&G,QQXP^>	G]]=+kKTf``T:5em	/'g\*]3EvV{R /pD"FF~mmtNKj&N3=!لnɀXG"128_!ۋ.>>\\O&S.߿P-=}B:9yPuYقS
"~BBG^^*'0\TPtHF411b1VV!XJe͂j1e1d`	Q\>!`geMc6ePYFX5TچXRg*Tjw?w^Q;kÝ78
1Qh.+) kW;]Q՚aoc#7yp]L7Ӽ[Nz/ַsM6˜-{a<WC>+7RA״}[i3͗_~xSl87%=e74A(?P_g%fI[5Ѻdthۛ~
U`}Oy[?ah{vf]e_(Qf)hUgt9*BNxE3cɃ3*ᴏOI1
,೿)!@I/
aU.j2/G	cj_&Oֶ`rV~̟ۡeCKq:
`NmŢ\{цb#.(tJa&<.z`~:VB>їQqj,xORZ
qNxRr{ёI3f,d%V`pbˆA!}\c
#*KrI&̜Y;&.
2gOٮ#&7MQpsU$NA>"CHOף03׆Kz,!rI+7!E
T+f;.9P%MT]bA9Kc, _6X2TFZI%}}[
eNaoȴ/J!N<}K)|
<(wVu?TN^X4V2J!qIjjlfj8e2Ms{ՒrgX(".	#F#t"BQ|4L9O_B齔F3DaQ[E%a,&r+F>F(ׅEihٳ2uê$%Ё$F#lELQn~i3X~)8$#äZZn!7v/ YY2'Ȑ,Z8@97i-JT	A~`{g
GIueC7+Ɉ'ͷb xpOD(2 H$ @8ΣJu OFܢrLgij5}1]BB>tՠrU1݀/}?>v
.<[?n?ZBCQ&L#h!MWeod5nvQ&yؽ^qu"BI[1T2kUFL*Je,xeљUHy94Y{LZ)Q4y?:#!\^p\AwS
ӵ˷FB\?odw[Dć}hh@Ś{Z덧i#yٞyDQ%>¢Wdө{wv}B8}kEeAҲbN!01bGNw\OڷbVAB$GUA2pd?}k69Qcͣ)&ްw-;めt)Ոt_{>IQ!G/ݫ?NcpW1|8ںc( ;gn@7-3G]]e^w	,%D=Vc1{T|@pZΏLX~DUOgq}V
ޝݼrc@=D=>_k#8)wljdӟ'+Qz8#A6@]Xd??:LiH~(J9v_Z\ۂnѐ~ɘ>Seqb	ypb`V}By[uj=VMF'?_SP?Za!Xo4iaAna1\!	0яa)e\t!rF!G>i!zuiuuU9'?6Xz!iD2w!6u1wJENE\{xAG|ڊ*bՌb|
3R,",	˼NTEp9o}v8%e%zZ%h8Neԥa%t%cT8EYܥe	Z娧QljyRpF2rEe%UeiyIϕ=]p%ZjeUpV585dҕ ̀JGGV\oJB(ZfڛUK
:*_N,@ZU8s55ܭehUpuㅮUZ圧"z=Iy
J+"k*p6؝!o4j>V8pNLhUEe[6WCTMte|ҙE{apjU4S(Vq:	DLz1S*fu[{l:Ϲ`_1g7Ml,>nUwXͫXƅFF:GHfYL-GXZX/f"̒mu[P\,anZl4Jɷ"H1q:Z)\&[%V>K;Mӧʵѕl8ߴtꄲƸ999aGGyXbta.ӭz!ɭX
d1,-1&zD[gUۏ;SW+z7qKg#Ԫ]#7\,O_M
mC QAt|A@QJ44(ɟ:wъwկee^xf:w_
shn'M|q˹OQ
\Ix1w|Jyh*ج3"
nWȈ9%뤠wFI~͸9%}sO"於98がw3J?V3?m0s#?շռ>ܻIcKsx%I.4UI{g$OvqcQg[za{o-l/E^-9t|g몧ϚO1};ɶ@ˢewN5ۉڷ|U}GK^TޙslGnj.JUdݲk56]}9͎}9e2f.?7g=z}ƮwfFC;g\F ~?s:Mk}oJ_Q:wmOlfޮL׳3R[JEm>m}kWr=V{杝W7L`lU5󜇻)C{{#NiTהI;ZS.w`9=1fѡ
;yݴuբ-&5L\z-p*w'!Vsyw@3ɣ{c~29o7M萄l2z.
xǶbl?(88)Uy٬-3y⸲kwo^ocnk9zdXm~xx]е;#qa]9Ձ;j~9z/?2,:mGkb4zxفFuJVu\mV.$pȵC?,V8턄Qkr6$68f?u["6E_:n^8t]3wͅozM;o7S:1I9K,[Pdf=WoZy?zg>9ki?JeB
JX1ˣZ
#뒼iUNz^Yeұ٬ފ$%
*2*qnkJ_y\Nbz[e$	4{v1杤6Q^c"9ċkL~{cw\zΡ_4޷O㇌0pM\zTǴ~1*g^sa?=ks1uC֣Nla[GLsM`;6ۇfݳjDu236`e˃}]d?0m[
,1;Z?=K3Hn*3d}`s[':ix (޽[cnoٙ^;^~^RWô|}a717e+wn@>ރOkOvyAS}36߱Fp+$aH_7&vm}&箻{s0p=#!ޝUX=c{xGNִ5-,jA3.D{QP]~)g_񩝩цJ#ʻX,l
]=3'.rg7?!sˮq?̙5c'NuA0$#z#:Ur$97df*d6Yn~1 %zsJ}$)4Z:Ҋ';ޙ8) pӦG/3?=xƎc"Kh#]cbbߖf*QsFךGZeҭ{ǘJ/=jT%T-Vcǚ#_{1~'	EFi.M/4}qGNѫnT%Ngzl\xn[&Ә%%S*5b2)'i'Z;
[OJ0>;/=hAz+Ëjx8Mt[䚳¸-:6aI@TE3isCƧӟ4sXICNLxGúˑyf(IF(A?[Bb/0vwltt|Yv;63|qmأc
$7
Sfuʎfo}+1c-2ߕ`q25r,ZS9}M]Cw}^r6}+.l7)S|眚00cМϯ'vsfu=h`7qA:f{}8d2j遮ю4Bm;t2>柨ex(\c!gΨ)~xSv"PѠ\{vb7[(%kĸ6FܤS+-_=}=]O;rT1&n۹Ꞇ˾w׆'i?к`:QtVN@?n׵^;_萤tu*pAw[ϹItaaC
F{eJ.J93qk;ʏL^W02~wo\TL[xnEa'YNc~OԀؼgfGcrI/^u7gϬsBVSMw_I,/hQ3mfg׫9#k&[6
YLSޣ糧L7o7X56^RqDюV\~w_ޯjERW/ɹaF-'٩"L+huIs҆?np,ΙG
%.gL4x^3_s?NͺTwvM+&v㓹s9w/z8t[|<,}~*Ʉn8{@`uϬݝ+
[r?8[s佼z=&Y-ï8u?^1ų]97+:g'-=Ʈ6v9]7;RfW~9Or[(yzgssخEklta5>]?JQqVm^LZ`as'h?2a׻otx傥e[cF|K;=v`cuzp[w[}lvH_3rԇoO۫uXə#Vb;rLO?U`8euc"nj(}̰٘ppbΜv{Sڎf2r-58ݛZ1ݪoJL+8Ź;
[Y0v(W\w|bDrKFԹmN_\4}FަS(hr0#K.;e=y=14D=䍕RIݴ#C|MG8SỏYGs:yMǬJٸ-<춞9$/HĹku[ecfd&*	9KţٰDOQY;eu5un;5vt˻WYyN\cNft6׆9=x	ny5NȰ1AB׽sr<׶~\݃\wN$o<0Ծ>_$sp8f'y]D3KQ	I	fαiSaqō
8u(,1ZXѻׄI+֟gGHX+k
lM]K/}骇룒ꗧme>6&{9N7MUfm^t73&_r&nc'i;ywyG!YiªF7Νc~|fEe
^gPhYQ-M&obsѻ͍6C9']pw6W29^L=YDާ󟆿Y4;kR-ZS͍43
zkI,?Dm+ڢ#f7KՑgo13gg_Qo_-pa`'Ը
8ly]҄B24?r͜8;e]vQ(7s
_qnI3s=5;vO3NO{Pui	'w/K_|FųK?d K-ѡ}dQD5sTcJ\+,\~ySImi/1cW:xݤzoU[!03ѦA:Wi_^M{"vEo)FO
i:3=NͱMI	r5Ц%G}py	g
/9s; DŗOG7={K;*f:ce_G㝶9U-U2*;4N+'s,*oaLf~$Gvˢ/w2v_a@[xGrXfW}Њï01?WvwO뺗ܱJ6zk߾[ao3M[68f]_#`Qs_tۻ֟+YbِZi&[eÉ9iE]Jv>}߅A-G.M$Lz?-Iև߶J?wĪv|<;)?@ޟJNnR{yo?&VcGѲk}8+M4.ȴn{n"?Uuh}/ƌl!W^=±=(	dn-UkoN}7^tb̜-[_<ܣ)}gcNZ(&({8N6-L?$3yn떻btemXyMDz~nw
c|II	8yR~dKq15:kmt6غߟPvI?|pʁe<+pT؂-zfNtnVz۵.܃Aő.N9[Ws;čz7_TgD.?Q(NgC.On8"괦/nH$|9܋X]]%}{3|Oo`:l]Vb|~uiF;i=L^bѭU|Kt()l\Q-&Vֱ
GgzfkR^hCكfOIXXRbzڨ3
VndoKػ'}tiurirˇ??\@˾zchCumw]9c}<~:;r}ͣ,_ucgյdגhXm06͘
lq.74w/u@=4
YAY&+ؽd^Nor	;{)z?!Fr-כT9/4ZssWZާtph
Si>,y9NkAsX&]hU&>X|0yr]=QG?ᔭ1iq˟h;Zf{-:oҸEsƝhw6+kt5}Й1t\wSWί/<{W<h!+;ōuZޛe1߹N35w{7tXS
L/Hh35;o7~NroX`\-N1~q=z9U4&ZUVMbh>wn00
/Ypxuߢ5wiY
͋ݎi>;$YSpNQ>4ŽCҚ4s%5!CX.єyh
=r'yp7-Hw|M!|V#/4<\9˓4(e/LKXrсosZ:ZP՞җCj++5.mdJWR}touK֚];
^Ț;ןmrhKl^EE7r*ƎbACZ"Gy^xm'c1v:ѻ^;uXy:_o]#!{l\EѻuvK~uN&ThD~\q7w+TDZ焸5ѡ#.p^ja_h&[Ǒ%a=8@cLߞu|SN͡Ǵ׿^nQ)4F tki'jjZ"RONtl™Ǔ;TG/pvt%YkY!E_21uT̀1iKG]
KZ>̼.<8sZ%Y]aWBM\d<ÆL}x=nƝ77i	AaG_S1	a)7
	+s,w4wt{ ѱq)-1/mײ޼oߢջ}WW{Ӱ")6hޕ^I19uBcA}Kw-I+GiY e᫟vHӆjGZr_no=V}{+SޘuD
i;ܯ{XhJi\/\|ߗv:%nQ%AVig%#皾/l};Kcd׹eHOjo%OWE7Oj/.<5I;o=ճ~wީaW{2b0f>E:yw\~R5zvDzb0vlGKQFF$##\oK}2Ft~?9#tz?H:oL58iYtt$Mli(Cu
^qݦ(s}0G79F`5]Rt&~|'$W/R4f0aIJw?56=Qӽ5|o'f{#0
I5wxKx
B^u<_n4i*ht(:Ta:QxaO~O<3?qK;	2lٳpytQ#<\|xʁ##"/UG
Qje+#̎	<r"7.
}f7.]r/~<5]c{Ӵڕ-xJճ֤|^6i	u"pX_yj'6(g
}BC}yMC~K]CM
Ԭ2-w̷ݹͨ.Z#k\ej/s}ܲP)r&܏ۉE=iW~s~E٩1sO|7=\uoiW{M4;n"=i'm甚zGcO'~-ZہK/J~>@VD״D|]a˾dٳ'̎i^1i-2-|nډk7'e[qdIZQfϚ.|XpQ#⚯6pvė4N%-풺Ո9:u=3<f\vX/R~]by͆9n>XX9ꐰ#=~șdc瞋Ⱦ](֒]dIV?,Ļd#k{HbeN\VYK{B|'f=5^ޙUoކgeg
[j
Җj3דOqV>_Pos6o^~g!^o|&N+a't18t/Yvm]&ܴpgצ!?8{y͚NM}ybɯ6uK#ВFTE8G˄|®/!Wǚ~%HZû,/-
ȎP@,õm"/hM0tLNXHЉt@FbtN4vq)ASߖ۟__Oo_L
/`3 2B|Hzr>ǒF
EMpK.eB	)dR=%-.spfDT9j7pU/<g!$b@qB(dE` 
`I0~+%
05lŸ6GF~	yPp+t1R?8ʿI;71|40,0,BXH?KFO̊Hm!̈́Xx.+RynFK~DC#Ӊ&Ƃb#0`(y|Xå|z6<30-1	px"1M34h*(GNgbX3HL@ZwJfߴ~Ύ>>0w[[gG/y=r<%p9G)sqx5݉GLxa_8DAXEJ]EɅ=p	Y:1kp IleL& U!E6KFzӂ\Í;Z<(0:{Lj{]{ļݰg8)u	-u}R (B{i?K1:A[pA'ΑJm[0u-嶶{{At-G;jY7
uN7&C!5; ڊ@`E=::"AJ%ڈFJ4`ϭpzoHЙ0B:zY:@$zYZ[
f;V
D$mLɅ:50R.z/jv?m*
r:T=V*~zQ_dg	dL\(?c?i3k#6
kbu|FLC̉/b	=64+xpu?|\|m|x8JSY".[,#u%[BTfGY;؂}:us)ו+%@==|=|((F˭2$]:Ց5=WF\Z /j]#=r5v0;g{O7O/kF017WłlK|g4.]EraN` Ӭb4؛b2HE0]]4usq揋Tԇt/H4={OG+=;7O{>tF6V:e2cyRmgiB#
ZB#SЖf00Ӑ1Lk/g	+-x8FtJCc_4T]}cțA"c8F0 rW䄖ab)F@0ԅIQ@ N*1V8/`xqR\@p,
I**Һ~+0H5H8K`
.ĔbZANŤ,0?!
ErEh?=!ck%PB؍:6.qsoК1s$hJW̓$e2,Dpao"AZl7GN,Fe`b6TcNaC 0+ψ_/-H(- :Fi0OlV3)
PR>YUi	DI
%C&&
\RkLf2$O,D5h9,9ACt9]G\)R)T|_c`
*i%.a@$V[H;Lj
8G&Sh곞'ӱHBD[al6
N_.
JP|@3KmFpL	ȅ;i%郺kZyRm imL9^mIHIvJtHq,)P}J@B 0I{f'S1
!,hiJjҺAlJQ"ίC#Qx$$$cAnT8/טDԪdJ h4d^qb_8U3HDeHMg0:n"m0G'Ā\,2O$a-T5YQ29b,i2W`^r4k`6e	4T2;R寶
!~kF!m冠!JG!unB+Lny#p8'SIn&n"BFg !8	.ƃlFt0ڤNn0H!B4>IFbđ::SS 6tFyBv`L@,t5ZQ%jmxR"FmLj(X2م[H
>@vSFmlEhD
\@ŧ}7\*ͩ6`N""al>VGp4Wk\ɓBJ pfr2=@P-SX!@z}!FzG %vIl.&+1&v[MmD~h/8L0JזZ%BwZUB7"钁P\$`E\\ϚYŤh~jk}dY~ZWS@09ƥIѷv$ejLQUV
mER02>B~2	0eTNǂv2_9}_3­϶brE%,w`@SxC*ȐLj#X^> 0qRX*'SF"-j)aICe-qT	$ZAΓa<貑
|׆Ppu^t0
&*UrJRn2V9UZr'$`
90J0&9<;Š~ղѪQ2Q7d
6	v@Z9P9D@rNw6Λ*,F,zCOpBe|
Z9
$OV@nZ٠!ZgJ}qxܶYj֡-nPgl`}x{Cf3	7RN4bw򶖬@RFe'T7ZJ_?	qj`Q\&6XCܤCBMZv[CbI/p*])kq[ O
`/#BWi`B$QFPuO]#]L-k|nטOe~!s8kC0+TkCD]#Na@A-X\%b5]	}H#_J6t<ŷCpt"4PQ.66cn9A."ABo
>.BHbQ
.U(% GƤch_E1
(`@}{RhOG.XR"1iYAF("ҽ4*eXx
VM"hHT/U)KpUmo.
0A!͎$rU9"Ȑ/d>$-qL	eиBKp1T-D'l"coH-^LVTgPgQ(ǒ\BO<1'L9p2t,>D,U)Vzl2¶A$b@Jh0X`F|)
|Ҁ Ȗ#WsRZMp$EKT;uBaL,%9lk""n
Hr@SaDL-"tu<F\& ʥ
VI2aJ
4#%cp >!@tpQC!!m4fz Ȑ% FR!{ g	0/CIz摥J!2$֎pBXHHq
<Ag`Ǡ_.1ê(5<R@ڦ?&J"2(5`6V|a&r~?WS"_ytC9_X8r#,haK	(@CD^Vl
PB_@	k&0_a?p@݅J!_D5se(+IXWCY,%AxPuFftk`B
GD"nD(@HD11;
0ډPQB@A.<	W
i@x7ejBqULPnȃ`4`r&+G"*D wB\΀
*;:L`~RcR6\#D,`P"Q9U'*
Q@fSдHkK!AZH~AR\>kR U?(
Ց`*Q~Jas|NL|s_R
q$EzKS`0S00B*FvcI}L2Q˂f BaI%T	vA!o%L`ҶJZiߡ,jh&ATyFZ:S	._$Qj3nOo3ul +=HVG0PG@(i	>)]VDږ`XkŠ(@Ma=)LH;	G,ᓖ%1BDCBb!!#xF(!.(I](Ct$`R>¥R&da#'2/ I4tF\ AvppՅ*a)j&,.4d\e&"U+(iTU{h%-3j.%u"(x`,)	+T, ͙?+4E@r"-[Xdq)MIT!#Vtbt%+BfJl.=(KC~(eg TFX=_?Bpb-Z/`ZB4Ue [	qf@QP#!JA Fr-JZJDaHAo&dox&/)F.aPbqBB}T`B%@
5|M@u.	xA
B
p\8j`9_\
	X"KD+`9b8K;EgbghJ
94Y`t PKŒ1X<'J:a^\@s/<|TSBԒ:QG($.AAˎKx7NCΗBLjΙZ,7u}HҕD2X1TX|R8?\caXV0/e!	͇f\aC'\Ӡs<7pR @(MĒIah2Z*-9[b4@	%A a/RpF1UDV iF $!RZfQեеR6`ÈD*+0"CԌAԍPY/dZ
J"/%  /ZHZˆw_}xJ͆FF)ꏨ͕:] {QtE1v6RKdD[oDT$VPU{CiilVQE~DyxkPE8,dIh=gDB΅d$l%qt0u#p>8:Qa
-B!Z%fc)!M&0Y%M
4˄_1p;"Rn8Nn;	K4eSR{>đdE~0
F
*'ZBW~9ڢ'dD,fn }Hk㖳lj˩I	$
R%0޻C1D.FC|]frD,T1uhm*oBĖ*2Е$$VjH0кDp(FD'Y-Ԍ./xMUZEMY3aP\eQQ
wm58T]@,$&^Hà-Ҡ7LRmE!9DCR)DVĒzaTaJZF%_jBę.vk*r!@U{($P/F¤3
@*	BJF'<*Bu
JLCj`
2_ˆN9*QL@4e)@i"
@܃g>"H	*kQ-Vʄo2&%mhcOAm%[r7	lgU@pQՀľfPŏB!&Ad28. AN3,`;NkM(NDYTj
TB;8'	Olp.#Z5=Ȇ&KP>[PU-LFApº¸3IGxT"LdjsikFR1~S|T
LaSI#7=:FpYjQ+h(.&"߅D樾y!#
ȐDR?>XЧ0]i*EHյ;X:K
bZDЂ\!@14dMgC:y桑
FtHv&y`PZ7(NMB&-&cjݒK0L%ڂ^G
K"keS"<	F>E"VcA9"O̡ȴ䭹Wֵ2FivdQT!3w2LiQP~[e*a"f Ĉ(QH580L884!Cn>p8D"$KzBcB[𭉈K:;u Q/A@}B~yn:
B#H7[PA{+.Nk!#MRh,8SAU*kTeCJYVy@0emLi?T#+ĭ0x*U0V6=oU[xxPAˀL~fG+aSN@"d!)(jzs#H# a`.4"JsvU0.BDa."
+rRɪ"[٨!b!&ʈp!
)b4*	lHƇyj'I/j{XazhnvQx=v@2Jzutxa"&\1WR`
"+4aYR< uzfEI9Z()xA-Yfȝ @AA>9DEF+mh?D9"T3 *E1z..^Fb5s
gсh&7"H&S#61"jTaRUH/ *8
]ʊ@ŋBY-)(@Ζa45`8A#
BɁ@5ƠO*$r)Î:>
5*u=	ȡl}?vЁ~*F@UI#x4ԏP!DGTq2)*-	©
0T%瀃'KʼndDgdc^U^KEG|141z?]BFxڕ2)RGjQSQW@h60s):$""	qw/PTm	\UP$)-Д*tSCMds+ܵj7+I$Aؘ0U,*v(TS,J"-``CƆE׶>8v/({б8(q!!3"l$U@0~BB9•EC$F=`,ߒJPr<2Km8G*HL0GXoD,=MURN8-;_go-,UU":k'ULl
abRpg	$ V@@&b3(@'-BmT%pmm=?V[VK1j"ń]u%z#9oZ0[	'4UkN*vI)DFخ}-ȕ*;2C	5WdB;^^CBJEUypX-hD#JSK	s8텆##{J<(xnIBU8TdQ !*MTwT#2F/h}@9DeuTٳD5PBl1ރ.U
 (\i0H>4o3"'_EEԬYb(b8颐1!_Յze8O(ȠRY&"@oO)h:+9 y)FUc	G`)X:	B;QTHNPP>]ſyZVĉ$8!GY[gR"-NPc۴ʰbhdyLA,)NPmⰞH.,Fw*
L4N
(n1*`K/ƢzTT!ym+ā!:9T;@VSK)oI2xr)D	;w~$Y"'OBĤU2Qt2
sp*pւKq\OTHB!rt ꑇSۯ?>|?>|?=@kaptain-0.73/parser.h0000640023433300116100000000137511162154714013252 0ustar  zsolteng#ifndef BISON_PARSER_TAB_HPP
# define BISON_PARSER_TAB_HPP

#ifndef YYSTYPE
typedef union
{
  int integer;
  string * pstring;
  Rule * prule;
  Disjunction * pdisjunction;
  Conjunction * pconjunction;
  Parameter * pparameter;
  list * pparamlist;
  string * string_array[3];
  list * pstringlist;
  list * ptrafolist;
} yystype;
# define YYSTYPE yystype
# define YYSTYPE_IS_TRIVIAL 1
#endif
# define	NUMBER	257
# define	NONTERMINAL	258
# define	TERMINAL	259
# define	SPECIAL	260
# define	MODIFIER	261
# define	RARROW	262
# define	LARROW	263
# define	SUBSTITUTION	264
# define	TRANSLITERATION	265
# define	REGEXP	266
# define	ERROR	267


#define yylval  parserlval
extern YYSTYPE yylval;

#endif /* not BISON_PARSER_TAB_HPP */
kaptain-0.73/parser.ypp0000640023433300116100000001307511162156215013631 0ustar  zsolteng%{
#include 
#include 
#include 
#include 
#include "grammar.h"
using namespace std;
int yylex();
int yyerror(const char *);
extern int yylineno;
extern Grammar * yygrammar;
extern int rarrow_lineno, larrow_lineno, 
  nonterminal_lineno, last_correct_lineno;
extern int glob_parse_result;
extern list * glob_param_list;
extern Parameter * glob_init_value;
%}

%union
{
  int integer;
  string * pstring;
  Rule * prule;
  Disjunction * pdisjunction;
  Conjunction * pconjunction;
  Parameter * pparameter;
  list * pparamlist;
  string * string_array[3];
  list * pstringlist;
  list * ptrafolist;
}

%token  NUMBER
%token  NONTERMINAL
%token  TERMINAL
%token  SPECIAL
%token  MODIFIER
%token  RARROW
%token  LARROW
%token  SUBSTITUTION
%token  TRANSLITERATION
%token  REGEXP
%token  ERROR

%type  start;
%type  rules;
%type  rule;
%type  disjunction;
%type  conjunction;
%type  parameters;
%type  parameter;
%type  textinfo;
%type  modifiers;
%type  transformations;
%type  initvalue;
%type  description;
%type  constraint;


%%

start: 
  rules
  {
    glob_parse_result=0;
    glob_param_list=0;
    glob_init_value=0;
  }
  | '(' parameters ')' initvalue
  {
    glob_parse_result=1;
    glob_param_list=$2;
    glob_init_value=$4;
    ;
  }
  | '(' ')' initvalue
  {
    glob_parse_result=1;
    glob_param_list=0;
    glob_init_value=$3;
    ;
  }
  | '=' parameter /* same as `initvalue' */
  {
    glob_parse_result=1;
    glob_param_list=0;
    glob_init_value=$2;
    ;
  }
;

rules: /* epsilon */         
  {
    $$=0;
  }
| rules rule
  {
    yygrammar->add_rule($2);
    //cout << yygrammar->broker.get_string($2->get_left()).c_str() << endl;
    $$=0;
  }  
| rules description
  {
    $$=0;
  }  
| rules constraint
  {
    $$=0;
  }  
;


description: 
  NONTERMINAL modifiers '=' textinfo ';'
  {
    last_correct_lineno=nonterminal_lineno;
    yygrammar->add_description($1, $2, $4);

    if ($4[0]) delete $4[0];
    if ($4[1]) delete $4[1];
    if ($4[2]) delete $4[2];
    delete $1;
  }
;


constraint: 
  NONTERMINAL LARROW NONTERMINAL ';'
  {
    last_correct_lineno=larrow_lineno;
    yygrammar->add_constraint($1, $3);
    delete $1;
    delete $3;
  }
;


rule: 
  NONTERMINAL modifiers textinfo RARROW transformations disjunction
  {
    last_correct_lineno=rarrow_lineno;
    $$=new Rule(yygrammar);
    $$->set_disjunction($6);
    $$->set_left($1);
    $$->set_textinfo($3);
    $$->set_transformations($5);
    $$->add_modifiers($2);

    if ($3[0]) delete $3[0];
    if ($3[1]) delete $3[1];
    if ($3[2]) delete $3[2];
    delete $1;
  }
;


disjunction:
  conjunction ';'
  { 
    $$=new Disjunction(yygrammar);
    $$->add_conjunction($1);
  }
  | conjunction '|' disjunction
  {
    $3->add_conjunction($1);
    $$=$3;
  }
;

conjunction:
  /* epsilon */
  {
    $$=new Conjunction(yygrammar);
  }
  | '@' conjunction
  {
    $$=$2;
  }
  | '!' conjunction
  {
    $2->set_default();
    $$=$2;
  }
  | NONTERMINAL conjunction
  {
    $2->add_nonterminal($1);
    $$=$2;
    delete $1;
  }
  | TERMINAL conjunction
  {
    $2->add_terminal($1);
    $$=$2;
    delete $1;
  }
  | SPECIAL initvalue conjunction
  {
    $3->add_special($1, new list, $2);
    $$=$3;
    delete $1;
  }
  | SPECIAL '(' parameters ')' initvalue conjunction
  {
    $6->add_special($1, $3, $5);
    $$=$6;
    delete $1;
  }
  | SPECIAL '(' ')' initvalue conjunction
  {
    $5->add_special($1, new list, $4);
    $$=$5;
    delete $1;
  }
;

parameters:
  parameter
  {
    $$=new list;
    $$->push_front($1);
  }
  | parameter ',' parameters 
  {
    $3->push_front($1);
    $$=$3;
  }
;


parameter:
  NUMBER
  {
    $$=new Parameter(yygrammar);
    $$->set_numeral($1);
  }
  | NONTERMINAL
  {
    $$=new Parameter(yygrammar);
    $$->set_nonterminal($1);
    delete $1;
  }
  | TERMINAL
  {
    $$=new Parameter(yygrammar);
    $$->set_string($1);
    delete $1;
  }
  | REGEXP
  {
    $$=new Parameter(yygrammar);
    $$->set_regexp($1);
    delete $1;
  }
  | TRANSLITERATION
  {
    $$=new Parameter(yygrammar);
    $$->set_transliteration($1);
    delete $1[0];
    delete $1[1];
  }
  | SUBSTITUTION
  {
    $$=new Parameter(yygrammar);
    $$->set_substitution($1);
    delete $1[0];
    delete $1[1];
    delete $1[2];
  }
;


initvalue:
  /* epsilon */
  {
    $$=0;
  }
  | '=' parameter
  {
    $$=$2;
  }
;


textinfo:
  /* epsilon */
  {
    $$[0]=0;
    $$[1]=0;
    $$[2]=0;
  }
  | TERMINAL
  {
    $$[0]=$1;
    $$[1]=0;
    $$[2]=0;
  }
  | TERMINAL TERMINAL
  {
    $$[0]=$1;
    $$[1]=$2;
    $$[2]=0;
  }
  | TERMINAL TERMINAL TERMINAL
  {
    $$[0]=$1;
    $$[1]=$2;
    $$[2]=$3;
  }
;


modifiers:
  /* epsilon */
  {
    $$=new list;
  } 
  | MODIFIER modifiers
  {
    $2->push_back($1);
    $$=$2;
    // $1 is deleted in rule `rule' :)
  } 
;


transformations:
  /* epsilon */
  {
    $$=new list;
  }
  | TRANSLITERATION transformations
  {
    Parameter * t=new Parameter(yygrammar);
    t->set_transliteration($1);
    $2->push_back(t);
    $$=$2;
    delete $1[0];
    delete $1[1];
  }
  | SUBSTITUTION transformations
  {
    Parameter * t=new Parameter(yygrammar);
    t->set_substitution($1);
    $2->push_back(t);
    $$=$2;
    delete $1[0];
    delete $1[1];
    delete $1[2];
  }
;

%%

int yyerror(const char *)
{
    return 0;
}
kaptain-0.73/y.tab.c0000640023433300116100000015514711531163401012766 0ustar  zsolteng
/* A Bison parser, made by GNU Bison 2.4.1.  */

/* Skeleton implementation for Bison's Yacc-like parsers in C
   
      Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
   Free Software Foundation, Inc.
   
   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program.  If not, see .  */

/* As a special exception, you may create a larger work that contains
   part or all of the Bison parser skeleton and distribute that work
   under terms of your choice, so long as that work isn't itself a
   parser generator using the skeleton or a modified version thereof
   as a parser skeleton.  Alternatively, if you modify or redistribute
   the parser skeleton itself, you may (at your option) remove this
   special exception, which will cause the skeleton and the resulting
   Bison output files to be licensed under the GNU General Public
   License without this special exception.
   
   This special exception was added by the Free Software Foundation in
   version 2.2 of Bison.  */

/* C LALR(1) parser skeleton written by Richard Stallman, by
   simplifying the original so-called "semantic" parser.  */

/* All symbols defined below should begin with yy or YY, to avoid
   infringing on user name space.  This should be done even for local
   variables, as they might otherwise be expanded by user macros.
   There are some unavoidable exceptions within include files to
   define necessary library symbols; they are noted "INFRINGES ON
   USER NAME SPACE" below.  */

/* Identify Bison output.  */
#define YYBISON 1

/* Bison version.  */
#define YYBISON_VERSION "2.4.1"

/* Skeleton name.  */
#define YYSKELETON_NAME "yacc.c"

/* Pure parsers.  */
#define YYPURE 0

/* Push parsers.  */
#define YYPUSH 0

/* Pull parsers.  */
#define YYPULL 1

/* Using locations.  */
#define YYLSP_NEEDED 0

/* Substitute the variable and function names.  */
#define yyparse         parserparse
#define yylex           parserlex
#define yyerror         parsererror
#define yylval          parserlval
#define yychar          parserchar
#define yydebug         parserdebug
#define yynerrs         parsernerrs


/* Copy the first part of user declarations.  */

/* Line 189 of yacc.c  */
#line 1 "parser.ypp"

#include 
#include 
#include 
#include 
#include "grammar.h"
using namespace std;
int yylex();
int yyerror(const char *);
extern int yylineno;
extern Grammar * yygrammar;
extern int rarrow_lineno, larrow_lineno, 
  nonterminal_lineno, last_correct_lineno;
extern int glob_parse_result;
extern list * glob_param_list;
extern Parameter * glob_init_value;


/* Line 189 of yacc.c  */
#line 100 "y.tab.c"

/* Enabling traces.  */
#ifndef YYDEBUG
# define YYDEBUG 0
#endif

/* Enabling verbose error messages.  */
#ifdef YYERROR_VERBOSE
# undef YYERROR_VERBOSE
# define YYERROR_VERBOSE 1
#else
# define YYERROR_VERBOSE 0
#endif

/* Enabling the token table.  */
#ifndef YYTOKEN_TABLE
# define YYTOKEN_TABLE 0
#endif


/* Tokens.  */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
   /* Put the tokens into the symbol table, so that GDB and other debuggers
      know about them.  */
   enum yytokentype {
     NUMBER = 258,
     NONTERMINAL = 259,
     TERMINAL = 260,
     SPECIAL = 261,
     MODIFIER = 262,
     RARROW = 263,
     LARROW = 264,
     SUBSTITUTION = 265,
     TRANSLITERATION = 266,
     REGEXP = 267,
     ERROR = 268
   };
#endif



#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef union YYSTYPE
{

/* Line 214 of yacc.c  */
#line 20 "parser.ypp"

  int integer;
  string * pstring;
  Rule * prule;
  Disjunction * pdisjunction;
  Conjunction * pconjunction;
  Parameter * pparameter;
  list * pparamlist;
  string * string_array[3];
  list * pstringlist;
  list * ptrafolist;



/* Line 214 of yacc.c  */
#line 164 "y.tab.c"
} YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
#endif


/* Copy the second part of user declarations.  */


/* Line 264 of yacc.c  */
#line 176 "y.tab.c"

#ifdef short
# undef short
#endif

#ifdef YYTYPE_UINT8
typedef YYTYPE_UINT8 yytype_uint8;
#else
typedef unsigned char yytype_uint8;
#endif

#ifdef YYTYPE_INT8
typedef YYTYPE_INT8 yytype_int8;
#elif (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
typedef signed char yytype_int8;
#else
typedef short int yytype_int8;
#endif

#ifdef YYTYPE_UINT16
typedef YYTYPE_UINT16 yytype_uint16;
#else
typedef unsigned short int yytype_uint16;
#endif

#ifdef YYTYPE_INT16
typedef YYTYPE_INT16 yytype_int16;
#else
typedef short int yytype_int16;
#endif

#ifndef YYSIZE_T
# ifdef __SIZE_TYPE__
#  define YYSIZE_T __SIZE_TYPE__
# elif defined size_t
#  define YYSIZE_T size_t
# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
#  include  /* INFRINGES ON USER NAME SPACE */
#  define YYSIZE_T size_t
# else
#  define YYSIZE_T unsigned int
# endif
#endif

#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)

#ifndef YY_
# if YYENABLE_NLS
#  if ENABLE_NLS
#   include  /* INFRINGES ON USER NAME SPACE */
#   define YY_(msgid) dgettext ("bison-runtime", msgid)
#  endif
# endif
# ifndef YY_
#  define YY_(msgid) msgid
# endif
#endif

/* Suppress unused-variable warnings by "using" E.  */
#if ! defined lint || defined __GNUC__
# define YYUSE(e) ((void) (e))
#else
# define YYUSE(e) /* empty */
#endif

/* Identity function, used to suppress warnings about constant conditions.  */
#ifndef lint
# define YYID(n) (n)
#else
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static int
YYID (int yyi)
#else
static int
YYID (yyi)
    int yyi;
#endif
{
  return yyi;
}
#endif

#if ! defined yyoverflow || YYERROR_VERBOSE

/* The parser invokes alloca or malloc; define the necessary symbols.  */

# ifdef YYSTACK_USE_ALLOCA
#  if YYSTACK_USE_ALLOCA
#   ifdef __GNUC__
#    define YYSTACK_ALLOC __builtin_alloca
#   elif defined __BUILTIN_VA_ARG_INCR
#    include  /* INFRINGES ON USER NAME SPACE */
#   elif defined _AIX
#    define YYSTACK_ALLOC __alloca
#   elif defined _MSC_VER
#    include  /* INFRINGES ON USER NAME SPACE */
#    define alloca _alloca
#   else
#    define YYSTACK_ALLOC alloca
#    if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
#     include  /* INFRINGES ON USER NAME SPACE */
#     ifndef _STDLIB_H
#      define _STDLIB_H 1
#     endif
#    endif
#   endif
#  endif
# endif

# ifdef YYSTACK_ALLOC
   /* Pacify GCC's `empty if-body' warning.  */
#  define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
#  ifndef YYSTACK_ALLOC_MAXIMUM
    /* The OS might guarantee only one guard page at the bottom of the stack,
       and a page size can be as small as 4096 bytes.  So we cannot safely
       invoke alloca (N) if N exceeds 4096.  Use a slightly smaller number
       to allow for a few compiler-allocated temporary stack slots.  */
#   define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
#  endif
# else
#  define YYSTACK_ALLOC YYMALLOC
#  define YYSTACK_FREE YYFREE
#  ifndef YYSTACK_ALLOC_MAXIMUM
#   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
#  endif
#  if (defined __cplusplus && ! defined _STDLIB_H \
       && ! ((defined YYMALLOC || defined malloc) \
	     && (defined YYFREE || defined free)))
#   include  /* INFRINGES ON USER NAME SPACE */
#   ifndef _STDLIB_H
#    define _STDLIB_H 1
#   endif
#  endif
#  ifndef YYMALLOC
#   define YYMALLOC malloc
#   if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
#   endif
#  endif
#  ifndef YYFREE
#   define YYFREE free
#   if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
void free (void *); /* INFRINGES ON USER NAME SPACE */
#   endif
#  endif
# endif
#endif /* ! defined yyoverflow || YYERROR_VERBOSE */


#if (! defined yyoverflow \
     && (! defined __cplusplus \
	 || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))

/* A type that is properly aligned for any stack member.  */
union yyalloc
{
  yytype_int16 yyss_alloc;
  YYSTYPE yyvs_alloc;
};

/* The size of the maximum gap between one aligned stack and the next.  */
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)

/* The size of an array large to enough to hold all stacks, each with
   N elements.  */
# define YYSTACK_BYTES(N) \
     ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
      + YYSTACK_GAP_MAXIMUM)

/* Copy COUNT objects from FROM to TO.  The source and destination do
   not overlap.  */
# ifndef YYCOPY
#  if defined __GNUC__ && 1 < __GNUC__
#   define YYCOPY(To, From, Count) \
      __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
#  else
#   define YYCOPY(To, From, Count)		\
      do					\
	{					\
	  YYSIZE_T yyi;				\
	  for (yyi = 0; yyi < (Count); yyi++)	\
	    (To)[yyi] = (From)[yyi];		\
	}					\
      while (YYID (0))
#  endif
# endif

/* Relocate STACK from its old location to the new one.  The
   local variables YYSIZE and YYSTACKSIZE give the old and new number of
   elements in the stack, and YYPTR gives the new location of the
   stack.  Advance YYPTR to a properly aligned location for the next
   stack.  */
# define YYSTACK_RELOCATE(Stack_alloc, Stack)				\
    do									\
      {									\
	YYSIZE_T yynewbytes;						\
	YYCOPY (&yyptr->Stack_alloc, Stack, yysize);			\
	Stack = &yyptr->Stack_alloc;					\
	yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
	yyptr += yynewbytes / sizeof (*yyptr);				\
      }									\
    while (YYID (0))

#endif

/* YYFINAL -- State number of the termination state.  */
#define YYFINAL  15
/* YYLAST -- Last index in YYTABLE.  */
#define YYLAST   70

/* YYNTOKENS -- Number of terminals.  */
#define YYNTOKENS  22
/* YYNNTS -- Number of nonterminals.  */
#define YYNNTS  14
/* YYNRULES -- Number of rules.  */
#define YYNRULES  41
/* YYNRULES -- Number of states.  */
#define YYNSTATES  70

/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
#define YYUNDEFTOK  2
#define YYMAXUTOK   268

#define YYTRANSLATE(YYX)						\
  ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)

/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */
static const yytype_uint8 yytranslate[] =
{
       0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,    20,     2,     2,     2,     2,     2,     2,
      14,    15,     2,     2,    21,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,    17,
       2,    16,     2,     2,    19,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,    18,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
       5,     6,     7,     8,     9,    10,    11,    12,    13
};

#if YYDEBUG
/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
   YYRHS.  */
static const yytype_uint8 yyprhs[] =
{
       0,     0,     3,     5,    10,    14,    17,    18,    21,    24,
      27,    33,    38,    45,    48,    52,    53,    56,    59,    62,
      65,    69,    76,    82,    84,    88,    90,    92,    94,    96,
      98,   100,   101,   104,   105,   107,   110,   114,   115,   118,
     119,   122
};

/* YYRHS -- A `-1'-separated list of the rules' RHS.  */
static const yytype_int8 yyrhs[] =
{
      23,     0,    -1,    24,    -1,    14,    30,    15,    32,    -1,
      14,    15,    32,    -1,    16,    31,    -1,    -1,    24,    27,
      -1,    24,    25,    -1,    24,    26,    -1,     4,    34,    16,
      33,    17,    -1,     4,     9,     4,    17,    -1,     4,    34,
      33,     8,    35,    28,    -1,    29,    17,    -1,    29,    18,
      28,    -1,    -1,    19,    29,    -1,    20,    29,    -1,     4,
      29,    -1,     5,    29,    -1,     6,    32,    29,    -1,     6,
      14,    30,    15,    32,    29,    -1,     6,    14,    15,    32,
      29,    -1,    31,    -1,    31,    21,    30,    -1,     3,    -1,
       4,    -1,     5,    -1,    12,    -1,    11,    -1,    10,    -1,
      -1,    16,    31,    -1,    -1,     5,    -1,     5,     5,    -1,
       5,     5,     5,    -1,    -1,     7,    34,    -1,    -1,    11,
      35,    -1,    10,    35,    -1
};

/* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
static const yytype_uint16 yyrline[] =
{
       0,    63,    63,    69,    76,    83,    93,    96,   102,   106,
     114,   128,   139,   158,   163,   172,   175,   179,   184,   190,
     196,   202,   208,   217,   222,   231,   236,   242,   248,   254,
     261,   274,   277,   286,   291,   297,   303,   314,   317,   328,
     331,   340
};
#endif

#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
   First, the terminals, then, starting at YYNTOKENS, nonterminals.  */
static const char *const yytname[] =
{
  "$end", "error", "$undefined", "NUMBER", "NONTERMINAL", "TERMINAL",
  "SPECIAL", "MODIFIER", "RARROW", "LARROW", "SUBSTITUTION",
  "TRANSLITERATION", "REGEXP", "ERROR", "'('", "')'", "'='", "';'", "'|'",
  "'@'", "'!'", "','", "$accept", "start", "rules", "description",
  "constraint", "rule", "disjunction", "conjunction", "parameters",
  "parameter", "initvalue", "textinfo", "modifiers", "transformations", 0
};
#endif

# ifdef YYPRINT
/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
   token YYLEX-NUM.  */
static const yytype_uint16 yytoknum[] =
{
       0,   256,   257,   258,   259,   260,   261,   262,   263,   264,
     265,   266,   267,   268,    40,    41,    61,    59,   124,    64,
      33,    44
};
# endif

/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
static const yytype_uint8 yyr1[] =
{
       0,    22,    23,    23,    23,    23,    24,    24,    24,    24,
      25,    26,    27,    28,    28,    29,    29,    29,    29,    29,
      29,    29,    29,    30,    30,    31,    31,    31,    31,    31,
      31,    32,    32,    33,    33,    33,    33,    34,    34,    35,
      35,    35
};

/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
static const yytype_uint8 yyr2[] =
{
       0,     2,     1,     4,     3,     2,     0,     2,     2,     2,
       5,     4,     6,     2,     3,     0,     2,     2,     2,     2,
       3,     6,     5,     1,     3,     1,     1,     1,     1,     1,
       1,     0,     2,     0,     1,     2,     3,     0,     2,     0,
       2,     2
};

/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
   STATE-NUM when YYTABLE doesn't specify something else to do.  Zero
   means the default is an error.  */
static const yytype_uint8 yydefact[] =
{
       6,     0,     0,     0,     2,    25,    26,    27,    30,    29,
      28,    31,     0,    23,     5,     1,    37,     8,     9,     7,
       0,     4,    31,     0,    37,     0,    33,    32,     3,    24,
      38,     0,    34,    33,     0,    11,    35,     0,    39,    36,
      10,    39,    39,    15,    41,    40,    15,    15,    31,    15,
      15,    12,     0,    18,    19,     0,    15,    16,    17,    13,
      15,    31,     0,    20,    14,    15,    31,    22,    15,    21
};

/* YYDEFGOTO[NTERM-NUM].  */
static const yytype_int8 yydefgoto[] =
{
      -1,     3,     4,    17,    18,    19,    51,    52,    12,    13,
      21,    34,    26,    43
};

/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
   STATE-NUM.  */
#define YYPACT_NINF -44
static const yytype_int8 yypact[] =
{
      -2,    25,    51,    11,    14,   -44,   -44,   -44,   -44,   -44,
     -44,    22,    12,    26,   -44,   -44,     8,   -44,   -44,   -44,
      51,   -44,    22,    51,    44,    48,     0,   -44,   -44,   -44,
     -44,    15,    54,    55,    56,   -44,    60,    49,    10,   -44,
     -44,    10,    10,     4,   -44,   -44,     4,     4,    17,     4,
       4,   -44,    28,   -44,   -44,    38,     4,   -44,   -44,   -44,
       4,    22,    52,   -44,   -44,     4,    22,   -44,     4,   -44
};

/* YYPGOTO[NTERM-NUM].  */
static const yytype_int8 yypgoto[] =
{
     -44,   -44,   -44,   -44,   -44,   -44,     9,   -43,   -21,    -1,
     -22,    35,    46,    16
};

/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
   positive, shift that token.  If negative, reduce the rule which
   number is the opposite.  If zero, do what YYDEFACT says.
   If YYTABLE_NINF, syntax error.  */
#define YYTABLE_NINF -1
static const yytype_uint8 yytable[] =
{
      28,    14,    29,    53,    54,    32,    57,    58,    46,    47,
      48,    15,     1,    63,     2,    24,    33,    25,    16,    27,
      41,    42,    67,    49,    50,    69,    56,    22,     5,     6,
       7,    55,    35,    20,    62,     8,     9,    10,    20,    65,
      11,     5,     6,     7,    68,    59,    60,    23,     8,     9,
      10,    24,    31,    61,     5,     6,     7,    44,    45,    36,
      32,     8,     9,    10,    38,    39,    40,    66,    37,    64,
      30
};

static const yytype_uint8 yycheck[] =
{
      22,     2,    23,    46,    47,     5,    49,    50,     4,     5,
       6,     0,    14,    56,    16,     7,    16,     9,     4,    20,
      10,    11,    65,    19,    20,    68,    48,    15,     3,     4,
       5,    14,    17,    16,    55,    10,    11,    12,    16,    61,
      15,     3,     4,     5,    66,    17,    18,    21,    10,    11,
      12,     7,     4,    15,     3,     4,     5,    41,    42,     5,
       5,    10,    11,    12,     8,     5,    17,    15,    33,    60,
      24
};

/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
   symbol of state STATE-NUM.  */
static const yytype_uint8 yystos[] =
{
       0,    14,    16,    23,    24,     3,     4,     5,    10,    11,
      12,    15,    30,    31,    31,     0,     4,    25,    26,    27,
      16,    32,    15,    21,     7,     9,    34,    31,    32,    30,
      34,     4,     5,    16,    33,    17,     5,    33,     8,     5,
      17,    10,    11,    35,    35,    35,     4,     5,     6,    19,
      20,    28,    29,    29,    29,    14,    32,    29,    29,    17,
      18,    15,    30,    29,    28,    32,    15,    29,    32,    29
};

#define yyerrok		(yyerrstatus = 0)
#define yyclearin	(yychar = YYEMPTY)
#define YYEMPTY		(-2)
#define YYEOF		0

#define YYACCEPT	goto yyacceptlab
#define YYABORT		goto yyabortlab
#define YYERROR		goto yyerrorlab


/* Like YYERROR except do call yyerror.  This remains here temporarily
   to ease the transition to the new meaning of YYERROR, for GCC.
   Once GCC version 2 has supplanted version 1, this can go.  */

#define YYFAIL		goto yyerrlab

#define YYRECOVERING()  (!!yyerrstatus)

#define YYBACKUP(Token, Value)					\
do								\
  if (yychar == YYEMPTY && yylen == 1)				\
    {								\
      yychar = (Token);						\
      yylval = (Value);						\
      yytoken = YYTRANSLATE (yychar);				\
      YYPOPSTACK (1);						\
      goto yybackup;						\
    }								\
  else								\
    {								\
      yyerror (YY_("syntax error: cannot back up")); \
      YYERROR;							\
    }								\
while (YYID (0))


#define YYTERROR	1
#define YYERRCODE	256


/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
   If N is 0, then set CURRENT to the empty location which ends
   the previous symbol: RHS[0] (always defined).  */

#define YYRHSLOC(Rhs, K) ((Rhs)[K])
#ifndef YYLLOC_DEFAULT
# define YYLLOC_DEFAULT(Current, Rhs, N)				\
    do									\
      if (YYID (N))                                                    \
	{								\
	  (Current).first_line   = YYRHSLOC (Rhs, 1).first_line;	\
	  (Current).first_column = YYRHSLOC (Rhs, 1).first_column;	\
	  (Current).last_line    = YYRHSLOC (Rhs, N).last_line;		\
	  (Current).last_column  = YYRHSLOC (Rhs, N).last_column;	\
	}								\
      else								\
	{								\
	  (Current).first_line   = (Current).last_line   =		\
	    YYRHSLOC (Rhs, 0).last_line;				\
	  (Current).first_column = (Current).last_column =		\
	    YYRHSLOC (Rhs, 0).last_column;				\
	}								\
    while (YYID (0))
#endif


/* YY_LOCATION_PRINT -- Print the location on the stream.
   This macro was not mandated originally: define only if we know
   we won't break user code: when these are the locations we know.  */

#ifndef YY_LOCATION_PRINT
# if YYLTYPE_IS_TRIVIAL
#  define YY_LOCATION_PRINT(File, Loc)			\
     fprintf (File, "%d.%d-%d.%d",			\
	      (Loc).first_line, (Loc).first_column,	\
	      (Loc).last_line,  (Loc).last_column)
# else
#  define YY_LOCATION_PRINT(File, Loc) ((void) 0)
# endif
#endif


/* YYLEX -- calling `yylex' with the right arguments.  */

#ifdef YYLEX_PARAM
# define YYLEX yylex (YYLEX_PARAM)
#else
# define YYLEX yylex ()
#endif

/* Enable debugging if requested.  */
#if YYDEBUG

# ifndef YYFPRINTF
#  include  /* INFRINGES ON USER NAME SPACE */
#  define YYFPRINTF fprintf
# endif

# define YYDPRINTF(Args)			\
do {						\
  if (yydebug)					\
    YYFPRINTF Args;				\
} while (YYID (0))

# define YY_SYMBOL_PRINT(Title, Type, Value, Location)			  \
do {									  \
  if (yydebug)								  \
    {									  \
      YYFPRINTF (stderr, "%s ", Title);					  \
      yy_symbol_print (stderr,						  \
		  Type, Value); \
      YYFPRINTF (stderr, "\n");						  \
    }									  \
} while (YYID (0))


/*--------------------------------.
| Print this symbol on YYOUTPUT.  |
`--------------------------------*/

/*ARGSUSED*/
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static void
yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
#else
static void
yy_symbol_value_print (yyoutput, yytype, yyvaluep)
    FILE *yyoutput;
    int yytype;
    YYSTYPE const * const yyvaluep;
#endif
{
  if (!yyvaluep)
    return;
# ifdef YYPRINT
  if (yytype < YYNTOKENS)
    YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
# else
  YYUSE (yyoutput);
# endif
  switch (yytype)
    {
      default:
	break;
    }
}


/*--------------------------------.
| Print this symbol on YYOUTPUT.  |
`--------------------------------*/

#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static void
yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
#else
static void
yy_symbol_print (yyoutput, yytype, yyvaluep)
    FILE *yyoutput;
    int yytype;
    YYSTYPE const * const yyvaluep;
#endif
{
  if (yytype < YYNTOKENS)
    YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
  else
    YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);

  yy_symbol_value_print (yyoutput, yytype, yyvaluep);
  YYFPRINTF (yyoutput, ")");
}

/*------------------------------------------------------------------.
| yy_stack_print -- Print the state stack from its BOTTOM up to its |
| TOP (included).                                                   |
`------------------------------------------------------------------*/

#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static void
yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
#else
static void
yy_stack_print (yybottom, yytop)
    yytype_int16 *yybottom;
    yytype_int16 *yytop;
#endif
{
  YYFPRINTF (stderr, "Stack now");
  for (; yybottom <= yytop; yybottom++)
    {
      int yybot = *yybottom;
      YYFPRINTF (stderr, " %d", yybot);
    }
  YYFPRINTF (stderr, "\n");
}

# define YY_STACK_PRINT(Bottom, Top)				\
do {								\
  if (yydebug)							\
    yy_stack_print ((Bottom), (Top));				\
} while (YYID (0))


/*------------------------------------------------.
| Report that the YYRULE is going to be reduced.  |
`------------------------------------------------*/

#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static void
yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
#else
static void
yy_reduce_print (yyvsp, yyrule)
    YYSTYPE *yyvsp;
    int yyrule;
#endif
{
  int yynrhs = yyr2[yyrule];
  int yyi;
  unsigned long int yylno = yyrline[yyrule];
  YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
	     yyrule - 1, yylno);
  /* The symbols being reduced.  */
  for (yyi = 0; yyi < yynrhs; yyi++)
    {
      YYFPRINTF (stderr, "   $%d = ", yyi + 1);
      yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
		       &(yyvsp[(yyi + 1) - (yynrhs)])
		       		       );
      YYFPRINTF (stderr, "\n");
    }
}

# define YY_REDUCE_PRINT(Rule)		\
do {					\
  if (yydebug)				\
    yy_reduce_print (yyvsp, Rule); \
} while (YYID (0))

/* Nonzero means print parse trace.  It is left uninitialized so that
   multiple parsers can coexist.  */
int yydebug;
#else /* !YYDEBUG */
# define YYDPRINTF(Args)
# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
#endif /* !YYDEBUG */


/* YYINITDEPTH -- initial size of the parser's stacks.  */
#ifndef	YYINITDEPTH
# define YYINITDEPTH 200
#endif

/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
   if the built-in stack extension method is used).

   Do not make this value too large; the results are undefined if
   YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
   evaluated with infinite-precision integer arithmetic.  */

#ifndef YYMAXDEPTH
# define YYMAXDEPTH 10000
#endif



#if YYERROR_VERBOSE

# ifndef yystrlen
#  if defined __GLIBC__ && defined _STRING_H
#   define yystrlen strlen
#  else
/* Return the length of YYSTR.  */
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static YYSIZE_T
yystrlen (const char *yystr)
#else
static YYSIZE_T
yystrlen (yystr)
    const char *yystr;
#endif
{
  YYSIZE_T yylen;
  for (yylen = 0; yystr[yylen]; yylen++)
    continue;
  return yylen;
}
#  endif
# endif

# ifndef yystpcpy
#  if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
#   define yystpcpy stpcpy
#  else
/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
   YYDEST.  */
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static char *
yystpcpy (char *yydest, const char *yysrc)
#else
static char *
yystpcpy (yydest, yysrc)
    char *yydest;
    const char *yysrc;
#endif
{
  char *yyd = yydest;
  const char *yys = yysrc;

  while ((*yyd++ = *yys++) != '\0')
    continue;

  return yyd - 1;
}
#  endif
# endif

# ifndef yytnamerr
/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
   quotes and backslashes, so that it's suitable for yyerror.  The
   heuristic is that double-quoting is unnecessary unless the string
   contains an apostrophe, a comma, or backslash (other than
   backslash-backslash).  YYSTR is taken from yytname.  If YYRES is
   null, do not copy; instead, return the length of what the result
   would have been.  */
static YYSIZE_T
yytnamerr (char *yyres, const char *yystr)
{
  if (*yystr == '"')
    {
      YYSIZE_T yyn = 0;
      char const *yyp = yystr;

      for (;;)
	switch (*++yyp)
	  {
	  case '\'':
	  case ',':
	    goto do_not_strip_quotes;

	  case '\\':
	    if (*++yyp != '\\')
	      goto do_not_strip_quotes;
	    /* Fall through.  */
	  default:
	    if (yyres)
	      yyres[yyn] = *yyp;
	    yyn++;
	    break;

	  case '"':
	    if (yyres)
	      yyres[yyn] = '\0';
	    return yyn;
	  }
    do_not_strip_quotes: ;
    }

  if (! yyres)
    return yystrlen (yystr);

  return yystpcpy (yyres, yystr) - yyres;
}
# endif

/* Copy into YYRESULT an error message about the unexpected token
   YYCHAR while in state YYSTATE.  Return the number of bytes copied,
   including the terminating null byte.  If YYRESULT is null, do not
   copy anything; just return the number of bytes that would be
   copied.  As a special case, return 0 if an ordinary "syntax error"
   message will do.  Return YYSIZE_MAXIMUM if overflow occurs during
   size calculation.  */
static YYSIZE_T
yysyntax_error (char *yyresult, int yystate, int yychar)
{
  int yyn = yypact[yystate];

  if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
    return 0;
  else
    {
      int yytype = YYTRANSLATE (yychar);
      YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
      YYSIZE_T yysize = yysize0;
      YYSIZE_T yysize1;
      int yysize_overflow = 0;
      enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
      char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
      int yyx;

# if 0
      /* This is so xgettext sees the translatable formats that are
	 constructed on the fly.  */
      YY_("syntax error, unexpected %s");
      YY_("syntax error, unexpected %s, expecting %s");
      YY_("syntax error, unexpected %s, expecting %s or %s");
      YY_("syntax error, unexpected %s, expecting %s or %s or %s");
      YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
# endif
      char *yyfmt;
      char const *yyf;
      static char const yyunexpected[] = "syntax error, unexpected %s";
      static char const yyexpecting[] = ", expecting %s";
      static char const yyor[] = " or %s";
      char yyformat[sizeof yyunexpected
		    + sizeof yyexpecting - 1
		    + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
		       * (sizeof yyor - 1))];
      char const *yyprefix = yyexpecting;

      /* Start YYX at -YYN if negative to avoid negative indexes in
	 YYCHECK.  */
      int yyxbegin = yyn < 0 ? -yyn : 0;

      /* Stay within bounds of both yycheck and yytname.  */
      int yychecklim = YYLAST - yyn + 1;
      int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
      int yycount = 1;

      yyarg[0] = yytname[yytype];
      yyfmt = yystpcpy (yyformat, yyunexpected);

      for (yyx = yyxbegin; yyx < yyxend; ++yyx)
	if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
	  {
	    if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
	      {
		yycount = 1;
		yysize = yysize0;
		yyformat[sizeof yyunexpected - 1] = '\0';
		break;
	      }
	    yyarg[yycount++] = yytname[yyx];
	    yysize1 = yysize + yytnamerr (0, yytname[yyx]);
	    yysize_overflow |= (yysize1 < yysize);
	    yysize = yysize1;
	    yyfmt = yystpcpy (yyfmt, yyprefix);
	    yyprefix = yyor;
	  }

      yyf = YY_(yyformat);
      yysize1 = yysize + yystrlen (yyf);
      yysize_overflow |= (yysize1 < yysize);
      yysize = yysize1;

      if (yysize_overflow)
	return YYSIZE_MAXIMUM;

      if (yyresult)
	{
	  /* Avoid sprintf, as that infringes on the user's name space.
	     Don't have undefined behavior even if the translation
	     produced a string with the wrong number of "%s"s.  */
	  char *yyp = yyresult;
	  int yyi = 0;
	  while ((*yyp = *yyf) != '\0')
	    {
	      if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
		{
		  yyp += yytnamerr (yyp, yyarg[yyi++]);
		  yyf += 2;
		}
	      else
		{
		  yyp++;
		  yyf++;
		}
	    }
	}
      return yysize;
    }
}
#endif /* YYERROR_VERBOSE */


/*-----------------------------------------------.
| Release the memory associated to this symbol.  |
`-----------------------------------------------*/

/*ARGSUSED*/
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
static void
yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
#else
static void
yydestruct (yymsg, yytype, yyvaluep)
    const char *yymsg;
    int yytype;
    YYSTYPE *yyvaluep;
#endif
{
  YYUSE (yyvaluep);

  if (!yymsg)
    yymsg = "Deleting";
  YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);

  switch (yytype)
    {

      default:
	break;
    }
}

/* Prevent warnings from -Wmissing-prototypes.  */
#ifdef YYPARSE_PARAM
#if defined __STDC__ || defined __cplusplus
int yyparse (void *YYPARSE_PARAM);
#else
int yyparse ();
#endif
#else /* ! YYPARSE_PARAM */
#if defined __STDC__ || defined __cplusplus
int yyparse (void);
#else
int yyparse ();
#endif
#endif /* ! YYPARSE_PARAM */


/* The lookahead symbol.  */
int yychar;

/* The semantic value of the lookahead symbol.  */
YYSTYPE yylval;

/* Number of syntax errors so far.  */
int yynerrs;



/*-------------------------.
| yyparse or yypush_parse.  |
`-------------------------*/

#ifdef YYPARSE_PARAM
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
int
yyparse (void *YYPARSE_PARAM)
#else
int
yyparse (YYPARSE_PARAM)
    void *YYPARSE_PARAM;
#endif
#else /* ! YYPARSE_PARAM */
#if (defined __STDC__ || defined __C99__FUNC__ \
     || defined __cplusplus || defined _MSC_VER)
int
yyparse (void)
#else
int
yyparse ()

#endif
#endif
{


    int yystate;
    /* Number of tokens to shift before error messages enabled.  */
    int yyerrstatus;

    /* The stacks and their tools:
       `yyss': related to states.
       `yyvs': related to semantic values.

       Refer to the stacks thru separate pointers, to allow yyoverflow
       to reallocate them elsewhere.  */

    /* The state stack.  */
    yytype_int16 yyssa[YYINITDEPTH];
    yytype_int16 *yyss;
    yytype_int16 *yyssp;

    /* The semantic value stack.  */
    YYSTYPE yyvsa[YYINITDEPTH];
    YYSTYPE *yyvs;
    YYSTYPE *yyvsp;

    YYSIZE_T yystacksize;

  int yyn;
  int yyresult;
  /* Lookahead token as an internal (translated) token number.  */
  int yytoken;
  /* The variables used to return semantic value and location from the
     action routines.  */
  YYSTYPE yyval;

#if YYERROR_VERBOSE
  /* Buffer for error messages, and its allocated size.  */
  char yymsgbuf[128];
  char *yymsg = yymsgbuf;
  YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
#endif

#define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N))

  /* The number of symbols on the RHS of the reduced rule.
     Keep to zero when no symbol should be popped.  */
  int yylen = 0;

  yytoken = 0;
  yyss = yyssa;
  yyvs = yyvsa;
  yystacksize = YYINITDEPTH;

  YYDPRINTF ((stderr, "Starting parse\n"));

  yystate = 0;
  yyerrstatus = 0;
  yynerrs = 0;
  yychar = YYEMPTY; /* Cause a token to be read.  */

  /* Initialize stack pointers.
     Waste one element of value and location stack
     so that they stay on the same level as the state stack.
     The wasted elements are never initialized.  */
  yyssp = yyss;
  yyvsp = yyvs;

  goto yysetstate;

/*------------------------------------------------------------.
| yynewstate -- Push a new state, which is found in yystate.  |
`------------------------------------------------------------*/
 yynewstate:
  /* In all cases, when you get here, the value and location stacks
     have just been pushed.  So pushing a state here evens the stacks.  */
  yyssp++;

 yysetstate:
  *yyssp = yystate;

  if (yyss + yystacksize - 1 <= yyssp)
    {
      /* Get the current used size of the three stacks, in elements.  */
      YYSIZE_T yysize = yyssp - yyss + 1;

#ifdef yyoverflow
      {
	/* Give user a chance to reallocate the stack.  Use copies of
	   these so that the &'s don't force the real ones into
	   memory.  */
	YYSTYPE *yyvs1 = yyvs;
	yytype_int16 *yyss1 = yyss;

	/* Each stack pointer address is followed by the size of the
	   data in use in that stack, in bytes.  This used to be a
	   conditional around just the two extra args, but that might
	   be undefined if yyoverflow is a macro.  */
	yyoverflow (YY_("memory exhausted"),
		    &yyss1, yysize * sizeof (*yyssp),
		    &yyvs1, yysize * sizeof (*yyvsp),
		    &yystacksize);

	yyss = yyss1;
	yyvs = yyvs1;
      }
#else /* no yyoverflow */
# ifndef YYSTACK_RELOCATE
      goto yyexhaustedlab;
# else
      /* Extend the stack our own way.  */
      if (YYMAXDEPTH <= yystacksize)
	goto yyexhaustedlab;
      yystacksize *= 2;
      if (YYMAXDEPTH < yystacksize)
	yystacksize = YYMAXDEPTH;

      {
	yytype_int16 *yyss1 = yyss;
	union yyalloc *yyptr =
	  (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
	if (! yyptr)
	  goto yyexhaustedlab;
	YYSTACK_RELOCATE (yyss_alloc, yyss);
	YYSTACK_RELOCATE (yyvs_alloc, yyvs);
#  undef YYSTACK_RELOCATE
	if (yyss1 != yyssa)
	  YYSTACK_FREE (yyss1);
      }
# endif
#endif /* no yyoverflow */

      yyssp = yyss + yysize - 1;
      yyvsp = yyvs + yysize - 1;

      YYDPRINTF ((stderr, "Stack size increased to %lu\n",
		  (unsigned long int) yystacksize));

      if (yyss + yystacksize - 1 <= yyssp)
	YYABORT;
    }

  YYDPRINTF ((stderr, "Entering state %d\n", yystate));

  if (yystate == YYFINAL)
    YYACCEPT;

  goto yybackup;

/*-----------.
| yybackup.  |
`-----------*/
yybackup:

  /* Do appropriate processing given the current state.  Read a
     lookahead token if we need one and don't already have one.  */

  /* First try to decide what to do without reference to lookahead token.  */
  yyn = yypact[yystate];
  if (yyn == YYPACT_NINF)
    goto yydefault;

  /* Not known => get a lookahead token if don't already have one.  */

  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
  if (yychar == YYEMPTY)
    {
      YYDPRINTF ((stderr, "Reading a token: "));
      yychar = YYLEX;
    }

  if (yychar <= YYEOF)
    {
      yychar = yytoken = YYEOF;
      YYDPRINTF ((stderr, "Now at end of input.\n"));
    }
  else
    {
      yytoken = YYTRANSLATE (yychar);
      YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
    }

  /* If the proper action on seeing token YYTOKEN is to reduce or to
     detect an error, take that action.  */
  yyn += yytoken;
  if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
    goto yydefault;
  yyn = yytable[yyn];
  if (yyn <= 0)
    {
      if (yyn == 0 || yyn == YYTABLE_NINF)
	goto yyerrlab;
      yyn = -yyn;
      goto yyreduce;
    }

  /* Count tokens shifted since error; after three, turn off error
     status.  */
  if (yyerrstatus)
    yyerrstatus--;

  /* Shift the lookahead token.  */
  YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);

  /* Discard the shifted token.  */
  yychar = YYEMPTY;

  yystate = yyn;
  *++yyvsp = yylval;

  goto yynewstate;


/*-----------------------------------------------------------.
| yydefault -- do the default action for the current state.  |
`-----------------------------------------------------------*/
yydefault:
  yyn = yydefact[yystate];
  if (yyn == 0)
    goto yyerrlab;
  goto yyreduce;


/*-----------------------------.
| yyreduce -- Do a reduction.  |
`-----------------------------*/
yyreduce:
  /* yyn is the number of a rule to reduce with.  */
  yylen = yyr2[yyn];

  /* If YYLEN is nonzero, implement the default value of the action:
     `$$ = $1'.

     Otherwise, the following line sets YYVAL to garbage.
     This behavior is undocumented and Bison
     users should not rely upon it.  Assigning to YYVAL
     unconditionally makes the parser a bit smaller, and it avoids a
     GCC warning that YYVAL may be used uninitialized.  */
  yyval = yyvsp[1-yylen];


  YY_REDUCE_PRINT (yyn);
  switch (yyn)
    {
        case 2:

/* Line 1455 of yacc.c  */
#line 64 "parser.ypp"
    {
    glob_parse_result=0;
    glob_param_list=0;
    glob_init_value=0;
  ;}
    break;

  case 3:

/* Line 1455 of yacc.c  */
#line 70 "parser.ypp"
    {
    glob_parse_result=1;
    glob_param_list=(yyvsp[(2) - (4)].pparamlist);
    glob_init_value=(yyvsp[(4) - (4)].pparameter);
    ;
  ;}
    break;

  case 4:

/* Line 1455 of yacc.c  */
#line 77 "parser.ypp"
    {
    glob_parse_result=1;
    glob_param_list=0;
    glob_init_value=(yyvsp[(3) - (3)].pparameter);
    ;
  ;}
    break;

  case 5:

/* Line 1455 of yacc.c  */
#line 84 "parser.ypp"
    {
    glob_parse_result=1;
    glob_param_list=0;
    glob_init_value=(yyvsp[(2) - (2)].pparameter);
    ;
  ;}
    break;

  case 6:

/* Line 1455 of yacc.c  */
#line 93 "parser.ypp"
    {
    (yyval.integer)=0;
  ;}
    break;

  case 7:

/* Line 1455 of yacc.c  */
#line 97 "parser.ypp"
    {
    yygrammar->add_rule((yyvsp[(2) - (2)].prule));
    //cout << yygrammar->broker.get_string($2->get_left()).c_str() << endl;
    (yyval.integer)=0;
  ;}
    break;

  case 8:

/* Line 1455 of yacc.c  */
#line 103 "parser.ypp"
    {
    (yyval.integer)=0;
  ;}
    break;

  case 9:

/* Line 1455 of yacc.c  */
#line 107 "parser.ypp"
    {
    (yyval.integer)=0;
  ;}
    break;

  case 10:

/* Line 1455 of yacc.c  */
#line 115 "parser.ypp"
    {
    last_correct_lineno=nonterminal_lineno;
    yygrammar->add_description((yyvsp[(1) - (5)].pstring), (yyvsp[(2) - (5)].pstringlist), (yyvsp[(4) - (5)].string_array));

    if ((yyvsp[(4) - (5)].string_array)[0]) delete (yyvsp[(4) - (5)].string_array)[0];
    if ((yyvsp[(4) - (5)].string_array)[1]) delete (yyvsp[(4) - (5)].string_array)[1];
    if ((yyvsp[(4) - (5)].string_array)[2]) delete (yyvsp[(4) - (5)].string_array)[2];
    delete (yyvsp[(1) - (5)].pstring);
  ;}
    break;

  case 11:

/* Line 1455 of yacc.c  */
#line 129 "parser.ypp"
    {
    last_correct_lineno=larrow_lineno;
    yygrammar->add_constraint((yyvsp[(1) - (4)].pstring), (yyvsp[(3) - (4)].pstring));
    delete (yyvsp[(1) - (4)].pstring);
    delete (yyvsp[(3) - (4)].pstring);
  ;}
    break;

  case 12:

/* Line 1455 of yacc.c  */
#line 140 "parser.ypp"
    {
    last_correct_lineno=rarrow_lineno;
    (yyval.prule)=new Rule(yygrammar);
    (yyval.prule)->set_disjunction((yyvsp[(6) - (6)].pdisjunction));
    (yyval.prule)->set_left((yyvsp[(1) - (6)].pstring));
    (yyval.prule)->set_textinfo((yyvsp[(3) - (6)].string_array));
    (yyval.prule)->set_transformations((yyvsp[(5) - (6)].ptrafolist));
    (yyval.prule)->add_modifiers((yyvsp[(2) - (6)].pstringlist));

    if ((yyvsp[(3) - (6)].string_array)[0]) delete (yyvsp[(3) - (6)].string_array)[0];
    if ((yyvsp[(3) - (6)].string_array)[1]) delete (yyvsp[(3) - (6)].string_array)[1];
    if ((yyvsp[(3) - (6)].string_array)[2]) delete (yyvsp[(3) - (6)].string_array)[2];
    delete (yyvsp[(1) - (6)].pstring);
  ;}
    break;

  case 13:

/* Line 1455 of yacc.c  */
#line 159 "parser.ypp"
    { 
    (yyval.pdisjunction)=new Disjunction(yygrammar);
    (yyval.pdisjunction)->add_conjunction((yyvsp[(1) - (2)].pconjunction));
  ;}
    break;

  case 14:

/* Line 1455 of yacc.c  */
#line 164 "parser.ypp"
    {
    (yyvsp[(3) - (3)].pdisjunction)->add_conjunction((yyvsp[(1) - (3)].pconjunction));
    (yyval.pdisjunction)=(yyvsp[(3) - (3)].pdisjunction);
  ;}
    break;

  case 15:

/* Line 1455 of yacc.c  */
#line 172 "parser.ypp"
    {
    (yyval.pconjunction)=new Conjunction(yygrammar);
  ;}
    break;

  case 16:

/* Line 1455 of yacc.c  */
#line 176 "parser.ypp"
    {
    (yyval.pconjunction)=(yyvsp[(2) - (2)].pconjunction);
  ;}
    break;

  case 17:

/* Line 1455 of yacc.c  */
#line 180 "parser.ypp"
    {
    (yyvsp[(2) - (2)].pconjunction)->set_default();
    (yyval.pconjunction)=(yyvsp[(2) - (2)].pconjunction);
  ;}
    break;

  case 18:

/* Line 1455 of yacc.c  */
#line 185 "parser.ypp"
    {
    (yyvsp[(2) - (2)].pconjunction)->add_nonterminal((yyvsp[(1) - (2)].pstring));
    (yyval.pconjunction)=(yyvsp[(2) - (2)].pconjunction);
    delete (yyvsp[(1) - (2)].pstring);
  ;}
    break;

  case 19:

/* Line 1455 of yacc.c  */
#line 191 "parser.ypp"
    {
    (yyvsp[(2) - (2)].pconjunction)->add_terminal((yyvsp[(1) - (2)].pstring));
    (yyval.pconjunction)=(yyvsp[(2) - (2)].pconjunction);
    delete (yyvsp[(1) - (2)].pstring);
  ;}
    break;

  case 20:

/* Line 1455 of yacc.c  */
#line 197 "parser.ypp"
    {
    (yyvsp[(3) - (3)].pconjunction)->add_special((yyvsp[(1) - (3)].pstring), new list, (yyvsp[(2) - (3)].pparameter));
    (yyval.pconjunction)=(yyvsp[(3) - (3)].pconjunction);
    delete (yyvsp[(1) - (3)].pstring);
  ;}
    break;

  case 21:

/* Line 1455 of yacc.c  */
#line 203 "parser.ypp"
    {
    (yyvsp[(6) - (6)].pconjunction)->add_special((yyvsp[(1) - (6)].pstring), (yyvsp[(3) - (6)].pparamlist), (yyvsp[(5) - (6)].pparameter));
    (yyval.pconjunction)=(yyvsp[(6) - (6)].pconjunction);
    delete (yyvsp[(1) - (6)].pstring);
  ;}
    break;

  case 22:

/* Line 1455 of yacc.c  */
#line 209 "parser.ypp"
    {
    (yyvsp[(5) - (5)].pconjunction)->add_special((yyvsp[(1) - (5)].pstring), new list, (yyvsp[(4) - (5)].pparameter));
    (yyval.pconjunction)=(yyvsp[(5) - (5)].pconjunction);
    delete (yyvsp[(1) - (5)].pstring);
  ;}
    break;

  case 23:

/* Line 1455 of yacc.c  */
#line 218 "parser.ypp"
    {
    (yyval.pparamlist)=new list;
    (yyval.pparamlist)->push_front((yyvsp[(1) - (1)].pparameter));
  ;}
    break;

  case 24:

/* Line 1455 of yacc.c  */
#line 223 "parser.ypp"
    {
    (yyvsp[(3) - (3)].pparamlist)->push_front((yyvsp[(1) - (3)].pparameter));
    (yyval.pparamlist)=(yyvsp[(3) - (3)].pparamlist);
  ;}
    break;

  case 25:

/* Line 1455 of yacc.c  */
#line 232 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_numeral((yyvsp[(1) - (1)].integer));
  ;}
    break;

  case 26:

/* Line 1455 of yacc.c  */
#line 237 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_nonterminal((yyvsp[(1) - (1)].pstring));
    delete (yyvsp[(1) - (1)].pstring);
  ;}
    break;

  case 27:

/* Line 1455 of yacc.c  */
#line 243 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_string((yyvsp[(1) - (1)].pstring));
    delete (yyvsp[(1) - (1)].pstring);
  ;}
    break;

  case 28:

/* Line 1455 of yacc.c  */
#line 249 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_regexp((yyvsp[(1) - (1)].pstring));
    delete (yyvsp[(1) - (1)].pstring);
  ;}
    break;

  case 29:

/* Line 1455 of yacc.c  */
#line 255 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_transliteration((yyvsp[(1) - (1)].string_array));
    delete (yyvsp[(1) - (1)].string_array)[0];
    delete (yyvsp[(1) - (1)].string_array)[1];
  ;}
    break;

  case 30:

/* Line 1455 of yacc.c  */
#line 262 "parser.ypp"
    {
    (yyval.pparameter)=new Parameter(yygrammar);
    (yyval.pparameter)->set_substitution((yyvsp[(1) - (1)].string_array));
    delete (yyvsp[(1) - (1)].string_array)[0];
    delete (yyvsp[(1) - (1)].string_array)[1];
    delete (yyvsp[(1) - (1)].string_array)[2];
  ;}
    break;

  case 31:

/* Line 1455 of yacc.c  */
#line 274 "parser.ypp"
    {
    (yyval.pparameter)=0;
  ;}
    break;

  case 32:

/* Line 1455 of yacc.c  */
#line 278 "parser.ypp"
    {
    (yyval.pparameter)=(yyvsp[(2) - (2)].pparameter);
  ;}
    break;

  case 33:

/* Line 1455 of yacc.c  */
#line 286 "parser.ypp"
    {
    (yyval.string_array)[0]=0;
    (yyval.string_array)[1]=0;
    (yyval.string_array)[2]=0;
  ;}
    break;

  case 34:

/* Line 1455 of yacc.c  */
#line 292 "parser.ypp"
    {
    (yyval.string_array)[0]=(yyvsp[(1) - (1)].pstring);
    (yyval.string_array)[1]=0;
    (yyval.string_array)[2]=0;
  ;}
    break;

  case 35:

/* Line 1455 of yacc.c  */
#line 298 "parser.ypp"
    {
    (yyval.string_array)[0]=(yyvsp[(1) - (2)].pstring);
    (yyval.string_array)[1]=(yyvsp[(2) - (2)].pstring);
    (yyval.string_array)[2]=0;
  ;}
    break;

  case 36:

/* Line 1455 of yacc.c  */
#line 304 "parser.ypp"
    {
    (yyval.string_array)[0]=(yyvsp[(1) - (3)].pstring);
    (yyval.string_array)[1]=(yyvsp[(2) - (3)].pstring);
    (yyval.string_array)[2]=(yyvsp[(3) - (3)].pstring);
  ;}
    break;

  case 37:

/* Line 1455 of yacc.c  */
#line 314 "parser.ypp"
    {
    (yyval.pstringlist)=new list;
  ;}
    break;

  case 38:

/* Line 1455 of yacc.c  */
#line 318 "parser.ypp"
    {
    (yyvsp[(2) - (2)].pstringlist)->push_back((yyvsp[(1) - (2)].pstring));
    (yyval.pstringlist)=(yyvsp[(2) - (2)].pstringlist);
    // $1 is deleted in rule `rule' :)
  ;}
    break;

  case 39:

/* Line 1455 of yacc.c  */
#line 328 "parser.ypp"
    {
    (yyval.ptrafolist)=new list;
  ;}
    break;

  case 40:

/* Line 1455 of yacc.c  */
#line 332 "parser.ypp"
    {
    Parameter * t=new Parameter(yygrammar);
    t->set_transliteration((yyvsp[(1) - (2)].string_array));
    (yyvsp[(2) - (2)].ptrafolist)->push_back(t);
    (yyval.ptrafolist)=(yyvsp[(2) - (2)].ptrafolist);
    delete (yyvsp[(1) - (2)].string_array)[0];
    delete (yyvsp[(1) - (2)].string_array)[1];
  ;}
    break;

  case 41:

/* Line 1455 of yacc.c  */
#line 341 "parser.ypp"
    {
    Parameter * t=new Parameter(yygrammar);
    t->set_substitution((yyvsp[(1) - (2)].string_array));
    (yyvsp[(2) - (2)].ptrafolist)->push_back(t);
    (yyval.ptrafolist)=(yyvsp[(2) - (2)].ptrafolist);
    delete (yyvsp[(1) - (2)].string_array)[0];
    delete (yyvsp[(1) - (2)].string_array)[1];
    delete (yyvsp[(1) - (2)].string_array)[2];
  ;}
    break;



/* Line 1455 of yacc.c  */
#line 1865 "y.tab.c"
      default: break;
    }
  YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);

  YYPOPSTACK (yylen);
  yylen = 0;
  YY_STACK_PRINT (yyss, yyssp);

  *++yyvsp = yyval;

  /* Now `shift' the result of the reduction.  Determine what state
     that goes to, based on the state we popped back to and the rule
     number reduced by.  */

  yyn = yyr1[yyn];

  yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
  if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
    yystate = yytable[yystate];
  else
    yystate = yydefgoto[yyn - YYNTOKENS];

  goto yynewstate;


/*------------------------------------.
| yyerrlab -- here on detecting error |
`------------------------------------*/
yyerrlab:
  /* If not already recovering from an error, report this error.  */
  if (!yyerrstatus)
    {
      ++yynerrs;
#if ! YYERROR_VERBOSE
      yyerror (YY_("syntax error"));
#else
      {
	YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
	if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
	  {
	    YYSIZE_T yyalloc = 2 * yysize;
	    if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
	      yyalloc = YYSTACK_ALLOC_MAXIMUM;
	    if (yymsg != yymsgbuf)
	      YYSTACK_FREE (yymsg);
	    yymsg = (char *) YYSTACK_ALLOC (yyalloc);
	    if (yymsg)
	      yymsg_alloc = yyalloc;
	    else
	      {
		yymsg = yymsgbuf;
		yymsg_alloc = sizeof yymsgbuf;
	      }
	  }

	if (0 < yysize && yysize <= yymsg_alloc)
	  {
	    (void) yysyntax_error (yymsg, yystate, yychar);
	    yyerror (yymsg);
	  }
	else
	  {
	    yyerror (YY_("syntax error"));
	    if (yysize != 0)
	      goto yyexhaustedlab;
	  }
      }
#endif
    }



  if (yyerrstatus == 3)
    {
      /* If just tried and failed to reuse lookahead token after an
	 error, discard it.  */

      if (yychar <= YYEOF)
	{
	  /* Return failure if at end of input.  */
	  if (yychar == YYEOF)
	    YYABORT;
	}
      else
	{
	  yydestruct ("Error: discarding",
		      yytoken, &yylval);
	  yychar = YYEMPTY;
	}
    }

  /* Else will try to reuse lookahead token after shifting the error
     token.  */
  goto yyerrlab1;


/*---------------------------------------------------.
| yyerrorlab -- error raised explicitly by YYERROR.  |
`---------------------------------------------------*/
yyerrorlab:

  /* Pacify compilers like GCC when the user code never invokes
     YYERROR and the label yyerrorlab therefore never appears in user
     code.  */
  if (/*CONSTCOND*/ 0)
     goto yyerrorlab;

  /* Do not reclaim the symbols of the rule which action triggered
     this YYERROR.  */
  YYPOPSTACK (yylen);
  yylen = 0;
  YY_STACK_PRINT (yyss, yyssp);
  yystate = *yyssp;
  goto yyerrlab1;


/*-------------------------------------------------------------.
| yyerrlab1 -- common code for both syntax error and YYERROR.  |
`-------------------------------------------------------------*/
yyerrlab1:
  yyerrstatus = 3;	/* Each real token shifted decrements this.  */

  for (;;)
    {
      yyn = yypact[yystate];
      if (yyn != YYPACT_NINF)
	{
	  yyn += YYTERROR;
	  if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
	    {
	      yyn = yytable[yyn];
	      if (0 < yyn)
		break;
	    }
	}

      /* Pop the current state because it cannot handle the error token.  */
      if (yyssp == yyss)
	YYABORT;


      yydestruct ("Error: popping",
		  yystos[yystate], yyvsp);
      YYPOPSTACK (1);
      yystate = *yyssp;
      YY_STACK_PRINT (yyss, yyssp);
    }

  *++yyvsp = yylval;


  /* Shift the error token.  */
  YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);

  yystate = yyn;
  goto yynewstate;


/*-------------------------------------.
| yyacceptlab -- YYACCEPT comes here.  |
`-------------------------------------*/
yyacceptlab:
  yyresult = 0;
  goto yyreturn;

/*-----------------------------------.
| yyabortlab -- YYABORT comes here.  |
`-----------------------------------*/
yyabortlab:
  yyresult = 1;
  goto yyreturn;

#if !defined(yyoverflow) || YYERROR_VERBOSE
/*-------------------------------------------------.
| yyexhaustedlab -- memory exhaustion comes here.  |
`-------------------------------------------------*/
yyexhaustedlab:
  yyerror (YY_("memory exhausted"));
  yyresult = 2;
  /* Fall through.  */
#endif

yyreturn:
  if (yychar != YYEMPTY)
     yydestruct ("Cleanup: discarding lookahead",
		 yytoken, &yylval);
  /* Do not reclaim the symbols of the rule which action triggered
     this YYABORT or YYACCEPT.  */
  YYPOPSTACK (yylen);
  YY_STACK_PRINT (yyss, yyssp);
  while (yyssp != yyss)
    {
      yydestruct ("Cleanup: popping",
		  yystos[*yyssp], yyvsp);
      YYPOPSTACK (1);
    }
#ifndef yyoverflow
  if (yyss != yyssa)
    YYSTACK_FREE (yyss);
#endif
#if YYERROR_VERBOSE
  if (yymsg != yymsgbuf)
    YYSTACK_FREE (yymsg);
#endif
  /* Make sure YYID is used.  */
  return YYID (yyresult);
}



/* Line 1675 of yacc.c  */
#line 352 "parser.ypp"


int yyerror(const char *)
{
    return 0;
}

kaptain-0.73/y.tab.h0000640023433300116100000000510011531163401012752 0ustar  zsolteng
/* A Bison parser, made by GNU Bison 2.4.1.  */

/* Skeleton interface for Bison's Yacc-like parsers in C
   
      Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
   Free Software Foundation, Inc.
   
   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program.  If not, see .  */

/* As a special exception, you may create a larger work that contains
   part or all of the Bison parser skeleton and distribute that work
   under terms of your choice, so long as that work isn't itself a
   parser generator using the skeleton or a modified version thereof
   as a parser skeleton.  Alternatively, if you modify or redistribute
   the parser skeleton itself, you may (at your option) remove this
   special exception, which will cause the skeleton and the resulting
   Bison output files to be licensed under the GNU General Public
   License without this special exception.
   
   This special exception was added by the Free Software Foundation in
   version 2.2 of Bison.  */


/* Tokens.  */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
   /* Put the tokens into the symbol table, so that GDB and other debuggers
      know about them.  */
   enum yytokentype {
     NUMBER = 258,
     NONTERMINAL = 259,
     TERMINAL = 260,
     SPECIAL = 261,
     MODIFIER = 262,
     RARROW = 263,
     LARROW = 264,
     SUBSTITUTION = 265,
     TRANSLITERATION = 266,
     REGEXP = 267,
     ERROR = 268
   };
#endif



#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef union YYSTYPE
{

/* Line 1676 of yacc.c  */
#line 20 "parser.ypp"

  int integer;
  string * pstring;
  Rule * prule;
  Disjunction * pdisjunction;
  Conjunction * pconjunction;
  Parameter * pparameter;
  list * pparamlist;
  string * string_array[3];
  list * pstringlist;
  list * ptrafolist;



/* Line 1676 of yacc.c  */
#line 80 "y.tab.h"
} YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
#endif

extern YYSTYPE parserlval;


kaptain-0.73/process.cpp0000640023433300116100000000623210120611331013746 0ustar  zsolteng#include 
#include 
#include 
#include 
#include 
#include 
#include "process.h"


/* ---------------------------------------------------------------------- */


void clean_up_child_process(int s)
{
  cout << "Signal: " << s << endl;
  int status;
  wait(&status);
}


void POSIX_init()
{
  signal(SIGCHLD, SIG_IGN);
  signal(SIGPIPE, SIG_IGN);

  /*
  // handle SIGCHLD by calling clean_up_child_process 
  struct sigaction sigchld_action;
  memset(&sigchld_action, 0, sizeof(sigchld_action));
  sigchld_action.sa_handler=&clean_up_child_process;
  sigaction(SIGCHLD, &sigchld_action, NULL);
  // handle SIGPIPE 
  memset(&sigchld_action, 0, sizeof(sigchld_action));
  sigchld_action.sa_handler=&clean_up_child_process;
  sigaction(SIGPIPE, &sigchld_action, NULL);
  */
}


/* asynchronous program execution */
int exec_async(list & arguments)
{
  pid_t child_pid;

  child_pid=fork();
  if (child_pid == 0)
    {
      /* child process */     
      const char ** arglist=new const char *[arguments.size()+1];
      list::iterator si;
      int ind=0;
      for (si=arguments.begin(); si!=arguments.end(); si++)
        arglist[ind++]=(*si).c_str();
      arglist[ind]=0; // NULL terminated (char * array)
      execvp(arglist[0], (char * const *)arglist);
    }

  /* parent process */
  return child_pid;
}

#define READ_BUFFER_SIZE 1000

string exec_sync_stdout(string & command)
{
  string eval;
  char * buffer=new char[READ_BUFFER_SIZE+2];
  FILE * fp;
  fp=popen(command.c_str(), "r");
  if (fp)
    while (!feof(fp))
    {
      if (fgets(buffer, READ_BUFFER_SIZE, fp))
        eval+=buffer;
    }
  pclose(fp);
  return eval;
}


string exec_sync_stdout(list & arguments)
{
  string eval;
  int fds[2];
  pid_t pid;

  /* Create a pipe.  File descriptors for the two ends of the pipe are
     placed in fds.  */
  pipe (fds);
  /* Fork a child process.  */
  pid = fork ();
  if (pid == (pid_t) 0) 
    {
      /* This is the child process.  Close our copy of the read end of
         the file descriptor.  */
      close (fds[0]);
      /* Connect the write end of the pipe to standard input.  */
      dup2 (fds[1], STDOUT_FILENO);
      /* Replace the child process with the given program.  */
      const char ** arglist=new const char *[arguments.size()+1];
      list::iterator si;
      int ind=0;
      for (si=arguments.begin(); si!=arguments.end(); si++)
        arglist[ind++]=(*si).c_str();
      arglist[ind]=0; // NULL terminated (char * array)
      execvp(arglist[0], (char * const *)arglist);
    }
  else 
    {
      /* This is the parent process.  */
      FILE* stream;
      char * buffer=new char[READ_BUFFER_SIZE+2];
      /* Close our copy of the write end of the file descriptor.  */
      close (fds[1]);
      /* Convert the write file descriptor to a FILE object, and write
         to it.  */
      stream = fdopen (fds[0], "r");
      while (!feof(stream))
        {
          if (fgets(buffer, READ_BUFFER_SIZE, stream))
            eval+=buffer;
        }
      close (fds[0]);
      /* Wait for the child process to finish.  */
      waitpid (pid, NULL, 0);
    }
  
  return eval;  
}


kaptain-0.73/process.h0000640023433300116100000000042710120611331013413 0ustar  zsolteng#ifndef PROCESS_HH
#define PROCESS_HH

#include 
#include 

using namespace std;

void clean_up_child_process(int);
void POSIX_init();
int exec_async(list &);
string exec_sync_stdout(string &);
string exec_sync_stdout(list &);

#endif // PROCESS_HH
kaptain-0.73/tools.cpp0000640023433300116100000001107311162156747013455 0ustar  zsolteng#include 
#include 
#include 
#include 
#include 
#include "tools.h"


Error::Error()
{
  stop=false;
}


void Error::warning(string s)
{
  s.insert(0, "Warning: ");
  messages.push_back(s);
}


void Error::error(string s)
{
  s.insert(0, "Error: ");
  messages.push_back(s);
  stop=true;
}


void Error::print()
{
  copy(messages.begin(), messages.end(), ostream_iterator(cerr));
}


/*----------------------------------------------------------------------*/


Regexp::Regexp()
{
}


bool Regexp::matches(string pattern, string src, list & matches)
{
  regex_t pattern_buffer;
  regmatch_t regs[10];
  /* try to compile pattern */
  int err=0;
  if (src.empty() || 
      (err=regcomp(&pattern_buffer, pattern.c_str(), REG_EXTENDED)) )
    {
      char msg[100];
      if (!(src.empty()))
        {
          regerror(err, &pattern_buffer, msg, 100);
          cerr << "Error in regular expression: " 
               << pattern << '\n' << msg << '\n';
        }
      /* if error occured, no matching was found */
      return false;
    }
  /* match the pattern against the given string */
  if (regexec(&pattern_buffer, src.c_str(), 10, regs, 0)!=0)
    /* no match */
    return false;
  /* copy the part left to the point where the matching starts */

  int i;
  for (i=1; i<9; i++)
  {
    if (regs[i].rm_so>=0)
      matches.push_back(src.substr(regs[i].rm_so, regs[i].rm_eo - regs[i].rm_so));
  }

  /* return the end of the last match */
  return true;
}


bool Regexp::substitute_local(string pattern, string src, string replacement,
                              string & dest, int & dest_end)
{
  //cout << pattern << ":" << src << ":" << replacement << endl;
  regex_t pattern_buffer;
  regmatch_t regs[10];
  /* try to compile pattern */
  int err=0;
  if (src.empty() || (err=regcomp(&pattern_buffer, pattern.c_str(), 
                                  REG_EXTENDED)) )
  {
    char msg[100];
    if (!src.empty())
      {
        regerror(err, &pattern_buffer, msg, 100);
        cerr << "Error in regular expression: " 
             << pattern << '\n' << msg << '\n';
      }
    /* if error occured, do not make substitution */
    dest=src;
    return false;
  }
  /* match the pattern against the given string */
  if (regexec(&pattern_buffer, src.c_str(), 10, regs, 0)!=0)
    {
      /* no match */
      dest=src;
      return false;
    }
  /* copy the part left to the point where the matching starts */
  dest=src.substr(0,regs[0].rm_so);
  unsigned int i=0;
  while (i='0' && replacement[i]<='9') {
        int num=replacement[i]-'0';
        dest+=src.substr(regs[num].rm_so, regs[num].rm_eo - regs[num].rm_so);
      } else
        dest+=replacement[i];
    }
    else
      dest+=replacement[i];
    i++;
  }
  dest_end=dest.length();
  dest+=src.substr(regs[0].rm_eo, src.length() - regs[0].rm_eo);

  //cout << ":" << dest << endl;
  return true;
}


void Regexp::substitute(string pattern, string src, 
                        string replacement, string & dest, bool global)
{
  string src_left, src_right, dest_right, result;
  int differ, index=0, de=0;

  //cout << "!" << src << "!" << global << endl;
  if (global)
    {
      result=src;
      do {
        src_left=result.substr(0,index);
        src_right=result.substr(index);
        differ=substitute_local(pattern, src_right, 
                                replacement, dest_right, de);
        result=src_left+dest_right;
        index+=de;
      } while (differ);
      dest=result;
    }
  else
    substitute_local(pattern, src, replacement, dest, de);
}


/* transliterate a string like sed's y */
void Regexp::transliterate(string from, string to, string src, string & dest)
{
  int i, pos;
  dest=string();
  for (i=0; i<(int)src.length(); i++)
    {
      pos=from.find(src[i]);
      if (pos>=0 && pos<(int)to.length()) dest+=to[pos];
      else dest+=src[i];
    }
}


void Regexp::split(char c, string s, list & r)
{
  size_t b=0, e;
  e=s.find(c,b);
  if (e & r, string & s)
{
  list::iterator it;
  for (it=r.begin();
       it!=r.end();
       it++)
    {
      if (it!=r.begin())
        s+=c;
      s=(*it);
    }
}
kaptain-0.73/tools.h0000640023433300116100000000145710120611331013101 0ustar  zsolteng#ifndef TOOLS_HH
#define TOOLS_HH

#include 
#include 

using namespace std;

/**********/
class Error
{
  list messages;
  bool stop;

public:
  Error();

  void warning(string);
  void error(string);

  bool go_on() { return !stop; }

  void print();
};


/***********/
class Regexp
{
private:

public:
  Regexp();

  static bool matches(string, string, list & );

  static bool substitute_local(string, string, string, 
                               string &, int &);
  static void substitute(string, string, string, 
                         string &, bool);

  static void transliterate(string, string,
                            string, string &);

  static void split(char, string, list &);

  static void join(char, list &, string &);
};


#endif // TOOLS_HH
kaptain-0.73/examples/0000750023433300116100000000000011531214266013413 5ustar  zsoltengkaptain-0.73/examples/arping.kaptn0000640023433300116100000000176310120611343015730 0ustar  zsolteng#!/usr/bin/kaptain
#
# arping grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#
# arping: http://synscan.nss.nu/programs.php

start "Arping" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "arping " opt object ;

opt "Options" -> verbose raw interf maxcount finddup nullip ;

verbose -> beverbose | ! @ ;
beverbose "Be verbose" -> "-v " ;

raw -> rawoutput | ! @ ;
rawoutput "Raw output" -> "-r " ;

interf -> interface | ! @ ;
interface "Specify interface to use" -> "-i " interface2use " " ;
interface2use -> @string="eth0" ;

maxcount -> count | ! @ ;
count "Number of packets to send" -> "-c " thecount " " ;
thecount -> @integer=3 ; 

finddup -> findduplicates | ! @ ;
findduplicates "Find duplicates" -> "-d " ;

nullip -> usenullip | ! @ ;
usenullip "Use null ip address" -> "-0 " ;

object "Host/IP/MAC to query" -> @string="00:00:00:00:00:00" ;

kaptain-0.73/examples/budget.kaptn0000640023433300116100000000205510120611342015714 0ustar  zsolteng#!/usr/bin/kaptain

start "Personal budget" -> data buttons;
buttons:horizontal -> @exec("psql","-c",query)="OK" @close="Cancel";
#buttons:horizontal -> @echo(query)="OK" @close="Cancel";

query :framed "Data" -> 'INSERT INTO budget VALUES' data;
data  -> "(" trans_date ",'" description "'," amount ",'" currency "','" destination "');";

trans_date :framed -> trans_date0;
trans_date0 :horizontal "Date"-> !today | specified_date;
  today "Today" -> "date('now')";
  specified_date :beside "Other"-> "'"
    @regexp("^[0-9]+-[0-9]+-[0-9]+$")=x@date +%D | sed -e 's!\(..\)/\(..\)/\(..\)!20\3-\1-\2!'@
    "'";
  description  "Description" -> @string(40)="BB";
amount :framed -> money;
 money "Amount" -> sign quant;
  sign :horizontal -> in | out;
    in "Pay-in" -> "";
    out "Withdraw" -> "-";
  quant :horizontal -> quantity currencyX;
    currencyX :noeval -> currency;
    quantity "Quantity" -> @regexp("^[0-9]*$");

currency "Currency" -> @combow('HUF','DEM','USD',"EUR");

destination "Destination" -> @combow("BANK","Family","Mother","Father","Other");




kaptain-0.73/examples/crypt.kaptn0000640023433300116100000000034710120611343015606 0ustar  zsolteng#!/usr/bin/kaptain

start "Password encrypter" -> code @action("perl","-e",code)="Crypt";
code:framed -> "print crypt('" passw "','" sa q%')."\n"% ;
passw "Password" -> @string="notsimple";
sa "Random chars(2)" -> @string(2)="y4";
kaptain-0.73/examples/curl.kaptn0000640023433300116100000001202310120611343015404 0ustar  zsolteng#!/usr/bin/kaptain
#
# curl grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "cURL" -> filespec url buttons ;
buttons :horizontal -> @action(command)="OK" @button(opt)="Options" @close="Cancel" ;

command :framed -> "curl " opt filespec url ;

opt "Options" -> options @close="Close" ;
options :framed :tabbed -> optc opthf ;

optc :horizontal "Common options" -> optcommon optcommon2 optcommon3 ;
opthf :horizontal "HTTP/FTP options" -> opthttp opthttp2 optftp ; 

optcommon -> norc dump gethead configf maxt netrc nobuf ;
optcommon2 -> rang sil verb write proxy request progress ;
optcommon3 -> speedlim timecon ssl stder ; 
opthttp -> ag cook cont dat ref ;
opthttp2 -> cert fail for sethead inc loc app ;
optftp -> useasc list ftpp quot ; 

app -> append | ! @ ;
append "Append FTP uloads" -> "--append " ;

ag -> agent | ! @ ;
agent "Set User Agent to" -> "--user-agent " @string="Mozilla/4.0" " " ;

cook -> cookie | ! @ ;
cookie "Pass cookie(s)" -> "--cookie " @string="name1=value1;name2=value2;..." " " ;

useasc -> useascii | ! @ ;
useascii "Use ASCII for FTP gets and LDAP info" -> "--use-ascii " ;

cont -> conti | ! @ ;
conti "Continue HTTP/1.1 transfers" -> ! continue | continueat ; 
continue "Where previously stopped" -> "--continue " ;
continueat "At offset" -> "--continue-at " @integer " " ;

dat -> data | ! @ ;
data "POST data" -> "--data " @string " " ;

dump -> dumpheader | ! @ ;
dumpheader "Write HTTP header/FTP info to file" -> "--dump-header " @outfile " " ;

ref -> referrer | ! @ ;
referrer "Set Referrer Page to" -> "--referer " @string="http://host.domain/directory/page.html" " " ;

cert -> certificate | ! @ ;
certificate "Use PEM certificate file for HTTPS" -> "--cert " @infile " " ;

fail -> failsilently | ! @ ;
failsilently "Fail silently on server errors" -> "--fail " ;

for -> form | ! @ ;
form "POST form data" -> "--form " @string " " ;

sethead -> setheader | ! @ ;
setheader "Set custom HTTP header" -> "--header " @string " " ;

inc -> include | ! @ ;
include "Include HTTP header in output" -> "--include " ;

gethead -> getheader | ! @ ;
getheader "Fetch HTTP header / FTP file size only" -> "--head " ;

configf -> configfile | ! @ ;
configfile "File to read arguments from" -> "--config " @infile " " ;

list -> listonly | ! @ ;
listonly "Filename only for FTP listings" -> "--list-only " ;

loc -> location | ! @ ;
location "Honor HTTP Location: headers" -> "--location " ;

maxt -> maxtime | ! @ ;
maxtime "Maximum allowed running time (sec.)" -> "--maxtime " mtime " " ;
mtime -> @integer(1,32767)=1800 ;

netrc -> netrcfile | ! @ ;
netrcfile "Use .netrc file for account info" -> "--netrc " ;

nobuf -> nobuffer | ! @ ;
nobuffer "Disable output buffering" -> "--no-buffer " ;

ftpp -> ftpport | ! @ ;
ftpport "Use PORT instead of PASV" -> "--ftpport " ftppaddress " " ;
ftppaddress -> interface | ip | hostname | !default ;
interface "Interface name" -> @string="eth0" ;
ip "IP address" -> @string ;
hostname "Hostname" -> @string ;
default "Machine's default" -> "-" ;

norc -> nocurlrc | ! @ ;
nocurlrc "Don't read ~/.curlrc" -> "-q " ;

quot -> quote | ! @ ;
quote "Send arbitrary FTP command" -> "--quote " @string " " ;

rang -> range | ! @ ;
range "Specify byte range" -> "--range " @string " " ;

sil -> silent | ! @ ;
silent "Silent mode" -> "--silent " showerrors " " ;
showerrors -> ! showerr | dontshowerr ;
showerr "Show errors" -> "-S " ;
dontshowerr "Don't show errors" -> " " ;

filespec :framed -> ! outfile | infile ;

outfile "Download" -> outputfile | !remotename ;
outputfile "file" -> "--output " @outfile " " ;
remotename "Use remote file name" -> "--remote-name " ;

infile "Upload" -> "--upload-file " @infile " " ;

userinf -> userinfo | ! @ ;
userinfo "Specify user:password" -> "--user " @string " " ;

proxyinf -> proxyinfo | ! @ ;
proxyinfo "Specify user:password for proxy" -> "--proxy-user" @string " " ;

verb -> verbose | ! @ ;
verbose "Verbose mode" -> "--verbose " ;

write -> writeout | ! @ ;
writeout "Writeout format" -> "--write-out " @string " " ;
writeoutformat -> @string ;

proxy -> useproxy | ! @ ;
useproxy "Use proxy" -> "--proxy " @string="host:port" " " ;

request -> crequest | ! @ ;
crequest "Use this request instead of GET/LIST" -> "--request " @string " " ;

speedlim -> speedlimit | ! @ ;
speedlimit "Speed minimum" -> " --speed-limit " speedbytes " --speed-time " speedtime " ";
speedbytes "at least ___ bytes" -> @integer=30 ;
speedtime "per ___ seconds" -> @integer=1 ;

timecon -> timecond | ! @ ;
timecond "document time/date" -> "--time-cond " @string " " ;

ssl "SSL version" -> force2 | force3 | !either ;
force2 "force use of SSLv2" -> "--sslv2 " ;
force3 "force use of SSLv3" -> "--sslv3 " ;
either "allow both" -> " " ;

progress -> progressbar | ! @ ;
progressbar "display progress bar" -> "--progress-bar " ;

crlf -> convertcrlf | ! @ ;
convertcrlf "Convert CR/LF in uploads" -> "--crlf " ;

stder -> stderr | ! @ ;
stderr "Redirect stderr to file" -> "--stderr " @outfile " " ;

url "URL" -> @string ;
kaptain-0.73/examples/dia2code.kaptn0000640023433300116100000000207510120611342016116 0ustar  zsolteng#!/usr/bin/kaptain
start "Dia2Code" -> dia2code buttons;
dia2code :tabbed -> main about;

main "Dia2Code" -> "dia2code" language outdir classlist mask noclobber " " diagramfile;

language "Output Language" -> " -t " outlanguage;
outlanguage :double :horizontal -> ada | c | ! cpp | java | python | sql ;
c "C" -> "c";
cpp "C++" -> "cpp";
java "Java" -> "java";
ada "Ada" -> "ada";
python "Python" -> "python";
sql "SQL" -> "sql";

outdir "Output Dir" -> " -d " @directory=`pwd`;

classlist "Class list (foo,bar,...)" -> @ | " -cl " @string;

mask "Reverse class list" -> @ | " -v";

noclobber "Don't overwrite existing files" -> @ | " -nc";
yesclobber -> "";

diagramfile "Diagram File" -> @infile("*.dia");

buttons :horizontal -> @action(dia2code)="Go" @preview(dia2code)="Preview Command" @close="Quit" ; 

about "About" -> @text("Kaptain grammar for Dia2Code\n\nVersion 1.0\n(c) 2001 Javier O'Hara\n\n\nDia2Code homepage:\nhttp://dia2code.sourceforge.net");

classlist="" "Generates code only for the classes specified\nin this comma-separated list";
kaptain-0.73/examples/emboss.tgz0000640023433300116100000006471010120611342015427 0ustar  zsoltengGZ=]{W)y=1vc1lnݖ[=mg-W%/La&`uTURJU϶eAWE_,!^+++[߬nmTߩ
*mxbV־+"kf^"7:nw?g˃4Yn2DoŞIeb
8龗fAFTtId^vPE"Q ͒5Ȕ2Een!HDd=%2S;|BUJPZaT	ӝdIд
^hGqb-ga-d2;:fu(B/+[EmJE1ណћATu!1C]Źh(>4?nx0a)lAhlZ4vH7L4ip}L^4뢩T> 1ch;_[tGh3`a[+*Xa.w4PG] bD #"-$dVeF~}Qlnm#/MEJ-=JvţXY[]~Q\4uVR7sݑF
U+áV-DuH,)SOa3BG*hujM24miA_E&F
RDՅH{l.


VQGˇe][$[ƤY6kߚAơ7FA,J^WcAL1&5)
?kۋCO0`<=*a>\__c9Ե>DNA~ϋT;Ae~7ã)*Vګj3!'Ay
nJS JX-s5Ne͟ʧ;ۙjA~w@9d;Vܐ'|AbV;0ޖGA}n֓|nۣX4B+Ƞ=PQ'˩AJ^m,S!?̣&[Fb↚5&_\
yIZ`L:/3zӑvXy*m= daFE]	oNKCx0G~+J*jyѥ1r+j%45\ NKn17WgD(/7Q_^FAG%,zMBOܿ[^}L*Md>	
+[AtyI]S'Ӏfl?ʬ]؛1jߩv۽ح`/*e"F3ꩣq`"k)},_Z/ÑaSA"Aukj+&dAZIQ"K¦(1s]/S#Yz1Ig@O>&iH:kiVuO#K?I8^1&^ݩQ#ϼk
[K?Z&Yc+_]?*Ίܝi!|I9[Ve迢%|8 B%f2Pa:1B,+xIuf"aPB8̥*,ϙGT'|ȃ	8)m'o3U#qdTUTiVףmYYMTXs_0=uyC&-(?
G([s
'2$1)J5])ׅ4&5mtJ1bȹd}:M!	O{|Nz*k?ԩz%<-gZ&uҦE8Kޝ/MsnuscRxK*r19qʾJ8RJ{ŽHCbŸRmk1G#1G_0LXD]
\&svPU)
Fx&k4uw;Byς
E_>&|mXcN;wpFm#u	oGGQ;;/o?0j3!ע$]h_af?g> 8~F^hnMP}MmOѼ0̛?E0ŽcIGsτJl/Bs9MIDkߥwڽ._t|n'<N)0~;%mirjMۙtVWp1AXЎW v[ck-uLciNnFCsXEdݮJ-?> EX,H].G$'|`"KREyۨ$.p6R
[::Jy0D(^H[,=}XE[;GqHsu \&ū0ƚ3AT.4Ƞ#(Z.#9Dj,`WevGYb1[0CG+n*pi&Ԥ"xdukLe$b0/rQQWLOZ̙(E:fi;	$XtQuf۰ir] EhYjо=Y$!9HK#i*mӋ;BLrhEi2BgyEZѼ(G'yft1j7T4N>G()C B:F]#O;Q/Li|Q9]r[p+ ᷻RxyrlvqEQ8he?z[$rZ!g*j;F|đó{@%`IBy&\79f@T͆0*҂B-|)rV/N+eު^4ˇעӅWW^fm:]1q+h*J(	{}#+ay@4vc;Zx5vvkDq_l<ݬl
پG3)'큦LJS#8 GnA#WA?0ز	6O.9>oO
k_~ס~>|T$wukeE0u}:~߯'Dsa*u@:QkD/
w	A&_Vnъz1F3Dď+}ڨ̈mkӍȮ	hxGo`ϟ?{EH}@кP+R0e<3E`zbΟ+Yѡ;FtBҜ
ؒY+oSRH'xŎp[9n,?i^mMՏejvˋX7em4F{:̧$$&VH/MrS7Boэ}8jK٩ؾ~e2U1	zq7d0AfAP4kG6VC5N٦!.N߾}N zo*3dpT05alǘ[ƕݲu<
RC̖!UR!UR!UR!UR!UHՒ\*xYUѪ$
&ko| ,c(6ۯfv3Q.>Qt1-u~9e2E"*?K#*Ghܪ
@:uH#ϞU0j
S)jLGŌM"c*;:2O!S!Q2%qH2O*/{҇?ֶVM/CФ cŒ"\fYכM&;T:ENQpX7OG޹YNT>6䔺&Fe[hNh84	#>gXS#C3E6`Iƴ6R۱9f
u^Էf/a*D{FXbU~:x8\1g+P|j%N|џ;1!2stE{GzY]Ja(	
V-8t	YE*DT!:z97^E(LInQj:}r,l4~cj ʦۘVúhII]a~)0E
)IQ>oW(nFs>1/'%2}yZhA|ƑBy0@3Q?R|IP.^^ovgow0C{<96^ߦf:|Xe0M9{Wr#E9sN$u"!>PH꥞
G)1b(Z -E'7636i1EuW("؎{bV齵aN;#<8,o~	}|P2R)s~@ȿy#zHV,hR>-4U\ZP8fI_h\ :6Kz[k;	:]J^bVu0PwCa;u0zaa4CI
;, =|=wKڃt=-NreQCC;A趺ԊqZ>-ٖ7Z!=%#ֳi5+t"El=,xHWLPjd>B%,I8p&ڏ`9#ҏ}9/.
$nɪ8ꝋ`,&}eE8^DLL:,0
\MGGXyX}fWc<Wp_;
41bQc@eD<í@C
aD7M+9.Xr7ۮ/]|.)1f!Fh1hSBI6'I< wX+YY*བ9ᓟrY͒RNxH6ei~p$ga}4
,HΦ8[R@Lpͦ\WfT)o7Ŗ	,sP##@.}OkJdx뻑p/TY;؉^nK/bq>]oebI]*͊Iۋ4.+n|Wֶ6Y.b\Ŀ6nD9!xk+2,l Oњ.J"W`Jz -~@)9Vٴ0pH9&cbfc-9<sڟ۶aQHnҌ!PP2Eģ32!||Qee-X:;LSiKs
d6DVݖv$a:eW)]"e#"?crGѬ7)*!}>$)9|7dd#հ$uCnXۜ˲Jֆ-4PB[JYɺYEdJVd=q&v#~G?7r)_Wz?}%(,I%c^F@c}=3=y=Z2~
A̢O$SD')>4% (>"PdiL0U6a:fP0T}Ƨ9
|	ɦ>^%Ӵw{8xcm*"lbU*EGSӇmt6MO#x@l4p^]23axL䞳ݣlJ!z$'KGUoKĄGͨ7C~uHb3#y0FE93#~#x,٠O	ajI0nhpӕ~behQU[sQ^*wVWe* wz@"An6MdBdw3귌QhD4dқ
".!e8s<|nwu;gJM0
1#)"N>l!&cB`S
yF*hh
:f]c2,梬

R:-N
p0,UpKģ͏Wu$HT~=XA9}#+RR8gͻlc# 'MШ@B[~v4sFacuܡGb;پ32/8	%6,(rE՟RFWFjDFjDFjDFjDFjd5BEO߈#
EHeӎ,OH--	xdr$!?-EKDުLOW@B,r+X靼0<.GK`ޓ4,?֧dNi4H6jI dið1>-S6
SG5l5L	bLX|]Pod:}#57QGE1\ԿIiT60)Qbc#Ԥ;>EQA,r|¶+d#Fr֧_*[)b8j-tg&LN106AqUoJK#xo]cQxb9i$X'ܶ]\zdl9EiL\,,ahXCgr0B(5VCq_T9ކ7]tʀ#)YA@3R
d[046/ďaLQBW*q Ͼ8`pe{L
>z&&XWx;0<PJi|WBSAkVpm4ķ-¯7]9kfc4]ajjN[en-e$Q+V2wJziOгivgRM\j?jwǙ	9f:rm6C5t
ـL0DJ+jp..0:hgVH/q`|Om6Jf>h<
"E&=
>
	ɃdO$TSg|ał@J9'	=;D!FPz(z{_JLl*to@ـZ^olzLRH.g[R1J0~,8N#Qvo%o`aȡ0(bŸ+]1qWbwŸ+]1+937X;tSx#}[v-\#3p"+r/MsЊV6i&vE\5_Z^ıG"DO)J(YaGJMf1'_;(AJ8Uw ˪ @n
;eL^P?nA|_ۻ{[-׍\P?QX
Z{@>P8\i,Y{a i[(\$PAz"wơ\
j>ŦPIrI0hm1YEP޼O4@ӳ@+YUU9Ժ
J
1 m%ҤȌtf+"[΢1
/!b#K@6"qEPhRNqn>34> 5{CŊ(<2L8Б}	- ުwYO0Tž[mbӴvww4׋h*Uw5FQSQRt4~L4IyDX2>2%m/Y
8/$5M)Tvq[ߡ^w"d$  ӷ&Gip}Қ,*+(7!,ץXHGZg#=O/"{jn5x}9c_B *HA@
R  )HA@ <H`?H>^ݱ m@ԔyEq \_Mu"2wXwrR%]tmQ]T%VsHN$ܛ՜׆Ky+ڦf#zZr`ד䅁wgc!ɮ$_+qBZ?-$X21C†6!
mJ{S0k-jZOgw?ĥ(G?wf`%8Oq4=v6艶9n|e]fG$l^$A|E/92ZdLY`?:n#XƯH\$y̏2(4	{-ƀrit9ъdGBHt|1!r>ǦqgS|r[iiD]a済1t.bE(:D!QtCus.b>׋a]
9S\ۗ+ϯaM)NW*7lWϕ>}]5tBWmNY#xd	EO(zBz-yĆY,G?6q)CzE^%hBCW
v0HĤ`eZ-2ӪEV-jUZd"YȪEZd-Q]ƬeAv[[
~!94I7A~Z?y1x'^偖%3Wb喭;yaVy\N2'˸ipYs1OkɊ&&F-P88mD^x
i1#|&HofW9;0N~)}xvN7QE1~4oh>7}Z}DjvhO{,HkjRQ"	h7S)2Q7pi끷ʖg*d0e,Vqc8sH;H+kq{Y$gA_u|'HZfFqY|Qph+z3XyNf9'][U$qA2ZVKZPZqx)s1!9J#Z!9$	gS&Lyza?刹ކ[X!'ǯwZ8=i'+nm 32433kҘYZ&6hh%2UG3D}5'=AVL
$5E::"oaS?|Cy|:Hp 
nc=)iɱ^	z&`_=;LJ`fW{@MH
{w!ý9W_WF_Ws11HQd"cn
hLbT
q)?KP?8ƀ (h_r{Wh9f?CU{6Lo |`|ۇEߟ4؆fd>fFQVg"x9/P!4AՓg/~z˫	%ga/g#Sx2P\ݒQb%N@ҭ3j$ʌ\E?
6q`_sUrWU*wU]Ur(w8X&w"7t{K0,^tvhI{[p]U<բjI˘|t
rY^U:Zio{fZCuU]eO8ۻ{E.|V.W_fԪ5 /0r?@JX]'FF$NQA{[u,(1zDh0CGHʼn?0[
بǭ
h[a[Ue1%Nn&A#|w&?AB1|	z^8NuKX(F4Q,biKXۉQG	u ³ͻJYC=I@gXȡuOZ>C+ rg<'܁ Vk-pwXK?Q:8U"FF?s9Ox(X>K~rA<:{v69k|-
Fч('ӲeaL|s_G\84797wEKlRC'(8A	
NPp'(8npȁH,7-@=jQ8a@j!c}_ȀWmDp׬f(@q3PkuA:%7q_WWG

iD($S(0@
P`(0@
P` 7/.6L |cl EZ&@7:XGA>F._Pdo JMIDNY(Q9l8"	
W@ ecx$Kaʧa,m$0XŲa{sNޱ~,4P	'ZmQHşHĪC^¼g4(:A~1J88%y
Uv(C
P`;ءv(;^U,K@<,Z# D*c@c#vxQxmwpm!Ձ:s5׮ו88qp:t:6Xم3 $cW*c?&@/hߞ( zL@׀
źrd5Q_;oZ$߫VJ2ZUE*zUѫ^UWUEZV+c)s3ܰɭH__5Vr+3lnN+"A,7G+kV]_סU+{1kbUjeU+{+q:o:ĥ_W E;hFgH]NH[_.+Lc=DħS6rk}|㞾Μ*dg!pփSMga./ l2klM%YQ4^텳ȴ=LL(GJ
mKV ^`硪
0>r6og1pQf|Ke)D:v9S(l8&nH4=}QddS1ዜټ
!$.|%?u0ߦ91'z:m6.@M&ѓ4*xSAP3TK=&ǾD@U0`(C
P0ʖ<Fgl
OD
+XU}!_.^kBfpl!!3s52Fו#38qEf:dt:"3Ef|E+㵢??:h;T&.(CXpw	Gr
9P*(#pp
D@lD{jymWw *2'}IllI;=ڃVkͦKo`]]!(Ntߐ?8;P#Y\NJrbvu˨		֋MS3#'pC`ɽg^qҋLz:_?S0fh.=cAF#`G([Ȃ_9e\8۰}a[7&{myXuܷY!̚e()fc$MaGik/RHd_(Z5/n^Z"FN$60˩c9Rmr~v^v\jBͻ|_*A;[V!j{^i:o])E*'*LGH#N/~zl'NC8]r9K7J8E<M1T۸Ej
t{4JW{P>Cv
4/
M1d}2)xeu9M6?Ta*S[ixp}Ni{K,-_*q.ŕ3zx%؁M%][̧+#zI?-ݹ(/`6^ՕlٮEy:$DWlVd"`E+2XVd]YU#6BT(")"d8mh(#e%U{Of0+pde'ū)f&P	Z\+'a͕ۛ1K)m1ͱ~WwG>8֖i
aw67#i_0.%eZdg0m @m$v(፵|%1c.8r7_s73'3$V8lG"Gpc=#VQgi{{Ac78<bEټ& @ؼ^R!J\,zRFE=NNe<&Ŵek%Wёy".E(cm\(_gw-`}\Qg9-8>>Ã0w''32j,0ŅFLKҝbTnrHbb4;7:iޙPh+&d]fYm}'dB"q%CbcH,KvE'TG=U?9K
%+4en,ʛoa~}:J@tI`L~\'h5[@y |mj#*[>J#9:l<$'ٗk7m_N~gWM\jjkm,&AR1-[VYrT9yT]ϫ!-ԞTI՞TIo=		闚fqF6t y	:
63kY

9Rfu)Zy ~*$KL
B
yIz-
0BS:S:S:S:S:[nv]Bڍh1܎KaK8/AP+EqבLal$W'R~ 3kEK
,W`D-lR?u"&)Zщr0PsAhB	
3Sx"T&vV8]Ζ{F
!	+oA0;ՉN\uWU':qՉN\uk6+5K_XF"7d̑ʦY[["~!eIC~Z,Uy1x'^V%3XbV;yay\d2ս'+ipY~1O3mɊ&ښF-P8	8m67CЧe~T}ZAsyH{)AI9z#f`LqOsr?S}6QGE1\=mM2HçڷI
hIjOF0s(b̂HQjjRe"	A`9>a[ڏ:Bnj>m=VR,j:bis i%y-`C:>c/ˋ̈#᤿+Il	u:./JcN}V>mOZqt>,	Ybr١D=~HRvҖ
b֛$c):rkl+&sMmѢ(6
}Q#ZxJ횓 S&vHgXGD/[o9SlUж`N(;,*t|11}tRĵEƴ9>`5dz0#Bdl@ȟOiF#:wW:f岘U݁b+lhKlk
2}\=VxR\K9(V
Uhkc>wp]Zĥ_*W3xtGa Et$IV+nkQ62H)%Ppm2kWHklq@8GZd*$X~3?[P48@A"Ot?O/_;.=z޼аo]_0zMB#Tz߂[# cM/m"IUy|ь|ОMq]~t|V.G?*Yw	+*='Zp\OL D4Lت>_DMs1kYZMZMZMSk5V3.Ummv_xXZXZXZXZXZXy=Ѳ 3>i1zQ	.kb	ad(o>t$nhq6~' :4ܵI|رDP3/p͌S^:H4w鐇LvFLnd`&攪}C	0nw3l~>'̄ӌSRy7Qb=
8?!P9[Hli	p;=BLE\xx'c')p:"AE=@AIR=.@S&FF96|˿y1ba$j[9x\x_,cM6$jݰ	Bo4

Am1|=E2Hԁ@+o^d[ƖpDq|9{&+8Vw2wZS#Eeee\L])I$u_z<-'v/`mn8bBt۾r3k[϶on
+a
R0+vLi9=Ǐm>~jZ_`EڏFvaϠU4S!f}*${rǯ5g"s7\xBvq\/1-\h(Ю1dmZeѭF.ay=C7&o9qϓ+ZWFȸ	q=}r|]4s'V/'݆J43Je|HBwķa?qa[wi \ɇ,a2@i#X|;CE,füӿd{iM쟻|GOI#x}(+0$o'IdctZYLH&9N-V$6;3x}i}DhRbD6=GMl
>Np?kL@C2<NNaf}3E^	]ȧ+`;B(D h)m}BmN*L~1@	ed㸗v({Ac78<j4 t_hQyEr}
!j8>,XOA(>bs')3ȷ_{GpȌNͣa>"|d@2SnfI*}3*`	yui=O*<'8sUFVEY=io0viԳ`(~$8{uKi;=K¶W
lg(_ðQoh+bQvDG#'mF:ýocNpV6VGjQ}G3TF#%#!M%][̧+#zI?FU%nEy"dvU.ASo+5MNx	c>\J0!E҇=U+

t86e& (a	wT%)䶨p'[+KD.Ŧ񃚼M+1ndF9W7z|ޣpG ]PwWz&PdҞDma÷LmM+o=ieOPjK`5}T@Qkb_]ܢ6@
J+q;bZ\KTo-oo9JnؿdߘY\j,`s	ol`+7
YJǬVP;XU;؛87ڨOD_eJQ-qcBFC>”9`Zr?.tntҼ3И+ށM4W,!`pddBr1&k+H, HvErQ_OΒvoId;D5
i>#۰e+˷4Ek_րh%))aR3_$
'B[fkCw`=b@5FuZNbM3Y9qvֵʒi=h>u[ĥj_{+M7DcfI=ra\;F<~X$Kzh#
وVo!YMQOJpF蘄jS:d:ĬPP=eh#Lz0u3>ğ9Qfbs
`İbJWFggĶ
[sb(dkV"x.V΅Dwiք`iD0"*]ґVߛ;N<|#*{"uGϡТZ
}sCTPG!8"dlC5D,&uhk`jLK{mAr5`Mjd9$J
6S0
T݊Vd"٭nEv+[݊VdʑѼs-j}$F}.DX4-{_c~MuD)S'gb
[`*my,@FaYh@LClds-]_9x$[_]ND!L
aR˿^Vqpnv[oR??0]fp|5JGWH:9#9j<ТXzȝ
PcJg^Hd=f.,M cO;ٔ6{9,4-9F*`͟x>4'>2ΦY(S&1HЀL"){cT&I&8
8_EM.)wYۿÏ?o*I1M؉@W`ón6$xSxrYb,p0tP)c4\1JamahG!ßgTU=5IQ0%54rjq|gP<)Ox
S(BP<)6f/#7E~_8.,	?P4zqܘÊŲu+XVm3J7@S`fuP
Vj2~Z9vRVĭM`1+XB
	/nAI6r_Wz	t.9ɡ_v_/Xs(e9`f1U
A:⏼֒bĪE
l<P}ÿ0Q-pDfjYxemy-<9/J1CS,`1n7&gjp_)e`I`Z	ᶉS(aU0ܼ5Fa_oNg?vĥ+N3yDXvpHڋ,*zsL
fscux01avX'\EUr4X5a'35F㛶lΧ`UoJ)ߚ\o
$0莈PPf5*؃=n쒁d&֎p-i4+J|%mlˀ9u2:c%RI5`9~-Ds (Xa@P(F/:`~<_AX_L")RO)`L41>J4ŅZEepUoRx{އo5x}ȶpc_*jHQCRԐ5!E
)jHQCըVp9mhHgGDࢮ{O=>%BF{_ .bůnАۺV1 l=[N8$߫C.r]KH$sDKfדa\7Gc x\kc/?'Q"Bm$a|$I'%BDHz饗^z饗^z饗^z饗^z饗^z饗^z饗^z饗^z饗^z饗^zz(kaptain-0.73/examples/enscript.kaptn0000640023433300116100000001144710120611342016276 0ustar  zsolteng#!/usr/bin/kaptain
# kaptain grammar for enscript
# (c) 2000 Terek Zsolt

start "Enscript" -> top bottom;
  top :tabbed  -> body  header;
  bottom :horizontal -> font_button ok_button cancel_button;

### Body tab
body "Body" -> up down ;
  up :framed -> options;
    options :horizontal "Options" -> left center right;
  down :horizontal :framed ->files output;

left   -> wordwrap landscape media pretty_print encoding;
center -> border trunc_lines nup columns  high_bars linenum lines;
right  -> indent pages;

# Options - column 1
wordwrap "Word wrap" "Wrap long lines from word boundaries" -> " --word-wrap"! | @;
landscape "Landscape" -> " -r" | !@ ;
border "Border around columns" -> " -j" | !@ ;
trunc_lines "Truncate long lines" -> " -c" | !@ ;
pretty_print "Pretty-print" -> !@ | " --pretty-print="
  @combo( `enscript --help-pretty-print | sed -n -e /^Name:/s/Name:[[:space:]]*//p` );
media "Specify output media" -> @ | !" -M"
  @combo(x%enscript --list-media | sed -n -e 's/^\([A-Z][^[:space:]]*\).*$/\1/p' | sort %)=2;
encoding "Encoding" -> !@ |" -X "
  @combo("latin1","latin2","latin3","latin4","cyrillic","greek","ascii","ibmpc","mac","vms","hp8","koi8","ps");

# Options - column 2
nup :beside "N-up printing" -> " -U " @integer=1 | @! ;
columns :beside "Number of columns" -> " --columns="  @integer=1 | @! ;
high_bars :beside "Highlight bars" -> " -H"  @integer=2 | @! ;
linenum :beside "Show line number starting at" -> " -C" @integer(-100,100)=1 | @! ;
lines :beside "Number of lines per page" -> " -L " @integer=66 | @! ;

# Options - column 3
indent :beside "Indent size" -> " -i "  @regexp("^[0-9]*[cilp]?$")="8" | !@;
pages  :framed -> pages_ ;
pages_ "Pages to print" -> pages0 | pages1;
pages_ ->  pages2 | pages3 | pages4;
  pages0 "All"       -> @;
  pages1:horizontal:beside "Begin-End" -> " -a " @integer=1 to @integer=10;
    to "-" -> "-";
  pages2:beside "Page"      -> " -a " @integer=1;
  pages3 "Odd"       -> " -a odd";
  pages4 "Even"      -> " -a even";

# Files
files "Files to print" -> ifile @container(ifile);
  ifile :noeval -> " " @infile;

# Output
output "Output" -> stdout | ofile | printer;
  stdout "Standart output" -> " -p -";
  ofile "To file"          -> " -p " @outfile="out.ps" outops;
    outops:horizontal -> lang color;
    lang          -> " -W " @combo("PostScript","html","overstrike","rtf");
    color "Color" -> " --color" | @ ;
  printer "Printer"        -> " -P " @string="lp"; # how to get printer list? from /etc/printcap?

### Header tab
header:framed "Header" -> header_;
header_ "Page header" -> header1 | header2 | header3 | userheader | !noheader ;
  header1 "File name, current date and current page/all pages left justified"                -> q/ --header='$n %W Page $% of $='/;
  header2 "File name left, current date centered and current page/all pages right justified" -> q/ --header='$n|%W|Page $% of $='/;
  header3 "Current page number centered"                                                     -> q/ --header='|$%|'/;
  userheader "User specified header" -> headersymbols containers real_header;
    headersymbols :noeval :horizontal -> hdr_file | hdr_currdate | hdr_currpage | hdr_pagenum | hdr_any ;
      hdr_file "File name"          -> '$n';
      hdr_currdate "Current date"   -> '%W';
      hdr_currpage "Current page"   -> '$%';
      hdr_pagenum "Number of pages" -> '$=';
      hdr_any :beside "Text"                -> @string;
    containers :framed :noeval :horizontal -> hdr_left hdr_center hdr_right ;
      hdr_left "Left"     -> @container(headersymbols);
      hdr_center "Center" -> @container(headersymbols);
      hdr_right "Right"   -> @container(headersymbols);
    real_header -> " --header='" hdr_left "|" hdr_center "|" hdr_right "'";
  noheader "No header" -> " --no-header";

### Font dialog
fonts "Select fonts" -> fonts_ font_exit;
  fonts_ :framed -> font_choice;
    font_choice "Choose font" -> default | fixed | specfont ;
      default "Courier 10pt" -> @;
      fixed "Times 12pt"      -> " -f Times-Roman12";
      specfont "User specified" -> " -f " fontname fontsize;
        fontname "Font name" -> @list(`cat /usr/share/enscript/font.map | sed -n -e 's/[ ].*$//gp'`);
        fontsize "Font size (pt)" -> @combow("8\n10\n12\n14\n16\n18\n24")=2;
  font_exit -> @close="OK";

### Button bar
font_button -> @button(fonts) = "Fonts...";
ok_button -> @action(enscript)="Enscript"; # see the definition of enscript below
cancel_button -> @close="Cancel";

# the command to be executed should contain data in the following order
enscript -> "enscript" header fonts options output files ;


#--------------------------------------------
#- the detailed description of some elements-
#--------------------------------------------
indent= "" "Size of indentation" < command buttons ;
buttons:horizontal -> @action(command)="OK" @close="Cancel"
@button(help)="Help .." ;

command :framed  -> "find " up exec ;

up :framed :horizontal  -> left timeattr fileattr  ;

## 
left :framed "options" -> path userattr  print;

path "starting directory" -> startdisp ;
startdisp "default: current directory" -> @ | @string=`pwd` ;

userattr :framed "User attritute" -> none | username | userid ;
userid "user ID" -> " -user " @string  ;
username "username" -> " -user " @string=`echo $USER` ; 
none "all users" -> @ ; 

print "print search match on screen" -> " -print " | @ ;

timeattr :framed "time attribute" -> alltime | ctime | mtime | newer ;

alltime "all time" -> @ ;
ctime "ctime in days ago" -> " -ctime +" ctimedisp " " ;
ctimedisp -> @integer=30 ; 

mtime "mtime in days ago" -> " -mtime +" mtimedisp " " ;
mtimedisp -> @integer=30  ;

newer "newer then filename" -> " -newer " newdisp " ";
newdisp -> @string="/tmp/time.sample"  ; 

fileattr :framed "file attribute" -> filetype fstype  match ;

filetype :framed "filetype match" -> " -type " typedisp " " ;
##typedisp "filetype" ->  @combo("file", "directory","link","device");
typedisp -> file | directory | link ;
directory "directory" -> " d" ;
file "regular file" -> " f" ; 
link "symbolic link" -> " l" ; 

fstype "File System type " -> fsdisp | @ ;
fsdisp "ufs file system" -> "-fstype ufs "  ; 

match "filename match (N/A)" -> @ | " -name " filedisp " "; 
filedisp "file name regexpr pattern" -> @string="\*.arc" ; 

## down 
exec "exec command following sucessful find " -> execdisp ; 
execdisp "command"  -> @ | " | xargs " nextcmd  ; 
nextcmd  -> @string="your command here (for example: ls -l )"  ; 

help "No help current avaiable" ->  @close="cancel" ;
kaptain-0.73/examples/finger.kaptn0000640023433300116100000000174310120611342015717 0ustar  zsolteng#!/usr/bin/kaptain
#
# finger grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "finger" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "finger " opt match user host ;

opt :framed "Output format" -> short | ! long ;

short "Short" -> "-s " shortdisp ;
shortdisp -> hostname | office | ! default ;
hostname "Display hostname" -> "-h " ;
office "Display office phone" -> "-o " ;
default "Default" -> " " ;

long "Long" -> "-l " longdisp ;
longdisp -> plan | ! @ ;
plan "Don't show .plan / .project" -> "-p " ;

match "Options" -> matching | ! @ ;
matching "Users' real names" -> ! domatch | dontmatch ;
domatch "Match" -> "-M " ;
dontmatch "Don't match" -> "-m " ;

user "User name" -> @string ;

host "Hostname" -> ! localhost | foreign ;
localhost "localhost" -> " " ;
foreign "Foreign" -> "@" fhostname ;
fhostname -> @string ;
kaptain-0.73/examples/grep.kaptn0000640023433300116100000000402210120611343015374 0ustar  zsolteng#!/usr/bin/kaptain
#
# grep utility for Kaptain
# written by Bojan Kverh 28.9.2000

start "Grep" -> window buttons;

window -> alloptions word directory mask ;
grep -> show "grep " alloptions " -e \'" word "\' " directory mask "; echo; echo";

show -> upedge title author downedge banner;

upedge -> "echo; echo; echo '########################################################'; ";
downedge -> "echo '########################################################'; ";
title -> "echo '# Grep script for Kaptain                              #';";
author -> "echo '# Written by Bojan Kverh (bojank@amanda.fri.uni-lj.si) #'; ";
banner -> "echo; echo Grep results:; echo  -------------; echo; echo;";

word "Expression to look for:" -> @string;

directory "Start searching in directory (if non-null it should end with /):" -> @directory;
mask "Search in files:" -> @string="*";

alloptions :horizontal -> options others;

others -> interprete lines;

interprete :framed -> radiobuttons;

radiobuttons " Interprete expression as "-> basic | extended | fixed;
basic "basic regular expression" -> "-G ";
extended "extended regular expression" -> "-E ";
fixed "fixed string" -> "-F ";

options  -> addoptions printoptions;

addoptions :framed -> fr_addoptions;
fr_addoptions " Additional options " -> case number nonmatch;
number "Print leading line numbers" -> "-n " | "";
case "Ignore case" -> "-i " | ! "";
nonmatch "Invert matching expression" -> "-v " | ! "";

printoptions :framed -> print;
print " Print only " -> printlines | printnumber | printfiles | printinvertfiles;
printlines "whole lines containing expression" -> "";
printnumber "number of lines containing expression" -> "-c ";
printfiles "files containing expression" -> "-l ";
printinvertfiles "files not containing expression" -> "-L ";


lines :framed -> alllines;

alllines " Print additional lines " -> "-B"linesbefore " -A" linesafter " ";

linesbefore "Before the match:" -> @integer(0,100)=0;
linesafter "After the match:" -> @integer(0,100)=0;

buttons :horizontal -> @action(grep)="OK" @close="Cancel";
kaptain-0.73/examples/indent.kaptn0000640023433300116100000001536610120611342015734 0ustar  zsolteng#!/usr/bin/kaptain

start "Indent" -> settings usersel buttonbar;
settings :horizontal -> left files;
left :framed -> choice0 options;
files :framed -> files0;
files0 "Files" -> onefile morefiles output;
onefile :noeval -> thefile;
thefile -> " " @infile;
morefiles -> @container(onefile);
output "Work on one input file, with output file" -> thefile " -o " @outfile | !@;

choice0 "Coding style" -> kr | gnu | orig | profile |!user;
 realchoice -> " -kr" | " -gnu" | " -orig" | @ | usersel ;
 realchoice <- choice0;

 kr "Kernighan && Ritchie coding style" -> @;
 gnu "GNU coding style" -> @;
 orig "Original Berkeley" -> @;
 profile "User's profile" -> @;
 user "User defined" -> @;

options "Options" -> modify;
 modify "Preserve access and modification time" -> "-pmt" | @;

usersel:framed  -> usersel0;
usersel0 "User defined coding style" -> usersel1;
usersel1 :tree  :beside -> blank_lines comments statements declarations
  indentation breaklines;

buttonbar :horizontal -> @echo(command)="OK" writeprofile @close="Cancel";
 command -> "indent " options realchoice files;

writeprofile :dialog "Write profile" -> message yesno;
message :horizontal -> @icon("stop.png") text;
text "  Do you want to write settings to ~/.indent.pro ?" -> @;
yesno :horizontal -> @execclose(cattoprofile)="Yes" @close="No";
cattoprofile -> "echo '" usersel "' > $HOME/.indent.pro";

#--------------------------------------------------------------
statements -> st_brace_left st_cuddle_else st_space_after ;
 st_brace_left        -> " -bl" ! | " -br" ;
 st_cuddle_else       -> " -ce"   | ! " -nce";

 st_space_after -> st_space_special st_space_proc_call st_space_cast st_space_sizeof  st_space_parentheses ;
  st_space_special     -> " -ss"    | " -nss" ;
  st_space_proc_call   -> " -pcs" ! | " -npcs" ;
  st_space_cast        -> " -cs" !  | " -ncs" ;
  st_space_sizeof      -> " -bs"    | ! @ ;
  st_space_parentheses -> " -prs"   | ! " -nprs" ;

declarations -> dl_blank_comma dl_braces_struct dl_proc_line ;
 dl_blank_comma   -> " -bc"    | ! " -nbc" ;
 dl_braces_struct -> " -brs"   | ! " -bls" ;
 dl_proc_line     -> " -psl" ! | " -npsl" ;


comments -> cm_format cm_format_first cm_delims_blank cm_star_comment cm_right;
 cm_format       -> " -fca"  | ! " -nfca" ;
 cm_format_first -> " -fc1"  | ! " -nfc1" ;
 cm_delims_blank -> " -cdb"  | ! " -ncdb" ;
 cm_star_comment -> " -sc"   | ! " -nsc" ;
 cm_right -> cm_code_comment cm_decl_comment cm_prep_comment @fill;
  cm_code_comment -> " -c"  @integer=1   | ! @ ;
  cm_decl_comment -> " -cd" @integer=1   | ! @ ;
  cm_prep_comment -> " -cp" @integer=1 ! | @ ;

blank_lines -> bl_after_block_decl bl_after_proc_body bl_before_box_comment bl_swallow_optional ;
 bl_after_block_decl   -> " -bad"   | ! " -nbad" ;
 bl_after_proc_body    -> " -bap" ! | " -nbap" ;
 bl_before_box_comment -> " -bbb"   | ! @ ;
 bl_swallow_optional   -> " -sob"   | ! " -nsob" ;

indentation -> in_cont_par in_leave_pp  st_indent in_other;
 in_cont_par -> " -lp" ! | " -nlp" ;
 in_leave_pp -> " -lps"  | ! @ ;
 st_indent -> st_brace_indent st_cont_indent st_case_label_indent st_case_brace_indent st_paren_indent @fill;
  st_brace_indent      -> " -bli" @integer=2 ! | @ ;
  st_cont_indent       -> " -ci" @integer=2    | ! @ ;
  st_case_label_indent -> " -cli" @integer=2   | ! @ ;
  st_case_brace_indent -> " -cbi" @integer=0   | ! @ ;
  st_paren_indent      -> " -pi" @integer=1 | ! @ ;
 in_other -> in_level in_param in_brace in_tab_size dl_indent cm_line_comment_indent @fill;
  in_level    -> " -i" @integer=2  !  | @ ;
  in_param    -> " -ip" @integer=5 !  | " -nip" ;
  in_brace    -> " -sin" @integer=0   | ! @;
  in_tab_size -> " -ts" @integer=8    | ! @;
  dl_indent        -> " -di" @integer=2 ! | @;
  cm_line_comment_indent -> " -d" @integer=2 | ! @ ;

breaklines -> bl_bool_op bl_pref_nl bl_break_length;
 bl_break_length -> bl_line_length  cm_line_length @fill;
  bl_line_length -> " -l" @integer=78 | ! @;
  cm_line_length  -> " -lc" @integer=78 | ! @ ;
 bl_bool_op     -> " -bbo" ! | " -nbbo";
 bl_pref_nl     -> " -hnl" ! | " -nhnl";

#--------------------------------------------------------------

blank_lines :tree  = "Blank lines" ;
 bl_after_block_decl = "After block declaration";
 bl_after_proc_body  = "After procedure body" "" "" ;
 bl_before_box_comment = "Before boxed comments" ;
 bl_swallow_optional = "Swallow optional blank lines";

comments :tree = "Comments";
 cm_format = "Format comments" ;
  cm_format_first = "Format first column comments" ;
 cm_line_comment_indent :beside = "Line comment indention" ;
 cm_delims_blank = "Comment delimiters on blank lines" ;
 cm_right = "Comments right to ..." ;
 cm_code_comment :beside = "... the code in column"
  "Put comments to the right of the code in the given column." ;
 cm_decl_comment :beside = "... the declarations in column"
  "Put comments to the right of the declaration in the given column." ;
 cm_prep_comment :beside = "... the preprocessor in column"
  "Put comments to the right of the preprocessor statements in the given column." ;
 cm_star_comment = "Put * on the left of comments";

statements :tree = "Statements" ;
 st_brace_left = "Braces after the `if', `for', etc. lines" ;
 st_brace_indent :beside = "Indent braces" ;
 st_cuddle_else = "Cuddle up else and preceeding `}'" ;
 st_cont_indent :beside = "Continuation indentation of"  ;
 st_case_label_indent :beside = "Indent case labels by" ;
 st_case_brace_indent :beside = "Case brace indentation of" ;
 st_paren_indent :beside = "Extra indentation per open parentheses" ;
 st_space_after :tree = "Space after";
 st_space_special = "Single `for', `while' lines before `;'" ;
 st_space_proc_call = "Procedure calls" ;
 st_space_cast = "Cast" ;
 st_space_sizeof = "sizeof" ;
 st_space_parentheses = "parentheses (inside)" ;

declarations :tree = "Declarations" ;
 dl_indent :beside = "Variable indentation" "Put variables in column n" ;
 dl_blank_comma = "Newlines after commas" "Insert newlines after commas in declarations";
 dl_braces_struct = "Braces on struct declaration line" ;
 dl_proc_line = "Procname on a new line";

indentation :tree = "Indentation" ;
 in_level :beside = "Indentation level";
 in_cont_par = "Continued lines lined up at parentheses" ;
 in_leave_pp = "Leave space before preprocessor directives"
               "Leave space between `#' and preprocessor directives";
 in_param :beside = "Parameter indentation in old-style functions" ;
 in_brace :beside = "Braces of `enum', `struct', `union'";
 in_tab_size :beside = "Tab size" ;
 st_indent = "Statements...";
 in_other = "Others...";

breaklines :tree = "Break long lines" ;
 bl_break_length = "Line lengths..." ;
  bl_line_length :beside = "Maximum non-comment line length" ;
  cm_line_length :beside = "Maximum comment line length" ;
 bl_bool_op = "Break before boolean operators" ;
 bl_pref_nl = "Prefer break at newlines in the input";kaptain-0.73/examples/lameGUI.kaptn0000640023433300116100000005436110120611343015735 0ustar  zsolteng#!/usr/bin/kaptain
#
# lameGUI version 0.21 using kaptain grammer (C) 2000 by Jens Henrik Goebbert, goebbert@epost.de
# released under the GNU General Public License, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "LameGUI (Lame MP3 Encoder)"-> lame buttons;
lame :tabbed :reverse -> audio_options lame_options general;


#----------BASICS-----------
general "general"-> up_1 down_1;
 up_1 :horizontal -> left right;
  left :framed -> input;
   input  "input device"    ->  audio | file!;
    audio "direct recording"   -> " - ";
    file  "wav-file"           -> " "@infile("*.wav")="~/test.wav"" ";
   input_2 -> ao_up" | " | "";
   input_2 <- input;

  right :framed -> output konsole;                    
   output "output file"     -> " "@outfile("*.mp3")="~/test.mp3";
   konsole  "konsole"-> the_konsole;
    the_konsole "see all output" -> "konsole --caption LameGUI-Output --notoolbar --nohist --nowelcome --vt_sz 120x20 -e bash -c '" |@;
    the_konsole_2->";echo;echo finished ... will close in 3 sec;sleep 3 '"|"";
    the_konsole_2<-the_konsole;
 down_1 -> @;
#--------detailed BASICS description----------
output=""<
an existing file would be overwritten
END
;
audio="""you want to record from your soundcard directly";
file="""you want to convert a WAV file to an mp3";
down_1=< please send ideas and bugreports <----
END
;
#----------lame Options---------
lame_options  "lame options" -> l_up l_down;
 l_up :horizontal :framed-> l_fixed | l_variable;
  l_fixed "fixed bitrate"->l_fixed_2;
  l_fixed_2 :framed ->l_bitraten l_quality;
   l_bitraten :beside "bitrate"        -> " -b "@combo("32","40","48","56","64","80","96","112","128","160","192","224","256","320")=9" ";
   l_quality :horizontal "mp3 quality"    ->l_high | l_normal ! | l_low ;
    l_high "high"     -> " -h ";
    l_normal "normal" -> "";
    l_low "low"       -> " -f ";
  l_variable "variable bitrate" ->l_variable_2;
   l_variable_2 ->l_vb_up l_vb_down;
    l_vb_up :framed :horizontal->l_vb_min l_vb_max;
     l_vb_min :beside "min. bitrate"            -> " -b " @combo("32","40","48","56","64","80","96","112","128","160","192","224","256","320")=4" ";
     l_vb_max :beside "max. bitrate"            -> " -B " @combo("8","16","32","40","48","56","64","80","96","112","128","160","192","224","256","320")=16 " ";
    l_vb_down :horizontal -> l_vb_down_1 l_vb_down_2;
     l_vb_down_1 :framed -> l_vb_quality;
      l_vb_quality "VBR quality" ->" -V "@integer(0,9)=4" ";
     l_vb_down_2 :framed -> l_vbrheader;
      l_vbrheader "VBR header" -> l_vbrheader2;
       l_vbrheader2 "yes/no"-> " -t " | @;
 l_down -> l_forboth extras;
  l_forboth :horizontal-> l_sm l_resamplebox;
   l_sm :framed ->l_stereo_mono;
   l_stereo_mono :horizontal "encode in..." -> l_mono |l_stereo !| l_jointstereo | l_forcejoint;
    l_stereo "stereo"            -> " -m s ";
    l_mono   "mono"              -> " -m m ";
    l_jointstereo "joint stereo" -> " -m j ";
    l_forcejoint  "force joint stereo" ->" -m f ";
   l_resamplebox :framed -> l_resample;
    l_resample "resample to ..." ->l_rs;
    l_rs :beside -> " --resample " @combo("16","22.05","24","32","44.1","48")=5" " | @!;

#--------detailed lame options description----------------
l_fixed="""use a fixed bitrate which is faster to encode"< al_up al_down;
   al_up :framed -> al_options;
   al_options :horizontal -> al_left al_center al_right;
    al_left    ->  al_c al_o al_g  al_a  al_d al_ath al_abr al_preset al_e;
    al_center  ->  al_nores al_noshort al_F al_p  al_r al_S  al_x al_strict_ISO al_nohist;
    al_right   ->  al_filter  ;

     al_a           "downmix stereo file to mono"   -> " -a "         |@!;
     al_abr :beside "average bitrate encoding"      -> " -abr "@integer(4,310)=100       |@!;
     al_nohist      "disable histogram display"     ->" --nohist "|@!;
     al_nores       "disable bit reservoir"         ->" --nores "|@!;
     al_noshort     "disable short block frames"    ->" --noshort "|@!;
     al_o           "mark mp3 as copy"              ->" -o "|@!;
     al_p           "error protection"              ->" -p "|@!;
     al_preset :beside "use built in presets"       ->" --preset "@combo("phone","voice","fm","tape","hifi","cd","studio")=4" " |@!;
     al_r           "input file is raw pcm"         ->" -r "|@!;
     al_S           "silent operation"              ->" -S "|@!;
     al_strict_ISO  "strict ISO compliance"         ->" --strictly-enforce-ISO "|@!;
     al_x           "swapbytes"                     ->" -x "|@!;
     al_c           "copyright"                     -> " -c "         |@!;
     al_d           "block type control"            -> " -d "|@!;
     al_e :beside   "de-emphasis"                   -> " -e "@combo("n","5","c")" "|@!;
     al_F           "strictly enforce the -b option"-> " -F "         |@!;
     al_g           "graphical frame analyser"      -> " -g "         |@!;

     al_filter :framed                              ->al_filter_2;
      al_filter_2 "Bandwidth settings..."           -> al_filter_default | al_filter_manual | al_k;
       al_filter_default "default settings"         -> "";
       al_filter_manual "manual filter settings"                 -> al_highpasstext al_lowpasstext;
       al_k           "full bandwidth"              ->" -k ";
        al_highpasstext :framed                     -> al_high;
         al_high "highpass"                         ->al_highpass al_highpass_width;
          al_highpass       :beside "filtering frequency in kHz"     ->" --highpass "@integer(0,20)=0" "|@!;
          al_highpass_width :beside "width of filtering in kHz"      ->" --highpass-width "@integer(0,20)=0" "|@!;
        al_lowpasstext :framed                      ->al_low;
         al_low "lowpass"                           -> al_lowpass al_lowpass_width;
          al_lowpass        :beside "filtering frequency in kHz"     ->" --lowpass " @integer(0,20)=20|@!;
          al_lowpass_width  :beside "width of filtering in kHz"      ->" --lowpass-width " @integer(0,20)=20" "|@!;

     al_ath         "ATH options ..."               -> al_ath2 |@!;
      al_ath2 :horizontal                           -> al_athonly | al_noath;
       al_athonly     "only ATH"                    -> " -athonly ";
       al_noath       "no ATH"                      -> " --noath ";

#al_mp3input
#al_decode
#al_disptime
#al_comp        "choose sompression ratio"      -> " --comp "     |@!;
#al_freeformat  "free format bitstream"         -> " --freeformat " |@!;

al_down -> @close="OK";

#-------------detailed description of advanced lame options ------------
al_filter_default="""Lame uses his default filter settings";
al_filter_manual="""You can set up your own filter settings here";
al_a="" "Mix the stereo input file to mono and encode as mono.(only for PCM input)" < ATH";

al_athonly="" "This option causes LAME to ignore the output of the psy-model and only use masking from the ATH" < ao_up ao_down;
 ao_up :horizontal :framed ->ao_arecord | ao_user;
 ao_arecord "use 'arecord'" -> ao_sample_fr;
  ao_sample_fr :framed -> ao_sample ao_stereo_mono;
   ao_sample "record from soundcard with ..."-> ao_dsp | ao_cd ! ;
    ao_cd  "cd quality  (44100Hz - 16-bit)"->"arecord -w  -m ";
    ao_dsp "dat quality (48000Hz - 16-bit)"->"arecord -w  -M ";
   ao_stereo_mono :horizontal "record from soundcard with..." -> ao_stereo | ao_mono ;
    ao_stereo "stereo" -> " -S ";
    ao_mono   "mono"   -> "";
  ao_user "use manual settings" -> ao_up_right;
  ao_up_right :framed ->ao_direct;
   ao_direct :beside  ->ao_manual ao_manual_text;
     ao_manual->@string="arecord -w -m ";
     ao_manual_text->@text(< ao_channel;
  ao_channel  -> @action("kmix")="select input channel";

#---------------detailed audio options description------------

ao_cd="" < mp3_buttons gui_buttons;
 gui_buttons "LameGUI" -> @exec("rm -f ~/.lameGUI.pid")="exit";
 mp3_buttons :horizontal "encoding" -> ba_start ba_preview ba_stop;
  ba_start  ->@action(encode)="start";
  ba_preview->@preview(encode)="preview";
  ba_stop   ->@action(stopit)="stop";

encode ->the_konsole input_2  " lame "l_stereo_mono l_resample l_up al_up input output the_konsole_2 " & echo $! > ~/.lameGUI.pid";
stopit -> "kill $(cat ~/.lameGUI.pid) & echo recording stopped";
#---------------detailed button-and-action description-------------
ba_start=""< avoid pressing twice on the start button
because that will start another prozess, which
can only be stopped manuelly (with "ps -x" and "kill ...")
END
;
ba_preview=""< @;

start "List Short" -> descr ecommand buttons;

descr -> @text (
"GUI interface to the famous `ls' (list short) command."
);
ecommand -> "e_cmd () { echo \"cmd # $1\"; eval \"$1\"; }; e_cmd '" command "'";

command -> "ls" args;

args -> scope fformat forder fmoreargs;

scope :horizontal :framed -> hidden recursion;

hidden "Hidden files" "Show files starting with a period" -> all | almostall | !nohidden;
all "all" "Do not hide entries starting with ." -> " -a";
almostall "almost all" "Do not list implied . and .." -> " -A";
nohidden "no hidden files" "Do not show hidden files" -> @;

recursion "Recursion" -> recurse | !norecurse | nodirs;
recurse  "Recurse" "Recurse into subdirectories" -> " -R";
norecurse "Normal" "Do not recurse into subdirectories" -> @;
nodirs "Directory entries" "List directory entries instead of contents" -> " -d";

fformat :framed -> format;
format :horizontal "Format" -> col type;

col :horizontal -> single | long | ! columns;
single "Single" "Single column output" -> " -1";
long "Long" "Long listing format" -> " -l";
columns "Columns" "Standard multi-column format" -> @;

type "Classify" "Append indicator (one of */=@|) to entries" -> " -F"| @;

forder :framed -> order;
order :double "Order" -> time | extension | version | size | !none | filesys;
extension "Extension" -> " --sort=extension";
size "Size" -> " --sort=size";
filesys "File system" -> " --sort=none";
time "Time" -> " --sort=time";
version "Version" -> " --sort=version";
none "Name" -> @;

fmoreargs :framed -> moreargs;
moreargs "Arguments" -> useargs;

useargs :horizontal "Use" -> !@ | " " @string="${KAPTAIN_SCRIPT_ARGS}";


buttons:horizontal -> @echo( command )="Echo" @action(ecommand)="Do it!" @close="Dismiss" help;


help :dialog "Help" -> @edit( "courier", 500, 400 )=`mf () { sed 's,.,,g;'; }; PAGER=cat man ls | mf` @close="OK";

#help :dialog "Help" -> @edit("courier")=`ls --help` @close="OK";
#help :dialog "Help" -> @text( `ls --help` ) @close="OK";

# Local Variables:
# mode: perl
# End:
kaptain-0.73/examples/mpage.kaptn0000640023433300116100000001646010120611342015540 0ustar  zsolteng#!/usr/bin/kaptain
########################################################################
#
#    Kaptain grammar for mpage
#
#    Version 0.9 by Javier O'Hara 
#
########################################################################

start "Mpage" -> mpage buttons;
mpage :tabbed -> "mpage " paper " " margins headers misc range " " io about;

########################################################################
# Paper settings
########################################################################
paper "Paper" -> papersize " " scale orientation twoside;
papersize :beside "Paper Size" -> "-b" @combo("A4","Legal","Letter") ;
orientation :framed -> pageorientation direction;
pageorientation :horizontal "Page Orientation" -> ! portrait | landscape;
portrait "Portrait" -> "";
landscape "Landscape" -> " -l";
scale :beside "Pages per sheet" -> "-" @combo("1","2","4","8")=3 ;
direction :horizontal "Run pages" -> ! updown | leftright ;
updown "Up-Down" -> "" ;
leftright "Left-Right" -> " -a";
twoside "Two side printing" -> @ | " -t" tumble;
tumble "Tumble on second pages" -> @ | " -T";

########################################################################
# Margins
########################################################################
margins :framed "Margins" -> sheetmargins " " logicalmargins " " textboxmargins;
sheetmargins :horizontal "Sheet Margins" -> "-m" topsmargin leftsmargin rightsmargin bottomsmargin;
topsmargin    :beside "Top"    -> @integer(-1000,1000)=20 "t";
leftsmargin   :beside "Left"   -> @integer(-1000,1000)=20 "l";
rightsmargin  :beside "Right"  -> @integer(-1000,1000)=20 "r";
bottomsmargin :beside "Bottom" -> @integer(-1000,1000)=20 "b";
logicalmargins :horizontal "Logical Page Margins" -> "-M" toplmargin leftlmargin rightlmargin bottomlmargin;
toplmargin    :beside "Top"    -> @integer(-1000,1000)=8 "t";
leftlmargin   :beside "Left"   -> @integer(-1000,1000)=8 "l";
rightlmargin  :beside "Right"  -> @integer(-1000,1000)=8 "r";
bottomlmargin :beside "Bottom" -> @integer(-1000,1000)=8 "b";
textboxmargins :horizontal "Text Box Margins" -> "-B" toptmargin lefttmargin righttmargin bottomtmargin;
toptmargin    :beside "Top"    -> @integer=0 "t";
lefttmargin   :beside "Left"   -> @integer=0 "l";
righttmargin  :beside "Right"  -> @integer=0 "r";
bottomtmargin :beside "Bottom" -> @integer=0 "b";

########################################################################
# Misc
########################################################################
misc :framed "Misc" -> miscoptions;
miscoptions "Misc" -> outlines force tabstop indent lines width fold;
outlines "Page outlines" -> ! yesoutlines | nooutlines ;
yesoutlines -> "" ;
nooutlines -> " -o";
fold "Fold lines longer than page width" -> @ | " -f";
force "Force input to" -> @ | " -d" forced;
forced :horizontal -> ascii | postscript;
ascii "ASCII" -> "a";
postscript "Postscript" -> "p";
lines :beside "Lines to fit in a page" -> @ | " -L" @integer(0,1000);
width :beside "Width of lines to fit in a page" -> @ | " -W" @integer(0,1000);
indent :beside "Indent text by" -> @ | " -I" @integer(0,1000);
tabstop :beside "Tab Stop length" -> " -s" @integer(2,1000)=8;

########################################################################
# Page range
########################################################################
range "Range" -> pagerange reverse leftrightmode;
pagerange -> all | userdefined;
all "Print all pages" -> "";
userdefined  "User defined" -> " -j" first last interval ;
first :beside "First" -> @integer = 1;
last :beside "Last" -> @ | "-" @integer = 1;
interval :beside "Interval" -> @ | "%" @integer = 1;
reverse "Reverse pages" -> @ | " -r";
leftrightmode "Left-to-Right mode" -> @ | " -R";


########################################################################
# Headers
########################################################################
headers "Headers" -> header physicalheader;
header "Logical Page Header" -> @ | " -H" headercontent;
headercontent "Content" -> @ | " -h" @string;
physicalheader "Physical Page Header" -> @ | " -X " @string;

########################################################################
# Input/Output
########################################################################
io :reverse :framed "I/O" -> "-P" output " " inputfile;
inputfile "Input File" -> @infile("*.ps");
output "Output" -> stdout | printer ;
stdout "Standard Output" -> "-";
printer "Printer" -> defaultprinter | otherprinter;
defaultprinter "Default" -> "";
otherprinter "Other" -> @combo(`ls /dev/lp*`);

########################################################################
# About
########################################################################
about "About" -> @text("Kaptain grammar for mpage.\n\nVersion 0.9 by Javier O'Hara \n\nThe tooltip text was taken from the original mpage manual.\n\nmpage is (c) Mark P. Hahn and Marcel Mol.") ;

buttons :horizontal -> @action(mpage)="Go" @preview(mpage)="Preview command" @close="Quit";

leftrightmode="" "Switch to left to right mode, starting first page on left bottom corner.\nThis might be useful for landscape postscript files.";
outlines="" "Toggle printing of outlines around each reduced page.";
reverse="" "Reverse printing. The last sheet is printed first. The way of arranging\nreduced pages on the sheets doesn't change.";
twoside="" "Toggle printing on both sides of the paper. This will toggle duplex mode of the printer.\nUse this option only if your printer is capable of printing in duplex mode.";
tumble="" "Toggle tumble of every second pages when printing in duplex mode.";
force="" " Force input to be taken as ascii or postscript text. This way you can print your postscript\n code as text, or print postscript code that mpage does not recognise. When using postscript,\n make sure that the the postscript code contains %Page page separators or else things will\n probably look odd.";
papersize="" " Prepare output for selected paper size. Papersize can be A4 for European A4,\n Letter for US Letter or Legal for Legal sized paper.";
leftright="" "Toggle layout of the pages on the sheet so that successively numbered pages\n run right the sheet, as opposed to up to down.";
updown="" " Toggle layout of the pages on the sheet so that successively numbered pages\n run down the sheet, as opposed to left to right.";
portrait="" "Toggle printing landscape or portrait mode. Landscape pages are 55\n lines long by 132 characters wide by default. Portrait pages are\n66 lines long by 80 characters wide by default.";
landscape="" "Toggle printing landscape or portrait mode. Landscape pages are 55\n lines long by 132 characters wide by default. Portrait pages are\n66 lines long by 80 characters wide by default.";
header="" "Create header line for each logical page separated from page text\nby  a  horizontal  line. Unless a value is given, the header consist\nof last file changetime, filename and page number, all in bold and\nslightly larger font. This option only applies to non-postscript files.";
physicalheader="" "Print header centered on each physical page (sheet). If no\nheader is given, the default is the current filename on the left\nand the page number on the right.";
width="" "Adjust the page reduction parameters so that a line width characters\nlong will fit in the space of one page. This overrides the default\nzzzzzzzzvalues normally supplied.";
kaptain-0.73/examples/nslookup.kaptn0000640023433300116100000000664610120611342016326 0ustar  zsolteng#!/usr/bin/kaptain
#
# nslookup grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "nslookup" -> ui buttons ;
ui :framed -> options server hosttofind ;
buttons:horizontal -> @action(command)="OK" @button(qopt)="Query options" @close="Cancel";

command -> "nslookup " options qoptions hosttofind " " server ;

options :horizontal "Options" -> opt1 opt2 ;
opt1 -> domain defname search port recurse ;
opt2 -> retries root timeout ignoretc vc debugmode ;
qopt "Query options" -> qoptions @close="OK" ;
qoptions :framed -> selectclass querytype ;

selectclass "Query class" -> in | chaos | hesiod | ! classany ;
in "Internet" -> "-class=in " ;
chaos "Chaos" -> "-class=chaos " ;
hesiod "MIT Athena Hesiod" -> "-class=hesiod " ;
classany "Any" -> "-class=any " ;

debugmode -> enabledebug | ! @ ;
enabledebug "Enable debugging" -> ! normaldebug | alldebug ;
normaldebug "Standard debug output" -> "-debug " ;
alldebug "Exhaustive debug output" -> "-debug -d2 " ;

domain -> domains | ! @ ;
domains "Default domain names" -> ! setdomain | searchlist ;
setdomain "Set default domain name only" -> "-domain=" domainname " " ;
domainname -> @string ;
searchlist "Set default domain name and searchlist" -> "-srchlist=" srchlist " " ;
srchlist -> @string="name1/.../name6" ;

defname -> nodefname | ! @ ;
nodefname "Don't append default domain name to single-component lookup request" -> "-nodefname " ;

search -> nosearch | ! @ ;
nosearch "Never append domain names from domain search list" -> "-nosearch" ;

port -> setport | ! @ ;
setport "Use TCP/UDP port" -> "-port=" porttouse " ";
porttouse -> @integer=53 ;

querytype "Query for" -> a | cname | hinfo | minfo | mx | ns | ptr | soa | txt | uinfo | wks | ! any | axfr | mb | md | mf | null ;
a "Internet address" -> "-type=a " ;
cname "Canonical name for an alias" -> "-type=cname " ;
hinfo "CPU and OS type" -> "-type=hinfo " ;
minfo "Mailbox or mail list information" -> "-type=minfo " ;
mx "Mail exchanger" -> "-type=mx " ;
ns "Name server for the named zone" -> "-type=ns " ;
ptr "Host name/other information" -> "-type=ptr " ;
soa "State of Authority" -> "-type=soa " ;
txt "Text information" -> "-type=txt " ;
uinfo "User information" -> "-type=uinfo " ;
wks "Well-known Services supported" -> "-type=wks " ;
any "Any" -> "-type=any " ;
axfr "AXFR (cf. RFC 1035)" -> "-type=axfr " ;
mb "MB (cf. RFC 1035)" -> "-type=mb " ;
md "MD (cf. RFC 1035)" -> "-type=md " ;
mf "MF (cf. RFC 1035)" -> "-type=mf " ;
null "NULL (cf. RFC 1035)" -> "-type=null " ;

recurse -> norecurse | ! @ ;
norecurse "Instruct name server not to query other servers" -> "-norecurse " ;

retries -> setretries | ! @ ;
setretries "Set number of retries" -> "-retry=" numberofretries " " ;
numberofretries -> @integer=4 ;

root -> setroot | ! @ ;
setroot "Change the name of the root server" -> "-root=" roothost " " ;
roothost -> @string="ns.internic.net" ;

timeout -> settimeout | ! @ ;
settimeout "Set timeout interval to ___ seconds" -> "-timeout=" timeoutsec " " ;
timeoutsec -> @integer=5 ;

vc -> virtualcircuit | ! @ ;
virtualcircuit "Always use virtual circuit when sending requests" -> "-vc " ;

ignoretc -> doignoretc | ! @ ;
doignoretc "Ignore packet truncation errors" -> "-ignoretc " ;

hosttofind "Host to look for" -> @string ;

server "Server" -> setserver | ! @ ;
setserver "Specify server to use" -> "-" servername ;
servername -> @string ; 
kaptain-0.73/examples/open.kaptn0000640023433300116100000000111610120611342015400 0ustar  zsolteng#!/usr/bin/kaptain
#
# open site using xterm grammer (C) 2000 by Jeffrey Johnson, johjeff@nortelnetworks.com
# released under the GNU General Public License, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "Site Connect" -> commandx buttons;
buttons:horizontal -> @action(commandx)="GO!" @close="Cancel";

commandx :framed -> "xterm -geometry 100x5+0+0 -e ""rexec " HOSTNAME " -l " UNAME PASSWORD " 'export DISPLAY=w8pph00m:0.0;xterm -name `uname -n`'" ;

UNAME "Login Name: " -> @string ;
HOSTNAME "Connect To Host: " -> @string ;
PASSWORD "Enter Your Password: " -> @password ;
kaptain-0.73/examples/ping.kaptn0000640023433300116100000000464210120611343015404 0ustar  zsolteng#!/usr/bin/kaptain
#
# ping grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#
start "Ping" -> command buttons ;

buttons :horizontal -> @action(command)="OK" @close="Cancel" ;
command :framed -> "ping " opt outp type host ;

opt :framed :horizontal "Ping options" -> opt1 opt2 ;

opt1 "Options" -> coun dontfrag sodeb interf pre num pad ; 
opt2 "More options" -> recroute noroute packsize tos ttl maxwai noloo ;

outp "Output" -> output | ! @ ;
output "Specify output type" -> ! verbose | quiet ;

verbose "Verbose" -> "-v " ;
quiet "Quiet" -> "-q " ;

type "Ping type" -> flood | wait | !normal ;

coun -> count | ! @ ;
count "Maximum # of packets to transmit" -> "-c " countcount " ";
countcount -> @integer=10 ;

dontfrag -> dontfragment | ! @ ;
dontfragment "Don't fragment packets" -> "-D " ;

sodeb -> sodebug | ! @ ;
sodebug "Set SO_DEBUG on the socket used" -> "-d " ;

interf -> interface | ! @ ;
interface "Specify interface address to use" -> "-I " ifaddr " ";
ifaddr -> @string ;

pre -> preload | ! @ ;
preload "# of packets to spew out as fast as possible (root only)" -> "-l " preloadcount " " ;
preloadcount -> @integer ;

num -> numeric | ! @ ;
numeric "Don't look up hostnames" -> "-n " ;

pad -> padding | ! @ ;
padding "Specify pad bytes (up to 16)" -> "-p " padpattern " " ;
padpattern -> @string="ff" ;

recroute -> recordroute | ! @ ;
recordroute "Try to record route (may not work!)" -> "-R " ;

noroute -> norouting | ! @ ;
norouting "Bypass routing tables (works only on directly-attached networks!" -> "-r " ;

packsize -> packetsize | ! @ ;
packetsize "Specify number of data bytes in ICMP packet" -> "-s " packetbytes " " ;
packetbytes -> @integer=56  ;

tos -> typeos | ! @ ;
typeos "Specify type of service" -> "-T " typeofservice " " ;
typeofservice -> @integer ;

ttl -> timetl | ! @ ;
timetl "Specify time-to-live" -> "-t " timetolive " " ;
timetolive -> @integer=30 ;

maxwai -> maxwait | ! @ ;
maxwait "Specify # of seconds to wait for response to a packet" -> "-w " maxwaittime " " ;
maxwaittime -> @integer=10 ;

noloo -> noloop | ! @ ;
noloop "Disable loopback for multicast pings" -> "-L " ;

flood "Flood ping (root only)" -> "-f " ;

wait "Send individual packets with specified delay" -> "-i " waitsec ;
waitsec "# of seconds to wait" -> @integer=5 ;

normal "Normal ping" -> " " ;

host "Address to ping" -> @string ;
kaptain-0.73/examples/povray.kaptn0000640023433300116100000000232410120611342015761 0ustar  zsolteng#!/usr/bin/kaptain
#
# Desc:   PoV-Ray frontend script
# Cration Date: 2001.12.29.
# Author: Fabian Zoltan 
# e-mail: dzooli@freemail.hu
#
# Remarks: This is my first kaptain script
#

# Main dialog
start -> "x-povray " ini input q_options options other_options resolution buttons ;

ini "INI file:" -> @infile("*.ini");
input "Filename:" -> " -i"@infile("*.pov");

q_options:horizontal:framed -> quality buffsize use_aa;
quality "Image quality:" -> " +Q" @integer(0,9) = 9;
buffsize "Buffer size: " -> " +B" @integer(128,1024) = 128;
use_aa "Antialiasing: " -> " +A" @float = "0.0";

options:horizontal:framed -> pause alias disp;
alias "No Adaptive AA" -> " +AM1" | " +AM2";
pause "Pause when done" -> " +P" | " -P";
disp  "Displaying" -> " +D" | " -D";

other_options:horizontal:framed -> tabort verbose;
tabort "Test abort" -> " +X" | "-X";
verbose "Verbose output" -> " +V" | "-V";

resolution:horizontal:framed  -> xresolution yresolution;
xresolution "Horizontal image size:" -> " -w" @list("160","320","512","640","720","800","1024") = 2;
yresolution "Vertical image size:" -> " -h"   @list("120","240","384","480","576","600","768") = 2; 

buttons:horizontal -> @action(start)="Start" @close="Quit" @preview(start)="Preview";

kaptain-0.73/examples/procmail.kaptn0000640023433300116100000001013410120611343016246 0ustar  zsolteng#!/usr/bin/kaptain
start :wizard "Procmail" ->  intro setup finish;
intro "Hi,"-> intro1 intro2;
intro1 :horizontal -> text1 introa;
text1 -> @text("This is a graphical front-end for creating procmail\
configuration files made using Kaptain, the Universal graphical front-end.");
intro2 "" -> @;
introa "" -> maildir lockfile @fill;
 maildir "Mail Directory" -> "\nMAILDIR=" @directory="$HOME";
 lockfile "Lock file" -> "\nLOCKFILE=" @string | @!;

finish :horizontal "Finish" -> text3 other_settings;
text3 -> @text("Now press the Preview button to see the settings you have made.\
Don't forget to press Write button in order to save the setting in the given file.");

other_settings -> filename @fill @preview(allfile)="Preview" @action(writetofile)="Write";
writetofile-> "echo '" allfile "' > " filename ;
filename -> @outfile="$HOME/.procmailrc";

setup :horizontal "Settings" -> recipe container;
recipe :framed -> flags regexp action;

flags :horizontal "Recipe" -> these_flags | !more_flags ;
  these_flags :beside -> ":0 " @string;
  more_flags :beside -> ":0 " more_flags0;
regexp :horizontal "Delivery condition" -> this_regexp | !more_regexp;
  this_regexp :beside -> "* " @string "\n";
  more_regexp :beside -> more_regexp0;
action "Action" -> folder | forward | execute;
  folder "Append to mailbox" -> @infile="inbox";
  forward "Forward to" -> "! " @string;
  execute "Feed to stdin of command" -> "| " @string;

container :framed -> container0 ;
container0  "Procmail rules" -> @container(procmailline);
    procmailline -> "\n" flags "\n" regexp_choices action "\n";
regexp_choices -> this_regexp | regexps;
regexp_choices <- regexp;

allfile -> "#This file was created by Kaptain" maildir lockfile "\n" container "\n#end\n" ;
#buttons -> @echo(container)="OK";

more_regexp0 :dialog "More..." -> more_top more_buttons;
more_buttons -> @close="Ok";
more_top :horizontal :framed  -> choice regexps ;
  choice  "Select condition"-> exactregexp | fieldcont!;
    exactregexp "Regular expression" -> @string;
    fieldcont :beside :horizontal-> "^" which "[: ][. ]*" what;
    which :beside "Field" ->  @combow("From","Subject","To","Reply-to");
    what :beside "contains"  -> @string;
#    subjcont "Subj field contains" -> "^Subject[: ][. ]*" @string;
  regexps "Conditions so far"-> @container(regexpline);
      regexpline -> "* " choice "\n";

more_flags0 :dialog "Flags..." -> flags_top flags_buttons;
flags_buttons -> @close="OK";
flags_top :horizontal :framed  -> options;# extras;
# extras "Extras" -> @;
 options "Options"
  -> header body condA conda condE conde feedh feedb;
  header "Egrep the header" -> "H"! | @;
  body "Egrep the body" -> "B" | !@;
  case "Case sensitive" -> "D" | !@;
  condA  -> "A" | !@;
  conda  -> "a" | !@;
  condE  -> "E" | !@;
  conde  -> "e" | !@;
  feedh  -> "h"! | @;
  feedb  -> "b"! | @;


condA = "If last matched" "Match if the last preceding condition matched" "This  recipe  will  not  be executed unless the conditions on the last preceding recipe (on the current\
block-nesting level) without the `A' or `a' flag matched as well.  This allows  you  to  chain  actions \
that depend on a common condition.";

conda = "If last was succesfull" "Match if last recipe action was succesfully completed"
"Has  the  same  meaning  as  the `A' flag, with the additional condition that the immediately preceding \
recipe must have been successfully completed before this recipe is executed.";

condE = "If last didn't match" "Match if last recipe was not executed"
"This recipe only executes if the immediately preceding recipe was  not  executed.   Execution  of  this \
recipe  also  disables any immediately following recipes with the 'E' flag.  This allows you to specify \
`else if' actions." ;

conde = "If last failed" "Match if last recipe action failed"
"This recipe only executes if the  immediately  preceding  recipe  failed  (i.e.  the  action  line  was \
attempted, but resulted in an error)." ;

feedh = "Feed the header" "Feed the header to action"
"Feed the header to the pipe, file or mail destination.";

feedb = "Feed the body" "Feed the body to action"
"Feed the body to the pipe, file or mail destination.";
kaptain-0.73/examples/puf.tgz0000640023433300116100000005653110120611342014733 0ustar  zsoltengHZ=P/%(3IQI*"9383s9HNJΒ$=G<}z_}Un{Wګ
Xs{w}v{Ӈl,,G=|>@r!ȽDJ"/sH71a`h3eքi:0f$Kt@tP@6`PX(1CA4H`p
#,BH(46`KFH-ՅA0042@5!bpM@1C
FL;DBpc`2wˏ!1OP,62AP=!D2'#(C`6 0?8рAaj!Z䩄"DS	E.ŒaHpC愆"fsgB@|b2 2_HJCBJ?{*
|!X6^9`U!0SVChAt0@01	ZeB'b3D@!rA$
1AFj23BY!Py5@õtS{,N
x#=ji0ܗFLZ6~vOzp&Ѐfrp?uQH|w8	
^w-@<#0/#-o4GPxv[WS꿉H@ɿ#%kZ
,
:"$#.[_A9ZZ?Ln
iL@FD
P /ChtE94A-PZO@Hޢ~A%&
GJoR㏇D;wj#"G~?ǣ~*RT^k.H|?pxX^/X(G,Z0S$8+K\6@xj~0X<.p 
X}F$B{$Q5Aq`1QgAB2C,A 0@h#O~	
H)R31_Hf֒x?uPA
V꿂[\WIC(sH}rFߝ_z'@1
affc0ﻸa*f	8ߑ+wnd9~jj`/:l,?}W@0aHO҇Im?!`6@
_&(wƧ@>D'EKKWp4 DB(S\`njjvBb~k3Is%Z 7&,	~OgA:䯰0m x#~X, }
*3.
D ]B@XKпJ5ր Wk`$HB*wWx	~(}#CqOO4QZ ~)T;4	D	߁ZgQ+p#>@X!kam0L(b
Z`h?m?l^?A0?%@~"Z	Kc_|5)if82dvh2imo|\ p/L2	jNP40 ?O}(4V`txpLfCk~qÞ7x>A%13z&4Lc
aߍoa0ߥsqoAhUX(Zy˽A##jo;V>0yq燉DA07iGT84/0|Ef8xLGouKV{`yx=@@j1A

A=jKB` /9Io601/0|0	btgO
'b((	.οO9`@D#QioW|-@^>yy&)y&$"\o6ϵ'r,~6!p߫~K"qSx1!6BB`(`IxgS$
Rotx0ZM-:ji";H~'y~'~c@?9;
fƚ;x:9܇Aь/?&oLԉ_jDȏ|P}`ARCx苋2hPc=ŋeBBB%,EE3--lll^|bff&$VVQJJQTJ
kjZYX<...<=QacAAϟnll	YX~evvU-`*&699c	.(844t
xWWWuDpMMpii?nnnvv\fffubb)){	@eoGkZy:99ŠP|h4FFŋ7fڲR6V222~~		o߾)zkjfZ[
rpp=TW+ЕIH؈uww[755]rEZODTJ\DZ.ETHCV(1//2PGNl/_&vpwvpsy#+(,*.)-+zW]SCgW
zz#c'gfWolnm=};rYщSTy0:wzC9q
mDgB)ҩ*M	-A4ÅEؿB%uD=q &"QH΍Y
/!-_1NֵD\C7vަy/g9B(S5ɉ1TIU6ܴ/H>"8s3`pDDz%:WM\$سk
Oȋ&6K.F}p\ltWfFLBfBֻS﯄EBnL]k$I+jYq'sMUȩKˤyaO~Fk\*ܳNT9݉/wv؞{N	ȼo[42暶rZ2+y.T%{A曭'k_v#$m=~UpzQ0wȘk38_a7Yb+"07$O7d$\>zXFe9ͱO!_9=Y7ʝq/\(ܨjC=6A'fͧ--d7(=ݖGEn'<=fl)]=JB:tgZǦm6Blh{1?`Td@N7XҶY9k)I'J~3)B"]޽Ѧ4#VI>":yMoKIswFqg"77SDxceDptXPɹH4L{u6M!SA3i*3"mijͽ{Yg_UvO׸Wy%G'NçSr,m-[yg3tEB3Eod{f tD*t&-#{[Ef:Mo7gZ9K>xfbD當K2T&f6nϊgml-yfYΈ
lWeY-nW!ɶ=-6vrdsjN_^U*Ԑg;k!$9.bHɷN\1Ib#|дReIhqORS6
I0Np?aOWmVh
dmyEg9|O7/?CV
,,̬YlbK$_uJ5)QYݔY{=	m
;^{`{U"kV&wL,]}s`ŲeYo^:e3Vk|#b6ca}U6*Hiz[_

MiSF4v"b;ԤBM]<QNNtn[*&;5:Z\uquQ*rꑳ۱;jj$he@d`(Wa+ɚ"ء!tS̬eWi,9[>d]]@7n*}}8_!FO7FYg{ג{ʓ>]i])Sq`h!brbkuwFY3/dGF}`c%>,W}W	l}Kjdz}ktq4oL$)#%pt"׻VtхÑap)0,c?_bK-swFe&Qk,ޔZddd~k=^%74/??,]<,F*Mr~4A3Qk^EHe,VIS'p&aD铌J,Qng(%MT!Ҭ6˙Ҷ\v9YO$%4^;1š9%3f:Ib|u@J|ijޫD\shHٞl{_A@@ZRihjI%24(ݻT*3wui
33p!ش:;2_LK2f[j'|827_>3r*lS~Òfqdf!-	²ʲfgEs+r@zGַRg%gisirrssQXhr%gqfge/$K-	2(yK)sڑdvSHeg-sˇvPSltlLg̤Z!Hw\Br1|H^Y~{ ̭,C__VYN@qEiEiSŁii~-i\ei[nee)i%)e2Jr˔ەˆȋ:++Z
V *-"k*ZJU+g+*uS˿XTIWT
.TWMTٺnV|JU݁~w^	aբ$gIŌΤ|
ÅUCґ)gR.j}M^v*^zͅKܕ{k9kO!-jpI{^|&gF{C$ɩhH{p_cYVUl|RR<]^OX7_#Z^|j0-o|eQ^~Fq_ҲqDZѾMk/]xX_xӺlS{SצgbtOjk2\hn<9?^h#Gz˻3)-ŔuC*Mgr۸p-]%{ڰ9րRۏ2bt4fUL$,Z)Әk~hj_LV]\l_Ձ1֎KOLV9SֱX9dM%5-	;udo:c?vwtSʄStKwOY?W*W͙_Wиc{kWRGc֏f#ݻgJ>q[U5u!]C4K>ܳ y6u@D	<8_v|U]DAc^*}7]u=u-DCt>[`+g^I\^HE劁~O]]_?i-9-!I.͵ALӰ"AsRmLh3?-[- $q̠mA'j4tb(c)쇍YX[YL#TBgmz3f<ziݤ5̭(R-aCpãƂ&qQGN0Vc1\$>6m1NS0V3~[PW$bP0sOOתd[ۘXmJigW;}d{ˠOj⟮_4Wy5(bD"beFŖ>	dgξhA
OULV(@4ukrƨ%2Ed|38p*ed:}yy~B°܋uI&mkp8ʡ^~ o[A\n#rr:CeHZ
uzyy]be%eʗȕqʕ\ė%"ɖM+QrmfJ2QgVHY>;![4Zuݾ8,kczͫwFR}2A5wDbS9ã;񚐺UnámJzU{^io)Wnhm=|V]),O
5Y:-?_[޶iyoXX|wڶcMhf6GǶdhx\3u#ԡmoސAnd/<˟`P5pws:Z:ymՈgwLOǔ#mGk[f2OGZ㴿~:-ZP;go6
[޻!k\7C@FHXL=ybm~nT̎cnYNTY=,ep0?d[j(3טxU
Z<5UCK"3+GX5,G2:FW3TE#1JjtIK]/Q0>f7lΎm|{K4>GL1u!P5/)kn`yH+pdxpI4MM&IX?_'G%dqBtv4@;{H1GXb
^:Wa<|u5'ܧ¹p3aҕˬr.'z.bЃͨwx]6eCS11MʋxX͕b^޲`͹Ǖ_w7W94&6RRS͋:u=s+3ȧ:gB\in^zAͥHd˄3uI%K_kn"	IE^7,DTq5 s-?Xiʃ5g3=%PkEGcz[îiߒӉ4d#ԍܞ2طV-*İ>mjZ;t	oo'9o'%%%FgV?BNǣdutJR2QF;2;^nYam(ϗ#--K󂒴O|5ʴȲ{DSrCڕu;Q;5ta16eZ!T8S]_Cη071SUeWgEJk[oQIOQ}Kkrb3Vlă\7>Vn-Qf[]^zAɪ&C+?|`}9x05Jz:Z+
W4`2+i}mޅ#|36#1ω߯m9%j^|FA rYm\V/5&e*.U/,C/~ڝnH_"11)J@9NJڞ`>zDq*jCK'<0;B~^~j؁7yv$-mwkH
Q4Tmf9q/ƜH6`|-w.B>gk1vIЫ㣽ꨜ{Kwy(i=mO"b}HtF1^-8]{zSD6/kobg}'/ܾH n8
k3KGY-WC<|3e":REݛb9
E"R[26tgդYhwWNMdFϵG'zaε@<@/{TYmi'i:h|\bn;]Mv]2~Jr8AQB_/ˁm9q|[z#JNjt$oB6nN:$$r[G_^$Of@#0_h+Ow}pS6c\N^B^nV.+6٭xVMƔJ9AHB	|/Z~[kRf4)!KX6]qKzRDUz
ތBU)-D2zs}cICLIf%sfWc7I2X؛k:tmJ|iF)"jFʽy1i3K~Hi1˫7kb,/YL37GZB7NuxL?L3kC .7~c񎽵~8͞9A&Aw	A[fug;	o6ig1="st/?9_``?(&W̌"pL+ŲwApV%:5wpAp\TogeciS+Ȑ6YCA,휶l_k.pN
,^wftzE-njӍnZwQuSdCR=*T'.CAiIB7XG"MAObʞ0o]fT/RzrXU󃔩r!֗nwPeW
*_LiaPEMa^vrWE]X<jg9,qB$wD'v3oiMeBG"sڇע<	)6R-?H&Z\`02(~9UʍMo_1ET3Nr2Vi
=c{Gcib]%ok2claH112$36Wvh4$/pu݈ȌaY;csަ	H\0Wsë\
\/rڞ%OaMͨ06z!YСIa0QyW,A/7^^kbZ䝘۰:yaN:.~Kk3*ڣeߧwu&p8pʥ(EIQQ`%AnqR5b\]nW8	rȡ5(ht0%)S!x\)QWLXѠ#
xMx'!hT
CCPOz,qH%YBTjcWx~|Dpdw]λ-.cIT4Ԕv-ϸoYrݿ|wttӮ,2Dm.l)3>sm[\3(E)|RX]!y}%mi߀7.WT*	P!FlF?9Tm#vfj.ߏeۧ@iW8fze/^2ݑFd1\
hn~;$,D#4_
sHjtjcb?`w_(D=\!WéZΦ4QZQN)y)o4(
sy]VEϘ?:na$V5 dn>Gb8(1:CG~f>RtT3SkYq5)q;}eMaZ0y?'8Ȓ~firvs47cc2	"#Jyq>w;tDJKNYrF	g˫w|>7:*pՔa0䶡XSq*;HyJpsֺ}Ky ]‰>8B#d4ɾF~!ndaoLbx-݌zaɟ|:K瓫;2,q~UKBv5mCSZlZ0M[:z"t;Ċt89o|x{1DޓY8w,YKGcn:;d_Ҿz?b<9E%ƬEk\{Jo>Es'r;rsh=Sh3suCor=v+2->I4\)Ci(_%_g ?IW{Q@ݝhҫJyUy)j]&?/Ɠp/j-X:ZTV$?i'SqH`~WmJt#O_f64]u.x/z_~P,Z?(ܢ|}uF`z`!y'y*X7EXpA|Y1NGi:_sŗ7e`uUüLo/N促MK^2V"5U	ay_^YjqBsh
4dh*{3ZBVḵ&MYrb:]:
bb
.
+lKPіY&oL7edej_tı&8T;YN@oyZ%P{j%53*PnJRRS8x-s9xmի2:/xpWPUYm?5*6'/F+7dmQ6drSTƯ՘GT.64J|Gl[jb\کN$h(º6,3I9O	AY藈08:T
D^Ux|Mh%i>ȴkDņ}ReFy
J#US-qzζwW|LLNuE	;b)ٗ"Dw=>xxJRP-t,y))>}[eC}Pɐ^pNWuOEN0$یN}FbW+Xt#ل[zXFtGEs]0C6mG>F/K

AhHf-fiUk~J9neeL)'.Lmyh'r6=0CO#!o۾p9f~w@iy C^Y=1;Dp={B|BrMcLm1JϯTJb	CwU,9C'>o몮M[vP5@BU>]PiwW"Rw3YUSxxx¨MDǓKLMܠmiļ JwR>[TVމсqy0:a]{M̴(i䨹`ƔT(yww߯%an:rIqgW"ܖ)5QbCz=/z|}x~s=w)jqVZ[|Z~[lNIiqKs{77oeY?߻p5^\̕@/U{/)s2_w_!gB<U5ObWdKxl-78},ꜛ?n6-k!oFs|K@K]8G%cܯsiJXD)A|0g׷dxCd{*TZ
ÃQ&	!~W{UAzǔDEGׅ/	v|t=]4.f:ݸqлg^Ԧj.$>@HA5uswu>G		syV_Q^X0=7SmQ_ĸ_¢Ϩ{Tk1_wZ?H&֖zlzF&-@[1CXVlZXdiJi}CMyI
ՌAfyΨJo$/Ӻ@Ė6C޸oSlBK{6oGAԄxңQ.Z>=s|=|h>uJQr}vs2RCx#+J!u/B_SeR0g8cl`$cI`x1.̳Y^_'WFV8u' bJOZ5)r|3.%;qo99;SjkG"ub^}d/aCx`tқ=tl/+Q-i)q~ⴓRD
6
H傯	vF6%:ҸbdHct.<[)u^ iRgc={τ[ߏQ̕q[ݙS"@.gLH/KG^\H	OI
6݃&Ff4Ҥ-J9,}q3GVsמ2z?T#3Pd61-S[ZYRgA=tLStʯ[+UH.A&=iMH,^__Gֹ8}4Y\m`
e'֗j]-Kg [;Fs
?F.17{t26^\~oOS̀2&A{mX[mMn>*Ymڞ4Y>kҬ5ȸ3Np\f:%U>VOP{wKƅ26ά+?mCR1M󬳥9nrH%y:|%*}R锫gkO}*zo)LR!|qepkT^Ҥڷ6Y62f6D'TO?}zT^{.oWӎ';ߺF$I@Jx}鳤\'ĩ-OUi?H&?q;m?0|-wRb4>wEӇ4C(NYӖ%.k#J-?W^RrR@	 fG78Sqz7dp5>ׯEJ*َ\QkʙW&4I8F!BT#CȿٚEؼ:m8L,,MG-+Y¼+8"}y2QӍzO_91nr94ԍ{~Lfd9?#gގſ)$5וzbQ8덐n,Fz:q;4'`\VHkḻC]RBRs]0v&-sbA4|ї?XJ7&Ș`1_>YjpqpOa!<0/fgs5Q671|Hmխyn(ePqVnê[-:Sv\i'35cm72J@t(EDd M3b2Szp[ۙJ6&LF
LHBes;hZ6E,c?PrlQKVcQ/?yG mBʸGNQga￵m'[۰͍*AΜ|&ܩh?h{5!;A4\MXsFf/xVNƴN1lO9zjՑS1,m-\вc/?mϋ|-6_'}#b٬_.@ux߉RhOXr$wWð6fHd	#_%c(&ͭ}JG'^?y&[ųjR1ju|i{
oNf/y
ec&v]XLq>G[zO#j/Qѽ\	
g|&m}h#*+?<]8S,1r_)
cDav)HAa|lD
Oզb%
zQEp@ݗ>ù@Oe4uRߋu&ϭLtL,>zm
:u!huox%NYL(:cX̩˲Hc5|ۅ+xۍ%8)s]/(Kޜ'':`"[NE&h+t	uL	7do+&W*ga%o=ztFOd^K]<172kC=bY;Q'jlPs֭ 9#]*]QE ij)[:|У>3o|%XBŐ~LRH;.+ߦǕ
n D
ĪRi	љ?e-䲚gTWÐiģד^g'9
V\璣C׭(\1lRB4#ޘ˱ׄlȢB;(G}%H#^]=	qJv	pK'Hs&9gHKPKxEqLHag(!&@T~\ajkM"R$^b5Ф{іzq*,.cDv:ky*}^rkp>ꆛ툣d#CBrCrS!u{WOMVIh_UwH	/0 rxv𾝨}]j~9P>.n4'3ԄMw	x|t]o^.I$hIw{E)~.£9w@0yR\H`,.%6qƗ]P(xz'H$#Z$ʟĜ6,Q™3.Kς潠(8N_V`*^O \0^DTO`$ZY:'sqӷ̮K
j/$ꦥsZM#Sw<يܤX^1~C;X%CR{?|ZYG>AIz$]A49`Yhe-8k8CW;-FfڕcsM&}kǖܿiM2
|F,XTLUǡ?ˇW6TN9PK"?Vbq}IʻSZmbXbE*I,oϔeUU_箹ZyQ}+IPC&{lՉ)*dM*UK{ζGQ^Gx{	4XI2_Yadq)7]|my.[Y+-3/R15mQsn?IACiJ+lKcO[7Қ"^7qתs
KSs+IuquLCe8cRdyE4wNEf~gC#;$ʫ
*mBP8$d-wynk-:ZoͽUOlz}M>ο-8Zn
ڦqwGQ햎;-4GsUnB3J;R
rR
X9ɗTG5lD\$3'dn?H[-**`jr-1j.50l[&@',\5z/3zWH͚j6hQNoai;u߳@ݠZjyfUU9f&?-gZ'T%>vϷJﻴ;4Zuj뵓ϞxmesejkhI1v!Ƭm,Ubmiݟo5'>U7k_f*Ŷ>u%ih`M")>t::30EWcTBwٷe]i072aNbBʱccǹGcjqVQжťu?ٲ?NBj=h`8q\ە55n?#'&.fNX_߸63s.IϧqUvn<4$.72z75<}vZKML7bWTʗ"ħ3$3L5i	);YH
PrVyz֣}ayČLɴn^b$l$r2>k*a9.Tl,kL7u}|y̅^s$s$S
M-ű?w"%
3_Z.]Y|?v}ywyx^\&XX[-OzUlMS\1^1^ʼíhlH|9w__IV	q,OK2~2j-55ڨKlhL֘ݣZgyP}f#jj{t
6B+kwW7y67:66[6/JGm{dmnVzmjT+oXEmA$s:TۑػgO	޶\9iu֖joNlGN8r񹠪]"_|GUzKjl^Z^^^2~|^d
i>Jwfsk?;*qP6CV˲'>EVQwWQ&ᆩvXpQ*(.:fZiYۼ:nVշ	o&l775~V7y"M!&:3PYE=sTGd7I-ڔ#R=K"zGC*b/efKWmZziZ%}EpKReE-Nb9Zd([h@Q
=x3_A8b&	Xu~,NՠM`:u1p%=	OFNbzW9req&gh\d.	X:;8Х,Gx!ՌM#QV[2*LNV]973Jt?QDVtՉ]Οn"].ӕono!,{/hxY{{`yK^opmK9^j_o-
L:ؙ	9UKK8Wk| dbd
ΰۦ!FF_]q6uv0tHu
O̤O-?mYN_w#J5S8AK
Ƶ1.LٳRSr+]&jVnbQvIWI+ѬK5cH<w5|B)#)̴%k^H[FFR)
o$kꙄd
(go-Fue.EzoƯ%jDgUkF)3+SYTLFSȨӔ2喆"2z{DKoWJ|g1vBTYߩkLzQi7*vZRP
$2{IG^/NޝZ8Twl6ßr̝ٓߑ'WK*j‚jFҥ	OĜ9taސB
O~ZqZ_1H:Z8Ƕ\^xL<{Ls&`x7K]tF`5jvwkRحl{1SY^;X)q̵QLO]GPpdmTkL*: "WOO`Ḅaw4"_zsLLRZv&cz"kkBcy=
>awXD$q
Ih4c"78G]%M_n&=n)D7s;cEcpj]N=lRc"i/97R%ݺS	t3RQ]AR$m>FMcJ}15_5eѧddT,OzéUD=nfڷf:zSR;)7īF_4_JSF;d[99T"ƹ鰻zyK:>3e%$⎧d
#CEK(A
׮Cdb†fK?.c܇緊uޤR7#ĦN0g۝;`Z}#\[?"m[GSF#`P-c0^)(@`F6Cs=GmBEyFX]_[PKbL-ǏpnHōpkvu&
0o\LPhQ04#~!Ɵ~?&LpaaT`vB>}Dn5_*2C]4L	X8wQlwI.uuJ?/}!opkx3hÍP?th^"_B'p`|>)]8/Xz)W"5=Hj{?4\~
5	`q\܁|6\1>}F4
&5#b*͡䵍@aN?:T0	(D҂`P@[
p].H:ǀiw{GCP3zw<‡fF@0c3K sDhCƐ	=<[i?>?}ȍ8oNOO^?}tPF~Xb`3
0LgD
yPd R.fM=
p{7j^;4n:g>Կ,̀(:
|f{C}>5`jVj" {ՈES#"8.7b Q03+rS)9pHh̏>uiڟiڟiڟiڟiڟiڟiڟiڟiڟiڟiwkaptain-0.73/examples/search.kaptn0000640023433300116100000000252010120611343015705 0ustar  zsolteng#!/usr/bin/kaptain

#glimpse control script
#(C) 2001 by Oliver Kohll, oliver@gtwebmarque.com
#released under the GNU General Public License, version 2
#http://www.fsf.org/copyleft/gpl.txt
#glimpse is a search engine for your hard disk/network etc., much faster than find|grep :)
#http://webglimpse.org/, you will need to install & setup glimpse in order to use this script
#
#Note. This script excercises a small subset of the glimpse commands, for simplicity
#
#WARNING------------------------------------------------------
#This script overwrites the file ~/glimpse-searchresults.txt
#In the v. unlikely event you use this file, change the script

start:framed "Search filesystem" -> options control;
options "Options" -> searchterm wholewords accuracy;
control "Control" -> filetypes buttons;
searchterm:beside "Search for" -> @string;
wholewords:beside "Whole words only" -> " -w" | @;
filetypes:double -> includefiletype thefiletype;
accuracy:beside "Fuzziness of search (0 = exact match)" -> @integer = 1;
includefiletype "Only find files of type (e.g. doc)" -> @ | " -F ";
thefiletype -> @string;
buttons:double -> startbutton @close = "Close";
startbutton -> @action(command) = "Search";
command -> "glimpse -y -i -l -" accuracy wholewords includefiletype thefiletype " " searchterm " >~/glimpse-searchresults.txt;kwrite ~/glimpse-searchresults.txt";
kaptain-0.73/examples/tar.kaptn0000640023433300116100000000246710120611343015240 0ustar  zsolteng#!/usr/bin/kaptain

start "Tar" -> tar buttons;

tar -> "tar " choice " " opt archive " " files;
opt:framed :horizontal  -> extropt createopt ;

createopt "Write options" -> dump remove verb comp;
extropt "Read options" -> noerr keep same abs;

dump "Dump files, not just symlinks" -> "--dereference " | @;

noerr"Ignore failed read" -> "--ignore-failed-read " | @;

keep "Keep existing files" -> "-k " | @;

same "Extract all protection information" -> "-p " | @;

abs "Absolute path names" -> "-P " | @;

remove "Remove files after adding to archive" -> "--remove-files " | @;

verb "Verbosely list files proceeded" -> "-v " | @;

comp -> compress | @;
compress "Compression" -> gzip | bzip;
gzip "gzip" -> "-z ";
bzip "bzip2" -> "--use-compress-program bzip2 ";

choice:framed  -> work;
work "Main choice" -> concat | ! create | diff | del | append | list | update | extract;
concat "Append to archive" -> "A";
create "Create archive" -> "c";
diff "Find differences between archive and file system" -> "d";
del "Delete from archive" -> "-delete";
append "Append to the end of an archive" -> "r";
list "List contents" -> "t";
update "Update archive" -> "u";
extract "Extract from archive" -> "x";

archive "Archive name" -> @infile;

files "Files to work with" -> @string ;

buttons :horizontal -> @action(tar)="OK" @close="Cancel";
kaptain-0.73/examples/weblint.kaptn0000640023433300116100000000263210120611343016110 0ustar  zsolteng#!/usr/bin/kaptain
#
# weblint grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#
# weblint: http://www.weblint.org
#

start "weblint" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed  -> "weblint " opt mode files ;

opt "Options" -> disid enid conf stderr ;

disid -> disableid | ! @ ;
disableid "Disable these identifiers" -> "-d " dislist " " ;
dislist -> @string ;

enid -> enableid | ! @ ;
enableid "Enable these identifiers" -> "-e " enlist " " ;
enlist -> @string ;

conf -> config | ! @ ;
config "Use configuration file" -> "-f " conffile " " ;
conffile -> @infile ;

stderr -> usestderr | ! @ ;
usestderr "Print to STDERR rather than STDOUT" -> "-stderr " ;

mode "Mode of operation" -> listmesg | ! unfluff ;

listmesg "List known identifiers/messages" -> "-message " ;
unfluff "Pick fluff off of HTML file(s)" -> nocase nosym pedantic short terse ;

nocase -> ignorecase | ! @ ;
ignorecase "Ignore case of element tags" -> "-i " ;

nosym -> nosymlinks | ! @ ;
nosymlinks "Don't unfluff symlinks" -> "-l " ;

pedantic -> pedanticmode | ! @ ;
pedanticmode "Pedantic mode" -> "-pedantic " ;

short -> shortmesg | ! @ ;
shortmesg "No filename in messages" -> "-s " ;

terse -> tersemode | ! @ ;
tersemode "Terse output mode" -> "-t " ;

files "File(s) to check" -> @infile ;
kaptain-0.73/examples/wget.kaptn0000640023433300116100000000671310120611343015416 0ustar  zsolteng#!/usr/bin/kaptain

#wget control program, only tested with GNU Wget 1.5.3
#(C) 2001 by Oliver Kohll, oliver@gtwebmarque.com
#released under the GNU General Public License, version 2
#http://www.fsf.org/copyleft/gpl.txt
#Show log... and Show files... need KDE to work.
#Show log... will need to be changed if nohup doesn't write to wget-log

start "Download website or file(s)" -> dialogue buttons;
dialogue:tabbed -> url options recursion;

url "URL and logging" -> theurl filesurl background nohuplog savetodir credits;
theurl:beside "URL (http://... or ftp://...)" -> @string;
filesurl -> readfilecheck infile;
readfilecheck:beside "Read URLs from file" -> @ | " --input-file=";
infile:beside -> @infile;
background "Download in background" -> " -b" | @;
nohuplog -> saveoutput nonverbose showlog;
saveoutput "Log with nohup" -> "nohup " | @;
showlog -> @action("kwrite wget-log") = "Show log...";
nonverbose "Non verbose logging" -> " -nv" | @;
savetodir:beside "Download to" -> @directory = "~/";
credits -> @text("Kaptain graphical front end for command line programs from\nhttp://kaptain.sourceforge.net\nwget control script by Oliver Kohll\nwww.gtwebmarque.com, www.gtwebpublisher.co.uk\nwget 1.5.3 from http://www.gnu.org/software/wget/wget.html");

buttons:double -> startbutton progressbutton closebutton;
startbutton -> @action(command)="Start download";
progressbutton -> @action(showprogress) = "Show files...";
closebutton -> @close="Close dialogue";
showprogress -> "konqueror " savetodir;

options "Download options" -> dontoverwrite continue siteuser dontcache;
dontoverwrite "Don't overwrite existing" -> @ | " -nc";
continue "Continue partially downloaded file" -> @ | " -c";
siteuser -> userneeded usersupplied passneeded passsupplied;
userneeded "HTTP Username needed" -> @ | " --http-user=";
usersupplied -> @string;
passneeded "HTTP Password needed" -> @ | " --http-passwd=";
passsupplied -> @password;
dontcache "Disallow caching" -> " --cache=off" | @;

recursion:double:framed "Recursion options" -> recursionoptions acceptreject;
recursionoptions "Basic options" -> recurse specifydepth torelative followftp spanhosts;
acceptreject "Accept/Reject" -> acceptext rejectext acceptdom rejectdom acceptdirs rejectdirs;
recurse "Recurse" -> " -r" | @;
specifydepth -> depthcheck depth;
depthcheck:beside "Specify depth" -> " --level=" | @;
depth:beside "Depth (0=unlimit)" -> @integer = 0;
torelative "Convert absolute links to relative" -> @ | " --convert-links";
acceptext -> acceptextcheck acceptextlist;
acceptextcheck "Accept extensions (htm,html,...)" -> @ | " --accept=";
acceptextlist -> @string;
rejectext -> rejectextcheck rejectextlist;
rejectextcheck "Reject extensions" -> @ | " --reject=";
rejectextlist -> @string;
acceptdom -> acceptdomcheck acceptdomlist;
acceptdomcheck "Accept domains" -> @ | " --domains=";
acceptdomlist -> @string;
rejectdom -> rejectdomcheck rejectdomlist;
rejectdomcheck "Reject domains" -> @ | " --exclude-domains=";
rejectdomlist -> @string;
acceptdirs -> acceptdircheck acceptdirlist;
acceptdircheck "Accept directories" -> @ | " --include-directories=";
acceptdirlist -> @string;
rejectdirs -> rejectdircheck rejectdirlist;
rejectdircheck "Reject directories" -> @ | " --exclude-directories=";
rejectdirlist -> @string;
followftp "Follow FTP links" -> @ | " --follow-ftp";
spanhosts "Go to foreign hosts" -> @ | " --span-hosts";

command -> saveoutput "wget" readfilecheck infile background nonverbose " --directory-prefix=" savetodir options recursion " " theurl;
kaptain-0.73/examples/whois.kaptn0000640023433300116100000000161210120611343015572 0ustar  zsolteng#!/usr/bin/kaptain
#
# whois grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "whois" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "whois " opt hosttoquery moreopt object ;

opt "Options" -> verbose ;

hosttoquery "Host to query" -> byhand | ! gtld ;
byhand "Select by hand" -> host port ;
gtld "Use www.crsnic.net to find registrar for a GTLD subdomain" -> "-C " ;

host -> usehost | ! @ ;
usehost "Use specified host" -> "-h " @string " ";

port -> useport | ! @ ;
useport "Use specified port" -> "-p " @integer " ";

verbose -> beverbose | ! @ ;
beverbose "Verbose mode" -> "-V " ;

moreopt "Server flags" -> passmoreopts | ! @ ;
passmoreopts "Flags to pass to RIPE-like server" -> @string ;

object "Object to query for" -> @string ;
kaptain-0.73/examples/zangband.kaptn0000640023433300116100000000267210120611342016233 0ustar  zsolteng#!/usr/bin/kaptain
#
# ZAngband grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#
# ZAngband: http://thangorodrim.angband.org/zangband.html
#

start "ZAngband" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "/usr/local/bin/angband " opt output keys mode ;

opt "Options" -> fiddle wizard sound graphics mono lib ;

fiddle -> fiddlemode | ! @ ;
fiddlemode "Request fiddle mode" -> "-f " ;

wizard -> wizardmode | ! @ ;
wizardmode "Request wizard mode" -> "-w " ;

sound -> soundmode | ! @ ;
soundmode "Request sound mode" -> "-v " ;

graphics -> graphicsmode | ! @ ;
graphicsmode "Request graphics mode" -> "-g " ;

mono -> monochrome | ! @ ;
monochrome "Request monochrome mode" -> "-M " ;

lib -> library | ! @ ;
library "Define lib dir sub-path" -> "-d" libdir " " ;
libdir -> @string ;

output "Output" -> x11 | ! terminal | sys ;

x11 "X11" -> "-mx11 " ;
terminal "Terminal" -> "-mgcu " ;

sys "Use main-.c" -> "-m" sysfile " " ;
sysfile -> @string="xaw" ;

keys "Keyset" -> ! original | rogue ;
original "Original" -> "-o " ;
rogue "Rogue-like" -> "-r " ;

mode "Action" -> ! saved | new | showscores ;

saved "Use a saved character" -> "-u" charname " " ;
charname -> @string ;

new "Start a new character" -> "-n " ;

showscores "Show ___ highscores" -> "-s" scores " " ;
scores -> @integer=10 ;