#!/usr/bin/perl #need to set for security reasons (we'll launch _only_ current dir executables) $ENV{PATH} = "."; #$book_url = 'http://www.botik.ru/~scp/book/'; $book_url = '../index.html'; $query = $ENV{'QUERY_STRING'}; @examples = ("pal", "Example N1, Palindrom", "chpm_1" , "Example N2, Chpm function (a)", "chpm_2" , "Example N3, Chpm function (b)", "fact" , "Example N4, Factorial", "trans" , "Example N5, Translate a word", "trans-line" , "Example N6, Translate line", "translate" , "Example N7, Translate, the whole example", "correct" , "Example N8, Correct", "sub-a-z" , "Example N9, Sub-a-z", "order" , "Example N10, Order", "fact-loop" , "Example N11, Factorial (tail-recursive)", "fab-tr" , "Example N12, Fab function (tail-recursive)", "chpm_3" , "Example N13, Chpm function (c)", "pprout" , "Example N14, Pretty print-out of expressions", "sub-a-z2" , "Example N15, Sub-a-z (block variant)", "translate2" , "Example N16, Translate (bury-dig variant)", "m_n_c" , "Example N17, Missionaries and Cannibals", "sort1" , "Example N18, Insertion sort", "sort2" , "Example N19, Merge-sort", "sort3" , "Example N20, Quick-sort", "path_in_graph" , "Example N21, Paths in a Graph", "trarex" , "Example N22, Translation of arithmetic expressions" ); @forminputs = split (/&/, $query); foreach $forminput (@forminputs) { ($name, $value) = split (/=/, $forminput); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ("C", hex($1))/eg; $value =~ s/\r\n/\n/g; $form{$name} = $value; } if (defined ($form{'ex_index'})) { $ex_index = $form{'ex_index'}; }else{ $ex_index = 0; } print "Content-type: text/html\n\n" . "\n\nExamples\n". "". "\n"; print ''."\n"; print ''."\n". ''."\n"; print '

'."\n". ''."\n". 'Examples from the book:
'."\n". ""."\n". '"REFAL-5 programming guide and reference manual"'."\n". ''."\n". '

'."\n". ''."\n". '
'."\n". '
'."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". '
'."\n". '  '."\n". ' Example:'."\n". '  '."\n". ''."\n". ' '."\n". '  '."\n". '
'."\n". '  '."\n". ' Action:'."\n". '  '."\n". ''."\n". '  '."\n". ' '."\n". '  '."\n". ' ->'."\n". '  '."\n". ' '."\n". '  '."\n". ' ->'."\n". '  '."\n". ' '."\n". '  '."\n". ' ->'."\n". '  '."\n". ' '."\n". '
'."\n". '
'."\n". '

'."\n". '

'."\n". ''."\n". ''."\n";