File: helper118A.pe

package info (click to toggle)
fontforge 1%3A20170731~dfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 67,252 kB
  • ctags: 42,582
  • sloc: ansic: 580,893; python: 5,476; sh: 3,081; makefile: 1,269; perl: 315; cpp: 176; ruby: 97; objc: 92; xml: 90; sed: 9
file content (24 lines) | stat: -rw-r--r-- 578 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

# test that the encodings of these two fonts match

Open($2)
i=0;
while ( i<0xffff )
    Open($1)			# Switch to base font
    if ( SelectIf(UCodePoint(i))>0 )
	name = CharInfo("Name");
	Open($2)
	if ( SelectIf(UCodePoint(i))<=0 )
	    Error( "Missing Unicode " + ToString(UCodePoint(i)) + " in " + $2 )
	else
	    othername = CharInfo("Name")
	    if ( name!=othername )
		Error( "Code point " + ToString(UCodePoint(i)) + " has the wrong name. It should be " + name + " but it is " + othername + " in " + $2 )
	    endif
	endif
    endif
    i = i+1
endloop

Open($2 )
Close()