Sage.pl

1. sage.pl
3. This macro provides functionality for calling a Sage cell server.

sub _sage_init {

  PG_restricted_eval('sub Sage {new sage(@_) }');

}

package sage;

1. 1. Options:
   2. sage( SageCode (not yet), ButtonText, CellServerAddress)

sub new {

  my $self = shift; my $class = ref($self) || $self;

  my %options = ( 
     SageCode => 'print 1+2',
     ButtonText => 'Start/Restart the Interactive Cell',
     CellServer => 'http://sagecell.sagemath.org',
     SageAnswerName => 'sageAnswer',   #  not used yet
     SageAnswerValue => 'ansList',             #  not used yet
     AutoEvaluateCell => 'true',
    @_
  );

  $self = bless {
    %options
  }, $class;

   main::RECORD_ANS_NAME($self->{SageAnswerName}, 345);

  $self->sageCode();
  $self->sagePrint();
  return $self;

}

sub sageCode{

 my $self = shift;
 main::TEXT(main::MODES(TeX=>"", HTML=><<"SAGE_CODE"));

<script type="text/code">

def record_answer($self->{SageAnswerValue}):

   html('<input type=input size=15 name="$self->{SageAnswerName}" id="$self->{SageAnswerName}" value="%s">'%($self->{SageAnswerValue},)   )

$self->{SageCode}

   </script>

SAGE_CODE }

sub sagePrint{

 my $self = shift;
 main::TEXT(main::MODES(TeX=>"", HTML=><<"SAGE_PRINT"));
   <script src="$self->{CellServer}/static/jquery.min.js"></script>
   <script src="$self->{CellServer}/embedded_sagecell.js"> </script>
   <script>
     \$(function () {
       sagecell.makeSagecell({
          inputLocation:     '#sagecell',
          template:              sagecell.templates.minimal,
          autoeval:               $self->{AutoEvaluateCell}, 
          linked:                   true,        
          evalButtonText:    '$self->{ButtonText}'
        });
      });
   </script>

SAGE_PRINT }


1; #required at end of file - a perl thing