codekingpro/portable-devtools

1" Vim syntax file2" Language:    KAREL3" Last Change: 2024-11-174" Maintainer:  Kirill Morozov <kirill@robotix.pro>5" Credits:     Jay Strybis for the initial implementation and Patrick Knosowski6"              for a couple of fixes.7 8if exists("b:current_syntax")9  finish10endif11 12" KAREL is case-insensitive13syntax case ignore14 15" Identifiers16syn match   karelIdentifier  /[a-zA-Z0-9_]\+/17hi def link karelIdentifier  Identifier18 19" Constants20syn keyword karelConstant    CR21syn region  karelString      start="'" end="'"22syn match   karelReal        /\d\+\.\d\+/23syn match   karelInteger     /\d\+/24syn keyword karelBoolean     true false25hi def link karelConstant    Constant26hi def link karelString      String27hi def link karelInteger     Number28hi def link karelReal        Float29hi def link karelBoolean     Boolean30 31" Directives32syn match   karelDirective   /%[a-zA-Z]\+/33hi def link karelDirective   PreProc34 35" Operators36syn keyword karelOperator    AND OR NOT DIV MOD37syn match   karelOperator    /[\+\-\*\/\<\=\>\:\#\@]/38syn match   karelOperator    /<=/39syn match   karelOperator    />=/40syn match   karelOperator    /<>/41syn match   karelOperator    />=</42hi def link karelOperator    Operator43 44" Types45syn keyword karelType        ARRAY BOOLEAN BYTE CONFIG DISP_DAT_T FILE INTEGER JOINTPOS PATH POSITION QUEUE_TYPE REAL SHORT STD_PTH_NODE STRING VECTOR XYZWPR XYZWPREXT46syn keyword karelStructure   STRUCTURE ENDSTRUCTURE47hi def link karelType        Type48hi def link karelStructure   Typedef49 50syn keyword karelAction      NOABORT NOMESSAGE NOPAUSE PAUSE PULSE RESUME STOP UNHOLD UNPAUSE51syn match   karelAction      /SIGNAL EVENT/52syn match   karelAction      /SIGNAL SEMAPHORE/53hi def link karelAction      Keyword54 55syn keyword karelFunction    ABS ACOS APPROACH ARRAY_LEN ASIN ATAN2 ATTACH BYNAME BYTES_LEFT CHR COS CURJPOS CURPOS CURR_PROG EXP56syn keyword karelFunction    FRAME GET_FILE_POS GET_JPOS_REG GET_JPOS_TPE GET_PORT_ATR GET_POS_REG GET_POS_TPE GET_USEC_TIM INDEX57syn keyword karelFunction    IN_RANGE INV IO_STATUS J_IN_RANGE JOINT2POS LN MIRROR MOTION_CTL NODE_SIZE ORD ORIENT PATH_LEN POS POS2JOINT58syn keyword karelFunction    ROUND SEMA_COUNT SIN SQRT STR_LEN SUB_STR TAN TRUNC UNINIT59hi def link karelFunction    Function60 61syn keyword karelClause      EVAL FROM IN WHEN WITH62hi def link karelClause      Keyword63 64syn keyword karelConditional IF THEN ELSE ENDIF SELECT ENDSELECT CASE65hi def link karelConditional Conditional66 67syn keyword karelRepeat      WHILE DO ENDWHILE FOR68hi def link karelRepeat      Repeat69 70syn keyword karelProcedure   ABORT_TASK ACT_SCREEN ACT_TBL ADD_BYNAMEPC ADD_DICT ADD_INTPC ADD_REALPC ADD_STRINGPC APPEND_NODE APPEND_QUEUE71syn keyword karelProcedure   ATT_WINDOW_D ATT_WINDOW_S AVL_POS_NUM72syn keyword karelProcedure   BYTES_AHEAD73syn keyword karelProcedure   CALL_PROG CALL_PROGLIN CHECK_DICT CHECK_EPOS CHECK_NAME CLEAR CLEAR_SEMA CLOSE_TEP CLR_IO_STAT CLR_PORT_SIM CLR_POS_REG74syn keyword karelProcedure   CNC_DYN_DISB CNC_DYN_DISE CNC_DYN_DISI CNC_DYN_DISP CNC_DYN_DISR CNC_DYN_DISS CNCL_STP_MTN CNV_CNF_STRG CNV_CONF_STR CNV_INT_STR CNV_JPOS_REL CNV_REAL_STR CNV_REL_JPOS CNV_STR_CONF CNV_STR_INT CNV_STR_REAL CNV_STR_TIME CNV_TIME_STR75syn keyword karelProcedure   COMPARE_FILE CONT_TASK COPY_FILE COPY_PATH COPY_QUEUE COPY_TPE CREATE_TPE CREATE_VAR76syn keyword karelProcedure   DAQ_CHECKP DAQ_REGPIPE DAQ_START DAQ_STOP DAQ_UNREG DAQ_WRITE DEF_SCREEN DEF_WINDOW77syn keyword karelProcedure   DELETE_FILE DELETE_NODE DELETE_QUEUE DEL_INST_TPE DET_WINDOW DISCTRL_ALPH DISCTRL_FORM DISCTRL_LIST DISCTRL_PLMN DISCTRL_SBMN DISCTRL_TBL DISMOUNT_DEV DOSFILE_INF78syn keyword karelProcedure   ERR_DATA FILE_LIST FORCE_SPMENU FORMAT_DEV GET_ATTR_PRG GET_PORT_ASG GET_PORT_CMT GET_PORT_MOD GET_PORT_SIM GET_PORT_VAL GET_POS_FRM GET_POS_TYP GET_PREG_CMT GET_QUEUE79syn keyword karelProcedure   GET_REG GET_REG_CMT GET_SREG_CMT GET_STR_REG GET_TIME GET_TPE_CMT GET_TPE_PRM GET_TSK_INFO GET_USEC_SUB GET_VAR80syn keyword karelProcedure   INI_DYN_DISB INI_DYN_DISE INI_DYN_DISI INI_DYN_DISP INI_DYN_DISR INI_DYN_DISS INIT_QUEUE INIT_TBL INSERT_NODE INSERT_QUEUE IO_MOD_TYPE81syn keyword karelProcedure   KCL KCL_NO_WAIT KCL_STATUS LOAD LOAD_STATUS LOCK_GROUP MODIFY_QUEUE MOUNT_DEV MOVE_FILE MSG_CONNECT MSG_DISO MSG_PING82syn keyword karelProcedure   OPEN_TPE PAUSE_TASK PEND_SEMA PIPE_CONFIG POP_KEY_RD POS_REG_TYPE POST_ERR POST_ERR_L POST_SEMA PRINT_FILE PROG_BACKUP PROG_CLEAR PROG_RESTORE PROG_LIST83syn keyword karelProcedure   PURGE_DEV PUSH_KEY_RD READ_DICT READ_DICT_V READ_KB REMOVE_DICT RENAME_FILE RENAME_VAR RENAME_VARS RESET RUN_TASK SAVE SAVE_DRAM SELECT_TPE SEND_DATAPC SEND_EVENTPC SET_ATTR_PRG SET_CURSOR SET_EPOS_REG SET_EPOS_TPE84syn keyword karelProcedure   SET_FILE_ATR SET_FILE_POS SET_INT_REG SET_JPOS_REG SET_JPOS_TPE SET_LANG SET_PERCH SET_PORT_ASG SET_PORT_ATR SET_PORT_CMT SET_PORT_MOD SET_PORT_SIM SET_PORT_VAL SET_POS_REG SET_POS_TPE SET_PREG_CMT SET_REAL_REG SET_REG CMT SET_SREG_CMT SET_STR_REG SET_TIME SET_TPE_CMT SET_TRNS_TPE SET_TSK_ATTR SET_TSK_NAME SET_VAR85syn keyword karelProcedure   TRANSLATE UNLOCK_GROUP UNPOS V_CAM_CALIB V_GET_OFFSET V_GET_PASSFL V_GET_QUEUE V_INIT_QUEUE V_RALC_QUEUE V_RUN_FIND V_SET_REF V_START_VTRK V_STOP_VTRK VAR_INFO VAR_LIST VOL_SPACE VREG_FND_POS VREG_OFFSET86syn keyword karelProcedure   WRITE_DICT WRITE_DICT_V XML_ADDTAG XML_GETDATA XML_REMTAG XML_SCAN XML_SETVAR87hi def link karelProcedure   Function88 89syn keyword karelStatement   ABORT CONDITION ENDCONDITION CONTINUE DELAY ERROR EVENT FOR ENDFOR HOLD READ RELEASE REPEAT RETURN SEMAPHORE UNTIL USING ENDUSING WRITE90syn match   karelStatement   /CANCEL FILE/91syn match   karelStatement   /CLOSE FILE/92syn match   karelStatement   /CLOSE HAND/93syn match   karelStatement   /CONNECT TIMER/94syn match   karelStatement   /DISABLE CONDITION/95syn match   karelStatement   /DISCONNECT TIMER/96syn match   karelStatement   /ENABLE CONDITION/97syn match   karelStatement   /GO TO/98syn match   karelStatement   /OPEN FILE/99syn match   karelStatement   /OPEN HAND/100syn match   karelStatement   /PURGE CONDITION/101syn match   karelStatement   /RELAX HAND/102syn match   karelStatement   /WAIT FOR/103hi def link karelStatement   Statement104 105syn keyword karelKeyword     BEGIN CONST END PROGRAM ROUTINE STRUCT TYPE VAR106hi def link karelKeyword     Keyword107 108" Comments109syn region karelComment      start="--" end="$"110hi def link karelComment     Comment111 112let b:current_syntax = "karel"113