#!/usr/local/bin/perl $BACK="FFFFFF"; $copy=pop(@ARGV); $PSINDEX="psion.html"; $FIELD=15; $PSIREF="psi-prog.html"; open(INDEX,">$PSINDEX") || die "Couldn't open : $!\n"; open(PSI,">$PSIREF") || die "Couldn't open : $!\n"; print INDEX < PSION Programming Reference

PSION Programming Reference

This is a first attempt at putting Psion's Programmer's Reference onto the Web. If, like me, you bought your 3a after they stopped shipping the manual, or you just keep forgetting it, you should find this useful. It is a first attempt, so please bear with me.

By the way, rather than edit the oplman text files by hand I've used a PERL program to do the majority of the work. This is convenient for me, but it may mean a few blips here and there. Please email me with any cock-ups you see, and I'll fix them, and make the whole thing available via FTP.

Dave Stafford

PSION Function Reference

PSION Function Quick Reference


EndOfRef

foreach $file (@ARGV) {

  $x=$file;
  $chap=substr($file,1,2);
  if ($chap =~ /_/ ) {chop $chap;$chap =~ tr/a-z/A-Z/;}
  elsif ($chap < 10) {$chap=substr($chap,1,1);}
  chop $x;chop $x;chop $x;chop $x;
  $html=$x;
  open(OUTPUT,">$html.html") || die "Couldn't open : $!\n";
  open(DATA,$file) || die "Couldn't open $file: $!\n";

# First line is H1 Header (except for Appendix A), the
# and the file name is the title

  $line=&getline('DATA');
  while ( $line eq "" ) {$line=&getline('DATA');}    

  if ( $chap eq "A" ) {
     print INDEX "

$line

\n"; print INDEX "

PSION Programming Ref.: Chapter $chap. $line Return to the Index

$line

EndPsion print INDEX "

$chap. $line

\n"; $sub1=1; print INDEX "

) { chop; if ( /^$/ ) { #if a blank line print OUTPUT "

\n"; next; } elsif ( substr($_,0,6) eq "------" ) {next;} elsif ( substr($_,0,6) eq "******" ) { # Sub Section header $_ =~ tr/*//d; print OUTPUT "

$_

\n"; print INDEX "$chap.$sub1. $_
\n"; $sub1++; } elsif ( substr($_,0,4) eq "*** " && $chap == 13 ) { # Command Listing $funct=substr($_,4); print OUTPUT "

$funct

\n"; $white = $FIELD - length($funct); print PSI " $funct",' ' x $white; if ( $COU++ == 4 ) {print PSI "\n";$COU=0;} $line=&getline('DATA'); # Next line is blank, chuck $line=&getline('DATA'); # This is the Usage: $x=&getline('DATA'); # Next line is blank, chuck $use=&getline('DATA'); # This is the actual use $next=&getline('DATA'); # Check for more if ( $next eq "" ) { print OUTPUT "$line

$use";  
	} else {
 	   print OUTPUT "$line$use
\n";
	   print OUTPUT "
$next
\n";
           $line=&getline('DATA');
           while ( $line ne "" ) {
             print OUTPUT "
$line
\n";
             $line=&getline('DATA');
           }
        }
	print OUTPUT "\n";  
     } 

     elsif ( substr($_,0,4) eq "*** " ) {   # Sub section header
        $h3=substr($_,4);
        print OUTPUT "
$h3 \n";
     } 
     elsif ( substr($_,0,5) eq "ARROW" ) {   # Sub section header
        $line=substr($_,5);
        print OUTPUT "$line \n";
        $line=&getline('DATA');
        while ( $line ne "" ) {
           print OUTPUT "$line\n";
           $line=&getline('DATA');
        }
        print OUTPUT "\n";
     }
     elsif ( substr($_,0,2) eq "*)" ) {    # Bullet list till end para
        $h3=substr($_,2);
        print OUTPUT "$h3 \n";
        $line=&getline('DATA');
        while ( $line ne "" ) {
           print OUTPUT "$line\n";
           $line=&getline('DATA');
        }
        print OUTPUT "\n";
     }
     elsif ( substr($_,0,4) eq "PROC" ) {   # Probably example program
        print OUTPUT "\n";
        print OUTPUT "$_\n";
        $line=&getline('DATA');
        while ( substr($line,0,4) ne "ENDP" ) {
           print OUTPUT "$line\n";
           $line=&getline('DATA');
        }
        print OUTPUT "$line\n";
        print OUTPUT "\n";
     }       

     else {print OUTPUT "$_\n";}
  }
  if  ($chap==13) {
    print INDEX "Function Quick Reference\n";
  }
  print INDEX "

\n"; print OUTPUT "

`Return to the Index`

\n"; 

}
print INDEX "

\n"; 

close (OUTPUT);
close (DATA);

####### now do the copyright notice ###################

open(DATA,$copy) || die "Couldn't open $copy: $!\n";

$line=&getline('DATA');
while ( $line eq "" ) {$line=&getline('DATA');}
$line =~ tr/"//d;

print INDEX "$line  \n";
while () {
     chop;
     if ( $_ eq "" ) {print INDEX "\n";}
     else {print INDEX "$_\n";}
}

print INDEX <

This HTML version of the manual was automagically created (with a
tiny bit of tweaking ) from the 
oplman text files using PERL. If you want the source for this, or if
you have any suggestions, please email me 
Dave Stafford
 
EndOfCopy

print PSI <

This HTML version of the manual was automagically created (with a
tiny bit of tweaking ) from the 
oplman text files using PERL. If you want the source for this, or if
you have any suggestions, please email me 
Dave Stafford
 
EndOfR

close (DATA);
close (INDEX);
close (PSI);

###################################################################
sub getline {
    local($file) = @_;
    local($_);
 
    $_ = <$file>;
    {
        chop;
        if (/\\$/) {
            chop;
            $_ .= <$file>;
            redo;
        }
    }    
    $_;
}