132 lines
3.9 KiB
PHP
132 lines
3.9 KiB
PHP
<?php
|
|
|
|
namespace App\Classes\Frame;
|
|
|
|
use Illuminate\Support\Facades\Log;
|
|
|
|
use App\Classes\Frame as AbstractFrame;
|
|
use App\Classes\FrameFields;
|
|
|
|
class Videotex extends AbstractFrame
|
|
{
|
|
public static $frame_length = 22;
|
|
public static $frame_width = 40;
|
|
|
|
public static $header_length = 20;
|
|
public static $pagenum_length = 9;
|
|
public static $cost_length = 7;
|
|
public static $cost_unit = 'u';
|
|
|
|
public function fields($startline=0,$fieldchar='.')
|
|
{
|
|
$infield = FALSE; // In a field
|
|
$fieldtype = NULL; // Type of field
|
|
$fieldlength = 0; // Length of field
|
|
|
|
if ($startline)
|
|
$this->output .= str_repeat(DOWN,$startline);
|
|
|
|
// $fieldadrline = 1;
|
|
|
|
// Scan the frame for a field start
|
|
for ($y=$startline;$y<=static::$frame_length;$y++)
|
|
{
|
|
// Fields can only be on a single line
|
|
$fieldx = $fieldy = FALSE;
|
|
|
|
for ($x=0;$x<static::$frame_width;$x++)
|
|
{
|
|
$posn = $y*40+$x;
|
|
|
|
// If the frame is not big enough, fill it with spaces.
|
|
$byte = ord(isset($this->frame->content{$posn}) ? $this->frame->content{$posn} : ' ')%128;
|
|
|
|
// Check for start-of-field
|
|
if ($byte == ord(ESC)) { // Esc designates start of field (Esc-K is end of edit)
|
|
$infield = TRUE;
|
|
$fieldlength = 1;
|
|
$fieldtype = ord(substr($this->frame->content,$posn+1,1))%128;
|
|
$this->output .= $fieldchar;
|
|
|
|
} else {
|
|
if ($infield) {
|
|
if ($byte == $fieldtype) {
|
|
$fieldlength++;
|
|
$byte = ord($fieldchar); // Replace field with $fieldchar.
|
|
|
|
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') {
|
|
// Drop the last dot and replace it.
|
|
if ($fieldlength == 2) {
|
|
$datetime = date('D d M H:ia');
|
|
$this->output = rtrim($this->output,$fieldchar);
|
|
$this->output .= $datetime{0};
|
|
}
|
|
|
|
if ($fieldlength > 1 AND $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 {
|
|
$this->fields->push(new FrameFields([
|
|
'type'=>chr($fieldtype),
|
|
'length'=>$fieldlength,
|
|
'x'=>$fieldx-1, // Adjust for the ESC char
|
|
'y'=>$fieldy,
|
|
]));
|
|
|
|
Log::debug(sprintf('Frame: %s, Field found at [%s,%s], Type: %s, Length: %s',$this->page(),$fieldx-1,$fieldy,$fieldtype,$fieldlength));
|
|
|
|
$infield = FALSE;
|
|
$fieldx = $fieldy = FALSE;
|
|
}
|
|
}
|
|
}
|
|
|
|
// truncate end of lines @todo havent validated this code or used it?
|
|
if (isset($pageflags['tru']) && substr($this->frame->content,$posn,40-$x) === str_repeat(' ',40-$x)) {
|
|
$this->output .= CR . LF;
|
|
break;
|
|
}
|
|
|
|
if (! $infield OR $fieldlength > 1)
|
|
$this->output .= ($byte < 32) ? ESC.chr($byte+64) : chr($byte);
|
|
}
|
|
}
|
|
}
|
|
|
|
public function strlenv($text):int {
|
|
return strlen($text)-substr_count($text,ESC);
|
|
}
|
|
} |