Commit360cfe1

authored

Reason_comment: add interface file and remove dead code (#2888)

1 parent83b75b6 commit360cfe1Copy full SHA for 360cfe1

File tree

+16

-21

lines changed

+16

-21

lines changed

Lines changed: 0 additions & 21 deletions

Original file line number	Diff line number	Diff line change
`@@ -3,11 +3,6 @@ type category =`
`3`	`3`	`\|SingleLine`
`4`	`4`	`\|Regular`
`5`	`5`
`6`		`-letstring_of_category=function`
`7`		`-\|Regular ->"Regular"`
`8`		`-\|EndOfLine ->"End of Line"`
`9`		`-\|SingleLine ->"SingleLine"`
`10`		`-`
`11`	`6`	`typet=`
`12`	`7`	`{location :Location.t`
`13`	`8`	`;category :category`
`@@ -17,21 +12,6 @@ type t =`
`17`	`12`	`letcategoryt= t.category`
`18`	`13`	`letlocationt= t.location`
`19`	`14`
`20`		`-letdumpppft=`
`21`		`-Format.fprintf`
`22`		`- ppf`
`23`		`-"%d (%d:%d)-%d (%d:%d) -- %s:\|\|%s\|\|"`
`24`		`- t.location.loc_start.pos_cnum`
`25`		`- t.location.loc_start.pos_lnum`
`26`		`- (t.location.loc_start.pos_cnum- t.location.loc_start.pos_bol)`
`27`		`- t.location.loc_end.pos_cnum`
`28`		`- t.location.loc_end.pos_lnum`
`29`		`- (t.location.loc_end.pos_cnum- t.location.loc_end.pos_bol)`
`30`		`- (string_of_category t.category)`
`31`		`- t.text`
`32`		`-`
`33`		`-letdump_listppflist=List.iter~f:(Format.fprintf ppf"%a\n" dump)list`
`34`		`-`
`35`	`15`	`letwrapt=`
`36`	`16`	`match t.textwith`
`37`	`17`	`\|""\|"" ->"/**/"`
`@@ -54,7 +34,6 @@ let wrap t =`
`54`	`34`	`"/*"^ txt^"/"`
`55`	`35`	`\|txt ->"/"^ txt^"/"`
`56`	`36`
`57`		`-letis_doct=String.length t.text>0&& t.text.[0]=='*'`
`58`	`37`	`letmake~locationcategorytext= { text; category; location }`
`59`	`38`
`60`	`39`	`letisLineComment{ category; text; _ }=`

Lines changed: 16 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,16 @@`
	`1`	`+typecategory=`
	`2`	`+ \|EndOfLine`
	`3`	`+ \|SingleLine`
	`4`	`+ \|Regular`
	`5`	`+`
	`6`	`+typet=`
	`7`	`+ {location :Location.t`
	`8`	`+;category :category`
	`9`	`+;text :string`
	`10`	`+ }`
	`11`	`+`
	`12`	`+valcategory :t ->category`
	`13`	`+vallocation :t ->Location.t`
	`14`	`+valwrap :t ->string`
	`15`	`+valmake :location:Location.t->category ->string ->t`
	`16`	`+valisLineComment :t ->bool`

Comments

(0)