Язык скриптов SAS - есть где-нибудь описание?

[PechalnikU]

Собственно, мне надо сгенерировать ссылку на отсутствующую в стандартном комплекте карту, а для этого нужно знать язык скриптов. Его описания на сайте я не нашёл, к сожалению... Может, конечно, плохо искал... В readme к программе написано только, что скрипты, цитирую: "пишутся на обычном pascal". (У меня версия SAS 100330) А что именно за Pascal? Какие модули поддерживаются, какие вообще соглашения по написанию скрпитов, что вообще за процедуры/функции поддерживаются и т.д? В readme как-то уж больно коротко. Мне, собственно, нужно Base64 кодирование, для генерации ссылки. Но хотелось бы на будущее просто более подробное описание языка скриптов.

[feya]

Код: Выделить всё

function Encode(S: string): string;
var i,a,x,b: Integer;
   Codes64:string;
begin
 Codes64:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
 for i:=1 to length(s) do
  if ord(s[i]) mod 2 = 0 then S[i]:=chr(ord(s[i])+1)
                         else S[i]:=chr(ord(s[i])-1);
 Result:='';
 a:=0;
 b:=0;
 for i := 1 to Length(s) do
  begin
   x:=Ord(s[i]);
   b:=b*256+x;
   a:=a+8;
   while a >= 6 do
    begin
     a := a-6;
     x := b div (1 shl a);
     b := b mod (1 shl a);
     Result := Result + Codes64[x + 1];
    end;
  end;
 if a>0 then Result:=Result+Codes64[(b shl (6-a))+1];
end;

[vdemidov]

В readme к программе написано только, что скрипты, цитирую: "пишутся на обычном pascal". (У меня версия SAS 100330) А что именно за Pascal?

Ну если вам поможет, то используется RemObjects Pascal Script

[ultraduv]

Еще бы Decode добавить и полезность поста возрасла б

[zed]

А поискать в инете и попробовать стандартную функцию для делфи?

Код: Выделить всё

function Decode64(S: string): string;
const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Pos(s[i], codes64) - 1;
    if x >= 0 then
    begin
      b := b * 64 + x;
      a := a + 6;
      if a >= 8 then
      begin
        a := a - 8;
        x := b shr a;
        b := b mod (1 shl a);
        x := x mod 256;
        Result := Result + chr(x);
      end;
    end
    else
      Exit;
  end;
end;

[Papazol]

Недавно тоже озадачился этой проблемой (Base64). Изучив всё, что нашёл, написАл кодек. Но обнаружил, что алгоритмы в разных случаях несколько отличаются. В частности, стандартный алгоритм предусматривает добавление нулей в конец сообщения (чтобы количество байт выровнять) и последующее кодирование количества этих нулей. А алгоритм, используемый в zmp для DG, этого не содержит. Отсюда неоднозначность при кодировании/декодировании.