что это за язык сценариев? - PullRequest
Новая
       18

что это за язык сценариев?

0 голосов
/ 03 мая 2018

Я должен изменить файл scr.file на работе. Сценарий был куплен внешне несколько лет назад. Я могу в некоторой степени понять код, но не могу понять, на каком языке написания сценариев он написан.

Вот фрагмент кода: 

main()
{
  _ErrLevel->Set(0);                      
  _ErrExecLevel->Set(1);  
  _ErrExecTraceLevel->Set(2); 
  _ActualLevel->Set($_ErrExecTraceLevel);

  _ExtSysID->Set("TDM");
  local tString sScriptName("NFORG.scr");
  env->PutEnv("DB_protID", "NFORG");

  local tInt iMsgCounter(0);
  local tInt iError(0);
  local tDateTime datetime();
  local tString sDateTime();
  local tSql sqlTmp();

  msg->SetMsgOutputToDB(139);

  sqlTmp->Execute(,0, "delete from DB_prot
                       where DB_prot.protID = 'NFORG' 
                       and DB_prot.protTIMESTAMP < ($THISTIMESTAMP - 86400)");
  sqlTmp->Commit();

  if($_ActualLevel >= $_ErrExecLevel){iMsgCounter++;msg->Message("Scr: $sScriptName$ / (%03s) START of NFORG loop.", "$iMsgCounter$");}
  msg->Sleep(1000);
  env->PutEnv("NFORGLOG", "$&DB_CLIENTHOME$\TMP", 1);
  _ENVVAR->Set("NFORG");

  global tTable tblFile();

  if(!tblFile->SetDir("$_ENVVAR", "*.org",0,0,0,"BaseFileName"))
  {
    msg->Sleep(1000);
    if($_ActualLevel >= $_ErrExecLevel){iMsgCounter++;msg->Message("Scr: $sScriptName$ / (%03s) END of NFORG loop.", "$iMsgCounter$");}
    msg->ResetMsgOutputToDB();
    return SOC_OK;
  }
  if($tblFile->CountRows == 0)
  {
    if($_ActualLevel >= $_ErrExecLevel){iMsgCounter++;msg->Message("Scr: $sScriptName$ / (%03s) END of NFORG loop.", "$iMsgCounter$");}
    msg->ResetMsgOutputToDB();
    return SOC_OK;
  }
  else
  {
    if($_ActualLevel >= $_ErrExecLevel){iMsgCounter++;msg->Message("Scr: $sScriptName$ / (%03s)", "$iMsgCounter$");}
  }

  _DoCopy->Set("1");

Кто-нибудь может распознать язык?

Я благодарен за любую помощь.

1 Ответ

0 голосов
/ 03 мая 2018

Основываясь на нескольких поисках функций здесь, кажется, что это язык с именем Root:

https://en.wikipedia.org/wiki/ROOT

"CERN много лет поддерживал библиотеку программ, написанную на Фортране; в 2003 году разработка и обслуживание были прекращены в пользу ROOT, написанного на C ++."

Удачи:)

...