"############################################################################################### " " Filename: nqc.vim " " Description: gvim-menus for NQC (Not Quite C) , Version 2.3r1 . " " NQC stands for Not Quite C, and is a simple language for programmimg " several LEGO MINDSTORMS products: RCX, CyberMaster, Scout and RCX2. " The language is described in: " NQC Programmers's Guide, Version 2.3r1, by Dave Baum " ( http://www.enteract.com/~dbaum/ ) " " These menus turn gvim into an IDE for NQC programming: " " - insertion of NQC statements, API function calls, API constants and comments " - download and start programs " - download firmware " - upload the RCX datalog into the current buffer " - erase programs and datalogs " - configurable for RCX, RCX2, CyberMaster, Scout " " Version: 1.4 - LINUX / UNIX " Revision: 04.09.2001 " Author: Dr.-Ing. Fritz Mehner " Email: mehner@mfh-iserlohn.de " Created: 28.07.2001 - 15:40:43 " " Usage: (1) Configure nqc.vim (section below). " (2) Rename nqc.vim to .nqc.vim and put it in your home directory. " (3) Load .nqc.vim manually with the :so command: " :so ~/.nqc.vim " or better place this command in your file .gvimrc . " " The register z is used in many places. " "############################################################################################### " Configuration "------------------------------------------------------------------------------------- " " Use my personalization as an example. " let NQCVIM_AuthorName = "Fritz Mehner" let NQCVIM_AuthorSign = "fm" " " RCX-Firmware, full path and filename : " let NQCVIM_RCX_Firmware = "~/bin/firm0309.lgo" " " Supported robot type: 0 = no / 1 =yes ; multiple choices are possible " let NQCVIM_rcx = 1 let NQCVIM_rcx_2 = 0 let NQCVIM_cybermaster = 0 let NQCVIM_scout = 0 " "############################################################################################### " Key Mappings "------------------------------------------------------------------------------------- " This is for convenience only. Comment out the following maps if you dislike them. " If enabled, there may be conflicts with predefined key bindings of your window manager. " " F2 write buffer to file without confirmation (update) " F3 file open dialog " Alt-F9 write buffer and compile " map :update map :browse confirm e map :w:!nqc % " "############################################################################################### " "=============================================================================================== "----- Menu : NQC-Comments --------------------------------------------------------------------- "=============================================================================================== " MENU ENTRY " ----------------- " Line End Comment " Frame Comment " Function Description " File Prologue " Author+Date+Time " Date+Time " Date " comment out a highlighted block of code " uncomment a highlighted block of code "=============================================================================================== " imenu NQC-&Comments.&Line\ End\ Comment // imenu NQC-&Comments.&Frame\ Comment :call NQCVIM_CommentFrame() jA imenu NQC-&Comments.task\/function\/sub\ &Description :call NQCVIM_CommentFunction() :/NameA imenu NQC-&Comments.File\ &Prologue :call NQCVIM_CommentFilePrologue() :/DescriptionA imenu NQC-&Comments.-SEP1- : imenu NQC-&Comments.\/\/\ Date\ Time\ &Author $:call NQCVIM_CommentDateTimeAuthor() kJA imenu NQC-&Comments.Date\ &Time :call NQCVIM_CommentDateTime() kJi imenu NQC-&Comments.Date :call NQCVIM_CommentDate() kJi imenu NQC-&Comments.-SEP2- : vmenu NQC-&Comments.&code->comment :'<,'>s/^/\/\// vmenu NQC-&Comments.c&omment->code :'<,'>s/^\/\/// " "=============================================================================================== "----- Menu : NQC-Statements ------------------------------------------------------------------- "=============================================================================================== " MENU ENTRY " ----------------- " if{} " if{}else{} " for{} " while{} " do{}while " repeat{} " switch " case " task " inline function " subroutine " #include "..." " #define " #ifndef..#def..#endif " #ifdef..#endif " ----------------- " Inserting at the end of the line preserves indentation. "=============================================================================================== " imenu NQC-St&atements.&if\ \{\ \} :let @z="if ( )\n\t{\n\t\n\t}\n" "z]pf(la imenu NQC-St&atements.if\ \{\ \}\ &else\ \{\ \} :let @z="if ( )\n\t{\n\t\n\t}\nelse\n\t{\n\t\n\t}\n" "z]pf(la imenu NQC-St&atements.&for\ \{\ \} :let @z="for ( ; ; )\n\t{\n\t\n\t}\n" "z]pf;i imenu NQC-St&atements.&while\ \{\ \} :let @z="while ( )\n\t{\n\t\n\t}\n" "z]pf(la imenu NQC-St&atements.&do\ \{\ \}\ while :call NQCVIM_DoWhile() "z]p:/while f(la imenu NQC-St&atements.&repeat\ \{\ \} :let @z="repeat ( )\n\t{\n\t\n\t}\n" "z]pf(la imenu NQC-St&atements.&switch :call NQCVIM_CodeSwitch() "z]pf(la imenu NQC-St&atements.&case :call NQCVIM_CodeCase() "z]pf:i imenu NQC-St&atements.-SEP1- : imenu NQC-St&atements.&task :call NQCVIM_CodeTask() imenu NQC-St&atements.in&line\ function :call NQCVIM_CodeInlineFunction() imenu NQC-St&atements.s&ubroutine :call NQCVIM_CodeSubroutine() imenu NQC-St&atements.-SEP2- : imenu NQC-St&atements.#include\ \"\.\.\.\" :let @z="#include\t\".nqh\"" "zpF.i imenu NQC-St&atements.&#define :let @z="#define\t\t\t\t// " "zp4Fa imenu NQC-St&atements.#if&ndef\.\.#def\.\.#endif :call NQCVIM_CodeIfndef() imenu NQC-St&atements.#ifdef\.\.#endif #ifdef#endif3kA " "=============================================================================================== "----- Menu : API-Functions -------------------------------------------------------------------- "=============================================================================================== " "----- outputs ---------------------------------------------------------------------------- imenu API-Functions.outputs.Float\ (outputs) Float();F(a imenu API-Functions.outputs.Fwd\ (outputs) Fwd();F(a imenu API-Functions.outputs.Off\ (outputs) Off();F(a imenu API-Functions.outputs.On\ (outputs) On();F(a imenu API-Functions.outputs.OnFor\ (outputs,time) OnFor(,);F(a imenu API-Functions.outputs.OnFwd\ (outputs) OnFwd();F(a imenu API-Functions.outputs.OnRev\ (outputs) OnRev();F(a imenu API-Functions.outputs.OutputStatus\ (n) OutputStatus();F(a imenu API-Functions.outputs.Rev\ (outputs) Rev();F(a imenu API-Functions.outputs.SetDirection\ (outputs,dir) SetDirection(,);F(a imenu API-Functions.outputs.SetOutput\ (outputs,mode) SetOutput(,);F(a imenu API-Functions.outputs.SetPower\ (outputs,power) SetPower(,);F(a imenu API-Functions.outputs.Toggle\ (outputs) Toggle();F(a "----- sensor types, modes, information --------------------------------------------------- imenu API-Functions.sensors.ClearSensor\ (sensor) ClearSensor();F(a if NQCVIM_rcx != 0 || NQCVIM_cybermaster != 0 imenu API-Functions.sensors.SensorMode\ (n) SensorMode();F(a endif imenu API-Functions.sensors.SensorType\ (n) SensorType();F(a if NQCVIM_rcx != 0 imenu API-Functions.sensors.SensorValueBool\ (n) SensorValueBool();F(a endif if NQCVIM_rcx != 0 || NQCVIM_scout != 0 imenu API-Functions.sensors.SensorValueRaw\ (n) SensorValueRaw();F(a endif imenu API-Functions.sensors.SensorValue\ (n) SensorValue();F(a if NQCVIM_scout != 0 imenu API-Functions.sensors.SetSensorLowerLimit\ (value) SetSensorLowerLimit();F(a imenu API-Functions.sensors.SetSensorUpperLimit\ (value) SetSensorUpperLimit();F(a imenu API-Functions.sensors.SetSensorHysteresis\ (value) SetSensorHysteresis();F(a imenu API-Functions.sensors.CalibrateSensor\ (\ ) CalibrateSensor(); endif if NQCVIM_rcx != 0 imenu API-Functions.sensors.SetSensor\ (sensor,config) SetSensor(,);F(a endif if NQCVIM_rcx != 0 || NQCVIM_cybermaster != 0 imenu API-Functions.sensors.SetSensorMode\ (sensor,mode) SetSensorMode(,);F(a endif if NQCVIM_rcx != 0 imenu API-Functions.sensors.SetSensorType\ (sensor,type) SetSensorType(,);F(a endif "----- timers and counters ---------------------------------------------------------------- imenu API-Functions.timers\ counters.ClearTimer\ (n) ClearTimer();F(a imenu API-Functions.timers\ counters.Timer\ (n) Timer();F(a if NQCVIM_rcx_2 != 0 imenu API-Functions.timers\ counters.FastTimer\ (n) FastTimer();F(a imenu API-Functions.timers\ counters.SetTimer\ (n,value) SetTimer(,);F(a endif if NQCVIM_rcx != 0 || NQCVIM_scout != 0 imenu API-Functions.timers\ counters.Counter\ (n) Timer();F(a endif if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Functions.timers\ counters.ClearCounter\ (n) ClearCounter();F(a imenu API-Functions.timers\ counters.DecCounter\ (n) DecCounter();F(a imenu API-Functions.timers\ counters.IncCounter\ (n) IncCounter();F(a endif "----- sounds ----------------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 imenu API-Functions.sounds.ClearSound\ (\n) ClearSound(); endif if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Functions.sounds.MuteSound\ (\n) MuteSound(); endif imenu API-Functions.sounds.PlaySound\ (sound) PlaySound();F(a imenu API-Functions.sounds.PlayTone\ (freq,duration) PlayTone(,);F(a if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Functions.sounds.UnmuteSound\ (\n) UnmuteSound(); endif if NQCVIM_scout != 0 imenu API-Functions.sounds.SelectSound\ (group) SelectSound();F(a endif "----- LCD display ------------------------------------------------------------------------ if NQCVIM_rcx != 0 imenu API-Functions.display.SelectDisplay\ (mode) SelectDisplay();F(a endif if NQCVIM_rcx_2 != 0 imenu API-Functions.display.SelectUserDisplay\ (value,precision) SelectUserDisplay(,);F(a endif "----- messages --------------------------------------------------------------------------- if NQCVIM_rcx != 0 || NQCVIM_scout != 0 imenu API-Functions.messages.ClearMessage\ (\ ) ClearMessage(); imenu API-Functions.messages.Message\ (\ ) Message(); imenu API-Functions.messages.SendMessage\ (message) SendMessage();F(a imenu API-Functions.messages.SetTxPower\ (power) SetTxPower();F(a endif "----- general ---------------------------------------------------------------------------- imenu API-Functions.general.Random\ (n) Random();F(a imenu API-Functions.general.SetSleepTime\ (minutes) SetSleepTime();F(a if NQCVIM_rcx_2 != 0 imenu API-Functions.general.SetRandomSeed\ (n) SetRandomSeed();F(a endif imenu API-Functions.general.SleepNow\ (\ ) SleepNow(); imenu API-Functions.general.StopAllTasks\ (\ ) StopAllTasks(); imenu API-Functions.general.Wait\ (time) Wait();F(a "----- RCX features ----------------------------------------------------------------------- if NQCVIM_rcx != 0 imenu API-Functions.RCX\ features.Program\ (\ ) Program(); imenu API-Functions.RCX\ features.SetWatch\ (hours,minutes) SetWatch(,);F(a imenu API-Functions.RCX\ features.Watch\ (\n) Watch();F(a endif if NQCVIM_rcx_2 != 0 imenu API-Functions.RCX\ features.SelectProgram\ (n) SelectProgram();F(a imenu API-Functions.RCX\ features.BatteryLevel\ (\ ) BatteryLevel(); imenu API-Functions.RCX\ features.FirmwareVersion\ (\ ) FirmwareVersion(); endif "----- SCOUT features ----------------------------------------------------------------------- if NQCVIM_scout != 0 imenu API-Functions.Scout\ features.EventFeedback\ (\ ) EventFeedback(); imenu API-Functions.Scout\ features.ScoutRules\ (n) ScoutRules();F(a imenu API-Functions.Scout\ features.SetEventFeedback\ (events) SetEventFeedback();F(a imenu API-Functions.Scout\ features.SetLight\ (mode) SetLight();F(a imenu API-Functions.Scout\ features.SetScoutRules\ (motion,touch,light,time,fx) SetScoutRules(,,,,);F(a imenu API-Functions.Scout\ features.SetScoutMode\ (mode) SetScoutMode();F(a endif "----- CYBERMASTER features ----------------------------------------------------------------------- if NQCVIM_cybermaster != 0 imenu API-Functions.cybermaster\ features.Drive\ (motor0,motor1) Drive(,);F(a imenu API-Functions.cybermaster\ features.OnWait\ (motors,time) OnWait(,);F(a imenu API-Functions.cybermaster\ features.OnWaitDifferent\ (motors,n0,n1,n2,time) OnWaitDifferent(,,,,);F(a imenu API-Functions.cybermaster\ features.ClearTachoCounter\ (motors) ClearTachoCounter();F(a imenu API-Functions.cybermaster\ features.TachoCount\ (n) TachoCount();F(a imenu API-Functions.cybermaster\ features.TachoSpeed\ (n) TachoSpeed();F(a imenu API-Functions.cybermaster\ features.ExternalMotorRunning\ (\n) ExternalMotorRunning(); imenu API-Functions.cybermaster\ features.AGC\ (\ ) AGC(); endif "----- datalog ---------------------------------------------------------------------------- if NQCVIM_rcx != 0 imenu API-Functions.datalog.AddToDatalog\ (value) AddToDatalog();F(a imenu API-Functions.datalog.CreateDatalog\ (size) CreateDatalog();F(a imenu API-Functions.datalog.UploadDatalog\ (start,count) UploadDatalog(,);F(a endif "----- global control -------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Functions.global\ control.SetGlobalOutput\ (outputs,mode) SetGlobalOutput(,);F(a imenu API-Functions.global\ control.SetGlobalDirection\ (outputs,mode) SetGlobalDirection(,);F(a imenu API-Functions.global\ control.SetMaxPower\ (outputs,power) SetMaxPower(,);F(a imenu API-Functions.global\ control.GlobalOutputStatus\ (n) GlobalOutputStatus();F(a endif "----- serial ---------------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 imenu API-Functions.serial.SetSerialComm\ (settings) SetSerialComm();F(a imenu API-Functions.serial.SetSerialPacket\ (settings) SetSerialPacket();F(a imenu API-Functions.serial.SetSerialData\ (n,value) SetSerialData(,);F(a imenu API-Functions.serial.SerialData\ (n) SerialData();F(a imenu API-Functions.serial.SendSerial\ (start,count) SendSerial(,);F(a endif "----- VLL -------------------------------------------------------------------------------- if NQCVIM_scout != 0 imenu API-Functions.VLL.SendVLL\ (value) SendVLL();F(a endif "----- access control ---------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Functions.access\ control.SetPriority\ (p) SetPriority();F(a endif "----- RCX2 events ------------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 imenu API-Functions.RCX2\ events.CalibrateEvent\ (event,lower,upper,hyst) CalibrateEvent();F(a imenu API-Functions.RCX2\ events.ClearAllEvents\ (\ ) ClearAllEvents(); imenu API-Functions.RCX2\ events.ClearEvent(event) ClearEvent();F(a imenu API-Functions.RCX2\ events.ClickCounter\ (event) ClickCounter();F(a imenu API-Functions.RCX2\ events.ClickTime\ (event) ClickTime();F(a imenu API-Functions.RCX2\ events.EventState\ (event) EventState();F(a imenu API-Functions.RCX2\ events.Hysteresis\ (event) Hysteresis();F(a imenu API-Functions.RCX2\ events.LowerLimit\ (event) LowerLimit();F(a imenu API-Functions.RCX2\ events.SetClickCounter\ (event,value) SetClickCounter();F(a imenu API-Functions.RCX2\ events.SetClickTime\ (event,value) SetClickTime();F(a imenu API-Functions.RCX2\ events.SetEvent\ (event,source,type) SetEvent();F(a imenu API-Functions.RCX2\ events.SetHysteresis\ (event,value) SetHysteresis();F(a imenu API-Functions.RCX2\ events.SetLowerLimit\ (event,limit) SetLowerLimit();F(a imenu API-Functions.RCX2\ events.SetUpperLimit\ (event,limit) SetUpperLimit();F(a imenu API-Functions.RCX2\ events.UpperLimit\ (event) UpperLimit();F(a imenu API-Functions.RCX2\ events.ActiveEvents\ (task) ActiveEvents();F(a imenu API-Functions.RCX2\ events.CurrentEvents\ (\ ) CurrentEvents(); imenu API-Functions.RCX2\ events.Events\ (events) Events();F(a endif "----- Scout events ------------------------------------------------------------------------ if NQCVIM_scout != 0 imenu API-Functions.Scout\ events.ActiveEvents\ (task) ActiveEvents();F(a imenu API-Functions.Scout\ events.Events\ (events) Events();F(a imenu API-Functions.Scout\ events.SetSensorClickTime\ (value) SetSensorClickTime();F(a imenu API-Functions.Scout\ events.SetCounterLimit\ (n,value) SetCounterLimit(,);F(a imenu API-Functions.Scout\ events.SetTimerLimit\ (n,value) SetTimerLimit(,);F(a endif " " "=============================================================================================== "----- Menu : API-Constants -------------------------------------------------------------------- "=============================================================================================== " "----- access control --------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 || NQCVIM_scout != 0 imenu API-Constants.access\ control.ACQUIRE_OUT_A ACQUIRE_OUT_A imenu API-Constants.access\ control.ACQUIRE_OUT_B ACQUIRE_OUT_B imenu API-Constants.access\ control.ACQUIRE_OUT_C ACQUIRE_OUT_C imenu API-Constants.access\ control.ACQUIRE_SOUND ACQUIRE_SOUND endif if NQCVIM_rcx_2 != 0 imenu API-Constants.access\ control.ACQUIRE_USER_1 ACQUIRE_USER_1 imenu API-Constants.access\ control.ACQUIRE_USER_2 ACQUIRE_USER_2 imenu API-Constants.access\ control.ACQUIRE_USER_3 ACQUIRE_USER_3 imenu API-Constants.access\ control.ACQUIRE_USER_4 ACQUIRE_USER_4 endif "----- display ---------------------------------------------------------------------------- if NQCVIM_rcx != 0 || NQCVIM_rcx_2 != 0 imenu API-Constants.display.DISPLAY_OUT_A DISPLAY_OUT_A imenu API-Constants.display.DISPLAY_OUT_B DISPLAY_OUT_B imenu API-Constants.display.DISPLAY_OUT_C DISPLAY_OUT_C imenu API-Constants.display.DISPLAY_SENSOR_1 DISPLAY_SENSOR_1 imenu API-Constants.display.DISPLAY_SENSOR_2 DISPLAY_SENSOR_2 imenu API-Constants.display.DISPLAY_SENSOR_3 DISPLAY_SENSOR_3 imenu API-Constants.display.DISPLAY_WATCH DISPLAY_WATCH endif if NQCVIM_rcx_2 != 0 imenu API-Constants.display.DISPLAY_USER DISPLAY_USER endif "----- output ---------------------------------------------------------------------------- imenu API-Constants.output.OUT_A OUT_A imenu API-Constants.output.OUT_B OUT_B imenu API-Constants.output.OUT_C OUT_C imenu API-Constants.output.OUT_FLOAT OUT_FLOAT imenu API-Constants.output.OUT_FULL OUT_FULL imenu API-Constants.output.OUT_FWD OUT_FWD imenu API-Constants.output.OUT_HALF OUT_HALF imenu API-Constants.output.OUT_LOW OUT_LOW imenu API-Constants.output.OUT_OFF OUT_OFF imenu API-Constants.output.OUT_ON OUT_ON imenu API-Constants.output.OUT_REV OUT_REV imenu API-Constants.output.OUT_TOGGLE OUT_TOGGLE "----- sensor ---------------------------------------------------------------------------- if NQCVIM_rcx_2 != 0 imenu API-Constants.serial.SERIAL_COMM_DEFAULT SERIAL_COMM_DEFAULT imenu API-Constants.serial.SERIAL_COMM_4800 SERIAL_COMM_4800 imenu API-Constants.serial.SERIAL_COMM_DUTY25 SERIAL_COMM_DUTY25 imenu API-Constants.serial.SERIAL_COMM_76KHZ SERIAL_COMM_76KHZ endif "----- sensor ---------------------------------------------------------------------------- if NQCVIM_rcx != 0 || NQCVIM_scout != 0 imenu API-Constants.sensor.SENSOR_1 SENSOR_1 imenu API-Constants.sensor.SENSOR_2 SENSOR_2 imenu API-Constants.sensor.SENSOR_3 SENSOR_3 imenu API-Constants.sensor.SENSOR_CELSIUS SENSOR_CELSIUS imenu API-Constants.sensor.SENSOR_EDGE SENSOR_EDGE imenu API-Constants.sensor.SENSOR_FAHRENHEIT SENSOR_FAHRENHEIT imenu API-Constants.sensor.SENSOR_LIGHT SENSOR_LIGHT imenu API-Constants.sensor.SENSOR_MODE_BOOL SENSOR_MODE_BOOL imenu API-Constants.sensor.SENSOR_MODE_CELSIUS SENSOR_MODE_CELSIUS imenu API-Constants.sensor.SENSOR_MODE_EDGE SENSOR_MODE_EDGE imenu API-Constants.sensor.SENSOR_MODE_FAHRENHEIT SENSOR_MODE_FAHRENHEIT imenu API-Constants.sensor.SENSOR_MODE_PERCENT SENSOR_MODE_PERCENT imenu API-Constants.sensor.SENSOR_MODE_PULSE SENSOR_MODE_PULSE imenu API-Constants.sensor.SENSOR_MODE_RAW SENSOR_MODE_RAW imenu API-Constants.sensor.SENSOR_MODE_ROTATION SENSOR_MODE_ROTATION imenu API-Constants.sensor.SENSOR_PULSE SENSOR_PULSE imenu API-Constants.sensor.SENSOR_ROTATION SENSOR_ROTATION imenu API-Constants.sensor.SENSOR_TOUCH SENSOR_TOUCH imenu API-Constants.sensor.SENSOR_TYPE_LIGHT SENSOR_TYPE_LIGHT imenu API-Constants.sensor.SENSOR_TYPE_NONE SENSOR_TYPE_NONE imenu API-Constants.sensor.SENSOR_TYPE_ROTATION SENSOR_TYPE_ROTATION imenu API-Constants.sensor.SENSOR_TYPE_TEMPERATURE SENSOR_TYPE_TEMPERATURE imenu API-Constants.sensor.SENSOR_TYPE_TOUCH SENSOR_TYPE_TOUCH endif "----- sound ---------------------------------------------------------------------------- imenu API-Constants.sound.SOUND_CLICK SOUND_CLICK imenu API-Constants.sound.SOUND_DOUBLE_BEEP SOUND_DOUBLE_BEEP imenu API-Constants.sound.SOUND_DOWN SOUND_DOWN imenu API-Constants.sound.SOUND_FAST_UP SOUND_FAST_UP imenu API-Constants.sound.SOUND_LOW_BEEP SOUND_LOW_BEEP imenu API-Constants.sound.SOUND_UP SOUND_UP "----- misc ---------------------------------------------------------------------------- imenu API-Constants.TX_POWER_HI TX_POWER_HI imenu API-Constants.TX_POWER_LO TX_POWER_LO " "----- Scout events ----------------------------------------------------------------------- if NQCVIM_scout != 0 imenu API-Constants.Scout\ events.EVENT_1_PRESSED EVENT_1_PRESSED imenu API-Constants.Scout\ events.EVENT_2_PRESSED EVENT_2_PRESSED imenu API-Constants.Scout\ events.EVENT_1_RELEASED EVENT_1_RELEASED imenu API-Constants.Scout\ events.EVENT_2_RELEASED EVENT_2_RELEASED imenu API-Constants.Scout\ events.EVENT_LIGHT_HIGH EVENT_LIGHT_HIGH imenu API-Constants.Scout\ events.EVENT_LIGHT_NORMAL EVENT_LIGHT_NORMAL imenu API-Constants.Scout\ events.EVENT_LIGHT_LOW EVENT_LIGHT_LOW imenu API-Constants.Scout\ events.EVENT_LIGHT_CLICK EVENT_LIGHT_CLICK imenu API-Constants.Scout\ events.EVENT_LIGHT_DOUBLECLICK EVENT_LIGHT_DOUBLECLICK imenu API-Constants.Scout\ events.EVENT_COUNTER_0 EVENT_COUNTER_0 imenu API-Constants.Scout\ events.EVENT_COUNTER_1 EVENT_COUNTER_1 imenu API-Constants.Scout\ events.EVENT_TIMER_0 EVENT_TIMER_0 imenu API-Constants.Scout\ events.EVENT_TIMER_1 EVENT_TIMER_1 imenu API-Constants.Scout\ events.EVENT_TIMER_2 EVENT_TIMER_2 imenu API-Constants.Scout\ events.EVENT_MESSAGE EVENT_MESSAGE endif " "=============================================================================================== "----- Menu : NQC-Run ------------------------------------------------------------------------- "=============================================================================================== " " MENU ENTRY " ----------------- " save buffer to file and compile the file " download program 1 ... 5 to RCX " download program 1 ... 5 to RCX and run it " download firmware to RCX " upload a datalog from RCX " erase programs and datalogs in RCX " "=============================================================================================== " amenu NQC-&Run.save\ and\ &compile\ \ \\

