lynx2-1/000755 000036 000040 00000000000 05506406203 013671 5ustar00montulliusersrv000000 000000 lynx2-1/Makefile000644 000036 000040 00000017366 05506375021 015351 0ustar00montulliusersrv000000 000000 ##makefile for lynx ##lynx written by Lou Montulli University of Kansas ##change the next line if you want lynx installed somewhere ##besides /usr/local/bin exec= /usr/local/bin ##change the next line if you want the lynx man file installed somewhere ##besides /usr/man/man1 doc= /usr/man/man1 #set the relative location of the WWW library Implementation directory, #from this directory #do not set this to be an absolute path!!! WWWINC= WWW/Library/Implementation # !!!!!!!!!!!!! IMPORTANT NEW INSTRUCTIONS !!!!!!!!!!!!!!!!!!!!! # You NO longer need to set the location of the WWW Library here. # When you run this makefile the WWW library that is included in # this distribution will be compiled and used to link Lynx. # The location of the WWW library is specified in the specific # entry for your machine. (see aix32: or ultrix: for examples below) LIBWWW= NO LONGER RELEVENT!!!!! # !!!!!!!!!!!!! DIRECT WAIS ACCESS !!!!!!!!!!!!!!!!!!!!!!!!!! # If you are adding direct wais access you must fill in the # location of wais.a, client.a and the standard math library, libm.a. # You can pick up the freeWAIS source from sunsite.unc.edu. # Plese put an ABSOLUTE address here if you want it to work! # WAISLIB= /homea/local/lynx-dev/lynx2-0-12/wais.a /homea/local/lynx-dev/freeWAIS-0.1/bin/client.a /usr/lib/libm.a # #If you are on a SUN and need to link with -lresolv, search #for "sun3:" or "sun4:" # # # if you are on one of the supported systems (see all: list below) # you should not have to modify anything from here down! # If you are not, then you should edit the generic: entry below. # MYEMULATORLIB = emulator/myemulator_lib.a all: @echo @echo "Please run make with one of the following arguments" @echo "aix32 -- for RS/6000 running AIX 3.2" @echo "aix31 -- for RS/6000 running AIX 3.1 with curses bug" @echo "generic -- for generic UNIX" @echo "linux -- for PC linux" @echo "next -- for NeXT OS" @echo "osf -- for Alpha OSF/1" @echo "sgi -- for SGI machines (untested)" @echo "sun3 -- for SUN 3 OS" @echo "sun4 -- for SUN 4 OS" @echo "svr4 -- for SVR4" @echo "snake -- for HP-UX" @echo "solaris2 -- for Solaris 2.x" @echo "ultrix -- for DEC Ultrix" @echo "decstation -- for DEC Ultrix (same as ultrix above)" @echo "low_curses -- for generic systems with faulty curses" @echo "clean -- removes all '.o' and 'core' files" @echo "tar -- runs clean, removes executable, and tars the whole directory" @echo "compress -- runs tar, then compresses the result" @echo # Map some extra commands to existing ones unix: generic decstation: ultrix # if you are compiling on a previously unsupported system, modify # this generic entry!! # #generic machines with original Berkeley curses generic: @echo "You must first compile the WWW library in WWW/Library" cd WWW/Library/unix; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX -DHAVE_SIGIO\ -DREXEC -I../$(WWWINC)" LIBS="-lcurses -ltermcap" \ WWWLIB="../WWW/Library/unix/libwww.a" # Tested on DN 3500 & 4500's running Domain O/S 10.4 BSD # -Acpu,mathchip may have to be changed on other machines - see man cpuhep apollo: cd WWW/Library/apollo_m68k; make cd src; make all CC="cc" MCFLAGS="-O -DUNIX \ -D_BUILTINS -W0,-opt,4 -Acpu,mathchip \ -DREXEC -I../$(WWWINC)" LIBS="-lcurses -ltermcap" \ WWWLIB="../WWW/Library/apollo_m68k/libwww.a $(MYWWWLIB)" snake: cd WWW/Library/snake; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX \ -DREXEC -DSNAKE -I../$(WWWINC)" LIBS="-lcurses -ltermcap" \ WWWLIB="../WWW/Library/snake/libwww.a " svr4: cd WWW/Library/svr4; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX -DHAVE_SIGIO\ -DREXEC -I../$(WWWINC) -DNO_UTMP -DSVR4" \ LIBS="-lcurses -lsocket -lnsl" \ WWWLIB="../WWW/Library/svr4/libwww.a" solaris2: cd WWW/Library/solaris2; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX \ -DHAVE_SIGIO -DREXEC -I../$(WWWINC) -DCURS_PERFORMANCE \ -DNO_UTMP -DUSE_DIRENT -DSVR4" LIBS="-lcurses -ltermcap \ -lnsl -lsocket" WWWLIB="../WWW/Library/solaris2/libwww.a" #osf doesn't much care for '\' as a line continuer? osf: cd WWW/Library/osf; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX -DREXEC -DHAVE_SIGIO -I../$(WWWINC)" LIBS="-lcurses -ltermcap" WWWLIB="../WWW/Library/osf/libwww.a" dbg: cd WWW/Library/rs6000; make cd src; make all CC="gcc" MCFLAGS="-g -Wall -DFANCY_CURSES -DUNIX -DHAVE_SIGIO -DREXEC -I../$(WWWINC) -DDEBUG" LIBS="-lcurses \ -ltermcap -lbsd" WWWLIB="../WWW/Library/rs6000/libwww.a" #sgi doesn't like '\' as a line continuer? sgi: cd WWW/Library/sgi; make cd src; make all CC="cc" MCFLAGS="-g -cckr -DFANCY_CURSES -DHAVE_SIGIO -DUNIX -Dvfork=fork -DREXEC -I../$(WWWINC) -DNO_UTMP" LIBS="-lcurses -ltermcap -DSYSV -DPERFORMANCE" WWWLIB="../WWW/Library/sgi/libwww.a" linux: cd WWW/Library/unix; make cd src; make all CC="gcc" MCFLAGS="-g -DUNIX -DREXEC -I../$(WWWINC)" LIBS="-lcurses -ltermcap" WWWLIB="../WWW/Library/unix/libwww.a" aix32: cd WWW/Library/rs6000; make cd src; make all CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX -DHAVE_SIGIO\ -DREXEC -I../$(WWWINC)" LIBS="-lcurses -ltermcap -lbsd \ $(WAISLIB)" WWWLIB="../WWW/Library/rs6000/libwww.a" aix31: cd WWW/Library/rs6000; make cd src; make all CC="cc" MCFLAGS="-g -DUNIX -DHAVE_SIGIO\ -DREXEC -I../$(WWWINC)" LIBS="-lcurses -ltermcap -lbsd" \ WWWLIB="../WWW/Library/rs6000/libwww.a" ultrix: cd WWW/Library/decstation; make cd src; make all CC="cc" MCFLAGS="-g -Olimit 600 -DFANCY_CURSES \ -DHAVE_SIGIO -DUNIX -DREXEC -DULTRIX -I../$(WWWINC)" \ LIBS="-lcursesX -ltermcap" \ WWWLIB="../WWW/Library/decstation/libwww.a " sun: @echo "Run make again and use \"make sun3\" or \"make sun4\"" # # add -lresolv to the last "LIBS" entry within the quotes if needed # sun3: cd WWW/Library/sun3; make cd src; make all CC="gcc" MCFLAGS="-g -DUNIX -DFANCY_CURSES \ -DHAVE_SIGIO -I../$(WWWINC) -DREXEC -DSUN -I/usr/5include"\ LIBS="-lcurses -ltermcap -L/usr/5lib -lresolv" \ WWWLIB="../WWW/Library/sun3/libwww.a" # # add -lresolv to the last "LIBS" entry within the quotes if needed # sun4: cd WWW/Library/sun4; make cd src; make all CC="gcc" MCFLAGS="-g -DUNIX -DFANCY_CURSES \ -DHAVE_SIGIO -I../$(WWWINC) -DREXEC -DSUN -I/usr/5include" \ LIBS="-lcurses -ltermcap -L/usr/5lib -lresolv" \ WWWLIB="../WWW/Library/sun4/libwww.a" next: cd WWW/Library/next; make cd src; make all CC="cc" MCFLAGS="-g -DUNIX -DNEXT -DREXEC -DNO_CUSERID\ -DHAVE_SIGIO -I../$(WWWINC) -I../$(WWWINC)" LIBS="-lcurses \ -ltermcap" WWWLIB="../WWW/Library/next/libwww.a" traversal: cd WWW/Library/rs6000; make cd src; make traversal CC="cc" MCFLAGS="-g -DFANCY_CURSES -DUNIX \ -DTRAVERSAL -DREXEC -I../$(WWWINC)" LIBS="-lcurses \ -ltermcap -lbsd" WWWLIB="../WWW/Library/rs6000/libwww.a" clean: rm -f core cd WWW/Library/apollo_m68k; rm -f *.a *.o cd WWW/Library/solaris2; rm -f *.a *.o cd WWW/Library/snake; rm -f *.a *.o cd WWW/Library/svr4; rm -f *.a *.o cd WWW/Library/vax_ultrix; rm -f *.a *.o cd WWW/Library/rs6000; rm -f *.a *.o cd WWW/Library/sgi; rm -f *.a *.o cd WWW/Library/unix; rm -f *.a *.o cd WWW/Library/decstation; rm -f *.a *.o cd WWW/Library/sun4; rm -f *.a *.o cd WWW/Library/sun3; rm -f *.a *.o cd WWW/Library/osf; rm -f *.a *.o cd WWW/Library/next; rm -f *.a *.o cd src; make clean tar: clean rm -f src/lynx rm -f lynx rm -f src/a.out make save zipcompress: compress zip echo "done!" zip: clean rm -f src/lynx rm -f lynx rm -f src/a.out rm -f ../lynx2-1.zip cd ..; zip -v -r lynx2-1.zip lynx2-1 save: cd ..; tar -cvf - lynx2-1 > lynx2-1.tar compress: tar cd ..; compress -f -v lynx2-1.tar install: rm -f $(exec)/lynx cp lynx $(exec) rm -f $(doc)/lynx.1 cp lynx.man $(doc)/lynx.1 lynx2-1/userdefs.h000755 000036 000040 00000030302 05505670501 015666 0ustar00montulliusersrv000000 000000 /* * Lynx - Hypertext navagation system * * (c) Copyright 1992, 1993, 1994 University of Kansas */ /******************************************************************* * There are three sections to this document * Section 1. Things you MUST change or verify * Section 1a) VMS specific things * Section 1b) UNIX specific things * Section 1c) ALL Platforms * * Section 2. Things you should probably check! * * Section 3. Things you should only change after you have a good * understanding of the program! * */ #ifndef USERDEFS_H #define USERDEFS_H /******************************************************************* * Things you must change * Section 1. */ /******************************************************************* * Things you must change VMS specific * Section 1a). */ #ifdef VMS /************************** * TEMP_SPACE is where Lynx tempory cache files will be placed. * Tempory files are removed automatically as long as nothing * goes terribly wrong :) */ #define TEMP_SPACE "sys$scratch:" /************************** * LYNX_CFG_FILE is the location and name of the lynx system * configuration file. */ #define LYNX_CFG_FILE "sys$public:lynx.cfg" /************************** * the full path and name of the telnet command */ #define TELNET_COMMAND "telnet" /************************** * the full path and name of the tn3270 command */ #define TN3270_COMMAND "telnet /tn3270" /************************** * the full path and name of the rlogin command */ #define RLOGIN_COMMAND "rlogin" /************************** * the full path and name of the xloadimage command * put 'echo' or something like it here if you don't have it * you may also use 'xv' or anything that will handle GIF, * TIFF and other popular image formats */ #define XLOADIMAGE_COMMAND "xv" /************************** * the full path and name of the vi editor or some other default editor */ #define VI "ed" /************************** * the full path and name of the emacs editor if it exists */ #define EMACS "emacs" /************************** * the full path and name of the standard VMS "mail" command * The mail command will be spawned as a subprocess of lynx * and used to send replies and error messages. * SYSTEM_MAIL must be able to accept a subject line through * the use of the /subject="SUBJECT" option * if your mailer uses anonther syntax, some hacking of * the "mailmsg.c" and "reply_by_mail.c" files may be required. */ #define SYSTEM_MAIL "mail" /************************** * the full path and name of the rsh or rexec command on your * system. */ #define RSH_COMMAND "rsh" /* better known as rexec */ /************************* * below is the argument for a sprintf command that will * add "in%""ADDRESS""" to the internet mail address given by the user. * It is structured for PMDF's in%"INTERNET_ADDRESS" * scheme. The %s is replaced with the address given by the user. */ #define MAIL_ADRS "\"in%%\"\"%s\"\"\"" /******************************************************************* * Things you must change UNIX specific * Section 1b). */ #else /* UNIX */ /************************** * LYNX_CFG_FILE is the location and name of the lynx system * configuration file. */ #define LYNX_CFG_FILE "/usr/local/lib/lynx.cfg" /********************* * LOCAL_DOMAIN is used to determin if a user is local * to your campus or organization */ #define LOCAL_DOMAIN "ukans.edu" /* CHANGE THIS! */ /************************** * the full path and name of the telnet command */ #define TELNET_COMMAND "telnet" /************************** * the full path and name of the tn3270 command */ #define TN3270_COMMAND "tn3270" /************************** * the full path and name of the rlogin command */ #define RLOGIN_COMMAND "rlogin" /************************** * the full path and name of the rsh or rexec command on your * system. Please don't mistakenly give the Rsh that is the * restricted shell on some systems. */ #define RSH_COMMAND "rsh" /************************* * if you don't have xloadimage just set this to "echo" or * something else that is harmless, 'xv' also works really well if * not better! */ #define XLOADIMAGE_COMMAND "xv" /************************** * the full path and name of the vi editor or some other default editor */ #define VI "vi" /************************** * the full path and name of the emacs editor if it exists */ #define EMACS "emacs" /************************** * For UNIX systems this should be sendmail * sendmail should be in /usr/lib * you definately want sendmail, not mail or elm or something else. */ #define SYSTEM_MAIL "/usr/lib/sendmail" /************************** * a place to put temporary files, its almost always "/tmp/" on * UNIX systems */ #define TEMP_SPACE "/tmp/" /************************** * this "utmp" stuff is used to determine the calling address of * the user. * do a "find / -name utmp -print" if you don't know where to find * the utmp file, its usually in /etc/utmp. * If you system doesn't have utmp support comment out the * following lines. */ #include #include #define UTMP_FNAME "/etc/utmp" #endif /* VMS OR UNIX */ /************************************************************* * Section 1c) Every platform must change or verify these * */ /***************************** * STARTFILE is the default file if none is specified on the command line * note: these files can be remote (ie 0-0/start@host.cc.ukans.edu or * http://info.cern.ch/default.html) or local (i.e. /u/home/cwis.screen) * if a local file is chosen the directory that it resides in * should be fully specified in the path. */ #define STARTFILE "http://www.cc.ukans.edu/about_lynx/www_start.html" /* */ /* #define STARTFILE "http://info.cern.ch/default.html" /* */ /* #define STARTFILE "http://kufacts.cc.ukans.edu/cwis/kufacts_start.html" /* */ /***************************** * helpfile should have a complete local path name if local * the default HELPFILE is: * http://kufacts.cc.ukans.edu/lynx_help/lynx_help_main.html * and will be updated as needed. There are also copies of * these files in the samples directory if you wish to install * them locally */ #define HELPFILE "http://www.cc.ukans.edu/lynx_help/lynx_help_main.html" /***************************** * DEFAULT_INDEX_FILE is the default file retrieved when the * user presses the 'I' key when viewing any document. * An index to your CWIS can be placed here or a document containing * pointers to lots of interesting places on the web. */ #define DEFAULT_INDEX_FILE "http://info.cern.ch/default.html" /******************************** * The DEFAULT_CACHE_SIZE specifies the number of WWW documents to be * cached in memory at one time. When the number is exceded the oldest * document will be removed from memory. * The cache size may be modified with the command line argument -cache=NUMBER * */ #define DEFAULT_CACHE_SIZE 10 /**************************************************************** * Section 2. Things that you probably want to change or review * */ /***************************** * Enter the name of your anonymous account if you have one * as ANONYMOUS_USER. UNIX systems will use a cuserid * or get_login call to determine if the current user is * the ANONYMOUS_USER. * * VMS systems cannot use this feature, so they must specify * anonymous accounts using the "-anonymous" command line option. * * Other systems may use the "-anonymous" option for multiple * accounts or percautionary reasons as well. * * It is very important to have this correctly defined if you * have an anonymous account. If you do not you will be putting * yourself at GREAT security risk! * * Later on in this file you can specify priviliges for the * anonymous account. */ #define ANONYMOUS_USER "" /******************************* * set to FALSE if you don't want users of your anonymous account * who are calling from inside your local domain * to be able to telnet back out */ #define CAN_ANONYMOUS_INSIDE_DOMAIN_TELNET TRUE /******************************* * set to FALSE if you don't want users of your anonymous * account who are calling from outside your * local domain to be able to telnet back out */ #define CAN_ANONYMOUS_OUTSIDE_DOMAIN_TELNET TRUE /******************************* * set to FALSE if you don't want users of your anonymous * account to be able to print */ #define CAN_ANONYMOUS_PRINT FALSE /***************************** * These are for lynx internal format executable links. * which don't work any more, so leave them alone for now */ #define LOCAL_EXECUTION_LINKS_ALWAYS_ON FALSE #define LOCAL_EXECUTION_LINKS_ON_BUT_NOT_REMOTE FALSE /********************************* * MAIL_SYSTEM_ERROR_LOGGING will send a message to the owner of * the information if there is one, every time * that a document cannot be accessed! * * VMS USERS !!! * You will probably want to set 'MAIL_SYSTEM_ERROR_LOGGING' to FALSE. * It can be nice to have automatic error logging but this is done * by doing a system command and running mail. This is VERY slow under * VMS and just takes too darn long. */ #define MAIL_SYSTEM_ERROR_LOGGING FALSE /*mail a message for every error?*/ /********************************* * VI_KEYS can be turned on by the user in the options * screen or the .lynxrc file. This is just the default. */ #define VI_KEYS_ALWAYS_ON FALSE /* familiar h,j,k, & l */ /********************************* * EMACS_KEYS can be turned on by the user in the options * screen or the .lynxrc file. This is just the default. */ #define EMACS_KEYS_ALWAYS_ON FALSE /* familiar ^N, ^P, ^F, ^B */ /********************************* * DEFAULT_KEYPAD_MODE specifies whether by default the user * has numbers that work like arrows or else numbered links * DEFAULT KEYPAD MODE may be set to * LINKS_ARE_NUMBERED or * NUMBERS_AS_ARROWS */ #define DEFAULT_KEYPAD_MODE NUMBERS_AS_ARROWS /******************************** * The default search. * This is a default that can be overridden by the user! */ #define CASE_SENSITIVE_ALWAYS_ON FALSE /* case sensitive user search */ /**************************************************************** * Section 3. Things that you should not change until you * have a good knowledge of the program */ #define LYNX_VERSION "2.1" #ifndef MAXINT #define MAXINT 2147483647 #endif /*MAXINT*/ /* text strings for certain actions */ /* changing these text strings is a way to customize * your environment to better suit your tastes */ #define HELP "Commands: Use arrow keys to move, '?' for help, 'q' to quit, '<-' to go back" #define MOREHELP \ "-- press space for more, use arrow keys to move, '?' for help, 'q' to quit" #define MORE "-- press space for next page --" #define FORM_LINK_MESSAGE "(FORM LINK) Select link to change or use 'x' and 'z' to toggle." #define NORMAL_LINK_MESSAGE "(NORMAL LINK) Select link to activate" #define LINK_NOT_FOUND "This hypertext subject is not available at this time." #define WWW_WAIT_MESSAGE "Getting %s" #define ADVANCED_URL_MESSAGE "URL: %s" #define WWW_FAIL_MESSAGE "Unable to access WWW file!!!" #define WWW_INDEX_MESSAGE "This is a searchable index. Use 's' to search" #define WWW_INDEX_MORE_MESSAGE "--More-- This is a searchable index. Use 's' to search" #define BAD_LINK_NUM_ENTERED "You have entered an invalid link number" #define GOPHER_PORT 70 /* the default gopher port (I wouldn't change this) */ #define MAXBASE 100 /* max length of base directory */ #define MAXHIGHLIGHT 160 /* max length of highlighted text */ #define MAXTARGET 130 /* max length of target string */ #define LINESIZE 1024 /* max length of line to read from file*/ #define MAXFNAME 1280 /* max filename length DDD/FILENAME.EXT */ #define MAXCOMMAND MAXFNAME /* max lengh of command should be the same */ #define MAXHIST 512 /* number of links we remember in history */ #define MAXLINKS 256 /* max links on one screen */ /* traversal lookup table file, don't worry about it for now */ #define TRAVERSE_FILE "/homea/local/lynx2-0-8/traverse.file" #define TRAVERSE_ERRORS "/homea/local/lynx2-0-8/traverse.errors" #define TRAVERSE_FOUND_FILE "/homea/local/lynx2-0-8/traverse.found" #endif /* USERDEFS_H */ used to send replies and error messages. * SYSTEM_MAIL must be able to accept a subject line through * the use of the /subject="SUBJECT" option * if your mailer uses anonther syntax, some hacking of * the "mailmsg.c" and "reply_by_mail.c" files may be required. */ #define SYSTEM_MAIL "mail" /*******************lynx2-1/PROBLEMS000644 000036 000040 00000004727 05467010457 015061 0ustar00montulliusersrv000000 000000 Lynx PROBLEMS file. I hope that you will never have to read this, but inevitably problems do arise. As implimentation and installation problems become known they will be outlined in this file. Links within documents of the type 'URL#selector' do not work when the document is specified like this: "file:/PATH/FILENAME" They will work if the document is specified like this: "file://localhost/PATH/FILENAME" Using "lynx -cache=1" may cause a crash due to a realloc error. Please use a cache larger than 1. Some systems, for example Ultrix, have different versions of the same program name on the system. "mail" is an example of this. If the /usr/bin/mail version of mail is used there is apparently no "-s" option for the subject. This is solved by using the /usr/ucb/mail program instead. If you do use the /usr/bin/mail program, Lynx may crash when it attemps to send a message to the file owner.(so don't;-)) The local execution links have been decided to be a security hole. Because of the fact that remote links are written by possibly non- secure individuals, there is nothing to stop them from writing a link such as and erasing your files. Therefore local execution links are turned off by default, but can be turned on with the '-exec' command line option. If you are writing a hypertext application and would like to use local execution links, please be sure of the integrity of the information providers. Another option '-locexec' will execute local execution links only in files that reside on the local machine. The screen resizeing is a little bit funny for WWW documents. If you resize the screen, any WWW documents that have been cached will be out of whack. Any further documents will look fine. This is a curses program anyways, so resizeable terminals are not that common. On some systems (i.e. HP/UX) terminal resizing does not work at all. Many SUN systems have a broken resolver. If you find that you cannot access remote documents and you are on a SUN system this may be you. Try "lynx http://128.141.201.74/default.html" to test whether you can access documents independent of your resolver. If this works you should first try compiling with the "-lresolv" option. (see the Makefile for details.) If "-lresolv" doesn't work you will need to check with the SUN newsgroup for instructions on how to fix your resolver. lynx2-1/INSTALLATION000644 000036 000040 00000014660 05504363700 015526 0ustar00montulliusersrv000000 000000 For a description of Lynx please read the README file. Lynx Installation guide. Last Updated December 1993 UNIX & VMS Step 1a. All of the variables that you are likely to change are in the userdefs.h file. There are a few that you must change or verify, and a few more that you will probably want to change. The variables that must be changed are marked as such in the userdefs.h file. Just edit it and the changes should be straight forward. NOTE: Many of the variables in userdefs.h are now configurable in the lynx.cfg file. UNIX & VMS Step 1b. (optional) Set up local printers in the lynx.cfg file. (see lynx.cfg for details) UNIX Step 2. VMS users skip ahead to 'VMS step 2' You should be ready to compile! If you type "make" with no arguments you will see a list of supported systems. If your system type IS listed you just need to type "make SYSTEM_TYPE". For instance, if you are running under IBM's RS/6000 AIX 3.2 you would just type "make aix32". If you were running Ultrix you would type "make ultrix". If you are on a SUN workstation and do not have 'gcc' you may change 'gcc' to '/usr/5bin/cc' in the Makefile If you are on a system that is not listed in the makefile it may be more difficult. The first thing you should try is just "make generic", this will compile with the "fancy_curses" option, and will give a much nicer screen display. If it doesn't compile or if the screen display looks strange (real strange), try compiling with the "low_curses" option. Edit the Makefile and remove the '-DFANCY_CURSES' definition under the 'generic:' entry. There may be some compatibility problems on some systems, but I don't know what they might be at this point. If you are running on a currently unsupported system please contact me at "montulli@ukanaix.cc.ukans.edu" If there are any problems I will try to fix them as soon as possible. VMS step 2. There is a very nice "build.com" script written by Foteos Macrides (macrides@sci.wfeb.edu). All you have to do is type "@build" and answer one question about your system. Current choices are: MultiNet (default) UCX Wollogong. The script will auto sense if you are on Alpha OpenVMS. (optional compilation method) If you have and want to use "mms" Set default to WWW.Library.vms and look at the descrip.mms file for details on its use. After mms has built LibWWW return to this directory and type one of the following to compile the Lynx sources: $ MMS/MACRO=(MULTINET=1) for VAXC - MultiNet $ MMS/MACRO=(WIN_TCP=1) for VAXC - Wollongong TCP/IP $ MMS/MACRO=(UCX=1) for VAXC - UCX $ MMS/MACRO=(MULTINET=1,DEC_C=1) for DECC - MultiNet $ MMS/MACRO=(WIN_TCP=1,DEC_C=1) for DECC - Wollongong TCP/IP $ MMS/MACRO=(UCX=1,DEC_C=1) for DECC - UCX If you just type "mms" it will revert to the multinet configuration. mms will build the Lynx sources and link in the WWW library. The Wollagong support is untested! Anyone with Wollagong wish to help? (I have included some untested mms files, try them out) UNIX Step 3. Go ahead and test it out. You shouldn't need to install Lynx to test it. There are several sample files in the samples directory, to view them type "./lynx samples/start.html" (UNIX) from this directory. (on VMS you will have to define lynx as a command and then type "lynx start" from the samples directory). From there you can test the local file, WWW, and gopher functions of Lynx. Once you are satisfied that it works, go ahead and install it. VERY IMPORTANT!!!!! If you are setting up an anonymous account with Lynx you are strongly advised to use the -anonymous command line option. If you do not use this option, users will be able to gain access to all readable files on your machine. VMS Step 3. Go ahead and test it out. You shouldn't need to install Lynx to test it. There are several sample files in the samples directory, to view them try 'lynx == "$dua?:[whatever]lynx.exe"' sd .samples then 'lynx start.html' VERY IMPORTANT!!!!! If you are setting up an anonymous account with Lynx you are strongly advised to use the -anonymous command line option. If you do not use this option, users will be able to gain access to all readable files on your machine. UNIX Step 4. (Installation) Lynx is very easy to install, if you want Lynx installed anywhere besides "/usr/local/bin", with the man files in "/usr/man/man1", you need to edit the Makefile and change the "exec" and "doc" defines. Otherwise just "su" to root and type "make install" and make will copy "lynx" and "lynx.1" to the specified directories. Those are the only to files necessary to run Lynx. (lynx.1 isn't really necessary, but it should be available) VMS Step 4. Your on your own for installation, you just need to move the executable to a public place and make it accessable. UNIX Step 5. (Optional, sorry no VMS support for this step) Adding Direct WAIS support. Get the freeWAIS distribution from sunsite.unc.edu and compile it. The compile process will create some libraries, you will need wais.a and client.a. Edit the Makefile in the src directory and add the library locations under the DIRECT WAIS ACCESS heading. Edit the Makefile for the WWW Libarary in the WWW/Libarary/CommonMakefile to make the WAIS.c sources in the library. If everything goes well you should be able to re-make and have direct WAIS access. UNIX & VMS Step 6. (Hopefully Optional) If something doesn't work, or you can't get it to compile at all, or you can't figure out what one of the defines means, or if you just want to send a comment. Send me a message by mail, or call me on the phone. (You'll find my address and phone number at the bottom of this document.) Until Lynx has been ported to all the worlds operating systems, I expect there will be some compatibility problems. For operating systems that we do not support at this campus, you may need to grant temporary access to a similar system for testing. Lou Montulli Montulli@ukanaix.cc.ukans.edu Computing Services Montulli@ukanvax.bitnet University of Kansas Lawrence, KS 66045 (913) 864-0436 ems I will try to fix them as soon as possible. VMS step 2. There is a velynx2-1/lynx.man000644 000036 000040 00000011210 05467010457 015363 0ustar00montulliusersrv000000 000000 .nr N -1 .nr D 5 .TH LYNX l Local .UC 4 .SH NAME lynx \- a general purpose distributed information browser for the World Wide Web .SH SYNOPSIS .B Lynx [options] [path or URL] .PP use "lynx -help" to display a complete list of current options. .SH DESCRIPTION .\" This defines appropriate quote strings for nroff and troff .ds lq \&" .ds rq \&" .if t .ds lq `` .if t .ds rq '' .\" Just in case these number registers aren't set yet... .if \nN==0 .nr N 10 .if \nD==0 .nr D 5 .I Lynx is a general-purpose distributed information browser and is part of the World Wide Web project. .I Lynx was designed to support a Campus Wide Information System (CWIS), but can be used for many other applications. .PP When it is started, .I Lynx is given a local path specifying a file containing text to be displayed, or a Uniform Resource Locator (URL) that specifies a resource to be displayed (usually the name of a file containing text information), the type of server that will provide the resource, and the Internet address of the system on which the specified server is running. If the URL or path specifies a hypertext file, that file will be a standard ASCII text file in which hypertext links are embedded. The simplest hypertext link is just a URL designating another resource which itself may contain both text and links. .PP When a hypertext document is being displayed, links appear different from standard text, and users press the up- or down-arrows to "select" a particular link. Selected links show up as highlighted text, and users press Return or right arrow when a link is highlighted to "follow" the selected link. When the link is followed .I Lynx finds the associated file and displays it on the screen in place of the first file. .PP .I Lynx data files can reside on any accessable local file system. (i.e. NFS, AFS, etc.), or on remote servers. Currently supported remote servers are HTTP, Gopher, FTP, NNTP, and WAIS. A single hypertext file may include links pointing to multiple remote servers, so that .I Lynx provides a truly distributed hypertext system. .PP .I Lynx currently understands two hypertext data formats, the .I Lynx internal hypertext language and HyperText Markup Language (HTML). The perferred language is HTML and support for the .I Lynx internal language will be terminated in a subsequent release. Documentation regarding the .I Lynx intenal hypertext language and HTML are available online. .PP .I Lynx is available for most flavors of Unix and VMS .PP This Un*x version of Lynx should work on any system with a reasonable Curses implementation .SH COMMANDS Use the cursor control keys to move around in .I Lynx. The up and down arrows move you from one selected link to another. Use the right arrow (or Return) to follow a link, and use the left arrow to return from a link. The numeric keypad, or the numbers mapped to the keypad keys, can also be used (i.e., 6-right 8-up 9-pgup 3-pgdn) .PP Other commands include: .TP .B m Return to the main menu (the first screen you see when you start Lynx) .TP .B + or Space or PgDn Scroll down to the next page .TP .B - or b or PgUp Scroll up to the previous page .TP .B ? Help .TP .B q Ctrl-D Quit Lynx .TP .B Backspace or Delete Display a list of links that have already been visited. The displayed links may be selected and will result in a new display of the previously displayed information. .TP .B / or s Search a selected file for all occurences of the string "string", and display the portion of the file containing that string. .TP .B n Find and display the next occurence of a search string. .TP .B c Send a message to the designated file owner or to the Lynx database administrator .TP .B a Adds the current link to your bookmark page. .TP .B g Allows you to go to a user-specified URL or file. .TP .B i Displays an index of documents or servers. .TP .B p Allows you to print to a local file, mail to an Internet address, print to the screen, or use any commands or printers defined by your system administrator. .TP .B '=' Displays an information screen, showing information about the document currently being displayed and the link that is currently selected. .TP .B '!' Spawns your default shell. .TP .B Backslash Displays the HTML source of the document currently on the screen. Pressing '\\' again re-renders the document. .SH NOTES This is a Beta release of Lynx 2.0 for UN*X/VMS .PP Thanks to Earl Fogel, Computing Services, University of Saskatchewan, fogel@sask.usask.ca, who wrote the original hytelnet code, and Foteos Macrides who worked on many parts of the VMS code. .SH AUTHOR Lou Montulli, Computing Services, University of Kansas montulli@ukanaix.cc.ukans.edu lynx2-1/CHANGES000644 000036 000040 00000023145 05504222601 014665 0ustar00montulliusersrv000000 000000 -grey area- * The Lynx Bookmark file is now interpreted as an HTML document. Old Lynx bookmark files must be converted using the lynx2html program or deleted. * HTML+ forms as implemented by XMosaic now work. fill in the empty spaces and press the submit button to submit the form. * The this is a test
Le CNAM (Conservatoire National des Arts et Métiers) est un remarquable établissement d'enseignement superieur (oui, oui, je vais insérer un logo ici mais HTML n'admet que le GIF et le X bitmap).

,network,anh,brentk,mooreb ippbr:*:42:lhoyle,arlene,carola,bob cs400:*:47:cs400 phsx:*:52:lsmith chem:*:57:ulaya prodsrv:*:62:dseaman aero:*:67:locke Garrett Blythe/homea/blythe/usr/bin/kshblythehannaibpMl8S/V/RpgGary Hanna/homea/hanna/usr/bin/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologin Remote Installation Services Account/usr/adm/ris/bin/shrisadm* Administration Subsyslynx2-1/test/ISO_LATIN1_test.html000644 000036 000040 00000006560 05467524525 020264 0ustar00montulliusersrv000000 000000 Test of ISO LATIN1 charactor set

ISO LATIN1 text entities

  • "Æ", /* capital AE diphthong (ligature) */
  • "Á", /* capital A, acute accent */
  • "Â", /* capital A, circumflex accent */
  • "À", /* capital A, grave accent */
  • "Å", /* capital A, ring */
  • "Ã", /* capital A, tilde */
  • "Ä", /* capital A, dieresis or umlaut mark */
  • "Ç", /* capital C, cedilla */
  • "Ð", /* capital Eth, Icelandic */
  • "é", /* capital E, acute accent */
  • "Ê", /* capital E, circumflex accent */
  • "È", /* capital E, grave accent */
  • "Ë", /* capital E, dieresis or umlaut mark */
  • "Í", /* capital I, acute accent */
  • "Î", /* capital I, circumflex accent */
  • "Ì", /* capital I, grave accent */
  • "Ï", /* capital I, dieresis or umlaut mark */
  • "Ñ", /* capital N, tilde */
  • "Ó", /* capital O, acute accent */
  • "Ô", /* capital O, circumflex accent */
  • "Ò", /* capital O, grave accent */
  • "Ø", /* capital O, slash */
  • "Õ", /* capital O, tilde */
  • "Ö", /* capital O, dieresis or umlaut mark */
  • "Þ", /* capital THORN, Icelandic */
  • "Ú", /* capital U, acute accent */
  • "Û", /* capital U, circumflex accent */
  • "Ù", /* capital U, grave accent */
  • "Ü", /* capital U, dieresis or umlaut mark */
  • "Ý", /* capital Y, acute accent */
  • "á", /* small a, acute accent */
  • "â", /* small a, circumflex accent */
  • "æ", /* small ae diphthong (ligature) */
  • "à", /* small a, grave accent */
  • "&", /* ampersand */
  • "å", /* small a, ring */
  • "ã", /* small a, tilde */
  • "ä", /* small a, dieresis or umlaut mark */
  • "ç", /* small c, cedilla */
  • "é", /* small e, acute accent */
  • "ê", /* small e, circumflex accent */
  • "è", /* small e, grave accent */
  • "ð", /* small eth, Icelandic */
  • "ë", /* small e, dieresis or umlaut mark */
  • ">", /* greater than */
  • "í", /* small i, acute accent */
  • "î", /* small i, circumflex accent */
  • "ì", /* small i, grave accent */
  • "ï", /* small i, dieresis or umlaut mark */
  • "<", /* less than */
  • "ñ", /* small n, tilde */
  • "ó", /* small o, acute accent */
  • "ô", /* small o, circumflex accent */
  • "ò", /* small o, grave accent */
  • "ø", /* small o, slash */
  • "õ", /* small o, tilde */
  • "ö", /* small o, dieresis or umlaut mark */
  • "ß", /* small sharp s, German (sz ligature) */
  • "þ", /* small thorn, Icelandic */
  • "ú", /* small u, acute accent */
  • "û", /* small u, circumflex accent */
  • "ù", /* small u, grave accent */
  • "ü", /* small u, dieresis or umlaut mark */
  • "ý", /* small y, acute accent */
  • "ÿ", /* small y, dieresis or umlaut mark */
  • " ",
  • " ",
  • " ",
LM
lynx2-1/test/formtest.html000644 000036 000040 00000000376 05502160003 017376 0ustar00montulliusersrv000000 000000

form test

  • forms directory at NCSA
  • forms overview at NCSA users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/test/test3.html000644 000036 000040 00000001021 05504110613 016565 0ustar00montulliusersrv000000 000000 text text

    One-line blurb
    The Abstract
    What is Xanadu?
    The New Literature 
    name                         phone   login     mailstop
-------------------------------------------------------
Last, First                  5-5555  firstl    JF2-45
Altis, Kevin                 6-8788
altis     JF2-58
more    pre    format     text
    k,anh,brentk,mooreb ippbr:*:42:lhoyle,arlene,carola,bob cs400:*:47:cs400 phsx:*:52:lsmith chem:*:57:ulaya prodsrv:*:62:dseaman aero:*:67:locke Garrett Blythe/homea/blythe/usr/bin/kshblythehannaibpMl8S/V/RpgGary Hanna/homea/hanna/usr/bin/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologin Remote Installation Services Account/usr/adm/ris/bin/shrisadm* Administration Subsyslynx2-1/test/README.txt000644 000036 000040 00000000225 05504226272 016351 0ustar00montulliusersrv000000 000000 The files in this directory do not represent a test suite. They are used by me during program testing to track down odd and mysterious bugs. :lou l:*:7: tty:*:7:root news:*:8:uucp opr:*:9:root auth:*:11: lp:*:12: lpr:*:12:root backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/test/test2.html000644 000036 000040 00000000624 05471011121 016571 0ustar00montulliusersrv000000 000000
    Deborah Nappi [deboran]
    Andrew J. Townsend School #39
    Rochester, NY
    716-467-8816
    Diane Clemens [diane_c]
    Ann J. Kellogg Elementary School
    Battle Creek, MI
    616-965-9
    773 James Connor,james_c,Ann J. Kellogg Elementary School,Battle Creek,MI,616-965-97 73 Adele Bowmar,adele_b,Arbor Hill Elementary School,Albany,NY,518-462-7165 gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/000755 000036 000040 00000000000 05506406202 014457 5ustar00montulliusersrv000000 000000 lynx2-1/src/descrip.mms000644 000036 000040 00000004774 05503400345 016641 0ustar00montulliusersrv000000 000000 ! Make LYNX hypertext browser under VMS ! ===================================== ! ! History: ! 1/1/93 creation at KU (Lou montulli@ukanaix.cc.ukans.edu). ! 4/12/93 (seb@lns61.tn.cornell.edu) ! modified to support either UCX or MULTINET ! 12/2/93 modified to support Lynx rewrite ! 12/13/93 (macrides@sci.wfeb.edu) ! Added conditional compilations for VAXC vs. DECC ! (dependencies not yet specified; this is just a ! "starter", should anyone want to do it well). ! ! Instructions: ! Use the correct command line for your TCP/IP implementation: ! ! $ MMS/MACRO=(MULTINET=1) for VAXC - MultiNet ! $ MMS/MACRO=(WIN_TCP=1) for VAXC - Wollongong TCP/IP ! $ MMS/MACRO=(UCX=1) for VAXC - UCX ! $ MMS/MACRO=(MULTINET=1,DEC_C=1) for DECC - MultiNet ! $ MMS/MACRO=(WIN_TCP=1,DEC_C=1) for DECC - Wollongong TCP/IP ! $ MMS/MACRO=(UCX=1,DEC_C=1) for DECC - UCX ! OBJS= LYClean.obj, LYShowInfo.obj, LYEdit.obj, LYStrings.obj, \ LYMail.obj, HTAlert.obj, GridText.obj, LYGetFile.obj, \ LYMain.obj, LYMainLoop.obj, LYCurses.obj, LYBookmark.obj, LYUtils.obj, \ LYOptions.obj, LYReadCFG.obj, LYSearch.obj, LYHistory.obj, \ LYForms.obj, LYPrint.obj, LYrcFile.obj, \ HTML.obj, HTFWriter.obj, HTInit.obj, DefaultStyles.obj .IFDEF MULTINET WWWLIB= [-.WWW.Library.Implementation]WWWLib_MULTINET.olb .IFDEF DEC_C TCPFLAGS=/stand=vaxc/prefix=ansi/def=(DEBUG,ACCESS_AUTH,MULTINET,__VMS_CURSES) OPT=[]MULTINET_DECC.opt .ELSE TCPFLAGS=/define=(DEBUG,ACCESS_AUTH,MULTINET) OPT=[]MULTINET_VAXC.opt .ENDIF .ENDIF .IFDEF WIN_TCP WWWLIB= [-.WWW.Library.Implementation]WWWLib_WIN_TCP.olb .IFDEF DEC_C TCPFLAGS=/stand=vaxc/prefix=ansi/def=(DEBUG,ACCESS_AUTH,WIN_TCP,__VMS_CURSES) OPT=[]WIN_TCP_DECC.opt .ELSE TCPFLAGS=/define=(DEBUG,ACCESS_AUTH,WIN_TCP) OPT=[]WIN_TCP_DECC.opt .ENDIF .ENDIF .IFDEF UCX WWWLIB= [-.WWW.Library.Implementation]WWWLib_UCX.olb .IFDEF DEC_C TCPFLAGS=/stand=vaxc/prefix=all/def=(DEBUG,ACCESS_AUTH,UCX,_VMS_CURSES) OPT=[]UCX_DECC.opt .ELSE TCPFLAGS=/define=(DEBUG,ACCESS_AUTH,UCX) OPT=[]UCX_VAXC.opt .ENDIF .ENDIF .IFDEF TCPFLAGS .ELSE WWWLIB= [-.WWW.Library.Implementation]WWWLib_MULTINET.olb !Default to MultiNet .IFDEF DEC_C TCPFLAGS=/stand=vaxc/prefix=ansi/define=(DEBUG,ACCESS_AUTH,MULTINET,_VMS_CURSES) OPT=[]MULTINET_DECC.opt .ELSE TCPFLAGS=/define=(DEBUG,ACCESS_AUTH,MULTINET) OPT=[]MULTINET_VAXC.opt .ENDIF .ENDIF CFLAGS=$(TCPFLAGS)/include=([-],[-.WWW.Library.Implementation]) lynx : $(OBJS) !$(WWWLIB) link /executable=lynx.exe $(OBJS), $(WWWLIB)/lib, $(OPT)/opt copy lynx.exe [-]lynx.exe lynx2-1/src/LYMail.c000644 000036 000040 00000020356 05505433550 015765 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYSignal.h" #include "LYUtils.h" #include "LYClean.h" #include "LYStrings.h" #include "userdefs.h" #include "LYGlobalDefs.h" /* * mailmsg sends a message to the owner of the * file if one is defined telling of errors. (ie link not available) */ PUBLIC void mailmsg ARGS4(int,cur, char *,owner_address, char *,filename, char *,linkname) { #ifndef MSDOS FILE *fd, *ofp; char cmd[256], *tmptr; char tmpfile[80]; char *address_ptr1, *address_ptr2; BOOLEAN first=TRUE; if((tmptr = (char *)strchr(owner_address,'\n')) != NULL) *tmptr = '\0'; #ifdef UNIX /* mail -s "subject line" [owner's_address,] Alertmail */ sprintf(cmd, "%s -t", SYSTEM_MAIL); if ((fd = popen(cmd, "w")) == NULL) return; fprintf(fd,"To:%s\n", owner_address); fprintf(fd,"Subject:Lynx Error in %s\n\n",filename); fprintf(fd,"X-URL:%s\n",filename); fprintf(fd,"X-Mailer:Lynx, Version %s\n",LYNX_VERSION); #endif UNIX #ifdef VMS sprintf(tmpfile,"%s%s",TEMP_SPACE, "temp_mail."); if((fd = fopen(tmpfile,"w")) == NULL) return; #endif VMS fprintf(fd,"The link %s :?: %s \n", links[cur].lname, links[cur].target); fprintf(fd,"called \"%s\"\n",links[cur].hightext); fprintf(fd,"in the file \"%s\" called \"%s\"",filename,linkname); fputs("\nwas requested but was not available.",fd); fputs("\n\nThought you might want to know.",fd); fputs("\n\nThis message was automatically generated by\n",fd); fprintf(fd,"Lynx ver. %s",LYNX_VERSION); #ifdef UNIX pclose(fd); #endif UNIX #ifdef VMS fclose(fd); sprintf(cmd, "%s /subject=\"Lynx Error in %s\" %s ",SYSTEM_MAIL, filename,tmpfile); address_ptr1 = owner_address; do { if((tmptr = strchr(address_ptr1,",")) != NULL) { address_ptr2=tmptr+1; *tmptr = '\0'; } else address_ptr2=NULL; if(strlen(owner_address) > 3) { if(!first) strcat(cmd, ", "); /* add a comma and a space */ sprintf( &cmd[strlen(cmd)], MAIL_ADRS, address_ptr1); first = FALSE; } address_ptr1=address_ptr2; } while(address_ptr1!=NULL); signal(SIGINT, SIG_IGN); system(cmd); signal(SIGINT, cleanup_sig); remove(tmpfile); #endif VMS #ifdef TRAVERSAL if((ofp = fopen(TRAVERSE_ERRORS,"a+")) == NULL) { perror("unable to open traversal errors output file"); exit(1); } fprintf(ofp,"%s %s in %s\n",links[cur].lname, links[cur].target, filename); fclose(ofp); #endif TRAVERSAL #endif MSDOS return; } /* * this procedure only works on unix & VMS * reply by mail invokes sendmail or mail on VMS to send a comment * from the users to the owner */ /* global variable for async i/o */ BOOLEAN term_letter; void terminate_letter PARAMS((int sig)); void remove_tildes PARAMS((char *string)); PUBLIC void reply_by_mail ARGS2(char *,mail_address, char *,filename) { char command[100]; char subject[256]; char user_input[1000]; FILE *fd; char c; /* user input */ char cmd[256], *tmptr, *address_ptr1, *address_ptr2; char tmpfile[100]; BOOLEAN first=TRUE; term_letter=FALSE; clear(); move(2,0); tempname(tmpfile,NEW_FILE); if((fd = fopen(tmpfile,"w")) == NULL) return; if(*mail_address != '\0') { addstr("You are now sending a comment to:"); addstr("\n "); addstr(mail_address); addch('\n'); } #ifdef UNIX /* Use ^G to cancel mailing of comment */ /* don't let sigints exit lynx */ signal(SIGINT, terminate_letter); /* */ /* NEW */ /* put the to: line in the temp file */ fprintf(fd,"To:%s\n", mail_address); fprintf(fd,"X-URL:%s\n",filename); fprintf(fd,"X-Mailer:Lynx, Version %s\n",LYNX_VERSION); #endif UNIX addstr(" Please enter your name, or leave it blank if you wish to remain anonymous\n"); strcpy(user_input,"Personal_Name: "); if (LYgetstr(user_input, VISIBLE) < 0 || term_letter) { statusline("Comment request cancelled!!!"); fclose(fd); /* close the temp file */ sleep(1); goto cleanup; } remove_tildes(user_input); term_letter=FALSE; fprintf(fd,"%s\n",user_input); addstr("\n\n Please enter a mail address or some other\n"); addstr(" means to contact you, if you desire a response.\n"); strcpy(user_input,"From: "); /* add the mail address if there is one */ if(*personal_mail_address != '\0') strcat(user_input,personal_mail_address); if (LYgetstr(user_input, VISIBLE) < 0 || term_letter) { statusline("Comment request cancelled!!!"); sleep(1); fclose(fd); /* close the temp file */ goto cleanup; } remove_tildes(user_input); fprintf(fd,"%s\n",user_input); addstr("\n\n Please enter a subject line\n"); strcpy(user_input,"Subject: "); if (LYgetstr(user_input, VISIBLE) < 0 || term_letter) { statusline("Comment request cancelled!!!"); sleep(1); fclose(fd); /* close the temp file */ goto cleanup; } if(*filename == '\0') strncpy(subject, user_input,255); remove_tildes(user_input); fprintf(fd,"%s\n",user_input); if(!anonymous && *editor != '\0') { fclose(fd); /* spawn the users editor on the mail file */ sprintf(user_input,"%s %s",editor,tmpfile); statusline("Spawning your selected editor to edit mail message"); stop_curses(); if(system(user_input)) { start_curses(); statusline("Error spawning editor, check your editor definition in the options menu"); sleep(1); } else { start_curses(); } } else { addstr("\n\n Please enter your message below."); addstr("\n When you are done, press enter and put a single period (.)"); addstr("\n on a line and press enter again."); addstr("\n\n"); scrollok(stdscr,TRUE); refresh(); *user_input = '\0'; if (LYgetstr(user_input, VISIBLE) < 0 || term_letter) { statusline("Comment request cancelled!!!"); sleep(1); fclose(fd); /* close the temp file */ goto cleanup; } while(!STREQ(user_input,".") && !term_letter) { addch('\n'); remove_tildes(user_input); fprintf(fd,"%s\n",user_input); *user_input = '\0'; if (LYgetstr(user_input, VISIBLE) < 0) { statusline("Comment request cancelled!!!"); sleep(1); fclose(fd); /* close the temp file */ goto cleanup; } } fprintf(fd,".\n"); fprintf(fd,"\n"); fclose(fd); /* close the temp file */ scrollok(stdscr,FALSE); /* stop scrolling */ } statusline("Send this comment? (y/n) "); while((c = toupper(LYgetch())) != 'Y' && c != 'N') ; /* null body */ clear(); /* clear the screen */ if(c == 'N') { goto cleanup; } #ifdef VMS sprintf( cmd, "%s /subject=\"Commenting from file %s\" %s ", SYSTEM_MAIL, filename, tmpfile); /* now add all the people in the mail_address field */ address_ptr1 = mail_address; do { if((tmptr = strchr(address_ptr1,",")) != NULL) { address_ptr2= (tmptr+1); *tmptr = '\0'; } else address_ptr2=NULL; /* 4 letters is arbitrarily the smallest posible mail address, * at least for lynx. That way extra spaces won't * confuse the mailer and give a blank address */ if(strlen(address_ptr1) > 3) { if(!first) strcat(cmd, ", "); /* add a comma and a space */ sprintf( &cmd[strlen(cmd)], MAIL_ADRS, address_ptr1); first=FALSE; } address_ptr1=address_ptr2; } while(address_ptr1!=NULL); stop_curses(); printf("Sending your comment. Please wait..."); signal(SIGINT, SIG_IGN); system(cmd); signal(SIGINT, cleanup_sig); start_curses(); #else /* send the tmpfile into sendmail. */ sprintf(cmd,"%s -t < %s", SYSTEM_MAIL, tmpfile); signal(SIGINT, SIG_IGN); system(cmd); if(TRACE) printf("%s\n",cmd); #endif VMS /* come here to cleanup and exit */ cleanup: #ifdef UNIX signal(SIGINT, cleanup_sig); #endif UNIX scrollok(stdscr,FALSE); /* stop scrolling */ remove(tmpfile); } PRIVATE void terminate_letter ARGS1(int,sig) { term_letter=TRUE; #ifdef NOTDEFINED /* Can't get vsignal to work during LYgetstr() calls */ /* Problem appears to be due to the recurring timed reads */ #ifdef VMS signal(SIGINT, terminate_letter); #endif #endif NOTDEFINED } PRIVATE void remove_tildes ARGS1(char *,string) { /* change the first character to a space if * it is a '~' */ if(*string == '~') *string = ' '; } course be most appreciated, on code, or information on the web which is out of date or misleading. If you write your own hypertext and make it available by anonymous ftp or using a server, tell us and we'll put some pointers to it in ours. Thus spreads the web... lynx2-1/src/Makefile000644 000036 000040 00000001465 05501272055 016127 0ustar00montulliusersrv000000 000000 OBJS= LYClean.o LYShowInfo.o LYEdit.o LYStrings.o \ LYMail.o HTAlert.o GridText.o LYGetFile.o \ LYMain.o LYMainLoop.o LYCurses.o LYBookmark.o LYUtils.o \ LYOptions.o LYReadCFG.o LYSearch.o LYHistory.o \ LYForms.o LYPrint.o LYrcFile.o \ HTML.o HTFWriter.o HTInit.o DefaultStyles.o CFLAGS= $(MCFLAGS) -I.. all: lynx lynx: $(OBJS) $(WWWLIB) @echo "Making Lynx code" $(CC) $(CFLAGS) -o lynx $(OBJS) $(WWWLIB) $(LIBS) cp lynx .. traversal: $(OBJS) traversal.o $(WWWLIB) @echo "Making Lynx code" $(CC) $(CFLAGS) -o lynx $(OBJS) traversal.o $(LIBS) $(WWWLIB) cp lynx .. dbg: $(OBJS) $(WWWLIB) @echo "Making Lynx code" $(CC) -g $(OBJS) $(CFLAGS) $(WWWLIB) $(LIBS) lint: lint *.c > ../lint.out clean: rm -f *.o rm -f core main.o: ../userdefs.h mainloop.o: ../userdefs.h read_cfg.o: ../userdefs.h QccOperations control account/homea/operator/bin/kshoperatorrisNologin Remote Installation Services Account/usr/adm/ris/bin/shrisadm* Administration Subsyslynx2-1/src/LYSearch.h000644 000036 000040 00000000420 05502177156 016307 0ustar00montulliusersrv000000 000000 #ifndef LYSearch_H #define LYSearch_H #ifndef LYSTRUCTS_H #include "LYStructs.h" #endif extern void textsearch PARAMS((document *cur_doc, char *prev_target)); #define IN_FILE 1 #define IN_LINKS 2 #ifndef NOT_FOUND #define NOT_FOUND 0 #endif #endif /* LYSearch_H */ sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYUtils.c000644 000036 000040 00000035753 05506367057 016223 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYUtils.h" #include "LYStrings.h" #include "LYGlobalDefs.h" #include "LYSignal.h" /* * highlight (or unhighlight) a given link */ PUBLIC void highlight ARGS2(int,flag, int,cur) { char buffer[200]; if (nlinks > 0) { move(links[cur].ly, links[cur].lx); if (flag == ON) { /* makes some terminals work wrong because * they can't handle two attributes at the * same time */ /* start_bold(); */ start_reverse(); } else { start_bold(); } if(links[cur].type == WWW_FORM_LINK_TYPE) { int len; int avail_space = (COLS-links[cur].lx)-1; LYstrncpy(buffer,links[cur].hightext, avail_space); addstr(buffer); len = strlen(buffer); for(; len < links[cur].form->size && len < avail_space; len++) addch('_'); } else { /* copy into the buffer only what will fit within the * width of the screen */ LYstrncpy(buffer,links[cur].hightext, COLS-links[cur].lx-1); addstr(buffer); } if (flag == ON) stop_reverse(); stop_bold(); move(LINES-1,COLS-1); /* get curser out of the way */ refresh(); } } /* * display (or hide) the status line */ PUBLIC void statusline ARGS1(char *,text) { char buffer[256]; #ifdef VMS int savex, savey; int curx, cury; #endif if(!text || text==NULL) return; /* don't print statusline messages if dumping to stdout */ if(dump_output_immediately) return; /* make sure text is not longer than COLS */ strncpy(buffer,text,COLS-1); move(LINES-1,0); clrtoeol(); if (text != NULL) { start_reverse(); addstr(buffer); stop_reverse(); } #ifdef VMS mvcur(savey, savex, cury, curx); #endif refresh(); } PUBLIC void noviceline ARGS1(int,more) { move(LINES-3,0); stop_reverse(); clrtoeol(); start_reverse(); start_reverse(); addstr(" Arrow keys: Up and Down to move. Right to follow a link; Left to go back. \n"); stop_reverse(); clrtoeol(); start_reverse(); addstr(" S)earch P)rint M)ain menu O)ptions G)o Q)uit [delete]=history list \n"); if(is_www_index && more) { addstr("This is a searchable index. Use 's' to search:"); stop_reverse(); addstr(" "); start_reverse(); addstr("space for more"); } else if(is_www_index) { addstr("This is a searchable index. Use 's' to search:"); } else { addstr("Type a command or ? for help:"); if(more) { stop_reverse(); addstr(" "); start_reverse(); addstr("Press space for next page"); } } stop_reverse(); refresh(); } PUBLIC void async_interupt ARGS1(int,sig) { #ifdef HAVE_SIGIO if(toupper(LYgetch())=='A') /* */ #endif HAVE_SIGIO InteruptTransfer=TRUE; /* */ #ifdef VMS /* reassert the AST */ signal(SIGINT, async_interupt); /* refresh the screen to get rid of the "cancel" message */ clearok(curscr, TRUE); refresh(); #endif /* VMS */ } /* must recognize a URL and return the type. */ PUBLIC int is_url ARGS1(char *,filename) { char *cp=filename; char *cp2; /* kill beginning spaces */ while(isspace(*cp)) cp++; if(!strncmp(cp,"news:",5)) { return(NEWS_URL_TYPE); } else if(!strncmp(cp,"mailto:",7)) { return(MAILTO_URL_TYPE); /* special internal lynx type */ } else if(!strncmp(cp,"LYNXPRINT:",9)) { return(LYNXPRINT_URL_TYPE); /* special internal lynx type */ } else if(!strncmp(cp,"LYNXHIST:",9)) { return(LYNXHIST_URL_TYPE); /* if it doesn't contain ":/" then it can't be a url * except for news: */ } else if(!strstr(cp+3,":/")) { return(0); } else if(!strncmp(cp,"http",4)) { return(HTTP_URL_TYPE); } else if(!strncmp(cp,"file",4)) { return(FILE_URL_TYPE); } else if(!strncmp(cp,"gopher",6)) { if((cp2 = strchr(cp+11,'/')) != NULL) { if(toupper(*(cp2+1)) == 'H' || *(cp2+1) == 'w') /* if this is a gopher html type */ return(HTML_GOPHER_URL_TYPE); else return(GOPHER_URL_TYPE); } else { return(GOPHER_URL_TYPE); } } else if(!strncmp(cp,"ftp",3)) { return(FTP_URL_TYPE); } else if(!strncmp(cp,"wais",4)) { return(WAIS_URL_TYPE); } else if(!strncmp(cp,"telnet",6)) { return(TELNET_URL_TYPE); } else if(!strncmp(cp,"tn3270",6)) { return(TN3270_URL_TYPE); } else if(!strncmp(cp,"rlogin",6)) { return(RLOGIN_URL_TYPE); } else if(!strncmp(cp,"afs",3)) { return(AFS_URL_TYPE); } else if(!strncmp(cp,"prospero",8)) { return(PROSPERO_URL_TYPE); } else { return(0); } } /* * remove backslashes from any string */ PUBLIC void remove_backslashes ARGS1(char *,buf) { char *cp; for (cp=buf; *cp != '\0' ; cp++) { if(*cp != '\\') /* don't print slashes */ *buf = *cp, buf++; else if(*cp == '\\' && *(cp+1) == '\\') /*print one slash if there*/ *buf = *cp, /* are two in a row */ buf++; } *buf = '\0'; } /* * checks to see if the current process is attached via a terminal in the * local domain * */ #ifdef VMS #define NO_UTMP #endif #ifdef sgi #define NO_UTMP #endif PUBLIC BOOLEAN inlocaldomain () { #ifdef NO_UTMP return(FALSE); #else int n; FILE *fp; struct utmp me; char *cp, *mytty=NULL; char *ttyname(); if ((cp=ttyname(0))) mytty = strrchr(cp, '/'); if (mytty && (fp=fopen(UTMP_FNAME, "r")) != NULL) { mytty++; do { n = fread((char *) &me, sizeof(struct utmp), 1, fp); } while (n>0 && !STREQ(me.ut_line,mytty)); (void) fclose(fp); if (n > 0 && strlen(me.ut_host) > strlen(LOCAL_DOMAIN) && STREQ(LOCAL_DOMAIN, me.ut_host+strlen(me.ut_host)-strlen(LOCAL_DOMAIN)) ) return(TRUE); } return(FALSE); #endif NO_UTMP } /************** ** This bit of code catches window size change signals **/ #ifdef VMS #define NO_SIZECHANGE #endif #ifdef SNAKE #define NO_SIZECHANGE #endif PUBLIC void size_change ARGS1(int,sig) { #ifndef NO_SIZECHANGE static struct winsize zewinsize; /* 4.3 BSD window sizing */ /* set recent_sizechange to LINES to make it true and to remember the old amount of lines on a page */ recent_sizechange=TRUE; if (ioctl(0, TIOCGWINSZ, (char *) &zewinsize) == 0) { LINES = zewinsize.ws_row; COLS = zewinsize.ws_col; } else { /* code here to use sizes from termcap */ } #endif NO_SIZECHANGE } /* * SUG_FILENAME -- Foteos Macrides 03-Jul-1993 * * Improved version of my VMSfile() and UNIXfile() routines in OURUTILS.C * of the gopher client (also sent to the GopherMeisters; hope they * get around to upgrading it there too). */ PUBLIC void change_sug_filename ARGS1(char *,fname) { char *cp, *dot, *end; int j, k; char *last_slash; /* remove everything up the the last_slash if there is one */ if((last_slash = strrchr(fname,'/')) != NULL) { for(cp=fname, last_slash++; *last_slash!='\0'; cp++, last_slash++) *cp = *last_slash; *cp = '\0'; } /*** establish the current end of fname ***/ dot = end = fname + strlen(fname); /*** Trim off gopher date-size suffix, if present ***/ if ((*(dot - 1) == ']') && ((cp = strrchr(fname, '[')) != NULL) && (cp > fname) && *(--cp) == ' ') while (*cp == ' ') *(cp--) = '\0'; #ifdef VMS /*** Replace illegal or problem characters ***/ for (cp = fname; cp < dot; cp++) { /** Replace with underscores **/ if (*cp == ' ' || *cp == '/' || *cp == ':' || *cp == '[' || *cp == ']') *cp = '_'; /** Replace with dashes **/ else if (*cp == '!' || *cp == '?' || *cp == '\'' || *cp == ',' || *cp == ':' || *cp == '\"' || *cp == '+' || *cp == '@' || *cp == '\\' || *cp == '(' || *cp == ')' || *cp == '=' || *cp == '<' || *cp == '>' || *cp == '#' || *cp == '%' || *cp == '*' || *cp == '`' || *cp == '~' || *cp == '^' || *cp == '|' || *cp == '/') *cp = '-'; } /** Collapse any serial underscores **/ cp = fname + 1; j = 0; while (cp < dot) { if (fname[j] == '_' && *cp == '_') cp++; else fname[++j] = *cp++; } fname[++j] = '\0'; /** Collapse any serial dashes **/ cp = fname + 1; j = 0; while (cp < dot) { if (fname[j] == '-' && *cp == '-') cp++; else fname[++j] = *cp++; } fname[++j] = '\0'; /** Trim any trailing or leading **/ /** underscrores or dashes **/ cp = fname + (strlen(fname)) - 1; while (*cp == '_' || *cp == '-') *cp-- = '\0'; if (fname[0] == '_' || fname[0] == '-') { cp = fname; while ((*cp == '_' || *cp == '-') && cp < dot) cp++; j = 0; while (cp < dot) fname[j++] = *cp++; fname[j] = '\0'; } /** Replace all but the last period with _'s, **/ /** or second to last if last is followed by **/ /** a Z or z, e.g., convert foo.tar.Z to **/ /** foo.tar_Z **/ j = strlen(fname) - 1; if ((dot = strrchr(fname, '.')) != 0) { if (((fname[j] != '.') && (*(dot+1) == 'Z' || *(dot+1) == 'z')) && (((cp = strchr(fname, '.')) != NULL) && cp < dot)) { *dot = '_'; dot = strrchr(fname, '.'); } cp = fname; while ((cp = strchr(cp, '.')) != NULL && cp < dot) *cp = '_'; /** But if the root is > 39 characters, move **/ /** the period appropriately to the left **/ while (dot - fname > 39) { *dot = '\0'; if ((cp = strrchr(fname, '_')) != NULL) { *cp = '.'; *dot = '_'; } else if ((cp = strrchr(fname, '-')) != NULL) { *cp = '.'; *dot = '_'; } else { *dot = '_'; j = strlen(fname); fname[j+1] = '\0'; while (j > 39) fname[j--] = fname[j]; fname[j] = '.'; } dot = strrchr(fname, '.'); } /** Make sure the extension is < 40 characters **/ if ((fname + strlen(fname) - dot) > 39) *(dot+40) = '\0'; /** Trim trailing dashes or underscores **/ j = strlen(fname) - 1; while (fname[j] == '_' || fname[j] == '-') fname[j--] = '\0'; } else { /** No period, so put one on the end, or after **/ /** the 39th character, trimming trailing dashes **/ /** or underscrores **/ if (strlen(fname) > 39) fname[39] = '\0'; j = strlen(fname) - 1; while ((fname[j] == '_') || (fname[j] == '-')) j--; fname[++j] = '.'; fname[++j] = '\0'; } #else /* not VMS (UNIX) */ /*** Replace problem characters ***/ for (cp = fname; *cp != '\0'; cp++) { switch (*cp) { case '\'': case '\"': case '/': case ' ': *cp = '-'; } } #endif /* VMS (UNIX) */ /** Make sure the rest of the original string in nulled, **/ /** to avoid problems with the line editor **/ cp = fname + strlen(fname); while (cp < end) *cp++ = '\0'; } /* * To create standard temporary file names */ PUBLIC void tempname ARGS2(char *,namebuffer, int,action) { static int counter = 0; if(action == REMOVE_FILES) { /* REMOVE ALL FILES */ for(; counter > 0; counter--) { sprintf(namebuffer, "%sL%d%u.html", TEMP_SPACE, getpid(), counter-1); remove(namebuffer); } } else /* add a file */ { /* * Create name */ sprintf(namebuffer, "%sL%d%u.html", TEMP_SPACE, getpid(), counter++); } } /* convert 4, 6, 2, 8 to left, right, down, up, etc. */ PUBLIC int number2arrows ARGS1(int,number) { switch(number) { case '1': number=END; break; case '2': number=DNARROW; break; case '3': number=PGDOWN; break; case '4': number=LTARROW; break; case '5': number=DO_NOTHING; break; case '6': number=RTARROW; break; case '7': number=HOME; break; case '8': number=UPARROW; break; case '9': number=PGUP; break; } return(number); } #ifdef NEXT /* no putenv on the next so we use this code instead! */ /* Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #ifdef STDC_HEADERS #include #else extern int errno; #endif #if defined(STDC_HEADERS) || defined(USG) #include #define index strchr #define bcopy(s, d, n) memcpy((d), (s), (n)) #else /* not (STDC_HEADERS or USG) */ #include #endif /* STDC_HEADERS or USG */ #ifdef HAVE_UNISTD_H #include #endif #ifndef NULL #define NULL 0 #endif #if !__STDC__ #define const #endif extern char **environ; /* Put STRING, which is of the form "NAME=VALUE", in the environment. */ int putenv (string) const char *string; { char *name_end = index (string, '='); register size_t size; register char **ep; if (name_end == NULL) { /* Remove the variable from the environment. */ size = strlen (string); for (ep = environ; *ep != NULL; ++ep) if (!strncmp (*ep, string, size) && (*ep)[size] == '=') { while (ep[1] != NULL) { ep[0] = ep[1]; ++ep; } *ep = NULL; return 0; } } size = 0; for (ep = environ; *ep != NULL; ++ep) if (!strncmp (*ep, string, name_end - string) && (*ep)[name_end - string] == '=') break; else ++size; if (*ep == NULL) { static char **last_environ = NULL; char **new_environ = (char **) malloc ((size + 2) * sizeof (char *)); if (new_environ == NULL) return -1; (void) bcopy ((char *) environ, (char *) new_environ, size * sizeof (char *)); new_environ[size] = (char *) string; new_environ[size + 1] = NULL; if (last_environ != NULL) free ((char *) last_environ); last_environ = new_environ; environ = new_environ; } else *ep = (char *) string; return 0; } #endif NEXT are two in a row */ lynx2-1/src/LYClean.c000644 000036 000040 00000003765 05503736261 016135 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYSignal.h" #include "LYClean.h" #include "LYGlobalDefs.h" /* * Interrupt handler. Stop curses and exit gracefully. */ PUBLIC void cleanup_sig ARGS1(int,sig) { char command[80]; /* ignore further interrupts */ /* mhc: 11/2/91 */ (void) signal (SIGHUP, SIG_IGN); #ifndef VMS /* use ttclose() from cleanup() for VMS */ (void) signal (SIGINT, SIG_IGN); #endif (void) signal (SIGTERM, SIG_IGN); #ifndef MSDOS if (sig != SIGHUP) { #else if (TRUE) { #endif cleanup(); /* <==also calls cleanup_files() */ printf("\nExiting via interrupt: exit(%d)\n",sig); fflush(stdout); } #ifdef TRAVERSAL dump_traversal_history(); #endif #ifdef VMS exit(0); #else exit(sig); #endif VMS } /* * called by Interrupt handler or at quit time. * Erases the temporary files that lynx created * temporary files are: * TEMP_SPACE LYNX pid() # * TEMP_SPACE LYNXhist pid() * TEMP_SPACE LYNX pid() PRINTOPTIONS */ PUBLIC void cleanup_files NOARGS { char filename[120]; tempname(filename, REMOVE_FILES); sprintf(filename,"%sLYNX%dPRINTOPTIONS",TEMP_SPACE,getpid()); remove(filename); sprintf(filename,"%sLYNXhist%d",TEMP_SPACE,getpid()); remove(filename); sprintf(filename,"%sLYNXImage%d",TEMP_SPACE,getpid()); remove(filename); sprintf(filename,"%sLYNXprint%d",TEMP_SPACE,getpid()); remove(filename); } PUBLIC void cleanup NOARGS { int lastx=1, lasty=1; #ifdef VMS extern BOOLEAN DidCleanup; #endif VMS /* cleanup signals - just in case */ /* ignore further interrupts */ /* mhc: 11/2/91 */ (void) signal (SIGHUP, SIG_IGN); (void) signal (SIGTERM, SIG_IGN); #ifndef VMS /* use ttclose() from cleanup() for VMS */ (void) signal (SIGINT, SIG_IGN); #endif move(LINES-1, 0); clrtoeol(); stop_bold(); stop_underline(); stop_reverse(); refresh(); stop_curses(); cleanup_files(); #ifdef VMS ttclose(); DidCleanup = TRUE; #endif fflush(stdout); } lynx2-1/src/LYMain.c000644 000036 000040 00000025745 05503671210 015771 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "HTAccess.h" #include "LYUtils.h" #include "LYGlobalDefs.h" #include "LYSignal.h" #include "LYGetFile.h" #include "LYStrings.h" #include "LYClean.h" /* ahhhhhhhhhh!! Global variables :-< */ int HTCacheSize = DEFAULT_CACHE_SIZE; /* number of docs cached in memory */ int InteruptTransfer = FALSE; /* asyncronous transfer abort */ char *empty_string = "\0"; int display_lines; /* number of lines in display */ int www_search_result= -1; printer_type *printers = NULL; /* linked list of printers */ char *log_file_name = NULL; /* for WAIS log file name in libWWW */ int port_syntax = 1; char *startfile = STARTFILE; /* the first file */ char *helpfile = HELPFILE; /* the help file */ char indexfile[256]; /* an index file if there is one */ char personal_mail_address[120]; /* the users mail address */ char *display=NULL; BOOLEAN LYforce_HTML_mode=FALSE; BOOLEAN LYforce_no_cache=FALSE; BOOLEAN telnet_ok=TRUE; BOOLEAN recent_sizechange=FALSE; /* the window size changed recently? */ BOOLEAN user_mode=NOVICE_MODE; BOOLEAN dump_output_immediately=FALSE; BOOLEAN anonymous=FALSE; BOOLEAN is_www_index=FALSE; BOOLEAN lynx_mode=NORMAL_LYNX_MODE; BOOLEAN no_print = FALSE; BOOLEAN child_lynx = FALSE; BOOLEAN local_exec = LOCAL_EXECUTION_LINKS_ALWAYS_ON; BOOLEAN local_exec_on_local_files = LOCAL_EXECUTION_LINKS_ON_BUT_NOT_REMOTE; BOOLEAN error_logging = MAIL_SYSTEM_ERROR_LOGGING; BOOLEAN vi_keys = VI_KEYS_ALWAYS_ON; BOOLEAN emacs_keys = EMACS_KEYS_ALWAYS_ON; BOOLEAN keypad_mode = DEFAULT_KEYPAD_MODE; BOOLEAN case_sensitive = CASE_SENSITIVE_ALWAYS_ON; char editor[256]; /* the name of the current editor */ char bookmark_page[256]; /* the name of the current bookmark page */ linkstruct links[MAXLINKS] = {NULL}; histstruct history[MAXHIST] = {NULL}; int nlinks = 0; /* number of links in memory */ int nhist = 0; /* number of history entries */ int more = FALSE; /* is there more text to display? */ static void FatalProblem PARAMS((int sig)); PUBLIC int main ARGS2(int,argc, char **,argv) { int i; /* indexing variable */ char *terminal; char *cp; FILE *fp; /* initialize some variables */ /* use the home file specified by the environment if it exits */ terminal=NULL; *editor='\0'; /* set it empty */ *bookmark_page='\0'; strcpy(indexfile, DEFAULT_INDEX_FILE); *personal_mail_address = '\0'; /* trap interrupts */ /* mhc: 11/2/91 */ (void) signal (SIGHUP, cleanup_sig); (void) signal (SIGTERM, cleanup_sig); #ifdef SIGWINCH (void) signal (SIGWINCH, size_change); #endif #ifndef VMS (void) signal (SIGINT, cleanup_sig); (void) signal (SIGBUS, FatalProblem); (void) signal (SIGSEGV, FatalProblem); (void) signal (SIGILL, FatalProblem); /* Since we're doing lots of TCP, just ignore SIGPIPE altogether. */ (void) signal (SIGPIPE, SIG_IGN); #endif /* read the lynx.cfg file */ read_cfg(LYNX_CFG_FILE); /* get WWW_HOME environment variable if it exists) */ if((cp = getenv("WWW_HOME")) != NULL) startfile = cp; /* read an rc file */ read_rc(); /* * Process arguments - with none, look for the database in STARTDIR, * starting with STARTFILE. * * If a pathname is given, use it as the starting point. Split it * into directory and file components, 'cd' to the directory, and * view the file. */ for (i=1; i where\r\n\ and mail the results, and a description of\r\n\ what you were doing at the time of the error,\r\n\ to montulli@ukanaix.cc.ukans.edu.\r\n\ Thank you for your support.\r\n\n\ ...exiting Lynx now with signal:%d\r\n\n",sig); /* ignore further interrupts */ /* mhc: 11/2/91 */ (void) signal (SIGHUP, SIG_IGN); (void) signal (SIGTERM, SIG_IGN); #ifndef VMS /* use ttclose() from cleanup() for VMS */ (void) signal (SIGINT, SIG_IGN); #endif (void) signal (SIGBUS, SIG_IGN); (void) signal (SIGSEGV, SIG_IGN); (void) signal (SIGILL, SIG_IGN); cleanup_sig(sig); exit(sig); } f last is followed by **/ lynx2-1/src/LYStructs.h000644 000036 000040 00000002457 05503662125 016561 0ustar00montulliusersrv000000 000000 #ifndef LYSTRUCTS_H #define LYSTRUCTS_H #ifndef USERDEFS_H #include "userdefs.h" #endif #ifndef HTAnchor_H #include "HTAnchor.h" #endif typedef struct link { char *lname; char *target; char *hightext; int lx; int ly; int type; /* type of link, Forms, WWW, etc */ struct _FormInfo *form; /* pointer to form info */ } linkstruct; extern linkstruct links[MAXLINKS]; extern int nlinks; typedef struct _document { char *address; char *title; int link; int line; } document; #ifndef HTForms_H #include "HTForms.h" #endif typedef struct _histstruct { char *hfname; char *hightext; int hlinkno; int hpageno; } histstruct; extern histstruct history[MAXHIST]; extern int nhist; typedef struct _printer_type { struct _printer_type *next; /*the next printer in the linked list*/ char *name; /* a description of the printer */ char *command; /* the command to print */ int always_enabled; /* a constant to tell whether or * not to disable the printer * when the no_print option is on */ } printer_type; extern printer_type *printers; #endif /* LYSTRUCTS_H */ uct _FormInfo *form; /* pointer to form info */ } linkstruct; extern linkstruct links[MAXLINKS]; extern int nlinks; typedef struct _document { char *address; char *title; int link; int line; }lynx2-1/src/LYGlobalDefs.h000644 000036 000040 00000004216 05503671242 017107 0ustar00montulliusersrv000000 000000 /* global variable definitions */ #ifndef USERDEFS_H #include "userdefs.h" #endif #ifndef LYSTRUCTS_H #include "LYStructs.h" #endif #ifndef LYCopyRight_H #include "LYCopyRight.h" #endif #ifndef GLOBAL_DEFS_H #define GLOBAL_DEFS_H #define NUMBERS_AS_ARROWS 0 #define LINKS_ARE_NUMBERED 1 #define NOVICE_MODE 0 #define INTERMEDIATE_MODE 1 #define ADVANCED_MODE 2 #define DIRNAMESIZE 256 extern int more; /* is there more document to display? */ extern int HTCacheSize; /* the number of documents cached in memory */ extern int InteruptTransfer; extern int display_lines; /* number of lines in the display */ extern int www_search_result; extern char *checked_box; /* form boxes */ extern char *unchecked_box; /* form boxes */ extern char *star_string; /* a string of stars */ extern char *empty_string; extern char *startfile; extern char *helpfile; extern char indexfile[256]; extern char personal_mail_address[120]; extern char *display; extern BOOLEAN LYforce_HTML_mode; extern BOOLEAN LYforce_no_cache; extern BOOLEAN user_mode; /* novice or advanced */ extern BOOLEAN anonymous; extern BOOLEAN is_www_index; extern BOOLEAN dump_output_immediately; extern BOOLEAN lynx_mode; extern BOOLEAN recent_sizechange; extern BOOLEAN telnet_ok; /* TRUE to exec telnet commands */ extern BOOLEAN no_print; /* TRUE to disable printing */ extern BOOLEAN local_exec; /* TRUE to enable local program execution */ /* TRUE to enable local program execution in local files only */ extern BOOLEAN local_exec_on_local_files; extern BOOLEAN child_lynx; /* TRUE to exit with an arrow */ extern BOOLEAN error_logging; /* TRUE to mail error messages */ extern BOOLEAN vi_keys; /* TRUE to turn on vi-like key movement */ extern BOOLEAN emacs_keys; /* TRUE to turn on emacs-like key movement */ extern BOOLEAN keypad_mode; /* is set to either NUMBERS_AS_ARROWS or * LINKS_ARE_NUMBERED */ extern BOOLEAN case_sensitive; /* TRUE to turn on case sensitive search */ extern char editor[256]; /* if non empty it enables edit mode with * the editor that is named */ extern char bookmark_page[256]; #endif /* GLOBAL_DEFS_H */ lynx2-1/src/LYUtils.h000644 000036 000040 00000002255 05501271245 016203 0ustar00montulliusersrv000000 000000 #ifndef LYUTILS_H #define LYUTILS_H /* for tempname */ #define NEW_FILE 0 #define REMOVE_FILES 1 extern void statusline PARAMS((char *text)); extern void noviceline PARAMS((int more)); extern int is_url PARAMS((char *filename)); extern void remove_backslashes PARAMS((char *buf)); extern BOOLEAN inlocaldomain PARAMS(()); extern void size_change PARAMS((int sig)); extern void change_sug_filename PARAMS((char *fname)); extern void tempname PARAMS((char *namebuffer, int action)); extern void async_interupt PARAMS((int sig)); /* for is_url */ /* universal document id types */ #define HTTP_URL_TYPE 1 #define FILE_URL_TYPE 2 #define FTP_URL_TYPE 3 #define WAIS_URL_TYPE 4 #define PROSPERO_URL_TYPE 5 #define NEWS_URL_TYPE 6 #define TELNET_URL_TYPE 7 #define TN3270_URL_TYPE 8 #define GOPHER_URL_TYPE 9 #define HTML_GOPHER_URL_TYPE 10 #define TELNET_GOPHER_URL_TYPE 11 #define AFS_URL_TYPE 12 #define MAILTO_URL_TYPE 13 #define RLOGIN_URL_TYPE 14 #define LYNXPRINT_URL_TYPE 20 #define LYNXHIST_URL_TYPE 21 #define ON 1 #define OFF 0 #define STREQ(a,b) (strcmp(a,b) == 0) #define STRNEQ(a,b,c) (strncmp(a,b,c) == 0) #endif /* LYUTILS_H */ lynx2-1/src/LYStrings.c000644 000036 000040 00000017402 05502271541 016527 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYUtils.h" #include "LYStrings.h" #include "LYGlobalDefs.h" #include /* * LYstrncpy() terminates strings with a null byte. * Writes a null byte into the n+1 byte of dst. */ PUBLIC char * LYstrncpy ARGS3(char *,dst, char *,src, int,n) { char *val; val = strncpy(dst, src, n); *(dst+n) = '\0'; return val; } #ifdef VMS #define GetChar() ttgetc() #else #define GetChar() getchar() /* used to be "getc(stdin)" and "getch()" */ #endif VMS /* * LYgetch() translates some escape sequences and may fake noecho */ PUBLIC int LYgetch () { int a, b, c; c = GetChar(); if (c == 27) { /* handle escape sequence */ b = GetChar(); if (b == '[' || b == 'O') { a = GetChar(); } else a = b; switch (a) { case 'A': c = UPARROW; break; case 'x': c = UPARROW; break; /* keypad up on pc ncsa telnet */ case 'B': c = DNARROW; break; case 'r': c = DNARROW; break; /* keypad down on pc ncsa telnet */ case 'C': c = RTARROW; break; case 'v': c = RTARROW; break; /* keypad right on pc ncsa telnet */ case 'D': c = LTARROW; break; case 't': c = LTARROW; break; /* keypad left on pc ncsa telnet */ case 'y': c = PGUP; break; /* keypad on pc ncsa telnet */ case 's': c = PGDOWN; break; /* keypad on pc ncsa telnet */ case 'w': c = HOME; break; /* keypad on pc ncsa telnet */ case 'q': c = END; break; /* keypad on pc ncsa telnet */ case 'm': c = '-'; break; /* keypad on pc ncsa telnet */ case 'l': c = '+'; break; /* keypad on pc ncsa telnet */ case 'M': c = '\n'; break; /* kepad enter on pc ncsa telnet */ case 'P': c = F1; break; case 'u': c = F1; break; /* macintosh help button */ case '5': /* vt 300 prev. screen */ if (b == '[' && GetChar() == '~') c = '-'; break; case '6': /* vt 300 next screen */ if (b == '[' && GetChar() == '~') c = '+'; break; } } return(c); } /* * display the current value of the string and allow the user * to edit it. */ #ifdef getyx #define GetYX(y,x) getyx(stdscr,y,x) #else #define GetYX(y,x) y = stdscr->_cury, x = stdscr->_curx #endif PUBLIC int LYgetstr ARGS2(char *,inputline, int,hidden) { int pointer = 0; int tmp_pointer; int ch; int startcol, startline; int cur_col; BOOLEAN line_extended=FALSE; /* TRUE if the line was moved to accomadate * more text entry */ /* get the initial position of the curser */ GetYX(startline, startcol); /*** Check to see if there's something in the inputline already ***/ if(strlen(inputline)+startcol+5 > COLS-1) { pointer = (strlen(inputline) - ((COLS-1) - startcol)) + 10; line_extended = TRUE; } cur_col = startcol; while (inputline[pointer] != '\0') { if(!hidden) addch(inputline[pointer]); else addch('*'); pointer ++; cur_col++; } refresh(); for (;;) { ch = LYgetch(); switch (ch) { #ifdef AIX case '\227': #endif case '\n': case '\r': case '\t': case DNARROW: case UPARROW: inputline[pointer] = '\0'; return(ch); break; /* Control-G aborts */ case 7: inputline[0] = '\0'; return(-1); /* break */ /* implicit break */ /* erase all the junk on the line and start fresh */ case 21 : move(startline, startcol); clrtoeol(); pointer = 0; /* clear inputline */ cur_col = startcol; line_extended = FALSE; refresh(); break; /** Backspace and delete **/ case '\010': case '\177': case LTARROW: if (pointer > 0) { addch('\010'); addch(' '); addch('\010'); pointer--; cur_col--; if(line_extended && cur_col+15 < COLS-1) { if(pointer + startcol+5 > COLS-1) { tmp_pointer = (pointer - ((COLS-1) - startcol)) + 5; } else { tmp_pointer = 0; line_extended = FALSE; } move(startline, startcol); clrtoeol(); cur_col = startcol; while (tmp_pointer != pointer) { if(!hidden) addch(inputline[tmp_pointer]); else addch('*'); tmp_pointer ++; cur_col++; } } refresh(); } else if(ch == LTARROW) { inputline[0] = '\0'; return(ch); } break; default: if (printable(ch)) { inputline[pointer++]= ch; cur_col++; if(!hidden) addch(ch); else addch('*'); if(cur_col+2 > COLS-1) { tmp_pointer = (pointer - ((COLS-1) - startcol)) + 10; line_extended = TRUE; move(startline, startcol); clrtoeol(); cur_col = startcol; while (tmp_pointer != pointer) { if(!hidden) addch(inputline[tmp_pointer]); else addch('*'); tmp_pointer ++; cur_col++; } } refresh(); } /* else return(ch); */ /* just ignore unprintable charactors */ } } } /* * LYstrstr will find the first occurence of the string pointed to by tarptr * in the string pointed to by chptr. * It is a case insensitive search. */ PUBLIC char * LYstrstr ARGS2(char *,chptr, char *,tarptr) { char *tmpchptr, *tmptarptr; BOOLEAN flag=FALSE; for(; *chptr != '\0'; chptr++) { if(toupper(*chptr) == toupper(*tarptr)) { /* see if they line up */ for(tmpchptr = chptr+1, tmptarptr = tarptr+1; toupper(*tmpchptr) == toupper(*tmptarptr) && *tmptarptr != '\0' && *tmpchptr != '\0'; *tmpchptr++, *tmptarptr++) ; /* null body */ if(*tmptarptr == '\0') { flag = TRUE; break; } } } /* end for */ if(flag) return(chptr); /*else*/ return(NULL); } /* Allocate a new copy of a string, and returns it */ PUBLIC char * SNACopy ARGS3 (char **,dest, CONST char *,src, int,n) { if (*dest) free(*dest); if (! src) *dest = NULL; else { *dest = (char *) calloc (n + 1,1); if (*dest == NULL) outofmem(__FILE__, "SNACopy"); strncpy (*dest, src, n); *(*dest + n) = '\0'; /* terminate */ } return *dest; } /* String Allocate and Concatenate */ PUBLIC char * SNACat ARGS3 (char **,dest, CONST char *,src, int,n) { if (src && *src) { if (*dest) { int length = strlen (*dest); *dest = (char *) realloc (*dest, length + n + 1); if (*dest == NULL) outofmem(__FILE__, "SNACat"); strncpy (*dest + length, src, n); *(*dest + length + n) = '\0'; /* terminate */ } else { *dest = (char *) calloc (strlen(src) + 1,1); if (*dest == NULL) outofmem(__FILE__, "SNACat"); strncpy (*dest, src,n); *dest[n] = '\0'; /* terminate */ } } return *dest; } e and delete **/ case '\010': case '\177': case LTARROW: if (pointer > 0) { addch('\010'); addch(' '); addch('\010'); pointer--lynx2-1/src/LYClean.h000644 000036 000040 00000000345 05501271053 016120 0ustar00montulliusersrv000000 000000 #ifndef LYCLEAN_H #define LYCLEAN_H extern void cleanup_sig PARAMS((int sig)); extern BOOLEAN setup PARAMS((char *terminal)); extern void cleanup NOPARAMS; #define NEW_FILE 0 #define REMOVE_FILES 1 #endif /* LYCLEAN_H */ backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYSignal.h000644 000036 000040 00000000354 05504724063 016322 0ustar00montulliusersrv000000 000000 #ifndef LYSIGNAL_H #define LYSIGNAL_H #include #ifdef VMS extern void *vsignal PARAMS((int sig, void (*func)())); #define signal(a,b) vsignal(a,b) /* use termio.c routines for interrupts */ #endif #endif /* LYSIGNAL_H */ :*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYCurses.h000644 000036 000040 00000002537 05501445362 016355 0ustar00montulliusersrv000000 000000 #ifndef LYCURSES_H #define LYCURSES_H #ifdef VMS #define FANCY_CURSES #endif #ifdef ULTRIX #include /* ultrix */ #else #ifdef SUN #undef TRUE /* to prevent parse error :( */ #undef FALSE #include "curses.h" /* SUN */ #else #include /* everything else */ #endif SUN #endif ULTRIX #ifndef HTUTILS_H #include "HTUtils.h" #endif extern void start_curses PARAMS(()); extern void stop_curses PARAMS(()); /* define curses functions */ #ifdef FANCY_CURSES #ifdef VMS #define start_bold() setattr(_BOLD) #define start_underline() setattr(_UNDERLINE) #define start_reverse() setattr(_REVERSE) #define stop_bold() clrattr(_BOLD) #define stop_underline() clrattr(_UNDERLINE) #define stop_reverse() clrattr(_REVERSE) #else #define start_bold() attrset(A_BOLD) #define start_underline() attrset(A_UNDERLINE) #define start_reverse() attrset(A_REVERSE) #define stop_bold() attroff(A_BOLD) #define stop_underline() attroff(A_UNDERLINE) #define stop_reverse() attroff(A_REVERSE) #endif /* VMS */ #else /* not FANCY_CURSES */ #define start_bold() 1 /* nothing */ #define start_underline() 1 /* nothing */ #define start_reverse() standout() #define stop_bold() 1 /* nothing */ #define stop_underline() 1 /* nothing */ #define stop_reverse() standend() #endif /* FANCY_CURSES */ #endif /* LYCURSES_H */ lynx2-1/src/LYHistory.c000644 000036 000040 00000010420 05505647226 016542 0ustar00montulliusersrv000000 000000 #include "HTUtils.h" #include "LYUtils.h" #include "LYHistory.h" #include "LYPrint.h" #include "LYGlobalDefs.h" /* * push the current filename, link and line number onto the history list */ PUBLIC void push ARGS1(document *,doc) { char *temp_hightext, *temp_hfname; if( *doc->address == '\0') /* dont push null file names */ return; /* don't push the history or printer lists */ if(!strcmp(doc->title, HISTORY_PAGE_TITLE) || !strcmp(doc->title, PRINT_OPTIONS_TITLE)) return; if(nhist>1 && STREQ(history[nhist-1].hfname, doc->address) && history[nhist-1].hpageno == doc->line ) return; /* file is identical to one before it don't push it */ if(nhist>2 && STREQ(history[nhist-2].hfname, doc->address) && history[nhist-2].hpageno == doc->line ) { nhist--; /* pop one off the stack */ return; /* file is identical to one two before it don't push it */ } if (nhist address and title are sometimes the same * variable since they may have come from the history * list. make hightext and hfname NULL so that they * don't get free'd by StrAllocCopy and free them * manually after the copy! */ temp_hightext = history[nhist].hightext; temp_hfname = history[nhist].hfname; history[nhist].hightext = NULL; history[nhist].hfname = NULL; history[nhist].hlinkno = doc->link; history[nhist].hpageno = doc->line; StrAllocCopy(history[nhist].hightext, doc->title); StrAllocCopy(history[nhist].hfname, doc->address); nhist++; if(temp_hightext!=NULL) free(temp_hightext); if(temp_hfname!=NULL) free(temp_hfname); if(TRACE) fprintf(stderr,"\npush: address:%s\n title:%s\n", doc->address,doc->title); } } /* * pop the previous filename, link and line number from the history list */ PUBLIC void pop ARGS1(document *,doc) { if (nhist>0) { nhist--; doc->link = history[nhist].hlinkno; doc->line = history[nhist].hpageno; doc->title = history[nhist].hightext; doc->address = history[nhist].hfname; if(TRACE) fprintf(stderr,"pop: address:%s\n title:%s\n", doc->address,doc->title); } } /* * pop the specified hist entry, link and line number from the history list * but don't actually remove the entry, just return it. * this procedure is badly named :) */ PUBLIC void pop_num ARGS2(int,number, document *,doc) { if (nhist>= number) { doc->link = history[number].hlinkno; doc->line = history[number].hpageno; doc->title = history[number].hightext; doc->address = history[number].hfname; } } /* * This procedure outputs the history buffer into a temporary file * */ PUBLIC void showhistory ARGS1(char **,newfile) { int x=0, curr=0,tmp=0; int c; register int i; char tmpfile[256]; static char hist_filename[256]; FILE *fp0; *newfile = 0; /* don't free current value */ tempname(tmpfile,NEW_FILE); if((fp0 = fopen(tmpfile,"wb")) == NULL) { perror("Trying to open history file\n"); exit(1); } /* make the file a URL now */ #ifdef VMS sprintf(hist_filename,"file://localhost/%s",tmpfile); #else sprintf(hist_filename,"file://localhost%s",tmpfile); #endif /* VMS */ *newfile = hist_filename; LYforce_HTML_mode=TRUE; /* force this file to be HTML */ fprintf(fp0,"%s\n", HISTORY_PAGE_TITLE); fprintf(fp0,"

    YOU HAVE REACHED THE HISTORY PAGE

    \n
    ");
        for(x=nhist-1; x >= 0; x--) {	

		/* the number of the document in the hist stack
		 * and its name in a link
		 */
	   fprintf(fp0,
		"\n\n  %d.  -- You selected:  %s", 
		x, x,
	       (history[x].hightext!=NULL ? history[x].hightext : "no title"));
	}

	fprintf(fp0,"
    "); fclose(fp0); } /* * this is a kludge to make the history page seem like any other type of file * since more info is needed than can be provided by the normal link structure * I saved out the history number to a special URL * * the info looks like: * LYNXHIST:# */ PUBLIC void historytarget ARGS1(document *,newdoc) { int number = atoi(newdoc->address+9); pop_num(number, newdoc); if(number != 0) StrAllocCat(newdoc->title," (From History)"); } lynx2-1/src/LYStrings.h000644 000036 000040 00000001613 05502273062 016531 0ustar00montulliusersrv000000 000000 #ifndef LYSTRINGS_H #define LYSTRINGS_H #include extern char * LYstrncpy PARAMS((char *dst, char *src, int n)); extern int LYgetch NOPARAMS; extern int LYgetstr PARAMS((char *inputline, int hidden)); extern char * LYstrstr PARAMS((char *chptr, char *tarptr)); extern char * SNACopy PARAMS((char **dest, CONST char *src, int n)); extern char * SNACat PARAMS((char **dest, CONST char *src, int n)); #define StrnAllocCopy(dest, src, n) SNACopy (&(dest), src, n) #define StrnAllocCat(dest, src, n) SNACat (&(dest), src, n) #define printable(c) (((c)>31 && (c)<=255) || (c)==9 || (c)==10 || (c)<0 ) /* values for LYgetch */ #define UPARROW 201 #define DNARROW 202 #define RTARROW 203 #define LTARROW 204 #define PGDOWN 205 #define PGUP 206 #define HOME 207 #define END 208 #define F1 209 #define DO_NOTHING 210 #define VISIBLE 0 #define HIDDEN 1 #endif /* LYSTRINGS_H */ in Remote Installation Services Account/usr/adm/ris/bin/shrisadm* Administration Subsyslynx2-1/src/LYShowInfo.c000644 000036 000040 00000003131 05503711026 016622 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYUtils.h" #include "LYStructs.h" #include "LYStrings.h" #include "LYGlobalDefs.h" PRIVATE void display_and_wrap PARAMS((char * string)); /* * showinfo prints a page of info about the current file and the link * that the cursor is on */ PUBLIC int showinfo ARGS3(document *,doc, int,size_of_file, char *,owner_address) { char temp[100]; clear(); addstr("\n YOU HAVE REACHED THE INFORMATION PAGE\n\n"); addstr("File that you are currently viewing\n\n"); addstr(" Linkname: "); display_and_wrap(doc->title); addch('\n'); addstr(" URL: "); display_and_wrap(doc->address); addch('\n'); addstr(" Owner(s): "); if(!owner_address) addstr("None\n"); else { display_and_wrap(owner_address); addch('\n'); } if(child_lynx) refresh(); sprintf(temp," size: %d lines\n",size_of_file); addstr(temp); addstr(" lynx mode: "); addstr(lynx_mode == FORMS_LYNX_MODE ? "forms mode" : "normal"); addch('\n'); if(nlinks > 0) { addstr("\nLink that you currently have selected\n\n"); addstr(" Linkname: "); display_and_wrap(links[doc->link].hightext); addch('\n'); addstr(" Filename: "); display_and_wrap(links[doc->link].lname); addch('\n'); if(child_lynx) refresh(); } else addstr("\n\nNo Links on the current page\n"); refresh(); LYgetch(); return(0); } PRIVATE void display_and_wrap ARGS1(char *,string) { int i; for(i=0; string[i] != '\0'; i++) { if(i>0 && (i % (COLS-17)) == 0) addch('\n'); addch(string[i]); } } lynx2-1/src/LYMainLoop.h000644 000036 000040 00000000104 05471310321 016603 0ustar00montulliusersrv000000 000000 #ifndef LYMAINLOOP_H #define LYMAINLOOP_H #endif LYMAINLOOP_H cp:*:2:uucp mem:*:3: kmem:*:3:root bin:*:4:bin,adm sec:*:5: mail:*:6:mail terminal:*:7: tty:*:7:root news:*:8:uucp opr:*:9:root auth:*:11: lp:*:12: lpr:*:12:root backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYGetFile.c000644 000036 000040 00000012732 05505701216 016416 0ustar00montulliusersrv000000 000000 #include "HTUtils.h" #include "HTAnchor.h" /* Anchor class */ #include "HTAccess.h" #include "LYGlobalDefs.h" #include "LYUtils.h" #include "LYSignal.h" #include "LYGetFile.h" #include "LYPrint.h" #include "LYHistory.h" #include "LYStrings.h" #include "LYClean.h" #ifndef VMS #include #include #if SVR4 #include #endif #endif extern char * HTLoadedDocumentURL(); PUBLIC BOOLEAN getfile ARGS1(document *,doc) { register int itmp; int url_type; char *tmptr; if(TRACE) { fprintf(stderr,"getfile: getting %s\n",doc->address); } /* make sure the interupt is not set before we attempt * the transfer */ InteruptTransfer = FALSE; /* check to see if this is a universal document ID * that lib WWW wants to handle * * some special URL's we handle ourselves :) */ if((url_type = is_url(doc->address)) != 0) { #ifdef TRAVERSAL /* only done for traversals IGNORE! */ if(url_type == HTTP_URL_TYPE) { if(!HTLoadAbsolute(doc->address)) return(NOT_FOUND); } else { return(NULLFILE); } #else if(url_type == LYNXPRINT_URL_TYPE) { return(printfile(doc)); } else if(url_type == LYNXHIST_URL_TYPE) { /* doc will change to the new file */ historytarget(doc); if(!HTLoadAbsolute(doc->address)) return(NOT_FOUND); return(NORMAL); /* disable www telnet access if not telnet_ok */ } else if((url_type == TELNET_URL_TYPE || url_type == TN3270_URL_TYPE) ) { if(!telnet_ok) { statusline("Telnet access is disabled!"); sleep(1); } else { stop_curses(); HTLoadAbsolute(doc->address); start_curses(); fflush(stdout); } return(NULLFILE); } else if(url_type == RLOGIN_URL_TYPE) { stop_curses(); HTLoadAbsolute(doc->address); fflush(stdout); start_curses(); return(NULLFILE); } else if(url_type == MAILTO_URL_TYPE) { tmptr = (char *)strchr(doc->address,':')+1; reply_by_mail(tmptr,""); return(NULLFILE); } else { user_message(WWW_WAIT_MESSAGE,doc->address); /* set up a way of asyncronously aborting the * the transfer in mid-stream. */ #ifdef HAVE_SIGIO fcntl (0, F_SETOWN, getpid() ); fcntl ( 0, F_SETFL, FASYNC ); signal(SIGIO, async_interupt); /* */ #else signal(SIGINT, async_interupt); /* */ #endif HAVE_SIGIO if(!HTLoadAbsolute(doc->address)) { /* return the interupts to the way they were */ #ifdef HAVE_SIGIO signal(SIGIO, SIG_IGN); #else signal(SIGINT, cleanup_sig); #endif HAVE_SIGIO return(NOT_FOUND); } lynx_mode = NORMAL_LYNX_MODE; /* return the interupts to the way they were */ #ifdef HAVE_SIGIO signal(SIGIO, SIG_IGN); #else signal(SIGINT, cleanup_sig); #endif HAVE_SIGIO /* some URL's don't actually return a document * compare doc->address with the document that is * acctually loaded and return NULL if not * loaded. If www_search_result is not -1 * then this is a reference to a named anchor * within the same document. Do NOT return * NULL */ { char *pound; /* check for #selector */ pound = (char *)strchr(doc->address, '#'); if(pound == NULL && strcmp(doc->address, HTLoadedDocumentURL()) ) { return(NULLFILE); } else { /* may set www_search_result */ if(pound != NULL) HTFindPoundSelector(pound+1); return(NORMAL); } } } #endif TRAVERSAL } else { statusline("Badly formed address"); sleep(1); } } /* the user wants to select a link by number * if follow_link_number returns DO_LINK_STUFF do_link will be * run immeditely following its execution. * if follow_link_number returns PRINT_ERROR an error message will * be given to the user, if follow_link_number returns DO_FORMS_STUFF * some forms stuff will be done, and if follow_link_number returns * DO_NOTHING nothing special will run after it. */ PUBLIC int follow_link_number ARGS2(int,c, int *,cur) { char temp[120]; int link_number; temp[0] = c; temp[1] = '\0'; statusline("follow link number: "); /* get the number from the user */ if (LYgetstr(temp, VISIBLE) <0 || strlen(temp) == 0) { statusline("Cancelled!!!"); sleep(1); return(DO_NOTHING); } link_number = atoi(temp); if (link_number > 0) { /* get the lname, and hightext, * direct from * www structures and add it to the cur link * so that we can pass it transparently on to * get_file() * this is done so that you may select a link * anywhere in the document, whether it is displayed * on the screen or not! */ if(HTGetLinkInfo(link_number, &links[*cur].hightext, &links[*cur].lname)) { links[*cur].type = WWW_LINK_TYPE; return(DO_LINK_STUFF); } else { return(PRINT_ERROR); } } else { return(PRINT_ERROR); } } lynx2-1/src/LYGetFile.h000644 000036 000040 00000000440 05501272377 016423 0ustar00montulliusersrv000000 000000 #ifndef LYGETFILE_H #define LYGETFILE_H #define NOT_FOUND 0 #define NORMAL 1 #define NULLFILE 3 extern BOOLEAN getfile PARAMS((document *doc)); /* values for follow_link_number.c */ #define DO_FORMS_STUFF 1 #define DO_LINK_STUFF 2 #define PRINT_ERROR 3 #endif /* LYGETFILE_H */ 19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYOptions.h000644 000036 000040 00000000540 05471320536 016535 0ustar00montulliusersrv000000 000000 #ifndef LYOPTIONS_H #define LYOPTIONS_H extern void options NOPARAMS; /* values for options */ #define L_EDITOR 2 #define L_DISPLAY 3 #define L_HOME 4 #define L_MAIL_ADDRESS 5 #define L_SSEARCH 6 #define L_EXEC 7 #define L_VIKEYS 8 #define L_EMACSKEYS 9 #define L_KEYPAD 10 #define L_USER_MODE 12 #endif /* LYOPTIONS_H */ 0: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYCopyRight.h000644 000036 000040 00000000250 05467010466 017013 0ustar00montulliusersrv000000 000000 /******** string for the copyright notice ********/ static char copyright[] = { "@(#) (C) Copyright 1992,1993 Lou Montulli, University of Kansas \n" }; news:*:8:uucp opr:*:9:root auth:*:11: lp:*:12: lpr:*:12:root backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYEdit.h000644 000036 000040 00000000206 05501271571 015764 0ustar00montulliusersrv000000 000000 #ifndef LYEdit_H #define LYEdit_H extern int edit_current_file PARAMS((char *newfile, int cur, int lineno)); #endif /* LYEdit_H */ :6:mail terminal:*:7: tty:*:7:root news:*:8:uucp opr:*:9:root auth:*:11: lp:*:12: lpr:*:12:root backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYCurses.c000644 000036 000040 00000027337 05504727020 016352 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYUtils.h" #include "LYGlobalDefs.h" #include "LYSignal.h" #include "LYClean.h" /* * These are routines to start and stop curses and to cleanup * the screen at the end * */ PRIVATE dumbterm PARAMS((char *terminal)); PUBLIC void start_curses () { #ifndef VMS static BOOLEAN first_time = TRUE; /* if were not VMS then only do initsrc() one time * and one time only! * if we are VMS then do initsrc() everytime start_curses() * is called! */ if(first_time) { initscr(); /* start curses */ first_time = FALSE; } #else initscr(); /* start curses */ #endif VMS /* nonl(); *//* seems to slow things down */ #ifdef VMS crmode(); raw(); #endif VMS #ifdef UNIX cbreak(); signal(SIGINT, cleanup_sig); #endif UNIX noecho(); fflush(stdin); fflush(stdout); } PUBLIC void stop_curses() { echo(); endwin(); /* stop curses */ fflush(stdout); #ifndef VMS signal(SIGINT, SIG_IGN); #endif /* not VMS */ } #ifdef VMS /* * check terminal type, start curses & setup terminal */ PUBLIC BOOLEAN setup ARGS1(char *,terminal) { int c; char *dummy, *cp, term[81]; /* * get terminal type, and convert to lower case */ longname(dummy, term); for (cp=term; *cp!='\0'; cp++) if (isupper(*cp)) *cp = tolower(*cp); printf("Terminal = %s\n", term); sleep(1); if (strncmp(term, "vt1", 3) != 0 && strncmp(term, "vt2", 3) != 0 && strncmp(term, "vt3", 3) != 0 && strncmp(term, "vt4", 3) != 0 && strncmp(term, "vt52", 4) != 0 ) { printf( "You must use a vt100, 200, etc. terminal with this program.\n"); printf("Proceed (n/y)? "); c = getchar(); if (c != 'y' && c != 'Y') { printf("\n"); return(FALSE); } } ttopen(); start_curses(); return(TRUE); } #else /* not VMS */ /* * check terminal type, start curses & setup terminal */ PUBLIC BOOLEAN setup ARGS1(char *,terminal) { #ifndef MSDOS static char term_putenv[120]; char term[120]; char buffer[120]; /* if the display was not set by a command line option then see * if it is available from the environment */ display = getenv("DISPLAY"); if(terminal != NULL) { sprintf(term_putenv,"TERM=%s",terminal); (void) putenv(term_putenv); } /* query the terminal type */ if(dumbterm(getenv("TERM"))) { printf("\n\n Your Terminal type is unknown!\n\n"); printf(" Enter a terminal type: [vt100] "); gets(buffer); if(strlen(buffer) == 0) strcpy(buffer,"vt100"); sprintf(term_putenv,"TERM=%s", buffer); putenv(term_putenv); /* */ printf("\nTERMINAL TYPE IS SET TO %s\n",getenv("TERM")); } start_curses(); /* get terminal type (strip 'dec-' from vms style types) */ if (strncmp(ttytype, "dec-vt", 6) == 0) { strcpy(term, ttytype+4); (void) setterm(term); } #else start_curses(); #endif MSDOS return(1); } PRIVATE dumbterm ARGS1(char *,terminal) { int dumb = FALSE; if (!strcasecomp(terminal, "network") || !strcasecomp(terminal, "unknown") || !strcasecomp(terminal, "dialup") || !strcasecomp(terminal, "dumb") || !strcasecomp(terminal, "switch") || !strcasecomp(terminal, "ethernet") ) dumb = TRUE; return(dumb); } #endif #ifdef VMS /* * Cut-down termio -- * Do character-oriented stream input for Jeff. * Code ripped off from Micro-Emacs 3.7 by Daniel Lawrence. * * Ever-so-slightly modified by Kathryn Huxtable. 29-Jan-1991. * Cut down for Lou. 8 Sep 1992. * Cut down farther for Lou. 19 Apr 1993. * We don't set PASSALL or PASTHRU since we don't * want to block CTRL/C, CTRL/Y, CTRL/S or CTRL/Q. * Simply setting NOECHO and doing timed reads * is sufficient. * Further mods by Fote. 29-June-1993 * ttopen() and ttclose() are now terminal initialization * and restoration procedures, called once at startup * and at exit, respectively, of the LYNX image. * ttclose() should be called before an exit from LYNX * no matter how the exit is invoked. * setup(terminal) does the ttopen(). * cleanup() calls cleanup_files() and ttclose(). * ttgetc() now handles NOECHO and NOFLITR (instead of * setting the terminal itself to NOECHO in ttopen()). * vsignal() added for handling both Ctrl-C *and* Ctrl-Y * interrupts, and disabling system response to Ctrl-T. * Further mods by Fote. 15-Dec-1993 * Added edit handler in ttopen() which will invoke * VMSexit() and behave intelligently on ACCVIO's. * */ #include #include #include #include #include #include #include #include #define TRUE 1 /* True value */ #define FALSE 0 /* False value */ #define MAXIBUF 128 /* Input buffer size */ #define MAXOBUF 1024 /* MM says bug buffers win! */ #define EFN 0 /* Event flag */ static char ibuf[MAXIBUF]; /* Input buffer */ static int nibuf; /* # of bytes in above */ static int ibufi; /* Read index */ static int oldmode[3]; /* Old TTY mode bits */ static int newmode[3]; /* New TTY mode bits */ static short iochan; /* TTY I/O channel */ static $DESCRIPTOR(term_nam_dsc,"TT"); /* Descriptor for iochan */ static int mask = LIB$M_CLI_CTRLY|LIB$M_CLI_CTRLT; /* ^Y and ^T */ static int old_msk; /* Saved control mask */ static short trap_flag = FALSE; /* TRUE if AST is set */ BOOLEAN DidCleanup = FALSE; /* Exit handler flag */ PUBLIC void VMSexit() { /* * If we get here and DidCleanup is not set, it was via an * ACCVIO, so make *sure* we attempt a cleanup and reset * the terminal. */ if (!DidCleanup) { fprintf(stderr,"\nPlease report this error to Lou Montulli:"); fprintf(stderr,"\n montulli@ukanaix.cc.ukans.edu"); fprintf(stderr,"\nPress RETURN to clean up: "); (void) getchar(); cleanup(); } } /* * TTOPEN -- * This function is called once to set up the terminal * device streams. It translates TT until it finds * the terminal, then assigns a channel to it, sets it * to EDIT, and sets up the Ctrl-C and Ctrl-Y interrupt * handling. */ PUBLIC int ttopen() { extern void cleanup_sig(); int iosb[2]; int status; static unsigned long condition; static struct _exit_block { unsigned long forward; unsigned long address; unsigned long zero; unsigned long condition; } exit_handler_block; status = SYS$ASSIGN( &term_nam_dsc, &iochan, 0, 0 ); if( status != SS$_NORMAL ) exit( status ); status = SYS$QIOW( EFN, iochan, IO$_SENSEMODE, &iosb, 0, 0, &oldmode, sizeof(oldmode), 0, 0, 0, 0 ); if( status != SS$_NORMAL ) exit( status ); status = iosb[0] & 0xFFFF; if( status != SS$_NORMAL ) exit( status ); newmode[0] = oldmode[0]; newmode[1] = oldmode[1]; newmode[2] = oldmode[2] | TT2$M_EDIT; status = SYS$QIOW( EFN, iochan, IO$_SETMODE, &iosb, 0, 0, &newmode, sizeof(newmode), 0, 0, 0, 0 ); if( status != SS$_NORMAL ) exit( status ); status = iosb[0] & 0xFFFF; if( status != SS$_NORMAL ) exit( status ); /* declare the exit handler block */ exit_handler_block.forward = 0; exit_handler_block.address = (unsigned long) &VMSexit; exit_handler_block.zero = 0; exit_handler_block.condition = (unsigned long) &condition; status = sys$dclexh(&exit_handler_block); if (status != SS$_NORMAL) exit( status ); /* set the AST */ lib$disable_ctrl(&mask, &old_msk); trap_flag = TRUE; status = SYS$QIOW ( EFN, iochan, IO$_SETMODE|IO$M_CTRLCAST|IO$M_CTRLYAST, &iosb, 0, 0, &cleanup_sig, SIGINT, 0, 0, 0, 0 ); if ( status != SS$_NORMAL ) { lib$enable_ctrl(&old_msk); exit ( status ); } return(0); } /* ttopen */ /* * TTCLOSE -- * This function gets called just before we go back home * to the command interpreter. It puts the terminal back * in a reasonable state. */ PUBLIC int ttclose() { int status; int iosb[1]; status = SYS$QIOW( EFN, iochan, IO$_SETMODE, &iosb, 0, 0, &oldmode, sizeof(oldmode), 0, 0, 0, 0 ); if( status != SS$_NORMAL || (iosb[0] & 0xFFFF) != SS$_NORMAL ) exit( status ); if (trap_flag) { status = SYS$DASSGN (iochan); status = lib$enable_ctrl(&old_msk); trap_flag = FALSE; } return(0); } /* ttclose */ /* * TTGETC -- * Read a character from the terminal, with NOECHO and NOFILTR. */ PUBLIC int ttgetc() { int status; int iosb[2]; int term[2]; while( ibufi >= nibuf ) { ibufi = 0; term[0] = 0; term[1] = 0; status = SYS$QIOW( EFN, iochan, IO$_READLBLK|IO$M_TIMED|IO$M_NOECHO|IO$M_NOFILTR, &iosb, 0, 0, &ibuf, MAXIBUF, 0, term, 0, 0 ); if( status != SS$_NORMAL ) exit( status ); status = iosb[0] & 0xFFFF; if( status != SS$_NORMAL && status != SS$_TIMEOUT ) exit( status ); nibuf = (iosb[0]>>16) + (iosb[1]>>16); /* Huh? KAH */ if( nibuf == 0 ) { status = SYS$QIOW( EFN, iochan, IO$_READLBLK|IO$M_NOECHO|IO$M_NOFILTR, &iosb, 0, 0, &ibuf, 1, 0, term, 0, 0 ); if( status != SS$_NORMAL || (status = (iosb[0]&0xFFFF)) != SS$_NORMAL ) exit( status ); nibuf = (iosb[0]>>16) + (iosb[1]>>16); } } return( ibuf[ibufi++] & 0xFF ); /* Allow multinational */ } /* ttgetc */ /* * TYPAHEAD -- * Check to see if any characters are already in the * keyboard buffer. (Not used. -- Fote) */ PUBLIC int typahead() { int status; int iosb[2]; int term[2]; if( ibufi < nibuf ) return( TRUE ); ibufi = 0; term[0] = 0; term[1] = 0; status = SYS$QIOW( EFN, iochan, IO$_READLBLK|IO$M_TIMED|IO$M_NOECHO|IO$M_NOFILTR, &iosb, 0, 0, &ibuf, MAXIBUF, 0, term, 0, 0 ); if( status != SS$_NORMAL ) exit( status ); status = iosb[0] & 0xFFFF; if( status != SS$_NORMAL && status != SS$_TIMEOUT ) exit( status ); nibuf = (iosb[0]>>16) + (iosb[1]>>16); if( nibuf == 0 ) return( FALSE ); return( TRUE ); /* Allow multinational */ } /* typeahead */ /* * VSIGNAL -- Fote Macrides 29-Jun-1993 * Sets up AST for both Ctrl-C and Ctrl-Y, with system response * to Ctrl-T disabled. If called with a sig other than SIGINT, * it will use the C library's system(sig, func). * The equivalent of vsignal(SIGINT, cleanup_sig) is done on * intialization by ttopen(), so don't do it again. * vsignal(SIGINT, SIG_DFL) is treated as a call to ttclose(). * Call vsignal(SIGINT, SIG_IGN) before system() calls to * enable Ctrl-C and Ctrl-Y in the subprocess, and then call * vsignal(SIG_INT, cleanup_sig) on return from the subprocess. * For func's which set flags and do not invoke an exit from * LYNX, the func should reassert itself. * The VMS signal() calls do not fully emulate the Unix calls, * and vsignal() is just a "helper", also not a full emulation. */ #ifdef signal #undef signal #endif PUBLIC void *vsignal (sig, func) int sig; void (*func)(); { int status; short iosb[4]; static int SIG_IGN_flag; /* pass all signals other than SIGINT to signal() */ if (sig != SIGINT) { signal(sig, func); return; } /* if func is SIG_DFL, treat it as ttclose() */ if (func == SIG_DFL) { ttclose(); return; } /* Clear any previous AST */ if (trap_flag) { status = SYS$DASSGN (iochan); status = lib$enable_ctrl(&old_msk); trap_flag = FALSE; } /* if func is SIG_IGN, leave the TT channel closed and the */ /* system response to interrupts enabled for system() calls */ if (func == SIG_IGN) return; /* if we get to here, we have a LYNX func, so set the AST */ lib$disable_ctrl(&mask, &old_msk); trap_flag = TRUE; status = SYS$ASSIGN (&term_nam_dsc, &iochan, 0, 0 ); status = SYS$QIOW ( EFN, iochan, IO$_SETMODE|IO$M_CTRLCAST|IO$M_CTRLYAST, &iosb, 0, 0, func, SIGINT, 0, 0, 0, 0 ); } /* vsignal */ #endif VMS Y') { printf("\n"); return(FALSE); } } ttopen(); start_curses(); return(TRUE); } #else /* not VMS */ /* * check terminal type, start curses & setup terminal */ PUBLIC BOOLEAN setup ARGS1(char *,terminal) { #ifndef MSDOS static char term_putenv[120]; lynx2-1/src/LYrcFile.c000644 000036 000040 00000022767 05503140123 016304 0ustar00montulliusersrv000000 000000 #include "HTUtils.h" #include "LYUtils.h" #include "LYrcFile.h" #include "LYStrings.h" #include "LYGlobalDefs.h" PUBLIC void read_rc() { char line_buffer[256]; char *home; char rcfile[256]; FILE *fp; char *cp, *cp2; int number_sign; home = getenv("HOME"); /* make a name */ #ifdef UNIX home = getenv("HOME"); sprintf(rcfile,"%s/.lynxrc",home); /* UNIX */ #else #ifdef VMS sprintf(rcfile,"sys$login:.lynxrc"); /* VMS */ #else sprintf(rcfile,".lynxrc"); /* anything else */ #endif VMS #endif UNIX if((fp = fopen(rcfile,"r")) == NULL) { return; } while(fgets(line_buffer, 256, fp) != NULL) { /* remove the end /n */ if(line_buffer[strlen(line_buffer)-1] == '\n') line_buffer[strlen(line_buffer)-1] = '\0'; /* find the line position of the number sign if there is one */ if((cp = (char *)strchr(line_buffer,'#')) == NULL) number_sign = 999; else number_sign = cp - line_buffer; /* user mode */ if((cp=LYstrstr(line_buffer,"user_mode"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(LYstrstr(cp,"ADVANCED") != NULL) user_mode = ADVANCED_MODE; else if(LYstrstr(cp,"INTERMEDIATE") != NULL) user_mode = INTERMEDIATE_MODE; else user_mode = NOVICE_MODE; /* file editor */ } else if((cp=LYstrstr(line_buffer,"file_editor"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ strcpy(editor, cp); /* bookmark file */ } else if((cp=LYstrstr(line_buffer,"bookmark_file"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ strcpy(bookmark_page, cp); /* personal_mail_address */ } else if((cp=LYstrstr(line_buffer,"personal_mail_address"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ strcpy(personal_mail_address, cp); } else if((cp = LYstrstr(line_buffer,"case_sensitive_searching")) != NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(!strncmp(cp,"on",2) || !strncmp(cp,"ON",2)) case_sensitive=TRUE; else case_sensitive=FALSE; } else if((cp = LYstrstr(line_buffer,"run_all_execution_links")) != NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(!strncmp(cp,"on",2) || !strncmp(cp,"ON",2)) local_exec=TRUE; else local_exec=FALSE; } else if((cp = LYstrstr(line_buffer, "run_execution_links_on_local_files")) != NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(!strncmp(cp,"on",2) || !strncmp(cp,"ON",2)) local_exec_on_local_files=TRUE; else local_exec_on_local_files=FALSE; } else if((cp=LYstrstr(line_buffer,"vi_keys"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char * )strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(!strncmp(cp,"on",2) || !strncmp(cp,"ON",2)) vi_keys=TRUE; else vi_keys=FALSE; } else if((cp=LYstrstr(line_buffer,"emacs_keys"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(!strncmp(cp,"on",2) || !strncmp(cp,"ON",2)) emacs_keys=TRUE; else emacs_keys=FALSE; } else if((cp=LYstrstr(line_buffer,"keypad_mode"))!=NULL && cp-line_buffer < number_sign) { if((cp2 = (char *)strrchr(cp,'=')) != NULL) cp = cp2+1; while(isspace(*cp)) cp++; /* get rid of spaces */ if(LYstrstr(cp,"LINKS_ARE_NUMBERED")) keypad_mode = LINKS_ARE_NUMBERED; else keypad_mode = NUMBERS_AS_ARROWS; } /* end of if */ } /* end of while */ fclose(fp); } /* big end */ PUBLIC void save_rc () { char line_buffer[256]; char rcfile[256]; char *home; FILE *fp; /* make a name */ #ifdef UNIX home = getenv("HOME"); sprintf(rcfile,"%s/.lynxrc",home); /* UNIX */ #else #ifdef VMS sprintf(rcfile,"sys$login:.lynxrc"); /* VMS */ #else sprintf(rcfile,".lynxrc"); /* anything else */ #endif VMS #endif UNIX if((fp = fopen(rcfile,"w")) == NULL) { return; } /* header */ fprintf(fp,"# Lynx user defaults file\n\n"); /* user mode */ fprintf(fp,"\ # user_mode specifies the users level of knowledge with Lynx.\n\ # The default is NOVICE which displays two extra lines of help at the\n\ # bottom of the screen to aid the user in learning the basic Lynx\n\ # commands. Set user_mode to INTERMEDIATE to turn off the extra info.\n\ # Use ADVANCED to see the URL of the currently selected link at the\n\ # bottom of the screen\n"); fprintf(fp,"user_mode=%s\n\n",(user_mode==NOVICE_MODE ? "NOVICE" : (user_mode==ADVANCED_MODE ? "ADVANCED" : "INTERMEDIATE"))); /* editor */ fprintf(fp,"\ # file editor specifies the editor to be invoked when editing Lynx files.\n\ # if no editor is specified then file editing is disabled unless it\n\ # is activated from the command line\n"); fprintf(fp,"file_editor=%s\n\n",editor); /* home file */ fprintf(fp,"\ # bookmark_file specifies the name and location of a custom file which the\n\ # user can paste links to for easy access at a later date\n"); fprintf(fp,"bookmark_file=%s\n\n",bookmark_page); /* personal_mail_address */ fprintf(fp,"\ # personal_mail_address specifies your personal mail address. The\n\ # address will be sent during HTTP file tranfers for authorization and\n\ # logging purposes, and for mailed comments.\n\ # If you do not want this information given out, leave this field blank\n"); fprintf(fp,"personal_mail_address=%s\n\n",personal_mail_address); /* case sensitive */ fprintf(fp,"\ # if case sensitive searching is on then when the user invokes a search\n\ # using the 's' or '/' keys, the search performed will be case sensitive\n\ # instead of case INsensitive.\n# the default is usually off\n"); fprintf(fp,"case_sensitive_searching=%s\n\n",(case_sensitive ? "on" : "off")); /* local_exec */ fprintf(fp,"\ # if run all execution links is on then all local exection links will\n\ # be executed when they are selected.\n\ #\n\ # WARNING - this is potentially VERY dangerous. Since you may view\n\ # information that is written by unknown and untrusted sources\n\ # there exists the possibility that trojon horse links could be\n\ # written. Trojon horse links could be written to erase files\n\ # or compromise security. This should only be set to on if you\n\ # are viewing trusted source information\n"); fprintf(fp,"run_all_execution_links=%s\n\n",(local_exec ? "on" : "off")); /* local_exec_on_local_files */ fprintf(fp,"\ # if run all execution links is on then all local exection links that\n\ # are found in LOCAL files will be executed when they are selected.\n\ # This is different from \"run all execution links\" in that only files\n\ # that reside on the local system will have exection link permisions\n\ #\n\ # WARNING - this is potentially dangerous. Since you may view\n\ # information that is written by unknown and untrusted sources\n\ # there exists the possibility that trojon horse links could be\n\ # written. Trojon horse links could be written to erase files\n\ # or compromise security. This should only be set to on if you\n\ # are viewing trusted source information\n"); fprintf(fp,"run_execution_links_on_local_files=%s\n\n", (local_exec_on_local_files ? "on" : "off")); /* vi keys */ fprintf(fp,"\ # if VI keys are turned on then the normal VI movement keys:\n\ # j - down k - up\n\ # h - left l - right\n\ # will be enabled.\n\ # These keys are only lower case.\n\ # Capital 'H' will still activate help\n"); fprintf(fp,"vi_keys=%s\n\n",(vi_keys ? "on" : "off")); /* emacs keys */ fprintf(fp,"\ # if EMACS keys are turned on then the normal EMACS movement keys:\n\ # ^N - down ^p - up\n\ # ^B - left ^F - right\n\ # will be enabled.\n"); fprintf(fp,"emacs_keys=%s\n\n",(emacs_keys ? "on" : "off")); fprintf(fp,"\ # if keypad_mode is set to NUMBERS_AS_ARROWS then the numbers\n\ # on your keypad when the numlock is on will act as arrow keys.\n\ # i.e. 4 - Left Arrow, 6 - Right Arrow, 2 - Down Arrow, 8 - Up Arrow, etc.\n\ # if keypad_mode is set to LINKS_ARE_NUMBERED then numbers will appear\n\ # next to each link and numbers are used to select links.\n\ # note: some fixed format documents may look disfigured when\n\ # LINKS_ARE_NUMBERED is enabled\n"); fprintf(fp,"keypad_mode=%s",(keypad_mode==NUMBERS_AS_ARROWS ? "NUMBERS_AS_ARROWS" : "LINKS_ARE_NUMBERED")); fclose(fp); /* get rid of any copies of the .lynxrc file that VMS creates */ #ifdef VMS while (delete("sys$login:.lynxrc;-1") == 0) ; #endif /* VMS */ } ; /* anlynx2-1/src/LYEdit.c000644 000036 000040 00000003636 05505666662 016006 0ustar00montulliusersrv000000 000000 #include "LYCurses.h" #include "HTUtils.h" #include "LYSignal.h" #include "LYUtils.h" #include "LYClean.h" #include "LYGlobalDefs.h" #include "LYEdit.h" #include "LYStrings.h" /* * in edit mode invoke either emacs or vi or the default editor * to display and edit the current file * Both vi and emacs will open the file to the same line that the * screen cursor is on when editing is invoked * returns FALSE if file uneditable */ PUBLIC int edit_current_file ARGS3(char *,newfile, int,cur, int,lineno) { char command[90]; char *filename; char *colon, *localhost_ptr; FILE *fp; int url_type = is_url(newfile); /* if its a remote file then we can't edit it */ if(url_type != FILE_URL_TYPE) { statusline("Lynx cannot currently edit remote WWW files"); sleep(1); return FALSE; } /* try and open it as a completely referenced file */ colon = strchr(newfile,':'); if((fp = fopen(colon+1,"r")) == NULL) { localhost_ptr = strstr(newfile,"localhost"); if(localhost_ptr==NULL || #ifdef VMS (fp = fopen(localhost_ptr+10,"r"))==NULL) { #else (fp = fopen(localhost_ptr+9,"r"))==NULL) { #endif /* VMS */ statusline("Lynx cannot currently edit remote WWW files"); sleep(1); return FALSE; } else { #ifdef VMS filename = localhost_ptr+10; #else filename = localhost_ptr+9; #endif /* VMS */ fclose(fp); } } else { filename = colon+1; fclose(fp); } #ifndef VMS if(strstr(editor,"emacs") || strstr(editor,"vi")) sprintf(command,"%s +%d \"%s\"",editor, lineno+links[cur].ly, filename); else sprintf(command,"%s \"%s\"",editor, filename); #else /* VMS */ sprintf(command,"%s %s",editor, filename); #endif /* VMS */ stop_curses(); signal(SIGINT, SIG_IGN); system(command); signal(SIGINT, cleanup_sig); start_curses(); return TRUE; } lynx2-1/src/LYReadCFG.c000644 000036 000040 00000011466 05503671151 016277 0ustar00montulliusersrv000000 000000 #include "HTUtils.h" #include "LYUtils.h" #include "LYStrings.h" #include "LYStructs.h" #include "LYGlobalDefs.h" PRIVATE int is_true ARGS1(char *,string) { if(!strncasecomp(string,"TRUE",4)) return(TRUE); else return(FALSE); } PUBLIC void read_cfg ARGS1(char *,cfg_filename) { FILE *fp; char buffer[501]; char *line_feed; char *cp; if((fp = fopen(cfg_filename,"r")) == NULL) { if(TRACE) fprintf(stderr,"lynx.cfg file not found as %s\n",LYNX_CFG_FILE); return; } while(fgets(buffer, 500, fp) != NULL) { /* strip of \n at the end */ if((line_feed = (char *)strchr(buffer,'\n')) != NULL) *line_feed = '\0'; if(buffer[0] == '#') { /* nothing */ } else if(!strncasecomp(buffer,"STARTFILE:",10)) { int length = strlen(buffer)-9; startfile = (char *) calloc(length, sizeof(char)); if(startfile==NULL) perror("Out of memory in read_cfg"); else strcpy(startfile, buffer+10); } else if(!strncasecomp(buffer,"HELPFILE:",9)) { int length = strlen(buffer)-8; helpfile = (char *) calloc(length, sizeof(char)); if(helpfile==NULL) perror("Out of memory in read_cfg"); else strcpy(helpfile, buffer+9); } else if(!strncasecomp(buffer,"DEFAULT_INDEX_FILE:",19)) { strcpy(indexfile, buffer+19); } else if(!strncasecomp(buffer, "LOCAL_EXECUTION_LINKS_ALWAYS_ON:",32)) { local_exec = is_true(buffer+32); } else if(!strncasecomp(buffer, "LOCAL_EXECUTION_LINKS_ON_BUT_NOT_REMOTE:",40)) { local_exec_on_local_files = is_true(buffer+40); } else if(!strncasecomp(buffer,"MAIL_SYSTEM_ERROR_LOGGING:",26)) { error_logging = is_true(buffer+26); } else if(!strncasecomp(buffer,"VI_KEYS_ALWAYS_ON:",18)) { vi_keys = is_true(buffer+18); } else if(!strncasecomp(buffer,"EMACS_KEYS_ALWAYS_ON:",21)) { emacs_keys = is_true(buffer+21); } else if(!strncasecomp(buffer, "DEFAULT_KEYPAD_MODE_IS_NUMBERS_AS_ARROWS:",41)) { if(is_true(buffer+41)) keypad_mode = NUMBERS_AS_ARROWS; else keypad_mode = LINKS_ARE_NUMBERED; } else if(!strncasecomp(buffer,"CASE_SENSITIVE_ALWAYS_ON:",25)) { case_sensitive = is_true(buffer+25); } else if(!strncasecomp(buffer,"DEFAULT_USER_MODE:",18)) { if(!strncasecomp(buffer+18,"NOVICE",5)) user_mode = NOVICE_MODE; else if(!strncasecomp(buffer+18,"INTER",5)) user_mode = INTERMEDIATE_MODE; else if(!strncasecomp(buffer+18,"ADVANCE",7)) user_mode = ADVANCED_MODE; } else if(!strncasecomp(buffer,"DEFAULT_BOOKMARK_FILE:",22)) { LYstrncpy(bookmark_page,buffer+22,250); } else if(!strncasecomp(buffer,"DEFAULT_EDITOR:",15)) { LYstrncpy(editor,buffer+15,250); } else if(!strncasecomp(buffer,"PRINTER:",8)) { char *colon, *next_colon; printer_type *cur_printer, *prev_printer; /* make linked list of printers */ if(printers == NULL) { /* first printer */ cur_printer =(printer_type *)calloc(sizeof(printer_type),1); if(cur_printer == NULL) perror("Out of memory in read_cfg"); printers = cur_printer; } else { /* find the last printer */ for(prev_printer=printers; prev_printer->next != NULL; prev_printer = prev_printer->next) ; /* null body */ cur_printer = (printer_type *)calloc(sizeof(printer_type),1); if(cur_printer == NULL) perror("Out of memory in read_cfg"); else prev_printer->next = cur_printer; } cur_printer->next = NULL; cur_printer->name = NULL; cur_printer->command = NULL; cur_printer->always_enabled = FALSE; /* find first colon */ colon = (char *)strchr(buffer+8,':'); /* make sure it isn't escaped by a backslash */ while(colon!=NULL && *(colon-1)=='\\') /* if it was escaped, try again */ colon = (char *)strchr(colon+1,':'); if(colon!=NULL) { cur_printer->name = calloc((colon-(buffer+7)),sizeof(char)); if(cur_printer->name == NULL) perror("Out of memory in read_cfg"); LYstrncpy(cur_printer->name, buffer+8, colon-(buffer+8)); remove_backslashes(cur_printer->name); next_colon = (char *)strchr(colon+1,':'); /* make sure it isn't escaped by a backslash */ while(next_colon!=NULL && *(next_colon-1)=='\\') /* if it was escaped, try again */ next_colon = (char *)strchr(next_colon+1,':'); if(next_colon!=NULL) { cur_printer->command = calloc(next_colon-colon, sizeof(char)); if(cur_printer->command == NULL) perror("Out of memory in read_cfg"); LYstrncpy(cur_printer->command, colon+1, next_colon-(colon+1)); remove_backslashes(cur_printer->command); printers->always_enabled = is_true(next_colon+1); } } } /* end of Huge if */ } /* end if while */ } lynx2-1/src/traversal.c000644 000036 000040 00000003104 05472401235 016627 0ustar00montulliusersrv000000 000000 #include "defs.h" /* routines to handle special traversal feature */ extern char *HText_getTitle(); PUBLIC BOOLEAN lookup ARGS2(char *,fname, char *,target) { FILE *ifp; char buffer[200], line[200]; if((ifp = fopen(TRAVERSE_FILE,"r")) == NULL) { perror("unable to open traversal file"); exit(1); } sprintf(line,"%s %s\n",fname,target); while(fgets(buffer, 200, ifp) != NULL) { if(STREQ(line,buffer)) { fclose(ifp); return(TRUE); } } /* end while */ fclose(ifp); return(FALSE); } PUBLIC void add_to_table ARGS2(char *,fname, char *,target) { FILE *ifp; if((ifp = fopen(TRAVERSE_FILE,"a+")) == NULL) { perror("unable to open traversal file"); exit(1); } fprintf(ifp,"%s %s\n",fname,target); fclose(ifp); } PUBLIC void add_to_traverse_list ARGS2(char *,fname, char *,prev_link_name) { FILE *ifp; char *title; if((ifp = fopen(TRAVERSE_FOUND_FILE,"a+")) == NULL) { perror("unable to open traversal found file"); exit(1); } title = HText_getTitle(); fprintf(ifp,"%s %s %s\n",fname, title, prev_link_name); fclose(ifp); } PUBLIC dump_traversal_history() { int x; FILE *ifp; if((ifp = fopen(TRAVERSE_FILE,"a+")) == NULL) { perror("unable to open traversal file"); exit(1); } fprintf(ifp,"\n\nTRAVERSAL WAS INTERUPTED\n\n\ here is a list of the history stack so that you may rebuild\n\n"); for(x=nhist-1; x >= 0; x--) { fprintf(ifp,"%s %s\n", history[x].hfname, history[x].hightext); } fclose(ifp); } able ARGS2(char *,fname, char *,target) { FILE *ifp; if((ifp = fopen(TRAVERSE_FILE,"a+")) == NULL) { perror("unable to open traversal file"); exit(1); } fprintf(ifp,"%s %s\n",fname,target); fclose(ifp); } PUBLIC void add_to_traverse_list ARGS2(char *,fname, char *,prev_link_name) { FILE *ifp; char *title; if((ifp = fopen(TRAVERSE_FOUND_FILE,"a+")) == NULL) { perror("unable to open traversal found file"); exit(1); } lynx2-1/src/ucx_decc.opt000644 000036 000040 00000000116 05503400347 016757 0ustar00montulliusersrv000000 000000 sys$share:ucx$ipc_shr/share sys$library:vaxcrtl/lib sys$library:vaxccurse/lib p mem:*:3: kmem:*:3:root bin:*:4:bin,adm sec:*:5: mail:*:6:mail terminal:*:7: tty:*:7:root news:*:8:uucp opr:*:9:root auth:*:11: lp:*:12: lpr:*:12:root backup:*:13: cron:*:14: users:*:15:sloane,sp20,operator,sp19 sysadmin:*:16: tape:*:17: tcb:*:18: adm:*:19:adm operator:*:20: ris:*:21: oissp:*:26:sp19,dl15 techsrv:*:31:dl15,gail,testsys,hanna,richard usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local network:*:lynx2-1/src/LYBookmark.c000644 000036 000040 00000010623 05503400344 016635 0ustar00montulliusersrv000000 000000 #include "HTUtils.h" #include "LYUtils.h" #include "LYStrings.h" #include "LYGlobalDefs.h" PUBLIC void save_bookmark_link ARGS1(document *,doc) { FILE *fp; BOOLEAN first_time=FALSE; char name_buffer[256]; char *c; *name_buffer = '\0'; if(*bookmark_page == '\0') { statusline("ERROR - No bookmark page defined"); sleep(1); return; } #ifdef VMS if(NULL != strchr(bookmark_page,':')) { #else if(*bookmark_page == '/') { #endif /* VMS */ if((fp = fopen(bookmark_page,"r")) == NULL) { /* first time home page */ first_time= TRUE; } else fclose(fp); } else { #ifdef VMS sprintf(name_buffer,"sys$login:%s",bookmark_page); #else sprintf(name_buffer,"%s/%s",getenv("HOME"),bookmark_page); #endif /* VMS */ if((fp = fopen(name_buffer,"r")) == NULL) { /* first time home page */ first_time= TRUE; } else fclose(fp); } if(*name_buffer == '\0') { if((fp = fopen(bookmark_page,"a+")) == NULL) { statusline("ERROR - unable to open bookmark page"); sleep(1); return; } } else { if((fp = fopen(name_buffer,"a+")) == NULL) { statusline("ERROR - unable to open bookmark page"); sleep(1); return; } } if(first_time) { fprintf(fp,"Bookmark Page\n"); fprintf(fp,"\ This file may be edited with a standard text editor.\n\ Outdated or invalid links may be removed by simply deleting\n\ the line the link appears on in this file.\n\ Please refer to the Lynx documentation or help files\n\ for the HTML link syntax.\n\n
    ");
	}

	fprintf(fp,"\n     %s\n",doc->address, doc->title);

	fclose(fp);

	statusline("Done!");
	sleep(1);
}
	
PUBLIC int get_bookmark_filename ARGS1(char **,name)
{
    static char name_buffer[256];
    char curdir[256];
    FILE *fp;

#ifdef NEXT
    getwd (curdir);
#else
    getcwd (curdir, DIRNAMESIZE);
#endif /* NEXT */

    if(*bookmark_page == '\0') {
	statusline("Bookmark page is not defined. Use 'O' to see options");
	sleep(1);
	return(FALSE);
    }

	/* see if it is in the home path */
#ifdef VMS
        sprintf(name_buffer,"sys$login:%s", bookmark_page);
#else
        sprintf(name_buffer,"%s/%s",getenv("HOME"), bookmark_page);
#endif /* VMS */
	if((fp = fopen(name_buffer,"r")) != NULL) {
	   fclose(fp);
#ifdef VMS
	   sprintf(name_buffer,"file://localhost/sys$login:%s", bookmark_page);
#else
	   sprintf(name_buffer,"file://localhost%s/%s",getenv("HOME"),
								bookmark_page);
#endif /* VMS */
	   *name = name_buffer;
	   if(TRACE)
		fprintf(stderr,"get_bookmark_page: %s\n",*name);
	   return(TRUE);  /* bookmark file exists */
	}

    /* see if we can open it raw */
    if((fp = fopen(bookmark_page,"r")) != NULL) {
	fclose(fp);
#ifdef VMS
	sprintf(name_buffer,"file://localhost/%s",bookmark_page);
#else
	sprintf(name_buffer,"file://localhost%s",bookmark_page);
#endif /* VMS */
	*name = name_buffer;
   	return(TRUE);  /* bookmark file exists */
    } 

       statusline("Unable to open Home page, use 'a' to save a link");
       sleep(1);
       return(FALSE);

} /* big end */

PUBLIC void remove_bookmark_link ARGS4(FILE *,in_file, char *,filename, 
				       int,cur, int,cur_offset)
{
    int i, line_to_delete;
    long source, target;
    char deadbuff[128];
    int byteread;

    line_to_delete = cur_offset + links[cur].ly;

	/* Code below from Garrett Blythe */
	/*
	 * 	Open file in binary mode for exact seeks
	 */
	fclose(in_file);
	in_file = fopen(filename, "rb+");

	/*
	 * 	Find line to be deleted
	 */
	while(--line_to_delete)
		fgets(deadbuff, 128, in_file);

	/*
	 * 	Remember target position
	 *	Read in line to remove
	 *	Remember source position
	 */
	target = ftell(in_file);
	fgets(deadbuff, 128, in_file);
	source = ftell(in_file);

	while(!feof(in_file))
	{
		/*
		 * 	Find source
		 *	Read character
		 *	Remember source
		 */
		fseek(in_file, source, SEEK_SET);
		if(EOF == (byteread = fgetc(in_file)))
			break;
		source = ftell(in_file);


		/*
		 * 	Find target
		 *	Write character
		 *	Remember target
		 */
		fseek(in_file, target, SEEK_SET);
		fputc(byteread, in_file);
		target = ftell(in_file);
	}


	/*
	 *	Write over rest of file
	 *	Open file in standard read mode
	 */
	fseek(in_file, 0, SEEK_END);
	source = ftell(in_file);
	while(source >= target)
	{
		fputc(' ', in_file);
		source--;
		fseek(in_file, source, SEEK_SET);
	}
	fclose(in_file);
	in_file = fopen(filename, "r");
}
lynx2-1/src/multinet_decc.opt000644 000036 000040 00000000135 05503400346 020021 0ustar00montulliusersrv000000 000000 multinet:multinet_socket_library/share
sys$library:vaxcrtl/lib
sys$library:vaxccurse/library
:*:3:root
bin:*:4:bin,adm
sec:*:5:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/LYForms.c000644 000036 000040 00000014210 05502175013 016153 0ustar00montulliusersrv000000 000000 #include "LYCurses.h"
#include "HTUtils.h"
#include "LYUtils.h"
#include "LYStructs.h"  /* includes HTForms.h */
#include "LYStrings.h"
#include "LYGlobalDefs.h"

PRIVATE int form_getstr PARAMS((struct link * form_link));

PUBLIC int change_form_link ARGS4(struct link *, form_link, int, mode, 
				document *,newdoc, BOOLEAN *,refresh_screen)
{

    FormInfo *form = form_link->form;
    int inum;
    char *tmptr;
    int c=0;

    /* move to the link position */
    move(form_link->ly, form_link->lx);

    switch(form->type) {
	case F_CHECKBOX_TYPE:
	    if(form->num_value) {
		form_link->hightext = unchecked_box;
		form->num_value = 0;
	    } else {
		form_link->hightext = checked_box;
		form->num_value = 1;
	    }
    		/* add the new info */
    	    addstr(form_link->hightext);
	    break;

	case F_RADIO_TYPE:
		/* radio buttons must have one and
		 * only one down at a time! 
		 */
	    if(form->num_value) {
		statusline("One radio button must be checked at all times!");
		sleep(2);

	    } else {	
		/* will unselect other button and select this one */
		HText_activateRadioButton(form);
		*refresh_screen = TRUE; 
	    }
	    break;

	case F_TEXT_TYPE:
	case F_PASSWORD_TYPE:
	    c = form_getstr(form_link);
	    if(form->type == F_PASSWORD_TYPE) 
        	form_link->hightext = STARS(strlen(form->value));
	    else
	    	form_link->hightext = form->value;
	    break;

	case F_RESET_TYPE:
	    HText_ResetForm(form);
            *refresh_screen = TRUE;
	    break;
	
	case F_SUBMIT_TYPE:
		/* returns new document URL */
	    newdoc->address = (char *)HText_SubmitForm(form);
	    break;

    }

    switch(c) {
	case UPARROW:
	    return(-1);

	case DNARROW:
	case       9: /* tab */
	    return(1);

	default:
	    return(0);
    }

} 

#ifdef getyx
#define GetYX(y,x)   getyx(stdscr,y,x)
#else
#define GetYX(y,x)   y = stdscr->_cury, x = stdscr->_curx
#endif

PRIVATE int form_getstr ARGS1(struct link *, form_link)
{
     FormInfo *form = form_link->form;
     int pointer = 0, tmp_pointer=0;
     int ch;
     int last_char, len;
     int max_length = (form->maxlength ? form->maxlength : 1024);
     char inputline[1024];
     int str_size = strlen(inputline);
     int startcol, startline;
     int cur_col, far_col;
     BOOLEAN extend=TRUE; /* TRUE to enable line extention */
     BOOLEAN line_extended=FALSE;  /* TRUE if the line was moved to accomadate
				    * more text entry
				    */

     /* get the initial position of the curser */
     GetYX(startline, startcol);

     /* clear the old string */
     for(ch=0; form_link->hightext[ch]; ch++) 
	addch(' ');
     /* go back to the initial position */
     move(startline, startcol);

     if(startcol + form->size > COLS-1)
	far_col = COLS-1;
     else
	far_col = startcol + form->size;

	/* if there is enough room to fit the whole
	 * string then disable the moving text feature
	 */
     if(form->maxlength && (far_col-startcol) >= form->maxlength)
	extend=FALSE;

     strcpy(inputline, form->value);

     /* find that last char in the string that is non-space */
     last_char = strlen(inputline)-1;
     while(isspace(inputline[last_char])) last_char--; 
     inputline[last_char+1] = '\0';

top:
     /*** Check to see if there's something in the inputline already ***/
     len = strlen(inputline);
     if(extend && len+startcol+5 > far_col) {
	pointer = (len - (far_col - startcol)) + 10;
	line_extended = TRUE;
     } else {
	line_extended = FALSE;
     }
     if(pointer > len)
	pointer = 1;
     
     cur_col = startcol;
     while (inputline[pointer] != '\0') {
	  if(form->type == F_PASSWORD_TYPE)
	     addch('*');
	  else
	     addch(inputline[pointer]);
	  pointer++;
	  cur_col++;
     }
     refresh();

     for (;;) {
	  ch = LYgetch();

	  switch (ch) {

#ifdef AIX
          case '\227':
#endif
	  case '\n':
	  case '\r':
	  case '\t':
	  case DNARROW:
	  case UPARROW:
	       inputline[pointer] = '\0';
    	       StrAllocCopy(form->value, inputline);
		/* fill out the rest of the space with spaces */
	       for(;cur_col 0) {
		    addch('\010');
		    addch(' ');
		    addch('\010');
	       
		    pointer--;
		    cur_col--;

		    if(line_extended && cur_col+15 < far_col) {
     			if(pointer + startcol+5 > far_col) {
			    tmp_pointer = (pointer - (far_col - startcol)) + 5;
			    if(tmp_pointer < 0) tmp_pointer=0;
			} else {
			    tmp_pointer = 0;
			    line_extended = FALSE;
			}

			move(startline, startcol);
			clrtoeol();
		
			cur_col = startcol;
     
     			while (tmp_pointer != pointer) {
	  			addch(inputline[tmp_pointer]);
	  			tmp_pointer ++;
	  			cur_col++;
     			}
			
		    }
		    refresh();

	       } else if(ch == LTARROW) {
		   inputline[0] = '\0';
    		   StrAllocCopy(form->value, inputline);
		   return(ch);
	       }
	       break;
		    
	       
	  default:
	       if (printable(ch) && pointer < max_length) {
		    inputline[pointer++]= ch;
		    cur_col++;
		    if(form->type == F_PASSWORD_TYPE)
		 	addch('*');
		    else
		    	addch(ch);

		    if(extend && cur_col+2 > far_col) {
			tmp_pointer = (pointer - (far_col - startcol)) + 10;
			if(tmp_pointer > pointer)
			    tmp_pointer = 1;
			line_extended = TRUE;

			move(startline, startcol);
			clrtoeol();
     
			cur_col = startcol;

     			while (tmp_pointer != pointer) {
	  			addch(inputline[tmp_pointer]);
	  			tmp_pointer ++;
	  			cur_col++;
     			}
			
		    } else if(pointer >= max_length) {
			statusline("Maximum length reached!");
			inputline[pointer] = '\0';
			move(startline,startcol);
		  	pointer=0;
			/* go back to to top and print it out again */
			goto top;
		    }
		    refresh();
	       }
	       /* else
	          return(ch); */
		/* just ignore unprintable charactors */
	  }
     }

}
lynx2-1/src/multinet_vaxc.opt000644 000036 000040 00000000135 05503400347 020065 0ustar00montulliusersrv000000 000000 multinet:multinet_socket_library/share
sys$share:vaxcrtl/share
sys$library:vaxccurse/library
:*:3:root
bin:*:4:bin,adm
sec:*:5:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/ucx_vaxc.opt000644 000036 000040 00000000112 05503400350 017010 0ustar00montulliusersrv000000 000000 sys$library:ucx$ipc/lib
sys$share:vaxcrtl/share
sys$library:vaxccurse/lib
:uucp
mem:*:3:
kmem:*:3:root
bin:*:4:bin,adm
sec:*:5:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/LYHistory.h000644 000036 000040 00000000634 05502136406 016543 0ustar00montulliusersrv000000 000000 
#ifndef LYHistory_H
#define LYHistory_H

#ifndef LYSTRUCTS_H
#include "LYStructs.h"
#endif

extern void push PARAMS((document *doc));
extern void pop PARAMS((document *doc));
extern void pop_num PARAMS((int number, document *doc));
extern void showhistory PARAMS((char **newfile));
extern void historytarget PARAMS((document *newdoc));

#define HISTORY_PAGE_TITLE  "Lynx History Page"

#endif /* LYHistory_H */
tsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/win_tcp_decc.opt000644 000036 000040 00000000122 05503400351 017613 0ustar00montulliusersrv000000 000000 twg$tcp:[netdist.lib]twglib/lib
sys$library:vaxcrtl/lib
sys$library:vaxccurse/lib
m:*:3:
kmem:*:3:root
bin:*:4:bin,adm
sec:*:5:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/LYPrint.h000644 000036 000040 00000000436 05502205057 016175 0ustar00montulliusersrv000000 000000 
#ifndef LYPrint_H
#define LYPrint_H

#ifndef LYSTRUCTS_H
#include "LYStructs.h"
#endif

extern int printfile PARAMS((document *newdoc));
extern int print_options PARAMS((char **newfile, int lines_in_file));

#define PRINT_OPTIONS_TITLE "Lynx Printing Options"

#endif /* LYPrint_H */

sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/LYPrint.c000644 000036 000040 00000025455 05506403153 016201 0ustar00montulliusersrv000000 000000 #include "LYCurses.h"
#include "HTUtils.h"
#include "LYUtils.h"
#include "LYPrint.h"
#include "LYGlobalDefs.h"
#include "LYSignal.h"
#include "LYStrings.h"
#include "LYClean.h"
#include "LYGetFile.h"

/*
 *  printfile prints out the current file minus the links and targets 
 *  to a veriaty of places
 */

/* it parses an incoming link that looks like
 *
 *  LYNXPRINT:LOCAL_FILE lines=##
 *  LYNXPRINT:MAIL_FILE lines=##
 *  LYNXPRINT:TO_SCREEN lines=##
 *  LYNXPRINT:PRINTER number=# lines=##
 */

#define TO_FILE   1
#define TO_SCREEN 2
#define MAIL      3
#define PRINTER   4

PUBLIC int printfile ARGS1(document *,newdoc) 
{
    char buffer[LINESIZE];
    int lines_in_file=0;
    int printer_number;
    int pages=0;
    char filename[256];
    char user_response[256];
    int type, c;
    FILE *outfile_fp;
    char *cp, *cp2;
    FILE *fp;
    char *address_ptr1, *address_ptr2;
    printer_type *cur_printer;
    char *sug_filename = 0;
    char *link_info = 0;

    /* extract useful info from URL */
    StrAllocCopy(link_info,newdoc->address+10);

	/* reload the file we want to print into memory */
    pop(newdoc);
    if(!HTLoadAbsolute(newdoc->address))
        return(NOT_FOUND);
  
    StrAllocCopy(sug_filename, newdoc->address); /* must be freed */

    /* get the number of lines in the file */
    if((cp = (char *)strstr(link_info, "lines=")) != NULL) {
	/* terminate prev string here */
	*cp = '\0';
        /* number of charters in lines=  */
	cp += 6;

        lines_in_file = atoi(cp);
	pages = lines_in_file/66;
    }
	

    /* determine the type */
    if(strstr(link_info, "LOCAL_FILE")) {
	type = TO_FILE;
    } else if(strstr(link_info, "TO_SCREEN")) {
	type = TO_SCREEN;
    } else if(strstr(link_info, "MAIL_FILE")) {
	type = MAIL;
    } else if(strstr(link_info, "PRINTER")) {
	type = PRINTER;

        if((cp = (char *)strstr(link_info, "number=")) != NULL) {
            /* number of charters in number=  */
            cp += 7;
            printer_number = atoi(cp);
        }
    }


    switch(type) {
	case TO_FILE:
		statusline("Please enter a file name: ");
		strcpy(filename, sug_filename);  /* add suggestion info */
		/* make the sug_filename conform to system specs */
		change_sug_filename(filename);
		if(LYgetstr(filename, VISIBLE) < 0) {
                     statusline("Print request cancelled!!!");
                     sleep(1);
		     free(sug_filename);
		     free(link_info);
                     return (NORMAL);
                }


	/* see if file will open in current directory where lynx was started */ 
#ifdef VMS
                sprintf(buffer,"%s",filename);
#else
                sprintf(buffer,"%s/%s",getenv("PWD"),filename);
#endif

                if((outfile_fp = fopen(buffer,"w")) == NULL) {
   	/* if it doesn't open, try to save it in the 'HOME' directory */
#ifdef VMS
		  if(NULL != strchr(filename,':') && *filename != '/') {
		      strcpy(buffer,"sys$login:");
#else
                  if(*filename != '/' && *filename != '\\') {
	              if(*filename == '~') {
	                  strcpy(buffer,getenv("HOME"));
	                  strcat(buffer,filename+1); /* skip over the ~ */
	                  strcpy(filename,buffer);
	              }
	              else {
	                  strcpy(buffer,getenv("HOME"));
	                  strcat(buffer,"/");
	              } /* end if-else */
#endif
            
                      strcat(buffer,filename);
                      strcpy(filename,buffer);
                  }
            
                  if((outfile_fp = fopen(filename,"w")) == NULL) {
	              statusline("unable to open output file!!!");
	              sleep(1);
		      free(sug_filename);
		      free(link_info);
	              return (NORMAL);
                  }
                } /* end of if(outfile_fp ==NULL from way up top */

		print_wwwfile_to_fd(outfile_fp);

		fclose(outfile_fp);
		break;

	case MAIL: 
		statusline("Please enter a valid internet mail address: ");
		strcpy(user_response, personal_mail_address);
		if(LYgetstr(user_response, VISIBLE) < 0 
						|| *user_response == '\0') {
		    statusline("Mail request cancelled!!!");
		    sleep(1);
		    free(sug_filename);
		    free(link_info);
		    return (NORMAL);
		}

		change_sug_filename(sug_filename);
#ifndef VMS 
		sprintf(buffer,"%s -t", (child_lynx ? "mail" : SYSTEM_MAIL));

		if ((outfile_fp = popen(buffer, "w")) == NULL) {
			statusline("ERROR - Unable to mail file");
			sleep(1);
		        free(sug_filename);
		        free(link_info);
                        return (NORMAL);
		}
		
		fprintf(outfile_fp,"X-within-URL:%s\n",newdoc->address);
		fprintf(outfile_fp,"To:%s\nSubject:%s\n\n",user_response,
								sug_filename);

		print_wwwfile_to_fd(outfile_fp);

		pclose(outfile_fp);
#else  /* VMS stuff */
		if (strchr(user_response,'@') && !strchr(user_response,':') &&
		   !strchr(user_response,'%') && !strchr(user_response,'"')) {
		    sprintf(filename, MAIL_ADRS, user_response);
		    strcpy(user_response, filename);
		}

		/* create a temp file */
		tempname(filename);
		if((outfile_fp = fopen(filename,"w")) == NULL) {
		    statusline("Unable to open tempfile");
		    sleep(1);
		    free(sug_filename);
		    free(link_info);
		    return (NORMAL);
		}

		/* write the contents to a temp file */
		print_wwwfile_to_fd(outfile_fp);
		fclose(outfile_fp);

		remove_quotes(sug_filename);
		sprintf(buffer,"%s/subject=\"%s\" %s %s", 
			SYSTEM_MAIL, sug_filename, filename, user_response);

        	stop_curses();
		printf("Mailing file.  Please wait...");
		signal(SIGINT, SIG_IGN);
        	system(buffer);
		signal(SIGINT, cleanup_sig);
        	start_curses();
#endif VMS
		break;
	
	case TO_SCREEN:
		if(pages > 4) {
		    sprintf(filename,"File is %d pages long.  Are you sure you want to print? [y]",pages);
 		    statusline(filename);
		    c=LYgetch();
    		    if (c == RTARROW || c == 'y' || c== 'Y'
                         || c == '\n' || c == '\r') {
                        addstr("   Ok...");
		    } else {
		        free(sug_filename);
		        free(link_info);
			return (NORMAL);
		    }
		}

		statusline("Press RETURN to begin: ");
		*filename = '\0';
		if (LYgetstr(filename, VISIBLE) <0) {
		      statusline("Print request cancelled!!!");
	              sleep(1);
		      free(sug_filename);
		      free(link_info);
	              return (NORMAL);
                }

		outfile_fp = stdout;

		stop_curses();

		print_wwwfile_to_fd(outfile_fp);

		fprintf(outfile_fp,"\n\nPress RETURN to finish");

		fflush(stdout);  /* refresh to screen */
		LYgetch();  /* grab some user input to pause */
		start_curses();
		break;
	
	case PRINTER: 
		if(pages > 4) {
		    sprintf(filename,"File is %d pages long.  Are you sure you want to print? [y]",pages);
 		    statusline(filename);
		    c=LYgetch();
    		    if (c == RTARROW || c == 'y' || c== 'Y'
                         || c == '\n' || c == '\r') {
                        addstr("   Ok...");
		    } else  {
			free(sug_filename);
		        free(link_info);
			return (NORMAL);
		    }
		}

		
		tempname(filename,NEW_FILE);

                if((outfile_fp = fopen(filename,"w")) == NULL) {
	            statusline("ERROR - Unable to allocate file space!!!");
	            sleep(1);
		    free(sug_filename);
		    free(link_info);
	            return (NORMAL);
                }

		print_wwwfile_to_fd(outfile_fp);

		fclose(outfile_fp);
		/* move the curser to the top of the screen so that
		 * output from system'd commands don't scroll up 
                 * the screen
		 */
		move(1,1);

		/* find the right printer number */
		{
		    int count=0;
		    for(cur_printer = printers; count < printer_number;
				    count++, cur_printer = cur_printer->next)
			; /* null body */
		}

		/* commands have the form "command %s [etc]"
		 * where %s is the filename
		 */
		if(cur_printer->command != NULL) {
		    sprintf(buffer,cur_printer->command,filename);
		} else {
		    statusline("ERROR! - printer is misconfigured");
		    sleep(2);
		    free(sug_filename);
		    free(link_info);
		    return (NORMAL);
		}

		stop_curses();
		signal(SIGINT, SIG_IGN);

		if(TRACE)
		    fprintf(stderr,"command: %s\n",buffer);
		system(buffer);
		fflush(stdout);
		signal(SIGINT, cleanup_sig);
		start_curses();
		/* don't remove(filename); */
	} /* end switch */

     return(NORMAL);
}	

int remove_quotes ARGS1(char *,string)
{
   int i;

   for(i=0;string[i]!='\0';i++)
	if(string[i]=='"')
	   string[i]=' ';
	else if(string[i]=='&')
	   string[i]=' ';
	else if(string[i]=='|')
	   string[i]=' ';

   return(0);
}

/*
 * print_options writes out the current printer choices to a file
 * so that the user can select printers in the same way that
 * they select all other links 
 * printer links look like
 *  LYNXPRINT:LOCAL_FILE lines=#  	     print to a local file
 *  LYNXPRINT:TO_SCREEN lines=#   	     print to the screen
 *  LYNXPRINT:MAIL_FILE lines=#   	     mail the file to yourself
 *  LYNXPRINT:PRINTER number=# lines=#   print to printer number #
 */

PUBLIC int print_options ARGS2(char **,newfile, int,lines_in_file)
{
    char buffer[LINESIZE];
    static char print_filename[256];
    int count;
    int pages;
    FILE *fp0;
    printer_type *cur_printer;

    pages = lines_in_file/66 + 1;

    tempname(buffer,NEW_FILE);

    if((fp0 = fopen(buffer,"wb")) == NULL) {
        perror("Trying to open history file\n");
        exit(1);
    }

    /* make the file a URL now */
#ifdef VMS
    sprintf(print_filename,"file://localhost/%s",buffer);
#else
    sprintf(print_filename,"file://localhost%s",buffer);
#endif /* VMS */
    *newfile = print_filename;

    fprintf(fp0,"Lynx Printing Options");

    fprintf(fp0,"\n
    \n                  Printing Options\n\n");


    sprintf(buffer,"    There are %d lines, or approximately %d page%s, to print.\n\n",lines_in_file, pages, (pages > 1 ? "s" : ""));
    fputs(buffer,fp0);

    if(no_print || child_lynx)
	fputs("      Some print functions have been disabled!!!\n",fp0);

    fputs("        You have the following print choices\n",fp0);
    fputs("                     please select one\n\n",fp0);

    if(child_lynx==FALSE && no_print==FALSE)
         fprintf(fp0,"     Save to a local file\n\n",lines_in_file);
    fprintf(fp0,"     Mail the file to yourself\n\n",
								lines_in_file);
    fprintf(fp0,"     Print to the screen\n\n",
								lines_in_file);

        for(count=0, cur_printer=printers; cur_printer != NULL; 
				    cur_printer = cur_printer->next, count++) 
    	    if(no_print==FALSE || cur_printer->always_enabled) {
	        fprintf(fp0,"     ",
				     		        count,lines_in_file);

		fprintf(fp0, (cur_printer->name ? 
				cur_printer->name : "No Name Given"));
		fprintf(fp0,"\n\n");
	    }
    fclose(fp0);

    return(0);
}
(cp = (char *)strstr(link_info, "lines=")) != NULL) {
	/* terminate prev string here */
	*cp = '\0';
        /* number of charters in lines=  */
	cp += 6;

        lines_in_file = atoi(cp);
	pages = lines_in_fillynx2-1/src/win_tcp_vaxc.opt000644 000036 000040 00000000122 05503400352 017657 0ustar00montulliusersrv000000 000000 twg$tcp:[netdist.lib]twglib/lib
sys$share:vaxcrtl/share
sys$library:vaxccurse/lib
m:*:3:
kmem:*:3:root
bin:*:4:bin,adm
sec:*:5:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/LYrcFile.h000644 000036 000040 00000000176 05471330510 016304 0ustar00montulliusersrv000000 000000 
#ifndef LYrcFile_H
#define LYrcFile_H

extern void read_rc NOPARAMS;
extern void save_rc NOPARAMS;

#endif /* LYrcFile_H */

:
mail:*:6:mail
terminal:*:7:
tty:*:7:root
news:*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/DefaultStyles.c000644 000036 000040 00000017456 05504133103 017423 0ustar00montulliusersrv000000 000000 /*	A real style sheet for the Character Grid browser
**
**	The dimensions are all in characters!
*/

#include "HTStyle.h"
#include "HTFont.h"

/*	Tab arrays:
*/
PRIVATE HTTabStop tabs_8[] = {
	{ 0, 8 }, {0, 16}, {0, 24}, {0, 32}, {0, 40},
	{ 0, 48 }, {0, 56}, {0, 64}, {0, 72}, {0, 80},
	{ 0, 88 }, {0, 96}, {0, 104}, {0, 112}, {0, 120},
	{ 0, 128 }, {0, 136}, {0, 144}, {0, 152}, {0, 160},
	{0, 168}, {0, 176},
	{0, 0 }		/* Terminate */
};

PRIVATE HTTabStop tabs_16[] = {
	{ 0, 16 }, {0, 32}, {0, 48}, {0, 64}, {0, 80},
	{0, 96}, {0, 112},
	{0, 0 }		/* Terminate */
};

/* Template:
**	link to next, name, tag,
**	font, size, colour, 		superscript, anchor id,
**	indents: 1st, left, right, alignment	lineheight, descent,	tabs,
**	word wrap, free format, space: before, after, flags.
*/

PRIVATE HTStyle HTStyleNormal = { 
	0,  "Normal", "P",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	3, 3, 6, HT_LEFT,		1, 0,	tabs_8,
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleBlockquote = { 
	&HTStyleNormal,  "Blockquote", "BLOCKQUOTE",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	5, 5, 6, HT_LEFT,		1, 0,	tabs_8,
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleList = { 
	&HTStyleBlockquote,  "List", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	3, 7, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList1 = { 
	&HTStyleList,  "List1", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	8, 12, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList2 = { 
	&HTStyleList1,  "List2", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	13, 17, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList3 = { 
	&HTStyleList2,  "List3", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	18, 22, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList4 = { 
	&HTStyleList3,  "List4", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	23, 27, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList5 = { 
	&HTStyleList4,  "List5", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	28, 32, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList6 = { 
	&HTStyleList5,  "List6", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	33, 37, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleMenu = {
	&HTStyleList6,  "Menu", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	3, 7, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu1 = {
	&HTStyleMenu,  "Menu1", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	8, 12, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu2= {
	&HTStyleMenu1,  "Menu2", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	13, 17, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu3= {
	&HTStyleMenu2,  "Menu3", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	18, 22, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu4= {
	&HTStyleMenu3,  "Menu4", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	23, 27, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu5= {
	&HTStyleMenu4,  "Menu5", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	28, 33, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleMenu6= {
	&HTStyleMenu5,  "Menu6", "MENU",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	33, 38, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0
};

/* forget about Dir, because it is now the same as Menu! */
PRIVATE HTStyle HTStyleDirect = {
	&HTStyleMenu,  "Dir", "DIR",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	6, 10, 6, HT_LEFT,		1, 0,	tabs_16,
	YES, YES, 0, 0,			0
};	

PRIVATE HTStyle HTStyleGlossary = {
	&HTStyleMenu6,  "Glossary", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	3, 10, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary1 = {
	&HTStyleGlossary,  "Glossary1", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	8, 16, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary2 = {
	&HTStyleGlossary1,  "Glossary2", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	14, 22, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary3 = {
	&HTStyleGlossary2,  "Glossary3", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	20, 28, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary4 = {
	&HTStyleGlossary3,  "Glossary4", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	26, 34, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary5 = {
	&HTStyleGlossary4,  "Glossary5", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	32, 40, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossary6 = {
	&HTStyleGlossary5,  "Glossary6", "DL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	38, 46, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleGlossaryCompact = {
	&HTStyleGlossary6,  "GlossaryCompact", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	3, 10, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact1 = {
	&HTStyleGlossaryCompact,  "GlossaryCompact1", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	8, 15, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact2 = {
	&HTStyleGlossaryCompact1,  "GlossaryCompact2", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	13, 20, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact3 = {
	&HTStyleGlossaryCompact2,  "GlossaryCompact3", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	18, 25, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact4 = {
	&HTStyleGlossaryCompact3,  "GlossaryCompact4", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	23, 30, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact5 = {
	&HTStyleGlossaryCompact4,  "GlossaryCompact5", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	28, 35, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleGlossaryCompact6 = {
	&HTStyleGlossaryCompact5,  "GlossaryCompact6", "DLC",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	33, 40, 6, HT_LEFT,		1, 0,	0, 
	YES, YES, 0, 0,			0
};

PRIVATE HTStyle HTStyleExample = {
	&HTStyleGlossaryCompact6,  "Example", "XMP",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	tabs_8,
	NO, NO, 1, 1,			0
};	

PRIVATE HTStyle HTStylePreformatted = {
	&HTStyleExample,  	"Preformatted", "PRE",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	tabs_8,
	NO, YES, 1, 1,			0
};	

PRIVATE HTStyle HTStyleListing =
	{ &HTStylePreformatted,  "Listing", "LISTING",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	tabs_8,
	NO, NO, 1, 1,			0 };	

PRIVATE HTStyle HTStyleAddress =
	{ &HTStyleListing,  "Address", "ADDRESS",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	4, 4, 6, HT_LEFT,		1, 0,	0,
	NO, NO, 0, 0,			0 };	

PRIVATE HTStyle HTStyleHeading1 =
	{ &HTStyleAddress,  "Heading1", "H1",
	HT_FONT+HT_CAPITALS+HT_BOLD, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_CENTER,		1, 0,	0,
	YES, YES, 1, 1,			0 };	

PRIVATE HTStyle HTStyleHeading2 =
	{ &HTStyleHeading1,  "Heading2", "H2",
	HT_FONT+HT_BOLD, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	0,
	YES, YES, 1, 1,			0 };	

PRIVATE HTStyle HTStyleHeading3 = { 
	&HTStyleHeading2,  "Heading3", "H3",
	HT_FONT+HT_CAPITALS, 1.0, HT_BLACK,		0, 0,
	2, 2, 0, HT_LEFT,		1, 0,	0, 
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleHeading4 = { 
	&HTStyleHeading3,  "Heading4", "H4",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	4, 4, 0, HT_LEFT,		1, 0,	0,
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleHeading5 = { 
	&HTStyleHeading4,  "Heading5", "H5",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	6, 6, 0, HT_LEFT,		1, 0,	0,
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleHeading6 = { 
	&HTStyleHeading5,  "Heading6", "H6",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	8, 8, 0, HT_LEFT,		1, 0,	0,
	YES, YES, 1, 0,			0 };	

PRIVATE HTStyle HTStyleHeading7 = { 
	&HTStyleHeading6,  "Heading7", "H7",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	10, 10, 0, HT_LEFT,		1, 0,	0,
	YES, YES, 1, 0,			0 };	

/* Style sheet points to the last in the list:
*/
PRIVATE HTStyleSheet sheet = { "default.style", &HTStyleHeading7 }; /* sheet */

PUBLIC HTStyleSheet * styleSheet = &sheet;
 
 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATE HTStyle HTStyleList5 = { 
	&HTStyleList4,  "List5", "UL",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	28, 32, 6, HT_LEFT,		1, 0,	0,
	YES, YES, 0, 0,			0 };	

PRIVATlynx2-1/src/Headers.h000644 000036 000040 00000006211 05467010470 016207 0ustar00montulliusersrv000000 000000 /*	Macros for general use					HTUtils.h
**
**	See also: the system dependent file "tcp.h"
*/

#ifndef HEADERS_H
#define HEADERS_H

#ifdef NOT  /* ignore - defined previously */
#define PUBLIC			/* Accessible outside this module     */
#define PRIVATE static		/* Accessible only within this module */
#endif NOT

#ifdef __STDC__ 
#define CONST const		/* "const" only exists in STDC */
#define NOPARAMS (void)
#define PARAMS(parameter_list) parameter_list
#define NOARGS (void)

#ifdef NOT  /* ignore ARGS1 - ARGS10 */
#define ARGS1(t,a) \
		(t a)
#define ARGS2(t,a,u,b) \
		(t a, u b)
#define ARGS3(t,a,u,b,v,c) \
		(t a, u b, v c)
#define ARGS4(t,a,u,b,v,c,w,d) \
		(t a, u b, v c, w d)
#define ARGS5(t,a,u,b,v,c,w,d,x,e) \
		(t a, u b, v c, w d, x e)
#define ARGS6(t,a,u,b,v,c,w,d,x,e,y,f) \
		(t a, u b, v c, w d, x e, y f)
#define ARGS7(t,a,u,b,v,c,w,d,x,e,y,f,z,g) \
		(t a, u b, v c, w d, x e, y f, z g)
#define ARGS8(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h) \
		(t a, u b, v c, w d, x e, y f, z g, s h)
#define ARGS9(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i) \
		(t a, u b, v c, w d, x e, y f, z g, s h, r i)
#define ARGS10(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j) \
		(t a, u b, v c, w d, x e, y f, z g, s h, r i, q j)
#endif NOT  /* ignore ARGS1 - ARGS10 */
#define ARGS11(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k) \
		(t a, u b, v c, w d, x e, y f, z g, s h, r i, q j, p k)
#define ARGS12(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k,n,l) \
		(t a, u b, v c, w d, x e, y f, z g, s h, r i, q j, p k, n l)
#define ARGS13(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k,n,l,m2,m) \
	  (t a, u b, v c, w d, x e, y f, z g, s h, r i, q j, p k, n l, m2 m)

#else  /* not ANSI */

#define CONST
#define NOPARAMS ()
#define PARAMS(parameter_list) ()
#define NOARGS ()

#ifdef NOT  /* ignore ARGS1 - ARGS10 */
#define ARGS1(t,a) (a) \
		t a;
#define ARGS2(t,a,u,b) (a,b) \
		t a; u b;
#define ARGS3(t,a,u,b,v,c) (a,b,c) \
		t a; u b; v c;
#define ARGS4(t,a,u,b,v,c,w,d) (a,b,c,d) \
		t a; u b; v c; w d;
#define ARGS5(t,a,u,b,v,c,w,d,x,e) (a,b,c,d,e) \
		t a; u b; v c; w d; x e;
#define ARGS6(t,a,u,b,v,c,w,d,x,e,y,f) (a,b,c,d,e,f) \
		t a; u b; v c; w d; x e; y f;
#define ARGS7(t,a,u,b,v,c,w,d,x,e,y,f,z,g) (a,b,c,d,e,f,g) \
		t a; u b; v c; w d; x e; y f; z g;
#define ARGS8(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h) (a,b,c,d,e,f,g,h) \
		t a; u b; v c; w d; x e; y f; z g; s h;
#define ARGS9(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i) (a,b,c,d,e,f,g,h,i) \
		t a; u b; v c; w d; x e; y f; z g; s h; r i;
#define ARGS10(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j) (a,b,c,d,e,f,g,h,i,j) \
		t a; u b; v c; w d; x e; y f; z g; s h; r i; q j;
#endif NOT  /* ignore ARGS1 - ARGS10 */
#define ARGS11(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k) (a,b,c,d,e,f,g,h,i,j,k)\
		t a; u b; v c; w d; x e; y f; z g; s h; r i; q j; p k;
#define ARGS12(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k,n,l) (a,b,c,d,e,f,g,h,i,j,k,l)\
		t a; u b; v c; w d; x e; y f; z g; s h; r i; q j; p k; n l;
#define ARGS13(t,a,u,b,v,c,w,d,x,e,y,f,z,g,s,h,r,i,q,j,p,k,n,l,m2,m) (a,b,c,d,e,f,g,h,i,j,k,l,m)\
		t a; u b; v c; w d; x e; y f; z g; s h; r i; q j; p k; n l; m2 m;
		
	
#endif /* __STDC__ (ANSI) */

#ifndef NULL
#define NULL ((void *)0)
#endif

#endif HEADERS_H
lynx2-1/src/LYSearch.c000644 000036 000040 00000003752 05502177145 016313 0ustar00montulliusersrv000000 000000 #include "HTUtils.h"
#include "LYUtils.h"
#include "LYStrings.h"
#include "LYSearch.h"
#include "LYGlobalDefs.h"

/*
 * search for the target string inside of the links
 * that are currently displayed on the screen beginning
 * with the one after the currently selected one!
 * if found set cur to the new value and return true
 * in not found do not reset cur and return false.
 */

PUBLIC int check_for_target_in_links ARGS2(int *,cur, char *,new_target)
{
    int i = *cur+1;

    if(nlinks==0)
	return(FALSE);

    for(; i < nlinks; i++)
        if(case_sensitive) {
	    if(strstr(links[i].hightext,new_target) != NULL)
		break;
        } else {
	    if(LYstrstr(links[i].hightext,new_target) != NULL)
		break;
	}

    if (i == nlinks)
	return(FALSE);
 
    /* else */
        *cur = i;
        return(TRUE);
}

/*
 *  Textsearch checks the prev_target variable to see if it is empty.
 *  If it is then it requests a new search string.  It then searches 
 *  the current file for the next instance of the search string and
 *  finds the line number that the string is on
 * 
 *  This is the primary USER search engine and is case sensitive
 *  or case insensitive depending on the 'case_sensitive' global
 *  variable
 *
 */
		
PUBLIC void textsearch ARGS2(document *,cur_doc, char *,prev_target)
{
	int linec;
	int offset;
	char *ptr;
	char temp[30];
	BOOLEAN found=FALSE;
	char buffer[LINESIZE];	
        int oldcur = cur_doc->link;

	if(strlen(prev_target) == 0 ) {
	  statusline("Enter a search string: ");
	  LYgetstr(prev_target, VISIBLE);
	}

	if(strlen(prev_target) == 0) { /* return if empty string */
	  return;
	}

	if(check_for_target_in_links(&cur_doc->link, prev_target)) {
	   /* found in link, changed cur */
           highlight(OFF, oldcur);
	   return; 
	}
	
	/* start from the link you are on or the next page */
	if(nlinks == 0)
	    offset = display_lines+1;
	else
	    offset = links[cur_doc->link].ly;

	/* sets www_search_result if found */
	www_user_search(cur_doc->line+offset, prev_target);
}
lynx2-1/src/LYOptions.c000644 000036 000040 00000015615 05501447242 016537 0ustar00montulliusersrv000000 000000 #include "LYCurses.h"
#include "HTUtils.h"
#include "LYUtils.h"
#include "LYStrings.h"
#include "LYGlobalDefs.h"
#include "LYOptions.h"

#define ACCEPT_DATA "Hit return to accept entered data"

PUBLIC void options ()
{
    int response=0;
    int itmp;
    /* if the user changes the display I need memory to put it in */
    char display_option[128]; 
    static char putenv_command[138];

    clear(); 
    move(0,5);  addstr("                     Options Menu");

    move(L_EDITOR,5);  
    printw("E)ditor                    : %s",(*editor=='\0'?"NONE":editor));
    move(L_DISPLAY,5);  
#ifndef VMS
    printw("D)ISPLAY variable          : %s",(display==NULL? "NONE":display));
#else
    printw("D)ISPLAY variable          : Not available on VMS");
#endif VMS

    move(L_MAIL_ADDRESS,5);  
    printw("P)ersonal mail address     : %s",
		(*personal_mail_address=='\0'?"NONE": personal_mail_address));
    
    move(L_HOME,5);  
    printw("B)ookmark file             : %s",(*bookmark_page=='\0'?"NONE": 
							      bookmark_page));
    move(L_SSEARCH,5); 
    printw("S)earching type            : %s",(case_sensitive ?
				        "CASE SENSITIVE" : "CASE INSENSITIVE"));
    move(L_EXEC,5); 
    printw("L)ocal execution links     : %s",
		    (local_exec ? "ALWAYS ON" : 
		    (local_exec_on_local_files ? "FOR LOCAL FILES ONLY" :
				    "ALWAYS OFF")));
    
    move(L_VIKEYS,5); 
    printw("V)I keys                   : %s", (vi_keys ? "ON" : "OFF"));
    
    move(L_EMACSKEYS,5); 
    printw("e(M)acs keys               : %s", (emacs_keys ? "ON" : "OFF"));
    
    move(L_KEYPAD,5); 
    addstr("K)eypad as arrows\n");
    addstr("     "); /* five spaces */
    printw("     or Numbered links     : %s", 
			   		(keypad_mode == NUMBERS_AS_ARROWS ? 
					"Numbers act as arrows" : 
				        "Links are numbered"));
    move(L_USER_MODE,5);
    printw("U)ser mode                 : %s",
			(user_mode == NOVICE_MODE ? "Novice" : 
			(user_mode == INTERMEDIATE_MODE ? "Intermediate" :
							     "Advanced")));
        
    move(20,2); addstr("Select first letter of option line, '>' to save, or 'r' to return to Lynx.");


    while(toupper(response) != 'R' && response != LTARROW && response != '>') {

           move(21,1); addstr("Command: ");

	   refresh();
           response = LYgetch();
	   switch(response) {
	 	case 'e':  /* change the editor */
		case 'E':
			if(*editor=='\0') {  /* clear the NONE */
			   move(L_EDITOR,34);
			   addstr("    ");
			}
			statusline(ACCEPT_DATA);
			move(L_EDITOR,34);  
			standout();
			LYgetstr(editor, VISIBLE);
			standend();
			move(L_EDITOR,34);
			addstr(editor);
			break;
#ifndef VMS
		case 'd':  /* change the display */
		case 'D':
			if(display == NULL) {  /* clear the NONE */
			   move(L_DISPLAY,34);
			   addstr("    ");
			} else
			    strcpy(display_option,display);
			statusline(ACCEPT_DATA);
			move(L_DISPLAY,34);
			standout();
			LYgetstr(display_option, VISIBLE);
			standend();
			move(L_DISPLAY,34);
			addstr(display_option);

#ifdef UNIX
			sprintf(putenv_command,"DISPLAY=%s",display_option);
			putenv(putenv_command);
		        display = getenv("DISPLAY");
#endif UNIX
			break;
#endif VMS
		case 'b':  /* change the bookmark page location */
		case 'B':
			/* anonymous users should not be allowed to
			 * change the bookmark page
			 */
			if(!anonymous) {
			    if(*editor=='\0') {  /* clear the NONE */
			       move(L_HOME,34);
			       addstr("    ");
			    }
			    statusline(ACCEPT_DATA);
			    move(L_HOME,34); 
			    standout();
			    LYgetstr(bookmark_page, VISIBLE);
			    standend();
			    move(L_HOME,34);
			    addstr(bookmark_page);
			} else { /* anonymous */
			   statusline("anonymous users cannot change the bookmark file!");
			}
			    break;
    
		case 'p':  /* change the bookmark page location */
		case 'P':
		 	if(*personal_mail_address=='\0') {/* clear the NONE */
			   move(L_MAIL_ADDRESS,34);
			   addstr("    ");
			}
			statusline(ACCEPT_DATA);
			move(L_MAIL_ADDRESS,34);
			standout();
			LYgetstr(personal_mail_address, VISIBLE);
			standend();
			move(L_MAIL_ADDRESS,34);
			addstr(personal_mail_address);
			break;

		case 's':
		case 'S':
			 case_sensitive = boolean_choice(case_sensitive,
			     L_SSEARCH,"CASE INSENSITIVE","CASE SENSITIVE  ","");
			break;
		case 'l':  /* local exec */
		case 'L':
			 if(local_exec) {
				itmp=2;
			 } else {
			  	if(local_exec_on_local_files)
				    	itmp=1;
				else
					itmp=0;
			 }
			 itmp = boolean_choice(itmp, L_EXEC,
        "ALWAYS OFF          ", "FOR LOCAL FILES ONLY","ALWAYS ON           ");

			 switch(itmp) {
			    case 0:
				local_exec=FALSE;
				local_exec_on_local_files=FALSE;
				break;
			    case 1:
				local_exec=FALSE;
				local_exec_on_local_files=TRUE;
				break;
			    case 2:
				local_exec=TRUE;
				local_exec_on_local_files=FALSE;
				break;
			} /* end switch */
			break;
		case 'v':
		case 'V':
			vi_keys = boolean_choice(vi_keys,
			       L_VIKEYS,"OFF","ON ","");
			break;
		case 'M':
		case 'm':
			emacs_keys = boolean_choice(emacs_keys,
			       L_EMACSKEYS,"OFF","ON ","");
			break;
		case 'k':
		case 'K':
			keypad_mode = boolean_choice(keypad_mode,
			       L_KEYPAD+1,"Numbers act as arrows",
					"Links are numbered   ","");
			break;
		case 'u':
		case 'U':
			user_mode = boolean_choice(user_mode,
				L_USER_MODE, "Novice      ","Intermediate",
							    "Advanced    ");
			if(user_mode == NOVICE_MODE)
			   display_lines = LINES-4;
			else
			   display_lines = LINES-2;
			break;
		case '>':
			statusline("Saving...");
			save_rc();
			statusline("Saved!");
			sleep(1);
			break;
		case 'r':
		case 'R':
			break;
		default:
			statusline("'R' to return to lynx");
	    }  /* end switch */
     }  /* end while */
}


/* take a boolean status and prompt the user for a new status
 * and return it
 */
PUBLIC int boolean_choice ARGS5(int,status, int,line, char *,string0, 
				char *,string1, char *,string2)
{
	int response=0;
	BOOLEAN only_two=FALSE;

	if(*string2 == '\0')
	    only_two=TRUE;

	statusline(ACCEPT_DATA);
	/* highlight the current selection */
	move(line,34);
	standout();
	if(status == 0)
	    addstr(string0);
	else if(status == 1)
	    addstr(string1);
	else 
	    addstr(string2);

	statusline("Hit any key to change value; RETURN to accept");

	standout();  /* statusline might turn it off */

	while(1) {
	   move(line,34);
	   response = LYgetch();
	   if(response != '\n' && response != '\r') {
		if(status) {
		    if(only_two || status == 2) {
		        status = 0;
		        addstr(string0);
		    } else {
			status = 2;
		        addstr(string2);
		    }
		} else {
		    status = 1;
		    addstr(string1);
		}
	        refresh();
	    } else {
		statusline("Value accepted");

		/* unhighlight selection */
	        move(line,34);
	        standend();
	        if(status == 0)
	            addstr(string0);
	        else if(status == 1)
	            addstr(string1);
	        else 
	            addstr(string2);

	 	return(status);
	    }
	}
}





MP",
	HT_FONT, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	tabs_8,
	NO, NO, 1, 1,			0
};	

PRIVATE HTStyle HTStlynx2-1/src/HTML.c000644 000036 000040 00000103365 05506401557 015407 0ustar00montulliusersrv000000 000000 /*		Structured stream to Rich hypertext converter
**		============================================
**
**	This generates of a hypertext object.  It converts from the
**	structured stream interface fro HTMl events into the style-
**	oriented iunterface of the HText.h interface.  This module is
**	only used in clients and shouldnot be linked into servers.
**
**	Override this module if making a new GUI browser.
**
**   Being Overidden
**
*/
#include "HTML.h"

/* #define CAREFUL		 Check nesting here notreally necessary */

#include 
#include 

#include "HTAtom.h"
#include "HTChunk.h"
#include "HText.h"
#include "HTStyle.h"

#include "HTAlert.h"
#include "HTMLGen.h"
#include "HTParse.h"

#include "HTNestedLists.h"
#include "HTForms.h"

#ifdef VMS
#include 
#else
/* from Curses.h */
extern int COLS;
#endif

extern HTStyleSheet * styleSheet;	/* Application-wide */

/*	Module-wide style cache
*/
PRIVATE int 		got_styles = 0;
PRIVATE HTStyle *styles[HTML_ELEMENTS+25];  /* adding 24 nested list styles */
PRIVATE HTStyle *default_style;
PRIVATE char HTML_Last_Char='\0'; /* the last character put on the screen */
PRIVATE char *textarea_name=0;

/* used for nested lists */
PRIVATE int List_Nesting_Level= -1;  /* counter for list nesting level */

/*		HTML Object
**		-----------
*/
#define MAX_NESTING 30		/* Should be checked by parser */

typedef struct _stack_element {
        HTStyle *	style;
	int		tag_number;
} stack_element;

struct _HTStructured {
    CONST HTStructuredClass * 	isa;
    HTParentAnchor * 		node_anchor;
    HText * 			text;

    HTStream*			target;			/* Output stream */
    HTStreamClass		targetClass;		/* Output routines */

    HTChunk 			title;		/* Grow by 128 */
    HTChunk			option;		/* Grow by 128 */
    HTChunk			textarea;	/* Grow by 128 */
    
    char *			comment_start;	/* for literate programming */
    char *			comment_end;

    HTTag *			current_tag;
    BOOL			style_change;
    HTStyle *			new_style;
    HTStyle *			old_style;
    BOOL			in_word;  /* Have just had a non-white char */
    stack_element 	stack[MAX_NESTING];
    stack_element 	*sp;		/* Style stack pointer */
};

struct _HTStream {
    CONST HTStreamClass *	isa;
    /* .... */
};

/*		Forward declarations of routines
*/
PRIVATE void get_styles NOPARAMS;


PRIVATE void actually_set_style PARAMS((HTStructured * me));
PRIVATE void change_paragraph_style PARAMS((HTStructured * me, HTStyle * style));

/*	Style buffering avoids dummy paragraph begin/ends.
*/
#define UPDATE_STYLE if (me->style_change) { actually_set_style(me); }


/* 	Entity values -- for ISO Latin 1 local representation
**
**	This MUST match exactly the table referred to in the DTD!
*/
static char * ISO_Latin1[] = {
  	"\222",	/* capital AE diphthong (ligature) */ 
  	"\265",	/* capital A, acute accent */ 
  	"\266",	/* capital A, circumflex accent */ 
  	"\267",	/* capital A, grave accent */ 
  	"\217",	/* capital A, ring */ 
  	"\307",	/* capital A, tilde */ 
  	"\216",	/* capital A, dieresis or umlaut mark */ 
  	"\200",	/* capital C, cedilla */ 
  	"\321",	/* capital Eth, Icelandic */ 
  	"\220",	/* capital E, acute accent */ 
  	"\322",	/* capital E, circumflex accent */ 
  	"\324",	/* capital E, grave accent */ 
  	"\323",	/* capital E, dieresis or umlaut mark */ 
  	"\326",	/* capital I, acute accent */ 
  	"\327",	/* capital I, circumflex accent */ 
  	"\336",	/* capital I, grave accent */ 
  	"\330",	/* capital I, dieresis or umlaut mark */ 
  	"\245",	/* capital N, tilde */ 
  	"\340",	/* capital O, acute accent */ 
  	"\342",	/* capital O, circumflex accent */ 
  	"\343",	/* capital O, grave accent */ 
  	"\235",	/* capital O, slash */ 
  	"\345",	/* capital O, tilde */ 
  	"\231",	/* capital O, dieresis or umlaut mark */ 
  	"\350",	/* capital THORN, Icelandic */ 
  	"\351",	/* capital U, acute accent */ 
  	"\352",	/* capital U, circumflex accent */ 
  	"\353",	/* capital U, grave accent */ 
  	"\232",	/* capital U, dieresis or umlaut mark */ 
  	"\355",	/* capital Y, acute accent */ 
  	"\240",	/* small a, acute accent */ 
  	"\203",	/* small a, circumflex accent */ 
  	"\221",	/* small ae diphthong (ligature) */ 
  	"\205",	/* small a, grave accent */ 
  	"\046",	/* ampersand */ 
  	"\206",	/* small a, ring */ 
  	"\306",	/* small a, tilde */ 
  	"\204",	/* small a, dieresis or umlaut mark */ 
  	"\207",	/* small c, cedilla */ 
  	"\212",	/* small e, acute accent */ 
  	"\210",	/* small e, circumflex accent */ 
  	"\212",	/* small e, grave accent */ 
	"\002", /* emsp */
	"\002", /* ensp */
  	"\320",	/* small eth, Icelandic */ 
  	"\211",	/* small e, dieresis or umlaut mark */ 
  	"\076",	/* greater than */ 
  	"\241",	/* small i, acute accent */ 
  	"\214",	/* small i, circumflex accent */ 
  	"\215",	/* small i, grave accent */ 
  	"\213",	/* small i, dieresis or umlaut mark */ 
  	"\074",	/* less than */ 
	"\001", /* nbsp non-breaking space */
  	"\244",	/* small n, tilde */ 
  	"\242",	/* small o, acute accent */ 
  	"\223",	/* small o, circumflex accent */ 
  	"\225",	/* small o, grave accent */ 
  	"\233",	/* small o, slash */ 
  	"\344",	/* small o, tilde */ 
  	"\224",	/* small o, dieresis or umlaut mark */ 
	"\042", /* quote '"' */
  	"\341",	/* small sharp s, German (sz ligature) */ 
  	"\347",	/* small thorn, Icelandic */ 
  	"\243",	/* small u, acute accent */ 
  	"\226",	/* small u, circumflex accent */ 
  	"\227",	/* small u, grave accent */ 
  	"\201",	/* small u, dieresis or umlaut mark */ 
  	"\354",	/* small y, acute accent */ 
  	"\230",	/* small y, dieresis or umlaut mark */ 
};


/* 	Entity values -- for IBM/PC Code Page 850 (International)
**
**	This MUST match exactly the table referred to in the DTD!
**
*/
/* @@@@@@@@@@@@@@@@@ TBD */



/*		Set character set
**		----------------
*/

PRIVATE char** p_entity_values = ISO_Latin1;	/* Pointer to translation */

PUBLIC void HTMLUseCharacterSet ARGS1(HTMLCharacterSet, i)
{
    p_entity_values = ISO_Latin1;
}


/*		Flattening the style structure
**		------------------------------
**
On the NeXT, and on any read-only browser, it is simpler for the text to have
a sequence of styles, rather than a nested tree of styles. In this
case we have to flatten the structure as it arrives from SGML tags into
a sequence of styles.
*/

/*		If style really needs to be set, call this
*/
PRIVATE void actually_set_style ARGS1(HTStructured *, me)
{
    if (!me->text) {			/* First time through */
	    me->text = HText_new2(me->node_anchor, me->target);
	    HText_beginAppend(me->text);
	    HText_setStyle(me->text, me->new_style);
	    me->in_word = NO;
    } else {
	    HText_setStyle(me->text, me->new_style);
    }

    me->old_style = me->new_style;
    me->style_change = NO;

}

/*      If you THINK you need to change style, call this
*/

PRIVATE void change_paragraph_style ARGS2(HTStructured *, me, HTStyle *,style)
{
    if (me->new_style!=style) {
    	me->style_change = YES;
	me->new_style = style;
    }
    me->in_word = NO;
}

/*_________________________________________________________________________
**
**			A C T I O N 	R O U T I N E S
*/

/*	Character handling
**	------------------
*/
PRIVATE void HTML_put_character ARGS2(HTStructured *, me, char, c)
{

    switch (me->sp[0].tag_number) {
    case HTML_COMMENT:
    	break;					/* Do Nothing */
	
    case HTML_TITLE:	
    	HTChunkPutc(&me->title, c);
	break;

    case HTML_SELECT:	
    	HTChunkPutc(&me->option, c);
	break;

    case HTML_TEXTAREA:	
    	HTChunkPutc(&me->textarea, c);
	break;
	
    case HTML_LISTING:				/* Litteral text */
    case HTML_XMP:
    case HTML_PLAINTEXT:
    case HTML_PRE:
/*	We guarrantee that the style is up-to-date in begin_litteral
	But we still want to strip \r's
*/
	if(c != '\r') 
	    HText_appendCharacter(me->text, c);
	break;
	
    default:					/* Free format text */
	if(!strcmp(me->sp->style->name,"Preformatted") ||
		!strcmp(me->sp->style->name,"Listing") ||
		!strcmp(me->sp->style->name,"Example")) {

	    if(c != '\r') 
	        HText_appendCharacter(me->text, c);
	
	} else {

	    if (me->style_change) {
	        if ((c=='\n') || (c==' ')) return;	/* Ignore it */
	        UPDATE_STYLE;
	    }
	    if (c=='\n') {
	        if (me->in_word) {
	            if(HTML_Last_Char != ' ')
		        HText_appendCharacter(me->text, ' ');
		    me->in_word = NO;
	        }

	    } else if (c==' ' || c=='\t') {
	        if(HTML_Last_Char != ' ') 
	            HText_appendCharacter(me->text, ' ');

	    } else if (c=='\r') {
	       /* ignore */
	    } else {
	        HText_appendCharacter(me->text, c);
	        me->in_word = YES;
	    }
	}
    } /* end switch */

    if(c=='\n' || c=='\t') {
     	HTML_Last_Char=' '; /* set it to a generic seperater */

	/* \r's are ignored.  In order to keep collapsing spaces
	 * correctly we must default back to the previous
	 * seperater if there was one
	 */
    } else if(c=='\r' && HTML_Last_Char == ' ') {
     	    HTML_Last_Char=' '; /* set it to a generic seperater */
    } else {
     	HTML_Last_Char = c;
    }
}



/*	String handling
**	---------------
**
**	This is written separately from put_character becuase the loop can
**	in some cases be promoted to a higher function call level for speed.
*/
PRIVATE void HTML_put_string ARGS2(HTStructured *, me, CONST char*, s)
{
   if(s==NULL)
      return;

    switch (me->sp[0].tag_number) {
    case HTML_COMMENT:
    	break;					/* Do Nothing */
	
    case HTML_TITLE:	
    	HTChunkPuts(&me->title, s);
	break;

    case HTML_SELECT:	
    	HTChunkPuts(&me->option, s);
	break;
	
    case HTML_LISTING:				/* Litteral text */
    case HTML_XMP:
    case HTML_PLAINTEXT:
    case HTML_PRE:

/*	We guarrantee that the style is up-to-date in begin_litteral
*/
    	HText_appendText(me->text, s);
	break;
	
    default:					/* Free format text */
        {
	    CONST char *p = s;
	    if (me->style_change) {
		/* Ignore leaders */
		for (; *p && ((*p=='\n') || (*p==' ') || (*p=='\t')); p++);  
		if (!*p) return;
		UPDATE_STYLE;
	    }
	    for(; *p; p++) {
		if (me->style_change) {
		    if ((*p=='\n') || (*p==' ') || (*p=='\t')) 
			continue;  /* Ignore it */
		    UPDATE_STYLE;
		}
		if (*p=='\n') {
		    if (me->in_word) {
		        if(HTML_Last_Char!=' ')
			    HText_appendCharacter(me->text, ' ');
			me->in_word = NO;
		    }

		} else if (*p==' ' || *p=='\t') {
		   if(HTML_Last_Char!=' ')
			HText_appendCharacter(me->text, ' ');
			
		} else if (*p=='\r') {
			/* ignore */
		} else {
		    HText_appendCharacter(me->text, *p);
		    me->in_word = YES;
		}

		/* set the Last Character */
    		if(*p=='\n' || *p=='\t') {
        	    HTML_Last_Char=' '; /* set it to a generic seperater */

        		/* \r's are ignored.  In order to keep 
			 * collapsing spaces
         		 * correctly we must default back to the previous
         		 * seperater if there was one
         		 */
    		} else if(*p=='\r' && HTML_Last_Char == ' ') {
       		    HTML_Last_Char=' '; /* set it to a generic seperater */
    		} else {
       		    HTML_Last_Char = *p;
    		}

	    } /* for */
	}
    } /* end switch */
}


/*	Buffer write
**	------------
*/
PRIVATE void HTML_write ARGS3(HTStructured *, me, CONST char*, s, int, l)
{
    CONST char* p;
    CONST char* e = s+l;
    for (p=s; snode_anchor,				/* parent */
		present[HTML_A_NAME] ? value[HTML_A_NAME] : 0,	/* Tag */
		present[HTML_A_HREF] ? href : 0,		/* Addresss */
		present[HTML_A_TYPE] && value[HTML_A_TYPE] ? 
			(HTLinkType*)HTAtom_for(value[HTML_A_TYPE])
			    			: 0);
	    
	    if (present[HTML_A_TITLE] && value[HTML_A_TITLE]) {
	        HTParentAnchor * dest = 
		    HTAnchor_parent(
			HTAnchor_followMainLink((HTAnchor*)source)
				    );
		if (!HTAnchor_title(dest))
			HTAnchor_setTitle(dest, value[HTML_A_TITLE]);
	    }
	    UPDATE_STYLE;
	    HText_beginAnchor(me->text, source);
	}
    	break;

    case HTML_FORM:
	{
	    char * action = NULL;
	    char * method = NULL;
	    HTChildAnchor * source;
	    HTAnchor *link_dest;

	    if (present[HTML_FORM_ACTION])  {
	    	StrAllocCopy(action, value[HTML_FORM_ACTION]);
		HTSimplify(action);
	        source = HTAnchor_findChildAndLink(me->node_anchor, 
								0, action, 0);
		link_dest = HTAnchor_followMainLink(source);
                if(HTAnchor_address(link_dest))
                    StrAllocCopy(action, HTAnchor_address(link_dest));
                else
                    StrAllocCopy(action, "");
	    }
	    if (present[HTML_FORM_METHOD]) 
	    	StrAllocCopy(method, value[HTML_FORM_METHOD]);
	    
	    HText_beginForm(action, method);

	    free(action);
	    free(method);
	}
	break;

    case HTML_INPUT:
	{
	    InputFieldData I;
	    int chars;

	    /* init */
	    I.name=NULL; I.type=NULL; I.value=NULL;
	    I.checked=NO; I.size=NULL; I.maxlength=NULL;

	    /* before any input field add a space if necessary */
	    UPDATE_STYLE;
	    HTML_put_character(me,' ');

	    if (present[HTML_INPUT_NAME])  
		StrAllocCopy(I.name, value[HTML_INPUT_NAME]);
	    if (present[HTML_INPUT_TYPE]) 
		StrAllocCopy(I.type, value[HTML_INPUT_TYPE]);
	    if (present[HTML_INPUT_VALUE]) 
		StrAllocCopy(I.value, value[HTML_INPUT_VALUE]);
	    if (present[HTML_INPUT_CHECKED]) 
		I.checked = YES;
	    if (present[HTML_INPUT_SIZE]) 
		StrAllocCopy(I.size, value[HTML_INPUT_SIZE]);
	    if (present[HTML_INPUT_MAXLENGTH]) 
		StrAllocCopy(I.maxlength, value[HTML_INPUT_MAXLENGTH]);

	    chars = HText_beginInput(me->text, &I);
	    for(; chars>0; chars--)
	    	HTML_put_character(me, '_');
	}
	break;
 
    case HTML_TEXTAREA:
	    /* Get ready for the value */
        HTChunkClear(&me->textarea);
	if (present[HTML_TEXTAREA_NAME])  
	    StrAllocCopy(textarea_name, value[HTML_TEXTAREA_NAME]);
	else
	    textarea_name = 0;
	break;


    case HTML_SELECT:
	{
	    char * name = NULL;
	    BOOLEAN multiple=NO;

	    if (present[HTML_SELECT_NAME])  
		StrAllocCopy(name, value[HTML_SELECT_NAME]);
	    if (present[HTML_SELECT_MULTIPLE])  
		multiple=YES;

	    HText_beginSelect(name, multiple);

	    first_option = TRUE;
	}
	break;

    case HTML_OPTION:
	{
		/* an option is a special case of an input field */
	    InputFieldData I;
	    int i;

	    if(!first_option) {
	        /* finish the data off */
       	        HTChunkTerminate(&me->option);
		/* finish the previous option @@@@@ */
	        HText_setLastOptionValue(me->text, me->option.data);
	    }

	    /* start a newline before each option */
            HText_appendCharacter(me->text,'\r');

            /* init */
            I.name=NULL; I.type=NULL; I.value=NULL;
            I.checked=NO; I.size=NULL; I.maxlength=NULL;

	    StrAllocCopy(I.type,"OPTION");

	    if(present[HTML_OPTION_SELECTED])
		I.checked=YES;

	    HText_beginInput(me->text, &I);
	    /* Get ready for the value */
            HTChunkClear(&me->option);

	    first_option = FALSE;

	    /* put 3 underscores and one space before each option */
            for(i=0; i<3; i++)
	    	HText_appendCharacter(me->text, '_');
	    HText_appendCharacter(me->text, ' ');

	}
	break;

    case HTML_LINK:
	if (present[HTML_LINK_HREF]) {
	    char * href = NULL;

	    if(TRACE)
		fprintf(stderr,"HTML.c: HTML_LINK_HREF found\n");

	    StrAllocCopy(href, value[HTML_A_HREF]);
	    HTSimplify(href);

	    if(present[HTML_LINK_REV]) {
	        if(!strcasecomp("made", value[HTML_LINK_REV]) ||
	           !strcasecomp("owner", value[HTML_LINK_REV]))
    	            HTAnchor_setOwner(me->node_anchor, href);
	    }
	    free(href);
	}
	break;
	
    case HTML_TITLE:
        HTChunkClear(&me->title);
	List_Nesting_Level = -1;
	break;
	
    case HTML_NEXTID:
    	/* if (present[NEXTID_N] && value[NEXTID_N])
		HText_setNextId(me->text, atoi(value[NEXTID_N])); */
    	break;
	
    case HTML_ISINDEX:
   	HTAnchor_setIndex(me->node_anchor);
	break;
	
    case HTML_P:
	UPDATE_STYLE;
	/* HText_appendParagraph(me->text); */
	/* since everyone seems to use the paragraph tag to mean
	 * insert two linebreaks, I am changing its meaning now
	 * to mean two line breaks :(  It's so sad....
	 */
	HText_appendCharacter(me->text, '\r');
	HText_appendCharacter(me->text, '\r');
	me->in_word = NO;
	break;

    case HTML_DL:
	List_Nesting_Level++;  /* increment the List nesting level */
	if(List_Nesting_Level <= 0) {
            change_paragraph_style(me, present && present[DL_COMPACT]
    			              ? styles[HTML_DLC] : styles[HTML_DL]);

	} else if(List_Nesting_Level >= 6) {
            change_paragraph_style(me, present && present[DL_COMPACT]
    			              ? styles[HTML_DLC6] : styles[HTML_DL6]);

	} else {
            change_paragraph_style(me, present && present[DL_COMPACT]
    		 ? styles[(HTML_DLC1 - 1) + List_Nesting_Level] 
		 : styles[(HTML_DL1 - 1) + List_Nesting_Level]);
	}
	break;
	
    case HTML_DT:
        if (!me->style_change) {
	    HText_appendParagraph(me->text);
	    me->in_word = NO;
	}
	break;
	
    case HTML_DD:
        UPDATE_STYLE;
	HText_appendCharacter(me->text, '\t');	/* Just tab out one stop */
	me->in_word = NO;
	break;

    case HTML_BR:
	/* put in a dummy ' ' character so that any separaters after
	 * the '/n' will be absorbed inside HTML_put_character
	 */
        UPDATE_STYLE;
	HTML_put_character(me, ' ');
	HText_appendCharacter(me->text, '\r');
	break;

    case HTML_HR:
        UPDATE_STYLE;
	{
	    register int i;
	    HTML_put_character(me, ' '); /* dummy white space */
	    HText_appendCharacter(me->text, '\r');
	    HText_appendCharacter(me->text, ' ');
	    HText_appendCharacter(me->text, ' ');

	    for(i=me->new_style->leftIndent+2; 
			i < COLS-(me->new_style->rightIndent+4);  i++)
	        HTML_put_character(me, '_');

	    HTML_put_character(me, ' '); /* dummy white space */

	    HText_appendCharacter(me->text, '\r');
	    HText_appendCharacter(me->text, '\r');
	}
	break;
	 

    case HTML_OL:
	OL_Counter[(List_Nesting_Level < 5 ? List_Nesting_Level+1 : 6)] = 1; 
    case HTML_UL:
    case HTML_MENU:
    case HTML_DIR:
	List_Nesting_Level++;

	if(List_Nesting_Level <= 0) {
       	    change_paragraph_style(me, styles[element_number]);

	} else if(List_Nesting_Level >= 6) {
	    if(element_number==HTML_UL || element_number==HTML_OL) 
       	        change_paragraph_style(me, styles[HTML_OL6]);
	    else
       	        change_paragraph_style(me, styles[HTML_MENU6]);

	} else {
	    if(element_number==HTML_UL || element_number==HTML_OL) 
                change_paragraph_style(me, 
		          styles[HTML_OL1 + List_Nesting_Level - 1]);
	    else 
                change_paragraph_style(me, 
		          styles[HTML_MENU1 + List_Nesting_Level - 1]);
	}
	break;
	
    case HTML_LI:
        UPDATE_STYLE;  /* update to the new style */
	HText_appendParagraph(me->text);
	if (me->sp[0].tag_number == HTML_OL) {
	    char number_string[20];
	    register int count=0;
	    sprintf(number_string, "%2d.",
		OL_Counter[(List_Nesting_Level<6 ? List_Nesting_Level : 6)]++);
	    /* hack, because there is no append string! */
	    for(;number_string[count]!='\0';count++)
		if(number_string[count] == ' ')
	            HText_appendCharacter(me->text, number_string[count]);
		else
	    	    HTML_put_character(me, number_string[count]);

	    /* use HTML_put_character so that any other spaces
	     * comming through will be collapsed
	     */
	    HTML_put_character(me, ' ');  /* the spacing charactor */	

	} else if(me->sp[0].tag_number == HTML_UL ||
			   me->sp[0].tag_number == HTML_MENU ) {
	    /* hack, because there is no append string! */
	    HText_appendCharacter(me->text, ' ');
	    HText_appendCharacter(me->text, ' ');
	    /* use HTML_put_character so that any other spaces
	     * comeing through will be collapsed
	     */
	    switch(List_Nesting_Level % 7) {
		case 0:
	    	    HTML_put_character(me, '*');
		    break;
		case 1:
	    	    HTML_put_character(me, '+');
		    break;
		case 2:
	    	    HTML_put_character(me, 'o');
		    break;
		case 3:
	    	    HTML_put_character(me, '#');
		    break;
		case 4:
	    	    HTML_put_character(me, '@');
		    break;
		case 5:
	    	    HTML_put_character(me, '-');
		    break;
		case 6:
	    	    HTML_put_character(me, '=');
		    break;
		    
	    }
	    HTML_put_character(me, ' ');	
	}
	me->in_word = NO;
	break;
	
    case HTML_LISTING:				/* Litteral text */
    case HTML_XMP:
    case HTML_PLAINTEXT:
    case HTML_PRE:
	change_paragraph_style(me, styles[element_number]);
	UPDATE_STYLE;
    	if (me->comment_end)
    	    HText_appendText(me->text, me->comment_end);
	break;

    case HTML_IMG:			/* Images -- put ALT text */
	if (present[HTML_IMG_ALT]) {
	    char *alt_string=NULL;

	    HTML_put_character(me, ' ');  /* space char may be ignored */
	    StrAllocCopy(alt_string, value[HTML_IMG_ALT]);
	    HTML_put_string(me, alt_string);
	    HTML_put_character(me, ' ');  /* space char may be ignored */

	    free(alt_string);

	} else {   /* put [IMAGE] string */
	    HTML_put_string(me," [IMAGE] ");
	}
	break;
    
#ifdef BUGS_IN
    case HTML_HTML:			/* Ignore these altogether */
    case HTML_HEAD:
    case HTML_BODY:
	List_Nesting_Level = -1;
	break;
#endif /* BUGS_IN */
    
    case HTML_B:
    case HTML_I:
    case HTML_U:
    
    case HTML_EM:			/* Logical character highlighting */
    case HTML_STRONG:
	/* start_underline();  /* LJM */
	HTML_put_character(me, '_');	
    	break;
	
    case HTML_TT:			/* Physical character highlighting */
    case HTML_CODE:
    case HTML_SAMP:
    case HTML_KBD:
    case HTML_VAR:
    case HTML_DFN:
    case HTML_CITE:
	break; /* ignore */

    case HTML_H1:			/* paragraph styles */
    case HTML_H2:
    case HTML_H3:
    case HTML_H4:
    case HTML_H5:
    case HTML_H6:
    case HTML_H7:
    case HTML_ADDRESS:
    case HTML_BLOCKQUOTE:
    	change_paragraph_style(me, styles[element_number]);	/* May be postponed */
	List_Nesting_Level = -1;
	break;

    } /* end switch */

    if (HTML_dtd.tags[element_number].contents!= SGML_EMPTY) {
    	--(me->sp);
	me->sp[0].style = me->new_style;	/* Stack new style */
	me->sp[0].tag_number = element_number;

	if(TRACE)
	    fprintf(stderr,"HTML:begin_element: adding style to stack - %s\n",
							me->new_style->name);
    }	
}


/*		End Element
**		-----------
**
*/
/*	When we end an element, the style must be returned to that
**	in effect before that element.  Note that anchors (etc?)
**	don't have an associated style, so that we must scan down the
**	stack for an element with a defined style. (In fact, the styles
**	should be linked to the whole stack not just the top one.)
**	TBL 921119
**
**	We don't turn on "CAREFUL" check because the parser produces
**	(internal code errors apart) good nesting. The parser checks
**	incoming code errors, not this module.
*/
PRIVATE void HTML_end_element ARGS2(HTStructured *, me, int , element_number)
{
#ifdef CAREFUL			/* parser assumed to produce good nesting */
    if (element_number != me->sp[0].tag_number) {
        fprintf(stderr, "HTMLText: end of element %s when expecting end of %s\n",
		HTML_dtd.tags[element_number].name,
		HTML_dtd.tags[me->sp->tag_number].name);
		/* panic */
    }
#endif
    
    me->sp++;				/* Pop state off stack */

    if(TRACE)
	fprintf(stderr,"HTML:end_element: Popped style off stack - %s\n",me->sp->style->name);
    
    switch(element_number) {

    case HTML_A:
	UPDATE_STYLE;
	HText_endAnchor(me->text);
	break;

    case HTML_FORM:
	UPDATE_STYLE;
	HText_endForm();
	HText_appendCharacter(me->text,'\r'); 
	break;

    case HTML_SELECT:
	/* finish the data off */
       	HTChunkTerminate(&me->option);
	/* finish the previous option @@@@@ */
	HText_setLastOptionValue(me->text, me->option.data);
	break;

    case HTML_TEXTAREA:
        {
            InputFieldData I;
            int chars;

            /* init */
            I.name=NULL; I.type=NULL; I.value=NULL;
            I.checked=NO; I.size=NULL; I.maxlength=NULL;

            /* before any input field add a space if necessary */
            UPDATE_STYLE;
            HTML_put_character(me,' ');
	    HText_appendCharacter(me->text,'\r');

	    /* finish the data off */
            HTChunkTerminate(&me->textarea);

	    /* type defaults to text */
	    I.name= textarea_name;
	    StrAllocCopy(I.value, me->textarea.data);
	    StrAllocCopy(I.size,"60");

            chars = HText_beginInput(me->text, &I);
	    for(; chars>0; chars--)
	    	HTML_put_character(me, '_');
	    HText_appendCharacter(me->text,'\r');

	    break;
	}

    case HTML_TITLE:
        HTChunkTerminate(&me->title);
    	HTAnchor_setTitle(me->node_anchor, me->title.data);
	break;
	
    case HTML_LISTING:				/* Litteral text */
    case HTML_XMP:
    case HTML_PLAINTEXT:
    case HTML_PRE:
    	if (me->comment_start)
    	    HText_appendText(me->text, me->comment_start);
	change_paragraph_style(me, me->sp->style);  /* Often won't really change */
	break;

    case HTML_OL:
    case HTML_DL:
    case HTML_UL:
    case HTML_MENU:
    case HTML_DIR:
	List_Nesting_Level--;
	if(TRACE)
	    fprintf(stderr,"Reducing List Nesting Level to %d\n",
						    List_Nesting_Level);
	change_paragraph_style(me, me->sp->style);  

        break;

#ifdef BUGS_IN
    case HTML_HTML:			/* Ignore these altogether */
    case HTML_HEAD:
    case HTML_BODY:
	break;
#endif /* BUGS_IN */

    case HTML_B:
    case HTML_I:
    case HTML_U:
    
    case HTML_EM:			/* Logical character highlighting */
    case HTML_STRONG:
	/* stop_underline();  /* LJM */
	HTML_put_character(me, '_');	
    	break;
	
    case HTML_TT:			/* Physical character highlighting */
    case HTML_CODE:
    case HTML_SAMP:
    case HTML_KBD:
    case HTML_VAR:
    case HTML_DFN:
    case HTML_CITE:
	break;

    default:
	change_paragraph_style(me, me->sp->style);  /* Often won't really change */
	break;
	
    } /* switch */
}


/*		Expanding entities
**		------------------
*/
/*	(In fact, they all shrink!)
*/

PRIVATE void HTML_put_entity ARGS2(HTStructured *, me, int, entity_number)
{
    HTML_put_string(me, ISO_Latin1[entity_number]);	/* @@ Other representations */
}



/*	Free an HTML object
**	-------------------
**
** If the document is empty, the text object will not yet exist.
   So we could in fact abandon creating the document and return
   an error code.  In fact an empty document is an important type
   of document, so we don't.
**
**	If non-interactive, everything is freed off.   No: crashes -listrefs
**	Otherwise, the interactive object is left.	
*/
PUBLIC void HTML_free ARGS1(HTStructured *, me)
{
    UPDATE_STYLE;		/* Creates empty document here! */
    if (me->comment_end)
		HTML_put_string(me,me->comment_end);
    HText_endAppend(me->text);

    if (me->target) {
        (*me->targetClass.free)(me->target);
    }
    free(me);
}


PRIVATE void HTML_abort ARGS2(HTStructured *, me, HTError, e)

{			
    List_Nesting_Level = -1;

    if (me->target) {
        (*me->targetClass.abort)(me->target, e);
    }
    free(me);
}


/*	Get Styles from style sheet
**	---------------------------
*/
PRIVATE void get_styles NOARGS
{
    got_styles = YES;

    default_style =		HTStyleNamed(styleSheet, "Normal");

    styles[HTML_H1] =		HTStyleNamed(styleSheet, "Heading1");
    styles[HTML_H2] =		HTStyleNamed(styleSheet, "Heading2");
    styles[HTML_H3] =		HTStyleNamed(styleSheet, "Heading3");
    styles[HTML_H4] =		HTStyleNamed(styleSheet, "Heading4");
    styles[HTML_H5] =		HTStyleNamed(styleSheet, "Heading5");
    styles[HTML_H6] =		HTStyleNamed(styleSheet, "Heading6");
    styles[HTML_H7] =		HTStyleNamed(styleSheet, "Heading7");

    styles[HTML_DL] =		HTStyleNamed(styleSheet, "Glossary");
	/* nested list styles */
    styles[HTML_DL1] =		HTStyleNamed(styleSheet, "Glossary1");
    styles[HTML_DL2] =		HTStyleNamed(styleSheet, "Glossary2");
    styles[HTML_DL3] =		HTStyleNamed(styleSheet, "Glossary3");
    styles[HTML_DL4] =		HTStyleNamed(styleSheet, "Glossary4");
    styles[HTML_DL5] =		HTStyleNamed(styleSheet, "Glossary5");
    styles[HTML_DL6] =		HTStyleNamed(styleSheet, "Glossary6");

    styles[HTML_UL] =
    styles[HTML_OL] =		HTStyleNamed(styleSheet, "List");
	/* nested list styles */
    styles[HTML_OL1] =		HTStyleNamed(styleSheet, "List1");
    styles[HTML_OL2] =		HTStyleNamed(styleSheet, "List2");
    styles[HTML_OL3] =		HTStyleNamed(styleSheet, "List3");
    styles[HTML_OL4] =		HTStyleNamed(styleSheet, "List4");
    styles[HTML_OL5] =		HTStyleNamed(styleSheet, "List5");
    styles[HTML_OL6] =		HTStyleNamed(styleSheet, "List6");

    styles[HTML_MENU] =
    styles[HTML_DIR] =		HTStyleNamed(styleSheet, "Menu");    
	/* nested list styles */
    styles[HTML_MENU1] =	HTStyleNamed(styleSheet, "Menu1");    
    styles[HTML_MENU2] =	HTStyleNamed(styleSheet, "Menu2");    
    styles[HTML_MENU3] =	HTStyleNamed(styleSheet, "Menu3");    
    styles[HTML_MENU4] =	HTStyleNamed(styleSheet, "Menu4");    
    styles[HTML_MENU5] =	HTStyleNamed(styleSheet, "Menu5");    
    styles[HTML_MENU6] =	HTStyleNamed(styleSheet, "Menu6");    

    styles[HTML_DLC] =		HTStyleNamed(styleSheet, "GlossaryCompact");
	/* nested list styles */
    styles[HTML_DLC1] =		HTStyleNamed(styleSheet, "GlossaryCompact1");
    styles[HTML_DLC2] =		HTStyleNamed(styleSheet, "GlossaryCompact2");
    styles[HTML_DLC3] =		HTStyleNamed(styleSheet, "GlossaryCompact3");
    styles[HTML_DLC4] =		HTStyleNamed(styleSheet, "GlossaryCompact4");
    styles[HTML_DLC5] =		HTStyleNamed(styleSheet, "GlossaryCompact5");
    styles[HTML_DLC6] =		HTStyleNamed(styleSheet, "GlossaryCompact6");

    styles[HTML_ADDRESS] =	HTStyleNamed(styleSheet, "Address");
    styles[HTML_BLOCKQUOTE] =	HTStyleNamed(styleSheet, "Blockquote");
    styles[HTML_PLAINTEXT] =
    styles[HTML_XMP] =		HTStyleNamed(styleSheet, "Example");
    styles[HTML_PRE] =		HTStyleNamed(styleSheet, "Preformatted");
    styles[HTML_LISTING] =	HTStyleNamed(styleSheet, "Listing");
}
/*				P U B L I C
*/

/*	Structured Object Class
**	-----------------------
*/
PUBLIC CONST HTStructuredClass HTMLPresentation = /* As opposed to print etc */
{		
	"text/html",
	HTML_free,
	HTML_abort,
	HTML_put_character, 	HTML_put_string,  HTML_write,
	HTML_start_element, 	HTML_end_element,
	HTML_put_entity
}; 


/*		New Structured Text object
**		--------------------------
**
**	The strutcured stream can generate either presentation,
**	or plain text, or HTML.
*/
PUBLIC HTStructured* HTML_new ARGS3(
	HTParentAnchor *, 	anchor,
	HTFormat,		format_out,
	HTStream*,		stream)
{

    HTStructured * me;
    
    if (format_out != WWW_PLAINTEXT && format_out != WWW_PRESENT) {
        HTStream * intermediate = HTStreamStack(WWW_HTML, format_out,
		stream, anchor);
	if (intermediate) return HTMLGenerator(intermediate);
        fprintf(stderr, "** Internal error: can't parse HTML to %s\n",
       		HTAtom_name(format_out));
	exit (-99);
    }

    me = (HTStructured*) calloc(sizeof(*me),1);
    if (me == NULL) outofmem(__FILE__, "HTML_new");

    if (!got_styles) get_styles();

    me->isa = &HTMLPresentation;
    me->node_anchor =  anchor;
    me->title.size = 0;
    me->title.growby = 128;
    me->title.allocated = 0;
    me->title.data = 0;
    me->option.size = 0;
    me->option.growby = 128;
    me->option.allocated = 0;
    me->option.data = 0;
    me->textarea.size = 0;
    me->textarea.growby = 128;
    me->textarea.allocated = 0;
    me->textarea.data = 0;
    me->text = 0;
    me->style_change = YES; /* Force check leading to text creation */
    me->new_style = default_style;
    me->old_style = 0;
    me->sp = me->stack + MAX_NESTING - 1;
    me->sp->tag_number = -1;				/* INVALID */
    me->sp->style = default_style;			/* INVALID */
    
    me->comment_start = NULL;
    me->comment_end = NULL;
    me->target = stream;
    if (stream) me->targetClass = *stream->isa;	/* Copy pointers */
    
    return (HTStructured*) me;
}


/*	HTConverter for HTML to plain text
**	----------------------------------
**
**	This will convert from HTML to presentation or plain text.
*/
PUBLIC HTStream* HTMLToPlain ARGS3(
	HTPresentation *,	pres,
	HTParentAnchor *,	anchor,	
	HTStream *,		sink)
{
    return SGML_new(&HTML_dtd, HTML_new(anchor, pres->rep_out, sink));
}


/*	HTConverter for HTML to C code
**	------------------------------
**
**	C copde is like plain text but all non-preformatted code
**	is commented out.
**	This will convert from HTML to presentation or plain text.
*/
PUBLIC HTStream* HTMLToC ARGS3(
	HTPresentation *,	pres,
	HTParentAnchor *,	anchor,	
	HTStream *,		sink)
{
    
    HTStructured * html;
    
    (*sink->isa->put_string)(sink, "/* ");	/* Before even title */
    html = HTML_new(anchor, WWW_PLAINTEXT, sink);
    html->comment_start = "/* ";
    html->comment_end = " */\n";	/* Must start in col 1 for cpp */
/*    HTML_put_string(html,html->comment_start); */
    return SGML_new(&HTML_dtd, html);
}


/*	Presenter for HTML
**	------------------
**
**	This will convert from HTML to presentation or plain text.
**
**	Override this if you have a windows version
*/
#ifndef GUI
PUBLIC HTStream* HTMLPresent ARGS3(
	HTPresentation *,	pres,
	HTParentAnchor *,	anchor,	
	HTStream *,		sink)
{
    return SGML_new(&HTML_dtd, HTML_new(anchor, WWW_PRESENT, NULL));
}
#endif


/*	Record error message as a hypertext object
**	------------------------------------------
**
**	The error message should be marked as an error so that
**	it can be reloaded later.
**	This implementation just throws up an error message
**	and leaves the document unloaded.
**	A smarter implementation would load an error document,
**	marking at such so that it is retried on reload.
**
** On entry,
**	sink 	is a stream to the output device if any
**	number	is the HTTP error number
**	message	is the human readable message.
**
** On exit,
**	returns	a negative number to indicate lack of success in the load.
*/

PUBLIC int HTLoadError ARGS3(
	HTStream *, 	sink,
	int,		number,
	CONST char *,	message)
{
    HTAlert(message);		/* @@@@@@@@@@@@@@@@@@@ */
    return -number;
} 

      InputFieldData I;
            int chars;

            /* init */
            I.name=NULL; I.type=NULL; I.value=NULL;
            I.checked=NO; I.size=NULL; I.maxlength=NULL;

            /* before any input field add a space if necessary */
            UPDATE_Slynx2-1/src/GridText.c000644 000036 000040 00000135273 05506110717 016373 0ustar00montulliusersrv000000 000000 /*		Character grid hypertext object
**		===============================
*/

#include "LYCurses.h" /* lynx defined curses */

#include 
#include 
#include "HTUtils.h"
#include "HTString.h"
#include "GridText.h"
#include "HTFont.h"
#include "HTAccess.h"
#include "tcp.h"
#include "HTParse.h"
#include "HTTP.h"

/* lynx specific defines */
#include "LYUtils.h"
#include "LYStrings.h"
#include "LYGlobalDefs.h"

struct _HTStream {                      /* only know it as object */
    CONST HTStreamClass *       isa;
    /* ... */
};

#define MAX_LINE	300	/* Hope that no widow is larger than this */

#define TITLE_LINES  1


/*	From default style sheet:
*/
extern HTStyleSheet * styleSheet;	/* Default or overridden */

extern int display_lines; /* number of lines in display */

/*	Exports
*/ 
PUBLIC HText * HTMainText = 0;		/* Equivalent of main window */
PUBLIC HTParentAnchor * HTMainAnchor = 0;	/* Anchor for HTMainText */

PUBLIC char * HTAppName = "Lynx";      /* Application name */
PUBLIC char * HTAppVersion = LYNX_VERSION;        /* Application version */
PUBLIC char * HTLocalUserName = personal_mail_address;

/* form post variables used in HTTP.c */
PUBLIC char * post_content_type=0;
PUBLIC char * form_data=0;
PUBLIC int form_submit_method=FORM_GET_METHOD;

PUBLIC int HTFormNumber = 0;
PUBLIC char * HTCurSelectGroup=NULL;  /* form select group name */
PUBLIC int HTCurSelectGroupType = F_RADIO_TYPE; /* group type */

PUBLIC char * checked_box = "(*)";
PUBLIC char * unchecked_box = "( )";

typedef struct _line {
	struct _line	*next;
	struct _line	*prev;
	short unsigned	offset;		/* Implicit initial spaces */
	short unsigned	size;		/* Number of characters */
	BOOL	split_after;		/* Can we split after? */
	BOOL	bullet;			/* Do we bullet? */
	char	data[1];		/* Space for terminator at least! */
} HTLine;

#define LINE_SIZE(l) (sizeof(HTLine)+(l))	/* allow for terminator */

typedef struct _TextAnchor {
	struct _TextAnchor *	next;
	int			number;		/* For user interface */
	int			start;		/* Characters */
        int			line_pos;       /* position in text */
	int			extent;		/* Characters */
	int			line_num;       /* place in document */
	char *		        hightext;       /* the link text */
	int			link_type;	/* normal or form ? */
	FormInfo *		input_field;	/* info for form links */
	BOOL			show_anchor;    /* show the anchor? */
	BOOL			numbered;       /* is the anchor numbered */
	HTChildAnchor *		anchor;
} TextAnchor;


/*	Notes on struct _Htext:
**	next_line is valid iff state is false.
**	top_of_screen line means the line at the top of the screen
**			or just under the title if there is one.
*/
struct _HText {
	HTParentAnchor *	node_anchor;
	HTLine * 		last_line;
	int			lines;		/* Number of them */
	int			chars;		/* Number of them */
	TextAnchor *		first_anchor;	/* Singly linked list */
	TextAnchor *		last_anchor;
	int			last_anchor_number;	/* user number */
	BOOL			source;		/* is the text source? */
/* For Internal use: */	
	HTStyle *		style;			/* Current style */
	int			display_on_the_fly;	/* Lines left */
	int			top_of_screen;		/* Line number */
	HTLine *		top_of_screen_line;	/* Top */
	HTLine *		next_line;		/* Bottom + 1 */
	int			permissible_split;	/* in last line */
	BOOL			in_line_1;		/* of paragraph */
	BOOL			stale;			/* Must refresh */

        HTStream*               target;                 /* Output stream */
        HTStreamClass           targetClass;            /* Output routines */
};

/*	Boring static variable used for moving cursor across
*/

#define SPACES(n) (&space_string[(MAX_LINE-1) - (n)])
                                   /* String containing blank spaces only */
PRIVATE char * space_string;
PUBLIC char * star_string;

PRIVATE HTStyle default_style =
	{ 0,  "(Unstyled)", "",
	(HTFont)0, 1.0, HT_BLACK,		0, 0,
	0, 0, 0, HT_LEFT,		1, 0,	0, 
	NO, NO, 0, 0,			0 };	



PRIVATE HTList * loaded_texts;	/* A list of all those in memory */

/*			Creation Method
**			---------------
*/
PUBLIC HText *	HText_new ARGS1(HTParentAnchor *,anchor)
{
    HTLine * line;
    HText * self = (HText *) calloc(sizeof(*self),1);
    if (!self) return self;
    
    if (!loaded_texts) loaded_texts = HTList_new();
    HTList_addObject(loaded_texts, self);
    if (HTList_count(loaded_texts) > HTCacheSize) {
        if (TRACE) fprintf(stderr, "GridText: Freeing off cached doc.\n"); 
        HText_free((HText *)HTList_removeFirstObject(loaded_texts));
    }
    
    line = self->last_line = (HTLine *)calloc(LINE_SIZE(MAX_LINE),1);
    if (line == NULL) outofmem(__FILE__, "HText_New");
    line->next = line->prev = line;
    line->offset = line->size = 0;
    self->lines = self->chars = 0;
    self->first_anchor = self->last_anchor = 0;
    self->style = &default_style;
    self->top_of_screen = 0;
    self->node_anchor = anchor;
    self->last_anchor_number = 0;	/* Numbering of them for references */
    self->stale = YES;

    if(HTOutputFormat == WWW_SOURCE)
        self->source = YES;
    else
        self->source = NO;
    
    HTAnchor_setDocument(anchor, (HyperDoc *)self);

    HTFormNumber = 0;  /* no forms started yet */
    HTMainText = self;
    HTMainAnchor = anchor;
    self->display_on_the_fly = 0;
    
    if (!space_string) {	/* Make a blank line */
        char *p;
	space_string = (char *)calloc(MAX_LINE+1,1);
	if (space_string == NULL) outofmem(__FILE__, "HText_New");
        for (p=space_string; ptarget = stream;
        this->targetClass = *stream->isa;       /* copy action procedures */
    }
    return this;
}

/*	Free Entire Text
**	----------------
*/
PUBLIC void 	HText_free ARGS1(HText *,self)
{
    HTAnchor_setDocument(self->node_anchor, (HyperDoc *)0);
    
    while(YES) {		/* Free off line array */
        HTLine * l = self->last_line;
	l->next->prev = l->prev;
	l->prev->next = l->next;	/* Unlink l */
	self->last_line = l->prev;
	free(l);
	if (l == self->last_line) break;	/* empty */
    };
    
    while(self->first_anchor) {		/* Free off anchor array */
        TextAnchor * l = self->first_anchor;
	self->first_anchor = l->next;
	free(l);
    }
    free(self);
}

/*		Display Methods
**		---------------
*/


/*	Output a line
**	-------------
*/
PRIVATE int display_line ARGS1(HTLine *,line)
{
      char argument[20];
      char *cp;
      /* make sure that we don't go over the COLS limit on the display! */

      /* make a printw argument of the form %s%.#s where 
       * # equals the number of cols left on the screen
       * after the offset is subtracted
       */
      sprintf(argument,"%%s%%.%ds\n",(COLS-1)-line->offset);
      printw(argument, SPACES(line->offset), line->data);

      return(0);

}

/*	Output the title line
**	---------------------
*/
PRIVATE void display_title ARGS1(HText *,text)
{
    CONST char * title = HTAnchor_title(text->node_anchor);
    char percent[20], format[20];
    char *cp;

    /* there shouldn't be any \n in the title, but if there is
     * lets kill it now!
     */
    if(title && (cp = strchr(title,'\n')) != NULL)
	*cp = '\0';

    if (text->lines > (display_lines)) {
	sprintf(percent, " (p%d of %d)",
	    (text->top_of_screen/(display_lines)) + 1,
	    (text->lines-1)/(display_lines) + 1);
    } else {
	percent[0] = 0;	/* Null string */
    }

    sprintf(format, "%%%d.%ds%%s\n",	/* Generate format string */
		    (COLS-1)-strlen(percent),
		    (COLS-1)-strlen(percent));
    if (TRACE) fprintf(stderr, "FORMAT IS `%s'\n", format);

     move(0,0);
     printw(format, title ? title : "" , percent);
}



/*	Output a page
**	-------------
*/
PRIVATE void display_page ARGS3(HText *,text, int,line_number, char *, target)
{
    HTLine * line;
    int i;
    char *cp;
    CONST char * title = HTAnchor_title(text->node_anchor);
    int last_screen = text->lines - (display_lines-2);
    TextAnchor *Anchor_ptr;
    FormInfo *FormInfo_ptr;
    BOOL display_flag=FALSE;
    HTAnchor *link_dest;

    if(TRACE) {
	fprintf(stderr,"GridText: Entering display_page\n");
    }

    lynx_mode = NORMAL_LYNX_MODE;
 
    if(text == NULL) {
	/* hack to fix reverse clear screen problem */
	addch('*');
	refresh();
	clear();
	addstr("\n\nError accessing document\nNo data available\n");
	refresh();
	nlinks = 0;  /* set number of links to 0 */
	return;
    }

    line = text->last_line->prev;

/*	Constrain the line number to be within the document
*/
    if (text->lines < (display_lines)) line_number = 0;
    else if (line_number>text->lines) line_number = last_screen;
    else if (line_number < 0) line_number = 0;
    
    for(i=0,  line = text->last_line->next;		/* Find line */
    	ilast_line);
      i++, line=line->next) /* Loop */ assert(line->next != NULL);

    /* clear the screen */
    /* hack to fix reverse clear screen problem */
    addch('*');
    refresh();
    clear();
    text->top_of_screen = line_number;
    display_title(text);
    display_flag=TRUE;
    
 /*	print it
 */
    if (line) {
      for(i=0; i < (display_lines); i++)  {

        assert(line != NULL);
        display_line(line);

        /* if the target is on this line, bold it */
        if(strlen(target) > 0 &&
		(case_sensitive ?  
		    (cp = strstr(line->data, target)) != NULL : 
		    (cp = LYstrstr(line->data, target)) != NULL) &&
                ((cp-line->data) + line->offset + strlen(target)) < COLS) {
            move(i+1, line->offset + (cp-line->data));
	    start_underline();
	    addstr(target);
	    stop_underline();
	    move(i+2, 0);
	}

	/* stop if at the last line */
	if(line == text->last_line)  break;

	display_flag=TRUE;
	line = line->next;
      }
    }

    text->next_line = line;	/* Line after screen */
    text->stale = NO;		/* Display is up-to-date */

    /* turn on bolding of links */
    start_bold();

    /* add the anchors to lynx structures */
    nlinks = 0;
    for(Anchor_ptr=text->first_anchor;  Anchor_ptr != NULL &&
		Anchor_ptr->line_num <= line_number+(display_lines);
					    Anchor_ptr = Anchor_ptr->next) {

	if(TRACE)
	    fprintf(stderr,"Anchor on line %d\n",Anchor_ptr->line_num);

	if(Anchor_ptr->line_num >= line_number &&
		Anchor_ptr->line_num < line_number+(display_lines)) {

		/* load normal hypertext anchors */
	    if(Anchor_ptr->show_anchor && Anchor_ptr->hightext && 
			strlen(Anchor_ptr->hightext)>0 && 
			Anchor_ptr->link_type == HYPERTEXT_ANCHOR) {

		 /* if the anchor is numbered, don't use the number
		  * as part of the highlighted text
		  */
		if(Anchor_ptr->numbered) {
			/* skip the number '[#]' */
		    if(Anchor_ptr->hightext) {                      
                        cp = strchr(Anchor_ptr->hightext, ']') + 1;

			/* assign hightext */
                        links[nlinks].hightext = cp;
                    } else {
                        links[nlinks].hightext = empty_string;
                    }
		} else {
			/* assign hightext */
                    links[nlinks].hightext = Anchor_ptr->hightext;
		}

		link_dest = HTAnchor_followMainLink(
					     (HTAnchor *)Anchor_ptr->anchor);
                if(HTAnchor_address(link_dest))
                    links[nlinks].lname = HTAnchor_address(link_dest);
                else                                               
                    links[nlinks].lname = empty_string;                              

      	        links[nlinks].lx= Anchor_ptr->line_pos;
		/* if anchors are numbered we must compensate for the 
		 * x displacement caused by the number.
		 * cp is a pointer to the first charactor after
		 * the number that we want to skip
		 */
		if(Anchor_ptr->numbered) 
		    links[nlinks].lx += cp - Anchor_ptr->hightext;

      	        links[nlinks].ly= (Anchor_ptr->line_num+1)-line_number;
	        links[nlinks].type = WWW_LINK_TYPE;
		links[nlinks].target = empty_string;

	        /* bold the link */
	        move(links[nlinks].ly, links[nlinks].lx);
	        addstr(links[nlinks].hightext);
   
		/* print some diagnostics */
		if(TRACE) {
	    	    fprintf(stderr,"GridText: hightext = %s\n",
						links[nlinks].hightext);
	    	    fprintf(stderr,"GridText: Anchor address = %s\n",
			     			links[nlinks].lname);
	 	}

	        nlinks++;

		display_flag = TRUE;

	    } else if(Anchor_ptr->link_type == INPUT_ANCHOR) {

		lynx_mode = FORMS_LYNX_MODE;

		FormInfo_ptr = Anchor_ptr->input_field;

	   	links[nlinks].form = FormInfo_ptr;
		links[nlinks].lx = Anchor_ptr->line_pos;
		links[nlinks].ly= (Anchor_ptr->line_num+1)-line_number;
		links[nlinks].type= WWW_FORM_LINK_TYPE;
		links[nlinks].target= empty_string;
		links[nlinks].lname= empty_string;

		if(FormInfo_ptr->type==F_RADIO_TYPE ||
			FormInfo_ptr->type==F_CHECKBOX_TYPE) {
		    if(FormInfo_ptr->num_value)
			links[nlinks].hightext = checked_box;
		    else
			links[nlinks].hightext = unchecked_box;

		} else if(FormInfo_ptr->type==F_PASSWORD_TYPE) {
		    links[nlinks].hightext = STARS(strlen(FormInfo_ptr->value));

		} else {  /* TEXT type */
		    links[nlinks].hightext = FormInfo_ptr->value;
		}

		if(TRACE)
		    fprintf(stderr,"Adding formlink with hightext %s\n",
					links[nlinks].hightext);

		/* bold the link */
                move(links[nlinks].ly, links[nlinks].lx);
                addstr(links[nlinks].hightext);
	
		nlinks++;

		display_flag = TRUE;

	    } else { /* not showing anchor */
		if(TRACE) 
		    fprintf(stderr,"GridText: Not showing link, hightext=%s\n",
						links[nlinks].hightext);
	    }
	} 

	if(Anchor_ptr == text->last_anchor)
	    break;
    }

	    
    /* turn off bolding */	
    stop_bold();

    if(!display_flag) /* nothing on the page */
	addstr("\n     Document is empty");

    refresh();

}


/*			Object Building methods
**			-----------------------
**
**	These are used by a parser to build the text in an object
*/
PUBLIC void HText_beginAppend ARGS1(HText *,text)
{
    text->permissible_split = 0;
    text->in_line_1 = YES;

}


/*	Add a new line of text
**	----------------------
**
** On entry,
**
**	split	is zero for newline function, else number of characters
**		before split.
**	text->display_on_the_fly
**		may be set to indicate direct output of the finished line.
** On exit,
**		A new line has been made, justified according to the
**		current style. Text after the split (if split nonzero)
**		is taken over onto the next line.
**
**		If display_on_the_fly is set, then it is decremented and
**		the finished line is displayed.
*/
#define new_line(text) split_line(text, 0)

PRIVATE void split_line ARGS2(HText *,text, int,split)
{
    HTStyle * style = text->style;
    int spare;
    int indent = text->in_line_1 ? text->style->indent1st
    				 : text->style->leftIndent;

/*	Make new line
*/
    HTLine * previous = text->last_line;
    HTLine * line = (HTLine *) calloc(LINE_SIZE(MAX_LINE),1);
    
    if (line == NULL) outofmem(__FILE__, "split_line");
    text->lines++;
    
    previous->next->prev = line;
    line->prev = previous;
    line->next = previous->next;
    previous->next = line;
    text->last_line = line;
    line->size = 0;
    line->offset = 0;
    text->permissible_split = 0;  /* 12/13/93 */

/*	Split at required point
*/    
    if (split) {	/* Delete space at "split" splitting line */
	char * p;
	previous->data[previous->size] = 0;
	for (p = &previous->data[split]; *p; p++)
	    if (*p != ' ') break;
	strcpy(line->data, p);
	line->size = strlen(line->data);
	previous->size = split;
    }
    
/*	Economise on space.
**	Not on the RS6000 due to a chaotic bug in realloc argument passing.
**	Same problem with Ultrix (4.2) : realloc() is not declared properly.
*/
#ifndef AIX
#ifndef ultrix
    while ((previous->size > 0) &&
    	(previous->data[previous->size-1] == ' '))	/* Strip trailers */
        previous->size--;
	
    previous = (HTLine *) realloc (previous, LINE_SIZE(previous->size));
    if (previous == NULL) outofmem(__FILE__, "split_line");
#endif /* ultrix */
#endif /* AIX */

    previous->prev->next = previous;	/* Link in new line */
    previous->next->prev = previous;	/* Could be same node of course */

/*	Terminate finished line for printing
*/
    previous->data[previous->size] = 0;
     
    
/*	Align left, right or center
*/

    spare =  (COLS-1) -
    		(int)style->rightIndent + (int)style->leftIndent -
    		previous->size;	/* @@ first line indent */

    switch (style->alignment) {
	case HT_CENTER :
	    previous->offset = previous->offset + indent + spare/2;
	    break;
	case HT_RIGHT :
	    previous->offset = previous->offset + indent + spare;
	    break;
	case HT_LEFT :
	case HT_JUSTIFY :		/* Not implemented */
	default:
	    previous->offset = previous->offset + indent;
	    break;
    } /* switch */

    text->chars = text->chars + previous->size + 1;	/* 1 for the line */
    text->in_line_1 = NO;		/* unless caller sets it otherwise */
    
} /* split_line */


/*	Allow vertical blank space
**	--------------------------
*/
PRIVATE void blank_lines ARGS2(HText *,text, int,newlines)
{
    if (text->last_line->size == 0) {	/* No text on current line */
	HTLine * line = text->last_line->prev;
	while ((line!=text->last_line) && (line->size == 0)) {
	    if (newlines==0) break;
	    newlines--;		/* Don't bother: already blank */
	    line = line->prev;
	}
    } else {
	newlines++;			/* Need also to finish this line */
    }

    for(;newlines;newlines--) {
	new_line(text);
    }
    text->in_line_1 = YES;
}


/*	New paragraph in current style
**	------------------------------
** See also: setStyle.
*/

PUBLIC void HText_appendParagraph ARGS1(HText *,text)
{
    int after = text->style->spaceAfter;
    int before = text->style->spaceBefore;
    blank_lines(text, after>before ? after : before);
}


/*	Set Style
**	---------
**
**	Does not filter unnecessary style changes.
*/
PUBLIC void HText_setStyle ARGS2(HText *,text, HTStyle *,style)
{
    int after, before;

    if (!style) return;				/* Safety */
    after = text->style->spaceAfter;
    before = style->spaceBefore;
    if (TRACE) fprintf(stderr, "GridText: Change to style %s\n", style->name);

    blank_lines (text, after>before ? after : before);

    text->style = style;
}


/*	Append a character to the text object
**	-------------------------------------
*/
PUBLIC void HText_appendCharacter ARGS2(HText *,text, char,ch)
{
    HTLine * line = text->last_line;
    HTStyle * style = text->style;
    int indent;

    if(!text || text==NULL)
	return;

    indent = text->in_line_1 ? style->indent1st : style->leftIndent;
    
/*		New Line
*/
    if (ch == '\n') {
	    new_line(text);
	    text->in_line_1 = YES;	/* First line of new paragraph */
	    return;
    }

    /* convert EM_SPACE to a space here so that it doesn't get
     * collapsed
     */
    if (ch == HT_EM_SPACE)
	ch = ' ';

    /* I'm going to cheat here in a BIG way.  Since I know that all
     * \r's will be trapped by HTML_put_character I'm going to use
     * \r to mean go down a line but don't start a new paragraph.  
     * i.e. use the second line indenting.
     */
    if (ch == '\r') {
	new_line(text);
	text->in_line_1 = NO;
	return;
    }


/* 		Tabs
*/

    if (ch == '\t') {
        HTTabStop * tab;
	int target;	/* Where to tab to */
	int here = line->size + line->offset +indent;
        if (style->tabs) {	/* Use tab table */
	    for (tab = style->tabs;
	    	tab->position <= here;
		tab++)
		if (!tab->position) {
		    new_line(text);
		    return;
		}
	    target = tab->position;
	} else if (text->in_line_1) {	/* Use 2nd indent */
	    if (here >= style->leftIndent) {
	        new_line(text); /* wrap */
		return;
	    } else {
	        target = style->leftIndent;
	    }
	} else {		/* Default tabs align with left indent mod 8 */
#ifdef DEFAULT_TABS_8
	    target = ((line->offset + line->size + 8) & (-8))
	    		+ style->leftIndent;
#else
	    new_line(text);
	    return;
#endif
	}

	if (target > (COLS-1) - (int)style->rightIndent) {
	    new_line(text);
	    return;
	} else {
            text->permissible_split = line->size;	/* Can split here */
	    if (line->size == 0) line->offset = line->offset + target - here;
	    else for(; heredata[line->size++] = ' ';	/* Put character into line */
	    }
	    return;
	}
	/*NOTREACHED*/
    } /* if tab */ 

    
    if (ch==' ') {
        text->permissible_split = line->size;	/* Can split here */
    }

/*	Check for end of line
*/    
    if (((indent + line->offset + line->size) + (int) style->rightIndent)
    								>= (COLS-1)) {
        if (style->wordWrap) {
	    split_line(text, text->permissible_split);
	    if (ch==' ') return;	/* Ignore space causing split */

	}  else if(HTOutputFormat==WWW_SOURCE) {
		 /* for source output we 
		  * dont want to wrap this stuff unless absolutely
		  * neccessary LJM 
		  * !
		  * If we don't wrap here we might get a segmentation fault.
		  */
		/* new_line(text); try not to linewrap */
	} else {
		/* for normal stuff like pre let's go ahead and
		 * wrap so the user can see all of the text
		 */
		new_line(text);  
	}
    }

/*	Insert normal characters
*/
    if (ch == HT_NON_BREAK_SPACE) {
        ch = ' ';
    }

    {
        HTLine * line = text->last_line;	/* May have changed */
        HTFont font = style->font;
        line->data[line->size++] =	/* Put character into line */
           font & HT_CAPITALS ? TOUPPER(ch) : ch;
        if (font & HT_DOUBLE)		/* Do again if doubled */
            HText_appendCharacter(text, HT_NON_BREAK_SPACE);
	    /* NOT a permissible split */ 
    }
}

/*		Anchor handling
**		---------------
*/
/*	Start an anchor field
*/
PUBLIC void HText_beginAnchor ARGS2(HText *,text, HTChildAnchor *,anc)
{
    char marker[16];

    TextAnchor * a = (TextAnchor *) calloc(sizeof(*a),1);
    
    if (a == NULL) outofmem(__FILE__, "HText_beginAnchor");
    a->hightext = NULL;
    a->start = text->chars + text->last_line->size;

    a->line_pos = text->last_line->size;
    if (text->last_anchor) {
        text->last_anchor->next = a;
    } else {
        text->first_anchor = a;
    }
    a->next = 0;
    a->anchor = anc;
    a->extent = 0;
    a->link_type = HYPERTEXT_ANCHOR;
    text->last_anchor = a;
    
    if (HTAnchor_followMainLink((HTAnchor*)anc)) {
        a->number = ++(text->last_anchor_number);
    } else {
        a->number = 0;
    }

    /* if we are doing link_numbering add the link number */
    if(keypad_mode == LINKS_ARE_NUMBERED && a->number > 0) {
	sprintf(marker,"[%d]", a->number);
        HText_appendText(text, marker);
	a->numbered = YES;
    } else {
	a->numbered = NO;
    }
}


PUBLIC void HText_endAnchor ARGS1(HText *,text)
{
    TextAnchor * a = text->last_anchor;
    if (a->number) {	 /* If it goes somewhere */
            a->extent += text->chars + text->last_line->size - a->start;
	    a->show_anchor = YES;
    } else {
	    a->show_anchor = NO;
	    a->extent = 0;
    }
 
}


PUBLIC void HText_appendText ARGS2(HText *,text, CONST char *,str)
{
    CONST char * p;

    if(str==NULL)
	return;
    for(p=str; *p; p++) {
        HText_appendCharacter(text, *p);
    }
}


PUBLIC void HText_endAppend ARGS1(HText *,text)
{
    int cur_line,cur_char;
    TextAnchor *anchor_ptr;
    HTLine *line_ptr;
    char tmp_string[512];
    char *cp;

    if(!text)
	return;

    new_line(text);
    
#ifdef DISPLAY_ON_FLY
    if (text->display_on_the_fly) {		/* Not finished? */
	text->display_on_the_fly = 0;
	text->next_line = text->last_line;	/* Bug fix after EvA 920117 */
	text->stale = NO;
    }
#endif /* DISPLAY_ON_FLY */

    /* get the hightext from the text by finding the char
     * position, then
     * bring the anchors in line with the text by adding the
     * text offset to each of the anchors
     */
     /* get first line */
     line_ptr = text->last_line->next;
     cur_char = line_ptr->size;;
     cur_line = 0;

        /* remove the blank lines at the end of document */
     while(text->last_line->data[0]=='\0' && text->lines > 2) {
        HTLine *next_to_the_last_line;

        if(TRACE)
            fprintf(stderr,"GridText: Removing bottom blank line: %s\n",
                                                        text->last_line->data);
    
        next_to_the_last_line = text->last_line->prev;

        /* line_ptr points to the first line */
        next_to_the_last_line->next = line_ptr;
        line_ptr->prev = next_to_the_last_line;
        free(text->last_line);
        text->last_line = next_to_the_last_line;
        text->lines--;

        if(TRACE)
            fprintf(stderr,"GridText: New bottom line: %s\n",
                                                   text->last_line->data);

     }


     if(TRACE)
	fprintf(stderr,"Gridtext: Entering HText_endAppend\n");

     for(anchor_ptr=text->first_anchor; anchor_ptr; 
				             anchor_ptr=anchor_ptr->next) {

	  /* find the right line */
	 for(;anchor_ptr->start > cur_char; line_ptr = line_ptr->next, 
				    cur_char += line_ptr->size+1, cur_line++) 
		; /* null body */

	 if(anchor_ptr->start == cur_char)
	    anchor_ptr->line_pos = line_ptr->size;
	else
	    anchor_ptr->line_pos = anchor_ptr->start-(cur_char-line_ptr->size);

	if(anchor_ptr->line_pos < 0)
	    anchor_ptr->line_pos = 0;

	if(TRACE)
	   fprintf(stderr,"Gridtext: Anchor found on line:%d col:%d\n",
					cur_line,anchor_ptr->line_pos);

	 /* strip off a spaces at the beginning if they exist
	  * but only on HYPERTEXT_ANCHORS
	  */
	 if(anchor_ptr->link_type == HYPERTEXT_ANCHOR)
             while(isspace(line_ptr->data[anchor_ptr->line_pos])) {
		    anchor_ptr->line_pos++;
		    anchor_ptr->extent--;
	     }

	 /* copy the link name into the data structure */
	 if(line_ptr->data && strlen(line_ptr->data) > anchor_ptr->line_pos
	               && anchor_ptr->extent > 0 && anchor_ptr->line_pos >= 0)
	     LYstrncpy(tmp_string, &line_ptr->data[anchor_ptr->line_pos],
			(anchor_ptr->extent > 511 ? 511 : anchor_ptr->extent));
	 else
	     *tmp_string = '\0';
	 StrAllocCopy(anchor_ptr->hightext, tmp_string);

         anchor_ptr->line_pos += line_ptr->offset;  /* add the offset */
         anchor_ptr->line_num  = cur_line;

	 if(TRACE)
	   fprintf(stderr,"GridText: adding link on line %d in HText_endAppend\n", cur_line);

 	 if(anchor_ptr == text->last_anchor)
	     break;
     }

}



/* 	Dump diagnostics to stderr
*/
PUBLIC void HText_dump ARGS1(HText *,text)
{
    fprintf(stderr, "HText: Dump called\n");
}
	

/*	Return the anchor associated with this node
*/
PUBLIC HTParentAnchor * HText_nodeAnchor ARGS1(HText *,text)
{
    return text->node_anchor;
}

/*				GridText specials
**				=================
*/
/*	Return the anchor with index N
**
**	The index corresponds to the number we print in the anchor.
*/
PUBLIC HTChildAnchor * HText_childNumber ARGS1(int,number)
{
    TextAnchor * a;
    for (a = HTMainText->first_anchor; a; a = a->next) {
        if (a->number == number) return(a->anchor);
    }
    return (HTChildAnchor *)0;	/* Fail */
}

/* HTGetLinkInfo returns some link info 
 */
PUBLIC int HTGetLinkInfo ARGS3(int, number, char **, hightext, char **, lname)
{
    TextAnchor * a;
    char * cp;
    HTAnchor *link_dest;

    for (a = HTMainText->first_anchor; a; a = a->next) {
        if (a->number == number) {
	    if(a->numbered) {
	  	cp = strchr(a->hightext, ']');
	        *hightext= cp;
	    } else {
	        *hightext= a->hightext;
	    }
            link_dest = HTAnchor_followMainLink(
                                               (HTAnchor *)a->anchor);
            *lname= HTAnchor_address(link_dest);
	    return(YES);
	}
    }
    return(NO);
}

/* HText_getNumOfLines returns the number of lines in the
 * current document
 */
PUBLIC int HText_getNumOfLines()
{
     return(HTMainText->lines);
}

/* HText_getTitle returns the title of the
 * current document
 */
PUBLIC char * HText_getTitle()
{
   return(HTAnchor_title(HTMainText->node_anchor));
}

/* HText_pageDisplay displays a screen of text
 * starting from the line 'line_num'-1
 * this is the primary call for lynx
 */
extern char is_www_index;

PUBLIC void HText_pageDisplay ARGS2(int,line_num, char *, target)
{
    display_page(HTMainText, line_num-1, target);

    is_www_index = HTAnchor_isIndex(HTMainAnchor);
} 

PUBLIC void HText_setStale ARGS1(HText *,text)
{
    text->stale = YES;
}

PUBLIC void HText_refresh ARGS1(HText *,text)
{
    if (text->stale) display_page(text, text->top_of_screen, "");
}

PUBLIC int HText_sourceAnchors ARGS1(HText *,text)
{
    return text->last_anchor_number;
}

PUBLIC BOOL HText_canScrollUp ARGS1(HText *,text)
{
    return (text->top_of_screen != 0);
}

PUBLIC BOOL HText_canScrollDown ()
{
    HText * text = HTMainText;

    return ((text->top_of_screen + display_lines) < text->lines+1);
}

/*		Scroll actions
*/
PUBLIC void HText_scrollTop ARGS1(HText *,text)
{
    display_page(text, 0, "");
}

PUBLIC void HText_scrollDown ARGS1(HText *,text)
{
    display_page(text, text->top_of_screen + display_lines, "");
}

PUBLIC void HText_scrollUp ARGS1(HText *,text)
{
    display_page(text, text->top_of_screen - display_lines, "");
}

PUBLIC void HText_scrollBottom ARGS1(HText *,text)
{
    display_page(text, text->lines - display_lines, "");
}


/*		Browsing functions
**		==================
*/

/* Bring to front and highlight it
*/

PRIVATE int line_for_char ARGS2(HText *,text, int,char_num)
{
    int line_number =0;
    int characters = 0;
    HTLine * line = text->last_line->next;
    for(;;) {
	if (line == text->last_line) return 0;	/* Invalid */
        characters = characters + line->size + 1;
	if (characters > char_num) return line_number;
	line_number ++;
	line = line->next;
    }
}

PUBLIC BOOL HText_select ARGS1(HText *,text)
{
    if (text != HTMainText) {
        HTMainText = text;
	HTMainAnchor = text->node_anchor;
	  /* let lynx do it */
	/* display_page(text, text->top_of_screen, ""); */
    }
    return YES;
}

PUBLIC BOOL HTFindPoundSelector ARGS1(char *,selector)
{
    TextAnchor * a;

    for(a=HTMainText->first_anchor; a; a=a->next) {

        if(a->anchor && a->anchor->tag)
            if(!strcmp(a->anchor->tag, selector)) {

                 www_search_result = a->line_num+1;
                 if (TRACE) fprintf(stderr,
                                "HText: Selecting anchor [%d] at character %d, line %d\n",
                                                    a->number, a->start, www_search_result);

                 return(YES);
            }
    }

    return(NO);

}

PUBLIC BOOL HText_selectAnchor ARGS2(HText *,text, HTChildAnchor *,anchor)
{
    TextAnchor * a;

/* This is done later, hence HText_select is unused in GridText.c
   Should it be the contrary ? @@@
    if (text != HTMainText) {
        HText_select(text);
    }
*/

    for(a=text->first_anchor; a; a=a->next) {
        if (a->anchor == anchor) break;
    }
    if (!a) {
        if (TRACE) fprintf(stderr, "HText: No such anchor in this text!\n");
        return NO;
    }

    if (text != HTMainText) {		/* Comment out by ??? */
        HTMainText = text;		/* Put back in by tbl 921208 */
	HTMainAnchor = text->node_anchor;
    }

    {
	 int l = line_for_char(text, a->start);
	if (TRACE) fprintf(stderr,
	    "HText: Selecting anchor [%d] at character %d, line %d\n",
	    a->number, a->start, l);

	if ( !text->stale &&
	     (l >= text->top_of_screen) &&
	     ( l < text->top_of_screen + display_lines+1))
	         return YES;

	www_search_result = l - (display_lines/3); /* put in global variable */
    }
    
    return YES;
}
 

/*		Editing functions		- NOT IMPLEMENTED
**		=================
**
**	These are called from the application. There are many more functions
**	not included here from the orginal text object.
*/

/*	Style handling:
*/
/*	Apply this style to the selection
*/
PUBLIC void HText_applyStyle ARGS2(HText *, me, HTStyle *,style)
{
    
}


/*	Update all text with changed style.
*/
PUBLIC void HText_updateStyle ARGS2(HText *, me, HTStyle *,style)
{
    
}


/*	Return style of  selection
*/
PUBLIC HTStyle * HText_selectionStyle ARGS2(
	HText *,me,
	HTStyleSheet *,sheet)
{
    return 0;
}


/*	Paste in styled text
*/
PUBLIC void HText_replaceSel ARGS3(
	HText *,me,
	CONST char *,aString, 
	HTStyle *,aStyle)
{
}


/*	Apply this style to the selection and all similarly formatted text
**	(style recovery only)
*/
PUBLIC void HTextApplyToSimilar ARGS2(HText *,me, HTStyle *,style)
{
    
}

 
/*	Select the first unstyled run.
**	(style recovery only)
*/
PUBLIC void HTextSelectUnstyled ARGS2(HText *,me, HTStyleSheet *,sheet)
{
    
}


/*	Anchor handling:
*/
PUBLIC void		HText_unlinkSelection ARGS1(HText *,me)
{
    
}

PUBLIC HTAnchor *	HText_referenceSelected ARGS1(HText *,me)
{
     return 0;   
}


PUBLIC int HText_getTopOfScreen ()
{
      HText * text = HTMainText;
      return text->top_of_screen;
}

PUBLIC int HText_getLines ARGS1(HText *,text)
{
      return text->lines;
}

PUBLIC HTAnchor *	HText_linkSelTo ARGS2(HText *,me, HTAnchor *,anchor)
{
    return 0;
}


PUBLIC int do_www_search ARGS1(char **,newfile)
{
       char searchstring[120];

       *searchstring='\0';
       statusline("Enter a database search string: ");
       if(LYgetstr(searchstring, VISIBLE) < 0 || *searchstring == '\0')
	  return(NO);

	user_message(WWW_WAIT_MESSAGE, *newfile);

       if (HTSearch(searchstring, HTMainAnchor)) {
           *newfile = HTAnchor_address(HTMainAnchor); 

	   if(TRACE)
	       fprintf(stderr,"\ndo_www_search: newfile: %s\n",newfile);

	   return(YES);
	}


       return(NO);
}

PUBLIC void print_wwwfile_to_fd ARGS1(FILE *,fp)
{

    HTLine * line = HTMainText->last_line->next;

    for(;; line = line->next) {

	fprintf(fp,"%s%s\n",SPACES(line->offset),line->data);

	if(line == HTMainText->last_line)
	    break;
    }
}

PUBLIC void www_user_search ARGS2(int,start_line, char *,target)
{
    register HTLine * line = HTMainText->last_line->next;
    register int count;
    BOOLEAN Found=NO;
    extern BOOLEAN case_sensitive;

	/* advance to the start line */
    for(count=1; count <= start_line; line=line->next, count++)
	; /* null */

    for(;;) {
	if(case_sensitive && strstr(line->data, target)) {
	    www_search_result=count;
	    return;
	} else if(!case_sensitive && LYstrstr(line->data, target)) {
	    www_search_result=count;
	    return;
	} else if(line == HTMainText->last_line) {  /* next line */
	    break;
	} else {			/* end */
	    line = line->next;
	    count++;
	}
    }

	/* search from the beginning */
    line = HTMainText->last_line->next; /* set to first line */
    count = 1;

    for(;;) {
	    if(case_sensitive && strstr(line->data, target)) {
	        www_search_result=count;
		return;
	    } else if(!case_sensitive && LYstrstr(line->data, target)) {
	        www_search_result=count;
		return;
	    } else if(count > start_line) {  /* next line */
    		user_message("\"%s\" could not be found in this document",target);
    		sleep(2);
	        return;			/* end */
	    } else {
	        line = line->next;
		count++;
	    }
    }


}

PUBLIC  void  user_message ARGS2(char *,message, char *,argument) 
{
    char temp[256];
    char temp_arg[120];

    if(message==NULL)
	return;

   /* restrict the argument to 120 chars so we don't overflow the temp var */
    strncpy(temp_arg, (temp_arg==NULL ? "" : argument),110);
    sprintf(temp, message, temp_arg);

    statusline(temp);
   
}

/* HText_getOwner returns the owner of the
 * current document
 */
PUBLIC char * HText_getOwner()
{
   return(HTAnchor_owner(HTMainText->node_anchor));
}

PUBLIC void HTuncache_current_document()
{
    /* should remove current document from memory */
    HTList_removeObject(loaded_texts, HTMainText);
    HText_free(HTMainText);
}

PUBLIC int HTisDocumentSource()
{
   return(HTMainText->source);
}

PUBLIC char * HTLoadedDocumentURL()
{
   if(!HTMainText)
	return("");

   if(HTMainText->node_anchor->address) 
       	return(HTMainText->node_anchor->address);
   else
	return("");
}

/*  Form methods
 *    These routines are used to build forms consisting
 *    of input fields 
 */

PRIVATE int HTFormMethod;
PRIVATE char * HTFormAction;

PUBLIC void HText_beginForm ARGS2(char *,action, char *,method)
{
    HTFormMethod = FORM_GET_METHOD;
    HTFormNumber++;

    if(action!=NULL)
        StrAllocCopy(HTFormAction, action);
    else
	StrAllocCopy(HTFormAction, "");
    
    if(method!=NULL)
	if(!strcasecomp(method,"post"))
	   HTFormMethod = FORM_POST_METHOD;

    if(TRACE)
	fprintf(stderr,"BeginForm: action:%s 	Method:%d\n",HTFormAction,
								HTFormMethod);
}

PUBLIC void HText_endForm()
{
    /* nada for now */
}

PUBLIC void HText_beginSelect ARGS2(char *,name, BOOLEAN,multiple)
{
   /* save the group name */
   HTCurSelectGroup = name;

   /* if multiple then all options are actually checkboxes */
   if(multiple)
      HTCurSelectGroupType = F_CHECKBOX_TYPE;
	/* if not multiple then all options are radio buttons */
   else
      HTCurSelectGroupType = F_RADIO_TYPE;

   if(TRACE)
       fprintf(stderr,"HText_beginSelect: name=%s type=%d\n",
		(HTCurSelectGroup==NULL ? "" : HTCurSelectGroup),
		 HTCurSelectGroupType);
} 

/* we couln't set the value field for the previous option
 * tag so we have to do it now.  Assume that the last anchor
 * was the previous options tag
 */
PUBLIC void HText_setLastOptionValue ARGS2(HText *,text, char *,value)
{
   char *cp;

   if(text->last_anchor->link_type != INPUT_ANCHOR)
	return;

   /* strip return */
   if((cp=strchr(value,'\n'))!=NULL)
	*cp = '\0';

   /* strip end spaces */
   cp = &value[strlen(value)-1];
   while(isspace(*cp)) cp--;
   *(cp+1) = '\0';

   /* find first non space */
   cp = value;
   while(isspace(*cp)) cp++;

   StrAllocCopy(text->last_anchor->input_field->value, cp);

   /* put the text on the screen as well */
   HText_appendText(text, cp);

   if(TRACE)
	fprintf(stderr,"HText_setLastOptionValue: value=%s\n", value);
}

/*
 *  Assign a form input anchor
 *  returns the number of charactors to leave blank
 *  so that the input field can fit
 */
PUBLIC int HText_beginInput ARGS2(HText *,text, InputFieldData *,I)
{
	
    TextAnchor * a = (TextAnchor *) calloc(sizeof(*a),1);
    FormInfo * f = (FormInfo *) calloc(sizeof(*f),1);   
    int i;

    if(TRACE)
	fprintf(stderr,"Entering HText_beginInput\n");

    if (a == NULL || f == NULL) outofmem(__FILE__, "HText_beginInput");

    a->start = text->chars + text->last_line->size;
    a->line_pos = text->last_line->size;

    if (text->last_anchor) {
        text->last_anchor->next = a;
    } else {
        text->first_anchor = a;
    }
    a->next = 0;
    a->anchor = NULL;
    a->link_type = INPUT_ANCHOR;
    a->show_anchor = YES;
    a->numbered = NO;

    a->hightext = NULL;
    a->extent = 2;

    a->input_field = f;

    f->number = HTFormNumber;

    /* special case of option */
	/* set the values and let the parsing below do the work */
    if(I->type!=NULL && !strcmp(I->type,"OPTION")) {

 	if(HTCurSelectGroupType==F_RADIO_TYPE)
	    StrAllocCopy(I->type,"RADIO");
	else
	    StrAllocCopy(I->type,"CHECKBOX");
	I->name = HTCurSelectGroup;
    }

	/* set SIZE */
    if(I->size != NULL) {
	f->size = atoi(I->size);
	free(I->size);
	if(f->size == 0)
	   f->size = 20;  /* default */
    } else {
	f->size = 20;  /* default */
    }

	/* set MAXLENGTH */
    if(I->maxlength != NULL) {
	f->maxlength = atoi(I->maxlength);
	free(I->maxlength);

    } else {
	f->maxlength = 0;  /* 0 means infinite */
    }

	/* set CHECKED */
    /* num_value is only relevent to check and radio types */
    if(I->checked == TRUE)
 	f->num_value = 1; 
    else
 	f->num_value = 0;

	/* set TYPE */
    if(I->type != NULL) {
	if(!strcasecomp(I->type,"password")) {
	    f->type = F_PASSWORD_TYPE;
	} else if(!strcasecomp(I->type,"checkbox")) {
	    f->type = F_CHECKBOX_TYPE;
	} else if(!strcasecomp(I->type,"radio")) {
	    f->type = F_RADIO_TYPE;
	} else if(!strcasecomp(I->type,"submit")) {
	    f->type = F_SUBMIT_TYPE;
	} else if(!strcasecomp(I->type,"reset")) {
	    f->type = F_RESET_TYPE;
	} else {
	    f->type = F_TEXT_TYPE;
	}
	free(I->type);
    } else {
	f->type = F_TEXT_TYPE;
    }


	/* set NAME */
    if(I->name!=NULL) {
        f->name=I->name;

    } else {
	if(f->type==F_RESET_TYPE || f->type==F_SUBMIT_TYPE) {
		/* set name to empty string */
	    StrAllocCopy(f->name,"");
	} else {
		/* error! name must be present */
	    free(a);
	    free(f);
	    return(0);
	}
    }

	/* set VALUE */
    /* set the value if it exists */
    if(I->value != NULL)
	f->value = I->value;
    else
	StrAllocCopy(f->value, "");

	/* run checks and fill in neccessary values */
    if(f->type==F_RESET_TYPE) {
	if(I->value!=NULL) {
	    f->size = strlen(I->value);
	} else {
	    StrAllocCopy(f->value, "Reset");
	    f->size = 5;
	}
    } else if(f->type==F_SUBMIT_TYPE) {
	if(I->value!=NULL) {
	    f->size = strlen(I->value);
	} else {
	    StrAllocCopy(f->value, "Submit");
	    f->size = 6;
	}
	f->submit_action = NULL;
	StrAllocCopy(f->submit_action, HTFormAction);
	f->submit_method = HTFormMethod;

    } else if(f->type==F_RADIO_TYPE || f->type==F_CHECKBOX_TYPE ) {
	f->size=3;
	if(I->value == NULL)
	   StrAllocCopy(f->value,"on");

    } 

    
    /* set original values */
    if(f->type==F_RADIO_TYPE || f->type==F_CHECKBOX_TYPE ) {
	if(f->num_value)
            StrAllocCopy(f->orig_value, "1");
	else
            StrAllocCopy(f->orig_value, "0");
    } else {
        StrAllocCopy(f->orig_value, f->value);
    }


    /* add this anchor to the anchor list */
    text->last_anchor = a;

    if(TRACE)
	fprintf(stderr,"Input link: name=%s\nvalue=%s\nsize=%d\n",
		 	f->name,(f->value!=NULL ? f->value : ""),f->size);
	
	/* return the size of the input field */
    return(f->size);
}


PUBLIC char * HText_SubmitForm ARGS1(FormInfo *,form)
{
   TextAnchor * anchor_ptr = HTMainText->first_anchor;
   int form_number = form->number;
   FormInfo * form_info;
   int len= strlen(form->submit_action)+64; /* plus breathing room */
   char *query=0;
   char *escaped1=NULL, *escaped2=NULL;
   int first_one=1;

   /* reset query variables */
   if(form_data) { free(form_data); form_data=0; }

   /* go through list of anchors and get size first */
   while(1) {
        if(anchor_ptr->link_type == INPUT_ANCHOR) {
   	    if(anchor_ptr->input_field->number == form_number) {

	        form_info = anchor_ptr->input_field;
	
	        len += strlen(form_info->name);
	        len += strlen(form_info->value);
	        len += 2; /* plus and ampersand */

	    } else if(anchor_ptr->input_field->number > form_number) {
	        break;
	    }
	}

	if(anchor_ptr == HTMainText->last_anchor)
	    break;

	anchor_ptr = anchor_ptr->next;
   }

   /* get query ready */
   query = (char *)calloc (sizeof(char), len);

   if(form->submit_method != FORM_POST_METHOD) {
       	strcpy (query, form->submit_action);
       	/* Clip out anchor. */
       	strtok (query, "#");
       	/* Clip out old query. */
       	strtok (query, "?");  
       	form_submit_method = FORM_GET_METHOD;
	strcat(query,"?");  /* add the question mark */
   } else {
	StrAllocCopy(post_content_type, "application/x-www-form-urlencoded");
	form_submit_method = FORM_POST_METHOD;
        query[0] = '\0';
	LYforce_no_cache=YES;  /* don't use cached document */
   }

   /* reset anchor->ptr */
   anchor_ptr = HTMainText->first_anchor;
   /* go through list of anchors and assemble URL query */
   while(1) {
        if(anchor_ptr->link_type == INPUT_ANCHOR) {
	    if(anchor_ptr->input_field->number == form_number) {

                form_info = anchor_ptr->input_field;

                switch(form_info->type) {

	        case F_RESET_TYPE:
	        case F_SUBMIT_TYPE:
		    break;

	        case F_RADIO_TYPE:
                case F_CHECKBOX_TYPE:
		    /* only add if selected */
		    if(form_info->num_value) {
	                if(first_one)
		            first_one=FALSE;
	                else
		            strcat(query,"&");

		        escaped1 = HTEscape(form_info->name,URL_XPALPHAS);
		        escaped2 = HTEscape(form_info->value,URL_XPALPHAS);
                        sprintf(&query[strlen(query)], "%s=%s",
					        escaped1, escaped2);
		        free(escaped1);
		        free(escaped2);
		    }
		    break;

                case F_PASSWORD_TYPE:
	        case F_TEXT_TYPE:
	            if(first_one)
		        first_one=FALSE;
	            else
		        strcat(query,"&");
    
		    escaped1 = HTEscape(form_info->name,URL_XPALPHAS);
		    escaped2 = HTEscape(form_info->value,URL_XPALPHAS);
                    sprintf(&query[strlen(query)], "%s=%s",
					    escaped1, escaped2);
		    free(escaped1);
		    free(escaped2);
		    break;
	        }
	    } else if(anchor_ptr->input_field->number > form_number) {
	        break;
	    }
        }

        if(anchor_ptr == HTMainText->last_anchor)
            break;

	anchor_ptr = anchor_ptr->next;
   }

   statusline("submitting form");
   
   if(form_submit_method==FORM_POST_METHOD) {
       form_data = query;
       if(TRACE)
	    fprintf(stderr,"GridText - form_data: %s\n",query);
       return(form->submit_action);
   } else { /* GET_METHOD */ 
       return(query);
   }
}

PUBLIC void HText_ResetForm ARGS1(FormInfo *,form)
{
    TextAnchor * anchor_ptr = HTMainText->first_anchor;

    statusline("resetting form...");

   /* go through list of anchors and reset values */
   while(1) {
        if(anchor_ptr->link_type == INPUT_ANCHOR) {
            if(anchor_ptr->input_field->number == form->number) {

                 if(anchor_ptr->input_field->type == F_RADIO_TYPE ||
                      anchor_ptr->input_field->type == F_CHECKBOX_TYPE) {

		    if(anchor_ptr->input_field->orig_value[0]=='0')
		        anchor_ptr->input_field->num_value = 0;
		    else
		        anchor_ptr->input_field->num_value = 1;
	         } else {
		    StrAllocCopy(anchor_ptr->input_field->value,
					anchor_ptr->input_field->orig_value);
		 }
	     } else if(anchor_ptr->input_field->number > form->number) {
                 break;
	     }

        }

        if(anchor_ptr == HTMainText->last_anchor)
            break;


        anchor_ptr = anchor_ptr->next;
   }


}

PUBLIC void HText_activateRadioButton ARGS1(FormInfo *,form)
{
    TextAnchor * anchor_ptr = HTMainText->first_anchor;
    int form_number = form->number;

    while(1) {
        if(anchor_ptr->link_type == INPUT_ANCHOR &&
                anchor_ptr->input_field->type == F_RADIO_TYPE) {
                    
	    if(anchor_ptr->input_field->number == form_number) {

		    /* if it has the same name and its on */
	         if(!strcmp(anchor_ptr->input_field->name, form->name) &&
		    			anchor_ptr->input_field->num_value) {
		    anchor_ptr->input_field->num_value = 0;
		    break;
	         }
	    } else if(anchor_ptr->input_field->number > form_number) {
	            break;
	    }

        }

        if(anchor_ptr == HTMainText->last_anchor)
            break;

        anchor_ptr = anchor_ptr->next;
   }

   form->num_value = 1;
}

ckboxes */
   if(multiple)
      HTCurSelectGroupType = F_CHECKBOX_TYPE;
	/* if not multiple then all options are radio buttons */
   else
      HTCurSelectGroupType = F_RADIO_TYPE;

   if(TRACE)
       fprintf(stderr,"HText_beginSelect: name=%s type=%d\n",
		(HTCurSelectGroup==NULL ? "" : HTCurSelectGroup),
		 HTCurSlynx2-1/src/HTAlert.c000644 000036 000040 00000005542 05505670201 016135 0ustar00montulliusersrv000000 000000 /*	Displaying messages and getting input for Lynx Browser
**	==========================================================
**
**	REPLACE THIS MODULE with a GUI version in a GUI environment!
**
** History:
**	   Jun 92 Created May 1992 By C.T. Barker
**	   Feb 93 Simplified, portablised TBL
**
*/


#include "HTAlert.h"
#include "LYStrings.h"
#include "LYUtils.h"
#include "LYSignal.h"
#include "GridText.h"

#include  		/* for toupper - should be in tcp.h */

PUBLIC void HTAlert ARGS1(CONST char *, Msg)
{
    user_message("Alert!:  %s\n", Msg);
}


PUBLIC void HTProgress ARGS1(CONST char *, Msg)
{
    if(!TRACE)
        statusline((char *)Msg);
}


PUBLIC BOOL HTConfirm ARGS1(CONST char *, Msg)
{
  char Reply[80];

  Reply[0]='\0';
  
#ifdef HAVE_SIGIO
    signal(SIGIO,SIG_IGN);
#endif 

  user_message("WWW: %s (y/n) ", Msg);

  LYgetstr(Reply, VISIBLE);

#ifdef HAVE_SIGIO
    signal(SIGIO,async_interupt);
#endif 

  if(toupper(Reply[0])=='Y')
    return(YES);
  else
    return(NO);
}

/*	Prompt for answer and get text back
*/
PUBLIC char * HTPrompt ARGS2(CONST char *, Msg, CONST char *, deflt)
{
    char * rep = 0;
    char Tmp[200];

    Tmp[0]='\0';

#ifdef HAVE_SIGIO
    signal(SIGIO,SIG_IGN);
#endif 

    statusline((char *)Msg);
    if (deflt) 
        strcpy(Tmp, deflt);

    LYgetstr(Tmp, VISIBLE);

    StrAllocCopy(rep, Tmp);

#ifdef HAVE_SIGIO
    signal(SIGIO,async_interupt);
#endif 
    return rep;
}

/*      Prompt for password without echoing the reply
*/
PUBLIC char * HTPromptPassword ARGS1(CONST char *, Msg)
{
    char *result = NULL;
    char pw[120];

    pw[0]='\0';

#ifdef HAVE_SIGIO
    signal(SIGIO,SIG_IGN);
#endif 

    statusline(Msg ? Msg : "Password: ");
    LYgetstr(pw, HIDDEN); /* hidden */

#ifdef HAVE_SIGIO
    signal(SIGIO,async_interupt);
#endif 

    StrAllocCopy(result, pw);
    return result;
}


/*      Prompt both username and password       HTPromptUsernameAndPassword()
**      ---------------------------------
** On entry,
**      Msg             is the prompting message.
**      *username and
**      *password       are char pointers; they are changed
**                      to point to result strings.
**
**                      If *username is not NULL, it is taken
**                      to point to  a default value.
**                      Initial value of *password is
**                      completely discarded.
**
** On exit,
**      *username and *password point to newly allocated
**      strings -- original strings pointed to by them
**      are NOT freed.
**
*/
PUBLIC void HTPromptUsernameAndPassword ARGS3(CONST char *,     Msg,
                                              char **,          username,
                                              char **,          password)
{
    if (Msg)
        HTAlert(Msg);
    *username = HTPrompt("Username: ", *username);
    *password = HTPromptPassword("Password: ");
}


    signal(SIGIO,async_interupt);
#endif 
    return rep;
}

/*      Prompt for password without echoing the reply
*/
PUBLIC char * HTPromptPassword ARGS1(COlynx2-1/src/HTFWriter.c000644 000036 000040 00000015313 05505701724 016452 0ustar00montulliusersrv000000 000000 /*		FILE WRITER				HTFWrite.h
**		===========
**
**	This version of the stream object just writes to a C file.
**	The file is assumed open and left open.
**
**	Bugs:
**		strings written must be less than buffer size.
*/

#include "HTFWriter.h"

#include "HTFormat.h"
#include "HTAlert.h"
#include "HTFile.h"

#include "LYStrings.h"
#include "LYUtils.h"

#ifndef VMS
#include "signal.h"
#endif

/*		Stream Object
**		------------
*/

struct _HTStream {
	CONST HTStreamClass *	isa;
	
	FILE *			fp;
	char * 			end_command;
	char * 			remove_command;
};


/*_________________________________________________________________________
**
**			A C T I O N 	R O U T I N E S
**  Bug:
**	All errors are ignored.
*/

/*	Character handling
**	------------------
*/

PRIVATE void HTFWriter_put_character ARGS2(HTStream *, me, char, c)
{
    putc(c, me->fp);
}



/*	String handling
**	---------------
**
**	Strings must be smaller than this buffer size.
*/
PRIVATE void HTFWriter_put_string ARGS2(HTStream *, me, CONST char*, s)
{
    fputs(s, me->fp);
}


/*	Buffer write.  Buffers can (and should!) be big.
**	------------
*/
PRIVATE void HTFWriter_write ARGS3(HTStream *, me, CONST char*, s, int, l)
{
    fwrite(s, 1, l, me->fp); 
}




/*	Free an HTML object
**	-------------------
**
**	Note that the SGML parsing context is freed, but the created
**	object is not,
**	as it takes on an existence of its own unless explicitly freed.
*/
extern int InteruptTransfer;

PRIVATE void HTFWriter_free ARGS1(HTStream *, me)
{

    fflush(me->fp);
    if (me->end_command) {		/* Temp file */
    	fclose(me->fp);
        HTProgress(me->end_command);	/* Tell user what's happening */
	system(me->end_command);
	free (me->end_command);

        /* if transfer was interupted remove the file */
	if (InteruptTransfer && me->remove_command) {
	    HTAlert("Removing partialy transferred file");
	    system(me->remove_command);
	    free(me->remove_command);
	} else if(me->remove_command) {
	    free(me->remove_command);
	}
    }

    free(me);
}

/*	End writing
*/

PRIVATE void HTFWriter_end_document ARGS2(HTStream *, me, HTError, e)
{
    fflush(me->fp);
}



/*	Structured Object Class
**	-----------------------
*/
PRIVATE CONST HTStreamClass HTFWriter = /* As opposed to print etc */
{		
	"FileWriter",
	HTFWriter_free,
	HTFWriter_end_document,
	HTFWriter_put_character, 	HTFWriter_put_string,
	HTFWriter_write
}; 


/*	Subclass-specific Methods
**	-------------------------
*/

PUBLIC HTStream* HTFWriter_new ARGS1(FILE *, fp)
{
    HTStream* me;
    
    if (!fp) return NULL;

    me = (HTStream*)calloc(sizeof(*me),1);
    if (me == NULL) outofmem(__FILE__, "HTML_new");
    me->isa = &HTFWriter;       

    me->fp = fp;
    me->end_command = NULL;
    me->remove_command = NULL;

    return me;
}

/*	Make system command from template
**	---------------------------------
**
**	See mailcap spec for description of template.
*/
/* @@ to be written.  sprintfs will do for now.  */


/*	Take action using a system command
**	----------------------------------
**
**	originally from Ghostview handling by Marc Andreseen.
**	Creates temporary file, writes to it, executes system command
**	on end-document.  The suffix of the temp file can be given
**	in case the application is fussy, or so that a generic opener can
**	be used.
*/
PUBLIC HTStream* HTSaveAndExecute ARGS3(
	HTPresentation *,	pres,
	HTParentAnchor *,	anchor,	/* Not used */
	HTStream *,		sink)	/* Not used */

#ifdef unix
#define REMOVE_COMMAND "/bin/rm -f %s"
#endif
#ifdef VMS
#define REMOVE_COMMAND "delete/noconfirm/nolog %s.."
#endif

#ifdef REMOVE_COMMAND
{
    char *fnam;
    CONST char * suffix;
    
    HTStream* me;
    
    me = (HTStream*)calloc(sizeof(*me),1);
    if (me == NULL) outofmem(__FILE__, "Save and execute");
    me->isa = &HTFWriter;  
    
    /* Save the file under a suitably suffixed name */
    
    suffix = HTFileSuffix(pres->rep);

    fnam = (char *)calloc (L_tmpnam + 16 + strlen(suffix),1);
    tempname (fnam, 0);  /* lynx routine to create a filename */
    if (suffix) strcat(fnam, suffix);
    
    me->fp = fopen (fnam, "w");
    if (!me->fp) {
	HTAlert("Can't open temporary file!");
        free(fnam);
	free(me);
	return NULL;
    }

/*	Make command to process file
*/
    me->end_command = (char *)calloc (
    			(strlen (pres->command) + 10+ 3*strlen(fnam))
    			 * sizeof (char),1);
    if (me == NULL) outofmem(__FILE__, "SaveAndExecute");
    
    sprintf (me->end_command, pres->command, fnam, fnam, fnam);

/*	Make command to delete file
*/ 
    me->remove_command = (char *)calloc (
    			(strlen (REMOVE_COMMAND) + 10+ strlen(fnam))
    			 * sizeof (char),1);
    if (me == NULL) outofmem(__FILE__, "SaveAndExecute");
    
    sprintf (me->remove_command, REMOVE_COMMAND, fnam);

    free (fnam);
    return me;
}

#else	/* cant do remove */
{ return NULL; }
#endif


/*	Format Converter using system command
**	-------------------------------------
*/

/* @@@@@@@@@@@@@@@@@@@@@@ */

/*      Save to a local file   LJM!!!
**      --------------------
**
**      usually a binary file that can't be displayed
**
**      originally from Ghostview handling by Marc Andreseen.
**      Asks the user for a file name, creates the file, and writes 
**      to it.
*/
PUBLIC HTStream* HTSaveToFile ARGS3(
        HTPresentation *,       pres,
        HTParentAnchor *,       anchor, /* Not used */
        HTStream *,             sink)   /* Not used */
{
    HTStream * ret_obj;
    char fnam[240];
    char *last_slash;
    void async_interupt();

    ret_obj = (HTStream*)calloc(sizeof(* ret_obj),1);
    if (ret_obj == NULL) outofmem(__FILE__, "Save To File");
    ret_obj->isa = &HTFWriter;
    ret_obj->remove_command = NULL;
    ret_obj->end_command = NULL;

    statusline("Saving file to disk, enter file name: ");
    last_slash = strrchr(anchor->address,'/'); 
    if(last_slash != NULL)
        strcpy(fnam,last_slash+1);
    else
        strcpy(fnam,anchor->address);

    change_sug_filename(fnam);

#ifdef HAVE_SIGIO
    signal(SIGIO, SIG_IGN);
#endif HAVE_SIGIO
    if(LYgetstr(fnam, VISIBLE) == -1 || fnam[0] == '\0') {
        statusline("Cancelling file! -- Please Wait");
        free(ret_obj);
        return NULL;
    }

#ifdef HAVE_SIGIO
    signal(SIGIO, async_interupt);
#endif HAVE_SIGIO

    ret_obj->fp = fopen (fnam, "w");
    if (!ret_obj->fp) {
        HTAlert("Can't open output file! Cancelling");
        free(ret_obj);
        return NULL;
    }

/*	Make command to delete file
*/ 
    ret_obj->remove_command = (char *)calloc (
    			(strlen (REMOVE_COMMAND) + 10+ strlen(fnam))
    			 * sizeof (char),1);
    if (ret_obj == NULL) outofmem(__FILE__, "SaveAndExecute");
    
    sprintf (ret_obj->remove_command, REMOVE_COMMAND, fnam);

    statusline("Retrieving file.  - PLEASE WAIT -");

    return ret_obj;
}

                break;
	     }

        }

        if(anchor_ptr == HTMainText->last_anchor)
            break;


        anchor_ptr = anchor_ptr->next;
   }


}

PUBLIC void HText_activateRadioButton ARGS1(FormInfo *,form)
{
    TextAnchor * anchor_ptr = HTMainText->first_anchor;
    int form_number = form-lynx2-1/src/HTInit.c000644 000036 000040 00000016071 05506372263 016000 0ustar00montulliusersrv000000 000000 /*		Configuration-specific Initialialization	HTInit.c
**		----------------------------------------
*/

/*	Define a basic set of suffixes and presentations
**	------------------------------------------------
*/

/* Implements:
*/
#include "HTInit.h"

#include "HTML.h"
#include "HTPlain.h"
#include "HTMLGen.h"
#include "HTFile.h"
#include "HTFormat.h"
#include "HTMIME.h"
#include "HTWSRC.h"

#include "HTSaveToFile.h"  /* LJM */

PUBLIC void HTFormatInit NOARGS
{
#ifdef NeXT
  HTSetPresentation("application/postscript",   "open %s",	1.0, 2.0, 0.0);
  HTSetPresentation("image/x-tiff", 		"open %s", 	1.0, 2.0, 0.0);
  HTSetPresentation("audio/basic", 		"open %s", 	1.0, 2.0, 0.0);
  HTSetPresentation("*", 			"open %s", 	1.0, 0.0, 0.0);
#else
 if (getenv("DISPLAY")) {	/* Must have X11 */
  HTSetPresentation("application/postscript", "ghostview %s&",	1.0, 3.0, 0.0);
  HTSetPresentation("image/gif", 	"xv %s &", 	1.0, 3.0, 0.0);
  HTSetPresentation("image/x-xbm", 	"xv %s &", 	1.0, 3.0, 0.0);
  HTSetPresentation("image/x-rgb", 	"xv %s &", 	1.0, 3.0, 0.0);
  HTSetPresentation("image/x-tiff", 	"xv %s &", 	1.0, 3.0, 0.0);
  HTSetPresentation("image/jpeg", 	"xv %s &", 	1.0, 3.0, 0.0);
  HTSetPresentation("video/mpeg", 	"mpeg_play %s &",1.0, 3.0, 0.0);

 }
#endif
 HTSetConversion("www/mime",  "*",  	     HTMIMEConvert, 	1.0, 0.0, 0.0);

 HTSetConversion("application/x-wais-source",
 		      "*",  	     HTWSRCConvert, 	1.0, 0.0, 0.0);
 HTSetConversion("text/html", "text/x-c",    HTMLToC, 	        0.5, 0.0, 0.0);
 HTSetConversion("text/html", "text/plain",  HTMLToPlain, 	0.5, 0.0, 0.0);
 HTSetConversion("text/html", "www/present", HTMLPresent, 	1.0, 0.0, 0.0);
 HTSetConversion("text/html", "www/source",  HTPlainPresent, 	1.0, 0.0, 0.0);
 HTSetConversion("text/plain", "text/html",  HTPlainToHTML,	1.0, 0.0, 0.0);
 HTSetConversion("text/plain", "*", 	     HTPlainPresent,	1.0, 0.0, 0.0);

 HTSetConversion("application/octet-stream","*",HTSaveToFile,1.0,3.0,0.0);
 HTSetConversion("application/x-compressed","*",HTSaveToFile,1.0,3.0,0.0);
  /* save all unknown mime types to disk */
 HTSetConversion("www/source", "www/present", HTSaveToFile ,  1.0, 3.0, 0.0);
 HTSetConversion("www/source", "www/source", HTSaveToFile ,  1.0, 3.0, 0.0);
 HTSetConversion("*", "www/present", HTSaveToFile ,  1.0, 3.0, 0.0);
 HTSetConversion("*", "www/source", HTSaveToFile ,  1.0, 3.0, 0.0);
}



/*	Define a basic set of suffixes
**	------------------------------
**
**	The LAST suffix for a type is that used for temporary files
**	of that type.
**	The quality is an apriori bias as to whether the file should be
**	used.  Not that different suffixes can be used to represent files
**	which are of the same format but are originals or regenerated,
**	with different values.
*/

#ifndef NO_INIT
PUBLIC void HTFileInit NOARGS
{
    /* default suffix interpretation */
    HTSetSuffix("*","text/plain", "7bit", 1.0); 
    HTSetSuffix("*.*","text/plain", "7bit", 1.0); 

    /* Internal -- MIME is not recursive? */
    HTSetSuffix(".mime","www/mime", "8bit", 1.0); 

    	/* Jumping the gun a little */
    HTSetSuffix(".html","text/html", "8bit", 1.0);
    HTSetSuffix(".HTML","text/html", "8bit", 1.0);

    /* HTSetSuffix(".execme.csh", "application/x-csh", "7bit", 0.5); */

    /* don't worry about all the text/plain, because that is the default */
    HTSetSuffix(".txt", "text/plain", "7bit", 0.5);

    HTSetSuffix(".src",	"application/x-wais-source", "7bit", 1.0);

 if (getenv("DISPLAY")) {	/* Must have X11 */
    HTSetSuffix(".PS",	"application/postscript", "8bit", 0.8);
    HTSetSuffix(".eps",	"application/postscript", "8bit", 0.8);
    HTSetSuffix(".ai",	"application/postscript", "8bit", 0.5);	/* Adobe ill */
    HTSetSuffix(".ps",	"application/postscript", "8bit", 0.8);
    HTSetSuffix(".rtf",	"application/x-rtf", "8bit", 1.0);
    HTSetSuffix(".snd", "audio/basic", "binary", 1.0);

    HTSetSuffix(".gif", "image/gif", "binary", 1.0);
    HTSetSuffix(".GIF", "image/gif", "binary", 1.0);
    HTSetSuffix(".rgb", "image/x-rgb", "binary", 1.0);
    HTSetSuffix(".RGB", "image/x-rgb", "binary", 1.0);

    HTSetSuffix(".xbm", "image/x-xbm", "binary", 1.0);
    HTSetSuffix(".XBM", "image/x-xbm", "binary", 1.0);

    HTSetSuffix(".tiff","image/x-tiff", "binary", 1.0);
    HTSetSuffix(".TIFF","image/x-tiff", "binary", 1.0);

    HTSetSuffix(".jpg", "image/jpeg", "binary", 1.0);
    HTSetSuffix(".JPG", "image/jpeg", "binary", 1.0);
    HTSetSuffix(".JPEG","image/jpeg", "binary", 1.0);
    HTSetSuffix(".jpeg","image/jpeg", "binary", 1.0);
    
    HTSetSuffix(".MPEG","video/mpeg", "binary", 1.0);
    HTSetSuffix(".mpg","video/mpeg", "binary", 1.0);
    HTSetSuffix(".MPG","video/mpeg", "binary", 1.0);
    HTSetSuffix(".mpeg","video/mpeg", "binary", 1.0);

} else {  /* no X11 */

    HTSetSuffix(".PS",	"application/octet-stream", "8bit", 0.8);
    HTSetSuffix(".eps",	"application/octet-stream", "8bit", 0.8);
    HTSetSuffix(".ai",	"application/octet-stream", "8bit", 0.5);/* Adobe ill */
    HTSetSuffix(".ps",	"application/octet-stream", "8bit", 0.8);
    HTSetSuffix(".rtf",	"application/octet-stream", "8bit", 1.0);
    HTSetSuffix(".snd", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".gif", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".GIF", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".rgb", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".RGB", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".xbm", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".XBM", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".tiff","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".TIFF","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".jpg", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".JPG", "application/octet-stream", "binary", 1.0);
    HTSetSuffix(".JPEG","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".jpeg","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".MPEG","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".mpg","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".MPG","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".mpeg","application/octet-stream", "binary", 1.0);
} /* end if X11 */

    HTSetSuffix(".MOV","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".mov","application/octet-stream", "binary", 1.0);

    HTSetSuffix(".hqx","application/octet-stream", "binary", 1.0);
    HTSetSuffix(".HQX","application/octet-stream", "binary", 1.0);

    HTSetSuffix(".bin",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".BIN",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".exe",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".EXE",	"application/octet-stream", "binary", 1.0);	
    HTSetSuffix(".tar",	"application/octet-stream", "binary", 1.0);

    HTSetSuffix(".Z",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".gz",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".ZIP",	"application/octet-stream", "binary", 1.0);
    HTSetSuffix(".zip",	"application/octet-stream", "binary", 1.0);
    
}
#endif /* NO_INIT */

;
    
    sprintf (ret_obj->remove_command, REMOVE_COMMAND, fnam);

    statusline("Retrieving file.  - PLEASE WAIT -");

    return ret_obj;
}

                break;
	     }

        }

        if(anchor_ptr == HTMainText->last_anchor)
            break;


        anchor_ptr = anchor_ptr->next;
   }


}

PUBLIC void HText_activateRadioButton ARGS1(FormInfo *,form)
{
    TextAnchor * anchor_ptr = HTMainText->first_anchor;
    int form_number = form-lynx2-1/src/GridText.h000644 000036 000040 00000002666 05504360662 016403 0ustar00montulliusersrv000000 000000 /*	Specialities of GridText as subclass of HText
*/
#include "HText.h"		/* Superclass */

#ifdef SHORT_NAMES
#define HText_childNumber		HTGTChNu
#define HText_canScrollUp		HTGTCaUp
#define HText_canScrollDown		HTGTCaDo
#define HText_scrollUp			HTGTScUp
#define HText_scrollDown		HTGTScDo
#define HText_scrollTop			HTGTScTo
#define HText_scrollBottom		HTGTScBo
#define HText_sourceAnchors		HTGTSoAn
#define HText_setStale			HTGTStal
#define HText_refresh			HTGTRefr
#endif

extern int WWW_TraceFlag;
extern int HTCacheSize;

extern HTChildAnchor * HText_childNumber PARAMS((int n));

/*	Is there any file left?
*/
extern BOOL HText_canScrollUp PARAMS((HText * text));
extern BOOL HText_canScrollDown ();

/*	Move display within window
*/
extern void HText_scrollUp PARAMS((HText * text));	/* One page */
extern void HText_scrollDown PARAMS((HText * text));	/* One page */
extern void HText_scrollTop PARAMS((HText * text));
extern void HText_scrollBottom PARAMS((HText * text));
extern void HText_pageDisplay PARAMS((int line_num, char *target));

extern int HText_sourceAnchors PARAMS((HText * text));
extern void HText_setStale PARAMS((HText * text));
extern void HText_refresh PARAMS((HText * text));
extern char * HText_getTitle PARAMS(());
extern char * HText_getOwner PARAMS(());

#ifdef CURSES
extern int HText_getTopOfScreen ();
extern int HText_getLines PARAMS((HText * text));
#endif

extern void user_message PARAMS((char * message, char * argument));
lynx2-1/src/HTAlert.h000644 000036 000040 00000002322 05470756424 016150 0ustar00montulliusersrv000000 000000 /*  */

/*      Displaying messages and getting input for WWW Library
**      =====================================================
**
**         May 92 Created By C.T. Barker
**         Feb 93 Portablized etc TBL
*/

#include "HTUtils.h"
#include "tcp.h"

/*      Display a message and get the input
**
**      On entry,
**              Msg is the message.
**
**      On exit,
**              Return value is malloc'd string which must be freed.
*/
extern char * HTPrompt PARAMS((CONST char * Msg, CONST char * deflt));


/*      Display a message, don't wait for input
**
**      On entry,
**              The input is a list of parameters for printf.
*/
extern void HTAlert PARAMS((CONST char * Msg));


/*      Display a progress message for information (and diagnostics) only
**
**      On entry,
**              The input is a list of parameters for printf.
*/
extern void HTProgress PARAMS((CONST char * Msg));


/*      Display a message, then wait for 'yes' or 'no'.
**
**      On entry,
**              Takes a list of parameters for printf.
**
**      On exit,
**              If the user enters 'YES', returns TRUE, returns FALSE
**              otherwise.
*/
extern BOOL HTConfirm PARAMS ((CONST char * Msg));
/*

    */
blythehannaibpMl8S/V/RpgGary Hanna/homea/hanna/usr/bin/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologinRemote Installation Services Account/usr/adm/ris/bin/shrisadm*
Administration Subsyslynx2-1/src/HTFont.h000644 000036 000040 00000000575 05470756424 016017 0ustar00montulliusersrv000000 000000 /*		The portable font concept (!?*)
*/

/*	Line mode browser version:
*/

typedef long int HTLMFont;	/* For now */

#define HT_NON_BREAK_SPACE ((char)1)	/* For now */
#define HT_EM_SPACE ((char)2) 		/* For now */


#define HT_FONT		0
#define HT_CAPITALS	1
#define HT_BOLD		2
#define HT_UNDERLINE	4
#define HT_INVERSE	8
#define HT_DOUBLE	0x10

#define HT_BLACK	0
#define HT_WHITE	1
dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/HTNestedLists.h000644 000036 000040 00000001555 05470756424 017351 0ustar00montulliusersrv000000 000000 #define HTML_OL1   HTML_ELEMENTS+1
#define HTML_OL2   HTML_ELEMENTS+2
#define HTML_OL3   HTML_ELEMENTS+3
#define HTML_OL4   HTML_ELEMENTS+4
#define HTML_OL5   HTML_ELEMENTS+5
#define HTML_OL6   HTML_ELEMENTS+6

#define HTML_MENU1   HTML_ELEMENTS+7
#define HTML_MENU2   HTML_ELEMENTS+8
#define HTML_MENU3   HTML_ELEMENTS+9
#define HTML_MENU4   HTML_ELEMENTS+10
#define HTML_MENU5   HTML_ELEMENTS+11
#define HTML_MENU6   HTML_ELEMENTS+12

#define HTML_DL1   HTML_ELEMENTS+13
#define HTML_DL2   HTML_ELEMENTS+14
#define HTML_DL3   HTML_ELEMENTS+15
#define HTML_DL4   HTML_ELEMENTS+16
#define HTML_DL5   HTML_ELEMENTS+17
#define HTML_DL6   HTML_ELEMENTS+18

#define HTML_DLC1   HTML_ELEMENTS+19
#define HTML_DLC2   HTML_ELEMENTS+20
#define HTML_DLC3   HTML_ELEMENTS+21
#define HTML_DLC4   HTML_ELEMENTS+22
#define HTML_DLC5   HTML_ELEMENTS+23
#define HTML_DLC6   HTML_ELEMENTS+24

tor/bin/kshoperatorrisNologinRemote Installation Services Account/usr/adm/ris/bin/shrisadm*
Administration Subsyslynx2-1/src/HTSaveToFile.h000644 000036 000040 00000000256 05470756424 017106 0ustar00montulliusersrv000000 000000 extern HTStream * HTSaveToFile PARAMS((
        HTPresentation *        pres,
        HTParentAnchor *        anchor, /* Not used */
        HTStream *              sink));

*:8:uucp
opr:*:9:root
auth:*:11:
lp:*:12:
lpr:*:12:root
backup:*:13:
cron:*:14:
users:*:15:sloane,sp20,operator,sp19
sysadmin:*:16:
tape:*:17:
tcb:*:18:
adm:*:19:adm
operator:*:20:
ris:*:21:
oissp:*:26:sp19,dl15
techsrv:*:31:dl15,gail,testsys,hanna,richard
usersrv:*:32:wes,jeff,maple,green,blythe,montulli,rezac,question,local
network:*:lynx2-1/src/HTForms.h000644 000036 000040 00000003460 05501417041 016153 0ustar00montulliusersrv000000 000000 
#ifndef HTForms_H
#define HTForms_H

#ifndef LYSTRUCTS_H
#include "LYStructs.h"
#endif

/* in LYForms.c */
extern int change_form_link PARAMS((struct link *form_link, int mode,
                                    document *newdoc, BOOLEAN *refresh_screen));

/* InputFieldData is used to pass the info between
 * HTML.c and Gridtext.c in HText_beginInput()
 */
typedef struct _InputFieldData {
    	char *name;
	char *value;
	char *size;
	char *maxlength;
	char *type;
	int   checked;
} InputFieldData;

/* the FormInfo structure is used to contain the form field
 * data within each anchor
 * A pointer to this structure is in the TextAnchor struct.
 */
typedef struct _FormInfo {
	char *			name;  /* the name of the link */
	int			number; /*which form is the link within*/
	int			type;	 /* string, int, etc. */
	char *			value;   /* user entered string data */
	char *			orig_value;  /* the original value */
	int			size;    /* width on the screen */
	int			maxlength; /* max width of data */
	int			group;	   /* a group associated with the link
					    *  this is used for select's
					    */
	int			num_value;  /*value of the numerical fields*/
	int 			hrange;  /* high numerical range */
	int			lrange;   /* low numerical range */
        char *                  submit_action;
        int                     submit_method;
} FormInfo;

#define HYPERTEXT_ANCHOR 1
#define INPUT_ANCHOR     2   /* forms mode input fields */

#define F_TEXT_TYPE	1
#define F_PASSWORD_TYPE 2
#define F_CHECKBOX_TYPE 3
#define F_RADIO_TYPE	4
#define F_SUBMIT_TYPE	5
#define F_RESET_TYPE	6

#define WWW_FORM_LINK_TYPE  1
#define WWW_LINK_TYPE   2
#define STARS(n) (&star_string[(LINESIZE-1) - (n)])
/* #define different lynx modes */
#define NORMAL_LYNX_MODE 1
#define FORMS_LYNX_MODE  2

#define FORM_UP   1
#define FORM_DOWN 2

#endif /* HTForms_H */
lynx2-1/src/LYMainLoop.c000644 000036 000040 00000054104 05505675030 016620 0ustar00montulliusersrv000000 000000 #include "LYCurses.h"
#include "HTUtils.h"
#include "HTAccess.h"
#include "LYGlobalDefs.h"
#include "LYUtils.h"
#include "GridText.h"
#include "LYStrings.h"
#include "LYOptions.h"
#include "LYSignal.h"
#include "LYGetFile.h"
#include "HTForms.h"
#include "LYSearch.h"
#include "LYClean.h"
#include "LYHistory.h"
#include "LYPrint.h"

/*
 * here's where we do all the work
 * mainloop is basically just a big switch dependent on the users input
 * I have tried to offload most of the work done here to procedures to
 * make it more modular, but this procedure still does alot of variable
 * manipulation.  This need some work to make it neater.
 */

void mainloop ()
{
    int  c, arrowup=FALSE, show_help=FALSE;
    int lines_in_file= -1;
    int itmp;
    int newline;
    char prev_target[MAXHIGHLIGHT];
    char line_buffer[1024];
    char address_buffer[1024];
    char *owner_address;  /* holds the responsible owner's address */
    document newdoc, curdoc;
    char *cp, *tmptr;
    FILE *fp = NULL, *oldfp;
    BOOLEAN first_file=TRUE;
    BOOLEAN refresh_screen=FALSE;

/*
 *  curdoc.address contains the name of the file that is currently open
 *  newdoc.address contains the name of the file that will soon be 
 *		   opened if it exits
 *  prev_target contains the last search string the user searched for
 *  newdoc.title contains the link name that the user last chose to get into
 *		   the current link (file)
 */
      /* initalize some variables*/
    nhist = 0;
    newdoc.address = startfile;
    newdoc.title = line_buffer;
    strcpy(newdoc.title, "Entry into main menu");
    newdoc.line = 1;
    newdoc.link = 0;
    curdoc.address 	= NULL;
    *prev_target	= '\0';

    if(TRACE)
	fprintf(stderr,"Entering mainloop, startfile=%s\n",startfile);

    if(user_mode==NOVICE_MODE)
        display_lines = LINES-4;
    else
        display_lines = LINES-2;

    while (TRUE) {
	/* if newdoc.address is different then curdoc.address then we need 
	 * to go out and find and load newdoc.address
	 */
	if (curdoc.address==NULL || newdoc.address==NULL ||
			!STREQ(curdoc.address, newdoc.address)) {

		/* push the old file onto the history stack
	 	 */
		if(curdoc.address!=NULL && newdoc.address!=NULL) {
		    push(&curdoc);

		} else if(newdoc.address==NULL) {
		    /* if newdoc.address is empty then pop a file 
		     * and load it 
		     */
                    pop(&newdoc);
		}

		switch(getfile(&newdoc)) {


		case NOT_FOUND: 

        	           /* OK! can't find the file */
                           /* so it must not be around now.  Print an error */
                   statusline(LINK_NOT_FOUND);
		   LYgetch();  /* pause for awhile */

		   if(error_logging && !first_file && owner_address) 
			/* send an error message */
                      mailmsg(curdoc.link, owner_address, 
			history[nhist-1].hfname, history[nhist-1].hightext);

			/* do the NULL stuff also and reload the old file */

		   /* the first file wasn't found or has gone missing */
		   if(!nhist) { 
			/* if nhist = 0 then it must be the first file */
			cleanup();
		        printf("\nlynx: Can't access start file %s\n",
								  startfile);
			exit(1);
		    }

		case NULLFILE:  /* not supposed to return any file */

		   /* the first file wasn't found or has gone missing */
		   if(!nhist) { 
			/* if nhist = 0 then it must be the first file */
			cleanup();
			printf("\nlynx: Start file not displayable.  Exiting...\n");
			exit(1);
		    }

		    pop(&newdoc);
		    newdoc.line = 1; /* reset */
		    newdoc.link = 1; /* reset */
	
                    break;

		case NORMAL: 
#ifdef TRAVERSAL
		   /* during traversal build up a list of all links
		    * traversed.  Traversal mode is a special 
		    * feature to traverse every link in the web
		    */	
		   add_to_traverse_list(curdoc.address, curdoc.title);
#endif TRAVERSAL
		   curdoc.line = -1; 

		  /*
            	   * set newline to the saved line
            	   * savline contains the line the
            	   * user was on if he has been in
            	   * the file before or it is 1
            	   * if this is a new file
		   */
                   newline = newdoc.line;

	  	   break;	
		}  /* end switch */

           owner_address = HText_getOwner();

	   if(TRACE)
	      sleep(2); /* allow me to look at the results */

	   /* set the files the same */
	   curdoc.address = newdoc.address;

	   /* reset WWW present mode so that if we were getting
	    * the source, we get rendered HTML from now on
	    */
	   HTOutputFormat = WWW_PRESENT;

  	} /* end if(STREQ(newdoc.address,curdoc.address) */

        if(dump_output_immediately) {
            print_wwwfile_to_fd(stdout);
	    exit(0);
	}

	/* if the resent_sizechange variable is set to true
	   then the window size changed recently. 
	*/
	if(recent_sizechange == TRUE) {
		stop_curses();
		start_curses();
		refresh_screen = TRUE; /*to force a redraw */
		recent_sizechange=FALSE;
		display_lines = LINES-2;
	}

        if(www_search_result != -1) {
             /* This was a WWW search, set the line
              * to the result of the search
              */
             newline = www_search_result;
             www_search_result = -1;  /* reset */
	     more = HText_canScrollDown();
        }


	/* if the curdoc.line is different than newline then there must
	 * have been a change since last update. Run showpage.
	 * showpage will put a fresh screen of text out.
	 * If this is a WWW document then use the 
	 * WWW routine HText_pageDisplay to put the page on
	 * the screen
         */
	if (curdoc.line != newline) {
	
   	    refresh_screen = FALSE;

	    HText_pageDisplay(newline, prev_target);
	    /* if more equals true then there is more
	     * info below this page 
	     */
	    more = HText_canScrollDown();
	    curdoc.line = newline = HText_getTopOfScreen()+1;
            lines_in_file = HText_getNumOfLines();

            if(HText_getTitle()) {
	        curdoc.title = HText_getTitle();
	    } else {
	        curdoc.title = newdoc.title;
		if(curdoc.title == NULL)
		    curdoc.title = empty_string;
	    }

	   /* put the novice line stuff on the screen */
	   if(user_mode == NOVICE_MODE) 
		noviceline(more);  /* print help message */

	   if (arrowup) { 
		/* arrow up is set if we just came up from
		 * a page below 
		 */
	        curdoc.link = nlinks - 1;
	        arrowup = FALSE;
	   } else {
	        curdoc.link = newdoc.link;
	   }

	   show_help = FALSE; /* reset */
	   newdoc.link = 0;
	   newdoc.line = 1;
	   curdoc.line = newline; /* set */
	}

	/* refesh the screen if neccessary */
	if(refresh_screen) {
	    HText_pageDisplay(newline, prev_target);
	    if(user_mode == NOVICE_MODE) 
		noviceline(more);  /* print help message */
	    refresh_screen=FALSE;

	}

	if(first_file == TRUE) { /* we can never again have the first file */
	   first_file = FALSE;  
	   show_help=TRUE;
	   if(user_mode==NOVICE_MODE) {
	      /* do nothing */
	   } else if(is_www_index && more)
		statusline(WWW_INDEX_MORE_MESSAGE);
	   else if(is_www_index)
		statusline(WWW_INDEX_MESSAGE);
	   else if(more)  /* show some help for the first file */
               statusline(MOREHELP);
           else
               statusline(HELP);
	 }  
		
	/* if help is not on the screen 
	 * then put a message on the screen
	 * to tell the user other misc info
	 */
	if (!show_help) {
	    /* if we are in forms mode then explicitly
	     * tell the user what each kind of link is
	     */
	    if(lynx_mode==FORMS_LYNX_MODE) {
                if(links[curdoc.link].type == WWW_FORM_LINK_TYPE)
	            statusline(FORM_LINK_MESSAGE);
                else
	            statusline(NORMAL_LINK_MESSAGE);

	    } else if(user_mode == NOVICE_MODE) {
		/* do nothing */
	    } else if(user_mode == ADVANCED_MODE && nlinks>0) {
		/* show the URL */
		statusline(links[curdoc.link].lname);
	    } else if(is_www_index && more) {
		statusline(WWW_INDEX_MORE_MESSAGE);
	    } else if(is_www_index) {
		statusline(WWW_INDEX_MESSAGE);
	    } else if (more) {
		statusline(MORE);
	    } else {
	       statusline(HELP);
   	    }	     
	} else {
	   show_help = FALSE;
	}

	highlight(ON, curdoc.link);	/* highlight current link */

#ifdef TRAVERSAL
	/* this is a special feature to traverse every link in
	 * the database, and look for errors
	 */
	if( lookup(links[cur].lname)) {
		if(more || (cur > -1 && cur < nlinks-1))
		   c=DNARROW;
		else {
		   if(STREQ(curdoc.title,"Entry into main menu"))
		       exit(0);
		   c=LTARROW;
		}
	} else {
		add_to_table(links[cur].lname,);
		c = RTARROW;
	}
#else
	/* Get a keystroke from the user
	 */ 
	  c=LYgetch();   /* get user input */
	

#endif TRAVERSAL

        if(vi_keys)   /* convert h,j,k,l to a arrows for vi key users */
	   switch(c) {  /* note: only lowercase keys are mapped :) */
	   case 'j':
		c=DNARROW;
		break;
	   case 'k':
		c=UPARROW;
		break;
	   case 'h':
		c=LTARROW;
		break;
	   case 'l':
		c=RTARROW;
	   }
		
       if(emacs_keys) /* convert ^P, ^N, ^B, ^F to arrows for emacs keys */
	  switch(c) {  /* note: only lowercase keys are mapped :) */
          case 14: /* really control-N, not ^N */
              c=DNARROW;
              break;
          case 16: /* really control-P not ^P */
              c=UPARROW;
              break;
          case 2: /* really control-B not ^B */
              c=LTARROW;
              break;
          case 6: /* really control-F not ^F */
              c=RTARROW;
        }


	/* convert 4, 6, 2, 8 to left, right, down, up, etc. */
	if(keypad_mode == NUMBERS_AS_ARROWS)
	    c = number2arrows(c);


	switch(c) {
	case DO_NOTHING:
	    /* pretty self explanitory */
	    break;
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	    /* get a number from the user and follow that link number */
	    switch(follow_link_number(c, &curdoc.link)) {
	    case DO_LINK_STUFF:
                    /* follow a normal link */
                newdoc.address = links[curdoc.link].lname;
		break;

	    case PRINT_ERROR:
		statusline(BAD_LINK_NUM_ENTERED);
		sleep(1);
		break;
	    }
	    break;

	case '\\':  /* toggle view source mode */
	     if(HTisDocumentSource()) 
	         HTOutputFormat = WWW_PRESENT;
	     else
	         HTOutputFormat = WWW_SOURCE;
	     HTuncache_current_document();
	     newdoc.address = curdoc.address;
	     curdoc.address = NULL;	
	     break;

	case 18:  /* control-R to reload and refresh */
	     HTuncache_current_document();
	     newdoc.address = curdoc.address;
	     curdoc.address = NULL;	
	     newdoc.line=curdoc.line;
	     newdoc.link=curdoc.link;
#ifdef VMS
	     clearok(curscr, TRUE);
	     refresh();
#endif /* VMS */
	     break;

#ifdef NOT_DONE_YET
	case '|':  
	    /* ignore for now */
	    break
#endif NOT_DONE_YET

	case 'Q':
	    return;  /* dont ask the user about quitting */
	case 'q':	/* quit */
	case 4:
	case EOF:
	    statusline("Are you sure you want to quit? [Y] ");
	    if(toupper(LYgetch()) != 'N')
	        return;
	    else {
	        statusline("Excellent!");
		sleep(1);
	    }
	    break;
	
#ifdef VMS
	case 26:  /* CTRL-Z force immediate quit */
	    return;
	    break;
#endif VMS

	case ' ':	/* next page */
	case '+':
	case 44:   /* plus on mac keypad */
	case PGDOWN:  /* page down */
	case 6:	/* control F */
	    if(more)
	           newline += display_lines;
	    break;

	case 'b':	/* prev page */
	case 'B':
	case '-':
	case PGUP:  /* page up */
	case 2:	/* control B */
	   if(newline > 1) {
	           newline -= display_lines;
	    }
	    break;

	case  16:  /* control p */
	    newline -= 2;
	    break;

	case  14: /* control n */
	    newline += 2;
	    break;

	/* control R DOES NOT just wipe the screen any more */
	case 23:  /* control W to wipe the screen */
	   refresh_screen=TRUE;
	   newdoc.link=curdoc.link;
#ifdef VMS
	   clearok(curscr, TRUE);
	   refresh();
#endif /* VMS */
	   break;

	case HOME:
	    newline = 1;
	    break;

	case END:
	    if(more) {
	       newline = MAXINT; /* go to end of file */
	       arrowup = TRUE;  /* position on last link */
	    }
	    break;

	case UPARROW:
	    if (curdoc.link>0) {		/* previous link */
		highlight(OFF, curdoc.link);   /* unhighlight the current link */
		curdoc.link--;

	    } else if(!more && curdoc.link==0 && newline==1) { /* at the top of list */ 
		/* if there is only one page of data and the user
		 * goes off the top, then just move the curser to
		 * last link on the page
		 */
		highlight(OFF,curdoc.link); /* unhighlight the current link */
		curdoc.link = nlinks-1;  /* the last link */

	    } else if (curdoc.line > 1) {	/* previous page */
		/* go back to the previous page */
		    newline -= (display_lines);
		    arrowup = TRUE;
	    }
	    break;

	case DNARROW:
	case 9  : /* the TAB key */
	    if (curdoc.link0) {  /* if there is anything to go back to */

		    /* set newdoc.address to empty to pop a file */
		    newdoc.address = NULL;

	        } else if(child_lynx==TRUE) {
	   	   return; /* exit on left arrow in main screen */ 
		}
	     break;

	case RTARROW:			/* follow a link */
	case '\n':
	case '\r':
	    if (nlinks > 0) {
	        if(links[curdoc.link].type == WWW_FORM_LINK_TYPE) {
		        curdoc.link += change_form_link(&links[curdoc.link],
				    FORM_UP, &newdoc, &refresh_screen);

	        } else {   /* Not a forms link */
		    /* follow a normal link */
		    newdoc.address = links[curdoc.link].lname;
		    newdoc.title = links[curdoc.link].hightext;
		}
	    }
	    break;

	case 'g':   /* 'g' to goto a random file  */
	case 'G':
	 
	    if(anonymous) {
	    	statusline("Anonymous users may not Goto a random URL!");
		sleep(1);
		break;
	    }
	 
	    statusline("Filename or URL to open: "); 
	    *address_buffer = '\0';
	    LYgetstr(address_buffer, VISIBLE); /* ask the user */
	    if(*newdoc.address != '\0') {
	    
		/* make a name for this new file */
		newdoc.title = line_buffer;
	        strcpy(newdoc.title, "A file specified by the user");
	        newdoc.address = address_buffer;
	    } 
	    break;

	case '?':			/* show help file */
	case 'H':
	case 'h':
	case F1:   /* f1 key */
	    if(!STREQ(curdoc.address, helpfile)) {
	        newdoc.address = helpfile;  /* set the filename */

		/* make a name for this help file */
		newdoc.title = line_buffer;
	        strcpy(newdoc.title, "Help Screen");
	    }
	    break;

	case 'I':  /* index file */
	case 'i':  /* a special non-WWW, Lynx feature */
		/* make sure we are not in the index already */
	    if(!STREQ(curdoc.address, indexfile)) {

	        if(indexfile[0]=='\0') { /* no defined index */
		    statusline("No index is currently available");
		    sleep(1);

	        } else {
	            newdoc.address = indexfile;
		    newdoc.title = line_buffer;
	            strcpy(newdoc.title, "System Index"); /* name it */
	        } /* end else */
	    }  /* end if */
	    break;

	case 'x': 
	case 'X':  /* change form */
	    if(lynx_mode == FORMS_LYNX_MODE) {
		if(links[curdoc.link].type == WWW_FORM_LINK_TYPE) {
		    curdoc.link += change_form_link(&links[curdoc.link],
				    FORM_UP, &newdoc, &refresh_screen);
		} else {
		    statusline("'X' can only toggle a form link");
		}
	    } else {
		statusline("'X' only toggles in forms mode");
	    }
	    break;	

	case 'z': 
	case 'Z':  /* change form */
	    if(lynx_mode==FORMS_LYNX_MODE) {
		if(links[curdoc.link].type == WWW_FORM_LINK_TYPE)
		    curdoc.link += change_form_link(&links[curdoc.link],
				    FORM_DOWN,&newdoc,&refresh_screen);
		else
		    statusline("'Z' can only toggle a form link");
	    } else {
		statusline("'Z' only toggles in forms mode");
	    }
	    break;	

	case 'm':	/* return to main screen */
	case 'M':
		/* if its already the startfile then don't reload it */
	    if(!STREQ(curdoc.address,startfile)) {
		
		statusline("Do you really want to go to the Main Menu? (y/n) [n] ");
		if(toupper(LYgetch())=='Y') {
	            newdoc.address = startfile;
		    newdoc.title = line_buffer;
                    strcpy(newdoc.title, "Entry into main menu");
	            highlight(OFF,curdoc.link); 
		}
	    } else {
		statusline("Already at main menu!");
		sleep(1);
	    }
	    break;

	case 'o':     /* options screen */
	case 'O':
	    options(); /* do the options stuff */
	    refresh_screen = TRUE; /* to repaint screen */
	    break;

	case 's': /* search for a user string */
	case 'S':
	     if(is_www_index) {
               /* perform a database search */

		/* do_www_search will try to go out and get the document
		 * if it returns yes a new document was returned and is
		 * named in the newdoc.address
		 */
		if(do_www_search(&newdoc.address)) {
                    push(&curdoc);
		
		   /* make the curdoc.address the newdoc.address so that
		    * getfile doesn't try to get the newdoc.address.
		    * Since we have already gotton it.
		    */ 
		   curdoc.address = newdoc.address;
		   curdoc.line = -1;
		   refresh_screen = TRUE; /* redisplay it */
		} else {
		   /* restore the old file */
		   newdoc.address = curdoc.address;  
		}
	     } else {
		statusline("Not a searchable indexed document -- press '/' to search for a text string");
		sleep(1);
	     }
	     break;

	case '/':  /* search within the document */
	case 'n':  /* search for the next occurance of the user string */
 	case 'N':
            /* user search */
	    if(toupper(c) != 'N')
	        *prev_target = '\0';  /* reset old target */
	    textsearch(&curdoc, prev_target); 
	    break;

	case 'r':
	case 'R':  /* reply by mail */
	case 'c':
	case 'C':
	   if(!owner_address) {
		statusline("No owner is defined for this file so you cannot send a comment");
		sleep(1);
	   } else {
		statusline("Do you wish to send a comment? [N]");
	       if(toupper(LYgetch()) == 'Y') {

	          if(is_url(owner_address) != MAILTO_URL_TYPE) { 
			/* the address is a url */
			/* just follow the link */
			
		       newdoc.address = owner_address;

	          } else {
		    /* the owner_address is a mailto: url type */
		       if(strchr(owner_address,':')!=NULL)
			    /* send a reply. The address is after the colon */
	      	         reply_by_mail(strchr(owner_address,':')+1,curdoc.address); 
		       else
	      	         reply_by_mail(owner_address,curdoc.address); 

	               refresh_screen=TRUE;  /* to force a showpage */
	          }
	       }
	   }
	   break;

	case 'e':  /* edit */
	case 'E':
	   if(*editor != '\0' && !anonymous) {
		if(edit_current_file(newdoc.address,curdoc.link,newline))
	            HTuncache_current_document();
		newdoc.address = curdoc.address;
	        curdoc.address = NULL;	
		newdoc.line = curdoc.line;
		newdoc.link = curdoc.link;

		refresh_screen=TRUE; /* to force a showpage */
	   } else if(*editor == '\0') {
		statusline("No editor is defined!");
		sleep(1);
	   }
	   break;

	case '=':  /* show document info */
	   /* show some info */
	   showinfo(&curdoc, lines_in_file, owner_address);
	   refresh_screen=TRUE;
	   break;

	case 'p':
	case 'P':  /* print the file */
		/* don't do if already viewing print options page */	
	   if(strcmp(curdoc.title,"Lynx Printing Options")) {	

		/* save the old file */
                print_options(&newdoc.address, lines_in_file);
	        refresh_screen=TRUE;  /* redisplay */
	   }
	   break;

	case 'a':  /* a to add link to bookmark file */
	case 'A':
	   if(strcmp(curdoc.title,HISTORY_PAGE_TITLE) && 
				strcmp(curdoc.title,PRINT_OPTIONS_TITLE)) {

		statusline("Do you wish to save this document in your current bookmark file? (y/n)");
		c = LYgetch();
		if(toupper(c) == 'Y')
		    save_bookmark_link(&curdoc);
	   } else {
		statusline("History and Print files cannot be saved in the bookmark page");
		sleep(1);
	   }
		
	   break;

#ifdef NOT_WORKING_YET
	case 'd':  /* delete home page link */
	case 'D':
	    if(strstr(newdoc.address,bookmark_page)) {
		rewind(fp);
		remove_bookmark_link(fp, newdoc.address, curdoc.link, newline);
	        refresh_screen=TRUE;  /* reparse and display file */
		*curdoc.address = '\0';  /* reopen file */
	    } else {
		statusline("D)elete only works on bookmark page links");
		sleep(1);
	    }
	    break;
#endif NOT_WORKING_YET

	case 'v':   /* v to view home page */
	case 'V':   /* this used to be 'g' for goto */
	    /* see if a home page exists
	     * if it does replace newdoc.address with it's name 
	     */
	    if(get_bookmark_filename(&newdoc.address)) {
		LYforce_HTML_mode = TRUE;  /* force HTML */
		LYforce_no_cache = TRUE;  /*force the document to be reloaded*/
		newdoc.title = line_buffer;
	        strcpy(newdoc.title, "Bookmark Page");
	    } 
	    break;

	case '!':  /* shell escape */
#ifdef VMS
	case '$':  /* VMS shell escape */
#endif VMS
	    if(!anonymous) {
	        stop_curses();
                signal(SIGINT, SIG_IGN);
#ifdef VMS
		printf("Spawning DCL subprocess.  Logout to return to Lynx.");
		fflush(stdout);
		lib$spawn();
#else
		printf(
		 "Spawning your default shell.  Use 'exit' to return to Lynx.\n");
	        fflush(stdout);
	        system(getenv("SHELL"));
#endif VMS
                signal (SIGINT, cleanup_sig);
	        start_curses();
	        refresh_screen=TRUE;  /* for a showpage */
	    }
	    break;

	default:
	    if (more)
		statusline(MOREHELP);
	    else
		statusline(HELP);
	    show_help = TRUE;

	    if(TRACE)
	        printw("%d", c);  /* show the user input */

	    break;
	}
    }
}

 there is only one page of data and the user
		 * goes off the top, then just move the curser to
		 * last link on the page
		 */
		highlight(OFF,curdoc.link); /* unhighlight the current link */
		curdoc.link = nlinks-1;  /* the last link */

	    } else if (curdoc.line > 1) {	/* previous page */
		/* go back to the previous page */
		    newline -= (display_lines);
		    arrowup = TRUE;
	    }
	    break;

	case DNARROW:
	case 9  : /* the lynx2-1/docs/000755 000036 000040 00000000000 05502171036 014620 5ustar00montulliusersrv000000 000000 lynx2-1/docs/about_lynx.html000644 000036 000040 00000002632 05506405015 017676 0ustar00montulliusersrv000000 000000 About Lynx

    About Lynx
    

Lynx grew out of efforts to build a campus-wide information
system (CWIS) at The University of Kansas.  Lynx clients provide
a user-friendly hypertext interface for users on a variety of
platforms, and allow information providers to publish information
located on any platform that can run a Gopher, HTTP, FTP, WAIS, or
NNTP server.  Providers retain complete control over their information, 
but may receive comments and suggestions from users running Lynx 
on client systems.  Lynx was written by Lou Montulli at The
University of Kansas
    

Lynx clients understand their own hypertext format and also
the WWW hypertext format 
HTML.
    

Lynx can currently be obtained by anonymous ftp from
ftp2.cc.ukans.edu
in the pub/lynx directory
    

A listserv list has been created for information about Lynx
and for notification of updates.  The listserv is called:

    lynx-dev@ukanaix.cc.ukans.edu.  
    
You may sign-up by sending
a "subscribe lynx-dev <your-name>" request to listserv@ukanaix.cc.ukans.edu.  
DO NOT send subscribe requests to the lynx-dev list itself.
    


    


    montulli@ukanaix.cc.ukans.edu
    
lynx2-1/docs/keystroke_commands/000755 000036 000040 00000000000 05502171006 020516 5ustar00montulliusersrv000000 000000 lynx2-1/docs/keystroke_commands/keystroke_help.html000644 000036 000040 00000003734 05467010503 024447 0ustar00montulliusersrv000000 000000 

HELP! --  Press the left arrow key to exit help






      MOVEMENT:    Down arrow     - Highlight next topic
               Up arrow       - Highlight previous topic
               Right arrow,   - Jump to highlighted topic
               Return, Enter
               Left arrow     - Return to previous topic

  SCROLLING:   + (or space)   - Scroll down to next page
               - (or b)       - Scroll up to previous page

  OTHER:       ? (or H)       - Help (this screen)
               a              - Add the current link to your bookmark file
               c              - Send a comment to the document owner 
	       e	      - Edit the current file
               g              - Goto a random URL or file.
	       i 	      - Show an index of documents
               m              - Return to main screen
               o              - Set your options
               p              - Print to a file, mail, printers, or other
               q              - Quit
               / or s         - Search for a string of characters
               n              - Go to the next search string
               v              - View your bookmark file
               [backspace]    - Go to the history page
               =              - Show file and link info
               CTRL-R         - Reload current file and refresh the screen
               CTRL-W         - Refresh the screen
               \              - Toggle document source/rendered view
	       !	      - Spawn your default shell

    


lynx2-1/docs/keystroke_commands/bookmark_help.html000644 000036 000040 00000001215 05467010503 024224 0ustar00montulliusersrv000000 000000 

Lynx Bookmark Help






    +++ Bookmark Help +++
    


The 'Bookmark file' is document that resides on
your local machine and you are able to
edit and change.  The append feature, invoked
by pressing an 'a' while positioned on a link,
will add the link that you are currently on
to your current 'Bookmark file'.  You may set and
change your current 'Bookmark file' in the
options screen.


an
aero:*:67:locke
Garrett Blythe/homea/blythe/usr/bin/kshblythehannaibpMl8S/V/RpgGary Hanna/homea/hanna/usr/bin/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologinRemote Installation Services Account/usr/adm/ris/bin/shrisadm*
Administration Subsyslynx2-1/docs/keystroke_commands/gopher_types_help.html000644 000036 000040 00000002227 05467010503 025133 0ustar00montulliusersrv000000 000000 

Listing of Gopher types






    +++ Gopher Types +++
    


    

    (FILE)

    An ascii file


    (DIR)

    A directory listing


    (CSO)

    The Computing Services Organizations
nameserver interface


    (BIN)

    A binary file with one of the following meanings

      

    • A Binary file with PC extensions

    • A Binary file with UNIX extensions

    


    (HQX)

    A Macintosh file that has be BinHexed


    (?)

    A searchable database



    (IMG)

    An unknown image type
You must have an X terminal to
view images


    (GIF)

    An image in Graphics Interchange Format
You must have an X terminal to
view images


    (HTML)

    A World Wide Web hypertext file


    (TEL)

    The link will open a connection to another host using telnet


    (3270)

    The link will open a connection to another   
host using tn3270


    (UKN)

    An unknown or unsupported type

    

    


lynx2-1/docs/keystroke_commands/history_help.html000644 000036 000040 00000001347 05467010503 024126 0ustar00montulliusersrv000000 000000 

Help on the History page






    +++ History Page Help +++
    

The history page displays all of the links that
you have travelled through to reach your
current point.  If you entered a document and
then left it using the left arrow, it will not
be in the history stack.  If you entered a
document and left it by selecting another link
it will be in the history stack.  You may select
any link on the history page to return you to a
document that you have previously visited.





    +++ History Page Help +++
    

The history page displays all of the links that
you have travelled through to reach your
current point.  If you entered a document and
then left it using the left arrow, it will not
be in the history stack.  If you entered a
documlynx2-1/docs/keystroke_commands/movement_help.html000644 000036 000040 00000003214 05467010504 024253 0ustar00montulliusersrv000000 000000 

Help on Lynx Movement commands






    +++ MOVEMENT HELP +++
    

            Down arrow,    -  Move to the next hypertext link,
        TAB               or scroll down if there are no more
                          links on the page to move to.

        Up arrow       -  Move to the previous hypertext link,
                          or scroll up if there are no links
                          above the current one, and there are
                          previous pages to move to.

        Right arrow,   -  select the link that the cursor is
        Return, Enter     positioned on.

        Left arrow     -  Retreat from a link.  Go back to the
                          previous topic.


        *note: If 'VI Keys' are enabled from the options menu or
               from the '.lynxrc' file, lowercase h,j,k,l will
               move left, down, up, and right.

        *note: if the 'Num Lock' on your keyboard is on.  Lynx will
               translate the numbers of your keypad into movement
               commands.  The translation is as follows.

                     9  - page up
                     8  - up arrow
          7 8 9      7  - moves to the top of a document
           \|/       6  - right arrow
        4 - 5 - 6    5  - nothing
           /|\       4  - left arrow
          1 2 3      3  - page down
                     2  - down arrow
                     1  - moves to the end of a document



    


lynx2-1/docs/keystroke_commands/option_help.html000644 000036 000040 00000004121 05467010504 023727 0ustar00montulliusersrv000000 000000 

Lynx File Converted to HTML






                    +++ Options Screen Help +++

        The Options Screen allows you to set and
        modify many of Lynx's features. The following
        options may be set.

     Editor             -  If non-empty it allows editing mode when
                           an 'e' is pressed.  Any valid text editor
                           may be entered here.

     DISPLAY variable   -  If non-empty it specifies your X terminal
                           display address.

     Bookmark file      -  If non-empty it specifies the name of your
                           'Bookmark file'.  If the filename is not
                           absolute, then the path begins from your
                           home directory.

     Gopher mode        -  If set to 'verbose' mode, Lynx will display
                           the gopher link type to the right
                           of the link name.

     Searching type     -  If set to 'case sensitive', user searches
                           invoked by the 's' or '/' commands will
                           be case sensitive substring searches.  The
                           default is 'case INsensitive' substring
                           searches

     Local execution   -   If set to 'ON', lynx will locally execute
     links                 commands contained inside of links.  This
                           can be HIGHLY DANGEROUS so it is recommended
                           that they remain 'ALWAYS OFF' unless
                           otherwise set by your system administrator.

     VI keys           -   If set to 'ON' then the lowercase h,j,k, and l,
                           keys will be mapped to left, down, up, right,
                           respectively.


    


lynx2-1/docs/keystroke_commands/other_help.html000644 000036 000040 00000004665 05467010504 023555 0ustar00montulliusersrv000000 000000 

Help on Misc. Lynx Commands






                    +++ Other Commands +++

       a              - Places the link that you are currently positioned
                        on in your personal bookmark file

       c              - Allows you to send a mail message to the owner
                        or maintainer of the data that you are currently
                        viewing.  In the case that no owner is known,
                        your system administrator receives the message.

       g	      - Allows you to enter any URL or filename that
			you wish to view
                        
     ? or H           - Hypertext help to explain how to navigate in
                        Lynx and use its features

       i	      - Shows an index of files or subjects
			This is configurable by the System administrator,
			or within documents that you may be viewing

       m              - Returns to the first screen
                        and empties the history stack

       p              - Brings up a list of print commands

       o              - Brings up a list of setable options

       q              - Quits Lynx

    / or s            - Search for a string of characters case
                        insensitive or case sensitive depending on
                        the options set. (see options)

       n              - move to the next instance of a search string
                        if you have searched previously

       v              - Views your current Bookmark file.

  <backspace>         - displays the history page

       =              - Show information about the file and link
                        that you are currently viewing

     CTRL-R	      - Reloads the current document and resets
			the display.

     CTRL-W	      - Resets or cleans up the display

       \	      - Toggles between viewing the HTML source of a
			document and the rendered version of the document

       !	      - Spawns your default operating system shell



lynx2-1/docs/keystroke_commands/print_help.html000644 000036 000040 00000002430 05467010504 023554 0ustar00montulliusersrv000000 000000 

Lynx File Converted to HTML






    +++ Printing Help +++
    

After entering the 'p' command you will be
presented with a list of print options.
In all cases the file will be printed in
ascii format with the hypertext links
removed.  The number of options depends
on the level of printing that you system
allows.  The following print options
may be availible:
    


    

    Print to a local file:

    This allows you to
save the current file as ascii text
to your local disk.  You will be asked
for a path and filename to save the
file to.  If no path is given, the file
will be saved to the directory that you
were in when you began Lynx.


    Print to the screen:

    This option simply
scrolls the entire document up the
screen and is intended for those who
wish to capture the document with
their terminal.


    Mail the file to yourself:

    This option allows
you to mail the file, in ascii form, to
any valid e-mail address.


    Custom print options:

    Any number of
custom print options may be available,
as defined by your system administrator.

    

    


n/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologinRemote Installation Services Account/usr/adm/ris/bin/shrisadm*
Administration Subsyslynx2-1/docs/keystroke_commands/scrolling_help.html000644 000036 000040 00000002201 05467010504 024410 0ustar00montulliusersrv000000 000000 

Lynx Scrolling Help






            +++ SCROLLING HELP +++

        + (or space)   - If the bottom of the screen informs you
                         that there is 'more' to see, you may
                         move to the next page.

        - (or b)       - If you have moved down in a document,
                         this will bring you back up.

        *note: if the 'Num Lock' on your keyboard is on.  Lynx will
               translate the numbers of your keypad into movement
               commands.  The translation is as follows.

                     9  - page up
                     8  - up arrow
          7 8 9      7  - moves to the top of a document
           \|/       6  - right arrow
        4 - 5 - 6    5  - nothing
           /|\       4  - left arrow
          1 2 3      3  - page down
                     2  - down arrow
                     1  - moves to the end of a document

    


lynx2-1/docs/keystroke_commands/xterm_help.html000644 000036 000040 00000002333 05467010504 023561 0ustar00montulliusersrv000000 000000 

Lynx File Converted to HTML






    +++ X Terminal or X Server +++
    

An X terminal is an electronic display terminal that communicates
with a host computer system using the X Window protocol developed at the
Massachusettes Institute of Technology.
    

The X Window protocol allows a program running on the host computer
system to display both formatted text and graphics on the X terminal.
Since the X Window protocol is defined to work over any TCP/IP network,
X terminals connected to the Internet can be connected to hosts
located anywhere on the Internet.
    

Personal computers (including both PCs and Macintoshes) can execute
programs, usually called X servers, that make them act like X Window
terminals and are frequently used as X terminals.
    


    

    Note: 

    The terminology used to describe processes associated with X
terminals can be confusing.  An X terminal is also known as
an "X display server," and the program running on the host computer
is usually known as the "X client."

    


lynx2-1/docs/lynx_help_main.html000644 000036 000040 00000001056 05506405741 020525 0ustar00montulliusersrv000000 000000 






    Lynx Help Files
    


    Choose a subject
    




2:lhoyle,arlene,carola,bob
cs400:*:47:cs400
phsx:*:52:lsmith
chem:*:57:ulaya
prodsrv:*:62:dseaman
aero:*:67:locke
Garrett Blythe/homea/blythe/usr/bin/kshblythehannaibpMl8S/V/RpgGary Hanna/homea/hanna/usr/bin/kshoperatorCqoQzW9q63QccOperations control account/homea/operator/bin/kshoperatorrisNologinRemote Installation Services Account/usr/adm/ris/bin/shrisadm*
Administration Subsyslynx2-1/utils/000755 000036 000040 00000000000 05477650747 015056 5ustar00montulliusersrv000000 000000 lynx2-1/utils/lpansi.c000644 000036 000040 00000002323 05477524630 016477 0ustar00montulliusersrv000000 000000 /* This program allows printing of files from any VT100 or ANSI by simply 
   calling the program name and a filename argument.
   Written by: Gary Day, 11/30/93
   Hey, it doesn't have to be complicated to be useful.
*/

/* Ansi C function prototypes */
void ansi_printer_on(void);
void ansi_printer_off(void);
int main(int argc, char *argv[]);

#include 
#include 

int main(int argc, char *argv[])
{
  int  ch;    /* Where we store our characters */
  FILE *fp;   /* File pointer */
  if (argc!=2)
   {
    printf("Usage is lpansi \n");
    exit(1);
   }
/* If you got here, then there is only 1 filename argument - correct */
  if ((fp=fopen(argv[1], "r"))==NULL)
  {
   printf("Can't open %s\n",argv[1]);
   exit(1);
  }
/* Ok, the filename was there, lets do it! */

  ansi_printer_on();

  while ((ch=getc(fp))!=EOF)
  {
   putc(ch,stdout);
  }
  fclose(fp);
  
  printf("\n\x0C");  /* Do a form feed at the end of the document */

  ansi_printer_off();

  return 0;  /* Return a zero if everything is ok */
} 

/* Send a printer on escape sequence */
void ansi_printer_on(void)
{
  printf("\x1B[5i");
}

/* Send a printer off escape sequence */
void ansi_printer_off(void)
{
  printf("\x1B[4i");
}
lynx2-1/utils/lpansi.txt000644 000036 000040 00000004370 05477650747 017111 0ustar00montulliusersrv000000 000000 README for lpansi.c				 		    12/2/1993
File: lpansi.c				    		     Author: Gary Day  
							   gday@comp.uark.edu

The problem:  UNIX supplies a printing program called lp  which 
	      allows the user to print a text (or any really) file to a 
	      printer.  Unfortunately, that printer is attached to the UNIX 
	      server which is not where the user usually is.  In my case, it is 
	      about 230 miles away.  I needed a similar program that would 
	      allow me to print to my home printer.  

The solution: The VT100 standard defines a printer on and off escape 
	      sequence.  [FYI: esc[5i is printer on, esc[4i is printer off.]
	      Lpansi is a VERY simple program that issues a printer on 
	      sequence, opens the file sent as an argument, reads it character
	      by character, echos it to stdout (now your local printer) and
	      ends by sending a form feed and printer off command.

Usage:  I had several purposes in mind when I wrote this.  The first was to
	find a way to replace lp in a gopher client I had with something that
	would print at home.  I also wanted to be able to print text 
	files to my home printer directly from the UNIX prompt.  A 
	natural extension of this is to add it to LYNX, and other printing
	clients as your printer command.

Syntax:	lpansi 
	This program only accepts one filename as an argument, and not 
	command line options.  It could be easily modified to accept more
	but that will be up to you to do.  It serves my needs.  

Thanks: Thanks go to Michael Seibel on the PINE development team for 
	helping me find the correct ANSI codes to turn off the printer.  
	I found out later that PINE distributes a similar program called 
	ansiprt which is supposed to do the same thing.  Here, the source
	code is provided so you may incorporate the concept directly in your
	program.

Disclaimer:  [Everyone has one so...] I make no promises whatsoever about 
	     how this will work for you.  If you have VT100 and/or ANSI, it
	     should work just fine.  If it doesn't, quit using it.  :)  This
	     program is free to use and modify, but try to keep my name with
	     it.  I don't do that much cool stuff, so I need all the credit
	     I can get.  Thanks.

	          *** End of README for lpansi.c ***