299 lines
7.6 KiB
PHP
299 lines
7.6 KiB
PHP
<?php
|
|
|
|
namespace App\Classes;
|
|
|
|
use Illuminate\Support\Facades\Log;
|
|
|
|
/**
|
|
* Handles all aspects of frame
|
|
*
|
|
* Frame are constructed:
|
|
* + First line is the header, displaying TITLE/CUG TITLE|PAGE #|COST
|
|
* + Up to $frame_length for content
|
|
* + Input/Status Line
|
|
*
|
|
* NOTES:
|
|
* + Frames are stored in binary. ESC codes are stored as a single char < 32.
|
|
* + Header is on line 1.
|
|
* + Input field is on Line 24.
|
|
* + 'i' Frames are info frames, no looking for fields. (Lines 2-23)
|
|
* + 'ip' Frames are Information Provider frames - no header added. (Lines 1-23)
|
|
* + 'a' Frames have active frames with responses.
|
|
* + 't' Frames terminate the session
|
|
*
|
|
* To Consider
|
|
* + 'x' External frames - living in another viewdata server
|
|
*
|
|
* @package App\Classes
|
|
*/
|
|
class Frame
|
|
{
|
|
private $frame = NULL;
|
|
private $output = NULL;
|
|
private $frame_length = 22;
|
|
private $frame_width = 40;
|
|
|
|
private $header_length = 20; // 20
|
|
private $pagenum_length = 9; // 11 (prefixed with a color, suffixed with frame)
|
|
private $cost_length = 7; // 9 (prefixed with a color, suffixed with unit)
|
|
private $cost_unit = 'u';
|
|
|
|
private $fieldmap = ['s'=>'systel','n'=>'username','a'=>'address#','d'=>'%date'];
|
|
public $fields = NULL; // The fields in this frame.
|
|
|
|
// @todo Move this to the database
|
|
private $header = RED.'T'.BLUE.'E'.GREEN.'S'.YELLOW.'T'.MAGENTA.'!';
|
|
|
|
public function __construct(\App\Models\Frame $o,string $msg=NULL)
|
|
{
|
|
$this->frame = $o;
|
|
|
|
$this->output = $this->hasFlag('clear') ? CLS : HOME;
|
|
|
|
if ($msg)
|
|
$this->output .= UP.$msg.HOME;
|
|
|
|
if (! $this->hasFlag('ip')) {
|
|
// Set the page header: CUG/Site Name | Page # | Cost
|
|
$this->output .= $this->render_header($this->header).
|
|
$this->render_page($this->frame->frame_id,$this->frame->subframe_id).
|
|
$this->render_cost($this->frame->cost);
|
|
}
|
|
|
|
// Calculate fields and render output.
|
|
$this->fields();
|
|
}
|
|
|
|
public function __toString()
|
|
{
|
|
return $this->output;
|
|
}
|
|
|
|
/**
|
|
* Convert the frame from Binary to Output
|
|
* Look for fields within the frame.
|
|
*
|
|
* @param int $startline
|
|
*/
|
|
public function fields($startline=0)
|
|
{
|
|
$infield = FALSE;
|
|
$this->fields = collect();
|
|
|
|
if ($startline)
|
|
$this->output .= str_repeat(DOWN,$startline);
|
|
|
|
// $fieldadrline = 1;
|
|
|
|
// Scan the frame for a field start
|
|
for ($y=$startline;$y<=$this->frame_length;$y++)
|
|
{
|
|
$fieldx = $fieldy = FALSE;
|
|
|
|
for ($x=0;$x<$this->frame_width;$x++)
|
|
{
|
|
$posn = $y*40+$x;
|
|
$byte = ord(isset($this->frame->frame_content{$posn}) ? $this->frame->frame_content{$posn} : ' ')%128;
|
|
// dump(sprintf('Y: %s,X: %s, POSN: %s, BYTE: %s',$y,$x,$posn,$byte));
|
|
|
|
// Check for start-of-field
|
|
if ($byte == ord(ESC)) { // Esc designates start of field (Esc-K is end of edit)
|
|
$infield = TRUE;
|
|
$fieldlength = 0;
|
|
$fieldtype = ord(substr($this->frame->frame_content,$posn+1,1))%128;
|
|
$byte = ord(' '); // Replace ESC with space.
|
|
|
|
} else {
|
|
if ($infield) {
|
|
if ($byte == $fieldtype) {
|
|
$fieldlength++;
|
|
$byte = ord(' '); // Replace field with space.
|
|
|
|
if ($fieldx === false) {
|
|
$fieldx = $x;
|
|
$fieldy = $y;
|
|
}
|
|
|
|
// Is this a magic field?
|
|
// @todo For page redisplay *00, we should show entered contents - for refresh *09 we should show updated contents
|
|
if (array_get($this->fieldmap,chr($fieldtype)) ) {
|
|
$field = $this->fieldmap[chr($fieldtype)];
|
|
//dump(['infield','byte'=>$byte,'fieldtype'=>$fieldtype,'field'=>$field,'strpos'=>strpos($field,'#')]);
|
|
|
|
/*
|
|
// address field has many lines. increment when hit on first character.
|
|
if ($fieldlength == 1 && strpos($field,'#') !== false) {
|
|
$field = str_replace('#',$fieldadrline,$field);
|
|
dump(['field'=>$field,'fieldadrline'=>$fieldadrline,'fieldadrline'=>$fieldadrline]);
|
|
$fieldadrline++;
|
|
}
|
|
*/
|
|
|
|
// Replace field with Date
|
|
if ($field == '%date') {
|
|
if ($fieldlength == 1)
|
|
$datetime = strtoupper(date('D d M Y H:i:s'));
|
|
|
|
if ($fieldlength <= strlen($datetime))
|
|
$byte = ord($datetime{$fieldlength-1});
|
|
|
|
}
|
|
|
|
// @todo user data
|
|
/* else if (isset($user[$field])) {
|
|
if ($fieldlength <= strlen($user[$field])) {
|
|
$byte = ord($user[$field]{$fieldlength-1});
|
|
}
|
|
} /*else // pre-load field contents. PAM or *00 ?
|
|
if (isset($fields[what]['value'])) {
|
|
|
|
} */
|
|
|
|
}
|
|
|
|
} else {
|
|
Log::debug(sprintf('Frame: %s%s, Field found at [%s,%s], Type: %s, Length: %s','TBA','TBA',$fieldx,$fieldy,$fieldtype,$fieldlength));
|
|
|
|
$this->fields->push([
|
|
'type'=>chr($fieldtype),
|
|
'length'=>$fieldlength,
|
|
'x'=>$fieldx,
|
|
'y'=>$fieldy,
|
|
]);
|
|
|
|
$infield = FALSE;
|
|
$fieldx = $fieldy = FALSE;
|
|
}
|
|
}
|
|
}
|
|
|
|
// truncate end of lines
|
|
if (isset($pageflags['tru']) && substr($this->frame->frame_content,$y*40+$x,40-$x) === str_repeat(' ',40-$x)) {
|
|
$this->output .= CR . LF;
|
|
break;
|
|
}
|
|
|
|
$this->output .= ($byte < 32) ? ESC.chr($byte+64) : chr($byte);
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Return the Frame Number
|
|
*/
|
|
public function framenum()
|
|
{
|
|
return $this->frame->frame_id.$this->frame->subframe_id;
|
|
}
|
|
|
|
/**
|
|
* Return the flag for this page
|
|
*
|
|
* CLEAR: Clear Screen before rendering.
|
|
*
|
|
* @param $flag
|
|
* @return bool
|
|
*/
|
|
private function hasFlag($flag)
|
|
{
|
|
return $this->frame->hasFlag($flag);
|
|
}
|
|
|
|
/**
|
|
* Render the cost of the frame
|
|
*
|
|
* @param int $cost
|
|
* @return string
|
|
* @throws \Exception
|
|
*/
|
|
private function render_cost(int $cost)
|
|
{
|
|
if ($cost > 999)
|
|
throw new \Exception('Price too high');
|
|
|
|
if ($cost > 100)
|
|
$color = RED;
|
|
elseif ($cost > 0)
|
|
$color = YELLOW;
|
|
else
|
|
$color = GREEN;
|
|
|
|
return sprintf($color.'% '.$this->cost_length.'.0f%s',$cost,$this->cost_unit);
|
|
}
|
|
|
|
/**
|
|
* Render the Site Header
|
|
*
|
|
* @param string $header
|
|
* @return bool|string
|
|
*/
|
|
private function render_header(string $header)
|
|
{
|
|
$filler = ($this->strlenv($header) < $this->header_length) ? str_repeat(' ',$this->header_length-$this->strlenv($header)) : '';
|
|
|
|
return substr($header.$filler,0,$this->header_length+substr_count($this->header,ESC));
|
|
}
|
|
|
|
/**
|
|
* Render the Frame Number
|
|
*
|
|
* @param int $num
|
|
* @param string $frame
|
|
* @return string
|
|
* @throws \Exception
|
|
*/
|
|
private function render_page(int $num,string $frame)
|
|
{
|
|
if ($num > 999999999)
|
|
throw new \Exception('Page Number too big',500);
|
|
|
|
if (strlen($frame) !== 1)
|
|
throw new \Exception('Frame invalid',500);
|
|
|
|
return sprintf(WHITE.'% '.$this->pagenum_length.'.0f%s',$num,$frame);
|
|
}
|
|
|
|
/**
|
|
* Calculate the length of text
|
|
*
|
|
* ESC characters are two chars, and need to be counted as one.
|
|
*
|
|
* @param $text
|
|
* @return int
|
|
*/
|
|
function strlenv($text) {
|
|
return strlen($text)-substr_count($text,ESC);
|
|
}
|
|
|
|
public static function testFrame()
|
|
{
|
|
// Simulate a DB load
|
|
$o = new \App\Models\Frame;
|
|
|
|
$o->frame_content = '';
|
|
$o->flags = ['ip'];
|
|
$o->frametype = 'a';
|
|
$o->frame_id = 999;
|
|
$o->subframe_id = 'a';
|
|
|
|
// Header
|
|
$o->frame_content .= substr(R_RED.'T'.R_BLUE.'E'.R_GREEN.'S'.R_YELLOW.'T-12345678901234567890',0,20).
|
|
R_WHITE.'999999999a'.R_RED.sprintf('%07.0f',999).'u';
|
|
|
|
$o->frame_content .= str_repeat('+-',18).' '.R_RED.'01';
|
|
$o->frame_content .= 'Date: '.ESC.str_repeat('d',25).str_repeat('+-',4);
|
|
$o->frame_content .= 'Name: '.ESC.str_repeat('u',5).str_repeat('+-',14);
|
|
$o->frame_content .= 'Address: '.ESC.str_repeat('a',20).''.str_repeat('+-',5);
|
|
$o->frame_content .= ' : '.ESC.str_repeat('a',20).''.str_repeat('+-',5);
|
|
|
|
return $o;
|
|
}
|
|
|
|
/**
|
|
* Return the Frame Type
|
|
*/
|
|
public function type()
|
|
{
|
|
return $this->frame->type();
|
|
}
|
|
} |