(unnamed)

text/plain

Download

#! /usr/bin/perl

($type, $colnum, $org) = @ARGV;

if ($type == 16) {  # BOOLOID
	print ($org eq "t" ? "TRUEEEE" : "FAAALSE");
} elsif ($type == 25 || $type == 705) {  # TEXTOID || UNKNOWNOID
	print '$$'.$org.'$$';
} else {
	print $type;
}