-- Mcode back-end for ortho - Main subprogram. -- Copyright (C) 2006 Tristan Gingold -- -- GHDL is free software; you can redistribute it and/or modify it under -- the terms of the GNU General Public License as published by the Free -- Software Foundation; either version 2, or (at your option) any later -- version. -- -- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY -- WARRANTY; without even the implied warranty of MERCHANTABILITY or -- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- for more details. -- -- You should have received a copy of the GNU General Public License -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Ada.Unchecked_Conversion; with Ada.Command_Line; use Ada.Command_Line; with Ada.Unchecked_Deallocation; with Ada.Text_IO; use Ada.Text_IO; with Binary_File; use Binary_File; with GNAT.OS_Lib; use GNAT.OS_Lib; with Ortho_Code.Debug; with Ortho_Mcode; use Ortho_Mcode; with Ortho_Front; use Ortho_Front; with Ortho_Code.Flags; use Ortho_Code.Flags; with Binary_File.Elf; with Binary_File.Coff; with Binary_File.Memory; procedure Ortho_Code_Main is Output : String_Acc := null; type Format_Type is (Format_Coff, Format_Elf); Format : constant Format_Type := Format_Elf; First_File : Natural; Opt : String_Acc; Opt_Arg : String_Acc; Filename : String_Acc; Exec_Func : String_Acc; Res : Natural; I : Natural; Argc : Natural; Val : Integer; procedure Unchecked_Deallocation is new Ada.Unchecked_Deallocation (Name => String_Acc, Object => String); procedure Write_Output is Fd : File_Descriptor; begin Fd := Create_File (Output.all, Binary); if Fd /= Invalid_FD then case Format is when Format_Elf => Binary_File.Elf.Write (Fd); when Format_Coff => Binary_File.Coff.Write (Fd); end case; Close (Fd); end if; end Write_Output; begin First_File := Natural'Last; Exec_Func := null; Val := 0; Ortho_Front.Init; Argc := Argument_Count; I := 1; while I <= Argc loop declare Arg : constant String := Argument (I); begin if Arg (1) = '-' then if Arg'Length > 5 and then Arg (1 .. 5) = "--be-" then Ortho_Code.Debug.Set_Be_Flag (Arg); I := I + 1; elsif Arg = "-o" then if I = Argc then Put_Line (Standard_Error, "error: missing filename to '-o'"); return; end if; Output := new String'(Argument (I + 1)); I := I + 2; elsif Arg = "-quiet" then -- Skip silently. I := I + 1; elsif Arg = "--exec" then if I = Argc then Put_Line (Standard_Error, "error: missing function name to '--exec'"); return; end if; Exec_Func := new String'(Argument (I + 1)); I := I + 2; elsif Arg = "-a" then if I = Argc then Put_Line (Standard_Error, "error: missing value after 'a'"); return; end if; Val := Integer'Value (Argument (I + 1)); I := I + 2; elsif Arg = "-g" then Flag_Debug := Debug_Dwarf; I := I + 1; elsif Arg = "-g0" then Flag_Debug := Debug_None; I := I + 1; elsif Arg = "-p" or Arg = "-pg" then Flag_Profile := True; I := I + 1; else -- This is really an argument. Opt := new String'(Arg); if I < Argument_Count then Opt_Arg := new String'(Argument (I + 1)); else Opt_Arg := null; end if; Res := Ortho_Front.Decode_Option (Opt, Opt_Arg); case Res is when 0 => Put_Line (Standard_Error, "unknown option '" & Arg & "'"); return; when 1 => I := I + 1; when 2 => I := I + 2; when others => raise Program_Error; end case; Unchecked_Deallocation (Opt); Unchecked_Deallocation (Opt_Arg); end if; else 
/* Copyright 2016 Jack Humbert
 * Copyright 2019 Drashna Jael're (@drashna, aka Christopher Courtney)
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/* Author: Wojciech Siewierski < wojciech dot siewierski at onet dot pl > */
#pragma once

#include "quantum.h"

/* May be overridden with a custom value. Be aware that the effective
 * macro length is half of this value: each keypress is recorded twice
 * because of the down-event and up-event. This is not a bug, it's the
 * intended behavior.
 *
 * Usually it should be fine to set the macro size to at least 256 but
 * there have been reports of it being too much in some users' cases,
 * so 128 is considered a safe default.
 */
#ifndef DYNAMIC_MACRO_SIZE
#    define DYNAMIC_MACRO_SIZE 128
#endif

void dynamic_macro_led_blink(void);
bool process_dynamic_macro(uint16_t keycode, keyrecord_t *record);
void dynamic_macro_record_start_user(void);
void dynamic_macro_play_user(int8_t direction);
void dynamic_macro_record_key_user(int8_t direction, keyrecord_t *record);
void dynamic_macro_record_end_user(int8_t direction);
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-03 04:59:06 +0000