aboutsummaryrefslogtreecommitdiffstats
path: root/quantum/process_keycode/process_unicode.h
blob: 22765ad5604aaa9cabf9bf730fbba7d79577aace (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
/* Copyright 2016 Jack Humbert
 *
 * 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/>.
 */

#pragma once

#include "process_unicode_common.h"

bool process_unicode(uint16_t keycode, keyrecord_t *record);
pan class="kn">use Iirs_Utils; with Std_Package; package body Ieee is function Skip_Copyright_Notice (Decl : Iir) return Iir is begin if Decl /= Null_Iir and then Get_Kind (Decl) = Iir_Kind_Constant_Declaration and then (Get_Base_Type (Get_Type (Decl)) = Std_Package.String_Type_Definition) then return Get_Chain (Decl); else return Decl; end if; end Skip_Copyright_Notice; function Skip_Implicit (Decl : Iir) return Iir is Res : Iir; begin Res := Decl; loop exit when Res = Null_Iir; exit when not (Get_Kind (Res) = Iir_Kind_Function_Declaration and then Is_Implicit_Subprogram (Res)); Res := Get_Chain (Res); end loop; return Res; end Skip_Implicit; end Ieee;