Akelpad syntax scripts example

// Определяет тип файла по его расширению, имени или хедеру;
// и устанавливает соответствующее окружение AkelPad. 

nTab = 4; // размер табуляции по умолчанию 

AkelPad.Include("CommonFunctions.js"); 
AkelPad.Include("TextFunctions.js"); 
AkelPad.Include("CoderFunctions.js"); 

var hWndMain = AkelPad.GetMainWnd(); 
var hWndEdit = AkelPad.GetEditWnd(); 

if (hWndEdit) 
{ 
   pFile = AkelPad.GetEditFile(0); 
   pSyntax = pCurrentSyntax = GetSyntaxAliasExtension(); 
   nCodePage = nCurrentCodePage = AkelPad.GetEditCodePage(0); 
   nCurrentTab = AkelPad.SendMessage(hWndEdit, 3239 /*AEM_GETTABSTOP*/, 0, 0); 
   pStartLine = GetLineText(0); 

   if ((/<\?xml(?: version="\d\.\d")?(?: encoding="([\w-]+?)" ?)?\?>/.exec(pStartLine))) {pSyntax = "xml"; SetCodePageFromText(RegExp.$1);} // XML 
   else if ((new RegExp('^#! */bin/sh', 'i')).test(pStartLine)) pSyntax = "sh";  // Bash 
   else if ((new RegExp('^#! *(/usr/bin/(env )?)?perl', 'i')).test(pStartLine)) pSyntax = "pl";  // Perl 
   else if ((new RegExp('^#! *(/usr/bin/(env )?)?python', 'i')).test(pStartLine)) pSyntax = "py";  // Python 
   else if (pFile.search(/\.git\\?config$/) != -1) pSyntax = "ini"; // INI для файлов ".gitconfig" и ".git\config" 
   else pSyntax = getFileExt(pFile); // Расширение 
    
   switch (pSyntax) 
   { 
      case "bat": nCodePage = 866; break; 
      case "coder": nCodePage = 1200; nTab = 8; break; 
   } 

   // Применение параметров кодировки, синтаксиса и табуляции 
   if (nCodePage != nCurrentCodePage) AkelPad.Command(GetCodePageCommand()); 
   if (pSyntax != pCurrentSyntax) SetSyntax(pSyntax); 
   if (nTab != nCurrentTab) AkelPad.SendMessage(hWndEdit, 3240 /*AEM_SETTABSTOP*/, nTab, 0); 

   //AkelPad.MessageBox(hWndEdit, RegExp.$1 + " = " + nCodePage, WScript.ScriptName, 0 /*MB_OK*/); 
} 


// Устанавливает значение nCodePage по текстовому имени кодировки 
function SetCodePageFromText(pEncoding) 
{ 
   switch (pEncoding) 
   { 
      case "utf-8": nCodePage = 65001; break; 
   } 
} 

// Возвращает команду AkelPad для переоткрытия документа в кодировке nCodePage 
function GetCodePageCommand() 
{ 
   switch (nCodePage) 
   { 
      case 1251:   return 4122; // ANSI 
      case 866:   return 4123; // OEM 
      case 20866:   return 4124; // KOI8-R 
      case 1200:   return 4125; // UTF-16 LE 
      case 1201:   return 4126; // UTF-16 BE 
      case 65001:   return 4127; // UTF-8 
      default:   return 0; 
   } 
}