:w:!nqc % amenu NQC-&Run.-SEP1- : if NQCVIM_rcx != 0 || NQCVIM_rcx_2 amenu NQC-&Run.download\ program\ 1\ to\ RCX :w:!nqc -d -pgm 1 % amenu NQC-&Run.download\ program\ 2\ to\ RCX :w:!nqc -d -pgm 2 % amenu NQC-&Run.download\ program\ 3\ to\ RCX :w:!nqc -d -pgm 3 % amenu NQC-&Run.download\ program\ 4\ to\ RCX :w:!nqc -d -pgm 4 % amenu NQC-&Run.download\ program\ 5\ to\ RCX :w:!nqc -d -pgm 5 % amenu NQC-&Run.-SEP2- : amenu NQC-&Run.download\ program\ 1\ to\ RCX\ and\ Run :w:!nqc -d -pgm 1 % -run amenu NQC-&Run.download\ program\ 2\ to\ RCX\ and\ Run :w:!nqc -d -pgm 2 % -run amenu NQC-&Run.download\ program\ 3\ to\ RCX\ and\ Run :w:!nqc -d -pgm 3 % -run amenu NQC-&Run.download\ program\ 4\ to\ RCX\ and\ Run :w:!nqc -d -pgm 4 % -run amenu NQC-&Run.download\ program\ 5\ to\ RCX\ and\ Run :w:!nqc -d -pgm 5 % -run amenu NQC-&Run.-SEP3- : amenu NQC-&Run.download\ firmware\ to\ RCX :let @z="!nqc -firmware ".g:NQCVIM_RCX_Firmware:@z amenu NQC-&Run.upload\ datalog\ into\ buffer :r !nqc -datalog 2>/dev/null amenu NQC-&Run.erase\ programs\ and\ datalogs\ from\ RCX :! nqc -clear endif if NQCVIM_scout != 0 amenu NQC-&Run.download\ program\ to\ Scout :w:!nqc -d -TScout % endif if NQCVIM_cybermaster != 0 amenu NQC-&Run.download\ program\ to\ CyberMaster :w:!nqc -d -TCM % endif " "=============================================================================================== "----- vim Functions --------------------------------------------------------------------------- "=============================================================================================== " "------------------------------------------------------------------------------ " NQC-Comments : Frame Comment "------------------------------------------------------------------------------ function! NQCVIM_CommentFrame () let @z= "//----------------------------------------------------------------------\n" let @z=@z."// \n" let @z=@z."//----------------------------------------------------------------------\n" put z endfunction " "------------------------------------------------------------------------------ " NQC-Comments : Function Comment "------------------------------------------------------------------------------ function! NQCVIM_CommentFunction () let @z= "//=====================================================================================\n" let @z= @z."//\n" let @z= @z."// Name: \n" let @z= @z."//\n" let @z= @z."// Description: \n" let @z= @z."//\n" let @z= @z."//- PARAMETER -------------------------------------------------------------------------\n" let @z= @z."// Mode Type Name Description\n" let @z= @z."//-------------------------------------------------------------------------------------\n" let @z= @z."// in: \n" let @z= @z."// in-out: \n" let @z= @z."// out: \n" let @z= @z."//-------------------------------------------------------------------------------------\n" let @z= @z."// Author: ".g:NQCVIM_AuthorName."\n" let @z= @z."// Date: ".strftime("%x - %X")."\n" let @z= @z."//=====================================================================================\n" put z endfunction " "------------------------------------------------------------------------------ " NQC-Comments : File Prologue "------------------------------------------------------------------------------ function! NQCVIM_CommentFilePrologue () let File = expand("%:t") " name of the file in the current buffer let @z= "//=====================================================================================\n" let @z= @z."//\n" let @z= @z."// Filename:\t".File."\n" let @z= @z."// Description:\t\n" let @z= @z."//\n" let @z= @z."// Compiler:\tnqc\n" let @z= @z."// Author:\t".g:NQCVIM_AuthorName."\n" let @z= @z."// Created:\t".strftime("%x - %X")."\n" let @z= @z."//=====================================================================================\n" put! z endfunction " "------------------------------------------------------------------------------ " NQC-Comments : Author+Date+Time " NQC-Comments : Date+Time " NQC-Comments : Date "------------------------------------------------------------------------------ function! NQCVIM_CommentDateTimeAuthor () put = '//% '.strftime(\"%x - %X\").' ('.g:NQCVIM_AuthorSign.')' endfunction " function! NQCVIM_CommentDateTime () put = strftime(\"%x - %X\") endfunction " function! NQCVIM_CommentDate () put = strftime(\"%x\") endfunction " "------------------------------------------------------------------------------ " NQC-Statements : do-while "------------------------------------------------------------------------------ " function! NQCVIM_DoWhile () let @z= "do\n\t{\n\t\n\t}\nwhile ( );" let @z= @z."\t\t\t\t// ----- end do-while -----\n" endfunction " "------------------------------------------------------------------------------ " Statements : switch " Statements : case "------------------------------------------------------------------------------ " let NQCVIM_CaseStatement = "\tcase :\t\n\t\tbreak;\n\n" " function! NQCVIM_CodeSwitch () let @z= "switch ( )\n\t{\n\n" let loopcount=4 " default number of cases while loopcount>0 let @z= @z.g:NQCVIM_CaseStatement let loopcount=loopcount-1 endwhile let @z= @z."\tdefault:\t\n\t}" let @z= @z."\t\t\t\t// ----- end switch -----\n" endfunction " function! NQCVIM_CodeCase () let @z= g:NQCVIM_CaseStatement endfunction " "------------------------------------------------------------------------------ " NQC-Statements : #ifndef "------------------------------------------------------------------------------ function! NQCVIM_CodeIfndef (...) if a:0 == 0 let identifier=input("(uppercase) identifier (default _H ) : ") if identifier=="" let identifier = expand("%:t:r")."_H" let identifier = substitute(identifier,".*", '\U\0', "" ) " to uppercase endif else let identifier=a:1 endif let @z= "#ifndef\t".identifier."\n" let @z= @z."#define\t".identifier."\t\t// \n\n\n\n" let @z= @z."#endif\t\t\t// ---------- ifndef ".identifier." ----------\n" put z endfunction " "------------------------------------------------------------------------------ " NQC-Statements : task "------------------------------------------------------------------------------ function! NQCVIM_CodeTask () let identifier=input("task name (default main ) : ") if identifier=="" let identifier = "main" endif let @z= "task\n".identifier."\t( )\n{\n\n\n\treturn ;\n}" let @z= @z."\t\t\t\t// ---------- end of task ".identifier." ----------" put z endfunction " "------------------------------------------------------------------------------ " NQC-Statements : inline function "------------------------------------------------------------------------------ function! NQCVIM_CodeInlineFunction () let identifier=input("inline function name (default func ) : ") if identifier=="" let identifier = "func" endif let @z= "void\n".identifier."\t( )\n{\n\n\n\treturn ;\n}" let @z= @z."\t\t\t\t// ---------- end of inline function ".identifier." ----------" put z endfunction " "------------------------------------------------------------------------------ " NQC-Statements : subroutine "------------------------------------------------------------------------------ function! NQCVIM_CodeSubroutine () let identifier=input("subroutine name (default subr ) : ") if identifier=="" let identifier = "subr" endif let @z= "sub\n".identifier."\t( )\n{\n\n\n\treturn ;\n}" let @z= @z."\t\t\t\t// ---------- end of subroutine ".identifier." ----------" put z endfunction " "===================================================================================== "